frmdatabaseset.frm

这是一个利用VB编写的中小企业ERP。功能比较全

VERSION 5.00
Begin VB.Form FrmDatabaseSet 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数据库配置检查"
   ClientHeight    =   9465
   ClientLeft      =   45
   ClientTop       =   495
   ClientWidth     =   15270
   Icon            =   "FrmDatabaseSet.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   9465
   ScaleWidth      =   15270
   Begin VB.ListBox List2 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000F&
      Height          =   5070
      Left            =   7920
      TabIndex        =   6
      Top             =   1560
      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            =   6240
      TabIndex        =   5
      Top             =   960
      Width           =   855
   End
   Begin VB.ListBox List1 
      Appearance      =   0  'Flat
      Height          =   4860
      Left            =   3120
      Style           =   1  'Checkbox
      TabIndex        =   3
      Top             =   1560
      Width           =   3855
   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            =   4320
      MouseIcon       =   "FrmDatabaseSet.frx":0CCA
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   8160
      Width           =   2175
   End
   Begin VB.Image Image1 
      Height          =   300
      Left            =   3720
      Picture         =   "FrmDatabaseSet.frx":0FD4
      Top             =   8160
      Width           =   300
   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            =   7920
      TabIndex        =   7
      Top             =   960
      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            =   3120
      TabIndex        =   4
      Top             =   960
      Width           =   2775
   End
   Begin VB.Image Image4 
      Height          =   300
      Left            =   9600
      Picture         =   "FrmDatabaseSet.frx":13F0
      Top             =   8040
      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            =   10200
      MouseIcon       =   "FrmDatabaseSet.frx":180C
      MousePointer    =   99  'Custom
      TabIndex        =   2
      Top             =   8040
      Width           =   855
   End
   Begin VB.Image Image3 
      Height          =   300
      Left            =   4320
      Picture         =   "FrmDatabaseSet.frx":1B16
      Top             =   6840
      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            =   4920
      MouseIcon       =   "FrmDatabaseSet.frx":1F32
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   6840
      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.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
        
        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
    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