mainform.pas

来自「一个物流公司的物流配送系统」· PAS 代码 · 共 154 行

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, Buttons, ToolWin, ComCtrls, StdCtrls, DB, ADODB,
  comobj;

type
  TFrmMain = class(TForm)
    CoolBar1: TCoolBar;
    TdrBtn: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton10: TSpeedButton;
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Timer: TTimer;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    MainMenu: TMainMenu;
    inputMenu: TMenuItem;
    lbItemMenu: TMenuItem;
    sbItemMenu: TMenuItem;
    crkItemMenu: TMenuItem;
    bbckMenu: TMenuItem;
    rbItemMenu: TMenuItem;
    N1: TMenuItem;
    passItemMenu: TMenuItem;
    N2: TMenuItem;
    aboutItemMenu: TMenuItem;
    N3: TMenuItem;
    procedure TimerTimer(Sender: TObject);
    procedure lbItemMenuClick(Sender: TObject);
    procedure sbItemMenuClick(Sender: TObject);
    procedure TdrBtnClick(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure crkItemMenuClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure rbItemMenuClick(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;


implementation

uses ShareData, lxForm, spForm, crkForm, rbForm, ypybForm;


{$R *.dfm}



procedure TFrmMain.TimerTimer(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='当前时间：'+timetostr(now);
end;

procedure TFrmMain.lbItemMenuClick(Sender: TObject);
begin
Frmlx:=TFrmlx.Create(self);
Frmlx.Showmodal;
end;

procedure TFrmMain.sbItemMenuClick(Sender: TObject);
begin
Frmsp:=TFrmsp.Create(self);
Frmsp.ShowModal;
end;

procedure TFrmMain.TdrBtnClick(Sender: TObject);
begin
Frmlx:=TFrmlx.Create(self);
Frmlx.Showmodal;
end;

procedure TFrmMain.SpeedButton8Click(Sender: TObject);
begin
Frmsp:=TFrmsp.Create(self);
Frmsp.ShowModal;
end;

procedure TFrmMain.crkItemMenuClick(Sender: TObject);
begin
Frmcrk:=TFrmcrk.Create(self);
Frmcrk.ShowModal;
end;

procedure TFrmMain.SpeedButton6Click(Sender: TObject);
begin
Frmcrk:=TFrmcrk.Create(self);
Frmcrk.ShowModal;
end;

procedure TFrmMain.SpeedButton11Click(Sender: TObject);
begin
Frmrb:=TFrmrb.Create(self);
Frmrb.ShowModal;
end;

procedure TFrmMain.SpeedButton12Click(Sender: TObject);
begin
Frmypyb:=TFrmypyb.Create(self);
Frmypyb.ShowModal;
end;

procedure TFrmMain.rbItemMenuClick(Sender: TObject);
begin
Frmrb:=TFrmrb.Create(self);
Frmrb.ShowModal;
end;

procedure TFrmMain.N3Click(Sender: TObject);
begin
Frmypyb:=TFrmypyb.Create(self);
Frmypyb.ShowModal;
end;

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

end.