📄 djmenu.pas
字号:
unit djmenu;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,untdjcx,DateUtils, Buttons, ComCtrls, ToolWin, Menus, ImgList, ExtCtrls, Db,
DBTables;
type
Tmenu = 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;
x5: TMenuItem;
x7: TMenuItem;
v0: TMenuItem;
v1: TMenuItem;
Panel1: TPanel;
Image1: TImage;
ToolBar3: TToolBar;
jh: TToolButton;
jhth: TToolButton;
xs: TToolButton;
xsth: TToolButton;
ybfy: 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;
t20: TMenuItem;
x12: TMenuItem;
x6: TMenuItem;
z2: TMenuItem;
m3: TMenuItem;
m4: TMenuItem;
m5: TMenuItem;
m7: TMenuItem;
Panel4: TPanel;
x1: TMenuItem;
m6: TMenuItem;
c0: TMenuItem;
c1: TMenuItem;
c2: TMenuItem;
x4: TMenuItem;
z5: TMenuItem;
n9: TMenuItem;
n39: TMenuItem;
n35: TMenuItem;
n17: TMenuItem;
x9: TMenuItem;
x8: TMenuItem;
t21: TMenuItem;
t23: TMenuItem;
x13: TMenuItem;
x14: TMenuItem;
x15: TMenuItem;
N4: TMenuItem;
N1: TMenuItem;
t5: TMenuItem;
t6: TMenuItem;
c60: TMenuItem;
c61: TMenuItem;
c62: TMenuItem;
N13: TMenuItem;
N16: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
c7: TMenuItem;
z3: TMenuItem;
N31: TMenuItem;
N2: TMenuItem;
ComboBox1: TComboBox;
t8: TMenuItem;
c4: TMenuItem;
c5: TMenuItem;
N29: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N36: TMenuItem;
x10: TMenuItem;
t7: TMenuItem;
x11: TMenuItem;
c8: TMenuItem;
c9: TMenuItem;
c10: TMenuItem;
c3: TMenuItem;
x2: TMenuItem;
x3: TMenuItem;
t3: TMenuItem;
c11: TMenuItem;
N3: TMenuItem;
c12: TMenuItem;
z4: TMenuItem;
t22: TMenuItem;
Label3: TLabel;
v2: TMenuItem;
v3: TMenuItem;
v4: TMenuItem;
v5: TMenuItem;
v6: TMenuItem;
v7: TMenuItem;
v8: TMenuItem;
v9: TMenuItem;
m8: TMenuItem;
m9: TMenuItem;
m10: TMenuItem;
Query1: TQuery;
Query2: TQuery;
f0: TMenuItem;
f1: TMenuItem;
c13: TMenuItem;
N5: TMenuItem;
Splitter1: TSplitter;
x16: 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 x9Click(Sender: TObject);
procedure z9Click(Sender: TObject);
procedure x4Click(Sender: TObject);
procedure x1Click(Sender: TObject);
procedure n10Click(Sender: TObject);
procedure n25Click(Sender: TObject);
procedure n24Click(Sender: TObject);
procedure x5Click(Sender: TObject);
procedure x7Click(Sender: TObject);
procedure x8Click(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 x6Click(Sender: TObject);
procedure z2Click(Sender: TObject);
procedure v1Click(Sender: TObject);
procedure x12Click(Sender: TObject);
procedure c1Click(Sender: TObject);
procedure c2Click(Sender: TObject);
procedure t21Click(Sender: TObject);
procedure t23Click(Sender: TObject);
procedure x13Click(Sender: TObject);
procedure x14Click(Sender: TObject);
procedure x15Click(Sender: TObject);
procedure t5Click(Sender: TObject);
procedure t6Click(Sender: TObject);
procedure c61Click(Sender: TObject);
procedure c62Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure c7Click(Sender: TObject);
procedure m10Click(Sender: TObject);
procedure m8Click(Sender: TObject);
procedure t8Click(Sender: TObject);
procedure c4Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N36Click(Sender: TObject);
procedure c5Click(Sender: TObject);
procedure x10Click(Sender: TObject);
procedure t7Click(Sender: TObject);
procedure x11Click(Sender: TObject);
procedure c8Click(Sender: TObject);
procedure c9Click(Sender: TObject);
procedure c10Click(Sender: TObject);
procedure c3Click(Sender: TObject);
procedure x2Click(Sender: TObject);
procedure x3Click(Sender: TObject);
procedure t3Click(Sender: TObject);
procedure c11Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure c12Click(Sender: TObject);
procedure t22Click(Sender: TObject);
procedure t4Click(Sender: TObject);
procedure v2Click(Sender: TObject);
procedure v3Click(Sender: TObject);
procedure v4Click(Sender: TObject);
procedure v5Click(Sender: TObject);
procedure v6Click(Sender: TObject);
procedure v7Click(Sender: TObject);
procedure v8Click(Sender: TObject);
procedure v9Click(Sender: TObject);
procedure m9Click(Sender: TObject);
procedure z3Click(Sender: TObject);
procedure z4Click(Sender: TObject);
procedure f1Click(Sender: TObject);
procedure c13Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure x16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
menu: Tmenu;
implementation
uses dataproc,about, login, xfcx, djcx, unlkall, changepas,
groupcx, sanhroom, newdj, newxf, hf,exitrm, seerz, addpos, zz, newjzform,
exitsan, roomhsan, jb1,jk, zdznozd, nozdzzd, fz, djqx, jzjz,
lsrmcx, xgft, roomczl, Rbcx, srbb, bbcx, xflscx, hyklrUnit, hykwhUnit,
zdwh, zdxftj, zdkctj, bkzlcx, groupyd, groupydzdj, groupydzqx,
groupdj, groupdjqx, groupdjcx, qxrz, hkdj, hkcx, cxcx, cxlshk, cscx,
hkcscx, zdpk, cxsrrb, sankyd, sanydtodj, sanydtoqx,
hyjbsyunit,cxsryb,jbsrbb,zdxffltj, hfcxunit, zdbbcx, bcmdUnit,jzmfunit,
srzrsunit, zsrxsunit, fjxgunit, djfjcx, QBsrbb, DJyjCX, sankbj, ylnewdj,
jysj, dqcx, djfsunit, zdxfcx, hykczUnit, kczmxUnit, kxfmxUnit, jbtsUnit,
browjzform;
var lc:string;cssl,hkcssl:integer;
{$R *.DFM}
procedure Tmenu.FormShow(Sender: TObject);
begin
{ fm.query1.close;
fm.query1.sql.clear;
fm.query1.sql.add('Select UnitName from syssetup');
fm.query1.open;
Label1.Caption:=trim(unpassname(fm.query1.Fields[0].asstring));
Label1.Left:=strtoint(floattostr(int((Width-Label1.Width)/2)));
fm.query1.close;
}
n6Click(nil);
end;
procedure Tmenu.n6Click(Sender: TObject);
var i:integer;
begin
ListView1.Items.Clear;
i:=0;
n10.Enabled :=false;
x0.enabled:=false;
x1.enabled:=false;
x3.enabled:=false;
x7.enabled:=false;
t0.enabled:=false;
t1.enabled:=false;
z0.enabled:=false;
z1.enabled:=false;
v0.enabled:=false;
c0.enabled:=false;
f0.enabled:=false;
x5.Enabled :=false;
// n42.enabled:=false;
m0.Enabled :=false;
m1.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
z0.enabled:=true;
z1.enabled:=true;
m0.enabled:=true;
m1.enabled:=true;
// c0.Enabled :=true;
end;
if trim(log.qx.Items[2])='True' then
begin
t0.enabled:=true;
t1.enabled:=true;
end;
if trim(log.qx.Items[3])='True' then
begin
x0.enabled:=true;
c0.Enabled :=true;
end ;
if trim(log.qx.Items[4])='True' then
begin
v0.enabled:=true;
end ;}
end;
if trim(log.qx.Items[1])='True' then
begin
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=40;
ListView1.Items[i].Caption:='总台登记';
i:=i+1;
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=64;
ListView1.Items[i].Caption:='客房调换';
z0.enabled:=true;
z1.enabled:=true;
m0.enabled:=true;
m1.enabled:=true;
i:=i+1;
end;
if trim(log.qx.Items[2])='True' then
begin
// if i<>0 then i:=i+1;
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=39;
ListView1.Items[i].Caption:='客人消费';
t0.enabled:=true;
t1.enabled:=true;
i:=i+1;
end;
if trim(log.qx.Items[3])='True' then
begin
// if i<>0 then i:=i+1;
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=38;
ListView1.Items[i].Caption:='帐务处理';
i:=i+1;
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=46;
ListView1.Items[i].Caption:='报表查询';
x0.enabled:=true;
c0.Enabled :=true;
x7.Enabled :=true;
x5.Enabled :=true;
i:=i+1;
end;
if trim(log.qx.Items[4])='True' then
begin
// if i<>0 then i:=i+1;
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=30;
ListView1.Items[i].Caption:='总台查询';
v0.enabled:=true;
i:=i+1;
end;
if trim(log.qx.Items[5])='True' then
begin
// if i<>0 then i:=i+1;
ListView1.Items.Add;
ListView1.Items[i].ImageIndex:=41;
ListView1.Items[i].Caption:='房态维护';
f0.enabled:=true;
i:=i+1;
end;
log.free;
end;
procedure Tmenu.Timer1Timer(Sender: TObject);
var ls:string;
begin
ls:='';
if trim(curper.offduty)='下班' then close;
Label2.Caption:=formatdatetime('yyyy''年''MM''月''dd''日'' hh:mm:ss',now);
if (copy(trim(formatdatetime('yyyy''''MM''''dd''''hh:mm:ss',now)),9,8)>='08:30:00')and (copy(trim(formatdatetime('yyyy''''MM''''dd''''hh:mm:ss',now)),9,8)<='08:30:10') then
begin
Timer1.Enabled:=false;
{ jSform:=TjSform.Create(application);
jSform.show;
jSform.update; }
Application.CreateForm(TjbtsForm, jbtsForm);
jbtsForm.showmodal;
jbtsForm.free;
exit;
end;
if (copy(Label2.Caption,20,5)<>'0:00') and (Timer1.Enabled) then
exit;
Query1.Active:=false;
Query1.SQL.Clear;
Query1.SQL.Add('update nowin set truntime=12,roomprice=(select max(price) from room where room.RoomNo=nowin.RoomNo),istime=0 where istime=1 and DATEDIFF(mi,acctime,{fn NOW()})>240 and changeroom<>1');
Query1.Prepare;
Query1.ExecSQL;
if trim(lc)<>'' then
begin
try
cscxForm.Query1.Active:=false;
cscxForm.Query1.SQL.Clear;
cscxForm.Query1.SQL.Add('select *,'''' from fzdbjcx where substring(手号,1,1) in ('+lc+')');
cscxForm.Query1.SQL.Add('union (select *,'''' from zdbjcx where substring(手号,1,1) in ('+lc+'))');
cscxForm.Query1.SQL.Add('union (select * from sancx where sex in ('+lc+'))');
cscxForm.Query1.Open;
if cssl<> cscxForm.Query1.RecordCount then
begin
cssl:=cscxForm.Query1.RecordCount;
cscxForm.Show;
end else
begin
cscxForm.Query1.Active:=false;
cscxForm.Query1.SQL.Clear;
end;
hkcscxForm.Query1.Active:=false;
hkcscxForm.Query1.SQL.Clear;
hkcscxForm.Query1.SQL.Add('select * from guest where DATEDIFF(n,{fn NOW()},endtime)<2 and substring(roomno,1,1) in ('+lc+')');
hkcscxForm.Query1.Open;
if hkcssl<> hkcscxForm.Query1.RecordCount then
begin
hkcssl:= hkcscxForm.Query1.RecordCount;
hkcscxForm.Show;
end else begin
hkcscxForm.Query1.Active:=false;
hkcscxForm.Query1.SQL.Clear;
end;
except
end;
end;
if (copy(Label2.Caption,19,5)<>'30:00') and (Timer1.Enabled) then
exit;
Timer1.Enabled:=true;
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)<>passname('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('请先在系统维护中设定试用时间');
halt;
close;
exit;
end;
try
if strtodatetime(ls)-now>100000 then
begin
showmessage('使用期设定不对，请重新设定');
halt;
close;
exit;
end;
if strtodatetime(ls)+0.5<now then
begin
showmessage('使用期已过，请与供应商联系');
halt;
close;
exit;
end;
if strtodatetime(ls)-now<30 then
begin
showmessage('使用期已剩'+floattostr(int((strtodatetime(ls)-now)+0.9))+'天了，请尽快与供应商联系');
end;
except
begin
showmessage('使用期已过，请与供应商联系');
halt;
close;
exit;
end;
end;
end
else
begin
fm.query1.close;
fm.Query1.UnPrepare;
fm.query1.RequestLive:=false;
end;
end;
////////////////////////////////////////////////////////////////////////
procedure Tmenu.ListView1Click(Sender: TObject);
begin
if (ListView1.Selected=nil) then exit;
StatusBar1.Panels[2].Text:='当前位置：'+ListView1.Items[ListView1.Selected.Index].Caption;
// case ListView1.Selected.Index of
// 0:begin //总台登记
if (z0.Enabled)and(ListView1.Selected.Caption='总台登记') then
begin
ListView2.Items.Clear;
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:=56;
ListView2.Items[2].Caption:=z3.Caption;
{ ListView2.Items.Add;
ListView2.Items[3].ImageIndex:=35;
ListView2.Items[3].Caption:=z4.Caption;
{ ListView2.Items.Add;
ListView2.Items[4].ImageIndex:=35;
ListView2.Items[4].Caption:=N45.Caption;
ListView2.Items.Add;
ListView2.Items[5].ImageIndex:=35;
ListView2.Items[5].Caption:=N22.Caption;
ListView2.Items.Add;
ListView2.Items[6].ImageIndex:=35;
ListView2.Items[6].Caption:=N53.Caption; }
end ;
{ else
begin
Panel4.Visible:=true;
Panel4.Caption:='您无权使用'+z0.Caption+'！请与系统管理员联系！';
end; }
// end;
// 1:begin //客房调换
if (m0.Enabled)and(ListView1.Selected.Caption='客房调换') then
begin
ListView2.Items.Clear;
Panel4.Visible:=false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -