[原创]用EXCEL+ACCESS做的进销存系统(公开代码)

wennus · 发表于 2006-6-11 19:33

代码在什么地方啊？

vincent8384 · 发表于 2006-6-11 20:17

楼主辛苦了.
因小弟觉得必须要把文件放在"D:\进销存系统"这样的固定路径不够方便,所以就把原来的
Stpath = "D:\进销存系统\商品进销单.mdb"
更改成
Stpath = Mid(Worksheets("Temp").Cells(1, 1).Value, 1, _ InStr(Worksheets("Temp").Cells(1, 1).Value, "进销存系统.exe") - 1) & _ "商品进销单.mdb"
这样使用起来就方便了许多.
只因小弟才疏学浅,实在不知道楼主在Sheets("Temp")的A1中的路径是怎么获得的.不然以上内容能更简便些.
望楼主指导.

liyh67 · 发表于 2006-6-11 20:27

楼主真是厉害啊

zbs112 · 发表于 2006-6-11 21:25

Sheets("Temp")的A1中的路径，是用版主李东华的EXCEL封装攻略做成的，我自己是按步就班的！

lhsh · 发表于 2006-6-12 05:09

楼主辛苦了

zbs112 · 发表于 2006-6-12 11:11

因自己对界面设置不了解，盼解决如下自定义问题：
隐去系统的菜单和工具栏，加载如下自定义菜单和工具栏：
1）菜单：打印、预览、计算器、进货单、销售单、进销存汇总、柱状图、期初设置、退出系统
2）如进入进货单和销售单时,自定义工具栏：在新增、查询、上一张、下一张、修改、删除、清空

澌淇8818 · 发表于 2006-6-12 16:51

谢谢楼主了,我正在找进销存的系统

zbs112 · 发表于 2006-6-12 22:30

动力源自大家的鼓励和支持，支持者请继续跟贴！
进销存查询窗体里，查询的所有记录在最后一行加上合计数。
<img src="attachments/dvbbs/2006-6/200661222284197688.jpg" border="0" onclick="zoom(this)" onload="if(this.width>document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

netpat · 发表于 2006-6-13 07:08

例:
 ListView5.ListItems.Clear SQL = "Select 销售清单号,销售数量,销售金额,销售成本 from XSD where 商品编码='" & Item.SubItems(1) & "' AND MID(销售清单号,3,8)>= " & CStr(TextBox1.Text) & " and mid(销售清单号,3,8)<= " & CStr(TextBox2.Text) RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic hj1 = 0 hj2 = 0 hj3 = 0 hj4 = 0 For i = 1 To RST.RecordCount With ListView5.ListItems.Add(, , RST.Fields("销售清单号")) .SubItems(1) = IIf(IsNull(RST.Fields("销售数量")), 0, RST.Fields("销售数量")) .SubItems(2) = IIf(IsNull(RST.Fields("销售金额")), 0, Format(RST.Fields("销售金额"), "0.00")) .SubItems(3) = IIf(IsNull(RST.Fields("销售成本")), 0, Format(RST.Fields("销售成本"), "0.00")) .SubItems(4) = Format(CDbl(ListView5.ListItems(i).SubItems(2)) - CDbl(ListView5.ListItems(i).SubItems(3)), "0.00") hj1 = hj1 + .SubItems(1) hj2 = hj2 + .SubItems(2) hj3 = hj3 + .SubItems(3) hj4 = hj4 + .SubItems(4) End With RST.MoveNext Next i With ListView5.ListItems.Add(, , "合计") .SubItems(1) = IIf(IsNull(hj1), 0, hj1) .SubItems(2) = IIf(IsNull(hj2), 0, hj2) .SubItems(3) = IIf(IsNull(hj3), 0, hj3) .SubItems(4) = IIf(IsNull(hj4), 0, hj4) End With RST.Close

杨平45 · 发表于 2006-6-13 10:58

楼主！真的很佩服你哦，看前面的还以为你把进销差价给忘记了，没想到这个你也做到了佩服啊，你这系统做的真太不错！！不过有点不明白，你的单据保存是否是在单据输入完毕后点新增就会自动保存啊[em04]

		自动登录	找回密码
密码			免费注册

[分享] [原创]用EXCEL+ACCESS做的进销存系统(公开代码)

[公告]正在完善中......