进销存管理系统2012最新力作 愿和大家共享 源码开放 密码123或321

小KS

最近有空 做一个原料进销存管理系统和大家共享   菜鸟的vBA就是这样炼成的  用自己了解的一边学习一边自己做一个系统  这样vBA 就学得差不多入门了
认为做得好就 鼓励一； 你的鼓励我无限的动力   也请使用者和高手给意见 并帮忙简化代码

1、一个界面四个按钮让你自由切换进仓单、出仓单、盘盈单和盘亏单
2、一个备份按钮让你的数据更安全
3、一个导入按钮让你的数据能得到最快的修复
4、一个打印按钮让你自由打印各类单据
5、一个混动条让你自由查看数据库中每一张单据，如果需要可以配合删除按钮和修改按钮对单据进行删除或修改，清空按钮可以清空输入界面。
6、透视表中有日报表、月报表和库存表，库存明细账中任一查询都能自动生成透视表。
7、明细账中双击空格更是有各种各样的数据查询。也可以根据自己需要用VBA对代码进行二次开发。
8、在单据录入界面中还有删除行的功能
9、全面起用库位管理，让你不再为寻找物品浪费时间
10、单据录入中双击空格可以快速选择你要的人名和物品。
11、物品品名和型号相同，但供应商不同也应该用不同货号，以便供应商送货查询。
12、单号可以月初自动复位或随时运行单号复位宏进行手动复位。
13、使用方法：先运行"初始化清空"宏清空数据,基础信息表要按格式完善信息.再在期初数据表上填上物品信息和期初数据,有些行是有公式的,当物品比较多时,要记得把有公式的行往下拉复制公式.
14、物料码放超出库容或出仓数量不足都有报警。
15、想要二次开发；数据 初始化；成品进销存管理系统或2003版 ；请留你的邮箱     或加我的QQ397657344           做人要厚道，下载要顶贴，你的支持就是我的动力！
下一个版本是excel和ACCESS连接  2013敬请大家关注
下下一个版本是ACCESS独立进销存管理系统  2013敬请大家关注
下下下一个版本是ACCESS的ASP网络进销存管理系统  2013敬请大家关注和鼓励

小KS

想要二次开发；数据 初始化；成品进销存管理系统或2003版系统  ；请留你的邮箱    或加我的QQ397657344

tianyk

谢谢分享
库存明细帐 做的蛮好         

ZDYCTD

先做个记号吧，也许以后用得到

小KS

tianyk 发表于 2012-10-21 18:12
谢谢分享
库存明细帐 做的蛮好

库存明细帐中的汇总透视表是自动生成的 另外点一下   单据录入   表中的  显  或  隐 字 可打开或隐藏所有表格

jjwwff

可以好好学习了！

zsyufu

谢谢分享！！

tianyk

小KS 发表于 2012-10-21 18:33
库存明细帐中的汇总透视表是自动生成的 另外点一下   单据录入   表中的  显  或  隐 字 可打开或隐藏所有 ...

好象模糊查询窗体的‘tb’宏都不能用？在TextBox1中输入就报错。

小KS

tianyk 发表于 2012-10-21 20:44
好象模糊查询窗体的‘tb’宏都不能用？在TextBox1中输入就报错。

模糊查询窗体中输入的内容必须是弹出窗体的第一列的内容才行的   请用2007上版本打开

tianyk

小KS 发表于 2012-10-21 23:00
模糊查询窗体中输入的内容必须是弹出窗体的第一列的内容才行的   请用2007上版本打开

把窗体UserForm6代码改成这样的，不管是输入哪行的关键字都可筛选出来。
Option Explicit
Dim strText$, strLen%, i%, ii%, IItext$
Dim Sht1 As Worksheet
Dim ASHEET As String
Dim ITM As ListItem, n%, M%, nn%, n1%
Dim Arrb, Myr%, n2%, n3%, n4%, n5%, n6%, n7%, n8%, n9%, n10%
Private Sub CommandButton1_Click()
    Unload Me
End Sub
Private Sub ListView1_DblClick()
'取回列表值
    Dim CurrIndex As Integer
    nn = 3
    CurrIndex = ListView1.SelectedItem.Index
    If CurrIndex < 0 Then Exit Sub
   ASHEET = ActiveSheet.Name
    With Sheets(ASHEET)
    Range(Selection.Address) = ListView1.ListItems(CurrIndex).Text
    Range(Selection.Address).Offset(0, 1) = ListView1.ListItems(CurrIndex).SubItems(1)
    Range(Selection.Address).Offset(0, 2) = ListView1.ListItems(CurrIndex).SubItems(2)
    Range(Selection.Address).Offset(0, 3) = ListView1.ListItems(CurrIndex).SubItems(3)
    Range(Selection.Address).Offset(0, 4) = ListView1.ListItems(CurrIndex).SubItems(4)
    Range(Selection.Address).Offset(0, 5) = ListView1.ListItems(CurrIndex).SubItems(5)
    Range(Selection.Address).Offset(0, 6) = ListView1.ListItems(CurrIndex).SubItems(6)
    Range(Selection.Address).Offset(0, 7) = ListView1.ListItems(CurrIndex).SubItems(7)
'   Range(Selection.Address).Offset(0, 8) = ListView1.ListItems(CurrIndex).SubItems(8)
   '.Cells(9, nn) = ListView1.ListItems(CurrIndex).Text
    Range("C15").Select
    End With
    Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim ITM As ListItem
Me.Caption = "模糊查询                    " & "今天是: " & Date & "--" & Format(Date, "[$-804]aaaa;@")
Call zb
Set Sht1 = Sheet3
Myr = Sht1.[A65536].End(xlUp).Row
Arrb = Sht1.Range("A2:K" & Myr)
For i = 1 To UBound(Arrb)
    Set ITM = ListView1.ListItems.Add()
    ITM.Text = Arrb(i, 1)
    ITM.SubItems(1) = Arrb(i, 2)
    ITM.SubItems(2) = Arrb(i, 3)
    ITM.SubItems(3) = Arrb(i, 4)
    ITM.SubItems(4) = Arrb(i, 5)
    ITM.SubItems(5) = Arrb(i, 6)
    ITM.SubItems(6) = Arrb(i, 7)
    ITM.SubItems(7) = Arrb(i, 8)
    ITM.SubItems(8) = Arrb(i, 9)
    ITM.SubItems(9) = Arrb(i, 10)
Next
    With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        .LabelEdit = lvwManual
    End With
End Sub
Sub tb()
'填表
    Set ITM = ListView1.ListItems.Add()
    ITM.Text = Sht1.Cells(ii, 1)
    ITM.SubItems(1) = Sht1.Cells(ii, 2)
    ITM.SubItems(2) = Sht1.Cells(ii, 3)
    ITM.SubItems(3) = Sht1.Cells(ii, 4)
    ITM.SubItems(4) = Sht1.Cells(ii, 5)
    ITM.SubItems(5) = Sht1.Cells(ii, 6)
    ITM.SubItems(6) = Sht1.Cells(ii, 7)
    ITM.SubItems(7) = Sht1.Cells(ii, 8)
    ITM.SubItems(8) = Sht1.Cells(ii, 9)
    ITM.SubItems(9) = Sht1.Cells(ii, 10)
End Sub

Sub zb()
'制表
With ListView1
    .ColumnHeaders.Clear
    .ListItems.Clear
    .ColumnHeaders.Add 1, , "货号", ListView1.Width * 0.2
    .ColumnHeaders.Add 2, , "名称", ListView1.Width * 0.3
    .ColumnHeaders.Add 3, , "型号", ListView1.Width * 0.2
    .ColumnHeaders.Add 4, , "单位", ListView1.Width * 0.2
    .ColumnHeaders.Add 5, , "类别", ListView1.Width * 0.2
    .ColumnHeaders.Add 6, , "供应商", ListView1.Width * 0.2
    .ColumnHeaders.Add 7, , "库位", ListView1.Width * 0.2
    .ColumnHeaders.Add 8, , "单价", ListView1.Width * 0.2
    .ColumnHeaders.Add 9, , "库存数量", ListView1.Width * 0.2
    .ColumnHeaders.Add 10, , "数量", ListView1.Width * 0.2
    .View = lvwReport
    .Gridlines = True
End With
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
strText = TextBox1
strLen = Len(strText)
If strText = "" Then
    Call zb
    For ii = 2 To Myr
        Call tb
    Next ii
    Exit Sub
End If
Call zb
For i = 2 To Myr
    n1 = InStr(Sht1.Cells(i, 1), TextBox1.Text)
    n2 = InStr(Sht1.Cells(i, 2), TextBox1.Text)
    n3 = InStr(Sht1.Cells(i, 3), TextBox1.Text)
    n4 = InStr(Sht1.Cells(i, 4), TextBox1.Text)
    n5 = InStr(Sht1.Cells(i, 5), TextBox1.Text)
    n6 = InStr(Sht1.Cells(i, 6), TextBox1.Text)
    n7 = InStr(Sht1.Cells(i, 7), TextBox1.Text)
    n8 = InStr(Sht1.Cells(i, 8), TextBox1.Text)
    n9 = InStr(Sht1.Cells(i, 9), TextBox1.Text)
    n10 = InStr(Sht1.Cells(i, 10), TextBox1.Text)
    If n1 > 0 Or n2 > 0 Or n3 > 0 Or n4 > 0 Or n5 > 0 Or n6 > 0 Or n7 > 0 Or n8 > 0 Or n9 > 0 Or n10 > 0 Then
        ii = i
        Call tb
    End If
Next i
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Activate()
  Me.TextBox1.SetFocus
  UserForm6.StartUpPosition = 0
  UserForm6.Top = 50
  UserForm6.Left = 150
End Sub