form2.frm

VB6.0+ACCE

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmMSFlexGrid 
   Caption         =   "Form2"
   ClientHeight    =   4185
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6315
   LinkTopic       =   "Form2"
   ScaleHeight     =   4185
   ScaleWidth      =   6315
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "返回主窗体"
      Height          =   495
      Left            =   4440
      TabIndex        =   1
      Top             =   3360
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2295
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   5205
      _ExtentX        =   9181
      _ExtentY        =   4048
      _Version        =   393216
      Rows            =   20
      Cols            =   4
      FixedCols       =   0
      ScrollTrack     =   -1  'True
      GridLineWidth   =   2
      FormatString    =   "<姓名|<性别|<年龄|<个人简历"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmMSFlexGrid"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
   frmMain.Show
   Unload Me
End Sub

Private Sub Form_Load()
    Dim strDBName As String
    strDBName = App.Path & "\Person.mdb" '取得打开的数据库名
    Set db = DBEngine(0).OpenDatabase(strDBName) '打开这个数据库
    Set tds = db.TableDefs   '定义数据表集合
    Set td = tds("Man")  '设定数据表为Man
    Set rs = td.OpenRecordset '打开数据集
    With MSFlexGrid1
     '根据数据记录的多少,数据表就显示多少条记录
        .Row = rs.Fields.Count  '找出记录集中的记录数,并将这个数赋值给网格的行.
        .Cols = 4   '定位网格的列数.
        j = 1    '初始记数值,用于网络的 "行号"
    '注意：网格的第一行，即(0,0),(0,1),(0,2),(0,3),,,,,用于存放数据的“标题栏”
        Do While Not rs.EOF
            For i = 1 To .Row
         '将记录集中的数据放入到数据网络中，这里要注意 (j,i-1)及(i-1)
         '其中.TextMatrix(j, i - 1)是数据网格中的文本位置
         '而 rs.Fields(i - 1) 是记录集中的每一个记录，不能到i，因为rs.Fields()是从0开始的。
               .TextMatrix(j, i - 1) = rs.Fields(i - 1)
            Next i
            rs.MoveNext
         '判断记数器是否超过了数据网格的行数，如果超过了，就退出这个循环。
            If j > .Row Then
               GoTo End01
            Else
               j = j + 1
            End If
        Loop
End01:
    End With
End Sub
Sub SeeYou()   '将记录内容显示到文本框中
       Text1.Text = rs.Fields("name")
       Combo1.Text = rs.Fields("sex")
       Text2.Text = rs.Fields("age")
       Text3.Text = rs.Fields("per")
End Sub
Sub SeeYouNothing()   '将记录内容显示到文本框中
       Text1.Text = ""
       Combo1.Text = ""
       Text2.Text = ""
       Text3.Text = ""
End Sub