hotel.frm

利用VB开发的作品!包括宾馆系统的开发,名片管理系统,查询系统及字库查询 希望大家喜欢

End
Attribute VB_Name = "hotel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mydb As Database
Dim mydb1 As Database
Dim myrs As Recordset
Dim myrs1 As Recordset
Dim sql As String
Private Sub Command3_Click()
Unload Me
End Sub

Private Sub addroom_Click()
For i = 0 To 4
If Tename(i) = "" Then GoTo questions
Next
If Combo1.Text = "" Then
   i = 6
   GoTo questions
End If
If Not IsNumeric(Tename(1).Text) Then
 i = 7
   GoTo questions
   End If
If Not IsNumeric(Tename(3).Text) Then
 i = 8
   GoTo questions
   End If
If Not IsNumeric(Tename(4).Text) Then
 i = 9
   GoTo questions
   End If
If Not IsNumeric(Combo1.Text) Then
 i = 10
   GoTo questions
   End If
If Val(Tename(3).Text) < 0 And Val(Tename(3).Text) > 1 Then
 i = 11
   GoTo questions
   End If
  If Check1.Value = False Then
      Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
      Set myrs = mydb.OpenRecordset("住房表", dbOpenDynaset)
      myrs.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
      Set myrs1 = mydb.OpenRecordset("客房表", dbOpenDynaset)
      myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
  If myrs1.Fields("状态") <> "已订" Then
     If myrs1.Fields("状态") <> "入住" Then
       myrs.AddNew
       myrs.Fields(0) = Combo1.Text
       myrs.Fields(1) = Tename(0).Text
       myrs.Fields(2) = Tename(1).Text
       myrs.Fields(3) = Tename(2).Text
       myrs.Fields(5) = Tename(3).Text
       myrs.Fields(4) = Tename(4).Text
       myrs.Fields(7) = Tename(5).Text
       myrs.Update
       myrs.Close
       myrs1.Edit
       myrs1.Fields("状态") = "入住"
       myrs1.Update
       mydb.Close
       MsgBox ("住房登记成功！")
       Combo1.RemoveItem ListIndex
     Else
       MsgBox ("对不起，此客房已经登记！")
       myrs.Close
       mydb.Close
     End If
    Else
      MsgBox ("对不起，此客房已经有顾客预定！")
    End If
 Else
      Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
      Set myrs = mydb.OpenRecordset("订房表", dbOpenDynaset)
      myrs.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
      If myrs.NoMatch Then
        MsgBox ("对不起，此客房没有顾客预定！")
       Else
        myrs.Delete
        myrs.MoveNext
        myrs.Close
         Set myrs = mydb.OpenRecordset("客房表", dbOpenDynaset)
         myrs.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
         myrs.Edit
         myrs.Fields("状态") = "入住"
         myrs.Update
         myrs.Close
         Set myrs = mydb.OpenRecordset("住房表", dbOpenDynaset)
         myrs.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
         myrs.AddNew
       myrs.Fields(0) = Combo1.Text
       myrs.Fields(1) = Tename(0).Text
       myrs.Fields(2) = Tename(1).Text
       myrs.Fields(3) = Tename(2).Text
       myrs.Fields(5) = Tename(3).Text
       myrs.Fields(4) = Tename(4).Text
       myrs.Fields(7) = Tename(5).Text
       myrs.Update
       myrs.Close
        mydb.Close
        MsgBox ("住房登记成功！")
         Combo1.RemoveItem ListIndex
      End If
 End If
questions:
  Select Case i
  Case 0
    MsgBox ("姓名不为空")
    Tename(0).SetFocus
  Case 1
    MsgBox ("身份证号不为空")
    Tename(1).SetFocus
  Case 2
    MsgBox ("入住时间不为空")
    Tename(2).SetFocus
  Case 3
    MsgBox ("折扣不为空")
    Tename(3).SetFocus
  Case 4
    MsgBox ("押金不为空")
    Tename(4).SetFocus
  Case 6
    MsgBox ("客房编号不为空")
    Combo1.SetFocus
    Case 7
    MsgBox ("身份证号不为数字")
    Tename(1).SetFocus
    Case 8
    MsgBox ("折扣不为数字")
    Tename(3).SetFocus
    Case 9
    MsgBox ("押金不为数字")
    Tename(4).SetFocus
    Case 10
     MsgBox ("客房编号不为数字")
    Combo1.SetFocus
    Case 11
     MsgBox ("折扣只能在0到1之间")
    Tename(3).SetFocus
  End Select
i = 0
End Sub

Private Sub cancel_Click()
Unload Me
End Sub

Private Sub Check1_Click()
If Check1 Then
Combo1.Clear
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs = mydb.OpenRecordset("订房表", dbOpenDynaset)
myrs.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
 Combo1.AddItem (myrs.Fields(0)) '添加到列表框
 myrs.MoveNext
  Next i
  If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
  myrs.Close
  mydb.Close
Else
  Combo1.Clear
  Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb") '设置数据库
  sql = "select * from 客房表"
  Set myrs = mydb.OpenRecordset(sql)
  If myrs.EOF = False Then myrs.MoveLast
  If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
   If myrs.Fields(0) <> "" Then
    If myrs.Fields("状态") = "无" Then
     Combo1.AddItem (myrs.Fields(0)) '添加到列表框
      End If
 End If
 myrs.MoveNext
  Next i
  If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
  myrs.Close
  mydb.Close
End If
End Sub

Private Sub Combo1_Change()
Combo1_Click
End Sub

Private Sub Combo1_Click()
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs1 = mydb1.OpenRecordset("客房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
sql = myrs1.Fields(1)
myrs1.Close
Set myrs1 = mydb1.OpenRecordset("客房标准", dbOpenDynaset)
myrs1.FindFirst "客房标准 = " + Chr(34) + sql + Chr(34) + ""
Text1(0).Text = myrs1.Fields(0)
Text1(1).Text = myrs1.Fields(3)
Text1(2).Text = myrs1.Fields(1)
Text1(3).Text = myrs1.Fields(8)
myrs1.Close
If Check1.Value Then
  Set myrs1 = mydb1.OpenRecordset("订房表", dbOpenDynaset)
       myrs1.FindFirst "客房编号 = " + Chr(34) + Combo1.Text + Chr(34) + ""
      For i = 0 To 1
      Tename(i).Text = myrs1.Fields(i + 1)
      Next
      Tename(i).Text = myrs1.Fields(i + 1)
      Tename(2).Text = myrs1.Fields(4)
      Tename(3).Text = "0"
      Tename(4).Text = "0"
      Tename(5).Text = myrs1.Fields(6)
    myrs1.Close
End If
mydb1.Close
End Sub

Private Sub Command1_Click()
 Load findroom
End Sub

Private Sub find0_Click()
Load findroom
findroom.Visible = True
End Sub

Private Sub Form_Load()
left = 100
Top = 100
Combo1.Clear
Tename(2).Text = Date$
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb") '设置数据库
sql = "select * from 客房表"
Set myrs = mydb.OpenRecordset(sql)
If myrs.EOF = False Then myrs.MoveLast
If myrs.BOF = False Then myrs.MoveFirst
For i = 0 To myrs.RecordCount - 1
 If myrs.Fields(0) <> "" Then
 If myrs.Fields("状态") = "无" Then
 Combo1.AddItem (myrs.Fields(0)) '添加到列表框
 End If
 End If
 myrs.MoveNext
  Next i
  If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
  myrs.Close
  mydb.Close
End Sub

Private Sub reset_Click()
For i = 0 To 5
  Tename(i).Text = ""
  Next
For i = 0 To 3
Text1(i).Text = ""
Next
Combo1.Text = ""
Tename(2).Text = Date$
End Sub