syszxt.pas

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

    fm.query2.sql.clear;
    showmessage('恢复完毕'); }

end;

procedure TZsysForm.h1Click(Sender: TObject);
begin
  Application.CreateForm(TAboutBox, AboutBox);
  AboutBox.showmodal;
  AboutBox.free;

end;

procedure TZsysForm.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 m0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=5;
       ListView2.Items[0].Caption:=m1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=21;
       ListView2.Items[1].Caption:=m2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=22;
       ListView2.Items[2].Caption:=m3.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+m0.Caption+'！请与系统管理员联系！';
     end;
   end;
   1:begin      //【房间数据维护(&R】
     ListView2.Items.Clear;
     if r0.Enabled then     //【消费项目维护(&M】
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=4;
       ListView2.Items[0].Caption:=r1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=22;
       ListView2.Items[1].Caption:=r2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=19;
       ListView2.Items[2].Caption:=r3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=35;
       ListView2.Items[3].Caption:=r4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=37;
       ListView2.Items[4].Caption:=r5.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+r0.Caption+'！请与系统管理员联系！';
     end;
   end;
  { 2:begin //【餐厅数据维护(&T)】
     ListView2.Items.Clear;
     if t0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=3;
       ListView2.Items[0].Caption:=t1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=21;
       ListView2.Items[1].Caption:=t2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=39;
       ListView2.Items[2].Caption:=t3.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+t0.Caption+'！请与系统管理员联系！';
     end;
   end;}
   2:begin //【运行数据维护(&K)】
     ListView2.Items.Clear;
     if k0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=5;
       ListView2.Items[0].Caption:=k1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=26;
       ListView2.Items[1].Caption:=k2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=7;
       ListView2.Items[2].Caption:=k3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=17;
       ListView2.Items[3].Caption:=k4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=k5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=29;
       ListView2.Items[5].Caption:=k6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=31;
       ListView2.Items[6].Caption:=k7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=14;
       ListView2.Items[7].Caption:=k8.Caption;
       ListView2.Items.Add;
       ListView2.Items[8].Left:=20;
       ListView2.Items[8].ImageIndex:=46;
       ListView2.Items[8].Caption:=k9.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+k0.Caption+'！请与系统管理员联系！';
     end;
   end;
   3:begin //【宾客数据维护(&D)】
     ListView2.Items.Clear;
     if d0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=34;
       ListView2.Items[0].Caption:=d1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=1;
       ListView2.Items[1].Caption:=d2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=40;
       ListView2.Items[2].Caption:=d3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=21;
       ListView2.Items[3].Caption:=d4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=d5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=51;
       ListView2.Items[5].Caption:=d6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=41;
       ListView2.Items[6].Caption:=d7.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+d0.Caption+'！请与系统管理员联系！';
     end;
   end;
   4:begin //【报表数据维护(&B】
     ListView2.Items.Clear;
     if b0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=7;
       ListView2.Items[0].Caption:=b1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=26;
       ListView2.Items[1].Caption:=b2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=0;
       ListView2.Items[2].Caption:=b3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=27;
       ListView2.Items[3].Caption:=b4.Caption;
       end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+b0.Caption+'！请与系统管理员联系！';
     end;
   end;
   end;


end;

procedure TZsysForm.h2Click(Sender: TObject);
begin
//   winhelp(0,Pchar('查询帮助.hlp'),HELP_FINDER,0);

end;

procedure TZsysForm.ListView2Click(Sender: TObject);
begin
  if (ListView1.Selected=nil) or (ListView2.Selected=nil) then exit;
   case ListView1.Selected.Index of
   0:begin // (m)
     case ListView2.Selected.Index of
     0:m1Click(nil);
     1:m2Click(nil);
     2:m3Click(nil);
     end;
   end;
   1:begin // (r)
     case ListView2.Selected.Index of
     0:r1Click(nil);
     1:r2Click(nil);
     2:r3Click(nil);
     3:r4Click(nil);
     4:r5Click(nil);
     end;
   end;
  { 2:begin //(t)
     case ListView2.Selected.Index of
     0:t1Click(nil);
     1:t2Click(nil);
     2:t3Click(nil);
     end;
   end; }
   2:begin //(k)
     case ListView2.Selected.Index of
     0:k1Click(nil);
     1:k2Click(nil);
     2:k3Click(nil);
     3:k4Click(nil);
     4:k5Click(nil);
     5:k6Click(nil);
     6:k7Click(nil);
     7:k8Click(nil);
     8:k9Click(nil);
     end;
   end;
   3:begin //(d)
     case ListView2.Selected.Index of
     0:d1Click(nil);
     1:d2Click(nil);
     2:d3Click(nil);
     3:d4Click(nil);
     4:d5Click(nil);
     5:d6Click(nil);
     6:d7Click(nil);
     end;
   end;
   4:begin //(b)
     case ListView2.Selected.Index of
     0:b1Click(nil);
     1:b2Click(nil);
     2:b3Click(nil);
     3:b4Click(nil);
     end;
   end;
   END;

end;

procedure TZsysForm.FormShow(Sender: TObject);
begin
  Application.CreateForm(Tlog, log);
  log.showmodal;
  if curper.code='' then close;
  log.free;
   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select UnitName from syssetup');
   fm.query1.open;
   curper.sydw:=trim(unpassname(fm.query1.Fields[0].asstring));
   Label2.Caption:=curper.sydw+'桑拿管理系统';
{  xf.Enabled:=m0.Enabled;
  room.Enabled:=r0.Enabled;
  ct.Enabled:=t0.Enabled;
  yydate.Enabled:=k0.Enabled;}
  ToolBar3.ShowCaptions:=true;
  ListView1.Selected:=ListView1.Items[1];
  ListView1Click(NIL);
end;

procedure TZsysForm.Timer1Timer(Sender: TObject);
begin
   Label1.Caption:=formatdatetime('yyyy''年''MM''月''dd''日''  hh:mm:ss',now);
end;

procedure TZsysForm.logidClick(Sender: TObject);
begin
  Application.CreateForm(Tlog, log);
  log.showmodal;
  if curper.code='' then close;
  log.free;

end;

procedure TZsysForm.N1Click(Sender: TObject);
begin
  Application.CreateForm(Tlog, log);
  log.showmodal;
  if curper.code='' then close;
  log.free;

end;

procedure TZsysForm.N2Click(Sender: TObject);
begin
  Application.CreateForm(ThyklrForm, hyklrForm);
  hyklrForm.showmodal;
  hyklrForm.free;

end;

procedure TZsysForm.N3Click(Sender: TObject);
begin
  Application.CreateForm(ThykczForm, hykczForm);
  hykczForm.showmodal;
  hykczForm.free;
end;

procedure TZsysForm.N4Click(Sender: TObject);
begin
  Application.CreateForm(ThykwhForm,hykwhForm);
  hykwhForm.showmodal;
  hykwhForm.free;
end;

procedure TZsysForm.N5Click(Sender: TObject);
begin
  Application.CreateForm(TgzbmwhFormold,gzbmwhFormold);
  gzbmwhFormold.showmodal;
  gzbmwhFormold.free;

end;

procedure TZsysForm.N6Click(Sender: TObject);
begin
  Application.CreateForm(Tbcsetupform,bcsetupform);
  bcsetupform.showmodal;
  bcsetupform.free;

end;

procedure TZsysForm.N7Click(Sender: TObject);
begin
  Application.CreateForm(Tfjxgform, fjxgform);
  fjxgform.showmodal;
  fjxgform.Free;

end;

end.