shengyukefang.frm

宾馆在正常的运营中需要对客房资源、顾客信息、结算信息进行管理

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form shengyukefang 
   Caption         =   "客房列表情况"
   ClientHeight    =   5625
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6915
   Icon            =   "shengyukefang.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5625
   ScaleWidth      =   6915
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "返回"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4200
      TabIndex        =   2
      Top             =   5040
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   4695
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   8281
      _Version        =   393216
      Cols            =   12
   End
   Begin VB.Label Label2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   3
      Top             =   5160
      Width           =   1695
   End
   Begin VB.Label Label1 
      Height          =   615
      Left            =   0
      TabIndex        =   1
      Top             =   4920
      Width           =   3855
   End
End
Attribute VB_Name = "shengyukefang"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
shengyukefang.Hide
caidan.Show
End Sub

Private Sub Form_Load()
Dim i As Integer, j As Integer, totalnum As Integer
Dim db As Database, rs As Recordset
Set db = OpenDatabase(App.Path & "\客房情况.mdb") '打开数据库
Set rs = db.OpenRecordset("客房情况") '建立查询表对象 RS
rs.MoveLast '以下两行语句统计表中记录数
totalnum = rs.RecordCount
MSFlexGrid1.Rows = totalnum + 1 '定义网格行数=记录数+1
Label1.Caption = "记录数" + Str(totalnum) '在标签上显示记录数
''以下11行语句定义网格各列列宽
MSFlexGrid1.ColWidth(0) = 1000: MSFlexGrid1.ColWidth(1) = 1000
MSFlexGrid1.ColWidth(2) = 1000: MSFlexGrid1.ColWidth(3) = 1000
MSFlexGrid1.ColWidth(4) = 1000: MSFlexGrid1.ColWidth(5) = 1000
MSFlexGrid1.ColWidth(6) = 1000: MSFlexGrid1.ColWidth(7) = 1000
MSFlexGrid1.ColWidth(8) = 1000: MSFlexGrid1.ColWidth(9) = 1000
MSFlexGrid1.ColWidth(10) = 1000: MSFlexGrid1.ColWidth(11) = 1000
'以下语句在网格第一行上定义网格标题
MSFlexGrid1.Row = 0 '指定网格第一行
MSFlexGrid1.Col = 0: MSFlexGrid1.Text = "序号" '第一列
MSFlexGrid1.Col = 1: MSFlexGrid1.Text = "客房类型" '第二列
MSFlexGrid1.Col = 2: MSFlexGrid1.Text = "客房号码" '第三列
MSFlexGrid1.Col = 3: MSFlexGrid1.Text = "性别" '第四列
MSFlexGrid1.Col = 4: MSFlexGrid1.Text = "床位数" '第五列
MSFlexGrid1.Col = 5: MSFlexGrid1.Text = "剩余床位"
MSFlexGrid1.Col = 6: MSFlexGrid1.Text = "面积" '第六列
MSFlexGrid1.Col = 7: MSFlexGrid1.Text = "是否有空调" '第七列
MSFlexGrid1.Col = 8: MSFlexGrid1.Text = "是否有电话" '第八列
MSFlexGrid1.Col = 9: MSFlexGrid1.Text = "是否有电视" '第九列
MSFlexGrid1.Col = 10: MSFlexGrid1.Text = "是否有卫生间" '第十列
MSFlexGrid1.Col = 11: MSFlexGrid1.Text = "单价" '第十一列
'以下语句将RS记录集内的记录数据读入到网格单元,,建立网格数据
i = 1
rs.MoveFirst '定位到第一条记录
Do While Not rs.EOF
    MSFlexGrid1.Row = i: MSFlexGrid1.Col = 0 '指定网格当前行列号
    MSFlexGrid1.RowHeight(i) = 250 '网格第I行高
    MSFlexGrid1.Text = i '网格第1列填入序列号
    For j = 0 To 10
    MSFlexGrid1.Col = j + 1
    '用序列值(J-1)与RS对象的字段一一对应
    '将表中当前字段RS(J-1)的内容送入网格当前单元
    MSFlexGrid1.Text = rs(j)
    Next j
    rs.MoveNext '下一条记录
    i = i + 1
    Loop
    rs.Close
    db.Close

End Sub