【正文】 賓館管理信息系統(tǒng)系統(tǒng)平臺：Windows 2000數(shù)據(jù)庫服務器：Microsoft SQL Server 2000開發(fā)工具：Visual Basic 系統(tǒng)開發(fā)人員： ⒈編寫目的賓館在正常的運營中需要對客房資源、顧客信息、結算信息進行管理，利用賓館管理信息系統(tǒng)及時了解各個環(huán)節(jié)中信息的變更，有利于提高管理效率。⒉系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務是實現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能：● 有關客房標準的制定、標準信息的輸入，包括標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調、電視機、電話以及單獨衛(wèi)生間等?！?客房標準信息的修改、查詢等?！?客房基本信息的輸入，包括客房編號、客房類型、客房位置、客房單價、備注等?！?客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價、備注等。● 剩余客房信息的查詢等?！?訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等?！?訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。● 結算信息的輸入，包括客房編號、客房種類、位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結算日期、備注信息等。● 結算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價、顧客姓名、顧客身份證號碼、入住日期、折扣、結日期、備注信息等。⒊系統(tǒng)功能模塊設計 按結構化程序設計思想，分析得出如下系統(tǒng)功能模塊圖 賓館管理信息系統(tǒng)結算信息管理訂房信息管理客房信息管理系統(tǒng)管理結算信息查詢結算信息修改結算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢設置客房信息設置客房標準密碼管理用戶管理客房信息查詢客房信息修改客房信息添加客房標準修改客房標準添加 圖Ⅰ系統(tǒng)功能模塊圖⒋數(shù)據(jù)庫設計數(shù)據(jù)庫設計步驟：● 數(shù)據(jù)庫需求分析● 數(shù)據(jù)庫概念結構設計● 數(shù)據(jù)庫邏輯結構設計①數(shù)據(jù)庫需求分析分析調查有關賓館管理信息需求的基礎上得本系統(tǒng)所處理的數(shù)據(jù)流程 客房標準設置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管理訂房信息管理結算信息輸入結算信息管理客房信息返回圖Ⅱ 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的內容和流程分析，設計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結構：● 客房標準信息，包括的數(shù)據(jù)項有：標準編號、標準名稱、房間面積、床位數(shù)量、住房單價、是否有空調、電視、電話、單獨衛(wèi)生間等?！?客房信息，包括的數(shù)據(jù)項有：客房編號、客房種類、客房位置、客房單價、備注等?！?訂房信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、備注等?！?結算信息，包括的數(shù)據(jù)項有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時間、折扣、結算時間、備注等。②數(shù)據(jù)庫概念結構設計 本系統(tǒng)根據(jù)以上的設計規(guī)劃出的實體有：客房標準信息實體、客房信息實體、訂房信息實體、結算信息實體。各個實體具體的描述ＥＲ圖如下：客房標準信息實體標準編號標準名稱床位數(shù)量客房單價客房標準信息實體ＥＲ圖客房信息實體客房標準客房編號客房位置客房單價客房信息實體ＥＲ圖訂房信息實體客房信息顧客信息折 扣入住時間訂房信息實體ＥＲ圖結算信息實體客房信息顧客信息結算時間結算金額結算信息實體ＥＲ圖客房標準信息客房登記客房信息管理訂 房訂房信息管理結算信息管理客房結算實體之間關系ＥＲ圖③數(shù)據(jù)庫邏輯結構設計 首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結構轉化為SQL 2000數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結構。其各個表格的設計結果如下列名數(shù)據(jù)類型可否為空說明TypeidVarcharNOT NULL標準編號TypenameVarcharNOT NULL標準名稱AreaNumericNULL房間面積BednumNumericNULL床位數(shù)量HairconditionVarcharNULL是否有空調HtelephoneVarcharNULL是否有電話HtelevisionVarcharNULL是否有電視HtoiletVarcharNULL是否有單獨衛(wèi)生間PriceNumericNULL單價Roomtype 客房標準信息表列名數(shù)據(jù)類型可否為空說明roomNOVarcharNOT NULL客房編號RoomtypeVarcharNOT NULL客房種類RoompositionVarcharNULL客房位置RoompriceNumericNULL單價PutupVarcharNOT NULL是否被預定RoommemoTextNULL備注Rooms 客房信息表列名數(shù)據(jù)類型可否為空說　明Bookno VarcharNOT NULL訂房編號CustomnameVarcharNOT NULL 顧客姓名CustomIDVarcharNOT NULL身份證號碼RoomnoVarcharNOT NULL客房編號IndateDatetimeNULL入住日期DiscountNumericNULL折扣InmenoTextNULL備注CheckdateDatetimeNULL結算日期AmountNumericNULL金額Bookin 訂房信息表⒌數(shù)據(jù)庫結構的實現(xiàn)利用SQL 2000數(shù)據(jù)庫系統(tǒng)中的查詢分析實現(xiàn)數(shù)據(jù)庫的邏輯結構，其表格如下：創(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)建客房標準信息表格　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)建客房信息表格　roomsCREATE TABLE [dbo].[rooms]( [roomNO][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [roomtype][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [roomposition][char](20) COLLATE Chinese_PRC_CI_AS NULL, [roomprice][numeric](10,2) NULL, [putup][char](2) COLLATE Chinese_PRC_CI_AS NOT NULL, [roommemo][text] COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]創(chuàng)建訂房信息表bookinCREATE TABLE [dbo].[bookin]( [bookno][char](14) COLLATE Chinese_PRC_CI_AS NOT NULL, [customname][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [customID][char](18) COLLATE Chinese_PRC_CI_AS NOT NULL, [roomno][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [indate][datetime] NULL, [discount][numeric](2,0) NULL, [inmemo][text] COLLATE Chinese_PRC_CI_AS NULL, [checkdate][datetime] NULL, [ammount][numeric](10,2) NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]⒍賓館管理信息系統(tǒng)具體程序實現(xiàn)⑴創(chuàng)建公用模塊 添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(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 MsgString=sTokens(0)amp?！眖uery successful” Else Set rst=NEW Trim$(SQL),n,adOpenKeyset,adLockOptimistic get RecordCount ‘返回記錄集對象 Set ExecuteSQL=rst MsgString=”查詢到”amp。amp?！睏l記錄” End IfExecuteSQL_Exit: Set rst=Nothing Set n=Nothing Exit FunctionExecuteSQL_Error: MsgString=”查詢錯誤:”amp。 Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)‘判斷是否為回車鍵 If Keyasc=13 Then ‘ Keyasc用來保存當前按鍵 ‘轉換成Tab鍵 SendKeys”{TAB}” End IfEnd sub‘添加全局變量，用來記錄各個窗口的讀寫狀態(tài)，代碼如下：Public flagTedit As Boolean ‘ 標示是否進入修改的窗體Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode As Integer Public gintTmode As Integer ’記錄是添加還是修改狀態(tài)，1為添加，2為修改Public gintRmode As IntegerPublic gintBmode As Integer Public flagSedit As Boolean⑵系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實現(xiàn)： 用戶登陸。 添加用戶。修改用戶 具體客房標準添加代碼：Private Sub Form_Load() ‘載入窗體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String Dim i As Integer If gintTmode=1 Then ‘判斷是否屬于添加狀態(tài) = amp。 ”添加”