main.~pas

来自「DELPHI光盘实例.用户登录管理,数据库的创新,如何制作报表等等.」· ~PAS 代码 · 共 69 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Menus, ComCtrls;

type
  Tmain_Form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N3: TMenuItem;
    N31: TMenuItem;
    N4: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N5: TMenuItem;
    N51: TMenuItem;
    Database1: TDatabase;
    StatusBar1: TStatusBar;
    procedure N11Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
 dlname:string;
  end;


var
  main_Form: Tmain_Form;

implementation

uses login;

{$R *.dfm}

procedure Tmain_Form.N11Click(Sender: TObject);
begin
    Application.CreateForm(Tlogin_form, login_Form);
    login_form.Show;
    N11.Enabled:=false;
end;

procedure Tmain_Form.N14Click(Sender: TObject);
begin
    close;
end;

procedure Tmain_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        if MessageDlg('你确认要退出系统吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes THEN
        ACTION:=caFree
    ELSE
        ACTION:=caNone;
end;

end.