frmdatasetattribute.frm

都是基于VB所做的程序集合,值得大家作为实践的参考资料.

VERSION 5.00
Object = "{AB69DB6A-F6B5-4BCD-BF57-170D7A3F41F5}#5.2#0"; "SuperGridView.ocx"
Begin VB.Form frmDatasetAttribute 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "属性数据表"
   ClientHeight    =   4635
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   7905
   Icon            =   "frmDatasetAttribute.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4635
   ScaleWidth      =   7905
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin SuperGridViewLib.SuperGridView SuperGrid1 
      Height          =   4215
      Left            =   60
      TabIndex        =   8
      Top             =   420
      Width           =   7815
      _Version        =   327682
      _ExtentX        =   13785
      _ExtentY        =   7435
      _StockProps     =   0
   End
   Begin VB.Label lblFieldCount 
      BackColor       =   &H80000018&
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   7020
      TabIndex        =   7
      Top             =   60
      Width           =   660
   End
   Begin VB.Label Label7 
      Caption         =   "字段总数"
      Height          =   225
      Left            =   6225
      TabIndex        =   6
      Top             =   105
      Width           =   975
   End
   Begin VB.Label lblObjectCount 
      BackColor       =   &H80000018&
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   5385
      TabIndex        =   5
      Top             =   60
      Width           =   705
   End
   Begin VB.Label Label5 
      Caption         =   "对象总数"
      Height          =   225
      Left            =   4635
      TabIndex        =   4
      Top             =   105
      Width           =   975
   End
   Begin VB.Label lblDatasetType 
      BackColor       =   &H80000018&
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   3510
      TabIndex        =   3
      Top             =   60
      Width           =   945
   End
   Begin VB.Label Label3 
      Caption         =   "数据集类型"
      Height          =   225
      Left            =   2505
      TabIndex        =   2
      Top             =   105
      Width           =   975
   End
   Begin VB.Label lblDatasetName 
      BackColor       =   &H80000018&
      BorderStyle     =   1  'Fixed Single
      Height          =   300
      Left            =   1155
      TabIndex        =   1
      Top             =   60
      Width           =   1155
   End
   Begin VB.Label Label1 
      Caption         =   "数据集名称"
      Height          =   225
      Left            =   165
      TabIndex        =   0
      Top             =   105
      Width           =   975
   End
End
Attribute VB_Name = "frmDatasetAttribute"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public objRecordset As soRecordset

Private Sub Form_Activate()
      SuperGrid1.Connect objRecordset
      lblObjectCount.Caption = Str(objRecordset.RecordCount)
      lblFieldCount.Caption = Str(objRecordset.GetFieldInfos.Count)
End Sub

Private Sub Form_Unload(Cancel As Integer)
      Set objRecordset = Nothing
End Sub