frmformatdata.frm

VB库存管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmFormatData 
   Caption         =   "数据初始化"
   ClientHeight    =   2460
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7695
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2460
   ScaleWidth      =   7695
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   6120
      TabIndex        =   10
      Top             =   2040
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "数据初始化"
      Height          =   375
      Left            =   4440
      TabIndex        =   9
      Top             =   2040
      Width           =   1455
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   375
      Left            =   120
      TabIndex        =   8
      Top             =   2040
      Visible         =   0   'False
      Width           =   4215
      _ExtentX        =   7435
      _ExtentY        =   661
      _Version        =   393216
      Appearance      =   1
      Max             =   10
      Scrolling       =   1
   End
   Begin VB.CheckBox Check6 
      Caption         =   "货位编号"
      Height          =   495
      Left            =   5040
      TabIndex        =   7
      Top             =   1200
      Width           =   2055
   End
   Begin VB.CheckBox Check5 
      Caption         =   "库存总表"
      Height          =   495
      Left            =   2760
      TabIndex        =   6
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CheckBox Check4 
      Caption         =   "出库单信息"
      Height          =   495
      Left            =   480
      TabIndex        =   5
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CheckBox Check3 
      Caption         =   "入库单信息"
      Height          =   495
      Left            =   5040
      TabIndex        =   4
      Top             =   600
      Width           =   1215
   End
   Begin VB.CheckBox Check2 
      Caption         =   "物品明细信息"
      Height          =   495
      Left            =   2760
      TabIndex        =   3
      Top             =   600
      Width           =   1455
   End
   Begin VB.CheckBox Check1 
      Caption         =   "物品类型信息"
      Height          =   495
      Left            =   480
      TabIndex        =   2
      Top             =   600
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Caption         =   "各种表单"
      Height          =   1575
      Left            =   120
      TabIndex        =   1
      Top             =   360
      Width           =   7455
   End
   Begin VB.Label Label1 
      Caption         =   "警告:数据初始化将清选定表的数据!"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1440
      TabIndex        =   0
      Top             =   120
      Width           =   4095
   End
End
Attribute VB_Name = "frmFormatData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'初始化数据库的各个表中的数据
'实现方法:把表格中的数据删除

Private Sub Command1_Click()
 Dim SQL As String
 Dim rs As ADODB.Recordset
 Dim Counter As Integer
Dim workarea(10) As String
Dim myval As String
'判断是否选中?
If Check1.Value = 0 And Check2.Value = 0 And _
   Check3.Value = 0 And Check4.Value = 0 And _
   Check5.Value = 0 And Check6.Value = 0 Then
   MsgBox "至少要选择一个表才能进行初始化", vbInformation + vbOKOnly, "提示"
   Exit Sub
End If
myval = MsgBox("是否要进行数据初始化" & vbCrLf & "初始化后将数据全部清空" & vbCrLf _
               & "强烈建议:初始前要备份数据库!", vbYesNo, "警告!")
If myval = vbYes Then
'    定义进度条
    ProgressBar1.Visible = True
    ProgressBar1.Max = UBound(workarea)
    ProgressBar1.Value = ProgressBar1.Min
    For Counter = LBound(workarea) To UBound(workarea)
        workarea(Counter) = "initial value" & Counter
        ProgressBar1.Value = Counter
        
        '删除入库单信息
        If Check3.Value = 1 Then
            SQL = "delete * from [入库单信息]"
          Set rs = TransactSQL(SQL)
'          MsgBox "已经删除入库单信息"
          Set rs = Nothing
          Set Con = Nothing
'          rs.Close
        End If
        
        '删除出库单信息
        If Check4.Value = 1 Then
'            If rs.State Then rs.Close
            SQL = "delete * from [出库单信息]"
            Set rs = TransactSQL(SQL)
'            MsgBox "已经删除出库单信息"
            Set rs = Nothing
            Set Con = Nothing
        End If
        
'        删除库存总表
        If Check5.Value = 1 Then
            SQL = "delete * from [库存总表]"
            Set rs = TransactSQL(SQL)
            Set Con = Nothing
'            MsgBox "已经删除库存总表"
        End If
        
'        删除物品明细
        If Check2.Value = 1 Then
            SQL = "delete * from [物品明细]"
            Set rs = TransactSQL(SQL)
            Set rs = Nothing
            Set Con = Nothing
'            MsgBox "已经删除物品明细"
        End If
        
        
'        删除物品类型信息
        If Check1.Value = 1 Then
            SQL = "delete * from [物品类型信息]"
            Set rs = TransactSQL(SQL)
            Set rs = Nothing
            Set Con = Nothing
'            MsgBox "已经删除物品类型信息"
        End If
        
'        删除货位表
        If Check6.Value = 1 Then
            SQL = "delete * from [货位表]"
            Set rs = TransactSQL(SQL)
            Set rs = Nothing
            Set Con = Nothing
'            MsgBox "已经删除货位表"
        End If
        



            
    Next Counter
        MsgBox "数据初始化成功!" & vbCrLf & "选定表的数据已经全部清空!"
        ProgressBar1.Visible = False
        ProgressBar1.Value = ProgressBar1.Min
End If

End Sub

Private Sub Command2_Click()
Unload Me

End Sub