unit_main.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Main;

interface

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

type
  TFrmMain = class(TForm)
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    N1: TMenuItem;
    L1: TMenuItem;
    U1: TMenuItem;
    X1: TMenuItem;
    M1: TMenuItem;
    H1: TMenuItem;
    B1: TMenuItem;
    Q1: TMenuItem;
    S1: TMenuItem;
    O1: TMenuItem;
    O2: TMenuItem;
    N3: TMenuItem;
    DDIS1: TMenuItem;
    WHATT1: TMenuItem;
    DDISA1: TMenuItem;
    Image1: TImage;
    procedure L1Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure Q1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);
    procedure O2Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses Unit_Login, Unit_Modify, Unit_Small, Unit_Maintain, Unit_Sstatics,
  Unit_Common, unit_DataM, Unit_Adduser, Unit_Addorg, Unit_config;

{$R *.dfm}

procedure TFrmMain.L1Click(Sender: TObject);
begin
   FrmLogin.ShowModal;
end;
procedure TFrmMain.U1Click(Sender: TObject);
begin
FrmModify.ShowModal;
end;

procedure TFrmMain.X1Click(Sender: TObject);
begin
    FrmMain.Close;
end;

procedure TFrmMain.B1Click(Sender: TObject);
begin
  FrmSmall.ShowModal;
end;

procedure TFrmMain.Q1Click(Sender: TObject);
begin
    FrmMaintain.ShowModal;
end;

procedure TFrmMain.S1Click(Sender: TObject);
begin
FrmStatics.ShowModal;
end;

procedure TFrmMain.O2Click(Sender: TObject);
begin
frmadduser.ShowModal;
end;

procedure TFrmMain.O1Click(Sender: TObject);
begin
  frmaddorg.ShowModal;
end;

procedure TFrmMain.N3Click(Sender: TObject);
begin
FrmConfig.ShowModal;
end;

end.