【正文】 Integer) = TrueEnd SubPrivate Sub text2_Change()39。房費(fèi)已結(jié)清39。 \。Data Source= amp。 \。Data Source= amp。 \。Data Source= amp。 Load main_zscx End Sub（六）掛賬結(jié)款main_gzjk：Dim d As StringDim rs1 As New Private Sub Form_Load() d = Format(Date, YYYYMMDD) t = Format(Time, HH:MM:SS) Dim i As Integer 39。 and 房間號(hào)=39。 = 1 = select * from tb_djb where 標(biāo)志=39。ListView 控件可使用四種不同視圖顯示項(xiàng)目。 % 39?？头烤S修數(shù) = 25 Val() Val() 39。調(diào)用模塊中的自定義函數(shù) = 39。維修39。 Set rs2 = ESQL(sql) 39。調(diào)用模塊中的自定義函數(shù) If 0 Then Do While = False text = (房間號(hào)) Set itmX = (, , text, 3) Loop End If sql = select * from tb_kf where =39。維修39?？辗?9。 Set rs1 = ESQL(sql) 39。 sql = select * from tb_kf where =39。ListView 控件ListView 控件可使用四種不同視圖顯示項(xiàng)目。聲明一個(gè)整型變量Private Sub Command1_Click() Unload Me = TrueEnd SubPrivate Sub Form_Activate() Dim rs1 As Dim rs2 As Dim rs3 As Dim sql As String 39。聲明一個(gè)ListItem對(duì)象Dim text As String 39。MsgBox 函數(shù)在對(duì)話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè) Integer 告訴用戶單擊哪一個(gè)按鈕。 \。Data Source= amp。 \。Data Source= amp?；剀嘋ommand1獲得焦點(diǎn)End SubPrivate Sub Command1_Click() 39?；剀噒ext2獲得焦點(diǎn)End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。Persist Security Info=False = select * from tb_userEnd SubPrivate Sub Form_Activate() 39。 amp。Persist Security Info=False = select * from tb_qxsz = Provider=。 amp。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = Provider=。ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO) 快速地創(chuàng)建一個(gè)到數(shù)據(jù)庫(kù)的連接。 39。調(diào)用模塊中的自定義函數(shù) End If If = 1 Then = select * from tb_kf where 房態(tài) =39。調(diào)用模塊中的自定義函數(shù) End If If = 1 Then sql = delete * from tb_tfd Set rs = ESQL(sql) 39。 Counter = Counter If = 1 Then sql = delete * from tb_djb Set rs = ESQL(sql) 39。UBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定的數(shù)組維可用的最大下標(biāo)。LBound 函數(shù)返回一個(gè) Long 型數(shù)據(jù)，其值為指定數(shù)組維可用的最小下標(biāo)。ProgressBar 控件ProgressBar 控件通過(guò)從左到右用一些方塊填充矩形來(lái)表示一個(gè)較長(zhǎng)操作的進(jìn)度。Persist Security Info=False = select * from tb_kf End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub start_Click() = True: = TrueEnd SubPrivate Sub creat_Click() 39。 amp。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = Provider=。重新登錄Load main_LoginEnd Sub（二）初始化main_csh模塊：Dim workarea(200), sql As String 39。調(diào)入初始化 = FalseEnd SubPrivate Sub qxsz_Click() 39。調(diào)入操作員設(shè)置 Load main_czysz = FalseEnd SubPrivate Sub ma_Click() 39。調(diào)入客房銷售報(bào)表 = FalseEnd SubPrivate Sub xstj_Click() 39。調(diào)入宿費(fèi)提醒 Load main_xftx = FalseEnd SubPrivate Sub ysbb_Click() 39。調(diào)入住宿查詢 Load main_zscx = FalseEnd SubPrivate Sub tfcx_Click() 39。調(diào)入掛賬查詢 Load main_gzcx = FalseEnd SubPrivate Sub gzjk_Click() 39。調(diào)入客房查詢 = FalseEnd SubPrivate Sub ftck_Click() 39。調(diào)入退宿結(jié)賬 = FalseEnd SubPrivate Sub kfsz_Click() 39。調(diào)入追加押金 Load main_zjyj = FalseEnd SubPrivate Sub tfdj_Click() 39。數(shù)據(jù)恢復(fù)End SubPrivate Sub zsdj_Click() 39。把空值賦給文件名End IfEnd SubPrivate Sub sjbf_Click() 39。關(guān)閉文件 = 39。打開(kāi)一個(gè)txt文件 Print 1, Str 39。將圖片名賦給變量 Open ( amp。如果文件不為空 = LoadPicture() 39。 39。設(shè)置圖片格式39。設(shè)置主窗口圖像Dim Str 39。 Case CXDL 39。 \ S = Shell(Paths, 1) 39。調(diào)入提醒 Case counter Dim L, S 39。調(diào)入住宿查詢 Case RJ xsbb_Click 39。調(diào)入退宿結(jié)賬 Case FT ftck_Click 39。 If 0 Then With = .Fields(追加押金) = .Fields(住宿登記) = .Fields(退宿登記) = .Fields(調(diào)房登記) = .Fields(客房管理) = .Fields(客房查詢) = .Fields(房態(tài)查看) = .Fields(掛賬查詢) = .Fields(掛賬結(jié)款) = .Fields(住宿查詢) = .Fields(退宿查詢) = .Fields(宿費(fèi)提醒) = .Fields(登記預(yù)收?qǐng)?bào)表) = .Fields(客房銷售報(bào)表) = .Fields(客房銷售統(tǒng)計(jì)報(bào)表) = .Fields(操作員設(shè)置) = .Fields(密碼設(shè)置) = .Fields(初始化) = .Fields(權(quán)限設(shè)置) = .Fields(設(shè)置窗口圖像) = .Fields(數(shù)據(jù)備份) = .Fields(數(shù)據(jù)恢復(fù)) (1).Enabled = .Fields(住宿登記) (3).Enabled = .Fields(退宿登記) (5).Enabled = .Fields(房態(tài)查看) (7).Enabled = .Fields(住宿查詢) (9).Enabled = .Fields(客房銷售報(bào)表) (11).Enabled = .Fields(宿費(fèi)提醒) End With End If End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case DJ zsdj_Click 39。 If 0 Then = select * from tb_qxsz where 操作員=39。設(shè)置操作員權(quán)限 = select * from tb_user where 操作員=39。 \image\) 39。當(dāng)找不到路徑時(shí)則轉(zhuǎn)向錯(cuò)誤處理 Open ( amp。Persist Security Info=False = select * from tb_qxsz On Error GoTo aa 39。 amp。Persist Security Info=False = select * from tb_user = Provider=。 amp。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = Provider=。定義字符變量存儲(chǔ)路徑Private Declare Function GetSystemDirectory Lib kernel32 Alias GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long 39。酒店客房管理 系 統(tǒng)住宿管理客房管理掛賬管理查詢統(tǒng)計(jì)日結(jié)系統(tǒng)設(shè)置系統(tǒng)維護(hù)（二）系統(tǒng)流程圖1. 預(yù)訂流程：2. 結(jié)賬流程：第四章 數(shù)據(jù)庫(kù)設(shè)計(jì)根據(jù)酒店客房管理系統(tǒng)需要，設(shè)置的數(shù)據(jù)庫(kù)包含入住登記表tb_djb、預(yù)收登記表tb_djys、掛賬信息表tb_gzmx、酒店房間信息表tb_kf、權(quán)限設(shè)置表tb_qxsz、調(diào)房登記表tb_tfd和管理者信息表tb_user。（五）開(kāi)發(fā)技術(shù)本系統(tǒng)利用Visual Basic編譯環(huán)境，采用可視化編程，以Microsoft Office Access 2003作為后臺(tái)數(shù)據(jù)庫(kù)，選用ADO訪問(wèn)數(shù)據(jù)庫(kù)來(lái)實(shí)現(xiàn)各種功能。系統(tǒng)在日常處理中的響應(yīng)速度為秒級(jí)，達(dá)到實(shí)時(shí)要求，以及時(shí)反饋信息。這就要求系統(tǒng)能夠提供良好的用戶接口，易用的人機(jī)交互界面。通過(guò)軟件的修補(bǔ)、替換完成系統(tǒng)的升級(jí)和更新?lián)Q代。所有這些都要求系統(tǒng)提供足夠的手段進(jìn)行功能的調(diào)整和擴(kuò)充。（2）系統(tǒng)的開(kāi)放性和系統(tǒng)的可擴(kuò)充性系統(tǒng)在開(kāi)發(fā)過(guò)程中，應(yīng)該充分考慮以后的可擴(kuò)充性。從系統(tǒng)的多個(gè)數(shù)據(jù)來(lái)源來(lái)看，客房信息查詢、訂房信息查詢、結(jié)