【VB开源代码栏目提醒】：网学会员为广大网友收集整理了，FrmDatabaseSet.frm，希望对大家有所帮助！

    VERSION 5.00
    Begin VB.Form FrmDatabaseSet 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "数据库配置检查"
       ClientHeight    =   5025
       ClientLeft      =   45
       ClientTop       =   495
       ClientWidth     =   8595
       Icon            =   "FrmDatabaseSet.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   5025
       ScaleWidth      =   8595
       StartUpPosition =   2  '屏幕中心
       Begin VB.ListBox List2 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          Height          =   3090
          Left            =   4200
          TabIndex        =   5
          Top             =   480
          Width           =   4215
       End
       Begin VB.CheckBox Check1 
          Caption         =   "全选"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   3240
          TabIndex        =   4
          Top             =   120
          Width           =   855
       End
       Begin VB.ListBox List1 
          Appearance      =   0  'Flat
          Height          =   3180
          Left            =   120
          Style           =   1  'Checkbox
          TabIndex        =   0
          Top             =   480
          Width           =   3855
       End
       Begin VB.Image Image1 
          Height          =   300
          Left            =   960
          Picture         =   "FrmDatabaseSet.frx":0CCA
          Top             =   4440
          Width           =   300
       End
       Begin VB.Label LblDelete 
          BackStyle       =   0  'Transparent
          Caption         =   "初始化所选数据表"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   1560
          MouseIcon       =   "FrmDatabaseSet.frx":10E6
          MousePointer    =   99  'Custom
          TabIndex        =   7
          Top             =   4440
          Width           =   2175
       End
       Begin VB.Label Label2 
          Caption         =   "检测结果:"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   4800
          TabIndex        =   6
          Top             =   120
          Width           =   1335
       End
       Begin VB.Label Label1 
          Caption         =   "请选择要检测的数据表:"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   120
          TabIndex        =   3
          Top             =   120
          Width           =   2775
       End
       Begin VB.Image Image4 
          Height          =   300
          Left            =   6000
          Picture         =   "FrmDatabaseSet.frx":13F0
          Top             =   4200
          Width           =   300
       End
       Begin VB.Label LblCancel 
          BackStyle       =   0  'Transparent
          Caption         =   "返回"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   6600
          MouseIcon       =   "FrmDatabaseSet.frx":180C
          MousePointer    =   99  'Custom
          TabIndex        =   2
          Top             =   4200
          Width           =   855
       End
       Begin VB.Image Image3 
          Height          =   300
          Left            =   1440
          Picture         =   "FrmDatabaseSet.frx":1B16
          Top             =   3840
          Width           =   300
       End
       Begin VB.Label LblOK 
          BackStyle       =   0  'Transparent
          Caption         =   "开始检测"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   0
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   2040
          MouseIcon       =   "FrmDatabaseSet.frx":1F32
          MousePointer    =   99  'Custom
          TabIndex        =   1
          Top             =   3840
          Width           =   1095
       End
    End
    Attribute VB_Name = "FrmDatabaseSet"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Check1_Click()
    Dim i As Integer
    i = 0
    If Check1.Value = 1 Then  '如果钩上选择框
        Do Until i = 27
        List1.Selected(i) = True
        i = i + 1
        Loop
    Else                      '如果不钩选择框
        Do Until i = 27
        List1.Selected(i) = False
        i = i + 1
        Loop
    End If
    End Sub
    
    Private Sub Form_Load()
    '为List1装载条目
    List1.AddItem "Business"
    List1.AddItem "Businessman"
    List1.AddItem "Buyer"
    List1.AddItem "CheckIn"
    List1.AddItem "Child"
    List1.AddItem "CO"
    List1.AddItem "Customer"
    List1.AddItem "Deliver"
    List1.AddItem "Department"
    List1.AddItem "Employees"
    List1.AddItem "Evaluation"
    List1.AddItem "Experience"
    List1.AddItem "FamilyMember"
    List1.AddItem "Item"
    List1.AddItem "Parent"
    List1.AddItem "PO"
    List1.AddItem "POInfo"
    List1.AddItem "PurchaseItem"
    List1.AddItem "Salary"
    List1.AddItem "SalaryRules"
    List1.AddItem "SalesItem"
    List1.AddItem "Salesman"
    List1.AddItem "Store"
    List1.AddItem "StoreIn"
    List1.AddItem "StoreRoom"
    List1.AddItem "Takeout"
    List1.AddItem "Users"
    End Sub
    
    Private Sub LblCancel_Click()
    Unload Me
    End Sub
    
    Private Sub LblDelete_Click()
    '弹出确认，提示用户
    If MsgBox("是否清空所选表内信息?", vbYesNo, "确认") = vbYes Then
       
    '循环调用Delete函数初始化数据表信息
    Dim i As Integer
    i = 0
    With MyDatabaseSet
      Do Until i = 26
    If List1.Selected(i) = True Then
      .Delete (List1.List(i))
    End If
    i = i + 1
    Loop
    End With
    End If
    End Sub
    
    Private Sub LblOK_Click()
    '清除先前的检测结果
    List2.Clear
    
    '循环调用In_DB检查选中的数据表是否存在
    Dim i As Integer
    i = 0
    With MyDatabaseSet
    Do Until i = 27
    If List1.Selected(i) = True Then
       If .In_DB(List1.List(i)) = True Then    '如果存在
         List2.AddItem "表  " + List1.List(i) + "  配置正常"
       Else                                    '不存在
         List2.AddItem "表" + List1.List(i) + "不存在"
       End If
    End If
    i = i + 1
    Loop
    End With
    End Sub