数据清除.frm

引用枕善居的天宏钢构仓库管理系统 Ver 2.96

      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      HelpContextID   =   244
      Left            =   960
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3060
      Width           =   1215
   End
   Begin MSComDlg.CommonDialog dlgCommonDialog 
      Left            =   4980
      Top             =   3000
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DefaultExt      =   "*.bkp"
      Filter          =   "bkp file(*.bkp)|*.bkp|"
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderWidth     =   3
      X1              =   360
      X2              =   5280
      Y1              =   2760
      Y2              =   2760
   End
End
Attribute VB_Name = "数据清除"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/11
'描    述：天宏钢构仓库管理系统 Ver 2.96
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Option Explicit

Private Sub CancelButton_Click()
    Unload Me
End Sub

Private Sub OKButton_Click()

    If MsgBox("建议您备份数据库,您备分数据库吗?", vbYesNo Or vbQuestion) = vbYes Then
         
         On Error GoTo failure
         
         With dlgCommonDialog
              .DialogTitle = "数据库备份为.."
              .ShowSave
        
              If Len(.filename) = 0 Then Exit Sub
              
              If BackupData(DataPath, .filename) = 1 Then
                  MsgBox "备份成功!"
              Else
failure:
                  MsgBox "备份失败!"
              End If
        End With
    Else
        If MsgBox("您确信要清除吗?", vbYesNo Or vbQuestion) = vbNo Then Exit Sub
    End If
    
    On Error Resume Next

    If 所有单据.Value = 1 Then
       '删除入库单
                       adoCon.Execute ("Delete From 入库单")

        '删除出库单
                        adoCon.Execute ("Delete From 出库单")

         '删除借入单
                         adoCon.Execute ("Delete From 借入单")

        '删除借出单
                     adoCon.Execute ("delete from 借出单")
                
        '删除调拔单
                        adoCon.Execute ("Delete From 调拔单")

        '删除报损单
                        adoCon.Execute ("Delete From 报损单")

           End If
    
    If 库存状况.Value = 1 Then
        '删除库存状况
                        adoCon.Execute ("Delete From 库存状况")

        End If
    
    If 盘点单据.Value = 1 Then
         '删除盘点单
                         adoCon.Execute ("Delete From 盘点单")
    End If
    
    If 客户信息.Value = 1 Then
        '删除客户
                        adoCon.Execute ("Delete From 客户")
    End If
    
    If 供应商信息.Value = 1 Then
         '删除供应商
                         adoCon.Execute ("Delete From 供应商")

    End If
    
    If 货物信息.Value = 1 Then
         '删除货物信息
                         adoCon.Execute ("Delete From 货物信息")
    End If
    
    If 货物类别.Value = 1 Then
         '删除货物类别
                         adoCon.Execute ("Delete From 货物类别")

    End If
    
    If 仓库信息.Value = 1 Then
         '删除仓库
                         adoCon.Execute ("Delete From 仓库")
    End If
    
    If 职员信息.Value = 1 Then
         '删除职员信息
                         adoCon.Execute ("Delete From 职员信息")

    End If
    
    If 公司信息.Value = 1 Then
        '删除公司信息,不能删除，全部置空即可
                        adoCon.Execute ("Delete From 公司信息")

    End If
    
    If 系统日志.Value = 1 Then
       '删除系统日志
       adoCon.Execute ("Delete From 系统日志 ")
    End If
    
    If 用户管理.Value = 1 Then
         '删除用户管理
                adoCon.Execute ("Delete From 用户管理 ")

        '增加一个管理员admin
       adoCon.Execute ("insert into 用户管理(用户名,用户密码,用户权限) values('admin','','392')")

       
        
        '更改当前登陆用户信息
        UserName = "admin": UserPas = "": Purview = 392
        Dim i As Integer
        For i = 0 To 16
            权限类别(i) = 1
        Next
        
    End If
    
    Unload Me
    
    MsgBox "数据清除成功!"
     '写入系统日志
    fMainForm.WriteLog ("进行数据清除")
    
End Sub

Private Sub 仓库信息_Click()
    
    If 仓库信息.Value = 1 Then
        所有单据.Enabled = False
        盘点单据.Enabled = False
    Else
        所有单据.Enabled = True
        盘点单据.Enabled = False
    End If
    
    所有单据.Value = 1
    盘点单据.Value = 1
    
End Sub

Private Sub 供应商信息_Click()
    
    If 供应商信息.Value = 1 Then
        所有单据.Enabled = False
    Else
        所有单据.Enabled = True
    End If
    
    所有单据.Value = 1
            
End Sub

Private Sub 货物类别_Click()
    
    If 货物类别.Value = 1 Then
        所有单据.Enabled = False
        货物信息.Enabled = False
    Else
        所有单据.Enabled = True
        货物信息.Enabled = True
    End If
    
    所有单据.Value = 1
    货物信息.Value = 1
        
End Sub

Private Sub 货物信息_Click()
    
    If 货物信息.Value = 1 Then
        所有单据.Enabled = False
    Else
        所有单据.Enabled = True
    End If
    
    所有单据.Value = 1
    
End Sub

Private Sub 客户信息_Click()
    
    If 客户信息.Value = 1 Then
        所有单据.Enabled = False
    Else
        所有单据.Enabled = True
    End If
            
    所有单据.Value = 1
    
End Sub


Private Sub 用户管理_Click()
    
    If 用户管理.Value = 1 Then
        系统日志.Enabled = False
    Else
        系统日志.Enabled = True
    End If
            
    系统日志.Value = 1
    
End Sub

Private Sub 职员信息_Click()

    If 职员信息.Value = 1 Then
        所有单据.Enabled = False
        仓库信息.Enabled = False
        盘点单据.Enabled = False
    Else
        所有单据.Enabled = True
        仓库信息.Enabled = True
        盘点单据.Enabled = True
    End If
    
    所有单据.Value = 1
    仓库信息.Value = 1
    盘点单据.Value = 1
    
End Sub