mainfrm.pas

仓库管理Delphi源码、软件方案,学习实用两不误

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;
    miAbout: 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

  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
  with FormClass.Create(Self) do
    try
      ShowModal;
    finally
      Free;
    end;
end;

end.