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

Object);. FindKey ([nz]);. Delete;. Close;. Open;;. br/>

Форма 5 - Маршрут

unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DBTables, DB, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg; = class (TForm): TImage ;: TDBGrid;: TDBNavigator;: TTable;: TQuery;: TButton;: TDataSource; Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm5;

{$ R *. dfm} TForm5.Button1Click (Sender: TObject);. Close;;.

Форма 6 - Модель

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

{Public declarations};: TForm6;

{$ R *. dfm} TForm6.Button1Click (Sender: TObject);. close;; TForm6.Button2Click (Sender: TObject);. FindKey ([nz]);. Delete;. Close;. Open;;

end.