客房管理系統(tǒng)-源代碼-文庫(kù)吧在線文庫(kù)
【正文】 mdUnknown .RecordSource = precordsource .Refresh End With End Sub Private Sub cmdok_Click() 39。 amp。 amp。, , adSearchForward, 1 If = False Then MsgBox 已存在該用戶！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If opentable adousers, usersinfo .AddNew !姓名 = Trim(Text1(0).Text) !密碼 = Trim(Text1(1).Text) If Option1(0) Then !權(quán)限 = 1 If Option1(1) Then !權(quán)限 = 2 If Option1(2) Then !權(quán)限 = 3 .Update MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = 5 Text1(2).Text = End With Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub 4. 設(shè)計(jì)主界面 Option Explicit Private Sub MDIForm_Load() = 賓館客房管理系統(tǒng) opentable adoroom, room opentable adoguest, guest opentable adoquit, quit 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 mnuIcon_Click() vbArrangeIcons End Sub Private Sub mnuqueryguest_Click() 6 End Sub Private Sub mnuqueryroom_Click() End Sub Private Sub mnuQuit_Click() End Sub Private Sub mnuRoomInfo_Click() End Sub Private Sub mnuUser_Click() End Sub Private Sub mnuver_Click() vbTileVertical End Sub Private Sub toolbar1_buttonclick(ByVal button As ) Select Case Case 1 mnuRoomInfo_Click Case 2 mnuGuest_Click Case 3 mnuQuit_Click Case 4 mnuqueryroom_Click Case 5 39。 amp。, , adSearchForward, 1 If Not Then If !客房狀態(tài) 空 Then MsgBox 已有客人居??！ , vbOKOnly + vbInformation, 提示 Exit Sub End If Else MsgBox 沒(méi)有此客房編號(hào) ,請(qǐng)重新輸入！ , vbOKOnly + vbInformation, 提示 Exit Sub End If If Trim() = Then MsgBox 客人姓名不能為空！ , vbOKOnly + vbInformation, 提示 Exit Sub End If .AddNew !登記號(hào) = Trim() 房間號(hào) = amp。 Trim() amp。綁定 Set .DataSource = .AllowRowSizing = False 39。窗體標(biāo)題 .Caption = 添加退房信息 . = False . = . = . = . = Date 39。 . = !QuitInfo . = !退房時(shí)間 .Show End With End If End Sub Private Sub cmdexit_Click() Unload Me End Sub Private Sub Form_Load() = 4155 = 7920 = ( ) / 2 14 = ( ) / 4 dtgQuitRefresh End Sub Private Sub CmdOK_Click() With If Not Then 39。 Trim() amp。 amp。 ElseIf optbookno Then opentable , select * from guest where ((( ) like 39。 % 39。 Trim() amp。 39。)) End If dtgqueryrefresh End Sub 1
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1