Advertisement
Guest User

Untitled

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