mainform.pas

酒店管理系统

unit mainform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LabelButton, ExtCtrls, HemisphereButton, LvNeoForm,
  DB, DBTables, jpeg, ComCtrls;

type
  Tmainfor = class(TForm)
    LvNeoForm1: TLvNeoForm;
    HemiBtn1: THemiBtn;
    HemiBtn2: THemiBtn;
    HemiBtn3: THemiBtn;
    HemiBtn4: THemiBtn;
    HemiBtn5: THemiBtn;
    HemiBtn6: THemiBtn;
    HemiBtn7: THemiBtn;
    HemiBtn8: THemiBtn;
    Panel1: TPanel;
    LabelBtn7: TLabelBtn;
    Image1: TImage;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    procedure HemiBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure HemiBtn3Click(Sender: TObject);
    procedure HemiBtn7Click(Sender: TObject);
    procedure HemiBtn8Click(Sender: TObject);
    procedure HemiBtn5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure HemiBtn4Click(Sender: TObject);
    procedure HemiBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HemiBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfor: Tmainfor;

implementation

uses JHsystem, JGP, Unit1, abc, Unit16, Unit17, Unit18;

{$R *.dfm}

procedure Tmainfor.HemiBtn1Click(Sender: TObject);
begin
mainfor.WindowState:=wsminimized;
form2.ShowModal;

end;

procedure Tmainfor.FormShow(Sender: TObject);
begin
mainfor.Left:=162;
mainfor.Top:=84;
end;

procedure Tmainfor.HemiBtn3Click(Sender: TObject);
begin
mainfor.WindowState:=wsminimized;
form12.showmodal;
end;

procedure Tmainfor.HemiBtn7Click(Sender: TObject);
begin
mainfor.WindowState:=wsMinimized;
workersys.showmodal;
end;

procedure Tmainfor.HemiBtn8Click(Sender: TObject);
begin
mainfor.Close;
end;

procedure Tmainfor.HemiBtn5Click(Sender: TObject);
begin
mainfor.WindowState:=wsMinimized;
aaa.showmodal;
end;

procedure Tmainfor.Timer1Timer(Sender: TObject);
begin
if panel1.Font.Color=clred then
panel1.Font.Color:=clblue
else
if panel1.Font.Color=clblue then
panel1.Font.Color:=clyellow
else
panel1.Font.Color:=clred;

end;

procedure Tmainfor.HemiBtn4Click(Sender: TObject);
begin
form16.ShowModal;
end;

procedure Tmainfor.HemiBtn6Click(Sender: TObject);
begin
if statusbar1.Panels[1].Text='状态：还没有登录' then
form17.ShowModal
else
if messagebox(mainfor.handle,'你确实要注销此管理员吗？','注销',mb_yesno+mb_iconquestion)=mryes then
begin
mainfor.HemiBtn1.Enabled:=false;
mainfor.HemiBtn2.Enabled:=false;
mainfor.HemiBtn3.Enabled:=false;
mainfor.HemiBtn4.Enabled:=false;
mainfor.HemiBtn5.Enabled:=false;
mainfor.HemiBtn7.Enabled:=false;
mainfor.LabelBtn7.Caption:='登录';
statusbar1.Panels[1].Text:='状态：还没有登录';
end;
end;

procedure Tmainfor.FormCreate(Sender: TObject);
begin
statusbar1.Panels[2].Text:=datetostr(date)+datetostr(time);
end;

procedure Tmainfor.HemiBtn2Click(Sender: TObject);
begin
form18.showmodal;
end;

end.