vb課程設(shè)計(jì)--基于vb的賓館信息管理系統(tǒng)(參考版)
2025-06-07 05:59本頁(yè)面
【正文】 四人間報(bào)價(jià) = (10) ‘把變量 Modify 設(shè)置為 True，表示當(dāng)前狀態(tài)為修改已有記錄 = True 1 ‘修改完成，刷新顯示內(nèi)容 Refresh_Hotel p End Sub Private Sub Cmd_Close_Click() Unload Me End Sub Private Sub ComboName_Click() Refresh_Hotel End Sub Private Sub ComboType_Click() Call Loadarea( + 1, ComboName) If 0 Then = 0 End If Refresh_Hotel End Sub Private Sub DataGrid1_Click() ‘顯示數(shù)據(jù) End Sub Private Sub Form_Load() 17 ‘對(duì)輸入地域數(shù)據(jù)進(jìn)行初始化 = 0 Call Loadarea(1, ComboName) If 0 Then = 0 End If Refresh_Hotel End Sub 。雙人間報(bào)價(jià) = (8) 39。郵政編碼 = Trim((6)) 39。聯(lián)系電話 = Trim((4)) 39。賓館級(jí)別 = Trim((2)) 39。地域信息 = = + 1 39。確認(rèn)刪除 If MsgBox(是否刪除當(dāng)前行 ?, vbYesNo, 確認(rèn) ) = vbYes Then (TmpId) Refresh_Hotel If p 1 0 Then p 1 End If End If End Sub Private Sub Cmd_Modi_Click() If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If ‘確定當(dāng)前選擇記錄的位置 p = 39。 End Sub Private Sub Cmd_Add_Click() = False = = + 1 = 0 1 Refresh_Hotel End Sub 15 Private Sub Cmd_Del_Click() Dim TmpId As Long ‘判斷是否選擇了要?jiǎng)h除的記錄 If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If ‘確定當(dāng)前選擇記錄的位置 p = ‘要?jiǎng)h除的賓館編號(hào) TmpId = (Trim((1))) 39。判斷賓館名稱是否存在 If Modify = False Or OriHotelName Trim(txtHotel) Then If .In_DB(MakeStr(txtHotel)) = True Then MsgBox 賓館名稱已經(jīng)存在，請(qǐng)重新輸入 = 0 = Len(txtHotel) Exit Sub End If End If ‘根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) End If End With Unload Me End Sub Private Sub Cmd_Cancel_Click() Unload Me End Sub Private Sub ComboType_Click() Call Loadarea( + 1, ComboName) If 0 Then = 0 13 End If End Sub Private Sub Form_Load() ‘根據(jù)當(dāng)前賓館的地域數(shù)據(jù) OriType 和 OriAreaName 裝入地域，設(shè)置地域信息 = OriType 1 Call Loadarea(OriType, ComboName) If InCombo(OriAreaName, ComboName) = True Then = OriAreaName End If End Sub Pri
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1