【正文】 lect*from r oomtype” ‘重新選擇所有記錄 End If End If End If End Sub ⑸客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實現(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 where typeid’”amp?！薄痑nd typename=’”amp。添加用戶。其各個表格的設(shè)計結(jié)果如下 列名 數(shù)據(jù)類型 可否為空 說明 Typeid Varchar NOT NULL 標(biāo)準(zhǔn)編號 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 是否有單獨衛(wèi)生間 Price Numeric NULL 單價 結(jié)算信息實體 客房信息 顧客 信息 結(jié)算時間 結(jié)算金額 客房標(biāo)準(zhǔn)信息 客房登記 客房信息管理 訂 房 訂房信息管理 結(jié)算信息管理 客房結(jié)算 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 Roomtype 客房標(biāo)準(zhǔn)信息表 列名 數(shù)據(jù)類型 可否為空 說明 roomNO Varchar NOT NULL 客房編號 Roomtype Varchar NOT NULL 客房種類 Roomposition Varchar NULL 客房位置 Roomprice Numeric NULL 單價 Putup Varchar NOT NULL 是否被預(yù)定 Roommemo Text NULL 備注 Rooms 客房信息 表 列名 數(shù)據(jù)類型 可否為空 說 明 Bookno Varchar NOT NULL 訂房編號 Customname Varchar NOT NULL 顧客姓名 CustomID Varchar NOT NULL 身份證號碼 Roomno Varchar NOT NULL 客房編號 Indate Datetime NULL 入住日期 Discount Numeric NULL 折扣 Inmeno Text NULL 備注 Checkdate Datetime NULL 結(jié)算日期 Amount Numeric NULL 金額 Bookin 訂房信息表 ⒌ 數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn) 利用 SQL 2021 數(shù)據(jù)庫系統(tǒng)中的查詢分析實現(xiàn)數(shù)據(jù)庫的邏輯結(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 購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(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ù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、備注等。 ● 結(jié)算信息的輸入，包括客房編號、客房種類、位置、 客房 單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日期、備注信息等。 ● 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。 ⒉系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。 主要完成功能： ● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、 住房單價、是否有空調(diào)、電視機、電話以及單獨衛(wèi)生間等。 ● 剩余客房信息的查詢等。 ● 結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)日期、備注信息等。 ● 結(jié)算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結(jié)算時間、備注等。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ‘ 執(zhí)行 SQL 語句，并返回記錄集對象 Dim n As Dim rst As Dim sTokens() As String ‘ 異常處理 On Error GoTo ExecuteSQL_Error’ ‘用 Split 函數(shù)產(chǎn)生一個包含各個子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘ 打開連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL End sub ‘ 添加全局變量 ，用來 記錄 各個窗口的讀寫狀態(tài)，代碼如下： Public flagTedit As Boolean ‘ 標(biāo)示是否進入修改的窗體 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)建 用戶管理模塊主要實現(xiàn)： Trim(txtItem(1))amp。Trim((intCo購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(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 “ 請先進行客房標(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 語句顯示當(dāng)前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷購買設(shè)計 ： 382540551 全套包括 :開題報告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計 ,歡迎咨詢選購 ,價格最低質(zhì)量最好 內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) 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 Else MsgBox “ 請 先 進 行 客 房 標(biāo) 準(zhǔn) 設(shè)置 !”,vbOKOnly+vbExclamation, “警告 ”