main_xtgl_sjcsh.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:3k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form main_xtgl_sjcsh 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   3795
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    Icon            =   "main_xtgl_sjcsh.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3795
  14.    ScaleWidth      =   4680
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin MSComctlLib.ProgressBar ProgressBar1 
  18.       Height          =   255
  19.       Left            =   75
  20.       TabIndex        =   4
  21.       Top             =   2940
  22.       Visible         =   0   'False
  23.       Width           =   4545
  24.       _ExtentX        =   8017
  25.       _ExtentY        =   450
  26.       _Version        =   393216
  27.       Appearance      =   1
  28.    End
  29.    Begin VB.CommandButton cmdDel 
  30.       Caption         =   "初始化"
  31.       Height          =   360
  32.       Left            =   2940
  33.       TabIndex        =   3
  34.       Top             =   3315
  35.       Width           =   1230
  36.    End
  37.    Begin VB.CommandButton cmdNotAllSel 
  38.       Caption         =   "全不选"
  39.       Height          =   360
  40.       Left            =   1665
  41.       TabIndex        =   2
  42.       Top             =   3315
  43.       Width           =   1230
  44.    End
  45.    Begin VB.CommandButton cmdAllSel 
  46.       Caption         =   "全选"
  47.       Height          =   360
  48.       Left            =   390
  49.       TabIndex        =   1
  50.       Top             =   3315
  51.       Width           =   1230
  52.    End
  53.    Begin VB.ListBox List1 
  54.       Height          =   2790
  55.       ItemData        =   "main_xtgl_sjcsh.frx":000C
  56.       Left            =   75
  57.       List            =   "main_xtgl_sjcsh.frx":000E
  58.       Style           =   1  'Checkbox
  59.       TabIndex        =   0
  60.       Top             =   60
  61.       Width           =   4545
  62.    End
  63. End
  64. Attribute VB_Name = "main_xtgl_sjcsh"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Dim i As Integer
  70. Private Sub Form_Load()
  71.   Me.Caption = text
  72.   Dim rstSchema As ADODB.Recordset
  73.   Set rstSchema = Cnn.OpenSchema(adSchemaTables)
  74.   Do Until rstSchema.EOF
  75.      If Left(rstSchema!TABLE_NAME, 3) <> "sys" And Left(rstSchema!TABLE_NAME, 3) <> "dtp" Then
  76.         List1.AddItem rstSchema!TABLE_NAME
  77.      End If
  78.      rstSchema.MoveNext
  79.   Loop
  80.   rstSchema.Close
  81. End Sub
  82. Private Sub cmdAllSel_Click()     '全选
  83.   For i = 0 To List1.ListCount - 1
  84.     List1.Selected(i) = True
  85.   Next i
  86. End Sub
  87. Private Sub cmdNotAllSel_Click()     '全不选
  88.   For i = 0 To List1.ListCount - 1
  89.      List1.Selected(i) = False
  90.   Next i
  91. End Sub
  92. Private Sub cmdDel_Click()    '清除所选表中数据
  93.  Dim Counter As Integer     '定义一个整型变量
  94.  Dim Workarea(250) As String     '定义字符串变量
  95.  ProgressBar1.Visible = True
  96.  ProgressBar1.Max = UBound(Workarea)
  97.  ProgressBar1.Min = LBound(Workarea)
  98.  '设置进度的值为 Min
  99.  ProgressBar1.Value = ProgressBar1.Min
  100.  '在整个数组中循环
  101.  For Counter = LBound(Workarea) To UBound(Workarea)
  102.     '设置数组中每项的初始值
  103.     Workarea(Counter) = Counter
  104.     ProgressBar1.Value = Counter
  105.     For i = 0 To List1.ListCount - 1
  106.       If List1.Selected(i) = True Then
  107.         Cnn.Execute ("delete from " & List1.List(i))
  108.       End If
  109.     Next i
  110.  Next Counter
  111.  ProgressBar1.Visible = False
  112.  ProgressBar1.Value = ProgressBar1.Min
  113. End Sub