Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- qry2.SQL.Add('select transaction, count(id) as kol from reester where 1=1');
- while not qry2.Eof do begin
- if qry2.FieldByName('transaction').AsInteger=1 then lbl4.Caption:='Продажа = '+qry2.FieldByName('kol').AsString;
- if qry2.FieldByName('transaction').AsInteger=2 then lbl5.Caption:='Обмен = '+qry2.FieldByName('kol').AsString;
- if qry2.FieldByName('transaction').AsInteger=3 then lbl6.Caption:='Аннуляция = '+qry2.FieldByName('kol').AsString;
- if qry2.FieldByName('transaction').AsInteger=4 then lbl7.Caption:='Возврат = '+qry2.FieldByName('kol').AsString;
- if qry2.FieldByName('transaction').AsInteger=5 then lbl8.Caption:='МСО = '+qry2.FieldByName('kol').AsString;
- qry2.Next;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement