main.pas

一个仓库管理软件包括,仓库入库,仓库出库,库存信息,单据审核,反审核等功能.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, Menus, ExtCtrls, Buttons, jpeg, SUITitleBar,
  SUIImagePanel;

type
  TFrmMain = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses BomExp, ImSTExp, ExSTExp, database, about, MyMath, User;

{$R *.dfm}

procedure TFrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmMain := nil;
  Action:=cafree;
  Application.Terminate;
end;

procedure TFrmMain.SpeedButton1Click(Sender: TObject);
begin
  if assigned(FrmUser)=false then
    FrmUser:=TFrmUser.Create(self);
  FrmUser.FormStyle:=fsMDIChild;
  FrmUser.Show;
  FrmUser.BringToFront;
end;

procedure TFrmMain.SpeedButton7Click(Sender: TObject);
begin
  if assigned(FrmExSTExp)=false then
    FrmExSTExp:=TFrmExSTExp.Create(self);
  FrmExSTExp.FormStyle:=fsMDIChild;
  FrmExSTExp.Show;
  FrmExSTExp.BringToFront;
end;

procedure TFrmMain.SpeedButton8Click(Sender: TObject);
begin
  if assigned(frmBomExp)=false then
    frmBomExp:=TfrmBomExp.Create(self);
  frmBomExp.FormStyle:=fsMDIChild;
  frmBomExp.Show;
  frmBomExp.BringToFront;
end;

procedure TFrmMain.SpeedButton10Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmMain.SpeedButton9Click(Sender: TObject);
begin
  try
    Frmabout:=TFrmabout.Create(self);
    Frmabout.ShowModal
  finally
    Frmabout.Free;
  end;
end;

procedure TFrmMain.FormShow(Sender: TObject);
begin
  StatusBar1.Panels[1].Text:='操作员:'+gLoginName;
  StatusBar1.Panels[2].Text:='登陆时间:'+gLoginTime;
end;

procedure TFrmMain.SpeedButton6Click(Sender: TObject);
begin
  if assigned(FrmImSTExp)=false then
    FrmImSTExp:=TFrmImSTExp.Create(self);
  FrmImSTExp.FormStyle:=fsMDIChild;
  FrmImSTExp.Show;
  FrmImSTExp.BringToFront;
end;

procedure TFrmMain.N2Click(Sender: TObject);
begin
  Close;
end;

end.