賓館管理信息系統(tǒng)

1、賓館管理信息系統(tǒng)系統(tǒng)平臺：Windows 2000數(shù)據(jù)庫服務(wù)器：Microsoft SQL Server 2000開發(fā)工具：Visual Basic 6.0系統(tǒng)開發(fā)人員： 編寫目的賓館在正常的運(yùn)營中需要對客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。系統(tǒng)功能分析 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動化。主要完成功能： 有關(guān)客房標(biāo)準(zhǔn)的制定、標(biāo)準(zhǔn)信息的輸入，包括標(biāo)準(zhǔn)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。 客房標(biāo)準(zhǔn)信息的修改、查詢等。 客房基本信息的輸入，包括客房編號

2、、客房類型、客房位置、客房單價(jià)、備注等。 客房基本信息的查詢、修改，包括客房編號、客房類型、客房位置、客房單價(jià)、備注等。 剩余客房信息的查詢等。 訂房信息的輸入，包括客房編號、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 訂房信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入住日期、折扣、備注信息等。 結(jié)算信息的輸入，包括客房編號、客房種類、位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入住日期、折扣、結(jié)算日期、備注信息等。 結(jié)算信息的修改和查詢，包括客房編號、客房種類、客房位置、客房單價(jià)、顧客姓名、顧客身份證號碼、入

3、住日期、折扣、結(jié)日期、備注信息等。系統(tǒng)功能模塊設(shè)計(jì) 按結(jié)構(gòu)化程序設(shè)計(jì)思想，分析得出如下系統(tǒng)功能模塊圖 賓館管理信息系統(tǒng)結(jié)算信息管理訂房信息管理客房信息管理系統(tǒng)管理結(jié)算信息查詢結(jié)算信息修改結(jié)算信息添加訂房信息查詢訂房信息修改訂房信息添加剩余客房信息查詢設(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è)置基本信息輸入客房登記基本信息錄入客房信息管理顧客登記訂房信息管

4、理訂房信息管理結(jié)算信息輸入結(jié)算信息管理客房信息返回圖 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖 針對一般賓館管理信息系統(tǒng)的需求，通過對賓館管理過程的內(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)編號、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等。 客房信息，包括的數(shù)據(jù)項(xiàng)有：客房編號、客房種類、客房位置、客房單價(jià)、備注等。 訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號碼、入住時(shí)間、折扣、備注等。 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號、客房編號、客房種類、客房位置、客房備注信息、顧客姓

5、名、顧客身份證號碼、入住時(shí)間、折扣、結(jié)算時(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í)體具體的描述-圖如下：客房標(biāo)準(zhǔn)信息實(shí)體標(biāo)準(zhǔn)編號標(biāo)準(zhǔn)名稱床位數(shù)量客房單價(jià)客房標(biāo)準(zhǔn)信息實(shí)體-圖客房信息實(shí)體客房標(biāo)準(zhǔn)客房編號客房位置客房單價(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

6、 2000數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。其各個(gè)表格的設(shè)計(jì)結(jié)果如下列名數(shù)據(jù)類型可否為空說明TypeidVarcharNOT NULL標(biāo)準(zhǔn)編號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ù)類型可否為空

7、說明roomNOVarcharNOT NULL客房編號RoomtypeVarcharNOT NULL客房種類RoompositionVarcharNULL客房位置RoompriceNumericNULL單價(jià)PutupVarcharNOT NULL是否被預(yù)定RoommemoTextNULL備注Rooms 客房信息表列名數(shù)據(jù)類型可否為空說明Bookno VarcharNOT NULL訂房編號CustomnameVarcharNOT NULL 顧客姓名CustomIDVarcharNOT NULL身份證號碼RoomnoVarcharNOT NULL客房編號IndateDatetimeNULL入住日期

8、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_IDchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL, user_Des c

9、har(10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY 創(chuàng)建客房標(biāo)準(zhǔn)信息表格roomtype CREATE TABLE dbo.roomtype( typeidchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, typenamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, areanumeric(5,0) NULL, bednumnumeric(2,0) NULL, hairconditionchar(2) COLLATE Chinese_PRC_CI_AS NUL

10、L, htelephonechar(2) COLLATE Chinese_PRC_CI_AS NULL, htelevisionchar(2) COLLATE Chinese_PRC_CI_AS NULL, htoiletchar(2) COLLATE Chinese_PRC_CI_AS NULL, pricenumeric(10,2)NULL ) ON PRIMARY創(chuàng)建客房信息表格roomsCREATE TABLE dbo.rooms( roomNOchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, roomtypechar(10) COLLATE C

11、hinese_PRC_CI_AS NOT NULL, roompositionchar(20) COLLATE Chinese_PRC_CI_AS NULL, roompricenumeric(10,2) NULL, putupchar(2) COLLATE Chinese_PRC_CI_AS NOT NULL, roommemotext COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY創(chuàng)建訂房信息表bookinCREATE TABLE dbo.bookin( booknochar(14) COLLATE Chin

12、ese_PRC_CI_AS NOT NULL, customnamechar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, customIDchar(18) COLLATE Chinese_PRC_CI_AS NOT NULL, roomnochar(10) COLLATE Chinese_PRC_CI_AS NOT NULL, indatedatetime NULL, discountnumeric(2,0) NULL, inmemotext COLLATE Chinese_PRC_CI_AS NULL, checkdatedatetime NULL, am

13、mountnumeric(10,2) NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY賓館管理信息系統(tǒng)具體程序?qū)崿F(xiàn)創(chuàng)建公用模塊 Module1.bas 添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ADODB.Recordset 執(zhí)行SQL語句，并返回記錄集對象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens()

14、 As String異常處理On Error GoTo ExecuteSQL_Error用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens=Split(SQL) Set cnn=NEW ADODB.Connection打開連接 cnn.Open ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0) Then Cnn.Execute SQL MsgString=sTokens(0)&”query successful” Else Set rst=NEW ADODO.Recordset rst.Open Tr

15、im$(SQL),cnn,adOpenKeyset,adLockOptimistic rst.MoveLast get RecordCount 返回記錄集對象 Set ExecuteSQL=rst MsgString=”查詢到”&rst.RecordCount&”條記錄” End IfExecuteSQL_Exit: Set rst=Nothing Set cnn=Nothing Exit FunctionExecuteSQL_Error: MsgString=”查詢錯(cuò)誤:”&Err.Description Resume ExecuteSQL_ExitEnd Funct

16、ionPublic 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

17、 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)： ·用戶登陸。 ·添加用戶。·修改用戶 具體客房標(biāo)準(zhǔn)添加代碼：Private Sub Form_Load() 載入窗體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String Dim i As Integer If gin

18、tTmode=1 Then 判斷是否屬于添加狀態(tài) Me.Caption=Me.Caption & ”添加” 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 mrc.EOF=false Then With mrc For intCount=0 To 3 txtItem(intCount)=.Fields(intCount)

19、 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 Me.Caption=Me.caption&”修改”End IfmblChang=False End SubPrivate Sub cmd_Click()用戶輸入內(nèi)容完畢后，單擊cmdSave按鈕觸發(fā)Click事件 Dim intCount As Integer

20、Dim sMeg As String Dim MsgText As String For intCount=0 To 4 判斷是否輸入內(nèi)容 If Trim(txtItem(intCount)&”)=” Then Select Case intCount Case 0 sMeg=”標(biāo)準(zhǔn)編號” Case 1 sMeg=”標(biāo)準(zhǔn)名稱” Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價(jià)” End Select sMeg=sMeg&”不能為空!” MsgBox sMeg,vbOkOnly+vbExclamation,”警告” t

21、xtItem(intCount).SetFocus Exit Sub End if Next intCount 判斷輸入內(nèi)容是否為數(shù)字 For intCount=2 To 4 If Not IsNumeric(Trim(txtItem(intCount) Then Select Case intCount Case 2 sMeg=”房間面積” Case 3 sMeg=”床位數(shù)量” Case 4 sMeg=”床位單價(jià)” End Select sMeg=sMeg&”請輸入數(shù)字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount)

22、.SeFocusExit Sub End If Next intCount If gintTmode=1 Then 判斷是否有相同ID記錄 txtSQL=”select*from roomtype where typeid_ =”&Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then MsgBox “已經(jīng)存在此標(biāo)準(zhǔn)編號的記錄!”,vbOKOnly+vbExclamation,”警告” txtItem(0).SetFocus Exit Sub End If Mrc.Close End

23、If txtSQL=”select * from roomtype where typeid<>”&Trim(txtItem(0)&”and typename=”&Trim(txtItem(1)&” Set mrc=ExecuteSQL(txtSQL,MsgText) If mrc.EOF=False Then MsgBox”已經(jīng)存在相同客房標(biāo)準(zhǔn)的記錄!”,vbOKOnly+vbExclamation,“警告” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where

24、 typeid=”&Trim(txtItem(0)&”刪除已有記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype”添加新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) mrc.AddNew For intCount=0 To 3 mrc.Fields(intCount)=Trim(txtItem(intCount) Next intCount For intCount=0 To 3 mrc.Fields(intCount+4)=Trim(Combo1(intCount

25、) Next intCount mrc.Fields(8)=Trim(txtItem(4) mrc.Update 更新數(shù)據(jù)庫 mrc.Close if gintTmode=1 Then 判斷是否屬于添加狀態(tài) MsgBox “添加紀(jì)錄成功!”,vbOKOnly+vbExclamtion,“添加記錄” For intCount=0 To 4 txtItem(intCount)=” 清除已經(jīng)輸入的內(nèi)容 Next intCount For intCount=0 To 3 Combo1(intCount).ListIndex=0 Next intCount mblChange=False判斷是否打開窗口

26、 if flagTedit Then Unload frmRoomtype frmRoomtype.txtSQL=“select *from roomtype” frmRoomtype.Show End If ElseIf gintTmode=2 Then 判斷是否處于修改狀態(tài) Unload Me If flagTedit Then Unload frmRoomtype EndIf frmRoomtype.txtSQL=”select *from roomtype” frmRoomtype.Show End If End SubPrivate Sub txtItem_GotFocus(Inde

27、x As Integer)文本框獲得焦點(diǎn)時(shí)觸發(fā)該事件，即自動選中輸入的內(nèi)容，便于修改txtItem(Index).SelStart=0txtItem(Index).SelLength=Len(txtItem(Index)End SubPrivate Sub cmdExit_Click()單擊按鈕cmdExit取消添加信息If mblChange And cmdSave.Enabled Then If MsgBox(“保存當(dāng)前記錄的變化嗎？”,vbOKCancel+vbExclamation,”警告”)=vbOK Then 保存 Call cmdSave_Click End IfEnd IfUn

28、load MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)輸入完內(nèi)容，單擊回車鍵將自動進(jìn)入下一個(gè)文本框，觸發(fā)文本框的Keydown事件 EnterToTab KeyCodeEnd Sub修改客房標(biāo)準(zhǔn)窗體的創(chuàng)建Private Sub From_Load()ShowTitleShowDataflagTedit=TrueEnd SubPrivate Sub ShowTitle()調(diào)用showTitle函數(shù)，顯示表頭Dim i As IntegerWith msgLis

29、t .Cols=10 .TextMatrix(0,1)=”標(biāo)準(zhǔn)編號” .TextMatrix(0,2)=”標(biāo)準(zhǔn)名稱” .TextMatrix(0,3)=”房間面積” .TextMatrix(0,4)=”床位數(shù)量” .TextMatrix(0,5)=”是否有空調(diào)” .TextMatrix(0,6)=”是否有電話” .TextMatrix(0,7)=”是否有電視” .TextMatrix(0,8)=”是否有衛(wèi)生間” .TextMatrix(0,9)=”房間單價(jià)” .FixedRows=1固定表頭 For i=0 To 9 設(shè)置各列的對齊方式 .ColAlignment(i)=0 Next i .F

30、illStyle=flexFillRepeat表頭項(xiàng)居中 .Col=0 .Row=0 .RowSel=1 .ColSel=.Cols-1 .CellAlignment=4 .ColWidth(0)=300設(shè)置單元大小 .ColWidth(1)=1000 .ColWidth(2)=2000 .ColWidth(3)=2000 .ColWidth(4)=1000 .ColWidth(5)=1000 .ColWidth(6)=1000 .ColWidth(7)=1000 .ColWidth(8)=1000 .ColWidth(9)=1000 .Row=1End WithEnd SubPrivate

31、Sub ShowData()調(diào)用showData函數(shù)，顯示記錄列表 Dim i As Integer Set mrc=ExecuteSQL(txtSQL,MsgText)根據(jù)需要設(shè)置SQL語句，顯示需要的記錄 With msgList .Rows=1 Do While Not mrc.EOF .Rows=Rows+1 Select Case mrc.Fields(i-1).Type Case adDBDate .TextMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&”,”yyyy-mm-dd”) Case Else .TextMatrix(.Rows

32、-1,i)=mrc.Fields(i-1)&” End Select Next i Mrc.MoveNext Loop End With mrc.CloseEnd SubPrivate 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 fMainFrom.menuRoomtype End IfEnd SubPrivate Sub menuModifyr

33、oomtype_Click() Dim intCount As Integer If flagTedit Then 判斷是否打開記錄窗體 fintTmode=2設(shè)置為修改狀態(tài)記下選擇記錄 frmRoomtype1.txtSQL=”select*from frmRoomtype1.Show Else Call menuAddroomtype_Click End If Else frmRoomtype.txtSQL=”select*from roomtype” frmRoomtype.Show End IfEnd SubPrivate Sub From_Resize()窗體變化時(shí)，調(diào)整標(biāo)簽和表格位

34、置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方 If Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimized Then邊界處理 If Me.Scaleheight<10*lblTitle.Height Then Exit Sub End If If Me.ScaleWidth<lblTitle.Width+lblTitle.Width/2 Then Exit Sub End If lblTitle.Top=lblTitle.Height控制控件的位置 lblTitle.Left

35、=(Me.Width-lblTitle.Width)/2 msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2 msgList.Width=Me.ScaleWidth-200 msgList.Left=Me.ScaleLeft+100 msgList.Height=Me.ScaleHeight-msgList.Top-200 End IfEnd Sub刪除客房標(biāo)準(zhǔn)Private Sub menuDeleteroomtype_Click() Dim txtSQL As String Dim intCount As Integer D

36、im mrc As ADODB.Recordset Dim MsgText As String If flagTedit Then 判斷是否打開記錄窗體 If MsgBox(“真的要?jiǎng)h除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype關(guān)閉記錄窗體 frmRoomtype.txtSQL=”select*from roomtype”重新選擇所有記錄 frmRoomtype.Show End If End If End IfEnd Sub客房

37、信息管理模塊的創(chuàng)建 客房信息管理模塊主要實(shí)現(xiàn)如下功能： ·添加客房信息 ·修改客房信息 ·刪除客房信息 ·查詢客房信息 具體實(shí)現(xiàn)代碼如下：Private Sub From_Load()載入窗體時(shí)，自動添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As ADODB.Recordset If gintRmode=1 Then 判斷是否處于添加狀態(tài) Me.Caption=me.Caption&“添加” txtSQL=”select D

38、ISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex=0顯示記錄內(nèi)容 Else MsgBox “請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Sub End If mrc.Close ElseI

39、f gintRmode=2 Then 判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)設(shè)置SQL語句顯示當(dāng)前選擇記錄 If mrcc.EOF=False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1)Then判斷內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) txtSQL=”select DI

40、STINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not mrc.EOF Then Do While Not mrc.EOF cboItem(0).AddItem Trim(mrc.Fields(0) mrc.MoveNext Loop cboItem(0).ListIndex=0 Else MsgBox“請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告” cmdSave.Enabled=False Exit Sub End If mrc.Close End With End

41、If mrcc.Close Me.Caption=Me.Caption&“修改” End If mblChange=FalseEnd SubPrivate Sub cmdSave_Click()單擊保存按鈕觸發(fā)事件 Dim intCount As Integer Dim sMeg As String Dim mrcc As ADODB.Recordset Dim Msgtext As String For intCount=0 To 3 If Trim(TxtItem(intCount)&”)=” Then Select Case intCount Case 0 sMeg=“客

42、房編號” Case 1 sMeg=“客房位置” End Select sMeg=sMeg&“不能為空！” MsgBox sMeg,vbOKOnly+vbExclamation,“警告” txtItem(intCount).SetFocus Exit Sub End If Next intCount If gintRmode=1 Then判斷是否有重復(fù)記錄 txtSQL=”select * from rooms where roomNO=”&Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,msgText) If mrc.EOF=Fa

43、lse Then MsgBox “已經(jīng)存在此客房編號的記錄！”,vbOKOnly+vbExclamation,“警告” txtItem(0).SetFocus Exit Sub End If mrc.Close End If If gintRmode=2 Then 判斷是否處于修改狀態(tài) txtSQL=”delete from rooms where roomNO=”&Trim(txtItem(0)&” Set mrc=ExecuteSQL(txtSQL,MsgText) End If txtSQL=”select*from rooms”再加入新記錄 Set mrc=Execut

44、eSQL(txtSQL,MsgText) mrc.AddNew為數(shù)據(jù)庫對象添加記錄 mrc.Fields(0)=Trim(txtItem(0) mrc.Fields(1)=Trim(txtItem(0) For intCount=1 To 2 If Trim(txtItem(intCount)&”)=” Then mrc.Fields(intCount+1)=Null Else mrc.Fields(intCount+1)=Trim(txtItem(intCount) End If Next intCount mrc.Fields(4)=” mrc.Fields(5)=Trim(txtItem(3) mrc.Update mrc.Close If gintRmode=1 Then For intCount=0 To 3 txtItem(intCount)=” Next intCount mblChange=False If flagRedit Then Unload frmRoom