Показать сообщение отдельно
  #43  
Старый 21.12.2015, 17:26
ЧайниКсНосикоМ ЧайниКсНосикоМ вне форума
Прохожий
 
Регистрация: 11.12.2015
Сообщения: 23
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Страдалецъ
А что не так? Аргументы для функции задаются в полях 3 и 4. Из того что было сказано ранее я сделал такой вывод. Но вы можете переделать под себя как вам нужно, идею теперь вы поняли.
не так то всё тут просто, ввел вот такой код
Код:
procedure TForm1.btn1Click(Sender: TObject);
var A: Integer;
begin
 qry1.Close; //
 qry1.SQL.Clear; // 
 qry1.SQL.Add('SELECT T1.[поле1], T1.[поле2],Chr(count(1)+64) &"="& T1.[поле3]&"-"&T1.[поле4] as [формула], T1.[поле3] as [первое слогаемое], T1.[поле4] as [второе слогаемое], T1.[поле3]-T1.[поле4] AS [результат]');
 qry1.SQL.Add('FROM [таблица1] as T1 inner join [таблица1] as T2 on T1.[код]>T2.[код] group by T1.[поле1], T1.[поле2], T1.[поле3], T1.[поле4]');
 qry1.SQL.Add(' having T1.[поле1]=:p1 AND T1.[поле2]=:p2');
 qry1.Parameters.ParamByName('p1').Value := edt1.text;
 qry1.Parameters.ParamByName('p2').Value := edt2.text;
 qry1.Open;
lbl1.Caption:=IntToStr(a);
end;
и в лейбле мне вывело число "4422148"
а в столбце формула а=3-1
Ответить с цитированием