vbview.frm

来自「VB源码,是初学者的福因.让你很快掌握VB编程」· FRM 代码 · 共 138 行

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form Form1 
   Caption         =   "vbview - 用VB程序来浏览编辑 .mdb数据库"
   ClientHeight    =   3945
   ClientLeft      =   1665
   ClientTop       =   1950
   ClientWidth     =   6240
   LinkTopic       =   "Form1"
   ScaleHeight     =   263
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   416
   Begin VB.ListBox List1 
      Height          =   960
      Left            =   720
      TabIndex        =   1
      Top             =   120
      Width           =   5415
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   240
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   1920
      Visible         =   0   'False
      Width           =   1935
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "vbview.frx":0000
      Height          =   2655
      Left            =   720
      OleObjectBlob   =   "vbview.frx":0010
      TabIndex        =   3
      Top             =   1200
      Width           =   5415
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   240
      Top             =   2760
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "浏  览:"
      Height          =   180
      Left            =   120
      TabIndex        =   2
      Top             =   1200
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "数据表:"
      Height          =   180
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   630
   End
   Begin VB.Menu mOpenDB 
      Caption         =   "打开数据库"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' Dim Data1.Database As Database   ' Data1.Database 变量被 Data1.Database 所代替
' Dim rs As Recordset  ' rs 变量被 Data1.Recordset 所代替

Private Sub Form_Load()
    mOpenDB_Click
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    
    List1.Width = Me.ScaleWidth - List1.Left - 10
    DBGrid1.Width = Me.ScaleWidth - DBGrid1.Left - 10
    
    List1.Height = (Me.ScaleHeight - 20) * 2 \ 7
    DBGrid1.Top = List1.Height + 15
    Label2.Top = List1.Height + 15
    DBGrid1.Height = (Me.ScaleHeight - 20) * 5 \ 7
    
End Sub

Private Sub List1_Click()
    Dim i As Integer, k As Integer, S As String
    If List1.ListIndex >= 0 Then
        ' OpenRecordset 修改为指定 RecordSource  属性。
        Data1.RecordSource = List1.Text
        Data1.Refresh
    End If
End Sub

Private Sub mOpenDB_Click()
    Dim i As Integer
    On Error Resume Next
    With CommonDialog1
        .DialogTitle = "打开 .mdb文件"
        .Filter = "(数据库)*.mdb|*.mdb"
        .CancelError = True
        .ShowOpen
        If Err.Number <> cdlCancel Then
        
            ' OpenDatabase修改成指定DatabaseName 属性。
            Data1.DatabaseName = .filename
            Data1.Refresh
            
            List1.Clear
            ' Database 对象一开始就有 TableDef 子对象,
            ' 所以直接使用 TableDefs 集合对象即可。
            For i = 0 To Data1.Database.TableDefs.Count - 1
                If Data1.Database.TableDefs(i).Attributes = 0 Then
                    List1.AddItem Data1.Database.TableDefs(i).Name
                End If
            Next
        End If
    End With
End Sub