main.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit main;

interface

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

type
  TmainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N3: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N4: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    yhm,qx:string;
  end;

var
  mainForm: TmainForm;

implementation

uses usergl, password, yggl, setzw, setzc, setother, addgzb, gzgl, gztj, login;

{$R *.dfm}

procedure TmainForm.N11Click(Sender: TObject);
begin
    Application.CreateForm(Tusergl_form, usergl_Form);
    usergl_form.Show;
    N11.Enabled:=false;
end;

procedure TmainForm.N12Click(Sender: TObject);
begin
    Application.CreateForm(Tpassword_form, password_Form);
    password_form.Show;
    N12.Enabled:=false;
end;

procedure TmainForm.N13Click(Sender: TObject);
begin
    close;
end;

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

procedure TmainForm.N21Click(Sender: TObject);
begin
    Application.CreateForm(Tyggl_form, yggl_Form);
    yggl_form.Show;
    N21.Enabled:=false;
end;

procedure TmainForm.N31Click(Sender: TObject);
begin
    Application.CreateForm(Tsetzw_form, setzw_Form);
    setzw_form.ShowModal;
end;

procedure TmainForm.N32Click(Sender: TObject);
begin
    Application.CreateForm(Tsetzc_form, setzc_Form);
    setzc_form.ShowModal;
end;

procedure TmainForm.N33Click(Sender: TObject);
begin
    Application.CreateForm(Tsetother_form, setother_Form);
    setother_form.ShowModal;
end;

procedure TmainForm.N41Click(Sender: TObject);
begin
    Application.CreateForm(Taddgzb_form, addgzb_Form);
    addgzb_form.ShowModal;
end;

procedure TmainForm.N42Click(Sender: TObject);
begin
    Application.CreateForm(Tgzgl_form, gzgl_Form);
    gzgl_form.Show;
    N42.Enabled:=false;
end;

procedure TmainForm.N43Click(Sender: TObject);
begin
    Application.CreateForm(Tgztj_form, gztj_Form);
    gztj_form.Show;
    N43.Enabled:=false;
end;

end.