【正文】 B = B + D (A, B + 100)(C, B + 100) = 100 + A = B + 200 操作員: amp。 Format(ZSDJ(10).Text, ) B = B + D = 100 + A = B + 200 amp。 NO. amp。具體代碼如下： Private Sub print_Click() 39。設(shè)置控件有效或無效 For i = 0 To 6 ZSDJ(i).Enabled = False Next i ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False = False: = False End If = False: = True: = True End SubPrivate Sub cancel_Click() 39。 Left(Time, 2) amp。添加住宿預(yù)收信息 If Then (憑證號(hào)碼) = If ZSDJ(0).Text Then (姓名) = ZSDJ(0).Text If Then (證件名稱) = If ZSDJ(1).Text Then (證件號(hào)碼) = ZSDJ(1).Text If ZSDJ(2).Text Then (詳細(xì)地址) = ZSDJ(2).Text If ZSDJ(3).Text Then (出差事由) = ZSDJ(3).Text If Then (房間號(hào)) = Val() If ZSDJ(5).Text Then (客房?jī)r(jià)格) = Val(ZSDJ(5).Text) If Then (住宿日期) = If Then (住宿時(shí)間) = If ZSDJ(6).Text Then (住宿天數(shù)) = ZSDJ(6).Text If Then (結(jié)款方式) = If ZSDJ(8).Text Then (折扣) = ZSDJ(8).Text If ZSDJ(7).Text Then (宿費(fèi)) = ZSDJ(7).Text If ZSDJ(9).Text Then (應(yīng)收宿費(fèi)) = ZSDJ(9).Text If ZSDJ(10).Text Then (預(yù)收金額) = Val(ZSDJ(10).Text) If Then (提醒日期) = If Then (提醒時(shí)間) = If Then (退宿日期) = If Then (退宿時(shí)間) = If ZSDJ(11).Text Then (備注) = ZSDJ(11).Text (日期) = Date (時(shí)間) = Time 39。 Right(Date, 2) amp。 \) Set myrs1 = (djys, dbOpenTable) 房間號(hào) like + Chr(34) + + Chr(34) + and 標(biāo)志 like + Chr(34) + 1 + Chr(34) + If Then 39。清空數(shù)據(jù)For i = 0 To 6 ZSDJ(i).Text = ZSDJ(i).Enabled = TrueNext i ZSDJ(8).Text = : ZSDJ(10).Text = : ZSDJ(11).Text = : = : = 39。 d amp。39。查詢空閑房間信息 = select * from kf where 房態(tài)=39。憑證號(hào)碼由系統(tǒng)日期、字母+d。查詢住宿登記信息 If 0 Then If = 0 Then ZSDJ(4).Text = (房間類型) 39。 39。39。 amp。按回車鍵tim4獲得焦點(diǎn)End SubPrivate Sub tim3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。ZSDJ(11)獲得焦點(diǎn) Case 11 If KeyCode = vbKeyReturn Then 39。按回車鍵ZSDJ(3)獲得焦點(diǎn) Case 3 If KeyCode = vbKeyReturn Then 39。用val函數(shù)將字符串轉(zhuǎn)換為數(shù)字 = + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 39。計(jì)算折前宿費(fèi) ZSDJ(9).Text = ZSDJ(7).Text 39。設(shè)置ZSDJ(8)有效 ZSDJ(8).SetFocus 39。初始化日期及時(shí)間 = 12:00:00 PM: = Date: = Date = (4).Text 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 = amp。 ⑵在窗體中添加3個(gè)Data控件、1個(gè)DBCombo控件、3個(gè)DTpicker控件、2個(gè)Combo控件、18個(gè)Text控件等。 ．自動(dòng)計(jì)算折前宿費(fèi)、實(shí)際宿費(fèi)、宿費(fèi)提醒時(shí)間、退宿時(shí)間。密碼輸錯(cuò)3次，退出系統(tǒng) myval = MsgBox(密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!, 0, ) If myval = vbOK Then End End If If = Then MsgBox (請(qǐng)輸入操作員!) Else If (操作員) Then MsgBox (查無此操作員,請(qǐng)重新輸入操作員!) Else If = Then MsgBox (請(qǐng)輸入操作員密碼!) Else If (密碼) Then MsgBox (密碼錯(cuò)誤,請(qǐng)重新輸入密碼!) TIM = TIM + 1 End If End If End If End If End IfEnd IfEnd SubPrivate Sub cmd2_Click() EndEnd Sub一、住宿登記模塊設(shè)計(jì) 1．實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，選擇“住宿管理”菜單下的“住宿登記”項(xiàng)，將進(jìn)入住宿登記模塊。 amp。當(dāng)記錄為零時(shí)，進(jìn)入系統(tǒng)具有所有權(quán)限 If = 0 Then MsgBox (請(qǐng)先設(shè)置操作員密碼和權(quán)限！) Load main Unload Me Else End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。定義一個(gè)字符串變量Private Sub Form_Load() 39。 ③在窗體中添加2個(gè)Data控件、1個(gè)DBC0mbo控件、2個(gè)Label控件、1個(gè)Text控件、2個(gè)Conunand控件。 ．輸入三次錯(cuò)誤的密碼，自動(dòng)退出系統(tǒng)。調(diào)入權(quán)限設(shè)置 = FalseEnd SubPrivate Sub tc_Click() EndEnd Sub ①實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，首先進(jìn)入系統(tǒng)登錄界面驗(yàn)證操作員及密碼。調(diào)入客房銷售統(tǒng)計(jì) = FalseEnd SubPrivate Sub czysz_Click() 39。調(diào)入退宿查詢 Load main_tfcx = FalseEnd SubPrivate Sub sftx_Click() 39。調(diào)入掛帳查詢 Load main_gzcx = FalseEnd SubPrivate Sub khjk_Click() 39。調(diào)入退宿結(jié)帳 = FalseEnd SubPrivate Sub kfsz_Click() 39。調(diào)入客房預(yù)定 = FalseEnd SubPrivate Sub StatusBar1_PanelClick(ByVal Panel As )End SubPrivate Sub zsdj_Click() 39。調(diào)入退宿結(jié)帳 tf_ClickEnd SubPrivate Sub Label3_Click() 39。 \ 39。 主程序界面如圖53所示。本系統(tǒng)采用了菜單式設(shè)計(jì)，以使用鼠標(biāo)及鍵盤操作為主。為了解決這種情況，本系統(tǒng)設(shè)計(jì)了宿費(fèi)提醒功能，可以及時(shí)提醒賓館客人什么時(shí)間需補(bǔ)交多少宿費(fèi)。 房間號(hào)Like”＋Chr(34)＋＋Chr(34)＋and like “＋Chr(34)＋”1”＋Chr(34)＋and姓名like＋Chr(34)＋＋”*”＋Chr(34)＋and憑證號(hào)碼like＋Chr(34)＋＋Chr(34)＋”” If ＜＞”“Then (房間號(hào))＝Val() If ＜＞””Then （”客房類型”）＝ If ＜＞””Then (客房?jī)r(jià)格”）＝Val() If ＜＞”“ Then (備注”）＝Textl (標(biāo)志”)＝”1” （“摘要”）=”由源房”＆ amp。 如果客人退宿結(jié)賬時(shí)間不在住宿當(dāng)天，可以按如下算法（定義A為天數(shù)）： 如客人退宿結(jié)賬時(shí)間在中午12:00之前，住宿天數(shù)為（退宿日期一住宿日期）＋； 如客人退宿結(jié)賬時(shí)間在中午12:00之后，住宿天數(shù)為（退宿日期一住宿日期）+1天。下面根據(jù)筆者在開發(fā)賓館客房管理系統(tǒng)中的一些經(jīng)驗(yàn)向讀者講解一下在宿費(fèi)算法、客人調(diào)房、宿費(fèi)提醒等三方面應(yīng)注意的一些問題。它可以是字符、數(shù)字、某些特殊符號(hào)或他們的組合。2）數(shù)據(jù)庫(kù)的完整性由數(shù)據(jù)庫(kù)管理的完整性約束和數(shù)據(jù)庫(kù)觸發(fā)器來實(shí)現(xiàn)。由于數(shù)據(jù)庫(kù)中存放的是重要數(shù)據(jù)，并且為各種用戶所共享，數(shù)據(jù)的安全性顯得格外重要。字段名稱數(shù)據(jù)類型字段大小操作員文本10密碼文本6表46表ma的結(jié)構(gòu) 7．權(quán)限設(shè)置表qxsz 權(quán)限設(shè)置表qxsz用來保存操作員的權(quán)限，結(jié)構(gòu)見表37所示。字段名稱數(shù)據(jù)類型字段大小憑證號(hào)碼文本20姓名文本50證件名稱文本20證件號(hào)碼文本20出差事由文本50房間號(hào)文本20客房類型文本10聯(lián)系電話文本20客房?jī)r(jià)格貨幣8住宿日期日期/時(shí)間8住宿時(shí)間日期/時(shí)間8住宿天數(shù)數(shù)字雙精度型宿費(fèi)貨幣8折扣數(shù)字雙精度型應(yīng)收宿費(fèi)貨幣8預(yù)收金額貨幣8提醒日期日期/時(shí)間8退宿日期日期/時(shí)間8備注文本50標(biāo)志文本1日期日期/時(shí)間8時(shí)間日期/時(shí)間8結(jié)款方式文本1摘要文本200提醒時(shí)間日期/時(shí)間8退宿時(shí)間日期/時(shí)間8表42表djb的結(jié)構(gòu) 掛賬明細(xì)表gzmx用來保存客人住宿掛賬信息和客人結(jié)賬信息，結(jié)構(gòu)見表43所示。本系統(tǒng)為Access數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱為kfglo，數(shù)據(jù)庫(kù)包含以下8個(gè)表：登記預(yù)收表djys,登記表djb,掛賬明細(xì)表gzmx,客房基礎(chǔ)信息表kf,客房預(yù)定表kfyd,密碼表ma,權(quán)限設(shè)置表qxsz,退房登記表tfd。（3）N：M二元聯(lián)系：一般由另一個(gè)關(guān)系模式表示。顧 客N1111掛帳mth 退房預(yù)訂續(xù)費(fèi)入住1M1NN客 房 E—R圖 E－R模型轉(zhuǎn)化為關(guān)系模式 轉(zhuǎn)換規(guī)則實(shí)體集的轉(zhuǎn)換 每個(gè)實(shí)體集用一關(guān)系模式表示，其中實(shí)體集的屬性被轉(zhuǎn)換成關(guān)系的屬性，實(shí)體集的主鍵（用下劃線表示，下同），在滿足唯一標(biāo)識(shí)和無冗余等性質(zhì)的條件下，將作為對(duì)應(yīng)關(guān)系的主鍵。 實(shí)體本系統(tǒng)中的主要實(shí)體有8個(gè)，分別是：顧客、客房、憑證、住宿登記表、掛賬單、住宿單、退房登記表、結(jié)帳發(fā)票?？头款A(yù)訂的有關(guān)信息 需要提供的信息應(yīng)包括姓名、身份證號(hào)、聯(lián)系電話、詳細(xì)地址、工作單位、客房類型、房間價(jià)格、預(yù)住日期、預(yù)住天數(shù)、預(yù)付金額等。 實(shí)體聯(lián)系圖（ER圖）是一種用于靜態(tài)數(shù)據(jù)結(jié)構(gòu)的概念模型。模塊之間的調(diào)用關(guān)系用連接兩模塊的直線表示。用此圖表示自頂向下分解所得系統(tǒng)的模塊層次結(jié)構(gòu)。這個(gè)階段的主要目的是將系統(tǒng)分析階段所提出的反映了用戶信息需求的系統(tǒng)邏輯方案轉(zhuǎn)換成可以實(shí)施的基于計(jì)算機(jī)與通信系統(tǒng)的物理（技術(shù)）方案。2．根據(jù)顧客提供的預(yù)訂房費(fèi)，形成客房預(yù)訂信息。 對(duì)數(shù)據(jù)流圖中所有的數(shù)據(jù)加工都要加以說明，現(xiàn)在以頂層圖中“客房管理”為例進(jìn)行說明。 對(duì)數(shù)據(jù)流圖中所有的數(shù)據(jù)流都要加以說明，現(xiàn)在以二層圖中的“F2住宿證”為例進(jìn)行說明。 客房管理數(shù)據(jù)流程二層圖說明 。本系統(tǒng)支持經(jīng)理對(duì)營(yíng)運(yùn)數(shù)據(jù)的統(tǒng)計(jì)分析功能（F5）。本文中數(shù)據(jù)流中的符號(hào)解釋如下：F3住宿證、手牌、住宿登記單首先，根據(jù)對(duì)管理信息系統(tǒng)建設(shè)的總體要求，確定系統(tǒng)的