es, Graphics, Controls, Forms,, ComCtrls, ExtCtrls, XPMan, jpeg, StdCtrls; = class (TForm): TXPManifest;: TTimer;: TProgressBar ;: TImage;: TLabel;: TLabel; Timer1Timer (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit3;
{$ R *. dfm} TForm1.Timer1Timer (Sender:
end;.
Друга форма. На цій формі представлений перегляд бази даних. Лістинг даної форми виглядає наступним чином:
unit Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, DBCtrls, XPMan, Grids, DBGrids, StdCtrls,, Xmlxform; = class (TForm ): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TXPManifest;: TDBNavigator;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TDBGrid;: TMenuItem;: TMenuItem;: TButton;: TPanel;: TTimer;: TLabel;: TLabel;: TXMLTransformClient;: TImage;: TMenuItem; N8Click (Sender: TObject) ; Button7Click (Sender: TObject); Button6Click (Sender: TObject); Button5Click (Sender: TObject); N7Click (Sender: TObject); Button2Click (Sender: TObject); N4Click (Sender: TObject); N6Click (Sender: TObject); Button4Click (Sender: TObject); N5Click (Sender: TObject); Button3Click (Sender: TObject); N3Click (Sender: TObject); Button1Click (Sender: TObject); N10Click (Sender: TObject); FormClose (Sender: TObject; var Action : TCloseAction); N12Click (Sender: TObject); N9Click (Sender: TObject); N11Click (Sender: TObject); Timer1Timer (Sender: TObject); Button8Click (Sender: TObject); N13Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2; Unit2, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit12,
Unit11;
{$ R *. dfm}
Третя форма є формою сортування бази даних. На ній представлено безліч компонентів: RadioGroup1, RadioGroup2, Edit1, DataSource1, Query1, XPManifest1, button1, button2. Лістинг третьої форми:
Edit1, Edit2, Edit3, Edit4, Edit5, Edit6 - призначені для введення даних у базу даних;
unit Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, XPMan, StdCtrls, jpeg, ExtCtrls; = class (TForm): TGroupBox;: TRadioButton;: TButton;: TButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TImage; Button1Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3; Unit2, Unit3;
{$ R *. dfm} TForm3.Button1Click (Sender: TObject); RADIOBUTTON1.Checked THEN.ADOTable1.SORT: = 'Код_товара'; RADIOBUTTON2.Checked THEN.ADOTable1.SORT: = 'Найменування '; RADIOBUTTON3.Chec...