Реферат Довідкова система маршрутів громадського транспорту

Close;;

TForm2.Edit2MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = true;;

TForm2.DBGrid2CellClick (Column: TColumn);: = table2.Fields [0]. Value;. Text: = table2.Fields [0]. Value;. Visible: = false;;

TForm2.Edit1MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = true;;

TForm2.Edit3MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = true;;

TForm2.Edit4MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: = true;;

TForm2.DBGrid3CellClick (Column: TColumn);: = table3.Fields [0]. Value;. Text: = table3.Fields [1]. Value;. Visible: = false;;

TForm2.DBGrid4CellClick (Column: TColumn);: = table4.Fields [0]. Value;. Text: = table4.Fields [1]. Value;. Visible: = false;;

TForm2.DBGrid5CellClick (Column: TObject);

(edit1.Text ='') or (edit2.Text ='') (edit3.Text ='') or (edit4.Text ='') showmessage ('Введіть всі дані!' )

elseb = 2

;

TForm2.Button3Click (Sender: TObject);. FindKey ([p]);. Delete;. Close;. Open;. Close;. Open;;

.

Форма 3 - АвтопредпріятіеUnit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, jpeg; = class (TForm) : TImage;: TTable;: TDataSource;: TDBGrid;: TDBNavigator;: TButton;: TButton;: TButton; Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject);: integer;: integer ;

{Public declarations};

: TForm3;

{$ R *. dfm} TForm3.Button3Click (Sender: TObject);. Close;; TForm3.Button1Click (Sender: TObject);. Last;: = Table1.Fields [0]. Value +1;. Insert;. Append;. Fields [0]. Value: = P;;

TForm3.Button2Click (Sender: TObject);. FindKey ([nz]);. Delete;. Close;. Open;; end.

Форма 4 - Зупинка

unit Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls; = class (TForm): TImage;: TButton;: TButton;: TButton;: TDataSource;: TDBGrid;: TTable; Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject);: integer;: integer;

{Public declarations};: TForm4;

{$ R *. dfm} TForm4.Button3Click (Sender: TObject);. Close;; TForm4.Button1Click (Sender: T...