frmset.frm

库存管理系统

Combo3.AddItem "打"
Combo3.AddItem "双"
Combo3.AddItem "对"
Combo3.AddItem "米"
Combo3.AddItem "厘米"
Combo3.AddItem "斤"
Combo3.AddItem "公斤"
Combo3.AddItem "克"
Combo3.AddItem "吨"
Data1.DatabaseName = App.Path & "\库存管理.mdb"
Data1.Connect = ";pwd=lee1012"
Data1.RecordSource = "员工表"
Data1.Refresh
Data1.Visible = False
Data2.DatabaseName = App.Path & "\库存管理.mdb"
Data2.Connect = ";pwd=lee1012"
Data2.RecordSource = "供应商表"
Data2.Refresh
Data2.Visible = False
Data3.DatabaseName = App.Path & "\库存管理.mdb"
Data3.Connect = ";pwd=lee1012"
Data3.RecordSource = "客户表"
Data3.Refresh
Data3.Visible = False
Data5.DatabaseName = App.Path & "\库存管理.mdb"
Data5.Connect = ";pwd=lee1012"
Data5.RecordSource = "库存材料表"
Data5.Refresh
Data5.Visible = False
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
End Sub

Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub Label15_Click()
Text3.Visible = True
Text13.Visible = False
End Sub

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleClose_Click()
    Unload Me
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveFirst
End If

Case 2 ''后退
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Data1.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
 Text3.Visible = True
 Text13.Visible = False
 Data1.Recordset.AddNew
 'Data1.Recordset("建户时间") = Date
add_error:
   If Err.Number = 3426 Then
    MsgBox "已经使用过添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar1.Buttons(1).Visible = False
Toolbar1.Buttons(2).Visible = False
Toolbar1.Buttons(4).Visible = False
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
Data1.Recordset.FindFirst "姓名 ='" & Text1.Text & "'"
If Text1.Text = Data1.Recordset("姓名") Then
    MsgBox "已有此“姓名”,确认后请将其删除！", 0, "提示"
    GoTo repeat3:
    Exit Sub
End If
  Data1.UpdateRecord
  Data1.Recordset.Bookmark = Data1.Recordset.LastModified
update_error:
   If Err.Number = 3020 Then
    MsgBox "请先添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
Text3.Visible = False
Text13.Visible = True
Case 6 ''取消
repeat3:
On Error GoTo CanceErr
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
 MsgBox "没有记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Exit Sub
Case 7 ''删除
On Error GoTo del_error
   a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
    Data1.Recordset.Delete
  Data1.Recordset.MoveLast
   End If
If a = 2 Then Exit Sub
del_error:
   If Err.Number = 3426 Then
   MsgBox "已经全部删除！   错误：" & Err & "，" & Err.Description, 0, "提示"
  Unload Me
  End If
End Select
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF = True Then
Data2.Recordset.MoveFirst
End If

Case 2 ''后退
Data2.Recordset.MoveNext
If Data2.Recordset.EOF = True Then
Data2.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
 Data2.Recordset.AddNew
add_error:
   If Err.Number = 3426 Then
    MsgBox "已经使用过添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar2.Buttons(1).Visible = False
Toolbar2.Buttons(2).Visible = False
Toolbar2.Buttons(4).Visible = False
Toolbar2.Buttons(5).Visible = True
Toolbar2.Buttons(6).Visible = True
Toolbar2.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
Data2.Recordset.FindFirst "名称 ='" & Text4.Text & "'"
If Text4.Text = Data2.Recordset("名称") Then
    MsgBox "已有此“厂家名”,确认后请将其删除！", 0, "提示"
    GoTo repeat2:
End If
  Data2.UpdateRecord
  Data2.Recordset.Bookmark = Data2.Recordset.LastModified
update_error:
   If Err.Number = 3020 Then
    MsgBox "请先添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar2.Buttons(1).Visible = True
Toolbar2.Buttons(2).Visible = True
Toolbar2.Buttons(4).Visible = True
Toolbar2.Buttons(5).Visible = True
Toolbar2.Buttons(6).Visible = True
Toolbar2.Buttons(7).Visible = True
Case 6 ''取消
repeat2:
On Error GoTo CanceErr
Data2.Recordset.Edit
Data2.Recordset.CancelUpdate
Toolbar2.Buttons(1).Visible = True
Toolbar2.Buttons(2).Visible = True
Toolbar2.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar2.Buttons(6).Visible = True
Toolbar2.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
 MsgBox "没有记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
   a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
    Data2.Recordset.Delete
  Data2.Recordset.MoveLast
   End If
If a = 2 Then Exit Sub
del_error:
   If Err.Number = 3426 Then
   MsgBox "已经全部删除！   错误：" & Err & "，" & Err.Description, 0, "提示"
  Unload Me
  End If
End Select
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data3.Recordset.MovePrevious
If Data3.Recordset.BOF = True Then
Data3.Recordset.MoveFirst
End If

Case 2 ''后退
Data3.Recordset.MoveNext
If Data3.Recordset.EOF = True Then
Data3.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
 Data3.Recordset.AddNew
 'Data1.Recordset("建户时间") = Date
add_error:
   If Err.Number = 3426 Then
    MsgBox "已经使用过添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar3.Buttons(1).Visible = False
Toolbar3.Buttons(2).Visible = False
Toolbar3.Buttons(4).Visible = False
Toolbar3.Buttons(5).Visible = True
Toolbar3.Buttons(6).Visible = True
Toolbar3.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
Data3.Recordset.FindFirst "名称 ='" & Text9.Text & "'"
If Text9.Text = Data3.Recordset("名称") Then
    MsgBox "已有此“名称”,确认后请将其删除！", 0, "提示"
    GoTo repeat1:
End If
  Data3.UpdateRecord
  Data3.Recordset.Bookmark = Data3.Recordset.LastModified
update_error:
   If Err.Number = 3020 Then
    MsgBox "请先添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar3.Buttons(1).Visible = True
Toolbar3.Buttons(2).Visible = True
Toolbar3.Buttons(4).Visible = True
Toolbar3.Buttons(5).Visible = True
Toolbar3.Buttons(6).Visible = True
Toolbar3.Buttons(7).Visible = True
Case 6 ''取消
repeat1:
On Error GoTo CanceErr
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Toolbar3.Buttons(1).Visible = True
Toolbar3.Buttons(2).Visible = True
Toolbar3.Buttons(4).Visible = True
Toolbar3.Buttons(5).Visible = True
Toolbar3.Buttons(6).Visible = True
Toolbar3.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
 MsgBox "没有记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
   a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
    Data3.Recordset.Delete
  Data3.Recordset.MoveLast
   End If
If a = 2 Then Exit Sub
del_error:
   If Err.Number = 3426 Then
   MsgBox "已经全部删除！   错误：" & Err & "，" & Err.Description, 0, "提示"
  Unload Me
  End If
End Select
End Sub

Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data5.Recordset.MovePrevious
If Data5.Recordset.BOF = True Then
Data5.Recordset.MoveFirst
End If

Case 2 ''后退
Data5.Recordset.MoveNext
If Data5.Recordset.EOF = True Then
Data5.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
 Data5.Recordset.AddNew
 'Data1.Recordset("建户时间") = Date
add_error:
   If Err.Number = 3426 Then
    MsgBox "已经使用过添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar5.Buttons(1).Visible = False
Toolbar5.Buttons(2).Visible = False
Toolbar5.Buttons(4).Visible = False
Toolbar5.Buttons(5).Visible = True
Toolbar5.Buttons(6).Visible = True
Toolbar5.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
Data5.Recordset.FindFirst "名称 ='" & Text18.Text & "'"
If Text18.Text = Data5.Recordset("名称") Then
    MsgBox "已有此“产品名称”,确认后请将其删除！", 0, "提示"
    GoTo repeat:
End If
  Data5.Recordset("分类") = "成品"
  Data5.UpdateRecord
  Data5.Recordset.Bookmark = Data1.Recordset.LastModified
update_error:
   If Err.Number = 3020 Then
    MsgBox "请先添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Toolbar5.Buttons(1).Visible = True
Toolbar5.Buttons(2).Visible = True
Toolbar5.Buttons(4).Visible = True
Toolbar5.Button