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

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

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

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

4、          圖系統(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ù)項有：標

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

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

7、ic NULL 房間面積Bednum Numeric NULL 床位數(shù)量Haircondition Varchar NULL 是否有空調Htelephone Varchar NULL 是否有電話Htelevision Varchar NULL 是否有電視Htoilet Varchar NULL 是否有單獨衛(wèi)生間Price Numeric NULL 單價Roomtype 客房標準信息表列名 

8、;數(shù)據(jù)類型 可否為空 說明roomNO Varchar NOT NULL 客房編號Roomtype Varchar NOT NULL 客房種類Roomposition Varchar NULL 客房位置Roomprice Numeric NULL 單價Putup Varchar NOT NULL 是否被預定Roommemo Text NULL 備注Rooms 客房信息表列名 數(shù)據(jù)類型&#

9、160;可否為空 說明Bookno  Varchar NOT NULL 訂房編號Customname Varchar NOT NULL  顧客姓名CustomID Varchar NOT NULL 身份證號碼Roomno Varchar NOT NULL 客房編號Indate Datetime NULL 入住日期Discount Numeric NULL 折扣Inmeno Text NU

10、LL 備注Checkdate Datetime NULL 結算日期Amount Numeric NULL 金額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_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)建客房標準信息表格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)具體程序實現(xiàn)創(chuàng)建公用模塊 Module1.bas  添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL，代碼如下：Public Function ExecuteSQL(ByValSQL As Stri

17、ng,MsgString AsString)_ As ADODB.Recordset 執(zhí)行SQL語句，并返回記錄集對象Dim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String異常處理On Error GoTo ExecuteSQL_Error用Split函數(shù)產生一個包含各個子串的數(shù)組   sTokens=Split(SQL)   Set cnn=NEW ADODB.Connection打開連接   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  返回記錄集對象       Set ExecuteSQL=rst       MsgString=”查詢到”&rs

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

21、車鍵  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

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)建 用戶管理模塊主要實現(xià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()用戶輸入內容完畢后，單擊cmdSave按鈕觸發(fā)Click事件  Dim intCount As Integer  Dim sMe

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

31、#160;             Case 0                         sMeg=”標準編號”          

32、          Case 1                         sMeg=”標準名稱”              

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

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

35、160;                       sMeg=”床位單價”               End Select         

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

37、0;            Exit Sub       End if       Next intCount 判斷輸入內容是否為數(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=”床位單價”              

42、;    End Select                  sMeg=sMeg&”請輸入數(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 “已經存在此標準編號的記錄!”,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”已經存在相同客房標準的記錄!”,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ù)庫    mrc.Close    if gintTmode=1 Then 判斷是否屬于添加狀態(tài)       MsgBox “添加紀錄成功!”,vbOKOnly+vbExclamtio

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

51、0;    Combo1(intCount).ListIndex=0       Next intCount       mblChange=False判斷是否打開窗口       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)文本框獲得焦點時觸發(fā)該事件，即自動選中輸入的內容，便于修改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(“保存當前記錄的變化嗎？”,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)輸入完內容，單擊回車鍵將自動進入下一個文本框，觸發(fā)文本框的Keydown事件  EnterToTab KeyCodeEnd Sub修改客房標準窗體的創(chuàng)建Private Sub From_Load()ShowTitleShowDatafla

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

58、(0,4)=”床位數(shù)量”      .TextMatrix(0,5)=”是否有空調”     .TextMatrix(0,6)=”是否有電話”     .TextMatrix(0,7)=”是否有電視”     .TextMatrix(0,8)=”是否有衛(wèi)生間”     .TextMatrix(0,9)=”房間單價”     .FixedRows=1固定表頭&

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

60、;    .ColSel=.Cols-1     .CellAlignment=4     .ColWidth(0)=300設置單元大小     .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()調用showData函數(shù)，顯示記錄列表Dim i As Int

62、eger   Set mrc=ExecuteSQL(txtSQL,MsgText)根據(jù)需要設置SQL語句，顯示需要的記錄   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)選擇記錄，然后單擊鼠標右鍵，觸發(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  判斷是否打開記錄窗體        If frmRoomtype.msgList.Rows>1 Then            fintTmode=2設置為修改狀態(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()窗體變化時，調整標簽和表格位置，使標簽處于窗體的最上方，而表格始終處于標簽下方    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刪除客房標準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 判斷是否打開記錄窗體         If frmRoomtype.msgList.Rows>1 T

76、hen            If MsgBox(“真的要刪除這條文件記錄么？”，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關閉記錄窗體               frmRoomtype.txtSQL=”select*from roomtype”重新選擇所有記錄               f

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

80、183;查詢客房信息  具體實現(xiàn)代碼如下：Private Sub From_Load()載入窗體時，自動添加客房信息種類     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顯示記錄內容        Else      

84、0;      MsgBox “請先進行客房標準設置!”,vbOKOnly+vbExclamation,“警告”             cmdSave.Enabled=False             Exit Sub        E

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

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判斷內容是否為空                             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“請先進行客房標準設置!”,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=“客房編號”                 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判斷是否有重復記錄        txtSQL=”select * from rooms where roomNO=”&Trim(txtItem(0)&”        Set mrc=ExecuteSQL(txtSQL,msgText)        If mrc.EOF=False Then  &#

105、160;        MsgBox “已經存在此客房編號的記錄！”,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ù)庫對象添加記錄     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)=