賓C++館管理信息系統(tǒng)論文

1、網(wǎng)站 賓館管理信息系統(tǒng)系統(tǒng)平臺(tái)：Windows 2000數(shù)據(jù)庫(kù)服務(wù)器：Microsoft SQL Server 2000開(kāi)發(fā)工具：Visual Basic 6.0系統(tǒng)開(kāi)發(fā)人員： 編寫目的賓館在正常的運(yùn)營(yíng)中需要對(duì)客房資源、顧客信息、結(jié)算信息進(jìn)行管理，利用賓館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。系統(tǒng)功能分析  系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。主要完成功能： 有關(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)生間等。 客房標(biāo)準(zhǔn)信息的修改、查詢等。 客房基本信息的

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

3、顧客身份證號(hào)碼、入住日期、折扣、結(jié)日期、備注信息等。系統(tǒng)功能模塊設(shè)計(jì)  按結(jié)構(gòu)化程序設(shè)計(jì)思想，分析得出如下系統(tǒng)功能模塊圖                                        

4、          圖系統(tǒng)功能模塊圖數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)步驟： 數(shù)據(jù)庫(kù)需求分析 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)需求分析分析調(diào)查有關(guān)賓館管理信息需求的基礎(chǔ)上得本系統(tǒng)所處理的數(shù)據(jù)流程         圖 賓館管理信息系統(tǒng)數(shù)據(jù)流程圖  針對(duì)一般賓館管理信息系統(tǒng)的需求，通過(guò)對(duì)賓館管理過(guò)程的內(nèi)容和流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 客房標(biāo)準(zhǔn)信息，包括的數(shù)據(jù)項(xiàng)有：標(biāo)

5、準(zhǔn)編號(hào)、標(biāo)準(zhǔn)名稱、房間面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視、電話、單獨(dú)衛(wèi)生間等。 客房信息，包括的數(shù)據(jù)項(xiàng)有：客房編號(hào)、客房種類、客房位置、客房單價(jià)、備注等。 訂房信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、備注等。 結(jié)算信息，包括的數(shù)據(jù)項(xiàng)有：訂房編號(hào)、客房編號(hào)、客房種類、客房位置、客房備注信息、顧客姓名、顧客身份證號(hào)碼、入住時(shí)間、折扣、結(jié)算時(shí)間、備注等。數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 本系統(tǒng)根據(jù)以上的設(shè)計(jì)規(guī)劃出的實(shí)體有：客房標(biāo)準(zhǔn)信息實(shí)體、客房信息實(shí)體、訂房信息實(shí)體、結(jié)算信息實(shí)體。各個(gè)實(shí)體

6、具體的描述-圖如下： 客房標(biāo)準(zhǔn)信息實(shí)體-圖 客房信息實(shí)體-圖 訂房信息實(shí)體-圖 結(jié)算信息實(shí)體-圖 實(shí)體之間關(guān)系-圖數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)  首先將賓館管理信息系統(tǒng)的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為SQL 2000數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。其各個(gè)表格的設(shè)計(jì)結(jié)果如下列名 數(shù)據(jù)類型 可否為空 說(shuō)明Typeid Varchar NOT NULL 標(biāo)準(zhǔn)編號(hào)Typename Varchar NOT NULL 標(biāo)準(zhǔn)名稱Area Numer

7、ic 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à)Roomtype 客房標(biāo)準(zhǔn)信息表列名 

8、;數(shù)據(jù)類型 可否為空 說(shuō)明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ù)類型&#

9、160;可否為空 說(shuō)明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 NU

10、LL 備注Checkdate Datetime NULL 結(jié)算日期Amount Numeric NULL 金額Bookin 訂房信息表數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn)利用SQL 2000數(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_IDchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,   user_PWD char (10) COLL

11、ATE 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(    typeidchar(10) COLLATE Chinese_PRC_CI_AS NOT NULL,    typenamechar(10) COLLATE Chinese_PRC_CI_AS

12、 NOT NULL,    areanumeric(5,0) NULL,    bednumnumeric(2,0) NULL,    hairconditionchar(2) COLLATE Chinese_PRC_CI_AS NULL,    htelephonechar(2) COLLATE Chinese_PRC_CI_AS NULL,    htelevisionchar(2) COLLATE Chinese_PRC_CI_AS NUL

13、L,    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 Chinese_PRC_CI_AS NOT NULL,

14、60;  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(

15、0;  booknochar(14) COLLATE Chinese_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,   discountnumer

16、ic(2,0) NULL,   inmemotext COLLATE Chinese_PRC_CI_AS NULL,   checkdatedatetime NULL,   ammountnumeric(10,2) NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY賓館管理信息系統(tǒng)具體程序?qū)崿F(xiàn)創(chuàng)建公用模塊 Module1.bas  添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語(yǔ)句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByValSQL As Stri

17、ng,MsgString AsString)_ As ADODB.Recordset 執(zhí)行SQL語(yǔ)句，并返回記錄集對(duì)象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String異常處理On Error GoTo ExecuteSQL_Error用Split函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組   sTokens=Split(SQL)   Set cnn=NEW ADODB.Connection打開(kāi)連接   cnn.Open ConnectStrin

18、g   If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0) Then       Cnn.Execute SQL       MsgString=sTokens(0)&”query successful”   Else       Set rst=NEW ADODO.Recordset   &

19、#160;   rst.Open Trim$(SQL),cnn,adOpenKeyset,adLockOptimistic       rst.MoveLast       get RecordCount  返回記錄集對(duì)象       Set ExecuteSQL=rst       MsgString=”查詢到”&rs

20、t.RecordCount&”條記錄”   End IfExecuteSQL_Exit:   Set rst=Nothing   Set cnn=Nothing   Exit FunctionExecuteSQL_Error:   MsgString=”查詢錯(cuò)誤:”&Err.Description   Resume ExecuteSQL_ExitEnd FunctionPublic Sub EnterToTab(Keyasc As Integer)判斷是否為回

21、車鍵  If Keyasc=13 Then Keyasc用來(lái)保存當(dāng)前按鍵      轉(zhuǎn)換成Tab鍵     SendKeys”TAB”   End IfEnd sub添加全局變量，用來(lái)記錄各個(gè)窗口的讀寫狀態(tài)，代碼如下：Public flagTedit As Boolean 標(biāo)示是否進(jìn)入修改的窗體Public flagRedit As BooleanPublic flagBedit As BooleanPublic flagCedit As BooleanPublic gintCmode

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

23、intCount As Integer   Dim MsgText As String    Dim i As Integer   If gintTmode=1 Then 判斷是否屬于添加狀態(tài)      Me.Caption=Me.Caption & ”添加”      For i=0 To 3        Combo1(i).AddItem ”否”

24、0;       Combo1(i).AddItem ”是”        Combo1(i).ListIndex=0      Next i     ElseIf gintTmode=2 Then 判斷是否處于修改狀態(tài)         Set mrc=ExecuteSql(txtSQL,MsgTe

25、xt)         If mrc.EOF=false Then            With mrc               For intCount=0 To 3        

26、           txtItem(intCount)=.Fields(intCount)               Next intCount               txtItem(4)=.Fileds(8)

27、               For i=0 To 3                   Combo1(i).Additem ”否”            &

28、#160;      Combo1(i).Additem ”是”               Combo1(i).ListIndex=0           Next i         End With  &

29、#160;      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  Dim sMe

30、g As String  Dim MsgText As String  For intCount=0 To 4 判斷是否輸入內(nèi)容        If Trim(txtItem(intCount)&”)=” Then               Select Case intCount +      &

31、#160;             Case 0                         sMeg=”標(biāo)準(zhǔn)編號(hào)”          

32、          Case 1                         sMeg=”標(biāo)準(zhǔn)名稱”              

33、;      Case 2                         sMeg=”房間面積”                 

34、0;  Case 3                         sMeg=”床位數(shù)量”                    Case 4 &#

35、160;                       sMeg=”床位單價(jià)”               End Select         

36、60;     sMeg=sMeg&”不能為空!”               MsgBox sMeg,vbOkOnly+vbExclamation,”警告”               txtItem(intCount).SetFocus  

37、0;            Exit Sub       End if       Next intCount 判斷輸入內(nèi)容是否為數(shù)字       For intCount=2 To 4           I

38、f Not IsNumeric(Trim(txtItem(intCount) Then                 Select Case intCount                        C

39、ase 2                            sMeg=”房間面積”                    &

40、#160;   Case 3                            sMeg=”床位數(shù)量”                 

41、       Case 4                            sMeg=”床位單價(jià)”              

42、;    End Select                  sMeg=sMeg&”請(qǐng)輸入數(shù)字!”MsgBox sMeg,vbOKOnly+vbExclamation,”警告”txtItem(intCount).SeFocusExit Sub           End If 

43、      Next intCount       If gintTmode=1 Then 判斷是否有相同ID記錄            txtSQL=”select*from roomtype where typeid_ =”&Trim(txtItem(0)&”        &#

44、160;   Set mrc=ExecuteSQL(txtSQL,MsgText)            If mrc.EOF=False Then               MsgBox “已經(jīng)存在此標(biāo)準(zhǔn)編號(hào)的記錄!”,vbOKOnly+vbExclamation,”警告”    &#

45、160;       txtItem(0).SetFocus            Exit Sub       End If        Mrc.Close    End If    txtSQL=”select * from roomtype

46、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 

47、       Exit Sub    End If    txtSQL=”delete from roomtype where typeid=”&Trim(txtItem(0)&”刪除已有記錄    Set mrc=ExecuteSQL(txtSQL,MsgText)    txtSQL=”select *from roottype”添加新記錄    Set mrc=Ex

48、ecuteSQL(txtSQL,MsgText)    mrc.AddNew    For intCount=0 To 3        mrc.Fields(intCount)=Trim(txtItem(intCount)    Next intCount    For intCount=0 To 3        mrc.Fields

49、(intCount+4)=Trim(Combo1(intCount)    Next intCount    mrc.Fields(8)=Trim(txtItem(4)    mrc.Update 更新數(shù)據(jù)庫(kù)    mrc.Close    if gintTmode=1 Then 判斷是否屬于添加狀態(tài)       MsgBox “添加紀(jì)錄成功!”,vbOKOnly+vbExclamtio

50、n,“添加記錄”       For intCount=0 To 4           txtItem(intCount)=” 清除已經(jīng)輸入的內(nèi)容       Next intCount       For intCount=0 To 3      

51、0;    Combo1(intCount).ListIndex=0       Next intCount       mblChange=False判斷是否打開(kāi)窗口       if flagTedit Then           Unload frmRoomtype &#

52、160;         frmRoomtype.txtSQL=“select *from roomtype”           frmRoomtype.Show       End If     ElseIf gintTmode=2 Then 判斷是否處于修改狀態(tài)    &#

53、160;      Unload Me           If flagTedit Then               Unload frmRoomtype           EndIf 

54、60;         frmRoomtype.txtSQL=”select *from roomtype”           frmRoomtype.Show     End If End SubPrivate Sub txtItem_GotFocus(Index As Integer)文本框獲得焦點(diǎn)時(shí)觸發(fā)該事件，即自動(dòng)選中輸入的內(nèi)容，便于修改txtItem(In

55、dex).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 保存         &#

56、160;   Call cmdSave_Click      End IfEnd IfUnload MeEnd SubPrivate Sub txtItem_KeyDown(Index As Integer,KeyCode As Integer,Shift_ As Integer)輸入完內(nèi)容，單擊回車鍵將自動(dòng)進(jìn)入下一個(gè)文本框，觸發(fā)文本框的Keydown事件  EnterToTab KeyCodeEnd Sub修改客房標(biāo)準(zhǔn)窗體的創(chuàng)建Private Sub From_Load()ShowTitleShowDatafla

57、gTedit=TrueEnd SubPrivate Sub ShowTitle()調(diào)用showTitle函數(shù)，顯示表頭Dim i As IntegerWith msgList     .Cols=10     .TextMatrix(0,1)=”標(biāo)準(zhǔn)編號(hào)”     .TextMatrix(0,2)=”標(biāo)準(zhǔn)名稱”     .TextMatrix(0,3)=”房間面積”     .TextMatrix

58、(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固定表頭&

59、#160;    For i=0 To 9 設(shè)置各列的對(duì)齊方式         .ColAlignment(i)=0     Next i     .FillStyle=flexFillRepeat表頭項(xiàng)居中     .Col=0     .Row=0     .RowSel=1 

60、;    .ColSel=.Cols-1     .CellAlignment=4     .ColWidth(0)=300設(shè)置單元大小     .ColWidth(1)=1000     .ColWidth(2)=2000     .ColWidth(3)=2000     .ColWidth(4)=1000 

61、60;   .ColWidth(5)=1000     .ColWidth(6)=1000     .ColWidth(7)=1000     .ColWidth(8)=1000     .ColWidth(9)=1000     .Row=1End WithEnd SubPrivate Sub ShowData()調(diào)用showData函數(shù)，顯示記錄列表Dim i As Int

62、eger   Set mrc=ExecuteSQL(txtSQL,MsgText)根據(jù)需要設(shè)置SQL語(yǔ)句，顯示需要的記錄   With msgList   .Rows=1   Do While Not mrc.EOF       .Rows=Rows+1       For i=1 To mrc.Fields.Count      

63、60;    Select Case mrc.Fields(i-1).Type                  Case adDBDate                      .Te

64、xtMatrix(.Rows-1,i)=Format(mrc.Fields(i-1)&”,”yyyy-mm-dd”)                  Case Else                     

65、 .TextMatrix(.Rows-1,i)=mrc.Fields(i-1)&”           End Select       Next i        Mrc.MoveNext   Loop   End With   mrc.CloseEnd SubPrivate Sub msgList_Mous

66、eUp(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 menuModifyroomtype_Click()   Dim intCount As Integer   I

67、f flagTedit Then  判斷是否打開(kāi)記錄窗體        If frmRoomtype.msgList.Rows>1 Then            fintTmode=2設(shè)置為修改狀態(tài)            intCount=frmRoomtype.msgList.Row記下選

68、擇記錄           frmRoomtype1.txtSQL=”select*from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&”           frmRoomtype1.Show       

69、60; Else              Call menuAddroomtype_Click         End If   Else         frmRoomtype.txtSQL=”select*from roomtype”    &

70、#160;    frmRoomtype.Show   End IfEnd SubPrivate Sub From_Resize()窗體變化時(shí)，調(diào)整標(biāo)簽和表格位置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方    If Me.WindowState<>vbMinimized And fMainFrom.WindowState<>vbMinimized Then邊界處理          

71、If Me.Scaleheight<10*lblTitle.Height Then              Exit Sub           End If           If Me.ScaleWidth<lblTitle.Width+lblTit

72、le.Width/2 Then              Exit Sub           End If           lblTitle.Top=lblTitle.Height控制控件的位置      

73、;     lblTitle.Left=(Me.Width-lblTitle.Width)/2           msgList.Top=lblTitle.Top+lblTitle.Height+lblTitle.Height/2           msgList.Width=Me.ScaleWidth-200   

74、0;       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 

75、;     Dim intCount As Integer      Dim mrc As ADODB.Recordset      Dim MsgText As String      If flagTedit Then 判斷是否打開(kāi)記錄窗體         If frmRoomtype.msgList.Rows>1 T

76、hen            If MsgBox(“真的要?jiǎng)h除這條文件記錄么？”，vbOKCancel+vbExclamation,”警告”)=vbOK Then                intCount=frmRoomtype.msgList.Row       

77、;         txtSQL=”delete from roomtype where typeid”&Trim(frmRoomtype.msgList.TextMatrix(intCount,1)&”               Set mrc=ExecuteSQL(txtSQL,MsgText) +     

78、;          Unload frmRoomtype關(guān)閉記錄窗體               frmRoomtype.txtSQL=”select*from roomtype”重新選擇所有記錄               f

79、rmRoomtype.Show            End If        End If     End IfEnd Sub客房信息管理模塊的創(chuàng)建  客房信息管理模塊主要實(shí)現(xiàn)如下功能：   ·添加客房信息   ·修改客房信息   ·刪除客房信息   &#

80、183;查詢客房信息  具體實(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 ADODB.Recordset     If gintRmode=1 Then 判

81、斷是否處于添加狀態(tài)        Me.Caption=me.Caption&“添加”        txtSQL=”select DISTINCT typename from roomtype”        Set mrc=ExecuteSQL(txtSQL,MsgText)        If Not m

82、rc.EOF Then             Do While Not mrc.EOF                cboItem(0).AddItem Trim(mrc.Fields(0)           &#

83、160;    mrc.MoveNext             Loop             cboItem(0).ListIndex=0顯示記錄內(nèi)容        Else      

84、0;      MsgBox “請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告”             cmdSave.Enabled=False             Exit Sub        E

85、nd If        mrc.Close     ElseIf gintRmode=2 Then 判斷是否處于修改狀態(tài)             Set mrcc=ExecuteSQL(txtSQL,MsgText)設(shè)置SQL語(yǔ)句顯示當(dāng)前選擇記錄          &

86、#160;  If mrcc.EOF=False Then                With mrcc                     txtItem(0)=.Fields(0)    

87、                  For intCount=1 To 2                          If Not IsNull(.Fields(intCo

88、unt+1)Then判斷內(nèi)容是否為空                             txtItem(intCount)=.Fields(intCount+1)            

89、0;             End If                       Next intCount             

90、         txtItem(3)=.Fields(5)                      txtSQL=”select DISTINCT typename from roomtype”         &#

91、160;            Set mrc=ExecuteSQL(txtSQL,MsgText)                      If Not mrc.EOF Then        &

92、#160;                Do While Not mrc.EOF                            cboItem(0).AddItem Tr

93、im(mrc.Fields(0)                            mrc.MoveNext +                  

94、;       Loop                         cboItem(0).ListIndex=0               &

95、#160;      Else                         MsgBox“請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置!”,vbOKOnly+vbExclamation,“警告”           &#

96、160;             cmdSave.Enabled=False                         Exit Sub        &

97、#160;             End If                      mrc.Close             &#

98、160;   End With              End If              mrcc.Close              Me.Caption=Me.Caption&

99、amp;“修改”          End If          mblChange=FalseEnd SubPrivate Sub cmdSave_Click()單擊保存按鈕觸發(fā)事件    Dim intCount As Integer    Dim sMeg As String     Dim mrcc As ADODB.

100、Recordset    Dim Msgtext As String    For intCount=0 To 3       If Trim(TxtItem(intCount)&”)=” Then          Select Case intCount          &#

101、160;      Case 0                   sMeg=“客房編號(hào)”                 Case 1      

102、             sMeg=“客房位置”            End Select           sMeg=sMeg&“不能為空！”           M

103、sgBox sMeg,vbOKOnly+vbExclamation,“警告”           txtItem(intCount).SetFocus           Exit Sub        End If     Next intCount   &

104、#160; If gintRmode=1 Then判斷是否有重復(fù)記錄        txtSQL=”select * from rooms where roomNO=”&Trim(txtItem(0)&”        Set mrc=ExecuteSQL(txtSQL,msgText)        If mrc.EOF=False Then  &#

105、160;        MsgBox “已經(jīng)存在此客房編號(hào)的記錄！”,vbOKOnly+vbExclamation,“警告”           txtItem(0).SetFocus           Exit Sub        End If 

106、0;       mrc.Close     End If     If gintRmode=2 Then 判斷是否處于修改狀態(tài)        txtSQL=”delete from rooms where roomNO=”&Trim(txtItem(0)&”        Set mrc=Execut

107、eSQL(txtSQL,MsgText)     End If     txtSQL=”select*from rooms”再加入新記錄     Set mrc=ExecuteSQL(txtSQL,MsgText)     mrc.AddNew為數(shù)據(jù)庫(kù)對(duì)象添加記錄     mrc.Fields(0)=Trim(txtItem(0)     mrc.Field

108、s(1)=Trim(txtItem(0)     For intCount=1 To 2        If Trim(txtItem(intCount)&”)=” Then          mrc.Fields(intCount+1)=Null        Else           mrc.Fields(intCount+1)=