📄 main.pas
字号:
label22.Caption:=IntToStr(Q_SelectRoom.fieldByName('DayFee').asinteger);
label28.Caption:=Q_SelectRoom.fieldByName('NowAccountNo').asstring;
Q_SelectRoom.Close;
//结束
//显示客人信息
Q_SelectRoom.SQL.Clear;
Q_SelectRoom.SQL.Add('select * from RoomIn where RoomName='''+Tv1.Selected.Text+'''');
Q_SelectRoom.Open;
if Q_selectroom.FieldByName('RoomType').AsInteger=0 then
begin
djlx:='普通房';
end
else
begin
djlx:='钟点房';
end;
label21.Caption:=djlx;
Dbtext1.Caption:=Q_SelectRoom.fieldByName('Name').asstring;
label24.Caption:=(Q_SelectRoom.fieldByName('BeginTime').asString);
label26.Caption:=(Q_SelectRoom.fieldByName('EndTime').asString);
Q_SelectRoom.Close;
//结束
//根据选择确定房间当前状态所允许的操作。
case Tv1.Selected.ImageIndex of
3: //入住
begin
sb1.Enabled:=False;
sb2.Enabled:=False;
sb3.Enabled:=True;
sb4.Enabled:=True;
sb5.Enabled:=False;
sb6.Enabled:=true;
sb7.Enabled:=True;
N2.Enabled:=False;
N3.Enabled:=False;
N4.Enabled:=True;
N5.Enabled:=True;
N6.Enabled:=False;
N7.Enabled:=False;
N8.Enabled:=True;
end;
2: //预定
begin
sb1.Enabled:=False;
sb2.Enabled:=True;
sb3.Enabled:=False;
sb4.Enabled:=False;
sb5.Enabled:=True;
sb6.Enabled:=False;
sb7.Enabled:=True;
N2.Enabled:=False;
N3.Enabled:=True;
N4.Enabled:=False;
N5.Enabled:=False;
N6.Enabled:=True;
N7.Enabled:=False;
N8.Enabled:=False;
end;
1: //空房
begin
sb1.Enabled:=True;
sb2.Enabled:=True;
sb3.Enabled:=False;
sb4.Enabled:=False;
sb5.Enabled:=False;
sb6.Enabled:=False;
sb7.Enabled:=False;
N2.Enabled:=True;
N3.Enabled:=true;
N2.Enabled:=True;
N3.Enabled:=True;
N4.Enabled:=False;
N5.Enabled:=False;
N6.Enabled:=False;
N7.Enabled:=False;
N8.Enabled:=False;
end;
0: //第一项
begin
sb1.Enabled:=False;
sb2.Enabled:=False;
sb3.Enabled:=False;
sb4.Enabled:=False;
sb5.Enabled:=False;
sb6.Enabled:=False;
sb7.Enabled:=False;
end;
end;
//完成
//显示选中房间信息
aaa:=Tv1.Selected.Text;
L_RoomNo.Caption:=Tv1.Selected.Text;
// Q_Selected.Active:=False;
Q_Selected.Close;
Q_Selected.SQL.Clear;
Q_Selected.SQL.Add('Select * from DinList where RoomName='''+aaa+'''');
// Q_Selected.SQL.Add('where RoomName='''+aaa+'''');
// Q_Selected.SQL.Add('order by Price');
Q_Selected.open;
// Q_Selected.Active:=True;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
if MessageBox(0,PChar('确实要退出系统'),'退出系统',MB_ICONQUESTION or MB_YESNO)=IDNO then
Abort
else
close;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form9.ShowModal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
sb1.Enabled:=True;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
SB1.Enabled:=TRUE;
end;
procedure TForm1.SB1Click(Sender: TObject);
begin
Q_SelectRoom.SQL.Clear;
Q_SelectRoom.SQL.Add('select TypeName,DayFee from RoomInfo where RoomName='''+Tv1.Selected.Text+'''');
Q_SelectRoom.Open;
SubscribeRoom.Label14.Caption:=Q_SelectRoom.fieldByName('TypeName').asstring;
SubscribeRoom.Label15.Caption:=IntToStr(Q_SelectRoom.fieldByName('DayFee').asinteger);
Q_SelectRoom.Close;
SubscribeRoom.RoomID.Text:=Tv1.Selected.Text;
subscribeRoom.ShowModal;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N27Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageBox(0,PChar('确实要退出系统'),'退出系统',MB_ICONQUESTION or MB_YESNO)=IDNO then
Abort;
form36.Close;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.SB8Click(Sender: TObject);
begin
if MessageBox(0,PChar('确实要退出系统'),'退出系统',MB_ICONQUESTION or MB_YESNO)=IDNO then
Abort;
form36.Close;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm1.SB2Click(Sender: TObject);
var vroomtype:integer;
begin
Q_SelectRoom.SQL.Clear;
Q_SelectRoom.SQL.Add('select Roomtype,TypeName,DayFee from RoomInfo where RoomName='''+Tv1.Selected.Text+'''');
Q_SelectRoom.Open;
form11.Label14.Caption:=Q_SelectRoom.fieldByName('TypeName').asstring;
form11.label15.Caption:=IntToStr(Q_SelectRoom.fieldByName('DayFee').asinteger);
vroomtype:=Q_selectroom.fieldbyname('Roomtype').AsInteger;
Q_SelectRoom.Close;
if vroomtype=1 then
begin
form11.In_djlx.Clear;
form11.In_djlx.Items.Add('普通');
form11.In_djlx.Items.Add('钟点房');
end
else
begin
form11.In_djlx.Clear;
form11.In_djlx.Items.Add('普通');
end;
Form11.RoomID.Text:=Tv1.Selected.Text;
Form11.ShowModal;
end;
procedure TForm1.SB5Click(Sender: TObject);
begin
Q_ydundo.SQL.Clear;
Q_ydundo.SQL.Add('select * from RoomIn where RoomName='''+Tv1.Selected.Text+'''');
Q_ydundo.Open;
form12.edit1.Text:=Q_ydundo.FieldByName('RoomName').asstring;
Form12.Label9.Caption:=Q_ydundo.fieldByName('name').asstring;
Form12.Label10.Caption:=Q_ydundo.fieldByName('sex').asstring;
Form12.Label11.Caption:=DateToStr(Q_ydundo.fieldByName('BeginTime').asdatetime);
Form12.Label12.Caption:=DateToStr(Q_ydundo.fieldByName('EndTime').asdatetime);
Form12.Label13.Caption:=Q_ydundo.fieldByName('address').asstring;
Form12.Label14.Caption:=Q_ydundo.fieldByName('method').asstring;
Q_ydundo.Close;
Form12.ShowModal;
end;
procedure TForm1.SB7Click(Sender: TObject);
begin
Q_NameNo.SQL.Clear;
Q_NameNo.SQL.Add('select NameNo from RoomIn where RoomName='''+Tv1.Selected.Text+'''');
Q_NameNo.Open;
Form14.NameNo.Text:=Q_NameNo.FieldByName('NameNo').AsString;
Q_NameNo.Close;
Form14.label4.Caption:=Tv1.Selected.Text;
Form14.ShowModal;
end;
procedure TForm1.SB3Click(Sender: TObject);
var Roo:string;
begin
Roo:=Tv1.Selected.Text;
Q_ydundo.SQL.Clear;
Q_ydundo.SQL.Add('select NowAccountNo from RoomInfo where RoomName='''+Tv1.Selected.Text+'''');
Q_ydundo.Open;
Form13.Label11.Caption:=IntToStr(Q_ydundo.FieldByName('NowAccountNo').asinteger);
Q_ydundo.Close;
Q_ydundo.SQL.Clear;
Form13.XF_RoomName.Caption:=Tv1.Selected.Text;
Form13.Q_splb.SQL.Clear;
Form13.Q_splb.SQL.Add('select * from DinList where RoomName='''+Roo+'''');
Form13.q_splb.Open;
Form13.Q_splb.Active:=True;
Form13.ShowModal;
end;
procedure TForm1.DB_SelectedCellClick(Column: TColumn);
begin
if DB_selected.SelectedRows.Count>0 then
begin
// Sb6.Enabled:=True;
// N7.Enabled:=True;
end;
end;
procedure TForm1.SB6Click(Sender: TObject);
begin
if MessageDlg('确定要改变计费方式吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
// Q_jfbg.Close;
Q_jfbg.SQL.Clear;
Q_jfbg.SQL.Add('update roomIn set roomtype=0 where RoomName='''+tv1.Selected.Text+'''');
Q_jfbg.ExecSQL;
// Q_jfbg.Open;
// Q_jfbg.Close;
end;
{ form15.Label10.Caption:=Tv1.Selected.Text;
Q_selected.Open;
with db_selected.DataSource.DataSet do
begin
GotoBookmark(pointer(db_selected.SelectedRows[0]));
form15.label6.Caption:=fields[3].asstring;
form15.qxsl.text:=fields[6].asstring;
form15.Label8.Caption:=fields[6].AsString;
form15.Label5.Caption:=Fields[2].asstring;
end;
Form15.ShowModal;
}
end;
procedure TForm1.N19Click(Sender: TObject);
begin
Form16.ShowModal;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
Form17.ShowModal;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
form18.ShowModal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
form19.ShowModal;
end;
procedure TForm1.SB4Click(Sender: TObject);
var
RoomN,AccountNo:string;
DayDiff,InHour,ii,jj,xsc,btdays,xs,ys,DayFee,zdfff,zdfsj,jzxsxs,djfs:integer;
dbt,jiezhang,ff,ts,ts1:double;
totala:double;
BeginTime,jzsj: TDateTime;
ls1:variant;
// Year,Year1,Month,Month1,Day,Day1,Hour,Hour1,Min,Min1,Sec,Sec1,MSec1,Msec: Word;
begin
//读取房间基本信息，并在结帐Form中显示
//取出结帐小时方式
T_jzxsxz.Open;
jzxsxs:=t_jzxsxz.fieldbyname('jzjz').AsInteger;
T_jzxsxz.Close;
T_jzsj.Close;
T_jzsj.Open;
jzsj:=T_jzsj.fieldbyname('jzsj').AsVariant;
zdfsj:=T_jzsj.fieldbyname('zdfsj').AsInteger;
T_jzsj.Close;
xsc:=hoursbetween(time,jzsj);
// form20.Label45.Caption:=inttostr(xsc);
RoomN:=Tv1.Selected.Text;
Q_ydundo.SQL.Clear;
Q_ydundo.SQL.Add('select * from RoomInfo where RoomName='''+Tv1.Selected.Text+'''');
Q_ydundo.Open;
AccountNo:=IntToStr(Q_ydundo.FieldByName('NowAccountNo').asinteger);
Form20.FJ_AccountNo.Caption:=IntToStr(Q_ydundo.FieldByName('NowAccountNo').asinteger);
DayFee:=Q_ydundo.FieldByName('DayFee').asInteger;
zdfff:=Q_ydundo.FieldByName('zdff').asInteger;
Q_ydundo.Close;
Q_ydundo.SQL.Clear;
Q_ydundo.SQL.Clear;
Q_ydundo.SQL.Add('select * from RoomIn where RoomName='''+Tv1.Selected.Text+'''');
Q_ydundo.Open;
djfs:=Q_ydundo.fieldbyname('RoomType').AsInteger;
//判断jzfs，是否已经结帐或挂帐，不允许二次挂帐。
case Q_ydundo.FieldByName('jzfs').asinteger of
0:
begin
form20.SpeedButton1.Enabled:=True;
form20.SpeedButton3.Enabled:=True;
form20.SpeedButton2.Enabled:=False;
end;
1:
begin
form20.SpeedButton1.Enabled:=True;
form20.SpeedButton3.Enabled:=True;
form20.SpeedButton2.Enabled:=True;
end;
2:
begin
form20.SpeedButton1.Enabled:=False;
form20.SpeedButton3.Enabled:=False;
form20.SpeedButton2.Enabled:=True;
end;
end;
if Q_ydundo.FieldByName('sfzz').AsString='否' then
begin
form20.Label43.Visible:=False;
Form20.Label44.Visible:=False;
form20.Label38.Visible:=False;
Form20.Label42.Visible:=False;
end
else
begin
form20.Label43.Visible:=True;
Form20.Label44.Visible:=True;
form20.Label38.Visible:=True;
Form20.Label42.Visible:=True;
Form20.Label43.Caption:=Q_ydundo.FieldByName('sfzz').asstring;
Form20.Label44.Caption:=Q_ydundo.FieldByName('zzfh').asstring;
end;
Form20.FJ_Name.Caption:=Q_ydundo.FieldByName('Name').asstring;
Form20.fj_rs.caption:=IntToStr(Q_ydundo.FieldByName('NameNo').asinteger);
Form20.fj_BeginTime.Caption:=datetimeToStr(Q_ydundo.FieldByName('BeginTime').asdatetime);
BeginTime:=Q_ydundo.FieldByName('BeginTime').asdatetime;
xs:=hoursbetween(now,Q_ydundo.fieldbyname('beginTime').AsDateTime);
// form20.Label46.Caption:=inttostr(xs);
Q_ydundo.Close;
Q_ydundo.SQL.Clear;
Form20.FJ_RoomNo.Caption:=RoomN;
//结束
//取出结帐小时方式
// T_jzxsxz.Open;
// jzxsxs:=t_jzxsxz.fieldbyname('jzjz').AsInteger;
// T_jzxsxz.Close;
//按小时计算房费
if djfs=0 then
//按普通方式计算房费
begin
//更改部分
dbt:=daysbetween(begintime,now());
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -