frmchaxunf.frm

酒店管理系统 （VB版） 简单的酒店管理系统

               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   ""
            Caption         =   ""
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
         EndProperty
      End
      Begin VB.Label Label4 
         Caption         =   "房间类型:"
         Height          =   375
         Left            =   -74880
         TabIndex        =   19
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label5 
         Caption         =   "查询的房间号码如下:"
         Height          =   375
         Left            =   -74760
         TabIndex        =   18
         Top             =   2040
         Width           =   1815
      End
      Begin VB.Label Label1 
         Caption         =   "选择房间类型:"
         Height          =   255
         Left            =   240
         TabIndex        =   17
         Top             =   1440
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "Label2"
         Height          =   495
         Left            =   120
         TabIndex        =   16
         Top             =   3120
         Width           =   1695
      End
      Begin VB.Label Label3 
         Caption         =   "Label3"
         Height          =   495
         Left            =   2160
         TabIndex        =   15
         Top             =   3120
         Width           =   2415
      End
   End
End
Attribute VB_Name = "frmchaxunf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsroomtype1 As ADODB.Recordset
Dim rsroomtype2 As ADODB.Recordset
Dim rsroom1 As ADODB.Recordset
Dim rsroom2 As ADODB.Recordset
Dim str As String
Dim str1 As String
Dim str2 As String
Dim guests As ADODB.Recordset

Private Sub cmdchaxun_Click()
Set cnn = New ADODB.Connection
Dim connectstring As String
connectstring = "DSN=hotelodbc"
cnn.Open connectstring
Dim a As String
If Optionr.Value = ture Then
a = "r"
opsta = 1
Else: a = ""
      opsta = 0
End If

Dim b As String
If Optionl.Value = ture Then
b = "l"
Else: b = ""
End If

Dim c As String
If Optiono.Value = ture Then
c = "o"
Else: c = ""
End If

Dim d As String
If Optionz.Value = ture Then
d = "z"
Else: d = ""
End If


str = "select room.roomcode from room,roomstate,roomtype where roomtype.typeno=room.typeno and room.roomcode=roomstate.roomcode and typename='" & comroomty.Text & "'and roomstate not in ('" & a & "','" & b & "','" & c & "','" & d & "')"
Set rsroom2 = New ADODB.Recordset
rsroom2.Open str, cnn, adOpenKeyset, adLockOptimistic
Set Dataroomno.RowSource = rsroom2
Dataroomno.ListField = "roomcode"

End Sub

Private Sub Cmdguests_Click()
If Dataroomno.Text = "" Then
 MsgBox "请选择房间", vbOKOnly + vbInformation, "提示"
    Exit Sub
    End If
    
Frmguests.Show
End Sub

Private Sub Cmdpeizhi_Click()
Set cnn = New ADODB.Connection
Dim connectstring As String
connectstring = "DSN=hotelodbc"
cnn.Open connectstring

str = "select remarks from roomtype,room where room.typeno=roomtype.typeno and roomcode='" & Dataroomno.BoundText & "' "
Set rsremarks = New ADODB.Recordset
rsremarks.Open str, cnn, adOpenKeyset, adLockOptimistic
If Dataroomno.Text = "" Then
MsgBox "请选择房间", vbOKOnly + vbInformation, "提示"
    Exit Sub

 Else
Set DataList1.RowSource = rsremarks
    DataList1.ListField = "remarks"
    End If

End Sub

Private Sub Cmdreg_Click()
If Dataroomno.Text = "" Then
MsgBox "请选择房间", vbOKOnly + vbInformation, "提示"
Exit Sub
 ElseIf opsta = 0 Then
        
        reg = 2
        FrmReg.Show 1
        Else: MsgBox "此房间不可出租", vbOKOnly + vbInformation, "提示"
  Exit Sub
End If
End Sub

Private Sub Command1_Click()
Frmchangef.Show
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub Command3_Click()
Set cnn = New ADODB.Connection
Dim connectstring As String
connectstring = "DSN=hotelodbc"
cnn.Open connectstring

Set rsroomtype1 = New ADODB.Recordset
str = "select * from roomtype "
rsroomtype1.Open str, cnn, adOpenKeyset, adLockOptimistic

Set Dataroomty.RowSource = rsroomtype1
Dataroomty.ListField = "typename"
Dataroomty.BoundColumn = "typeno"
rsroomtype1.MoveFirst
Dataroomty.Text = rsroomtype1.Fields("typename")
End Sub

Private Sub Command5_Click()
  Unload Me
End Sub

Private Sub Dataroomty_Change()
Set cnn = New ADODB.Connection
Dim connectstring As String
connectstring = "DSN=hotelodbc"
cnn.Open connectstring

str = "select typename 房间类型,beds 床位数,price 房价,remarks 备注 from roomtype where typename='" & Dataroomty.Text & "'"
Set rsroomtype1 = New ADODB.Recordset
rsroomtype1.Open str, cnn, adOpenKeyset, adLockOptimistic
Set Dataroom.DataSource = rsroomtype1

str1 = "select roomcode from room,roomtype where typename='" & Dataroomty.Text & "'and room.typeno=roomtype.typeno"
Set rsroom1 = New ADODB.Recordset
rsroom1.Open str1, cnn, adOpenKeyset, adLockOptimistic
Label2.Caption = "房间总数:" & rsroom1.RecordCount

str2 = "select room.roomcode from room,roomtype,roomstate where typename='" & Dataroomty.Text & "'and room.typeno=roomtype.typeno and room.roomcode=roomstate.roomcode and roomstate='r'"
Set rsroom2 = New ADODB.Recordset
rsroom2.Open str2, cnn, adOpenKeyset, adLockOptimistic
Label3.Caption = "剩余房间总数:" & rsroom2.RecordCount

End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
Dim connectstring As String
connectstring = "DSN=hotelodbc"
cnn.Open connectstring

Set rsroomtype1 = New ADODB.Recordset
str = "select * from roomtype "
rsroomtype1.Open str, cnn, adOpenKeyset, adLockOptimistic

Set Dataroomty.RowSource = rsroomtype1
Dataroomty.ListField = "typename"
Dataroomty.BoundColumn = "typeno"
rsroomtype1.MoveFirst
Dataroomty.Text = rsroomtype1.Fields("typename")

Set rsroomtype2 = New ADODB.Recordset
str = "select * from roomtype "
rsroomtype2.Open str, cnn, adOpenKeyset, adLockOptimistic

Set comroomty.RowSource = rsroomtype2
comroomty.ListField = "typename"
comroomty.BoundColumn = "typeno"
rsroomtype2.MoveFirst
comroomty.Text = rsroomtype2.Fields("typename")
End Sub