进销存系统[完美]，希望对大家有帮助！

bzx721026

我会尊重您的要求，有问题还得烦请你多多指教！

pananchun

请楼主发给我一个，学习你的代码。多谢！
straybird05@163.com

gfj1982

我也要一份学习中, GFJ1982@163.COM 谢谢!!

zzjw

已收，谢谢，太复杂了不会使用

水怪

请楼主发给我一个，学习你的代码。多谢！
jpnip@126.com

gzhty

请楼主发给我一个，学习你的代码。多谢！
gzhty@163.com

zhj春天

AGDFLHFGFBVKAAGFB.FGFGDFGBFG!

kwinawyeth

我把使用说明弄了上来，也在传一个最新版的。这个使用说明在新的系统里[帮助]栏里有。 销售系统.rar (89.65 KB, 下载次数: 168)

2010-2-8 13:52 上传

点击文件名下载附件

1.商品入库
    [产品入库]-[入库单]，在商品栏输入商品信息。可以是商品条码、商品代码、流水码、拼音码、价格、汉语名称、产地。
    如果输入后产品明细单没显示出具体的产品，那就要查找，即点击[查找]，或按F7。然后自动跳转到[商品字典]，如果查
找结果只有一个，系统会自动返回该产品的流水码；如果不是唯一，选择相应产品，点击[返回入库单]。如果双击，会返回销售单。
    注：如果[数据库]中没有的项目，不能查找出来。
    增加数量，可以点击数量，每点击一次，增加1，也可手动在数量框输入。点击其他，如批号，焦点会自动调整到相应输
入框中。
    点击保存后，数据会自动保存到[入库明细]中，并自动产生入库单号，入库时间。保存过的数据不能第二次保存。
    点击[新增]，会自动增加一张入库单。
    点击[删除]能删除最后一个数据。
    入库时，可以直接把入库品种复制到入库明细中，注意，流水码和产品名称是必须的。否则会造成数据混乱。   
2.首营品种（数据库中没有的品种）
    [数据维护]-[数据库]在数据中间插入行，不能再最后或最前，必须在深红色线条的中间。并把输入填入，流水码和产品名称是
必须的。然后把其他行的-J-和-N-列复制到该行。可点击-J-和-N-列上一行，然后下拉。
    注意：库存不要直接输入数据！
3.产品销售
    [商品销售][销售单] 每次启动，系统会自动切换到销售单，并删除上次遗留在销售单上的数据。
    使用与入库单类似。
    查找时，双击所选产品，会自动返回销售单。也可先选择相应产品，点击[返回销售单]。
    其他应收框应用于产品以外的应收，在其他应收框输入后，总计会加上在数字，应收框也会相应增加。
    预收栏输入总收款。系统会自动算出找零。
    该系统主要用于零售，所以主要快捷都为销售单设计的。
4.产品退货、损溢的使用如同入库单。
5.在使用商用字典是，如果没有要找的产品，可以清空条件框，点击[查询]，这时，所以产品都出来了。在点击CTRL+F键，
运用EXCEL的查找功能查找。再做相应的返回操作。
6.如果销售单，入库单，退货单，损溢单，商品字典损毁，可以点击相应的复位即可修复。单数据库不能修复。
7.如需对数据进行其他统计，可以选择[数据库]-[恢复EXCEL菜单]进行操作。把系统另存在操作，以免破坏系统。数据库左
上角[！]可以恢复系统菜单。
8.每次保存后，系统会自动在[backup]文件夹中备份。时间长了，可自己到该文件夹中删除多余的备份文件。

kwinawyeth

可以把以下语句加入thidworkbook 的代码中，F:\backup为放置文件夹backup的路径
Shell "cmd /k del F:\backup\*.* /f /q", vbHide

放入之后如下
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim strA As String
    Shell "cmd /k del F:\宏晓店\销售\backup\*.* /f /q", vbHide
    ThisWorkbook.Save
    strA = "cmd.exe /c copy " & ThisWorkbook.FullName & " " & ThisWorkbook.Path & "\backup\" & VBA.Split(ThisWorkbook.Name, ".")(0) & Trim(Str(VBA.Year(Now) & VBA.Month(Now) & VBA.Day(Now) & VBA.Hour(Now) & VBA.Minute(Now) & VBA.Second(Now))) & ".xls /Y"
    Call Shell(strA, vbHide)
End Sub


这样在backup文件中就只要保留最新的一个备份文件。

zhaodabaobao

发个密码谢谢！！！！gb_2098@sina.com