frm_del_data.frm

VB物流管理系统毕业设计带源码源码+论文 vB+sql的毕业设计

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frm_del_Data 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据清理"
   ClientHeight    =   2730
   ClientLeft      =   4005
   ClientTop       =   3330
   ClientWidth     =   6000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2730
   ScaleWidth      =   6000
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   270
      Left            =   90
      TabIndex        =   8
      Top             =   1965
      Width           =   5800
      _ExtentX        =   10239
      _ExtentY        =   476
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.CommandButton Cmd_All 
      Caption         =   "全部选中"
      Height          =   375
      Left            =   2145
      TabIndex        =   3
      Top             =   2295
      Width           =   1245
   End
   Begin VB.Frame Frame1 
      Caption         =   "请选择所要初始化的数据表"
      Height          =   1845
      Left            =   90
      TabIndex        =   2
      Top             =   75
      Width           =   5805
      Begin VB.CheckBox Check8 
         Caption         =   "客户信息数据表"
         Height          =   300
         Left            =   2280
         TabIndex        =   12
         Top             =   1425
         Width           =   2145
      End
      Begin VB.CheckBox Check7 
         Caption         =   "客户验收信息数据表"
         Height          =   345
         Left            =   240
         TabIndex        =   11
         Top             =   1410
         Width           =   2055
      End
      Begin VB.CheckBox Check6 
         Caption         =   "车辆信息数据表"
         Height          =   330
         Left            =   4095
         TabIndex        =   10
         Top             =   900
         Width           =   1635
      End
      Begin VB.CheckBox Check5 
         Caption         =   "司机信息数据表"
         Height          =   330
         Left            =   2280
         TabIndex        =   9
         Top             =   915
         Width           =   1710
      End
      Begin VB.CheckBox Check4 
         Caption         =   "在途跟踪信息表"
         Height          =   495
         Left            =   240
         TabIndex        =   7
         Top             =   840
         Width           =   1890
      End
      Begin VB.CheckBox Check3 
         Caption         =   "车辆调度信息表"
         Height          =   375
         Left            =   4095
         TabIndex        =   6
         Top             =   360
         Width           =   1600
      End
      Begin VB.CheckBox Check2 
         Caption         =   "货物托运单信息表"
         Height          =   375
         Left            =   2280
         TabIndex        =   5
         Top             =   360
         Width           =   1815
      End
      Begin VB.CheckBox Check1 
         Caption         =   "货物申请单信息表"
         Height          =   375
         Left            =   240
         TabIndex        =   4
         Top             =   360
         Width           =   1815
      End
   End
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "取消初始化"
      Height          =   375
      Left            =   4680
      TabIndex        =   1
      Top             =   2295
      Width           =   1230
   End
   Begin VB.CommandButton Cmd_Ok 
      Caption         =   "确认初始化"
      Height          =   375
      Left            =   3405
      TabIndex        =   0
      Top             =   2295
      Width           =   1255
   End
End
Attribute VB_Name = "frm_del_Data"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Cmd_Cancel_Click()
  Unload Me
End Sub

'“系统初始化”按钮的事件过程
Private Sub Cmd_Ok_Click()
Cmd_Ok.Enabled = False               '在进行初始化的过程中，使“系统初始化”按钮不可用
Dim rs1 As ADODB.Recordset             '定义一个记录集对象rs1
Set rs1 = New ADODB.Recordset
Dim cnn1 As ADODB.Connection           '定义一个连接对象cnn1
Set cnn1 = New ADODB.Connection

'与数据库取得连接
cnn1.Open PublicStr
Dim connter As Integer
Dim sql, workarea(200) As String    '定义一个数组，用来实现在初始化数据时控制进度条快慢的功能
ProgressBar1.Visible = True

'UBound函数和LBound函数分别用于指定数组的最大下标和最小下标，关于该函数的具体用法请参阅明日公司《Visual Basic编程词典》中的函数应用部分 网址 www.cccxy.com
ProgressBar1.Max = UBound(workarea)
ProgressBar1.Value = ProgressBar1.Min
For connter = LBound(workarea) To UBound(workarea)
workarea(connter) = "initial value" & connter
ProgressBar1.Value = connter
If Check1.Value = 1 Then
   sql = "delete tb_Goods_sqd from tb_Goods_sqd"
   Set rs1 = cnn1.Execute(sql)
End If
If Check2.Value = 1 Then
   sql = "delete tb_Goods_tyd from tb_Goods_tyd"
   Set rs1 = cnn1.Execute(sql)
End If
If Check3.Value = 1 Then
   sql = "delete tb_Goods_cldd from tb_Goods_cldd"
   Set rs1 = cnn1.Execute(sql)
End If
If Check4.Value = 1 Then
   sql = "delete tb_Goods_ztgz from tb_Goods_ztgz"
   Set rs1 = cnn1.Execute(sql)
End If
If Check5.Value = 1 Then
   sql = "delete tb_Goods_sjxx from tb_Goods_sjxx"
   Set rs1 = cnn1.Execute(sql)
End If
If Check6.Value = 1 Then
   sql = "delete tb_Goods_clxx from tb_Goods_clxx"
   Set rs1 = cnn1.Execute(sql)
End If
If Check7.Value = 1 Then
   sql = "delete tb_Goods_khys from tb_Goods_khys"
   Set rs1 = cnn1.Execute(sql)
End If
If Check8.Value = 1 Then
   sql = "delete tb_khxx from tb_khxx"
   Set rs1 = cnn1.Execute(sql)
End If

Next connter
ProgressBar1.Value = ProgressBar1.Min
cnn1.Close                                   '关闭数据连接
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Check8.Value = 0
MsgBox "初始化成功完成!!", 48, "初始化信息提示"
Cmd_Ok.Enabled = True                      '使“系统初始化”按钮变为可用
End Sub

Private Sub Command2_Click()
  Unload Me
End Sub
Private Sub Cmd_All_Click()
    '若想使操作员具有所有的权限，应该使所有复选框中的值都为“真”
    Check1.Value = 1
    Check2.Value = 1
    Check3.Value = 1
    Check4.Value = 1
    Check5.Value = 1
    Check6.Value = 1
    Check7.Value = 1
    Check8.Value = 1
End Sub
Private Sub Form_Load()
   Me.Left = (Screen.Width - Me.Width) / 2
   Me.Top = (Screen.Height - Me.Height) / 2
End Sub