uses, in 'Unit1.pas' {Form1}, in 'Unit2.pas' {Form2}, in 'Unit3.pas' {Form3}, in 'Unit4.pas' {Form4}, in 'Unit5.pas' {Form5}, in 'Unit6.pas' {Form6}, in 'Unit7.pas' {Form7};
{$ R *. res}. Initialize;. CreateForm (TForm1, Form1);. CreateForm (TForm2, Form2);. CreateForm (TForm3, Form3);. CreateForm (TForm4, Form4); . CreateForm (TForm5, Form5);. CreateForm (TForm6, Form6);. CreateForm (TForm7, Form7);. Run;. Unit1;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls; = class (TForm): TButton;: TButton;: TLabel;: TLabel;: TLabel; : TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TImage;: TButton; Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit3, Unit7;
{$ R *. dfm} TForm1.Button1Click (Sender: TObject);. Show; Form1.Hide;; TForm1.Button2Click (Sender: TObject);. Close;; TForm1.Button3Click (Sender : TObject);. Show; Form1.Hide;;. Unit2;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ComCtrls, Grids, DBGrids, DB, ADODB; = class (TForm): TDBGrid;: TGroupBox;: TButton; : TButton;: TButton;: TButton;: TButton;: TButton;: TADOQuery;: TDataSource;: TButton; Button6Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject); Button4Click (Sender: TObject ); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button7Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2; Unit3, Unit6, Unit4, Unit5;
{$ R *. dfm} TForm2.Button6Click (Sender: TObject);. Show; Form2.Hide;; TForm2.Button3Click (Sender: TObject);. Show; Form2.Hide;; TForm2 . Button5Click (Sender: TObject);. Show; Form2.Hide;; TForm2.Button4Click (Sender: TObject);. Show; Form2.Hide;; TForm2.Button1Click (Sender: TObject);. close;. sql.Clear; . sql.add ('select count (Поставкі.дата_поставкі) AS [всего_поставок]');. sql.add ('from Поставки');. Open;; TForm2.Button2Click (Sender: TObject);. close;. sql. Clear;. sql.add ('select count (Продажа.дата_продажі) AS [всего_продаж], sum (Продажа.кол_во_продано * Товар.цена) AS [на_сумму]');. sql.add ('from Продаж, Товар'); . sql.add ('where Продажа.код_товара = Товар.код_товара');. Open;;
TForm2.Button7Click (Sender: TObject);. close;. sql.Clear;
ADOQuery1.sql.add ('SELECT Товар.Наіменованіе, (sum (Поставкі.кол_во_поставлено) - sum (Продажа.кол_во_продано)) AS [Всего_товаров_на_складе]');. sql.add ('FROM Товар , Поставки, Продаж ');. sql.add (' WHERE (Товар.Код_товара = Поставкі.Код_товара) &...
