n2Click (Sender: TObject);. Hide;. show;; TForm8. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , StdCtrls; = class (TForm): TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton; Button5Click (Sender: TObject); Button3Click (Sender: TObject); Button1Click (Sender: TObject); FormShow (Sender: TObject); Button2Click (Sender: TObject); Button4Click (Sender: TObject); Button6Click (Sender: TObject); Button7Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm9; Unit8, Unit1, Unit7, Unit11, Unit12, Unit15;
{$ R *. dfm} TForm9. Button5Click (Sender: TObject);. show;. Hide;; TForm9. Button3Click (Sender: TObject);. Terminate;; TForm9. Button1Click (Sender: TObject);. Hide;. show;; TForm9. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm9. Button2Click (Sender: TObject);. show;. Hide;; TForm9. Button4Click (Sender: TObject);. hide;. show;; TForm9. Button6Click (Sender: TObject);. Hide;. show;; TForm9. Button7Click (Sender: TObject);. show;. Hide;;. Unit10;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, Mask, DBCtrls, ExtCtrls; = class (TForm): TDBGrid;: TDBNavigator;: TADOTable;: TADOConnection;: TDataSource;: TButton; Id: TAutoIncField; Tip_Mashini: TWideStringField; Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormShow (Sender: TObject);
{Private declarations}
{Public declarations};
// id: string;: TForm10; Unit7;
{$ R *. dfm} TForm10. Button2Click (Sender: TObject);. Hide;. show;; TForm10. Button1Click (Sender: TObject);: string;; TForm10. FormShow (Sender: TObject);: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;;. Unit11;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, , DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls; = class (TForm): TDBGrid;: TButton;: TButton;: TADOConnection;: TDataSource;: TButton;
ADOTable1: TADOTable;: TADOTable;: TADOTable;
ADOTable4: TADOTable; Id: TAutoIncField; FIO_dispetcher: TWideStringField; Id_postradavshego: TAutoIncField; FIO_postradavshego: TWideStringField; Phone: TWideStringField; Adres: TWideStringField; Id: TAutoIncField; Id_Informaciy_o_vizovax: TWideStringField; Id_brigadi: TWideStringField;: TADOTable;: TADOTable; Id : TAutoIncField; Dispetcher: TWideStringField; Postradavshiy: TWideStringField; Data: TWideStringField; Posledstvie: TWideStringField; Field: TStringField; Field2: TStringField; StringField1: TStringField; Field3: TStringField; Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormShow (Sender: TObject); Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button5Click (Sender: TObject);
{Private declarations}
{Publi...
