frmmain.frm

VB实现各种方式连接数据库

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "DataBase Connect Test"
   ClientHeight    =   3795
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3795
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdRDO 
      Caption         =   "RDO数据库连接测试"
      Height          =   495
      Left            =   1260
      TabIndex        =   3
      Top             =   2040
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   495
      Left            =   1260
      TabIndex        =   2
      Top             =   3120
      Width           =   1155
   End
   Begin VB.CommandButton cmdDAO 
      Caption         =   "DAO数据库连接测试"
      Height          =   495
      Left            =   1260
      TabIndex        =   1
      Top             =   1260
      Width           =   1215
   End
   Begin VB.CommandButton cmdADO 
      Caption         =   "ADO数据库连接测试"
      Height          =   495
      Left            =   1260
      TabIndex        =   0
      Top             =   360
      Width           =   1155
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim frmADO As frmADO
Dim frmDAO As frmDAO
Dim frmRDO As frmRDO

Private Sub cmdADO_Click()
    If frmADO Is Nothing Then
        Set frmADO = New frmADO
        frmADO.Show , Me
    Else
        frmADO.WindowState = 0
        frmADO.Show
    End If
End Sub

Private Sub cmdDAO_Click()
    Dim lHwnd As Long, lIsVisible As Long, lIsIconic As Long
    lHwnd = 0
    lIsVisible = 0
    lIsIconic = 0
    lHwnd = FindWindow(vbNullString, "frmDAO")
    lIsVisible = IsWindowVisible(lHwnd)
    lIsIconic = IsIconic(lHwnd)
    If lHwnd <> 0 Then
        If lIsVisible <> 0 Then
            If lIsIconic = 0 Then
                SetForegroundWindow lHwnd
            Else
                frmDAO.WindowState = 0
            End If
        Else '隐藏-0
            frmDAO.Show
        End If
    Else
        Set frmDAO = New frmDAO
        frmDAO.Show , Me
    End If
End Sub

Private Sub cmdRDO_Click()
    Dim lHwnd As Long, lIsVisible As Long, lIsIconic As Long
    lHwnd = 0
    lIsVisible = 0
    lIsIconic = 0
    lHwnd = FindWindow(vbNullString, "frmRDO")
    lIsVisible = IsWindowVisible(lHwnd)
    lIsIconic = IsIconic(lHwnd)
    If lHwnd <> 0 Then
        If lIsVisible <> 0 Then
            If lIsIconic = 0 Then
                SetForegroundWindow lHwnd
            Else
                frmRDO.WindowState = 0
            End If
        Else '隐藏-0
            frmRDO.Show
        End If
    Else
        Set frmRDO = New frmRDO
        frmRDO.Show , Me
    End If
End Sub

Private Sub Command3_Click()
    Dim lHwnd As Long, lIsVisible As Long, lIsIconic As Long
    lHwnd = 0
    lIsVisible = 0
    lIsIconic = 0
    lHwnd = FindWindow(vbNullString, "ADO TEST")
    lIsVisible = IsWindowVisible(lHwnd)
    lIsIconic = IsIconic(lHwnd)
    Dim i As Integer
    For i = 0 To Forms.Count - 1
        MsgBox "第" + CStr(i + 1) + "个窗体是:" + Chr(10) + Chr(13) + Forms(i).Caption
    Next
End Sub