mainunit.pas

航班管理

unit mainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, ComCtrls, ToolWin, Menus, jpeg;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Image1: TImage;
    Image2: TImage;
    N10: TMenuItem;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses CKDPUnit, HBSKUnit, HBXXUnit, aboutUnit, loginUnit, BJUnit, bbUnit;

{$R *.dfm}

procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
  if messagedlg('你确认要退出吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
  begin
  close;
  form3.close;
  end
end;

procedure TForm2.N2Click(Sender: TObject);
begin
   form4.show;
   form4.ADOTable1.Active:=true;
   form4.ADOTable2.Active:=true;
   form4.ADOTable3.Active:=true;
   form4.Label11.Width:=69;
   form4.DBEdit4.Enabled:=false;
   form4.DBEdit5.Enabled:=false;
   form4.DBEdit8.Enabled:=false;
   form4.DBEdit7.Enabled:=false;
   form4.DBEdit1.Enabled:=false;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
  form5.show;
  form5.ADOQuery1.Active:=true;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
  form6.ADODataSet1.Close;
  form6.ADODataSet1.Open;
  form6.ADODataSet1.Refresh;
  form6.ADODataSet1.Active:=true;
  form6.show;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
  form7.show;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
  form9.show;
  form9.ADOTable1.Active:=true; 
end;


procedure TForm2.N10Click(Sender: TObject);
begin
    form10.ADOTable1.Close;
    form10.ADOTable1.Open;
    form10.ADOTable1.Refresh;
    form10.QuickRep1.Preview;
    form10.ADOTable1.Active:=true;
end;

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
    form10.ADOTable1.Close;
    form10.ADOTable1.Open;
    form10.ADOTable1.Refresh;
    form10.QuickRep1.Preview;
end;

end.