|
#1
|
|||
|
|||
сложение строк
Здравствуйте!
хочу сложить 4 столбца и в пятом вывести сумму т.е. в строчках данные складывать в formcreate запихнул Код:
procedure TForm1.FormCreate(Sender: TObject); begin PageControl1.Brush.Color := clGradientInactiveCaption; TabSheet1.Brush.Color := clGradientInactiveCaption; TabSheet2.Brush.Color := clGradientInactiveCaption; TabSheet3.Brush.Color := clGradientInactiveCaption; TabSheet4.Brush.Color := clGradientInactiveCaption; TabSheet5.Brush.Color := clGradientInactiveCaption; //подсчёт ставок ADOQuery2.Close; ADOQuery2.SQL.Clear; AdoQuery2.Sql.Text :='select Glav+SM+SSH+RZO as ObH from Clear'; AdoQuery2.Open; end; в adoquery - sql - string "select * from clear" прописал и табличку выдаёт. вот что хочу сделать, сложить строчки, в последней сумма, потом надо сложить весь столбец , получится "всего", из edit (там будет цифра) вычесть "всего" и получим "остаток" запихнуть "остаток" в label.caption. интернет не помог. 2 дня, даже на интуите искал, в SQL-EX.ru решения ну нет ни одного примера. есть с переборками ,но уж начал с sql запросами, то надо весь проект так сделать, спасибо за понимание! |