vb課程設(shè)計(jì)--基于vb的賓館信息管理系統(tǒng)(文件)
【正文】 Then = OriAreaName End If End Sub Private Sub txtAddress_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) End Sub Private Sub txtPrice1_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End If End Sub Private Sub txtPrice2_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End If End Sub Private Sub txtPrice3_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End If End Sub Private Sub txtPrice4_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) If In_Single(KeyAscii) = False Then KeyAscii = 0 End If End Sub 14 Private Sub txtCode_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) End Sub Private Sub txtContact_KeyPress(KeyAscii As Integer) EnterTAB (KeyAscii) 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ì)間報(bào)價(jià) , _ + As 雙人間報(bào)價(jià) , As 三人間報(bào)價(jià) , As 四人間報(bào)價(jià) , _ + As 錄入時(shí)間 FROM Hotel h, Area a WHERE = _ + And =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。賓館級(jí)別 = Trim((2)) 39。郵政編碼 = Trim((6)) 39。四人間報(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
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1