Delphi练习四——窗体间跳转（用户登录）

主窗体代码：

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