主窗体代码:
unit Unit3;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,Menus, jpeg, ExtCtrls;
type
TfrmUserMana = class(TForm)
MainMenu1: TMainMenu;
mniUser: TMenuItem;
mniHelp: TMenuItem;
mniUserLogin: TMenuItem;
mniUserExit: TMenuItem;
mniHelpHelp: TMenuItem;
mniHelpAbout: TMenuItem;
imgLogin: TImage;
procedure mniUserLoginClick(Sender: TObject);
procedure mniHelpAboutClick(Sender: TObject);
procedure mniUserExitClick(Sender: TObject);
procedure frmUserManaCloseQuery(Sender: TObject;
var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmUserMana: TfrmUserMana;
implementation
uses
Unit1,Unit4;
{$R *.dfm}
//用户登录
procedure TfrmUserMana.mniUserLoginClick(Sender: TObject);
begin
Application.CreateForm(TfrmLogin,frmLogin);
frmLogin.Show;
end;
//“帮助-关于”菜单项点击事件处理过程
procedure TfrmUserMana.mniHelpAboutClick(Sender: TObject);
begin
Application.CreateForm(TfrmAbout,frmAbout);
frmAbout.Show;
end;
//“用户-退出”菜单项点击事件处理过程
procedure TfrmUserMana.mniUserExitClick(Sender: TObject);
begin
//终止应用程序
Application.Terminate;
end;
procedure TfrmUserMana.frmUserManaCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if MessageBox(Handle, '确定退出吗?', '确认信息框',MB_OKCANCEL) = 1 then
CanClose := True
else
CanClose := False;
end;
end.
登录窗体代码:
unit Unit1;
interface
uses