main.~pas

直接可以编译运行

unit main;

interface

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

type
  Tmain1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N6: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N17: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main1: Tmain1;

implementation
uses login,Apublic,mysys, Umysys,onmessa,fmessa,uname,about;

{$R *.dfm}

procedure Tmain1.N2Click(Sender: TObject);
begin
login1:=Tlogin1.Create(nil);
login1.ShowModal;
login_user:='out';
login1.Free;
end;

procedure Tmain1.N3Click(Sender: TObject);
begin
login1:=Tlogin1.Create(nil);
login1.ShowModal;
login_user:='out';
login1.Free;
end;

procedure Tmain1.FormActivate(Sender: TObject);
begin
if login_user='out' then
begin
login1:=Tlogin1.Create(nil);
login1.ShowModal;
login1.Free;
end;
end;

procedure Tmain1.N4Click(Sender: TObject);
begin
mysys1:=Tmysys1.Create(nil);
mysys1.ShowModal;

end;

procedure Tmain1.N5Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure Tmain1.N7Click(Sender: TObject);
begin
if login_admin='admin' then
begin
Umysys1:=TUmysys1.Create(nil);
Umysys1.ShowModal;
Umysys1.Free;
end
else
ShowMessage('不是超级用户不能用此功能!');
end;

procedure Tmain1.N8Click(Sender: TObject);
begin
onmessa1:=Tonmessa1.Create(nil);
onmessa1.ShowModal;
onmessa1.Free;

end;

procedure Tmain1.N9Click(Sender: TObject);
begin
fmessa1:=Tfmessa1.Create(nil);
fmessa1.ShowModal;
fmessa1.Free;
end;

procedure Tmain1.N14Click(Sender: TObject);
begin
about1:=Tabout1.Create(nil);
about1.ShowModal;
about1.Free;
end;

procedure Tmain1.N17Click(Sender: TObject);
begin
uname1:=Tuname1.Create(nil);
uname1.ShowModal;
uname1.Free;
end;

end.