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

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
       '刪除入庫單
        fMainForm.m_checkado.RecordSource = "select * from 入庫單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
        
        '刪除出庫單
        fMainForm.m_checkado.RecordSource = "select * from 出庫單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
        
        '刪除借入單
        fMainForm.m_checkado.RecordSource = "select * from 借入單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
        
        '刪除借出單
        fMainForm.m_checkado.RecordSource = "select * from 借出單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
        
        '刪除調拔單
        fMainForm.m_checkado.RecordSource = "select * from 調拔單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
        
        '刪除報損單
        fMainForm.m_checkado.RecordSource = "select * from 報損單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 庫存狀況.Value = 1 Then
        '刪除庫存狀況
        fMainForm.m_checkado.RecordSource = "select * from 庫存狀況"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 盤點單據.Value = 1 Then
         '刪除盤點單
        fMainForm.m_checkado.RecordSource = "select * from 盤點單"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 客戶信息.Value = 1 Then
        '刪除客戶
        fMainForm.m_checkado.RecordSource = "select * from 客戶"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 供應商信息.Value = 1 Then
         '刪除供應商
        fMainForm.m_checkado.RecordSource = "select * from 供應商"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 貨物信息.Value = 1 Then
         '刪除貨物信息
        fMainForm.m_checkado.RecordSource = "select * from 貨物信息"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 貨物類別.Value = 1 Then
         '刪除貨物類別
        fMainForm.m_checkado.RecordSource = "select * from 貨物類別"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 倉庫信息.Value = 1 Then
         '刪除倉庫
        fMainForm.m_checkado.RecordSource = "select * from 倉庫"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 職員信息.Value = 1 Then
         '刪除職員信息
        fMainForm.m_checkado.RecordSource = "select * from 職員信息"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 公司信息.Value = 1 Then
        '刪除公司信息,不能刪除，全部置空即可
        fMainForm.m_checkado.RecordSource = "select * from 公司信息"
        fMainForm.m_checkado.Refresh
        fMainForm.m_checkado.Recordset.Fields("公司名稱").Value = ""
        fMainForm.m_checkado.Recordset.Fields("地址").Value = ""
        fMainForm.m_checkado.Recordset.Fields("城市").Value = ""
        fMainForm.m_checkado.Recordset.Fields("省份").Value = ""
        fMainForm.m_checkado.Recordset.Fields("國家").Value = ""
        fMainForm.m_checkado.Recordset.Fields("郵政編碼").Value = ""
        fMainForm.m_checkado.Recordset.Fields("電話號碼").Value = ""
        fMainForm.m_checkado.Recordset.Fields("電子郵件").Value = ""
        fMainForm.m_checkado.Recordset.Fields("傳真號碼").Value = ""
        fMainForm.m_checkado.Recordset.Fields("開戶銀行").Value = ""
        fMainForm.m_checkado.Recordset.Fields("銀行帳號").Value = ""
        fMainForm.m_checkado.Recordset.Fields("業務描述").Value = ""
        
        fMainForm.m_checkado.Recordset.update
        fMainForm.m_checkado.Refresh
    End If
    
    If 系統日志.Value = 1 Then
       '刪除系統日志
        fMainForm.m_checkado.RecordSource = "select * from 系統日志"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    End If
    
    If 用戶管理.Value = 1 Then
         '刪除用戶管理
        fMainForm.m_checkado.RecordSource = "select * from 用戶管理"
        fMainForm.m_checkado.Refresh
        DeleteRecordData fMainForm.m_checkado.Recordset
    
        '增加一個管理員admin
        fMainForm.m_checkado.RecordSource = "select * from 用戶管理"
        
        fMainForm.m_checkado.Recordset.AddNew
        fMainForm.m_checkado.Recordset.Fields("用戶名") = "admin"
        fMainForm.m_checkado.Recordset.Fields("用戶密碼") = ""
        fMainForm.m_checkado.Recordset.Fields("用戶權限") = 131071
        
        fMainForm.m_checkado.Recordset.update
        fMainForm.m_checkado.Refresh
        
        '更改當前登陸用戶信息
        UserName = "admin": UserPas = "": Purview = 131071
        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


'此源碼由程序太平洋收集整理發布,任何人都可自由轉載,但需保留本站信息
'╭⌒╮┅~ ¤　歡迎光臨程序太平洋╭⌒╮
'╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
',︶︶︶︶,''︶~~ ,''~︶︶　 ,''
'╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
'╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
'╬　　　　　　　http://www.5ivb.net ╬
'╬　 ╭○╮●　                   　╬
'╬　　/■\/■\　　                  ╬
'╬　　 <|　||　   有希望,就有成功！ ╬
'╬　　　　　　　　　　　　　　　　　╬
'╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
'
'說明：
'專業提供VB、．NET、Delphi、ASP、PB源碼下載
'包括:程序源碼,控件,商業源碼,系統方案，開發工具，書籍教程，技術文檔