frmcleardata.frm

注释：用VB开发的进销存系统源码

VERSION 5.00
Begin VB.Form frmClearData 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据清空"
   ClientHeight    =   4695
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6345
   Icon            =   "frmClearData.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   6345
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消[&C]"
      Height          =   510
      Left            =   3405
      TabIndex        =   10
      Top             =   3885
      Width           =   1380
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定[&O]"
      Height          =   510
      Left            =   1275
      TabIndex        =   9
      Top             =   3900
      Width           =   1380
   End
   Begin VB.Frame Frame1 
      Caption         =   "清空数据表设置"
      Height          =   3390
      Left            =   210
      TabIndex        =   0
      Top             =   255
      Width           =   5865
      Begin VB.CheckBox chkGoodsInfo 
         Caption         =   "商品信息"
         Height          =   240
         Left            =   3165
         TabIndex        =   14
         Top             =   2700
         Width           =   1440
      End
      Begin VB.CheckBox chkChainSale 
         Caption         =   "分店销售信息"
         Height          =   240
         Left            =   735
         TabIndex        =   13
         Top             =   2745
         Width           =   1440
      End
      Begin VB.CheckBox chkPs 
         Caption         =   "配送单"
         Height          =   345
         Left            =   3210
         TabIndex        =   12
         Top             =   2205
         Width           =   1425
      End
      Begin VB.CheckBox chkConv 
         Caption         =   "调拨单"
         Height          =   345
         Left            =   720
         TabIndex        =   11
         Top             =   2235
         Width           =   1425
      End
      Begin VB.CheckBox chkChainCode 
         Caption         =   "连锁店编码"
         Height          =   300
         Left            =   3195
         TabIndex        =   8
         Top             =   1845
         Width           =   1485
      End
      Begin VB.CheckBox chkClient 
         Caption         =   "客户档案"
         Height          =   345
         Left            =   720
         TabIndex        =   7
         Top             =   1830
         Width           =   1425
      End
      Begin VB.CheckBox chkPrdcode 
         Caption         =   "生产厂编码"
         Height          =   405
         Left            =   3195
         TabIndex        =   6
         Top             =   1380
         Width           =   1425
      End
      Begin VB.CheckBox chkChainStore 
         Caption         =   "连锁店库存"
         Height          =   450
         Left            =   720
         TabIndex        =   5
         Top             =   1380
         Width           =   1245
      End
      Begin VB.CheckBox chkMainStore 
         Caption         =   "经营公司库存"
         Height          =   300
         Left            =   3195
         TabIndex        =   4
         Top             =   1020
         Width           =   1635
      End
      Begin VB.CheckBox chkGCode 
         Caption         =   "商品编码"
         Height          =   420
         Left            =   720
         TabIndex        =   3
         Top             =   945
         Width           =   1425
      End
      Begin VB.CheckBox chkSell 
         Caption         =   "销售单"
         Height          =   285
         Left            =   3195
         TabIndex        =   2
         Top             =   570
         Width           =   1845
      End
      Begin VB.CheckBox chkStock 
         Caption         =   "进退货单"
         Height          =   360
         Left            =   720
         TabIndex        =   1
         Top             =   540
         Width           =   1635
      End
   End
End
Attribute VB_Name = "frmClearData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    On Error GoTo ClearErr
    If MsgBox("删除数据后将不可恢复！！！继续吗？---第一次确认", vbInformation + vbOKCancel, "警告窗口") = vbCancel Then Exit Sub
    If MsgBox("删除数据后将不可恢复！！！继续吗？---第二次确认", vbInformation + vbOKCancel, "警告窗口") = vbCancel Then Exit Sub
    If MsgBox("删除数据后将不可恢复！！！继续吗？---第三次确认", vbInformation + vbOKCancel, "警告窗口") = vbCancel Then Exit Sub
    Cmd.ActiveConnection = Conn
    If chkStock.Value Then
        sSQL = "DELETE LSJHD"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkSell.Value Then
        sSQL = "DELETE LSXSD"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkGCode.Value Then
        sSQL = "DELETE 审价单"
        Cmd.CommandText = sSQL
        Cmd.Execute
        sSQL = "DELETE 商品主档"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkMainStore.Value Then
        sSQL = "DELETE 配送中心库存"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkChainStore.Value Then
        sSQL = "DELETE 分店库存"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkPrdcode.Value Then
        sSQL = "DELETE 厂商主档"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkChainCode.Value Then
        sSQL = "DELETE 分店主档"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkClient.Value Then
        sSQL = "DELETE CLIENT"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If

    If chkConv.Value Then
        sSQL = "DELETE 经销调拨单"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkChainSale.Value Then
        sSQL = "DELETE 分店销售信息"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    If chkPs.Value Then
        sSQL = "DELETE PSD"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If
    
    If chkGoodsInfo.Value Then
        sSQL = "DELETE 商品信息"
        Cmd.CommandText = sSQL
        Cmd.Execute
    End If


    MsgBox "成功清空数据！！！", vbInformation, "提示窗口"
    Unload Me
    Exit Sub
ClearErr:
    MsgBox "清空数据失败！！！", vbInformation, "提示窗口"
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub