jbtsunit.pas

集成酒店桑拿食管管理的完整程序

unit jbtsUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TjbtsForm = class(TForm)
    Panel1: TPanel;
    lable2: TLabel;
    Panel2: TPanel;
    Timer1: TTimer;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Panel1DblClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jbtsForm: TjbtsForm;

implementation

{$R *.DFM}
 uses dataproc,djmenu,login;
procedure TjbtsForm.FormShow(Sender: TObject);
begin
  lable2.Caption:=curper.name;
  lable2.Left:=strtoint(floattostr(int((jbtsForm.Width-lable2.Width)/2)));
end;

procedure TjbtsForm.Timer1Timer(Sender: TObject);
begin
      Panel1.Font.Size:=Panel1.Font.Size+5;
      if Panel1.Font.Size<=15 then
      Panel1.Font.Color:=clBlue;
      if (Panel1.Font.Size>15)and(Panel1.Font.Size<=30)  then
      Panel1.Font.Color:=clyellow;
      if (Panel1.Font.Size>30) then
      Panel1.Font.Color:=clred;
      if Panel1.Font.Size>70 then Panel1.Font.Size:=15;

end;

procedure TjbtsForm.Panel1DblClick(Sender: TObject);
begin
   close;
   djmenu.menu.ListView1.Items.Clear;
   djmenu.menu.ListView2.Items.Clear;
   djmenu.menu.n10.Enabled :=false;
   djmenu.menu.x0.enabled:=false;
   djmenu.menu.x1.enabled:=false;
   djmenu.menu.x3.enabled:=false;
   djmenu.menu.x7.enabled:=false;
   djmenu.menu.t0.enabled:=false;
   djmenu.menu.t1.enabled:=false;
   djmenu.menu.z0.enabled:=false;
   djmenu.menu.z1.enabled:=false;
   djmenu.menu.v0.enabled:=false;
   djmenu.menu.c0.enabled:=false;
   djmenu.menu.f0.enabled:=false;
   djmenu.menu.x5.Enabled :=false;
   djmenu.menu.m0.Enabled :=false;
   djmenu.menu.m1.Enabled :=false;
    addlogo(curper.code,datetimetostr(now),curper.name+' 下班');
  { Application.CreateForm(Tlog, log);
   log.showmodal; }
  if curper.code<>'' then
   curper.code:='';
   curper.offduty:='下班' ;
   djmenu.menu.Timer1.Enabled:=true;

end;

procedure TjbtsForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then
   Panel1DblClick(nil);

end;

end.