frmmain.frm

为一个公司

  DataEnvironment1.deMain.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
End Sub

Private Sub Form_Resize()
  lvw.Left = 20 ' 80
  lvw.Width = Me.ScaleWidth - 40 ' 160
  lvw.Height = Me.ScaleHeight - tlb.Height - stb.Height - 40 ' 160
  lvw.Top = tlb.Height + 20  ' 80
  Me.Refresh
  
End Sub

Private Sub Form_Unload(Cancel As Integer)
  If MsgBox("是否真的退出？", vbQuestion + vbYesNo, "进销存系统") = vbYes Then
    End
  Else
    Cancel = -1
  End If
End Sub

Private Sub lvw_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  If lvw.HitTest(x, y) Is Nothing Then
    mnuOperate_Scjl.Enabled = False
    tlb.Buttons(9).Enabled = False
  Else
    mnuOperate_Scjl.Enabled = True
    tlb.Buttons(9).Enabled = True
  End If
End Sub

Private Sub mnuAbout_Click()
  frmAbout.Show vbModal
End Sub

Private Sub mnuConfig_xtpz_Click()
  frmConfig.Show vbModal
End Sub

Private Sub mnuOperate_Exit_Click()
  If MsgBox("是否真的退出？", vbQuestion + vbYesNo, "进销存系统") = vbYes Then
    End
  End If
End Sub

Private Sub mnuOperate_Jhdj_Click()
  frmRegJH.Show vbModal
End Sub

Private Sub mnuOperate_Preview_Click()
Select Case btnindex
   Case 4:
         xsqkDataReport.Show 1
   Case 5:
         kcqkDataReport.Show 1
   Case 6:
         allDataReport.Show 1
End Select

End Sub

Private Sub mnuOperate_Print_Click()
Select Case btnindex
   Case 4:
         xsqkDataReport.PrintForm
         xsqkDataReport.PrintReport
   Case 5:
         kcqkDataReport.PrintForm
         kcqkDataReport.PrintReport
   Case 6:
         allDataReport.PrintForm
         allDataReport.PrintReport
End Select
End Sub

Private Sub mnuOperate_Scjl_Click()
  Dim strTmp As String
  
  If MsgBox("是否确定要删除？", vbQuestion + vbYesNo, "进销存系统") = vbYes Then
    With rstMain
      If rstMain.State = adStateOpen Then .Close
      Select Case intViewTag
      Case 1  '删除销售记录
        .Open "select * from xsxx where xsxx_key =" & Mid(lvw.SelectedItem.Key, 5, Len(lvw.SelectedItem.Key) - 4)
        If Not .BOF Or Not .EOF Then
          .Delete
          .Update
        End If
      Case 2  '删除库存记录
        .Open "select * from spxx where spxx_key=" & Mid(lvw.SelectedItem.Key, 5, Len(lvw.SelectedItem.Key) - 4)
        If Not .BOF Or Not .EOF Then
          .Delete
          .Update
        End If
      Case 3  '在总库中删除记录
        .Open "select * from spxx where spxx_key=" & Mid(lvw.SelectedItem.Key, 5, Len(lvw.SelectedItem.Key) - 4)
        If Not .BOF Or Not .EOF Then
          strTmp = !hh & ""
          .Delete
          .Update
        End If
        .Close
        .Open "select * from xsxx where hh='" & strTmp & "'"
        If Not .BOF Then .MoveFirst
        While Not .EOF
          .Delete
          .Update
          .MoveNext
        Wend
        .Close
      End Select
      lvw.ListItems.Remove lvw.SelectedItem.Index
      .Close
    End With
    mnuOperate_Scjl.Enabled = False
    tlb.Buttons(9).Enabled = False
  End If
End Sub

Private Sub mnuOperate_Xsdj_Click()
  frmRegXS.Show vbModal
End Sub

Private Sub mnuOperate_Zxdl_Click()
  Me.Hide
  frmLogin.Show vbModal
End Sub

Private Sub mnuSearch_Hh_Click()
  frmSearch.optSer(0).Value = True
  frmSearch.Show vbModal
End Sub

Private Sub mnuSearch_Jhrq_Click()
  frmSearch.optSer(1).Value = True
  frmSearch.Show vbModal
End Sub

Private Sub mnuSearch_Xsrq_Click()
  frmSearch.optSer(2).Value = True
  frmSearch.Show vbModal
End Sub

Private Sub mnuView_Ckkcjl_Click()
  Dim clmX 'As ColumnHeader
  Dim itmX 'As ListItem
  
  intViewTag = 2
  
  lvw.ColumnHeaders.Clear
  Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货日期", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货单价", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品数量", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "库存数量", 1200)
  
  If mnuView_Ckkcjl.Checked = True Then Exit Sub
  mnuView_Ckxsjl.Checked = False
  mnuView_Ckkcjl.Checked = True
  mnuView_Cksyjl.Checked = False
  tlb.Buttons(5).Value = tbrPressed
  
  lvw.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key and spxx.kcsl>0"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
      itmX.SubItems(1) = !spdm & ""
      itmX.SubItems(2) = !spmc & ""
      itmX.SubItems(3) = !jhrq & ""
      itmX.SubItems(4) = !jhdj & ""
      itmX.SubItems(5) = !jhsl & ""
      itmX.SubItems(6) = !xssl & ""
      itmX.SubItems(7) = !kcsl & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub

Private Sub mnuView_Cksyjl_Click()
  Dim clmX 'As ColumnHeader
  Dim itmX 'As ListItem
  
  intViewTag = 3
  
  lvw.ColumnHeaders.Clear
  Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货日期", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货单价", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "进货数量", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "库存数量", 1200)
  
  If mnuView_Cksyjl.Checked = True Then Exit Sub
  mnuView_Ckxsjl.Checked = False
  mnuView_Ckkcjl.Checked = False
  mnuView_Cksyjl.Checked = True
  tlb.Buttons(6).Value = tbrPressed
  
  lvw.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
      itmX.SubItems(1) = !spdm & ""
      itmX.SubItems(2) = !spmc & ""
      itmX.SubItems(3) = !jhrq & ""
      itmX.SubItems(4) = !jhdj & ""
      itmX.SubItems(5) = !jhsl & ""
      itmX.SubItems(6) = !xssl & ""
      itmX.SubItems(7) = !kcsl & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub

Private Sub mnuView_Ckxsjl_Click()
  Dim clmX 'As ColumnHeader
  Dim itmX 'As ListItem
  
  intViewTag = 1
  
  lvw.ColumnHeaders.Clear
  Set clmX = lvw.ColumnHeaders.Add(, , "货  号", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品代码", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "商品名称", 2500)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售日期", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售单价", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "销售数量", 1200)
  Set clmX = lvw.ColumnHeaders.Add(, , "客户名称", 1200)
  
  If mnuView_Ckxsjl.Checked = True Then Exit Sub
  mnuView_Ckxsjl.Checked = True
  mnuView_Ckkcjl.Checked = False
  mnuView_Cksyjl.Checked = False
  tlb.Buttons(4).Value = tbrPressed
  
  lvw.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select spzd.spdm,spzd.spmc,xsxx.* from spzd,spxx,xsxx where spzd.spzd_key=spxx.spzd_key and spxx.hh=xsxx.hh"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvw.ListItems.Add(, "xsxx" & CStr(!xsxx_key), !hh & "")
      itmX.SubItems(1) = !spdm & ""
      itmX.SubItems(2) = !spmc & ""
      itmX.SubItems(3) = !xsrq & ""
      itmX.SubItems(4) = !xsdj & ""
      itmX.SubItems(5) = !xssl & ""
      itmX.SubItems(6) = !khmc & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub

Private Sub tlb_ButtonClick(ByVal Button As ComctlLib.Button)
  Dim itmX
  
  Select Case Button.Caption
  Case "进货"
    mnuOperate_Jhdj_Click
  Case "销售"
    mnuOperate_Xsdj_Click
  Case "销售查看"
    btnindex = 4
    mnuView_Ckxsjl_Click
  Case "库存查看"
    btnindex = 5
    mnuView_Ckkcjl_Click
  Case "所有"
    btnindex = 6
    mnuView_Cksyjl_Click
  Case "刷新"
    If intViewTag = 1 Then
      lvw.ListItems.Clear
      With rstMain
        If .State = adStateOpen Then .Close
        .Open "select spzd.spdm,spzd.spmc,xsxx.* from spzd,spxx,xsxx where spzd.spzd_key=spxx.spzd_key and spxx.hh=xsxx.hh"
        If Not .BOF Then .MoveFirst
        While Not .EOF
          Set itmX = lvw.ListItems.Add(, "xsxx" & CStr(!xsxx_key), !hh & "")
          itmX.SubItems(1) = !spdm & ""
          itmX.SubItems(2) = !spmc & ""
          itmX.SubItems(3) = !xsrq & ""
          itmX.SubItems(4) = !xsdj & ""
          itmX.SubItems(5) = !xssl & ""
          itmX.SubItems(6) = !khmc & ""
          .MoveNext
        Wend
        .Close
      End With
    ElseIf intViewTag = 2 Then
      lvw.ListItems.Clear
      With rstMain
        If .State = adStateOpen Then .Close
        .Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key and spxx.kcsl>0"
        If Not .BOF Then .MoveFirst
        While Not .EOF
          Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
          itmX.SubItems(1) = !spdm & ""
          itmX.SubItems(2) = !spmc & ""
          itmX.SubItems(3) = !jhrq & ""
          itmX.SubItems(4) = !jhdj & ""
          itmX.SubItems(5) = !jhsl & ""
          itmX.SubItems(6) = !xssl & ""
          itmX.SubItems(7) = !kcsl & ""
          .MoveNext
        Wend
        .Close
      End With
    ElseIf intViewTag = 3 Then
      lvw.ListItems.Clear
      With rstMain
        If .State = adStateOpen Then .Close
        .Open "select spzd.spdm,spzd.spmc,spxx.* from spzd,spxx where spzd.spzd_key=spxx.spzd_key"
        If Not .BOF Then .MoveFirst
        While Not .EOF
          Set itmX = lvw.ListItems.Add(, "spxx" & CStr(!spxx_key), !hh & "")
          itmX.SubItems(1) = !spdm & ""
          itmX.SubItems(2) = !spmc & ""
          itmX.SubItems(3) = !jhrq & ""
          itmX.SubItems(4) = !jhdj & ""
          itmX.SubItems(5) = !jhsl & ""
          itmX.SubItems(6) = !xssl & ""
          itmX.SubItems(7) = !kcsl & ""
          .MoveNext
        Wend
        .Close
      End With
    End If
  Case "删除"
    mnuOperate_Scjl_Click
  Case "查询"
    frmSearch.Show vbModal
  Case "设置"
    mnuConfig_xtpz_Click
  Case "退出"
    mnuOperate_Exit_Click
  End Select
End Sub