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] (кнопочка с решеткой в редакторе)

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

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

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

@mik-a-el Администратор 87875 / 53196 / 249 Регистрация: 10.04.2006 Сообщений: 13,765
	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