[nikotan]

Здравствуйте!
хочу сложить 4 столбца и в пятом вывести сумму
т.е. в строчках данные складывать
в formcreate запихнул

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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

Код:

1 2 3 4 5 6 7 8

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.

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

Гугли SQL-92

[nikotan]

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

Код:

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

почему последняя колонка пустая?

[nikotan]

и ещё проблема выявилась, вот в edit1 ввёл цифру "9", потом изменил на 7 (например), закрыл программу, на следующий день открыл и по идее должно быть "7", как сделать чтоб эта цифра оставалась всегда в памяти где-то?

[Alegun]

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

и ещё проблема выявилась, вот в edit1 ввёл цифру "9", потом изменил на 7 (например), закрыл программу, на следующий день открыл и по идее должно быть "7", как сделать чтоб эта цифра оставалась всегда в памяти где-то?

Это как раз не проблема, трабла в том, что вы, увж. топикстартер ни фига не читали ПФ, а там есть такое правило "вылитое в граните": один вопрос - одна тема, пжлст, прочитайте.

Ну так уж и быть, в порядке последнего исключения приведу пример схорона содержимого едита на диске

Код:

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

const fn: string = 'Edit1.wrc'; ...   procedure TForm1.FormCreate(Sender: TObject); var   FStr: TFileStream;   MemStr: TMemoryStream; begin  if FileExists(fn) then    begin     FStr:= TFileStream.Create(fn, fmOpenRead);     MemStr:= TMemoryStream.Create;     ObjectTextToBinary(FStr, MemStr);     MemStr.Position:= 0;     MemStr.ReadComponent(Edit1);     MemStr.Free;     FStr.Free;    end; end;   procedure TForm1.FormDestroy(Sender: TObject); var   FStr: TFileStream;   MemStr: TMemoryStream;   begin   FStr:= TFileStream.Create(fn, fmCreate);   MemStr:= TMemoryStream.Create;   MemStr.WriteComponent(Edit1);   MemStr.Position:= 0;   ObjectBinaryToText(MemStr, FStr);   MemStr.Free;   FStr.Free; end;

[nikotan]

блин всё работает, аж настроение поднимается, после уже 5-часового поиска в инете
про

Код:

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

в новой теме задать?

[nikotan]

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

Код:

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

[Alegun]

Наводящий вопрос, а что вы собсно от этой строчки хотите получить?

В ней сейчас записано:

Выбрать значения полей Fio, Glav , SM , SSH , RZO, дальше идёт рабочая галиматья (Glav + SM + SSH + RZO), результат считать как поле с титулом summa из таблицы Clear, это сработает - в summa будет всегда один и тот же результат сложения первых записей из выбранных полей...

[nikotan]

так и надо посчитать сумму 2,3,4,5 полей и значение занести в 6 колонку

[Alegun]

В 6й колонке всегда будет одно и тоже - выполнить сложение значений средствами SQL я такого не знаю, здесь без опроса всех записей не обойтись