frmdatabaseset.frm

一个ERP系统可以用来学习之用

VERSION 5.00
Begin VB.Form frmDatabaseset 
   Caption         =   "数据库配置检查"
   ClientHeight    =   5505
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7785
   LinkTopic       =   "Form1"
   ScaleHeight     =   5505
   ScaleWidth      =   7785
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCancel 
      Caption         =   "返回"
      Height          =   375
      Left            =   5160
      TabIndex        =   8
      Top             =   5040
      Width           =   1575
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "初始化所选数据表"
      Height          =   375
      Left            =   3120
      TabIndex        =   7
      Top             =   5040
      Width           =   1575
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "开始检测"
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   5040
      Width           =   1575
   End
   Begin VB.ListBox List2 
      Height          =   3660
      Left            =   4080
      TabIndex        =   5
      Top             =   1320
      Width           =   3495
   End
   Begin VB.ListBox List1 
      Height          =   3630
      Left            =   120
      Style           =   1  'Checkbox
      TabIndex        =   4
      Top             =   1320
      Width           =   3375
   End
   Begin VB.CheckBox Check1 
      BackColor       =   &H00FF8080&
      Caption         =   "全选"
      Height          =   375
      Left            =   3240
      Picture         =   "frmDatabaseset.frx":0000
      TabIndex        =   3
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "检查结果:"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4560
      TabIndex        =   2
      Top             =   840
      Width           =   2295
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请选数据表:"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   840
      Width           =   1935
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "数据表配置检查窗体"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   240
      Width           =   3375
   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 = 41
           List1.Selected(i) = True
           i = i + 1
        Loop
     Else
        Do Until i = 41
            List1.Selected(i) = False
            i = i + 1
        Loop
     End If
      
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdDelete_Click()
    If MsgBox("是否清空所选表的内容", vbYesNo, "确认") = vbYes Then
        Dim i As Integer
        i = 0
        With mydatabaseset
            Do Until i = 40
                If List1.Selected(i) = True Then
                    .delete (List1.List(i))
                End If
                i = i + 1
            Loop
         End With
         
     End If
End Sub

Private Sub cmdOK_Click()
    List2.Clear
    Dim i As Integer
    i = 0
    With mydatabaseset
    Do Until i = 41
        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

Private Sub Form_Load()
    frmDatabaseset.BackColor = RGB(77, 116, 244)
    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 "LeiBie"
    List1.AddItem "操作日志"
    List1.AddItem "gyshang"
    List1.AddItem "回仓单"
    List1.AddItem "领料单"
    List1.AddItem "领料单查询"
    List1.AddItem "领料单明细"
    List1.AddItem "领料单明细查询"
    List1.AddItem "领料人员"
    List1.AddItem "入仓单明细"
    List1.AddItem "退货表"
    List1.AddItem "物料库存"
    List1.AddItem "WuliaoMulu"
    List1.AddItem "物料申购"
    List1.AddItem "物料申购明细表"
    List1.AddItem "users"
     
End Sub