【正文】 6 參考文獻(xiàn) 《數(shù)據(jù)庫(kù)系統(tǒng)概論》（第四版） 王珊 薩師煊 高等教育出版社 2021 《 ACCESS 2021 數(shù)據(jù)庫(kù)管理基礎(chǔ)與提高 》 本書(shū)編委會(huì)編著 電子工業(yè)出版社 2021 《 VB 程序設(shè)計(jì)簡(jiǎn)明教程》 襲沛增 陸為民 楊志強(qiáng) 高等教育出版社 2021 。由于自己水平有限，程序中難免會(huì)出現(xiàn)些小錯(cuò)誤，希望老師批評(píng)指正。設(shè)計(jì)中有了指導(dǎo)老師和同學(xué)幫助，才使程序有了生命。使用結(jié)構(gòu)化的查詢技術(shù)，能夠從大量 的數(shù)據(jù)中快速查詢需要的信息。初始化物資名稱 txtSQL = select DISTINCT typename from roomtype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not Trim((0)) Loop = 0 Else MsgBox 請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If End Sub Private Sub lblitem_Click(Index As Integer) chkItem(Index).Value = vbChecked End Sub Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)) End Sub 20 5．結(jié)束語(yǔ) 通過(guò)這次課程設(shè)計(jì)，我掌握了一種新的面向?qū)ο蟮臄?shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)工具Visual Basic 的使用。 End If End If If Trim(sQSql) = Then MsgBox 請(qǐng) 設(shè)置查詢條件！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If flagRedit Then Unload frmRoom End If = select * from rooms where amp。 ) amp。 amp。 Else sQSql = sQSql amp。 ) amp。 amp。 End If If chkItem(1).Value = vbChecked Then If Trim(sQSql amp。 ) amp。 amp。 18 Option Explicit 39。 4 查詢客房信息。 2 修改客房信息。 載入窗體時(shí)，觸發(fā)窗體的 Load 事件，顯示當(dāng)前數(shù)據(jù)庫(kù)中所有的記錄 ,并修改當(dāng)前狀態(tài)為記錄編輯狀態(tài) ,代碼如下 : Private Sub Form_Load() ShowTitle ShowData flagTedit = True End Sub 刪除客房標(biāo)準(zhǔn)模塊設(shè)計(jì)與實(shí)現(xiàn) 選擇 “ 客房信息管理 設(shè)置客房標(biāo)準(zhǔn) 刪除客房標(biāo)準(zhǔn) ” 菜單，將出現(xiàn)記錄列表。最后根據(jù)狀態(tài)來(lái)顯示相應(yīng)的信息：如 果 17 是添加狀態(tài)，將提示添加成功，然后重新顯示并清空所有文本框，以便繼續(xù)添加記錄；如果處于虛空狀態(tài)，將提示修改成功，然后更新所有記錄的列表。用戶輸入內(nèi)容完畢后，單擊 cmdSave 按鈕將觸發(fā) Click 事件，事件包括：程序首先對(duì)是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷。有變化設(shè)置 gblchange mblChange = True End Sub Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)) End Sub Private Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCode End Sub 載入窗體時(shí)，將首先通過(guò)變量 gintTmode 判斷是添加還是修改。初始化物資名稱 txtSQL = select DISTINCT typename from roomtype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex = 0 Else MsgBox 請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If ElseIf gintRmode = 2 Then Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrcc txtItem(0) = .Fields(0) For intCount = 1 To 2 If Not IsNull(.Fields(intCount + 1)) Then txtItem(intCount) = .Fields(intCount + 1) End If Next intCount txtItem(3) = .Fields(5) txtSQL = select DISTINCT typename from roomtype Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) 16 Loop cboItem(0).ListIndex = 0 Else MsgBox 請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè)置！ , vbOKOnly + vbExclamation, 警告 = False Exit Sub End If End With End If =