DBGrid, обновление содержимого столбца

@moroz · Регистрация: 27.03.2007

Студворк — интернет-сервис помощи студентам

ОЧЕНЬ ПРОШУ ПОМОЧЬ РЕШИТЬ ПРОБЛЕМУ.
Есть запрос,состоящий из 2-х таблиц:

Oracle 11 SQL
1
2
3
 SELECT t.n_tel,fio,sumnmtr,datanmtr,sumnabon,datanabon,sumopl,dataopl,
 TRIM(TO_CHAR((NVL(sumnmtr,0)+NVL(sumnabon,0)-NVL(sumopl,0)) ,'999,990.99')) SUMDOLG,t.ROWID   
 FROM tab1 t ,tab2 tt WHERE N_TEL=TT.N_TEL(+) AND T.PR_PES=TT.PR_PES(+)

Формируется виртуальный столбец -SUMDOLG.который состоит из суммы 3-х столбцов .
Я в форме в DBGrid меняю содержание столбца SUMOPL - при этом мне ОЧЕНЬ надо ,чтобы
изменилось содержание солбца SUMDOLG.
НО он не меняется.Если я закрою окно и по-новому войду в него,то все меняется верно!
В ЧЕМ ДЕЛО? Я очень прошу,помогите,может кто-то сталкивался с такой проблемой.

СУБД-ОРАКЛ,СВЯЗЬ-ADOQuery.

@mik-a-el · 07.11.2007, 11:24

Сообщение от moroz

НО он не меняется.Если я закрою окно и по-новому войду в него,то все меняется верно!
В ЧЕМ ДЕЛО? Я очень прошу,помогите,может кто-то сталкивался с такой проблемой.

Это не проблема, так и должно быть

Если хотите, чтобы он менялся, то меняйте вручную, либо пересчитывайте данные из базы.

@Lord_Voodoo · 07.11.2007, 12:03

ну просто надо произвести рефреш датасета, т.е. закрыть и открыть и все изменится, просто на событие onchange повесить, но есть проблема, при большом объеме данных будет лихо моргать твой пересчет

@mik-a-el · 07.11.2007, 12:14

Кстати, насколько я помню, в датасете должны быть вычисляемые поля

Почему бы их не использовать?

@Lord_Voodoo · 07.11.2007, 12:18

Сообщение от mik-a-el

Кстати, насколько я помню, в датасете должны быть вычисляемые поля

Почему бы их не использовать?

они пересчитываются ли, при редактировании, просто dbgrid - это крайне смурной компонент в билдере, хотя вполне возможно, что это самое простое решение...

@mik-a-el · 07.11.2007, 12:21

Так тогда можно избавиться от рассчета этого поля в запросе, а считать в вычисляемом поле.

@Lord_Voodoo · 07.11.2007, 12:27

на том и порешили... только я помню программно настраивал - в первый раз, пока не понимаешь, что куда и зачем, это проблема

@moroz · 07.11.2007, 15:05 **[ТС]**

Вот то,что пересчитать?А в какое событие впихнуть ?

C++
1
2
3
4
ADOQuery1->FieldByName("SUMDOLG")->AsFloat =
  ADOQuery1r->FieldByName("SUMNMTR")->AsFloat +
  ADOQuery1->FieldByName("SUMNABON")->AsFloat -
  ADOQuery1->FieldByName("SUMOPL")->AsFloat;

Только ничего не получается.
При изменении столбца SUMOPL в DBGrid никаких изменений не происходит сразу.
Надо закрыть окно и войти в него по-новому-только тогда изменения можно увидеть.
Вопрос:
Событие OnChange() я не могу найти.Есть OnDataChange(),OnStateChange().

@Lord_Voodoo · 07.11.2007, 16:50

нет, эти события зараты в поля датасета, т.е. тебе на конкретном поле надо создать это событие... в хелпе поищи:
In TField события OnChange
OnGetText
OnSetText
OnValidate

08.11.2007, 10:36

Я не знаю как это сделать.

C++
1
ADOQuery1->FieldByName("SUMDOLG")->AsFloat =ADOQuery1->FieldByName("SUMNMTR")->AsFloat+ADOQuery1->FieldByName("SUMNABON")->AsFloat-ADOQuery1->FieldByName("SUMOPL")->AsFloat;

Я так делала,но ничего не меняет.
Если можно,помогите кодом.

Еще делала так:
Запрос в ф-ии FormActive() .Когда меняла значение суммі в столбце,то в событии AfterPost() я закрыла и открыла по-новому свой запрос.Все меняется очень хорошо.НО!!!
При этом аврийно завершается программа-при обращении к ф-ии меню (видит всего-то 1 столбец!
А их 9!).Если я закомментировала строку сменю (как в примере),то при этом заголовки столбцов(на русском) в DBGrid исчезли,появились-английские названия столбцов.Может Вы поможете мне написать ,т.е. вернуть (но как???) заголовки столбцов на русском.
Пример:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
void __fastcall TM_Lsab::ADOQueryPerAfterPost(TDataSet *DataSet)
{
  RecordNumber=ADOQueryPer->RecNo;
  ADOQuery1->SQL->Clear();
  ADOQuery1->Close();
  ADOQuery1->SQL->LoadFromFile("SQL/Baza.sql");
  ADOQuery1->Open();
 // Menu_Baza();  ---Это меню,если его выбросить,то заголовки не на русском 
 
      DataSource1->DataSet = ADOQuery1;
     //Связываем возвращаемый набор данных и визуальные компоненты
      DBGridBaza->DataSource =  DataSource1;
      DBNavigatorBaza->DataSource = DataSource1;
      DataSource1->DataSet->MoveBy(RecordNumber-1);
     DBGridBaza->SelectedIndex=7;
     DBGridBaza->SetFocus();
 }
 
void __fastcall TBazatel::Menu_Baza()
 {
  for (k=0; k<=DBGridBaza->Columns->Count-1;k++)
  {    DBGridBaza->Columns->Items[k]->Title->Color=clSilver;}
 
   DBGridBaza->Columns->Items[0]->Title->Caption="Н-р телефона";
   DBGridBaza->Columns->Items[1]->Title->Caption="Cумма МТР";
 
................
}

@Lord_Voodoo · 08.11.2007, 13:32

погоди, а зачем тебе название столбцов в этом событии назначать, обычно это все делается в конструкторе, и желательно структуру в DBGrid там же указать, тогда не надо будет после открытия запроса заново именовать title колонок:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
//---------------------------------------------------------------------------
// Формирование отображения таблиц на экране
void __fastcall TMainForm::SetField()
{
  TColumn *Column;
  for(int i = 0; i < Query1->FieldCount; i++){
    Struct->Add(SetTableField(Query1, Query1->Fields->Fields[i]->FieldName));
    Struct->Fields[i]->DisplayLabel = GridInfo->Strings[i];
    Column = DBGrid1->Columns->Add();
    Column->Field = Struct->Fields[i];
    Column->Alignment = taCenter;
  }
  Query1->Close();
  for(int i = 0; i < Struct->Count; i++){
    Struct->Fields[i]->DataSet = Query1;
  }
  DBGrid1->Columns->Items[9]->Visible = false;
  Query1->Open();
}
 
TField* TMainForm::SetTableField(TQuery *Table, AnsiString FName)
{
  TField *FField;
  switch(Table->FieldByName(FName)->DataType){
    case ftString:
      FField = new TStringField(this);
      FField->FieldName = FName;
      FField->Size = Table->FieldByName(FName)->Size;
      break;
    case ftSmallint:
      FField = new TSmallintField(this);
      FField->FieldName = FName;
      break;
    case ftInteger:
      FField = new TIntegerField(this);
      FField->FieldName = FName;
      break;
    case ftWord:
      FField = new TWordField(this);
      FField->FieldName = FName;
      break;
    case ftFloat:
      FField = new TFloatField(this);
      FField->FieldName = FName;
      break;
    case ftCurrency:
      FField = new TCurrencyField(this);
      FField->FieldName = FName;
      break;
    case ftBCD:
      FField = new TBCDField(this);
      FField->FieldName = FName;
      FField->Size = Table->FieldByName(FName)->Size;
      break;
    case ftDate:
      FField = new TDateField(this);
      FField->FieldName = FName;
      break;
    case ftTime:
      FField = new TTimeField(this);
      FField->FieldName = FName;
      break;
    case ftDateTime:
      FField = new TDateTimeField(this);
      FField->FieldName = FName;
      break;
    case ftAutoInc:
      FField = new TAutoIncField(this);
      FField->FieldName = FName;
      break;
    case ftMemo:
    case ftFmtMemo:
      FField = new TMemoField(this);
      FField->FieldName = FName;
      break;
    case ftBoolean:
      FField = new TBooleanField(this);
      FField->FieldName = FName;
      break;
    case ftUnknown:
      break;
    case ftBytes:
      FField = new TBytesField(this);
      FField->FieldName = FName;
      break;
    case ftVarBytes:
      FField = new TVarBytesField(this);
      FField->FieldName = FName;
      break;
    case ftBlob:
      FField = new TBlobField(this);
      FField->FieldName = FName;
      break;
    case ftGraphic:
      FField = new TGraphicField(this);
      FField->FieldName = FName;
      break;
    case ftParadoxOle:
      break;
    case ftDBaseOle:
      break;
    case ftTypedBinary:
      break;
    case ftCursor:
      break;
  }
  return FField;
}
 
а в конструкторе:
....
  GridInfo = new TStringList();
  GridInfo->Add("Статус");
  GridInfo->Add("Код документа");
  GridInfo->Add("Класс абонента");
  GridInfo->Add("Телефон");
  GridInfo->Add("Номер запроса");
  GridInfo->Add("Регистрация запроса");
  GridInfo->Add("Номер наряда");
  GridInfo->Add("Регистрация наряда");
  GridInfo->Add("Тип дома");
  GridInfo->Add("ID");
  SetField();
....

mik-a-el: Блин, вы задолбали не использовать бб-код [CODE] (кнопочка с решеткой в редакторе)

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.11.2007, 12:03
	ну просто надо произвести рефреш датасета, т.е. закрыть и открыть и все изменится, просто на событие onchange повесить, но есть проблема, при большом объеме данных будет лихо моргать твой пересчет 0

@mik-a-el Администратор 87888 / 53209 / 249 Регистрация: 10.04.2006 Сообщений: 13,767
	07.11.2007, 12:14
	Кстати, насколько я помню, в датасете должны быть вычисляемые поля Почему бы их не использовать? 0

@mik-a-el Администратор 87888 / 53209 / 249 Регистрация: 10.04.2006 Сообщений: 13,767
	07.11.2007, 12:21
	Так тогда можно избавиться от рассчета этого поля в запросе, а считать в вычисляемом поле. 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.11.2007, 12:27
	на том и порешили... только я помню программно настраивал - в первый раз, пока не понимаешь, что куда и зачем, это проблема 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.11.2007, 16:50
	нет, эти события зараты в поля датасета, т.е. тебе на конкретном поле надо создать это событие... в хелпе поищи: In TField события OnChange OnGetText OnSetText OnValidate 0

Опции темы