Geum.ru

Справочная система маршрутов общественного транспорта

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

tton2Click(Sender: TObject);Button3Click(Sender: TObject);:integer ;:integer;:integer;:integer;:integer;:integer;:integer;

 

;

: TForm2;

 

Unit3, Unit4, Unit5, Unit6;

 

{$R *.dfm}TForm2.Button1Click(Sender: TObject);.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: TColumn);:=table5.Fields[0].Value;.Text:=table5.Fields[1].Value;.Visible:=false;;TForm2.Button2Click(Sender: TObject);

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

elseb=2 then.Close;.FindKey([p]);.insert;.Fields[0].Value:=p;.Fields[1].Value:=Mar;.Fields[2].Value:=Model;.Fields[3].Value:=Ost;.Post;.Open;.Close;.Open;:=0;

.Append;.Last;:=table1.Fields[0].Value;.insert;.Fields[1].Value:=Mar;.Fields[2].Value:=Model;.Fields[3].Value:=Ost;.Post;.Close;.Open;.Close;.Open;;.Text:=Код автобуса;.Text:=Номер Маршрута;.Text:=Модель;.Text:=Автопредприятие;

;

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: TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;TForm4.Button2Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;;.

 

Форма 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);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;TForm6.Button3Click(Sender: TObject);.FindKey([nz]);.Delete;.Close;.Open;;

end.