unitroom.pas ( File view )

  • By 2010-07-16
  • View(s):6
  • Download(s):0
  • Point(s): 1
			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;
    BitBtn1: TBitBtn;
    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);
    procedure BitBtn1Click(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:     
...
...
(Not finished, please download and read the complete file)
			
...
Expand> <Close

Want complete source code? Download it here

Point(s): 1

Download
0 lines left, continue to read
Sponsored links

File list

Tips: You can preview the content of files by clicking file names^_^
Name Size Date
Main.dcu11.27 kB28-12-02|17:08
Main.ddp51.00 B28-12-02|18:57
Main.dfm201.48 kB28-12-02|18:44
Main.pas7.57 kB28-12-02|18:42
Main.~ddp51.00 B28-12-02|18:42
Main.~dfm201.48 kB28-12-02|18:42
Main.~pas7.57 kB28-12-02|18:42
ProHotel.cfg386.00 B28-12-02|17:15
ProHotel.dof1.45 kB28-12-02|17:15
ProHotel.DPR7.11 kB28-12-02|17:10
ProHotel.RES876.00 B28-12-02|17:14
ProHotel.~DPR7.13 kB28-12-02|16:49
unitsupcheck.dcu12.37 kB11-10-02|15:39
unitroomquery.dcu6.47 kB18-12-02|20:38
unitsupdetail_data.dfm4.67 kB10-09-02|15:59
unitroomfeerequery.dcu8.42 kB11-10-02|15:39
unitroomquery.dfm9.79 kB18-12-02|20:18
unitroomrep.~dfm30.16 kB21-12-02|17:28
unitsroomstop.pas2.89 kB09-09-02|21:16
unitsroomquery.dfm8.13 kB10-09-02|15:59
unitroomrep.pas1.52 kB10-09-02|13:28
unitroomdebtrep.~pas1.64 kB10-09-02|13:35
unitroomrep.~ddp51.00 B21-12-02|17:32
unitsroomstop.dfm1.62 kB10-09-02|15:59
unitsroomHquery.dcu6.85 kB11-10-02|15:39
unitroomHquery.dcu6.48 kB18-12-02|20:20
unitroomrep.dfm30.16 kB21-12-02|19:57
unitsuproomstatusquery.pas4.24 kB09-09-02|09:10
unitroomdebtrep.~dfm33.28 kB13-12-02|21:14
unitroomdebtrep.pas1.64 kB10-09-02|13:35
unitroomquery.~pas3.05 kB18-12-02|20:19
unitsupmanage.pas17.34 kB05-03-03|21:26
unitroomHquery.pas3.06 kB18-12-02|20:19
unitsupmanage.dcu22.75 kB24-12-02|10:24
unitsroombook_data.pas7.88 kB10-10-02|08:24
unitsroomquery.dcu6.83 kB11-10-02|15:39
unitroomstatusrequery.dcu5.98 kB11-10-02|15:39
unitsuproomstatusquery.dfm4.84 kB10-09-02|15:58
unitroomdebtrep.ddp51.00 B21-12-02|23:07
unitsupconsumedetail_data.pas5.93 kB23-12-02|11:20
unitsupmanage.dfm79.80 kB28-12-02|18:42
unitroombookquery.dcu6.44 kB11-10-02|15:39
unitsupcheckCquery.dcu7.50 kB11-10-02|15:39
unitsupcheckSquery.dcu7.51 kB11-10-02|15:39
unitroomdebtrep.dfm33.25 kB21-12-02|23:01
unitroomcheck.pas44.84 kB14-12-02|09:04
unitsupdetail_data.pas6.37 kB11-10-02|16:23
unitroomquery.~dfm9.79 kB18-12-02|20:18
unitroomcheck.ddp51.00 B22-12-02|10:46
unitroomrep.~pas1.52 kB10-09-02|13:28
unitsroombook_data.dfm6.07 kB10-09-02|15:59
unitsupconsumedetail_data.dfm5.26 kB10-09-02|15:59
unitsroomquery.pas3.50 kB09-09-02|08:13
unitroomcheck.dfm44.33 kB14-12-02|08:08
unitroomHquery.dfm9.79 kB10-09-02|08:00
unitsroombookquery.dcu6.80 kB11-10-02|15:39
unitroomquery.pas3.05 kB18-12-02|20:38
unitchangeroom.dcu13.75 kB25-12-02|21:16
unitchangeroom.ddp51.00 B24-12-02|15:07
unitchangeroom.dfm11.36 kB24-12-02|14:39
unitchangeroom.pas10.45 kB14-12-02|09:03
unitchangeroom.~dfm11.36 kB14-12-02|08:59
unitchangeroom.~pas10.45 kB14-12-02|09:03
Unitcustomerdebt.dcu4.93 kB12-09-02|11:26
unitcustomer.dfm13.83 kB07-09-02|15:49
unitcustomer.pas1.73 kB09-09-02|10:25
unitcustomer.dcu5.60 kB11-10-02|15:39
Unitcustomerdebt.dfm27.54 kB10-09-02|14:48
Unitcustomerdebt.pas1.45 kB10-09-02|14:48
unitcustomermanagerquery.dcu7.34 kB11-10-02|15:39
unitcustomermanagerquery.dfm16.89 kB07-09-02|23:01
unitcustomermanagerquery.pas3.38 kB19-08-02|16:09
unitDBMessage.dcu3.34 kB12-09-02|11:26
unitDBMessage.dfm904.00 B12-08-02|12:09
unitDBMessage.pas434.00 B05-08-02|15:53
unitdebtroomrequery.dcu6.16 kB11-10-02|15:39
unitdebtroomrequery.dfm9.42 kB09-09-02|11:12
unitdebtroomrequery.pas2.57 kB09-09-02|11:13
unitdictionary.dcu6.39 kB11-10-02|15:39
unitdictionary.dfm3.77 kB10-09-02|08:02
unitdictionary.pas2.89 kB08-09-02|08:48
unitDMHotel.dcu36.96 kB18-12-02|20:51
unitDMHotel.ddp51.00 B21-12-02|23:14
unitDMHotel.dfm8.93 kB21-12-02|23:10
unitDMHotel.pas47.43 kB18-12-02|20:50
unitDMHotel.~ddp51.00 B18-12-02|20:50
unitDMHotel.~dfm8.89 kB11-10-02|15:52
unitDMHotel.~pas47.43 kB18-12-02|20:50
unitexitsys.dcu3.84 kB10-10-02|08:06
unitexitsys.dfm1.30 kB10-09-02|08:01
unitexitsys.pas869.00 B17-08-02|08:59
unitfinancemanage.dcu6.47 kB24-12-02|10:24
unitfinacebaobiao.ddp51.00 B25-12-02|22:47
unitfinacebaobiao.dfm5.59 kB25-12-02|21:23
unitfinacebaobiao.pas4.69 kB25-12-02|22:47
unitfinancemanage.~ddp51.00 B28-12-02|18:44
unitfinancemanage.~dfm452.29 kB28-12-02|18:44
unitfinacebaobiao.~pas4.65 kB25-12-02|22:44
unitfinacebaobiao.dcu9.47 kB25-12-02|22:47
unitfinancemanage.ddp51.00 B05-03-03|21:24
unitfinancemanage.dfm452.29 kB28-12-02|18:44
unitfinancemanage.pas3.14 kB05-03-03|21:24
unitfinacebaobiao.~ddp51.00 B25-12-02|22:44
unitfinacebaobiao.~dfm5.59 kB25-12-02|21:23
unitfinancemanage.~pas3.14 kB28-12-02|18:44
unitforbid.dcu8.80 kB25-12-02|21:16
unitforbid.dfm1.36 kB06-08-02|22:20
unitforbid.pas6.06 kB09-09-02|23:40
unitFsupcheckCquery.dcu7.81 kB11-10-02|15:39
unitFsupcheckCquery.dfm7.60 kB10-09-02|08:01
unitFsupcheckCquery.pas4.69 kB09-09-02|09:03
unitFsupcheckSquery.dcu7.81 kB11-10-02|15:39
unitFsupcheckSquery.dfm7.61 kB10-09-02|08:01
unitFsupcheckSquery.pas4.69 kB09-09-02|09:04
unitinroom.dcu16.80 kB25-12-02|21:16
unitinroom.ddp51.00 B25-12-02|20:20
unitinroom.dfm16.27 kB25-12-02|20:20
unitinroom.pas14.38 kB25-12-02|20:20
unitinroom.~ddp51.00 B24-12-02|15:08
unitinroom.~dfm16.69 kB24-12-02|15:08
unitinroom.~pas14.40 kB24-12-02|15:07
unitlogging.dcu8.00 kB24-12-02|10:24
unitlogging.ddp51.00 B05-03-03|21:20
unitlogging.dfm216.68 kB10-10-02|08:11
unitlogging.pas4.92 kB05-03-03|21:19
unitlogging.~ddp51.00 B24-12-02|10:24
unitlogging.~dfm216.68 kB10-10-02|08:11
unitlogging.~pas4.92 kB24-12-02|10:24
unitmanagerroomquery.dcu8.82 kB11-10-02|15:39
unitmanagerroomquery.dfm27.46 kB08-09-02|20:28
unitmanagerroomquery.pas4.80 kB18-08-02|10:20
unitmodifypassword.dcu6.04 kB11-10-02|15:39
unitmodifypassword.ddp51.00 B10-10-02|08:14
unitmodifypassword.dfm3.67 kB09-10-02|23:57
unitmodifypassword.pas2.46 kB10-10-02|08:14
unitmodifypassword.~ddp51.00 B10-10-02|08:08
unitmodifypassword.~dfm3.67 kB09-10-02|23:57
unitmodifypassword.~pas2.46 kB10-10-02|08:08
unitQRdayMXrep.dcu6.46 kB25-12-02|22:44
unitQRmonthrep.ddp51.00 B24-12-02|14:31
unitQRmonthrep.dfm35.58 kB24-12-02|14:16
unitQRdayrep.pas9.12 kB24-12-02|12:58
unitQRmonthrep.~ddp51.00 B24-12-02|14:16
unitQRmonthrep.~dfm35.58 kB24-12-02|14:16
unitQRyearrep.~pas8.27 kB24-12-02|14:13
unitQRyearrep.dcu10.90 kB24-12-02|14:31
unitQRyearrep.ddp51.00 B24-12-02|14:31
unitQRdayrep.dfm37.08 kB24-12-02|10:20
unitQRyearrep.pas8.24 kB24-12-02|14:31
unitQRyearrep.~ddp51.00 B24-12-02|14:16
unitQRyearrep.~dfm35.58 kB24-12-02|14:15
unitQRmonthrep.~pas8.27 kB24-12-02|14:00
unitQRdayrep.dcu12.08 kB24-12-02|13:09
unitQRdayrep.ddp51.00 B24-12-02|12:58
unitQRyearrep.dfm35.58 kB24-12-02|14:15
unitQRdayMXrep.pas2.56 kB25-12-02|22:44
unitQRdayMXrep.~ddp51.00 B25-12-02|22:44
unitQRdayMXrep.~dfm64.08 kB25-12-02|22:38
unitQRdayMXrep.~pas2.56 kB25-12-02|22:44
unitQRmonthrep.dcu10.92 kB24-12-02|14:31
unitQRdayMXrep.ddp51.00 B25-12-02|22:44
unitQRdayMXrep.dfm64.01 kB25-12-02|22:44
unitQRmonthrep.pas8.27 kB24-12-02|14:30
unitQRdayrep.~ddp51.00 B24-12-02|10:24
unitQRdayrep.~dfm37.08 kB24-12-02|10:20
unitQRdayrep.~pas9.12 kB24-12-02|10:16
unitquery.dcu4.81 kB12-09-02|11:26
unitquery.dfm1.84 kB18-08-02|14:48
unitquery.pas1.68 kB18-08-02|12:08
unitroom.dcu27.80 kB25-12-02|21:30
unitroom.ddp51.00 B28-12-02|18:57
unitroom.dfm208.39 kB28-12-02|18:57
unitroom.pas26.81 kB28-12-02|18:57
unitroombook.dcu14.02 kB25-12-02|21:16
unitroombook.ddp51.00 B11-10-02|15:27
unitroombookquery.dfm7.80 kB18-08-02|14:48
unitroombookquery.pas3.09 kB11-08-02|12:38
unitroom.~ddp51.00 B24-12-02|10:53
unitroombook.~dfm6.86 kB09-09-02|23:17
unitroombook.~pas10.87 kB09-09-02|23:19
unitroomrep.dcu4.97 kB12-09-02|11:26
unitroomHquery.ddp51.00 B18-12-02|20:19
unitroomfeerequery.dfm18.96 kB09-09-02|11:16
unitroomfeerequery.pas4.91 kB09-09-02|11:17
unitroomcheck.~ddp51.00 B11-12-02|22:28
unitroomHquery.~dfm9.79 kB10-09-02|08:00
unitroomHquery.~pas3.06 kB11-08-02|12:45
unitroomdebtrep.dcu5.18 kB12-09-02|11:26
unitroomquery.ddp51.00 B18-12-02|20:47
unitroomstatusrequery.dfm8.45 kB08-09-02|20:11
unitroomstatusrequery.pas2.66 kB14-08-02|21:19
unitroomdebtrep.~ddp51.00 B13-12-02|22:26
unitroom.~dfm208.00 kB11-12-02|20:05
unitroom.~pas26.58 kB24-12-02|10:53
unitroomcheck.dcu47.38 kB25-12-02|21:16
unitroomrep.ddp51.00 B21-12-02|19:57
unitroombook.dfm7.40 kB11-10-02|15:26
unitroombook.pas10.87 kB11-10-02|15:26
unitroomquery.~ddp51.00 B18-12-02|20:19
unitroomcheck.~dfm44.11 kB11-12-02|22:22
unitroomcheck.~pas42.30 kB10-09-02|13:26
unitsetsuptype_data.dcu6.95 kB11-10-02|15:39
unitsetprice.dfm5.79 kB10-09-02|08:00
unitsetprice.pas5.67 kB17-08-02|12:39
unitsetroomprice_data.dcu6.14 kB11-10-02|15:39
unitsetroomprice_data.dfm3.01 kB10-09-02|08:00
unitsetroomprice_data.pas2.46 kB17-08-02|12:45
unitsetsupprice_data.dcu8.38 kB11-10-02|15:39
unitsetsupprice_data.dfm4.59 kB10-09-02|08:00
unitsetsupprice_data.pas5.47 kB17-08-02|20:23
unitsetprice.dcu7.91 kB11-10-02|15:39
unitsetsuptype_data.dfm3.35 kB10-09-02|08:00
unitsetsuptype_data.pas4.10 kB08-09-02|08:56
unitsoftinformation.dcu3.42 kB12-09-02|11:26
unitsoftinformation.ddp51.00 B11-10-02|15:05
unitsoftinformation.dfm217.39 kB11-10-02|15:04
unitsoftinformation.pas476.00 B10-08-02|21:29
unitsoftinformation.~dfm217.40 kB10-09-02|08:00
unitsoftinformation.~pas476.00 B10-08-02|21:29
unitsroombook_data.dcu9.77 kB11-10-02|15:39
unitsroombook_data.ddp51.00 B10-10-02|08:24
unitsroombook.dfm4.64 kB10-09-02|09:36
unitsroombookquery.pas3.52 kB09-09-02|08:15
unitsroombook_data.~ddp51.00 B10-10-02|08:20
unitsroombook_data.~dfm6.07 kB10-09-02|15:59
unitsroombook_data.~pas9.37 kB10-10-02|08:20
unitsroombook.dcu6.50 kB11-10-02|15:39
unitsroombookquery.dfm7.81 kB10-09-02|15:59
unitsroombook.pas2.96 kB10-09-02|09:33
unitsroomopen.dcu6.23 kB11-10-02|15:39
unitsroomHquery.dfm8.18 kB10-09-02|15:59
unitsroomHquery.pas3.51 kB09-09-02|08:12
unitsroomstop.dcu6.22 kB11-10-02|15:39
unitsroomopen.dfm1.80 kB10-09-02|15:59
unitsroomopen.pas2.87 kB09-09-02|21:18
unitsuproomstatusquery.dcu7.04 kB11-10-02|15:39
unitsupmanage.ddp51.00 B05-03-03|21:26
unitsupcheck.dfm9.58 kB10-09-02|15:59
unitsupcheck.pas8.41 kB09-09-02|22:34
unitsupmanage.~ddp51.00 B05-03-03|21:26
unitsupconsumedetail_data.~dfm5.26 kB10-09-02|15:59
unitsupconsumedetail_data.~pas5.93 kB09-09-02|08:41
unitsupdetail_data.dcu9.43 kB11-10-02|16:23
unitsupdetail_data.ddp51.00 B11-10-02|16:23
unitsupcheckCquery.dfm6.90 kB10-09-02|15:59
unitsupcheckCquery.pas4.29 kB09-09-02|09:03
unitsupdetail_data.~ddp51.00 B11-10-02|16:22
unitsupmanage.~dfm79.80 kB28-12-02|18:42
unitsupmanage.~pas17.34 kB05-03-03|21:26
unitsupconsumedetail_data.dcu10.30 kB23-12-02|11:41
unitsupconsumedetail_data.ddp51.00 B23-12-02|11:30
unitsupcheckSquery.dfm6.90 kB10-09-02|15:59
unitsupcheckSquery.pas4.29 kB09-09-02|09:03
unitsupdetail_data.~dfm4.67 kB10-09-02|15:59
unitsupdetail_data.~pas6.37 kB11-10-02|16:22
unitsupdetails.dcu9.00 kB11-10-02|15:39
unitsupdetails.dfm8.22 kB10-09-02|15:59
unitsupdetails.pas6.11 kB09-09-02|21:09
unitsysuser_data.dcu6.67 kB11-10-02|15:39
unitsyslog.dfm4.47 kB10-09-02|15:58
unitsyslog.pas1.73 kB17-08-02|10:04
unitsysuser.dcu5.78 kB11-10-02|15:39
unitsysuser.dfm3.00 kB10-09-02|15:58
unitsysuser.pas2.19 kB09-09-02|08:00
unitsyslog.dcu5.50 kB11-10-02|15:39
unitsysuser_data.dfm3.93 kB10-09-02|15:58
unitsysuser_data.pas3.29 kB08-09-02|22:43
help.cnt836.00 B25-12-02|17:28
help.GID10.61 kB28-12-02|16:16
HELP.HLP29.72 kB25-12-02|17:32
help.rtf131.42 kB25-12-02|17:28
系统帮助.HLP28.35 kB24-12-02|17:12
系统帮助.hpj195.00 B25-12-02|17:32
系统帮助0.00 B29-09-07|22:28
Hotel0.00 B29-09-07|22:28
...
Sponsored links

unitroom.pas (1.73 MB)

Need 1 point
Your Point(s)

Your Point isn't enough.

Get point immediately by PayPal

More(Debit card / Credit card / PayPal Credit / Online Banking)

Submit your source codes. Get more point

LOGIN

Don't have an account? Register now
Need any help?
Mail to: support@codeforge.com

切换到中文版?

CodeForge Chinese Version
CodeForge English Version

Where are you going?

^_^"Oops ...

Sorry!This guy is mysterious, its blog hasn't been opened, try another, please!
OK

Warm tip!

CodeForge to FavoriteFavorite by Ctrl+D