unitroom.~pas

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

~PAS
1,258 行
字号
12
unit unitroom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ActnMan, ActnCtrls, ExtCtrls, ComCtrls,
  ActnList, ImgList, Grids, DBGrids, Buttons, DB, ADODB, jpeg;

type
  Tformroom = class(TForm)
    ImageList1: TImageList;
    Label1: TLabel;
    room401: TPanel;
    room402: TPanel;
    room403: TPanel;
    room404: TPanel;
    room405: TPanel;
    room406: TPanel;
    room411: TPanel;
    room503: TPanel;
    room508: TPanel;
    room513: TPanel;
    room605: TPanel;
    room407: TPanel;
    room412: TPanel;
    Timer1: TTimer;
    room504: TPanel;
    room509: TPanel;
    room601: TPanel;
    room606: TPanel;
    room408: TPanel;
    room413: TPanel;
    room505: TPanel;
    room510: TPanel;
    room602: TPanel;
    room409: TPanel;
    room501: TPanel;
    room506: TPanel;
    room511: TPanel;
    room603: TPanel;
    room410: TPanel;
    room502: TPanel;
    room507: TPanel;
    room512: TPanel;
    room604: TPanel;
    Panel2: TPanel;
    todaytime: TStaticText;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel1: TPanel;
    aaa: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    lab_time: TLabel;
    Label7: TLabel;
    Image1: TImage;
    lab_roomid: TStaticText;
    st_roomid: TStaticText;
    st_roomtype: TStaticText;
    st_roomstatus: TStaticText;
    st_username: TStaticText;
    st_time: TStaticText;
    todaydate: TStaticText;
    Panel7: TPanel;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    procedure ToolButton8Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure room401Click(Sender: TObject);
    procedure room402Click(Sender: TObject);
    procedure room404Click(Sender: TObject);
    procedure room403Click(Sender: TObject);
    procedure room405Click(Sender: TObject);
    procedure room406Click(Sender: TObject);
    procedure room407Click(Sender: TObject);
    procedure room408Click(Sender: TObject);
    procedure room409Click(Sender: TObject);
    procedure room410Click(Sender: TObject);
    procedure room411Click(Sender: TObject);
    procedure room412Click(Sender: TObject);
    procedure room413Click(Sender: TObject);
    procedure room501Click(Sender: TObject);
    procedure room502Click(Sender: TObject);
    procedure room503Click(Sender: TObject);
    procedure room504Click(Sender: TObject);
    procedure room505Click(Sender: TObject);
    procedure room506Click(Sender: TObject);
    procedure room507Click(Sender: TObject);
    procedure room508Click(Sender: TObject);
    procedure room509Click(Sender: TObject);
    procedure room510Click(Sender: TObject);
    procedure room511Click(Sender: TObject);
    procedure room512Click(Sender: TObject);
    procedure room513Click(Sender: TObject);
    procedure room601Click(Sender: TObject);
    procedure room602Click(Sender: TObject);
    procedure room603Click(Sender: TObject);
    procedure room604Click(Sender: TObject);
    procedure room605Click(Sender: TObject);
    procedure room606Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    
  private
    { Private declarations }
    function roomstatus_change(vroomid:integer):string;
  public
    { Public declarations }
    
  end;

var
  formroom: Tformroom;

implementation
uses unitlogging,unitexitsys,unitmodifypassword,unitsroombook,unitroombook,unitinroom,unitDMHotel,unitroomcheck,unitquery,unitforbid,unitfinacebaobiao;
{$R *.dfm}
   //自定义函数的实现，所有和房间状态有关的情况都要调用房间状态表来实现
   //每次初始化这个界面就可以看到当前各个房间的状态
function Tformroom.roomstatus_change(vroomid:integer):string;
var
roomid:string;
roomstatus:string;
//book_roomid:string;
//in_roomid:string;
begin
roomid:=inttostr(vroomid);
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;
 //必须要先将后两个clear
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.ToolButton8Click(Sender: TObject);
begin
   formexitsys.ShowModal;
end;

procedure Tformroom.Timer1Timer(Sender: TObject);
begin
formroom.todaytime.Caption:=timetostr(time);
formroom.todaydate.Caption:=formatdatetime('yyyy''年''m''月''d''日',now);
end;

procedure Tformroom.ToolButton1Click(Sender: TObject);
begin
 fromroomkook.ShowModal;
end;

procedure Tformroom.ToolButton3Click(Sender: TObject);
begin
forminroom.ShowModal;
end;

procedure Tformroom.ToolButton4Click(Sender: TObject);
begin
formroomcheck.ShowModal;
end;

procedure Tformroom.ToolButton5Click(Sender: TObject);
begin
formquery.ShowModal;
end;



procedure Tformroom.ToolButton7Click(Sender: TObject);
begin
formforbid.ShowModal;
end;

procedure Tformroom.FormCreate(Sender: TObject);
var
roomid:string;
roomstatus:string;
//itemid:string;
//itemstatus:string;
//itemtype:string;
begin
//调用room_status显示各个房间的状态
DMHotel.ADODataSet_roomstatus.open;
//with DMHotel.ADODataSet_roomstatus do
//401房间
roomid:=inttostr(8401);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room401.Color:=clCaptionText;
 end;
2: //预定
 begin
 room401.Color:=clLime;
 end;
3://使用
 begin
room401.Color:=clAqua;
 end;
4:     //禁用
 begin
 room401.Color:=clRed;
 end;
 end;
//showmessage('jingyong');
//DMHotel.ADODataSet_roomstatus.Close;

//402房间

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 //504房间
 roomid:=inttostr(8504);
DMHotel.ADODataSet_roomstatus.Locate('roomid',roomid,[]);
roomstatus:=DMHotel.ADODataSet_roomstatus.FieldValues['statusid'];
//选择状态
case strtoint(roomstatus) of
1:  //空闲
 begin
 room504.Color:=clCaptionText;
 end;
2: //预定
 begin
 room504.Color:=clLime;
 end;
3://使用
12

unitroom.~pas - 源码说明

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

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

⌨️ 快捷键说明

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