vb課程設(shè)計--基于vb的賓館信息管理系統(tǒng)-資料下載頁
2025-06-03 05:59本頁面
【正文】 ii) End Sub Private Sub txtPhone_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) End Sub Private Sub txtHotel_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) End Sub Private Sub Refresh_Hotel() ‘為 Adodc1 控件設(shè)置數(shù)據(jù)源 = SELECT 所在地域 , As 賓館名稱 , _ + As 賓館標(biāo)準(zhǔn) , As 聯(lián)系人 , As 聯(lián)系電話 , _ + As 通信地址 , As 郵政編碼 , As 經(jīng)濟(jì)間報價 , _ + As 雙人間報價 , As 三人間報價 , As 四人間報價 , _ + As 錄入時間 FROM Hotel h, Area a WHERE = _ + And =39。 + Trim() + 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 ‘判斷是否選擇了要刪除的記錄 If = True Then MsgBox 請選擇記錄 Exit Sub End If ‘確定當(dāng)前選擇記錄的位置 p = ‘要刪除的賓館編號 TmpId = (Trim((1))) 39。判斷當(dāng)前記錄是否出現(xiàn)在線路中 If (TmpId) 0 Then MsgBox 此賓館在線路中使用，不能刪除 Exit Sub End If 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 請選擇記錄 Exit Sub End If ‘確定當(dāng)前選擇記錄的位置 p = 39。賓館編號 = ((1)) 39。地域信息 = = + 1 39。賓館名稱 = Trim((1)) = Trim((1)) 39。賓館級別 = Trim((2)) 39。聯(lián)系人 16 = Trim((3)) 39。聯(lián)系電話 = Trim((4)) 39。通信地址 = Trim((5)) 39。郵政編碼 = Trim((6)) 39。經(jīng)濟(jì)間報價 = (7) 39。雙人間報價 = (8) 39。三人間報價 = (9) 39。四人間報價 = (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 ‘對輸入地域數(shù)據(jù)進(jìn)行初始化 = 0 Call Loadarea(1, ComboName) If 0 Then = 0 End If Refresh_Hotel End Sub
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1