choseplace.pas

来自「delphi+sql server 我是delphi的初学者」· PAS 代码 · 共 92 行

unit choseplace;

interface

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

type
  Tfrmchoseplace = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    StatusBar1: TStatusBar;
    Splitter1: TSplitter;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchoseplace: Tfrmchoseplace;

implementation
USES  UDM,LOGIN;
{$R *.dfm}

procedure Tfrmchoseplace.SpeedButton2Click(Sender: TObject);
begin
 MessageBox(Handle,'确认要退出系统吗？','系统提示',MB_OKCANCEL+MB_OK);
 Application.Terminate;
end;

procedure Tfrmchoseplace.FormShow(Sender: TObject);
begin
   StatusBar1.Panels[0].Text:='此系统由本人独立完成，如有问题请予我联系。 电话：[phone]';
   StatusBar1.Panels[1].Text:='当前时间：'+formatdatetime('yyyy-mm-dd',now);
end;

procedure Tfrmchoseplace.SpeedButton1Click(Sender: TObject);
begin
 FRMLOGIN:=TFRMLOGIN.Create(Self);
 FRMLOGIN.Label4.Caption:='欢迎登陆西京前台票据核销系统';
 DM.HDM:='01';
 dm.HMC:='前台';
 FRMLOGIN.ShowModal;
 FreeAndNil(FRMLOGIN);
end;

procedure Tfrmchoseplace.SpeedButton5Click(Sender: TObject);
begin
 FRMLOGIN:=TFRMLOGIN.Create(Self);
 FRMLOGIN.Label4.Caption:='欢迎登陆西京大堂吧票据核销系统';
 DM.HDM:='02';
 dm.HMC:='大堂吧';
 FRMLOGIN.ShowModal;
 FreeAndNil(FRMLOGIN);
end;

procedure Tfrmchoseplace.SpeedButton4Click(Sender: TObject);
begin
 FRMLOGIN:=TFRMLOGIN.Create(Self);
 FRMLOGIN.Label4.Caption:='欢迎登陆西京西餐厅票据核销系统';
 DM.HDM:='03';
 dm.HMC:='西餐厅';
 FRMLOGIN.ShowModal;
 FreeAndNil(FRMLOGIN);
end;

procedure Tfrmchoseplace.SpeedButton3Click(Sender: TObject);
begin
 FRMLOGIN:=TFRMLOGIN.Create(Self);
 FRMLOGIN.Label4.Caption:='欢迎登陆西京康乐部票据核销系统';
 DM.HDM:='04';
 dm.HMC:='康乐部';
 FRMLOGIN.ShowModal;
 FreeAndNil(FRMLOGIN);
end;

end.