=«select idt, sum (kolvo) from sale where data between« »+ Form2. MaskEdit1. Text + «» and «» + Form2. MaskEdit2. Text + «» group by idt »;. Query2. Open;;;
Продовження додатка Б. Query2. First; i:=1 to 5 do [i]:=Form2. Query2. Fields. Fields [1]. AsInteger; [i]:=Form2. Query2. Fields. Fields [0]. AsString;. Query2. Next;; (a [1], a [2], a [3], a [4], a [5], [1], b [2], b [3], b [4], b [ 5],);; TForm5. FormShow (Sender: TObject);. Canvas. FillRect (Image1. BoundsRect);;:=1;; TForm5. BitBtn2Click (Sender: TObject);: array [1.5] of integer;: array [1.5] of string;: integer;. Canvas. FillRect (Image1. BoundsRect);:=page +5; 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:=«select idt, sum (kolvo) from sale where data between« »+ Form2. MaskEdit1. Text + «» and «» + Form2. MaskEdit2. Text + «» group by idt »;. Query2. Open;;;. Query2. RecNo:=page; i:=1 to 5 do [i]:=Form2. Query2. Fields. Fields [1]. AsInteger; [i]:=Form2. Query2. Fields. Fields [0]. AsString;. Query2. Next;; (a [1], a [2], a [3], a [4], a [5], [1], b [2], b [3], b [4], b [ 5],);; TForm5. BitBtn1Click (Sender: TObject);: array [1.5] of integer;: array [1.5] of string;: integer;. Canvas. FillRect (Image1. BoundsRect); Form2. Query2. RecNo>=5 then:=page - 5; 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:=«select idt, sum (kolvo) from sale where data between« »+ Form2. MaskEdit1. Text + «» and «» + Form2. MaskEdit2. Text + «» group by idt »;. Query2. Open;;;. Query2. RecNo:=page; i:=1 to 5 do [i]:=Form2. Query2. Fields. Fields [1]. AsInteger; [i]:=Form2. Query2. Fields. Fields [0]. AsString;. Query2. Next;; (a [1], a [2], a [3], a [4], a [5], [1], b [2], b [3], b [4], b [ 5],);;;. Unit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls;=class (TForm): TImage;: TBitBtn;: TBitBtn;: TBitBtn; BitBtn3Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); FormShow (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn1Click (Sender: TObject);
{Private declarations}
{Public declarations};
Продовження додатка Б: TForm6;: integer; Unit2;
{$ 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]...
