?? 房態圖.frm

?? 利用VB編寫的一個完整的酒店管理程序,支持雙數據庫!
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
             
            EF.MoveNext
         Loop
      End If
  EF.Close
  db.Close
  
  
  If Form26.Command1.Enabled = True Then
 Frame5.Visible = True
 Else
 Frame5.Visible = False
  End If
    
End Sub

Private Sub Form_Load()
'On Error GoTo err18
'FIXIT: Me.CurrentY property 沒有 Visual Basic .NET 等效項，將不升級。                                FixIT90210ae-R7593-R67265
'FIXIT: Me.CurrentX property 沒有 Visual Basic .NET 等效項，將不升級。                                FixIT90210ae-R7593-R67265
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 11880, 8280, SWP_SHOWWINDOW)

SfIt

End Sub



Private Sub Option1_Click()
    
    Me.Frame2.Visible = True
    Me.Frame3.Visible = False
    Me.Text1.SetFocus
    
End Sub

Private Sub Option2_Click()

    
    
    Me.Combo1.Clear
    Me.Frame2.Visible = False
    Me.Frame3.Visible = True
   
    SearchIt
   

End Sub

Private Sub Option3_Click()



    Me.Combo1.Clear
    Me.Frame2.Visible = False
    Me.Frame3.Visible = True
    Me.Combo1.Clear
   
   SIt
   
   
   
   
   

End Sub

Private Sub Option4_Click()

 Dim i As Long
Dim List_item As ListItem
checkPath ""
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, True, Constr)
  Set EF = db.OpenRecordset("select * from kf where 房間號<'999999' order by 房間號", dbOpenDynaset)
  
 
      
      
  
     '列出記錄
     
    Me.ListView1.ListItems.Clear
    For i = 0 To 4
        Room(i) = 0
    Next
    While Not EF.EOF
        Select Case EF("房態")
        Case "空房"
            ListView1.ListItems.Add , , EF("房間號"), 1
            Room(0) = Room(0) + 1
        Case "臟房"
            ListView1.ListItems.Add , , EF("房間號"), 2
            Room(1) = Room(1) + 1
        Case "維修"
            ListView1.ListItems.Add , , EF("房間號"), 3
            Room(2) = Room(2) + 1
        Case "售出"
            ListView1.ListItems.Add , , EF("房間號"), 4
            Room(3) = Room(3) + 1
        Case "預訂"
            ListView1.ListItems.Add , , EF("房間號"), 5
            Room(4) = Room(4) + 1
         Case "自用"
            ListView1.ListItems.Add , , EF("房間號"), 6
            
        Case Else
            ListView1.ListItems.Add , , EF("房間號"), 1
        End Select
        EF.MoveNext
        
    Wend
    EF.Close
    db.Close
    Me.Label7.caption = "空房：" & CStr(Room(0))
    Me.Label8.caption = "臟房：" & CStr(Room(1))
    Me.Label9.caption = "維修房：" & CStr(Room(2))
    Me.Label10.caption = "售出：" & CStr(Room(3))
    Me.Label11.caption = "預訂：" & CStr(Room(4))
    Me.Label12.caption = "合計：" & CStr(Room(0) + Room(1) + Room(2) + Room(3) + Room(4))
    Me.Label13.caption = "出租率：" & (Round(Room(3) / (Room(0) + Room(1) + Room(2) + Room(3) + Room(4)), 2) * 100) & "%"
    Select Case Load_Statu
    Case "使用"
        Me.Command5.Visible = True
        Me.Command6.Visible = True
        Me.Command4.Visible = False
    Case "顯示"
        If Registration_Type = "" Then
            Me.Command4.Visible = True
        Else
            Me.Command4.Visible = False
        End If
    End Select
    
    Exit Sub
    
err18:
    MsgBox "操作錯誤,錯誤代碼1018", 48, "提示"

End Sub






 



Private Sub SearchIt()

 '檢索數據
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, True, Constr)
  Set EF = db.OpenRecordset("select * from 房間狀態", dbOpenDynaset)
  
  
  
     '列出記錄
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Combo1.AddItem EF("房間狀態")
                    
           
          
            EF.MoveNext
         Loop
      End If
      
 '
  EF.Close
  db.Close

End Sub


Private Sub SIt()

 '檢索數據
  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, True, Constr)
  Set EF = db.OpenRecordset("select * from kflx", dbOpenDynaset)
  
  
  
     '列出記錄
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Combo1.AddItem EF("客房類型")
                    
           
          
            EF.MoveNext
         Loop
      End If
      
 '
  EF.Close
  db.Close

End Sub


Private Sub Timer2_Timer()
checkPath ""
SfIt
End Sub
Private Sub SfIt()
Dim i As Long
Dim List_item As ListItem

  Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, True, Constr)
  Set EF = db.OpenRecordset("select * from kf where 房間號<'999999' order by 房間號", dbOpenDynaset)
  
 
      
      
  
     '列出記錄
     
    Me.ListView1.ListItems.Clear
    For i = 0 To 4
        Room(i) = 0
    Next
    While Not EF.EOF
        Select Case EF("房態")
        Case "空房"
            ListView1.ListItems.Add , , EF("房間號"), 1
            Room(0) = Room(0) + 1
        Case "臟房"
            ListView1.ListItems.Add , , EF("房間號"), 2
            Room(1) = Room(1) + 1
        Case "維修"
            ListView1.ListItems.Add , , EF("房間號"), 3
            Room(2) = Room(2) + 1
        Case "售出"
            ListView1.ListItems.Add , , EF("房間號"), 4
            Room(3) = Room(3) + 1
        Case "預訂"
            ListView1.ListItems.Add , , EF("房間號"), 5
            Room(4) = Room(4) + 1
         Case "自用"
            ListView1.ListItems.Add , , EF("房間號"), 6
            
        Case Else
            ListView1.ListItems.Add , , EF("房間號"), 1
        End Select
        EF.MoveNext
        
    Wend
    EF.Close
    db.Close
    Me.Label7.caption = "空房：" & CStr(Room(0))
    Me.Label8.caption = "臟房：" & CStr(Room(1))
    Me.Label9.caption = "維修房：" & CStr(Room(2))
    Me.Label10.caption = "售出：" & CStr(Room(3))
    Me.Label11.caption = "預訂：" & CStr(Room(4))
    Me.Label12.caption = "合計：" & CStr(Room(0) + Room(1) + Room(2) + Room(3) + Room(4))
   ' Me.Label13.caption = "出租率：" & (Round(Room(3) / (Room(0) + Room(1) + Room(2) + Room(3) + Room(4)), 2) * 100) & "%"
    Select Case Load_Statu
    Case "使用"
        Me.Command5.Visible = True
        Me.Command6.Visible = True
        Me.Command4.Visible = False
    Case "顯示"
        If Registration_Type = "" Then
            Me.Command4.Visible = True
        Else
            Me.Command4.Visible = False
        End If
    End Select
    
    Exit Sub
    

End Sub

'---------------------------------------------------------------------------------
Private Sub Command9_Click()
If Trim(txtfield(0).Text) = "" Then
      MsgBox "對不起,房間號必須輸入？   ", vbInformation, "Hello!"
      txtfield(0).SetFocus
      Exit Sub
  End If
   
 '開始保存內容
   Dim db As Database
  Dim EF As Recordset
  
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf where 房間號= '" & txtfield(0).Text & "'", dbOpenDynaset)
  
    
      '==================1
'FIXIT: 用 "Trim$" 函數替換 "Trim" 函數                                                           FixIT90210ae-R9757-R1B8ZE
       If Trim(txtfield(0).Text) <> "" Then
          EF.Edit
          EF("房態") = "空房"
          
           
          
          EF.Update
          
          
       End If
      '-----------------2
      
      '-----------------
      
  EF.Close
  db.Close
   
  MsgBox "房間狀態已經修改為空閑   ", vbInformation
 'Caozuo = "修改房態按鈕 '" & txtfield(0).Text & " '房間為空閑 "
'lu_time = Now
'RiZhil
 txtfield(0) = ""
 txtfield(0).SetFocus


End Sub




Private Sub Command8_Click()
If Trim(txtfield(0).Text) = "" Then
      MsgBox "對不起,房間號必須輸入？   ", vbInformation, "Hello!"
      txtfield(0).SetFocus
      Exit Sub
  End If
   
 '開始保存內容
   Dim db As Database
  Dim EF As Recordset
  
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf where 房間號= '" & txtfield(0).Text & "'", dbOpenDynaset)
  
    
      '==================1
'FIXIT: 用 "Trim$" 函數替換 "Trim" 函數                                                           FixIT90210ae-R9757-R1B8ZE
       If Trim(txtfield(0).Text) <> "" Then
          EF.Edit
          EF("房態") = "維修"
          
           
          
          EF.Update
          
          
       End If
      '-----------------2
      
      '-----------------
      
  EF.Close
  db.Close
    'Caozuo = "修改房態按鈕 '" & txtfield(0).Text & " '房間為維修 "
'lu_time = Now
'RiZhil
  MsgBox "房間狀態已經修改為維修   ", vbInformation

 txtfield(0).Text = ""
 txtfield(0).SetFocus
End Sub

Private Sub Command7_Click()
If Trim(txtfield(0).Text) = "" Then
      MsgBox "對不起,房間號必須輸入？   ", vbInformation, "Hello!"
      txtfield(0).SetFocus
      Exit Sub
  End If
   
 '開始保存內容
   Dim db As Database
  Dim EF As Recordset
  
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf where 房間號= '" & txtfield(0).Text & "'", dbOpenDynaset)
  
    
      '==================1
'FIXIT: 用 "Trim$" 函數替換 "Trim" 函數                                                           FixIT90210ae-R9757-R1B8ZE
       If Trim(txtfield(0).Text) <> "" Then
          EF.Edit
          EF("房態") = "售出"
          
           
          
          EF.Update
          
          
       End If
      '-----------------2
      
      '-----------------
      
  EF.Close
  db.Close
   
  MsgBox "房間狀態已經修改為入住   ", vbInformation
 'Caozuo = "修改房態按鈕 '" & txtfield(0).Text & " '房間為入住 "
'lu_time = Now
'RiZhil
 txtfield(0).Text = ""
 txtfield(0).SetFocus
End Sub

Private Sub Command4_Click()
If Trim(txtfield(0).Text) = "" Then
      MsgBox "對不起,房間號必須輸入？   ", vbInformation, "Hello!"
      txtfield(0).SetFocus
      Exit Sub
  End If
   
 '開始保存內容
   Dim db As Database
  Dim EF As Recordset
  
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf where 房間號= '" & txtfield(0).Text & "'", dbOpenDynaset)
  
    
      '==================1
'FIXIT: 用 "Trim$" 函數替換 "Trim" 函數                                                           FixIT90210ae-R9757-R1B8ZE
       If Trim(txtfield(0).Text) <> "" Then
          EF.Edit
          EF("房態") = "臟房"
          
           
          
          EF.Update
          
          
       End If
      '-----------------2
      
      '-----------------
      
  EF.Close
  db.Close
   
  MsgBox "房間狀態已經修改為打掃   ", vbInformation
' Caozuo = "修改房態按鈕 '" & txtfield(0).Text & " '房間為打掃 "
'lu_time = Now
'RiZhil
 txtfield(0).Text = ""
 txtfield(0).SetFocus
End Sub

Private Sub Command5_Click()
If Trim(txtfield(0).Text) = "" Then
      MsgBox "對不起,房間號必須輸入？   ", vbInformation, "Hello!"
      txtfield(0).SetFocus
      Exit Sub
  End If
   
 '開始保存內容
   Dim db As Database
  Dim EF As Recordset
  
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf where 房間號= '" & txtfield(0).Text & "'", dbOpenDynaset)
  
    
      '==================1
'FIXIT: 用 "Trim$" 函數替換 "Trim" 函數                                                           FixIT90210ae-R9757-R1B8ZE
       If Trim(txtfield(0).Text) <> "" Then
          EF.Edit
          EF("房態") = "自用"
          
           
          
          EF.Update
          
          
       End If
      '-----------------2
      
      '-----------------
      
  EF.Close
  db.Close
   
  MsgBox "房間狀態已經修改為自用   ", vbInformation
' Caozuo = "修改房態按鈕 '" & txtfield(0).Text & " '房間為自用"
'lu_time = Now
'RiZhil

 txtfield(0).Text = ""
 txtfield(0).SetFocus
End Sub
上一頁 12
?? 文件大小 1974 K
?? 上傳用戶 tsdtz
?? 所屬分類酒店行業
??? 相關標簽

#編寫 #程序 #數據庫
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? 房態圖.frm

?? 快捷鍵說明
