vb課程設(shè)計-酒店管理系統(tǒng)(文件)
【正文】 個 mand button 控件，分別把 2 個 mand button 控件的 mand 屬性改為“ 進入”和“退出”。做這個窗體頁面的時候，我們用到了如圖 8 所示的“菜單編輯器”頁面。我們可以根據(jù)需要為窗體添加多級菜單。如下圖 9 所示。如下圖 10 所示。 通過這次課程設(shè)計使我懂得了理論與實際相結(jié)合是很重要的，只有理論知識是遠遠不夠的，只有把所學的理論知識與實踐相結(jié)合起來，從理論中得出結(jié)論，才能真正為社會服務(wù)，從而提高自己的實際動手能力和獨立思考的能力。逐一判斷字符的合格化 If a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = ~ Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = , Then MsgBox Error, vbOKOnly, Error Exit Sub ElseIf a(i) = 39。 amp。 Trim() amp。 Trim() amp。 amp。)) ElseIf optgrade Then opentable , select * from room where ((( ) like 39。 39。 Trim() amp。 Then MsgBox Error, vbOKOnly, Error Exit Sub End If c = c + 1 Next i Dim strusername As String Dim strpassword As String Static intlogintimes As Integer If Trim() = Then 沈 陽 大 學 課程 設(shè)計說明書 MsgBox 用戶名不能為空！ , vbOKOnly + vbCritical, 錯誤 Exit Sub End If opentable adousers, usersinfo 姓名 = amp。 39。 amp。 amp。 amp。 39。 ElseIf opttype Then opentable , select * from room where ((( ) like 39。 Trim() amp。 % amp。, , adSearchForward, 1 沈 陽 大 學 課程 設(shè)計說明書 If Not Then 39。, , adSearchForward, 1 If Then MsgBox 非法登記號 !, vbOKOnly + vbInformation, 提示 SendKeys {HOME}+{END} = Exit Sub End If 登記號 =39。, , adSearchForward, 1 If Not Then strusername = !姓名 strpassword = !密碼 Else strusername = strpassword = End If If strusername = And strpassword = Then Unload Me Else MsgBox 用戶名或密碼不對！ , vbOKOnly + vbInformation, 提 示 沈 陽 大 學 課程 設(shè)計說明書 intlogintimes = intlogintimes + 1 If intlogintimes = 3 Then End End If SendKeys {HOME}+{END} End If End Sub Private Sub cmdcancel_click() Unload Me End Sub Option Explicit Private Sub Command1_Click() With If Not Then If Trim() = Then MsgBox 房間號不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub End If End If !房間號 = Trim() !客房等級 = Trim() !客房類型 = Trim() !客房價格 = Trim() !客房狀態(tài) = Trim() 沈 陽 大 學 課程 設(shè)計說明書 !客房備注信息 = Update Unload Me End With End Sub Private Sub Command2
公司管理相關(guān)推薦
鄂ICP備17016276號-1