数据库_通用f6.frm

<VB数理统计实用算法>书中的算法源程序

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmDisplay 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "显示记录"
   ClientHeight    =   5100
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8310
   LinkTopic       =   "Form1"
   ScaleHeight     =   5100
   ScaleWidth      =   8310
   StartUpPosition =   3  '窗口缺省
   Begin VB.Data DataDisplay 
      Caption         =   "                          单击导航按钮可改变当前记录"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   285
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   4680
      Width           =   8100
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出"
      Height          =   375
      Left            =   7560
      TabIndex        =   1
      Top             =   240
      Width           =   615
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Bindings        =   "数据库_通用F6.frx":0000
      Height          =   3855
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   8055
      _ExtentX        =   14208
      _ExtentY        =   6800
      _Version        =   393216
      BackColor       =   -2147483639
      BackColorFixed  =   -2147483638
      ForeColorSel    =   -2147483640
      BackColorBkg    =   16777215
      AllowUserResizing=   1
      Appearance      =   0
   End
   Begin VB.Label lblTDName 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Label2"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1440
      TabIndex        =   5
      Top             =   480
      Width           =   6015
   End
   Begin VB.Label lblDBName 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   120
      Width           =   6015
   End
   Begin VB.Label lblTD 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Label2"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   480
      Width           =   1215
   End
   Begin VB.Label lblDB 
      Alignment       =   1  'Right Justify
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Label1"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frmDisplay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'窗体frmDisplay
'显示记录
'使用绑定的MSFlexGrid控件作为显示空间
Private Sub Form_Load()
    On Error GoTo err_Display
    DataDisplay.DatabaseName = db.Name
    DataDisplay.RecordSource = td.Name
    DataDisplay.RecordsetType = 2
    DataDisplay.Align = 2
    lblDB.Caption = "数据库名为："
    lblTD.Caption = "数据表名为："
    lblDBName = db.Name
    lblTDName = td.Name
    Exit Sub
'MSFlexGrid控件的DataSource属性必须在属性窗口设置
'设置为dataDisplay，即本窗体所使用的数据控件
err_Display:
    MsgBox "出现错误"
End Sub

'退出
Private Sub cmdExit_Click()
    Unload Me
    Load frmDatabase
    frmDatabase.Visible = True
End Sub