mainfrm.~pas

适合新手 绝对精品 仓库管理系统 本人花钱购买来的源代

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls,
  Jpeg, Menus, ToolWin;

type
  TfrmMain = class(TForm)
    mmMain: TMainMenu;
    miJbda: TMenuItem;
    miCkgl: TMenuItem;
    miCxxt: TMenuItem;
    miXtgn: TMenuItem;
    miCxdl: TMenuItem;
    stsMain: TStatusBar;
    btnClose: TMenuItem;
    imgMain: TImage;
    
    procedure FormShow(Sender: TObject);
    procedure miJbdaClick(Sender: TObject);
    procedure miCkglClick(Sender: TObject);
    procedure miCxxtClick(Sender: TObject);
    procedure miXtgnClick(Sender: TObject);
    procedure miCxdlClick(Sender: TObject);
    procedure miAboutClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
    procedure DisplayForm(FormClass: TFormClass);
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses JbdaFrm,
     CkglFrm,
     SystemFrm,
     QueryFrm,
     AboutFrm,
     ConstUnt
     ;

{$R *.DFM}

procedure TfrmMain.FormShow(Sender: TObject);

const
  LogonStyle = '%s - [登陆用户： %s]';

begin
  //设置窗体标题
  Caption := AppTitle;

  with LogonInf do
    Caption := Format(LogonStyle, [Caption, UserName]);

  //设置状态条标题
  with stsMain.Panels[0] do
    Text := Format(Text, [AppTitle]);

end;

procedure TfrmMain.miJbdaClick(Sender: TObject);
begin
  //调用函数创建并显示用于基本档案管理的窗体TfrmJbda
  DisplayForm(TfrmJbda);

end;

procedure TfrmMain.miCkglClick(Sender: TObject);
begin

  DisplayForm(TfrmCkgl);

end;

procedure TfrmMain.miCxxtClick(Sender: TObject);
begin

  DisplayForm(TfrmQuery);
    
end;

procedure TfrmMain.miXtgnClick(Sender: TObject);
begin

  DisplayForm(TfrmSystem);

end;

procedure TfrmMain.miCxdlClick(Sender: TObject);
begin
  //弹出窗口，要求用户确定是否重新登录
  if MessageBox(Handle, PChar(ReLogon), MsgQ, Msg2QBTN) = IDNO then
    Exit;
  //中止该系统的运行
  Application.Terminate;
  //重新启动仓库管理系统
  WinExec('Ckgl.exe', 0);

end;

procedure TfrmMain.miAboutClick(Sender: TObject);
begin
  DisplayForm(TfrmAbout);
  
end;

procedure TfrmMain.btnCloseClick(Sender: TObject);
begin
  if MessageBox(Handle, PChar(CloseInf), MsgQ, Msg2QBTN) = IDYES then
    Application.Terminate;

end;

procedure TfrmMain.DisplayForm(FormClass: TFormClass);
begin
  //创建窗体FormClass
  with FormClass.Create(Self) do
    try
      //显示窗体FormClass
      ShowModal;
    finally
      //释放FormClass窗体资源
      Free;
    end;
end;

end.