zxt.pas

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

unit zxt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ToolWin, Menus, ImgList, ExtCtrls;

type
  TZForm = class(TForm)
    MainMenu1: TMainMenu;
    n14: TMenuItem;
    n6: TMenuItem;
    n10: TMenuItem;
    N2w: TMenuItem;
    n15: TMenuItem;
    z0: TMenuItem;
    z1: TMenuItem;
    h0: TMenuItem;
    n24: TMenuItem;
    N4w: TMenuItem;
    n25: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    m0: TMenuItem;
    m1: TMenuItem;
    m2: TMenuItem;
    t0: TMenuItem;
    t1: TMenuItem;
    x0: TMenuItem;
    x1: TMenuItem;
    x3: TMenuItem;
    v0: TMenuItem;
    v1: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    ToolBar3: TToolBar;
    jh: TToolButton;
    jhth: TToolButton;
    ToolButton11: TToolButton;
    xs: TToolButton;
    xsth: TToolButton;
    ToolButton40: TToolButton;
    ybfy: TToolButton;
    xjfy: TToolButton;
    ToolButton6: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton16: TToolButton;
    ToolButton36: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Panel2: TPanel;
    ListView1: TListView;
    Panel3: TPanel;
    ListView2: TListView;
    Timer1: TTimer;
    t2: TMenuItem;
    x4: TMenuItem;
    x2: TMenuItem;
    z2: TMenuItem;
    z3: TMenuItem;
    z4: TMenuItem;
    z5: TMenuItem;
    z6: TMenuItem;
    m3: TMenuItem;
    m4: TMenuItem;
    m5: TMenuItem;
    m7: TMenuItem;
    Panel4: TPanel;
    z7: TMenuItem;
    m6: TMenuItem;
    c0: TMenuItem;
    c1: TMenuItem;
    c2: TMenuItem;
    c3: TMenuItem;
    c4: TMenuItem;
    z8: TMenuItem;
    z9: TMenuItem;
    n4: TMenuItem;
    n9: TMenuItem;
    n28: TMenuItem;
    n39: TMenuItem;
    n35: TMenuItem;
    n17: TMenuItem;
    v2: TMenuItem;
    v3: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure n6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure z1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure n15Click(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure v2Click(Sender: TObject);
    procedure n4Click(Sender: TObject);
    procedure t2Click(Sender: TObject);
    procedure z3Click(Sender: TObject);
    procedure z9Click(Sender: TObject);
    procedure z8Click(Sender: TObject);
    procedure z7Click(Sender: TObject);
    procedure n10Click(Sender: TObject);
    procedure n25Click(Sender: TObject);
    procedure n24Click(Sender: TObject);
    procedure x1Click(Sender: TObject);
    procedure x3Click(Sender: TObject);
    procedure z4Click(Sender: TObject);
    procedure v3Click(Sender: TObject);
    procedure z6Click(Sender: TObject);
    procedure m1Click(Sender: TObject);
    procedure m2Click(Sender: TObject);
    procedure m3Click(Sender: TObject);
    procedure m4Click(Sender: TObject);
    procedure m5Click(Sender: TObject);
    procedure m6Click(Sender: TObject);
    procedure m7Click(Sender: TObject);
    procedure x2Click(Sender: TObject);
    procedure z2Click(Sender: TObject);
    procedure z5Click(Sender: TObject);
    procedure v1Click(Sender: TObject);
    procedure x4Click(Sender: TObject);
    procedure c1Click(Sender: TObject);
    procedure c3Click(Sender: TObject);
    procedure c4Click(Sender: TObject);
    procedure c2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZForm: TZForm;
implementation

uses dataproc,about, login,  xfcx, djcx, unlkall, changepas,
  groupcx, sanhroom, newdj, newxf, hf,exitrm, seerz, addpos, zz,  newjzform,
  exitsan, roomhsan, jb1,jk,seejzlf, zdznozd, nozdzzd, fz, djqx, jzjz,
  lsrmcx, xgft, roomczl,  Rbcx, srbb, bbcx;
{$R *.DFM}

procedure TZForm.FormShow(Sender: TObject);
begin
    fm.Query2.Active :=false;
    fm.Query2.sql.clear;
    fm.Query2.sql.text:='select * from 使用单位';
    fm.Query2.prepare;
    fm.Query2.Open;
    if fm.Query2.eof then close;
    curper.sydw:=unpassname(fm.Query2.Fields[0].AsString);
    curper.workpath:='\\'+fm.Query2.Fieldbyname('服务器名').AsString+'\超微办公文档';
    curper.khfzbh:=fm.Query2.Fields[3].AsString;
    curper.mjfzbh:=fm.Query2.Fields[4].AsString;
    curper.zfzbh:=fm.Query2.Fields[5].AsString;
    fm.Query2.Active :=false;
    fm.Query2.sql.clear;
    zform.Caption:=zform.Caption+'('+curper.sydw+')';
    StatusBar1.Panels[0].Text:=curper.sydw;
    if curper.logid='' then
      F1Click(nil);
end;

procedure TZForm.n6Click(Sender: TObject);
begin
  n10.Enabled :=false;
  n5.enabled:=false;
  n2.enabled:=false;
  n1.enabled:=false;
  n8.enabled:=false;
  n41.enabled:=false;
  n42.enabled:=false;
  n27.Enabled :=false;
  if curper.code<>'' then
    addlogo(curper.code,datetimetostr(now),'退出系统');
  curper.code:='';
  Application.CreateForm(Tlog, log);
  log.showmodal;
  if length(trim(curper.code))>0 then
  begin
    addlogo(curper.code,datetimetostr(now),'登录系统');
    n10.enabled:=true;
    if trim(log.qx.Items[1])='True' then
    begin
     n1.enabled:=true;
     n27.enabled:=true;
     n41.Enabled :=true;
    end;
    if trim(log.qx.Items[2])='True' then
    begin
     n2.enabled:=true;
    end;
    if trim(log.qx.Items[3])='True' then
    begin
     n5.enabled:=true;
     n42.Enabled :=true;
     n41.Enabled :=true;
    end ;
    if trim(log.qx.Items[4])='True' then
    begin
     n8.enabled:=true;
    end ;

  end;
  log.free;
end;

procedure TZForm.Timer1Timer(Sender: TObject);
var ls:string;
begin
   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select MoneyTime from syssetup');
   fm.query1.open;
   if trim(fm.query1.Fields[0].asstring)<>passzh('199908191918') then
   begin
     ls:=trim(unpassname(fm.query1.Fields[0].asstring));
     fm.query1.close;
     fm.Query1.UnPrepare;
     fm.query1.RequestLive:=false;
     if ls='' then
     begin
        showmessage('请先在系统维护中设定试用时间');
        close;
        exit;
     end;
     try
       if strtodatetime(ls)-now>100 then
       begin
         showmessage('试用期设定不对，请重新设定');
         close;
         exit;
       end;
       if strtodatetime(ls)<now then
       begin
         showmessage('试用期已过，请与供应商联系');
         close;
         exit;
       end;
       if strtodatetime(ls)-now<3 then
       begin
          showmessage('试用期已剩'+floattostr(int((strtodatetime(ls)-now)+0.9))+'天了，请尽快与供应商联系');
       end;
     except
     begin
         showmessage('试用期已过，请与供应商联系');
         close;
         exit;
     end;
     end;
   end
   else
   begin
     fm.query1.close;
     fm.Query1.UnPrepare;
     fm.query1.RequestLive:=false;
   end;

end;
////////////////////////////////////////////////////////////////////////
procedure TZForm.ListView1Click(Sender: TObject);
begin
   if (ListView1.Selected=nil) then exit;
   StatusBar1.Panels[3].Text:='当前位置：'+ListView1.Items[ListView1.Selected.Index].Caption;
   case ListView1.Selected.Index of
   0:begin //总台登记
     ListView2.Items.Clear;
     if z0.Visible then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=63;
       ListView2.Items[0].Caption:=z1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=48;
       ListView2.Items[1].Caption:=z2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=11;
       ListView2.Items[2].Caption:=z3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=53;
       ListView2.Items[3].Caption:=z4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=54;
       ListView2.Items[4].Caption:=z5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=57;
       ListView2.Items[5].Caption:=z6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=55;
       ListView2.Items[6].Caption:=z7.Caption;
       ListView2.Items[7].ImageIndex:=56;
       ListView2.Items[7].Caption:=z8.Caption;
 ///// **********************************     ////////////////////////////////
       ListView2.Items[8].ImageIndex:=55;
       ListView2.Items[8].Caption:=z9.Caption;
       ListView2.Items[9].ImageIndex:=55;
       ListView2.Items[9].Caption:=z10.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+z0.Caption+'！请与系统管理员联系！';
     end;
   end;
   1:begin //客房调换
     ListView2.Items.Clear;
     if m0.Visible then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=58;
       ListView2.Items[0].Caption:=M1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=7;
       ListView2.Items[1].Caption:=M2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=59;
       ListView2.Items[2].Caption:=M3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=12;
       ListView2.Items[3].Caption:=M4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=60;
       ListView2.Items[4].Caption:=M5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=61;
       ListView2.Items[5].Caption:=M6.Caption;
       ListView2.Items[6].ImageIndex:=45;
       ListView2.Items[6].Caption:=M7.Caption;
    end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+M0.Caption+'！请与系统管理员联系！';
     end;
   end;
   2:begin //客人消费
     ListView2.Items.Clear;
     if T0.Visible then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=28;
       ListView2.Items[0].Caption:=T1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=29;
       ListView2.Items[1].Caption:=T2.Caption;
    {   ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=22;
       ListView2.Items[2].Caption:=T3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=0;
       ListView2.Items[3].Caption:=T4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=23;
       ListView2.Items[4].Caption:=T5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=24;
       ListView2.Items[5].Caption:=T6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=25;
       ListView2.Items[6].Caption:=T7.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+T0.Caption+'！请与系统管理员联系！';
     end;
   end;
   3:begin //帐务处理
     ListView2.Items.Clear;
     if X0.Visible then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=23;
       ListView2.Items[0].Caption:=X1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=15;
       ListView2.Items[1].Caption:=X2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=48；
       ListView2.Items[2].Caption:=X3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=5;
       ListView2.Items[3].Caption:=X4.Caption;
    {   ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=X5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=29;
       ListView2.Items[5].Caption:=X6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=31;
       ListView2.Items[6].Caption:=X7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=14;
       ListView2.Items[7].Caption:=X8.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+X0.Caption+'！请与系统管理员联系！';
     end;
   end;
   4:begin //设置
     ListView2.Items.Clear;
     if v0.Visible then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=46;
       ListView2.Items[0].Caption:=v1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=51;
       ListView2.Items[1].Caption:=v2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=0;
       ListView2.Items[2].Caption:=v3.Caption;
      { ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=21;
       ListView2.Items[3].Caption:=W4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=W5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=32;
       ListView2.Items[5].Caption:=W6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=41;
       ListView2.Items[6].Caption:=W7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=12;
       ListView2.Items[7].Caption:=W8.Caption;
       ListView2.Items.Add;
       ListView2.Items[8].ImageIndex:=35;
       ListView2.Items[8].Caption:=W9.Caption;
       ListView2.Items.Add;
       ListView2.Items[9].ImageIndex:=37;
       ListView2.Items[9].Caption:=W10.Caption;
       ListView2.Items.Add;
       ListView2.Items[10].ImageIndex:=33;
       ListView2.Items[10].Caption:=W11.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+v0.Caption+'！请与系统管理员联系！';
     end;
   end;
   5:begin //报表查询
     ListView2.Items.Clear;
     if c0.Visible then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=19;
       ListView2.Items[0].Caption:=c1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=22;
       ListView2.Items[1].Caption:=c2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=43;
       ListView2.Items[2].Caption:=c3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=14;
       ListView2.Items[3].Caption:=c4.Caption;
     {  ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=W5.Caption;
     end;  }