unitroom.~pas

来自「自己做过的工程」· ~PAS 代码 · 共 1,258 行 · 第 1/2 页

~PAS
1,258 行
字号
12
 begin
room504.Color:=clAqua;
 end;
4:     //禁用
 begin
 room504.Color:=clRed;
 end;
 end;

 //505房间
 roomid:=inttostr(8505);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room505.Color:=clCaptionText;
 end;
2: //预定
 begin
 room505.Color:=clLime;
 end;
3://使用
 begin
room505.Color:=clAqua;
 end;
4:     //禁用
 begin
 room505.Color:=clRed;
 end;
 end;

 //506房间
 roomid:=inttostr(8506);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room506.Color:=clCaptionText;
 end;
2: //预定
 begin
 room506.Color:=clLime;
 end;
3://使用
 begin
room506.Color:=clAqua;
 end;
4:     //禁用
 begin
 room506.Color:=clRed;
 end;
 end;

 //507房间
 roomid:=inttostr(8507);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room507.Color:=clCaptionText;
 end;
2: //预定
 begin
 room507.Color:=clLime;
 end;
3://使用
 begin
room507.Color:=clAqua;
 end;
4:     //禁用
 begin
 room507.Color:=clRed;
 end;
 end;

 //508房间
 roomid:=inttostr(8508);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room508.Color:=clCaptionText;
 end;
2: //预定
 begin
 room508.Color:=clLime;
 end;
3://使用
 begin
room508.Color:=clAqua;
 end;
4:     //禁用
 begin
 room508.Color:=clRed;
 end;
 end;

 //509房间
 roomid:=inttostr(8509);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room509.Color:=clCaptionText;
 end;
2: //预定
 begin
 room509.Color:=clLime;
 end;
3://使用
 begin
room509.Color:=clAqua;
 end;
4:     //禁用
 begin
 room509.Color:=clRed;
 end;
 end;

 //510房间
 roomid:=inttostr(8510);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room510.Color:=clCaptionText;
 end;
2: //预定
 begin
 room510.Color:=clLime;
 end;
3://使用
 begin
room510.Color:=clAqua;
 end;
4:     //禁用
 begin
 room510.Color:=clRed;
 end;
 end;


 //511房间
 roomid:=inttostr(8512);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room511.Color:=clCaptionText;
 end;
2: //预定
 begin
 room511.Color:=clLime;
 end;
3://使用
 begin
room511.Color:=clAqua;
 end;
4:     //禁用
 begin
 room511.Color:=clRed;
 end;
 end;

 //512房间
 roomid:=inttostr(8516);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room512.Color:=clCaptionText;
 end;
2: //预定
 begin
 room512.Color:=clLime;
 end;
3://使用
 begin
room512.Color:=clAqua;
 end;
4:     //禁用
 begin
 room512.Color:=clRed;
 end;
 end;

 //513房间
 roomid:=inttostr(8518);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room513.Color:=clCaptionText;
 end;
2: //预定
 begin
 room513.Color:=clLime;
 end;
3://使用
 begin
room513.Color:=clAqua;
 end;
4:     //禁用
 begin
 room513.Color:=clRed;
 end;
 end;

 //601房间
 roomid:=inttostr(8602);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room601.Color:=clCaptionText;
 end;
2: //预定
 begin
 room601.Color:=clLime;
 end;
3://使用
 begin
room601.Color:=clAqua;
 end;
4:     //禁用
 begin
 room601.Color:=clRed;
 end;
 end;

 //602房间
 roomid:=inttostr(8604);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room602.Color:=clCaptionText;
 end;
2: //预定
 begin
 room602.Color:=clLime;
 end;
3://使用
 begin
room602.Color:=clAqua;
 end;
4:     //禁用
 begin
 room602.Color:=clRed;
 end;
 end;

 //603房间
 roomid:=inttostr(8606);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room603.Color:=clCaptionText;
 end;
2: //预定
 begin
 room603.Color:=clLime;
 end;
3://使用
 begin
room603.Color:=clAqua;
 end;
4:     //禁用
 begin
 room603.Color:=clred;
 end;
 end;

 //604房间
   roomid:=inttostr(8608);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room604.Color:=clCaptionText;
 end;
2: //预定
 begin
 room604.Color:=clLime;
 end;
3://使用
 begin
room604.Color:=clAqua;
 end;
4:     //禁用
 begin
 room604.Color:=clRed;
 end;
 end;

 //605房间
 roomid:=inttostr(8610);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room605.Color:=clCaptionText;
 end;
2: //预定
 begin
 room605.Color:=clLime;
 end;
3://使用
 begin
room605.Color:=clAqua;
 end;
4:     //禁用
 begin
 room605.Color:=clRed;
 end;
 end;

 //最后一个606 房间

 roomid:=inttostr(8612);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room606.Color:=clCaptionText;
 end;
2: //预定
 begin
 room606.Color:=clLime;
 end;
3://使用
 begin
room606.Color:=clAqua;
 end;
4:     //禁用
 begin
 room606.Color:=clred;
 end;
 end;

 ///结束这个总的过程
end;

procedure Tformroom.room401Click(Sender: TObject);
var
roomid:string;
roomstatus:string;
//book_roomid:string;
//in_roomid:string;
begin
roomid:=inttostr(8401);
DMhotel.ADODataSet_roomstatus.Open;
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]) ;
st_roomid.Caption:=DMHotel.ADODataSet_roomstatus.FieldByName('roomid').AsString;
st_roomtype.Caption:=DMHotel.ADODataSet_roomstatus.FieldByName('roomtype').AsString;
st_roomstatus.Caption:=DMHotel.ADODataSet_roomstatus.FieldByName('roomstatus').AsString;
roomstatus:= DMHotel.ADODataSet_roomstatus.FieldByName('roomstatus').AsString;
DMHotel.ADODataSet_roomstatus.Close;

st_username.Caption:='';
st_time.Caption:='';

 if roomstatus='预定' then
 begin
DMHotel.ADODataSet_roombook.Open;
DMHotel.ADODataSet_roombook.Locate('roomid',roomid,[]);
st_username.Caption:=DMHotel.ADODataSet_roombook.FieldByName('username').AsString;
lab_time.Caption:='预定时间';
st_time.Caption:=DMHotel.ADODataSet_roombook.FieldByName('booktime').AsString;
DMHotel.ADODataSet_roombook.Close;
 end;
if roomstatus='使用' then
begin
lab_time.Caption:='使用时间';
DMHotel.ADODataSet_roomin.Open;
DMHotel.ADODataSet_roomin.Locate('roomid',roomid,[]);
st_username.Caption:=DMHotel.ADODataSet_roomin.FieldByName('username').AsString;
//lab_time.Caption:='预定时间';
st_time.Caption:=DMHotel.ADODataSet_roomin.FieldByName('intime').AsString;
DMHotel.ADODataSet_roomin.Close;
end;
end;

procedure Tformroom.room402Click(Sender: TObject);
var
roomid:string;
roomstatus:string;
//book_roomid:string;
//in_roomid:string;
begin
roomid:=inttostr(8402);
DMhotel.ADODataSet_roomstatus.Open;
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]) ;
st_roomid.Caption:=DMHotel.ADODataSet_roomstatus.FieldByName('roomid').AsString;
st_roomtype.Caption:=DMHotel.ADODataSet_roomstatus.FieldByName('roomtype').AsString;
st_roomstatus.Caption:=DMHotel.ADODataSet_roomstatus.FieldByName('roomstatus').AsString;
roomstatus:= DMHotel.ADODataSet_roomstatus.FieldByName('roomstatus').AsString;
DMHotel.ADODataSet_roomstatus.Close;

st_username.Caption:='';
st_time.Caption:='';

 if roomstatus='预定' then
 begin
DMHotel.ADODataSet_roombook.Open;
DMHotel.ADODataSet_roombook.Locate('roomid',roomid,[]);
st_username.Caption:=DMHotel.ADODataSet_roombook.FieldByName('username').AsString;
lab_time.Caption:='预定时间';
st_time.Caption:=DMHotel.ADODataSet_roombook.FieldByName('booktime').AsString;
DMHotel.ADODataSet_roombook.Close;
 end;
if roomstatus='使用' then
begin
lab_time.Caption:='使用时间';
DMHotel.ADODataSet_roomin.Open;
DMHotel.ADODataSet_roomin.Locate('roomid',roomid,[]);
st_username.Caption:=DMHotel.ADODataSet_roomin.FieldByName('username').AsString;
//lab_time.Caption:='预定时间';
st_time.Caption:=DMHotel.ADODataSet_roomin.FieldByName('intime').AsString;
DMHotel.ADODataSet_roomin.Close;
end;
end;

procedure Tformroom.room404Click(Sender: TObject);
begin

formroom.roomstatus_change(8404);
end;

procedure Tformroom.room403Click(Sender: TObject);
begin
formroom.roomstatus_change(8403);
end;

procedure Tformroom.room405Click(Sender: TObject);
begin
formroom.roomstatus_change(8405);
end;

procedure Tformroom.room406Click(Sender: TObject);
begin
formroom.roomstatus_change(8406);
end;

procedure Tformroom.room407Click(Sender: TObject);
begin
formroom.roomstatus_change(8407);
end;


procedure Tformroom.room408Click(Sender: TObject);
begin
formroom.roomstatus_change(8408);
end;

procedure Tformroom.room409Click(Sender: TObject);
begin
formroom.roomstatus_change(8409);
end;

procedure Tformroom.room410Click(Sender: TObject);
begin
formroom.roomstatus_change(8410);
end;

procedure Tformroom.room411Click(Sender: TObject);
begin
formroom.roomstatus_change(8412);
end;

procedure Tformroom.room412Click(Sender: TObject);
begin
formroom.roomstatus_change(8416);
end;

procedure Tformroom.room413Click(Sender: TObject);
begin
formroom.roomstatus_change(8418);
end;

procedure Tformroom.room501Click(Sender: TObject);
begin
formroom.roomstatus_change(8501);
end;

procedure Tformroom.room502Click(Sender: TObject);
begin
formroom.roomstatus_change(8502);
end;

procedure Tformroom.room503Click(Sender: TObject);
begin
formroom.roomstatus_change(8503);
end;

procedure Tformroom.room504Click(Sender: TObject);
begin
formroom.roomstatus_change(8504);
end;

procedure Tformroom.room505Click(Sender: TObject);
begin
formroom.roomstatus_change(8505);
end;

procedure Tformroom.room506Click(Sender: TObject);
begin
formroom.roomstatus_change(8506);
end;

procedure Tformroom.room507Click(Sender: TObject);
begin
formroom.roomstatus_change(8507);
end;

procedure Tformroom.room508Click(Sender: TObject);
begin
formroom.roomstatus_change(8508);
end;

procedure Tformroom.room509Click(Sender: TObject);
begin
formroom.roomstatus_change(8509);
end;

procedure Tformroom.room510Click(Sender: TObject);
begin
formroom.roomstatus_change(8510);
end;

procedure Tformroom.room511Click(Sender: TObject);
begin
formroom.roomstatus_change(8512);
end;

procedure Tformroom.room512Click(Sender: TObject);
begin
formroom.roomstatus_change(8516);
end;

procedure Tformroom.room513Click(Sender: TObject);
begin
formroom.roomstatus_change(8518);
end;

procedure Tformroom.room601Click(Sender: TObject);
begin
formroom.roomstatus_change(8602);
end;

procedure Tformroom.room602Click(Sender: TObject);
begin
formroom.roomstatus_change(8604);
end;

procedure Tformroom.room603Click(Sender: TObject);
begin
formroom.roomstatus_change(8606);
end;

procedure Tformroom.room604Click(Sender: TObject);
begin
formroom.roomstatus_change(8608);
end;

procedure Tformroom.room605Click(Sender: TObject);
begin
formroom.roomstatus_change(8610);
end;

procedure Tformroom.room606Click(Sender: TObject);
begin
formroom.roomstatus_change(8612);
end;

procedure Tformroom.ToolButton6Click(Sender: TObject);
begin
    formmodifypassword.ShowModal;
end;

procedure Tformroom.ToolButton2Click(Sender: TObject);
begin
    formsroombook.ShowModal;
end;

procedure Tformroom.FormShow(Sender: TObject);
begin
        //开始要显示的就是401房间
        formroom.roomstatus_change(8401);
end;

procedure Tformroom.ToolButton9Click(Sender: TObject);
begin
 formfinacebaobiao.ShowModal;
end;

end.
12

unitroom.~pas - 源码说明

本页面展示了「自己做过的工程」中的 unitroom.~pas 源码文件，采用 ~PAS 编程语言编写，共 1,258 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?