【正文】 [PRIMARY] 創(chuàng)建客房信息表格 rooms 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 CREATE TABLE [dbo].[rooms]( [roomNO][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, ⒍ 賓館管理信息系統(tǒng) 具體程序?qū)崿F(xiàn) ⑴ 創(chuàng)建公用模塊 添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語(yǔ)句。 ● 結(jié)算信息的輸入，包括客房編號(hào)、客房種類(lèi)、位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備 注信息等。 ⒉系統(tǒng)功能分析 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。Trim(txtNo)amp?！盿nd roomprice=’”amp?！薄?=””And Trim(Combo1(2)amp?！薄?””Then sQSql=sQSqlamp。””)amp。Trim(Combo1(1)amp。刪除訂房信息 ”and roomtype=’”amp。查詢客房信息 Private Sub From_Load()‘載入窗體時(shí)，將自動(dòng)加入所有記錄的入庫(kù)時(shí)間 Dim i As Integer Dim j As Integer Dim sSql As String Dim txtSQL As String Dim MsgText As String Dim mrc As txtSQL=”select DISTINCT typename from roomtype” ‘初始化客房種類(lèi) Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not Trim((0)) Loop =0 Else MsgBox “請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置 !”,vbOKOnly+vbExclamation, ”警告 ” Exit Sub End If End Sub Private Sub cmdOK_Click()‘設(shè)置完查詢內(nèi)容和方式后，單擊 cmdOk 按鈕查詢 Dim sQSql As String If chkItem(0).Value=vbChecked Then sQSql=”roomNO=’”amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”select*from rooms” ‘再加入新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) ‘為數(shù)據(jù)庫(kù)對(duì)象添加記錄 (0)=Trim(txtItem(0)) (1)=Trim(txtItem(0)) For intCount=1 To 2 If Trim(txtItem(intCount)amp。查詢客房信息 具體實(shí)現(xiàn)代碼如下： Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類(lèi) Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =amp?！薄?‘刪除已有記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype” ‘添加新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) Loop End With End Sub Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘選擇記錄，然后單擊鼠標(biāo)右鍵，觸發(fā)MouseUp 事件 If Button=2 And Shift=0 Then PopupMenu End If End Sub Private Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then ‘ 判斷是否打開(kāi)記錄窗體 If 1 Then fintTmode=2‘設(shè)置為修改狀態(tài) intCount=‘記下選擇記錄 =”select*from roomtype where typeid’”amp。添加用戶。 ● 訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類(lèi)、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、備注等。 ● 客房基本信息的查詢、修改，包括客房編號(hào)、客房類(lèi)型、客房位置、客房單價(jià)、備注等。 主要完成功能： ● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱(chēng)、房間面積、床位數(shù)量、 住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。 ● 結(jié)算信息的修改和查詢，包括客房編號(hào)、客房種類(lèi)、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)日期、備注信息等。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ‘ 執(zhí)行 SQL 語(yǔ)句，并返回記錄集對(duì)象 Dim n As Dim rst As Dim sTokens() As String ‘ 異常處理 On Error GoTo ExecuteSQL_Error’ ‘用 Split 函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘ 打開(kāi)連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL End sub ‘ 添加全局變量 ，用來(lái) 記錄 各個(gè)窗口的讀寫(xiě)狀態(tài)，代碼如下： Public flagTedit As Boolean ‘ 標(biāo)示是否進(jìn)入修改的窗體 Public flagRedit As Boolean Public flagBedit As Boolean Public flagCedit As Boolean Public gintCmode As Integer Public gintTmode As Integer ’ 記錄是添加還是修改狀態(tài) ， 1 為添加， 2為修改 Public gintRmode As Integer Public gintBmode As Integer Public flagSedit As Boolean ⑵ 系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實(shí)現(xiàn)： Trim(txtItem(1))amp。添加客房信息 Trim(txtItem(0))amp。刪除客房信息 Private Sub menuDeleteroom_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then If 1 Then‘判斷客房信息列表內(nèi)容是否為空 If MsgBox(“ 真 的 要 刪 除 這 條 文 件 記 錄么？ ”,vbOKCancel+vbExclamation ,“警告 ”)=vbOK Then intCount=‘記載當(dāng)前記錄位置 txtSQL=”delete from rooms where roomNO=購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 ‘ ”amp。Trim(Combo1amp。查詢剩余客房信息 ””)=”” Then If Trim(Combo1(1)amp。””)=””And Trim(Combo1(2)amp?！薄?amp。Trim(Combo1(2)amp。”’” ElseIf Trim(Combo1(1)amp?！盿nd 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 putup”’y’” flagSedit=True End If End Sub Private Sub From_Load()‘添加訂房信息，載入窗體時(shí)把所有未預(yù)定的客房信息加入其中 Dim sSql As String Dim intCount As Integer =True Else MsgBox “沒(méi)有訂房信息 !” ,vbOKOnly+vbExclamation, “警告” =False Exit Sub End If txtSQl=”select*from booking where amount=’0’and roomno=’”amp。查詢剩余客房信息 購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 ● 剩余客房信息的查詢等。 ● 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類(lèi)、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、結(jié)算時(shí)間、備注等。 Trim((intCo購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 unt,1))amp。“添加 ” txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex=0‘顯示記錄內(nèi)容 Else MsgBox “ 請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè) 置 !”,vbOKOnly+vbExclamation,“警告 ” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設(shè)置 SQL 語(yǔ)句顯示當(dāng)前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷購(gòu)買(mǎi)設(shè)計(jì) ： 382540551 全套包括 :開(kāi)題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount t