: ??= a4; a [5]:=a5; [1]:=b1; b [2]:=b2; b [3]:=b3; b [4]: ??= b4; b [5]:=b5;:=0; i:=1 to 5 doa [i]> max then max:=a [i]; Form6. Image1. Canvas do (40,400); lineto (730,400); (40,400); lineto (40, 20); (40, 20); lineto (35,40); (40, 20); lineto (45,40); (730,400); lineto (710,405); (730,400); lineto (710,395); i:=1 to 10 do (37,400-33 * i); lineto (43,400-33 * i); (1,390-33 * i, inttostr (max div 10 * i));; i:=1 to 5 do (40 + i * 100,400,100 + i * 100,400 - (a [i] div (max div 100) * 3));. Color:=clRed; (Rect (40 + i * 100 +1,401 +1,100 + i * 100-1,400 - (a [i] div (max div 100) * 3) +1));. Color:=clWhite;
/ / FloodFill (40 + i * 100 +1,401 +1, clwhite, fsBorder); (40 + i * 100,420, b [i]); (40 + i * 100,400 - (a [ i] div (max div 100) * 3 +15), inttostr (a [i]));
Продовження додатка Б; (40,400); lineto (730,400);;
/ / showmessage (inttostr (max));; killbill;: array [1.5] of integer;: array [1.5] of string;: integer; Form2boBox3. ItemIndex of / / cards inner join sale on cards. idcard=sale. idcard group by cards. fam, cards. idcard
: begin. Query1. Close;. Query1. SQL. Clear;. Query1. SQL. Text:=«select fam, sum (summa) from cards inner join sale on cards. idcard=sale. idcard group by cards. fam, cards. idcard »;. Query1. Open;;
: begin. Query1. Close;. Query1. SQL. Clear;. Query1. SQL. Text:=«select fam, sum (summa) from cards inner join sale on cards. idcard=sale. idcard where data=«» + Form2. Edit4. Text + «» group by cards. fam, cards. idcard »;. Query1. Open;;
: begin. Query1. Close;. Query1. SQL. Clear;. Query1. SQL. Text:=«select fam, sum (summa) from cards inner join sale on cards. idcard=sale. idcard where data between «» + Form2. Edit4. Text + «» and «» + Form2. Edit5. Text + «» group by cards. fam, cards. idcard »;. Query1. Open;;;. Query1. First; i:=1 to 5 do
Продовження додатка Б [i]:=Form2. Query1. Fields. Fields [1]. AsInteger; [i]:=Form2. Query1. Fields. Fields [0]. AsString;. Query1. Next;; (a [1], a [2], a [3], a [4], a [5], [1], b [2], b [3], b [4], b [ 5],);; TForm6. BitBtn3Click (Sender: TObject);. BitBtn6. Enabled:=false;. BitBtn9. Enabled:=false;. Enabled:=true;. Query1. Close;;; TForm6. FormClose (Sender: TObject; var Action: TCloseAction);. BitBtn6. Enabled:=false;. BitBtn9. Enabled:=false;. Enabled:=true;. Query1. Close;;; TForm6. FormShow (Sender: TObject);. Canvas. FillRect (Image1. BoundsRect);;:=1;; TForm6. BitBtn2Click (Sender: TObject);: array [1.5] of integer;: array [1.5] of string;: integer;. Canvas. FillRect (Image1. BoundsRect);:=page +5; Form2boBox3. ItemIndex of
: begin. Query1. Close;
Продовження додатка Б. Query1. SQL. Clear;. Query1. SQL. Text:=«select fam, sum (summa) from cards inner join sale on cards. idcard=sale. idcard group by cards. fam, cards. idcard »;. Query1. Open;;
: begin. Query1. Close;. Query1. SQL. Clear;. Query1. SQL. Text:=«select fam, sum (summa) from cards inner join sale on cards. idcard=sale. idcard where data=«» + Form2. Edit4. Text + «» group by cards. fam, cards. idcard »;. Query1. Open;;
: begin. Query1. Close;. Query1. SQL. Clear;. Query1. SQL. Te...
