br/>
unit Unit1; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, Unit2, Unit3, Unit4, Unit5, Unit6, StdCtrls, jpeg, ExtCtrls; = class ( TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TImage;: TButton;: TButton;: TButton;: TButton; : TButton;: TButton; N4Click (Sender: TObject); N3Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); N7Click (Sender: TObject); N8Click (Sender: TObject); N9Click ( Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button6Click (Sender: TObject); Button5Click (Sender: TObject);
{Private declarations}
{Public declarations};
: TForm1;
{$ R *. dfm} TForm1.N4Click (Sender: TObject);. Close;;
TForm1.N3Click (Sender: TObject);. WindowState: = wsMinimized;; TForm1.N5Click (Sender: TObject);. Show;; TForm1.N6Click (Sender: TObject);. Show;; TForm1.N7Click (Sender: TObject);. Show;; TForm1.N8Click (Sender: TObject);. Show;; TForm1.N9Click (Sender: TObject);. show;; TForm1.Button1Click (Sender: TObject);. Show ;; TForm1.Button2Click (Sender: TObject);. Show;; TForm1.Button3Click (Sender: TObject);. Show;; TForm1.Button4Click (Sender: TObject);. Show;; TForm1.Button6Click (Sender: TObject); . Close;;
TForm1.Button5Click (Sender: TObject);. Show;;.
Форма 2 - Автобус
Unit2;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, Grids, DBGrids, DBTables, jpeg, ExtCtrls;
= class (TForm): TImage;: TTable;: TDBGrid;: TButton;: TQuery;: TDataSource;: TEdit;: TEdit;: TEdit;: TEdit;: TDBGrid;: TDBGrid;: TDBGrid;: TDBGrid;: TButton;: TButton;: TTable;: TTable;: TTable;: TTable;: TDataSource;: TDataSource;: TDataSource;: TDataSource; Button1Click (Sender: TObject); Edit2MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); DBGrid2CellClick (Column: TColumn); Edit1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Edit3MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Edit4MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); DBGrid3CellClick (Column: TColumn); DBGrid4CellClick (Column: TColumn); DBGrid5CellClick (Column: TColumn); Button2Click (Sender: TObject); Button3Click (Sender: TObject);: integer;: integer;: integer;: integer;: integer;: integer;: integer;
;
: TForm2;
Unit3, Unit4, Unit5, Unit6;
{$ R *. dfm} TForm2.Button1Click (Sender: TObject);. ...
