【正文】 查詢客房信息 具體實(shí)現(xiàn)代碼如下： Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類 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) Unload frmRoomtype‘關(guān)閉記錄窗體 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 =”select*from r oomtype” ‘重新選擇所有記錄 End If End If End If End Sub ⑸客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實(shí)現(xiàn)如下功能： ”’” ‘刪除已有記錄 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 ‘ 判斷是否打開記錄窗體 If 1 Then fintTmode=2‘設(shè)置為修改狀態(tài) intCount=‘記下選擇記錄 =”select*from roomtype whe re typeid’”amp?！薄痑nd typename=’”amp。添加用戶。其各個(gè)表格的設(shè)計(jì)結(jié)果如下 列名 數(shù)據(jù)類型 可否為空 說明 Typeid Varchar NOT NULL 標(biāo)準(zhǔn)編號(hào) Typename Varchar NOT NULL 標(biāo)準(zhǔn)名稱 Area Numeric NULL 房間面積 Bednum Numeric NULL 床位數(shù)量 Haircondition Varchar NULL 是否有空調(diào) Htelephone Varchar NULL 是否有電話 Htelevision Varchar NULL 是否有電視 Htoilet Varchar NULL 是否有單獨(dú)衛(wèi)生間 Price Numeric NULL 單價(jià) 結(jié)算信息實(shí)體 客房信息 顧客 信息 結(jié)算時(shí)間 結(jié)算金額 客房標(biāo)準(zhǔn)信息 客房登記 客房信息管理 訂 房 訂房信息管理 結(jié)算信息管理 客房結(jié)算 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Roomtype 客房 標(biāo)準(zhǔn)信息表 列名 數(shù)據(jù)類型 可否為空 說明 roomNO Varchar NOT NULL 客房編號(hào) Roomtype Varchar NOT NULL 客房種類 Roomposition Varchar NULL 客房位置 Roomprice Numeric NULL 單價(jià) Putup Varchar NOT NULL 是否被預(yù)定 Roommemo Text NULL 備注 Rooms 客房信息表 列名 數(shù)據(jù)類型 可否為空 說 明 Bookno Varchar NOT NULL 訂房編號(hào) Customname Varchar NOT NULL 顧客姓名 CustomID Varchar NOT NULL 身份證號(hào)碼 Roomno Varchar NOT NULL 客房編號(hào) Indate Datetime NULL 入住日期 Discount Numeric NULL 折扣 Inmeno Text NULL 備注 Checkdate Datetime NULL 結(jié)算日期 Amount Numeric NULL 金額 Bookin 訂房信息表 ⒌數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn) 利用 SQL 2021 數(shù)據(jù)庫(kù)系統(tǒng)中的查詢分析實(shí)現(xiàn)數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)，其表格如下： 創(chuàng)建系統(tǒng)用戶表格 user_Info CREATE TABLE [dbo].[user_Info1]( [user_ID][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [user_PWD] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [user_Des] [char](10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建客房標(biāo)準(zhǔn)信息表格 roomtype CREATE TABLE [dbo].[roomtype]( [typeid][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [typename][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [area][numeric](5,0) NULL, [bednum][numeric](2,0) NULL, [haircondition][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelephone][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelevision][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htoilet][char](2) COLLATE Chinese_PRC_CI_AS NULL, [price][numeric](10,2)NULL ) ON [PRIMARY] 創(chuàng)建客房信息表格 rooms 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(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 語句。 ● 訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客 房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、備注等。 ● 結(jié)算信息的輸入，包括客房編號(hào)、客房種類、位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備 注信息等。 ● 客房基本信息的查詢、修改，包括客房編號(hào)、客房類型、客房位置、客房單價(jià)、備注等。 ⒉系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。查詢客房信息 Trim(txtNo)amp。sQSqlamp?！盿nd roomprice=’”amp?！薄?amp?！薄?=””And Trim(Combo1(2)amp。”’and roomprice =’”amp?！薄?””Then sQSql=sQSqlamp。Trim(Combo1(1)amp?！薄?amp?！薄?”’” ElseIf Trim(Combo1(1)amp。Trim(Combo1(1)amp?！薄? End if If chkItem(1).Value=vbChecked Then If Trim(sQSqlamp。刪除訂房信息 sQS ql End If End Sub ⑹訂房信息管理模塊的創(chuàng)建 訂房信息管理模塊主要實(shí)現(xiàn)如下功能： ”and roomtype=’”amp?！薄?=”” Then sQSql=”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” ‘初始化客房種類 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?！薄? Else Call menuAddroom_Click‘添加記錄 End If Else =” select*from rooms” End If End Sub ”’” 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。“不能為空！” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 Exit Sub End If Next intCount If gintRmode=1 Then‘判斷是否有重復(fù)記錄 txtSQL=”select * from rooms where roomNO=‘ ”amp。查詢客房信息 具體實(shí)現(xiàn)代碼如下： Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類 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) Unload frmRoomtype‘關(guān)閉記錄窗體 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 =”se