procedure N2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure RGFClick(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormMain: TFormMain;
implementation
uses All_Table, About_Pilot, About_Plane, Diagram_, Zapros, Report, Report1,
TranzitCyti, Route;
{$R *.DFM}
procedure TFormMain.N2Click(Sender: TObject);
begin
AllTable.Visible:=true
end;
procedure TFormMain.FormCreate(Sender: TObject);
begin
Table1.Active:=true;
Table2.Active:=true;
Table3.Active:=true;
RGF.ItemIndex:=0;
Table1.Filtered:=false;
end;
procedure TFormMain.FormDestroy(Sender: TObject);
begin
Table1.Active:=false;
Table2.Active:=false;
Table3.Active:=false;
end;
procedure TFormMain.RGFClick(Sender: TObject);
begin
Case RGF.ItemIndex of
0: Table1.Filtered:=false;
1:begin
Table1.Filter:='KindPlane=''Пасс*''';
Table1.Filtered:=true;
end;
2:begin
Table1.Filter:='KindPlane=''Груз*''';
Table1.Filtered:=true;
end;
3: begin
Table1.Filter:='KindPlane=''Запр*''';
Table1.Filtered:=true;
end;
end;
end;
procedure TFormMain.N12Click(Sender: TObject);
begin
if not AboutPilot.Visible then
AboutPilot.Visible:=true;
AboutPilot.BApplyUpdates.Enabled:=False;
AboutPilot.BCancelUpdates.Enabled:=false;
end;
procedure TFormMain.N5Click(Sender: TObject);
begin
AllTable.Table3.First;
AboutPlane.DBdate.Clear;
While not FormMain.Table3.EOF do
begin
Table3.Next;
end;
AboutPlane.DBdate.ItemIndex:=0;
Table3.First;
AboutPlane.Visible:=true;
end;
procedure TFormMain.N6Click(Sender: TObject);
begin
diagram.RGD.ItemIndex:=0;
diagram.Query1.Active:=false;
diagram.Query1.Active:=true;
diagram.Query2.Active:=false;
diagram.Query2.Active:=true;
diagram.Visible:=true;
end;
procedure TFormMain.N13Click(Sender: TObject);
begin
AboutProgram.ShowModal
end;
procedure TFormMain.N10Click(Sender: TObject);
begin
Zapr.Visible:=true;
end;
procedure TFormMain.Edit1Change(Sender: TObject);
begin
Table1.IndexFieldNames:= 'NumberFligth';
Table1.SetKey;
Table1.FieldByName('NumberFligth').AsString:= (Sender as TEdit).Text;
Table1.GoToNearest;
end;
procedure TFormMain.N8Click(Sender: TObject);
begin
FReport.QuickRep1.Preview
end;
procedure TFormMain.N9Click(Sender: TObject);
begin
FReport1.QuickRep1.Preview
end;
procedure TFormMain.N11Click(Sender: TObject);
begin
Close
end;
procedure TFormMain.N4Click(Sender: TObject);
begin
TranzCyti.Visible:=true
end;
procedure TFormMain.N14Click(Sender: TObject);
begin
FRoute.Visible:=true
end;
end.