vb課程設計-酒店管理系統(tǒng)-閱讀頁
2024-11-25 19:15本頁面
【正文】 沈 陽 大 學 課程 設計說明書 Private Sub Command1_Click() If optroom Then opentable , select * from room where ((( ) like 39。 Trim() amp。 39。 amp。 % amp。)) 39。 amp。 % amp。)) End If dtgroomqueryinforefresh End Sub Private Sub CmdOK_Click() Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18) As String j = Len() s1 = Dim c As Integer c = 1 For i = 1 To j a(i) = Mid(s1, i, 1) 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 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。 39。 amp。, , adSearchForward, 1 If Not Then strusername = !姓名 strpassword = !密碼 Else strusername = strpassword = End If If strusername = And strpassword = Then Unload Me Else MsgBox 用戶名或密碼不對！ , vbOKOnly + vbInformation, 提示 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 MDIForm_Load() = 賓館客房管理系統(tǒng) opentable adoroom, room opentable Adoroom1, room opentable adoguest, guest opentable Adoguest1, guest opentable adoquit, quit (1).Text = 歡迎登陸賓館管理系統(tǒng) (2).Text = Date amp。 Time End Sub Private Sub mnuCascade_Click() vbCascade End Sub Private Sub mnudenglu_Click() End Sub Private Sub mnuExit_Click() Unload Me End Sub Private Sub mnuGuest_Click() 沈 陽 大 學 課程 設計說明書 End Sub Private Sub mnuHor_Click() vbTileHorizontal End Sub Private Sub mnuin_Click() End Sub Private Sub mnuqueryguest_Click() End Sub Private Sub mnuqueryroom_Click() End Sub Private Sub mnuQuit_Click() Private Sub mnuver_Click() vbTileVertical End Sub Private Sub Timer1_Timer() (2).Text = Date amp。 Time End Sub Private Sub toolbar1_buttonclick(ByVal button As ) Select Case 沈 陽 大 學
公司管理相關推薦
鄂ICP備17016276號-1