[nikotan]

Здравствуйте!
хочу сложить 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 запросами, то надо весь проект так сделать, спасибо за понимание!

[Alegun]

Вроде можно и сложением, но только не поперек, а вдоль

Код:

with ADOQuery2 do
  begin
   Close;
   SQL.Clear;
   SQL.Text:='SELECT SUM(Glav) + SUM(SM) + SUM(SSH) + SUM(RZO) FROM Clear';
   Open;
   Label1.Caption:= IntToStr(StrToInt(Edit1.Text) - Fields[0].AsInteger);
  end;

[nikotan]

всё отлично работает, откуда Вы вот берёте эти коды? если есть книжка дайте пожалуйста, спасибо!
вот две проблемки, теперь нет таблицы со ставками, а только одна колонка "EXPR1000" к которой сумма всех использованных ставок(может её в LAbel2.caption вынести?) я же их должен видеть, у кого сколько и к чему относятся, например Петров 1 основная + 0,5 совмещение. и в последней колонке "ObH" общее должно быть, чтоб я видел сколько у кого("ObH" колонка есть, самая последняя). А вторая если изменить Edit1 (общее кол-во ставок) , то остаток почему-то не меняется, блин пока писал сам догадался, повторить код в событии Edit1Change, работает. Ну блин начинается что-то получатся! СПАСИБО!

[M.A.D.M.A.N.]

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

всё отлично работает, откуда Вы вот берёте эти коды? если есть книжка дайте пожалуйста, спасибо!

Дак это основы SQL. Обычная ф-я редуцирования.

[nikotan]

может и обычная, но вот правила писанины(синтаксис) не понятны
'SELECT SUM(Glav) + SUM(SM) + SUM(SSH) + SUM(RZO) FROM Clear'
в интернете другие способы, но не работают.
как появилась новая колонка колонка "EXPR1000", не понимаю

IntToStr(StrToInt(Edit1.Text) - Fields[0].AsInteger)
о таком я вообще не знал,

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

[nikotan]

короче с синтаксисом у меня проблемы, и не всегда понимаю как работает код delphi.

[nikotan]

есть 6 колонок, 4 из них надо сложить и вывести в последнюю
можно убрать последнюю колонку и использовать "as summa"
но почему то у меня не считает и в последней колонке пусто

Код:

SQL.Text:='SELECT Fio, Glav , SM , SSH , RZO, Glav + SM + SSH + RZO as summa FROM Clear';