Делаю БД в Дельфи, через Database Desktop.
Есть несколько полей, нужно создать ещё одно поле, в которое бы заносились результаты вычитания двух других полей. Другими словами поле Res = Zarplata1 - Zarplata2.
Создала ещё одно поле, называется 23, тип integer. В ОбъектИнспекторе, в Events создала событие OnGetText.
Собственно процедура:
procedure TForm1.Table1Field11GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:=Table1Zarplata.Value - Table1Zarplata2.Value;
end;
procedure TForm1.Table1Field11GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
StrToInt(Text);
Text:=Table1Zarplata.Value - Table1Zarplata2.Value;
end;
Text:=IntToStr(Table1Zarplata.Value - Table1Zarplata2.Value);