Form1.N4Click (Sender: TObject);
Showmessage ('Виконав Перов Дмитро');
end; TForm1.N5Click (Sender: TObject); (0, 'open', 'help.chm','','', sw_show);;. Unit2;, Classes, DB, IBCustomDataSet, IBTable, IBDatabase; = class (TDataModule): TIBDatabase;: TIBTransaction;: TIBTable;: TIBTable;: TIBTable;: TIBTable;: TIBTable;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource; _pokupatelya: TIntegerField ;: TIBStringField;: TIBStringField;: TIBStringField;: TIBStringField;: TIntegerField; _knigi: TIntegerField;: TIBStringField; _janra: TIntegerField;: TIBStringField; _izdaniya: TIntegerField;: TIntegerField;: TIntegerField;: TStringField; _pokupatelya: TIntegerField; _prodaji: TIntegerField ;: TDateField;: TIntegerField;: TStringField; _prodaji: TIntegerField; _knigi: TIntegerField;: TStringField;
{Private declarations}
{Public declarations};: TDM;
{$ R *. dfm}. Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls, Menus,; = class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TPanel;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TBitBtn;: TMenuItem;: TMenuItem;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TDBNavigator; N4Click (Sender: TObject); N5Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender : TObject);
{Private declarations}
{Public declarations};: TForm3; Unit1, Unit2, Unit4, Unit5;
{$ R *. dfm} TForm3.N4Click (Sender: TObject);. Left: = Form3.Left + Form3.Width div 2-Form4.Width div 2;. Top: = Form3. Top + Form3.Height div 2-Form4.Height div 2;. showmodal;; TForm3.N5Click (Sender: TObject);. Left: = Form3.Left + Form3.Width div 2-Form5.Width div 2;. Top: = Form3.Top + Form3.Height div 2-Form5.Height div 2;. showmodal;; TForm3.N2Click (Sender: TObject); ('Виконав Перов Дмитро');; TForm3.N3Click (Sender: TObject);;; . Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TGroupBox;: TEdit;: TGroupBox;: TEdit;: TButton;: TButton;: TButton; Button1Click (Sender : TObject); Button3Click (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm4; Unit1, Unit2, Unit3;
{$ R *. dfm} TForm4.Button1Click (Sender: TObject);;;. Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons; = class (TForm): TGroupBox;: TEdit;: TGroupBox;: TEdit;: TGroupBox;: TEdit ;: TGroupBox;: TEdit;: TGroupBox;: TEdit;: TGroupBox;: TEdit;: TButton;: TBitBtn; Button1Click (Sender: TObject); BitBtn1Click (Send...