findroom.frm

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

      End
      Begin VB.Label Label1 
         Caption         =   "有无电视"
         Height          =   375
         Index           =   4
         Left            =   240
         TabIndex        =   11
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "有无卫生间"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   10
         Top             =   2640
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "有无空调"
         Height          =   375
         Index           =   1
         Left            =   240
         TabIndex        =   9
         Top             =   480
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "有无电话"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   8
         Top             =   1200
         Width           =   855
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "客房标准信息"
      Height          =   495
      Left            =   1800
      TabIndex        =   1
      Top             =   5760
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询"
      Enabled         =   0   'False
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   5760
      Width           =   1095
   End
End
Attribute VB_Name = "findroom"
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
Dim sql1 As String

Private Sub Check1_Click(Index As Integer)
If Check1(0) Or Check1(1) Or Check1(2) Or Check1(3) Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
For i = 0 To 3
If Check1(i) Then
Combo2(i).Enabled = True
Else
Combo2(i).Enabled = False
End If
Next
End Sub

Private Sub Com_Change()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs = mydb.OpenRecordset("客房表", dbOpenDynaset)
myrs.FindFirst "客房编号 = " + Chr(34) + Com.Text + Chr(34) + ""
sql = myrs.Fields(1)
Text2(3).Text = myrs.Fields(2)
myrs.Close
Set myrs = mydb.OpenRecordset("客房标准", dbOpenDynaset)
myrs.FindFirst "客房标准 = " + Chr(34) + sql + Chr(34) + ""
Text2(0).Text = myrs.Fields(0)
Text2(1).Text = myrs.Fields(3)
Text2(2).Text = myrs.Fields(1)
tex.Text = myrs.Fields(8)
 If Frame1.Visible = True Then
   For i = 0 To 3
   Text1(i) = myrs.Fields(i + 4)
   Next
   Text1(4) = myrs.Fields(2)
   End If
myrs.Close
mydb.Close
End Sub
Private Sub Com_Click()
Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs1 = mydb1.OpenRecordset("客房表", dbOpenDynaset)
myrs1.FindFirst "客房编号 = " + Chr(34) + Com.Text + Chr(34) + ""
sql = myrs1.Fields(1)
Text2(3).Text = myrs1.Fields(2)
myrs1.Close
Set myrs1 = mydb1.OpenRecordset("客房标准", dbOpenDynaset)
myrs1.FindFirst "客房标准 = " + Chr(34) + sql + Chr(34) + ""
Text2(0).Text = myrs1.Fields(0)
Text2(1).Text = myrs1.Fields(3)
Text2(2).Text = myrs1.Fields(1)
tex.Text = myrs1.Fields(8)
   For i = 0 To 3
   Text1(i) = myrs1.Fields(i + 4)
   Next
   Text1(4) = myrs1.Fields(2)
myrs1.Close
mydb1.Close
End Sub

Private Sub Command1_Click()
Dim str(1 To 4) As String
If Frame2.Visible = True Then
If Check1(0) Or Check1(1) Or Check1(2) Or Check1(3) Then
  sql1 = ""
  Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
  
  If Check1(0) Then
   str(1) = String$(1, Combo2(0).Text)
   If str(1) <> "4" Then
     sql1 = sql1 + "客房表.客房编号 like" + Chr(34) + str(1) + "*" + Chr(34)
    Else
     sql1 = sql1 + "客房表.客房编号 not like" + Chr(34) + "1*" + Chr(34)
     sql1 = sql1 + "and 客房表.客房编号 not like" + Chr(34) + "2*" + Chr(34)
     sql1 = sql1 + "and 客房表.客房编号 not like" + Chr(34) + "3*" + Chr(34)
   End If
   End If
   
   If Check1(1) Then
     If Check1(0) Then sql1 = sql1 + "and "
     str(2) = String$(1, Combo2(1).Text)
     If str(2) <> "其" Then
     sql1 = sql1 + "客房表.客房标准 like" + Chr(34) + str(2) + "*" + Chr(34)
    Else
     sql1 = sql1 + "客房表.客房标准 not like" + Chr(34) + "豪*" + Chr(34)
     sql1 = sql1 + "and 客房表.客房标准 not like" + Chr(34) + "中*" + Chr(34)
     sql1 = sql1 + "and 客房表.客房标准 not like" + Chr(34) + "标*" + Chr(34)
   End If
   End If
   
   If Check1(2) Then
   If Check1(0) Or Check1(1) Then sql1 = sql1 + "and "
    str(3) = String$(1, Combo2(2).Text)
    If str(3) <> "5" Then
    If str(3) = "0" Then sql1 = sql1 + "val(客房标准.单价) between 0 and 101"
    If str(3) = "1" Then sql1 = sql1 + "val(客房标准.单价) between 101 and 201"
     If str(3) = "2" Then sql1 = sql1 + "val(客房标准.单价) between 201 and 301"
      If str(3) = "3" Then sql1 = sql1 + "val(客房标准.单价) between 301 and 401"
       If str(3) = "4" Then sql1 = sql1 + "val(客房标准.单价) between 401 and 501"
      If str(3) <> "0" And str(3) <> "1" And str(3) <> "2" And str(3) <> "3" And str(3) <> "4" Then MsgBox ("您输入的单价查询项目不正确！")
    Else
     sql1 = sql1 + "val(客房标准.单价) > 500"
    End If
   End If
   
   If Check1(3) Then
      If Check1(0) Or Check1(1) Or Check1(2) Then sql1 = sql1 + "and "
      str(4) = String$(1, Combo2(3).Text)
      If str(4) <> "四" Then
        If str(4) = "单" Then sql1 = sql1 + "客房标准.床位数 like" + Chr(34) + "1*" + Chr(34)
        If str(4) = "双" Then sql1 = sql1 + "客房标准.床位数 like" + Chr(34) + "2*" + Chr(34)
        If str(4) = "三" Then sql1 = sql1 + "客房标准.床位数 like" + Chr(34) + "3*" + Chr(34)
        If str(4) <> "单" And str(4) <> "双" And str(4) <> "三" Then MsgBox ("您输入的床位数查询项目不正确！")
    Else
        sql1 = sql1 + "客房标准.床位数 not like " & "1"
        sql1 = sql1 + "and 客房标准.床位数 not like " & "2"
        sql1 = sql1 + "and 客房标准.床位数 not like " & "3"
      End If
   End If
   
  If Check1(2) Or Check1(3) Then
   sql = "select 客房编号 from 客房表 , 客房标准 where  客房表.客房标准 = 客房标准.客房标准 and "
  Else
   sql = "select 客房编号 from 客房表 where  "
  End If
   sql = sql + sql1
   Set myrs = mydb.OpenRecordset(sql)
   If myrs.EOF = False Then myrs.MoveLast
   If myrs.BOF = False Then myrs.MoveFirst
   Com.Clear
   For i = 0 To myrs.RecordCount - 1
     If myrs.Fields(0) <> "" Then Com.AddItem (myrs.Fields(0))   '添加到列表框
     myrs.MoveNext
   Next i
  If Com.ListCount > 0 Then Com.ListIndex = 0
  If Com.ListCount = 0 Then MsgBox ("当前没有所需的客房！")
  myrs.Close
  mydb.Close
Else
  MsgBox ("请选择查询项目！")
End If
Else
Frame1.Visible = False
Frame2.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Frame1.Visible Then
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\data\data.mdb")
Set myrs = mydb.OpenRecordset("客房标准", dbOpenDynaset)
myrs.FindFirst "客房标准 = " + Chr(34) + Text2(0).Text + Chr(34) + ""   ' 查找用户
If myrs.NoMatch Then                                     '没查到记录
    MsgBox ("无此标准号")
 Else
   For i = 0 To 3
   Text1(i) = myrs.Fields(i + 4)
   Next
   Text1(4) = myrs.Fields(2)
End If
End If
Frame2.Visible = Not Frame2.Visible
Frame1.Visible = Not Frame1.Visible
End Sub

Private Sub Command3_Click()
hotel.Combo1.Text = Com.Text
Unload Me
End Sub

Private Sub Command4_Click()
bookhotel.Combo1.Text = Com.Text
Unload Me
End Sub

Private Sub Form_Load()
left = 100
Top = 100
Com.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 Com.AddItem (myrs.Fields(0))   '添加到列表框
 myrs.MoveNext
  Next i
  If Com.ListCount > 0 Then Com.ListIndex = 0
  myrs.Close
  mydb.Close
 Combo2(0).AddItem "1001房到1099房"
  Combo2(0).AddItem "2001房到2099房"
   Combo2(0).AddItem "3001房到3099房"
    Combo2(0).AddItem "4001房以后"
 Combo2(1).AddItem "豪华甲到豪华丁"
 Combo2(1).AddItem "中档甲到中档丁"
 Combo2(1).AddItem "标准甲到标准丁"
 Combo2(1).AddItem "其他高档住房"
 Combo2(2).AddItem "00到100"
  Combo2(2).AddItem "100到200"
   Combo2(2).AddItem "200到300"
    Combo2(2).AddItem "300到400"
     Combo2(2).AddItem "400到500"
      Combo2(2).AddItem "500以上"
 Combo2(3).AddItem "单人"
  Combo2(3).AddItem "双人"
   Combo2(3).AddItem "三人"
    Combo2(3).AddItem "四人及其以上"
For i = 0 To 3
 Combo2(i).ListIndex = 0
 Next
End Sub