form20.frm

利用VB编写的一个完整的酒店管理程序,支持双数据库!

VERSION 5.00
Begin VB.Form Form20 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "房间详细说明"
   ClientHeight    =   3930
   ClientLeft      =   45
   ClientTop       =   315
   ClientWidth     =   6675
   LinkTopic       =   "Form20"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3930
   ScaleWidth      =   6675
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.ListBox List1 
      Height          =   2760
      Left            =   120
      TabIndex        =   13
      Top             =   600
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   5640
      TabIndex        =   12
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Text6 
      Height          =   855
      Left            =   2520
      TabIndex        =   11
      Top             =   2880
      Width           =   3975
   End
   Begin VB.TextBox Text5 
      Height          =   735
      Left            =   2520
      TabIndex        =   9
      Top             =   2040
      Width           =   3975
   End
   Begin VB.TextBox Text4 
      Height          =   735
      Left            =   2520
      TabIndex        =   6
      Top             =   1200
      Width           =   3975
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   5400
      TabIndex        =   5
      Top             =   600
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   600
      Width           =   1935
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   2520
      TabIndex        =   0
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label Label7 
      Caption         =   "选择房间号单击进行查询！"
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   120
      TabIndex        =   14
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label6 
      Caption         =   "备    注"
      Height          =   255
      Left            =   1680
      TabIndex        =   10
      Top             =   2880
      Width           =   735
   End
   Begin VB.Label Label5 
      Caption         =   "使用设置"
      Height          =   375
      Left            =   1680
      TabIndex        =   8
      Top             =   2040
      Width           =   855
   End
   Begin VB.Label Label4 
      Caption         =   "配    置"
      Height          =   255
      Left            =   1680
      TabIndex        =   7
      Top             =   1200
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "房间价格"
      Height          =   255
      Left            =   4560
      TabIndex        =   4
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "房间类型"
      Height          =   255
      Left            =   1680
      TabIndex        =   2
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "房间号码"
      Height          =   255
      Left            =   1680
      TabIndex        =   1
      Top             =   240
      Width           =   735
   End
End
Attribute VB_Name = "Form20"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'FIXIT: 使用 Option Explicit 可以避免隐式创建 Variant 类型的变量                                          FixIT90210ae-R383-H1984








Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 11880, 8280, SWP_SHOWWINDOW)
 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf order by 房间号", dbOpenDynaset)
  ' mysqc = "Select * from yhkc Where 编号 = '" & Text1.Text & " '"
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            
            List1.AddItem EF("房间号")
            EF.MoveNext
         Loop
      End If
      
 '
  
  
  'Grid1.Row = Grid1.Rows - 1
 ' Dim X As Integer
 '     For X = 7 To 0 Step -1
 '        Grid1.Col = X
 '        Grid1.CellBackColor = &HE0E0D0
 '     Next
 ' Grid1.ColSel = 7
  
  EF.Close
  db.Close
End Sub

Private Sub List1_Click()
 Dim db As Database
  Dim EF As Recordset
  Set db = OpenDatabase(ConData, False, False, Constr)
  Set EF = db.OpenRecordset("Select * from kf Where 房间号 = '" & List1.Text & " '", dbOpenDynaset)
  ' mysqc = "Select * from yhkc Where 编号 = '" & Text1.Text & " '"
  
     '列出记录
      If Not (EF.BOF And EF.EOF) Then
         Do While Not EF.EOF
            Text1.Text = List1.Text
            Text2.Text = EF("房间类型")
            If EF("价格") <> "" Then Text3.Text = EF("价格")
            If EF("配置") <> "" Then Text4.Text = EF("配置")
            If EF("使用设置") <> "" Then Text5.Text = EF("使用设置")
            If EF("备注") <> "" Then Text6.Text = EF("备注")
            EF.MoveNext
         Loop
      End If
      
 '
  
  
  'Grid1.Row = Grid1.Rows - 1
 ' Dim X As Integer
 '     For X = 7 To 0 Step -1
 '        Grid1.Col = X
 '        Grid1.CellBackColor = &HE0E0D0
 '     Next
 ' Grid1.ColSel = 7
  
  EF.Close
  db.Close

End Sub