【正文】 Exit Sub End If Next intCount If gintTmode=1 Then ‘判斷是否有相同ID記錄 txtSQL=”select*from roomtype where typeid_ =’”amp。””)=”” Then Select Case intCount Case 0 sMeg=”標(biāo)準(zhǔn)編號(hào)” Case 1 sMeg=”標(biāo)準(zhǔn)名稱” Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價(jià)” End Select sMeg=sMegamp。 ”添加” For i=0 To 3 Combo1(i).AddItem ”否” Combo1(i).AddItem ”是” Combo1(i).ListIndex=0 Next i ElseIf gintTmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrc=ExecuteSql(txtSQL,MsgText) If =false Then With mrc For intCount=0 To 3 txtItem(intCount)=.Fields(intCount) Next intCount txtItem(4)=.Fileds(8) For i=0 To 3 Combo1(i).Additem ”否” Combo1(i).Additem ”是” Combo1(i).ListIndex=0 Next i End With txtItem(0).Enabled=False End If =amp。 Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)‘判斷是否為回車鍵 If Keyasc=13 Then ‘ Keyasc用來保存當(dāng)前按鍵 ‘轉(zhuǎn)換成Tab鍵 SendKeys”{TAB}” End IfEnd sub‘添加全局變量，用來記錄各個(gè)窗口的讀寫狀態(tài)，代碼如下：Public flagTedit As Boolean ‘ 標(biāo)示是否進(jìn)入修改的窗體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)建 用戶管理模塊主要實(shí)現(xiàn)： amp。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ‘執(zhí)行SQL語句，并返回記錄集對(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 ‘打開連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL MsgString=sTokens(0)amp。各個(gè)實(shí)體具體的描述ＥＲ圖如下：客房標(biāo)準(zhǔn)信息實(shí)體標(biāo)準(zhǔn)編號(hào)標(biāo)準(zhǔn)名稱床位數(shù)量客房單價(jià)客房標(biāo)準(zhǔn)信息實(shí)體ＥＲ圖客房信息實(shí)體客房標(biāo)準(zhǔn)客房編號(hào)客房位置客房單價(jià)客房信息實(shí)體ＥＲ圖訂房信息實(shí)體客房信息顧客信息折 扣入住時(shí)間訂房信息實(shí)體ＥＲ圖結(jié)算信息實(shí)體客房信息顧客信息結(jié)算時(shí)間結(jié)算金額結(jié)算信息實(shí)體ＥＲ圖客房標(biāo)準(zhǔn)信息客房登記客房信息管理訂 房訂房信息管理結(jié)算信息管理客房結(jié)算實(shí)體之間關(guān)系ＥＲ圖③數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) 首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為SQL 2000數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)?！?結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、結(jié)算時(shí)間、備注等?！?客房信息，包括的數(shù)據(jù)項(xiàng)有：客房編號(hào)、客房種類、客房位置、客房單價(jià)、備注等?！?結(jié)算信息的修改和查詢，包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)日期、備注信息等?！?訂房信息的修改和查詢，包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等?！?剩余客房信息的查詢等?！?客房基本信息的輸入，包括客房編號(hào)、客房類型、客房位置、客房單價(jià)、備注等。主要完成功能：● 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。賓館管理信息系統(tǒng)系統(tǒng)平臺(tái)：Windows 2000數(shù)據(jù)庫服務(wù)器：Microsoft SQL Server 2000開發(fā)工具：Visual Basic 系統(tǒng)開發(fā)人員： ⒈編寫目的賓館在正常的運(yùn)營中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。⒉系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化?！?客房標(biāo)準(zhǔn)信息的修改、查詢等?！?客房基本信息的查詢、修改，包括客房編號(hào)、客房類型、客房位置、客房單價(jià)、備注等?！?訂房信息的輸入，包括客房編號(hào)、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等?！?結(jié)算信息的輸入，包括客房編號(hào)、客房種類、位置、客房單價(jià)、顧客姓名、顧客身份證號(hào)碼、入住日期、折扣、結(jié)算日期、備注信息等。⒊系統(tǒng)功能模塊設(shè)計(jì) 按結(jié)構(gòu)化程序設(shè)計(jì)思想，分析得出如下系統(tǒng)功能模塊圖 賓館管理信息系統(tǒng)結(jié)算信息管理訂房信息管理客房信息管理系統(tǒng)管理結(jié)算信息查詢結(jié)算信息修改結(jié)算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢?cè)O(shè)置客房信息設(shè)置客房標(biāo)準(zhǔn)密碼管理用戶管理客房信息查詢客房信息修改客房信息添加客房標(biāo)準(zhǔn)修改客房標(biāo)準(zhǔn)添加 圖Ⅰ系統(tǒng)功能模塊圖⒋數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)步驟：● 數(shù)據(jù)庫需求分析● 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)● 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)①數(shù)據(jù)庫需求分析分析調(diào)查有關(guān)賓館管理信息需求的基礎(chǔ)上得本系統(tǒng)所處理的數(shù)據(jù)流程 客房標(biāo)準(zhǔn)設(shè)置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管理訂房信息管理結(jié)算信息輸入結(jié)算信息管理客房信息返回圖Ⅱ 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對(duì)一般賓館管理信息系統(tǒng)的需求，通過對(duì)賓館管理過程的內(nèi)容和流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：● 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項(xiàng)有：標(biāo)準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等?！?訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、備注等。②數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)根據(jù)以上的設(shè)計(jì)規(guī)劃出的實(shí)體有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信息實(shí)體、結(jié)算信息實(shí)體。其各個(gè)表格的設(shè)計(jì)結(jié)果如下列名數(shù)據(jù)類型可否為空說明TypeidVarcharNOT NULL標(biāo)準(zhǔn)編號(hào)TypenameVarcharNOT NULL標(biāo)準(zhǔn)名稱AreaNumericNULL房間面積BednumNumericNULL床位數(shù)量HairconditionVarcharNULL是否有空調(diào)HtelephoneVarcharNULL是否有電話HtelevisionVarcharNULL是否有電視HtoiletVarcharNULL是否有單獨(dú)衛(wèi)生間PriceNumericNULL單價(jià)Roomtype 客房標(biāo)準(zhǔn)信息表列名數(shù)據(jù)類型可否為空說明roomNOVarcharNOT NULL客房編號(hào)RoomtypeVarcharNOT NULL客房種類RoompositionVarcharNULL客房位置RoompriceNumericNULL單價(jià)PutupVarcharNOT NULL是否被預(yù)定RoommemoTextNULL備注Rooms 客房信息表列名數(shù)據(jù)類型可否為空說　明Bookno VarcharNOT NULL訂房編號(hào)CustomnameVarcharNOT NULL 顧客姓名CustomIDVarcharNOT NULL身份證號(hào)碼RoomnoVarcharNOT NULL客房編號(hào)IndateDatetimeNULL入住日期DiscountNumericNULL折扣InmenoTextNULL備注CheckdateDatetimeNULL結(jié)算日期AmountNumericNULL金額Bookin 訂房信息表⒌數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)利用SQL 2000數(shù)據(jù)庫系統(tǒng)中的查詢分析實(shí)現(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)建客房信息表格　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, [roomp