數(shù)據(jù)庫課程設(shè)計(jì)酒店管理信息系統(tǒng)

/13cmdSave.Enabled=FalseExitSubEndIfmrc.CloseElseIfgintRmode=2Then‘判斷是否處于修改狀態(tài)Setmrcc二ExecuteSQL(txtSQL,MsgText)‘設(shè)置SQL語句顯示當(dāng)前選擇記錄Ifmrcc.EOF=FalseThenWithmrcctxtItem(0)=.Fields(0)ForintCount=1To2IfNotIsNull(.Fields(intCount+l))Then‘判斷內(nèi)容是否為空txtItem(intCount)=.Fields(intCount+1)EndIfNextintCounttxtItem(3)=.Fields(5)txtSQL=”selectDISTINCTtypenamefromroomtype”Setmrc=ExecuteSQL(txtSQL,MsgText)IfNotmrc.EOFThenDoWhileNotmrc.EOFcboItem(0).AddItemTrim(mrc.Fields(0))mrc.MoveNextLoopcboItem(0).ListIndex=0ElseMsgBox“請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！”,vbOKOnly+vbExclamation,“警告”cmdSave.Enabled二FalseExitSubEndIfmrc.CloseEndWithEndIfmrcc.CloseMe.Caption二Me.Caption&“修改”EndIfmblChange=FalseEndSubPrivateSubcmdSave_Click()‘單擊保存按鈕觸發(fā)事件DimintCountAsIntegerDimsMegAsStringDimmrccAsADODB.RecordsetDimMsgtextAsStringForintCount=0To3IfTrim(TxtItem(intCount)&””)=””ThenSelectCaseintCountCase0sMeg=“客房編號(hào)”Case1sMeg=“客房位置”EndSelectsMeg=sMeg&“不能為空！”MsgBoxsMeg,vbOKOnly+vbExclamation,“警告”txtItem(intCount).SetFocusExitSubEndIfNextintCountIfgintRmode=lThen'判斷是否有重復(fù)記錄txtSQL=”select*fromroomswhereroomNO=‘”&Trim(txtItem(0))&”'”Setmrc=ExecuteSQL(txtSQL,msgText)Ifmrc.EOF=FalseThenMsgBox“已經(jīng)存在此客房編號(hào)的記錄！”,vbOKOnly+vbExclamation,“警告”txtItem(0).SetFocusExitSubEndIfmrc.CloseEndIfIfgintRmode=2Then‘判斷是否處于修改狀態(tài)txtSQL=”deletefromroomswhereroomNO=‘”&Trim(txtItem(0))&”'Setmrc=ExecuteSQL(txtSQL,MsgText)EndIftxtSQL二”select*fromrooms”‘再加入新記錄Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNew'為數(shù)據(jù)庫對(duì)象添加記錄mrc.Fields(0)=Trim(txtItem(0))mrc.Fields(1)=Trim(txtItem(0))ForintCount=1To2IfTrim(txtItem(intCount)&””)=””Thenmrc.Fields(intCount+1)=NullElsemrc.Fields(intCount+1)=Trim(txtItem(intCount))EndIfNextintCountmrc.Fields(4)=””mrc.Fields(5)=Trim(txtItem(3))mrc.Updatemrc.CloseIfgintRmode=1ThenForintCount=0To3txtItem(intCount)=””NextintCountmblChange=FalseIfflagReditThenUnloadfrmRoomfrmRoom.txtSQL二"select*fromrooms"‘重新顯示數(shù)據(jù)frmRoom.ShowEndIfElseIfgintRmode=2ThenUnloadMeIfflagReditThenUnloadfrmRoomEndIffrmRoom.txtSQL="select*fromrooms"frmRoom.ShowEndIfEndSub?修改客房信息PrivateSubmenuModifyroom_Click()‘選擇修改房間信息，觸menuModifyroom的Click事件，程序判斷為修改狀態(tài)后，首先刪除原有記錄，然后把新內(nèi)容加入到數(shù)據(jù)庫中DimintCountAsIntegerIfflagReditThen‘判斷記錄窗體是否打開IffrmRoom.msgList.Rows>lThen‘判斷客房信息列表內(nèi)容是否為空gintRmode=2'設(shè)置為修改狀態(tài)intCount二frmRoom.msgList.Row‘紀(jì)錄當(dāng)前記錄位置frmRoom1.txtSQL="select*fromroomswhereroomNO='"&Trim(frmRoom.msgList.TextMatrix(intCount，1))&"'"frmRoom1.ShowElseCallmenuAddroom_Click'添加記錄EndIfElsefrmRoom.txtSQL="select*fromrooms"frmRoom.ShowEndIfEndSub?刪除客房信息PrivateSubmenuDeleteroom_Click()DimtxtSQLAsStringDimintCountAsIntegerDimmrcAsADODB.RecordsetDimMsgTextAsStringIfflagTeditThenIffrmRoom.msgList.Rows>lThen‘判斷客房信息列表內(nèi)容是否為空IfMsgBox(“真的要?jiǎng)h除這條文件記錄么？"，vbOKCancel+vbExclamation,“警告”)=vbOKThenintCount二frmRoom.msgList.Row‘記載當(dāng)前記錄位置txtSQL=”deletefromroomswhereroomNO=‘”&Trim(frmRoom.msgList.TextMatrix(intCount,1)&”'”Setmrc=ExecuteSQL(txtSQL,MsgText)‘執(zhí)行刪除操作UnloadfrmRoomfrmRoom.txtSQL=”select*fromrooms”frmRoom.ShowEndIfEndIfEndIfEndSub?查詢客房信息PrivateSubFrom_Load()'載入窗體時(shí)，將自動(dòng)加入所有記錄的入庫時(shí)間DimiAsIntegerDimjAsIntegerDimsSqlAsStringDimtxtSQLAsStringDimMsgTextAsStringDimmrcAsADODB.RecordsettxtSQL二”selectDISTINCTtypenamefromroomtype”‘初始化客房種類Setmrc=ExecuteSQL(txtSQL,MsgText)IfNotmrc.EOFThenDoWhileNotmrc.EOFCombo1.AddItemTrim(mrc.Fields(0))Mrc.MoveNextLoopCombo1.ListIndex=0ElseMsgBox“請先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！”，vbOKOnly+vbExclamation,"警告”ExitSubEndIfmrc.CloseEndSubPrivateSubcmdOK_Click()‘設(shè)置完查詢內(nèi)容和方式后，單擊cmdOk按鈕查詢DimsQSqlAsStringIfchkItem(0).Value=vbCheckedThensQSql=”roomNO='”&Trim(txtItem(0)&””)&”'”EndIfIfchkItem(1).Value=vbCheckedThenIfTrim(sQSql&””)=””ThensQSql=”roomtype='”&Trim(Combo1&””)&”'”ElseEndIfEndIfIfTrim(sQSql)=””ThenMsgBox“請?jiān)O(shè)置查詢條件！”，vbOKOnly+vbExclamation,“警告"ExitSubElseIfflagReditT