2 <> 0) then st1:=st1 + MaskEdit2. Text [i] st2:=st2 + MaskEdit2. Text [i];:=st1 + st2;
/ / ======================================== ==== (f); (f); (f); (f, p1); («Пароль успішно змінено»);. Text:=«»;. Text:=«»;. Text:=«»;; («Новий пароль не збігається» + # 13 +
« з підтвердженням »+ # 13 + # 13 +
« Необхідно збігу цих значень »);. Text:=«»;. Text:=«»;. SetFocus; («Невірний пароль» + # 13 +
« Повторіть спробу »);. Text:=«»;. SetFocus;;; (f);
/ / -----------------------------;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls, Buttons, XPMan;
Продовження додатка Б=class (TForm): TImage;: TXPManifest;: TBitBtn;: TBitBtn;: TBitBtn; FormClose (Sender: TObject; var Action: TCloseAction); BitBtn3Click (Sender: TObject); FormShow (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm5;: integer; Unit2, Unit1;
{$ R *. dfm} renegate (a1, a2, a3, a4, a5: integer;, b2, b3, b4, b5: string);, max, p: integer;: array [1.5] of integer;: array [1.5] of string ; [1]:=a1; a [2]:=a2; a [3]:=a3; a [4]: ??= 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]; Form5. 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); max> 11 theni:=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 10) * 33));
/ / FillRect (Rect (40 + i * 100 +1,401 +1,100 + i * 100-1,400 - (a [i] div (max div 100) * 3) +1)); ( 40 + i * 100,420, b [i]); (40 + i * 100,400 - (a [i] div (max div 10) * 33 +15), inttostr (a [i]));; i:=1 to 10 do (37,400-33 * i); lineto (43,400-33 * i); (1,390-33 * i, inttostr (i));; i:=1 to 5 do (40 + i * 100,400,100 + i * 100,400 - (a [i] * 33)) ;. Color:=clRed; (Rect (40 + i * 100 +1,400 +1,100 + i * 100-1,400 - (a [i] * 33) - 1));. Color:=clWhite; (40 + i * 100,420, b [i]); (40 + i * 100,400 - (a [i] * 33 +15), inttostr (a [i]));;;;
/ / showmessage (inttostr (max));; TForm5. FormClose (Sender: TObject; var Action: TCloseAction);. BitBtn7. Enabled:=false;. BitBtn8. Enabled:=false;. Enabled:=true;
Продовження додатка Б. Query2. Close;;; TForm5. BitBtn3Click (Sender: TObject);. BitBtn7. Enabled:=false;. BitBtn8. Enabled:=false;. Enabled:=true;. Query2. Close;;; killbill;: array [1.5] of integer;: array [1.5] of string;: integer; Form2boBox5. ItemIndex of
: begin. Query2. Close;. Query2. SQL. Clear;. Query2. SQL. Text:=«select idt, sum (kolvo) from sale group by idt»;. Query2. Open;;
: begin. Query2. Close;. Query2. SQL. Clear;. Query2. SQL. Text:=«select idt, sum (kolvo) from sale where data =« »+ Form2. MaskEdit1. Text + «» group by idt »;. Query2. Open;;
: begin. Query2. Close;. Query2. SQL. Clear;. Query2. SQL. Text:...
