unitmain.~pas

小型仓库管理系统

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, ComCtrls;

type
  TfmMain = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    SpeedButton11: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses UnitM, UnitG, Units, UnitT, UnitN, UnitF,unitGY, UnitBF, UnitC, UnitCK;

{$R *.dfm}

procedure TfmMain.SpeedButton1Click(Sender: TObject);
begin
  fmM.Show;
  fmMain.hide;
end;

procedure TfmMain.SpeedButton2Click(Sender: TObject);
begin
  fmG.Show;
  fmMain.hide;
end;

procedure TfmMain.SpeedButton3Click(Sender: TObject);
begin
  fmS.Show;
  fmMain.hide;
end;

procedure TfmMain.SpeedButton4Click(Sender: TObject);
begin
  fmT.Show;
   fmMain.hide;
end;

procedure TfmMain.SpeedButton5Click(Sender: TObject);
begin
   fmN.Show;
   fmMain.hide;
end;

procedure TfmMain.SpeedButton6Click(Sender: TObject);
begin
  fmF.Show;
   fmMain.hide;
end;

procedure TfmMain.SpeedButton7Click(Sender: TObject);
begin
  fmMain.Hide;
  fmGY.show;
end;

procedure TfmMain.SpeedButton8Click(Sender: TObject);
begin
  fmBF.show;
  fmMain.Hide;
end;

procedure TfmMain.SpeedButton9Click(Sender: TObject);
begin
  fmMain.Hide;
  fmC.show;
end;

procedure TfmMain.SpeedButton10Click(Sender: TObject);
begin
  fmCK.show;
  fmMain.Close;
end;

procedure TfmMain.Timer1Timer(Sender: TObject);
begin
  statusBar1.Panels[3].Text:='    '+formatdatetime('yyyy-mm-dd',now);
end;

end.