小小出入库管理系统(2012年12月又作了更新)

earthmaster · 发表于 2011-6-16 10:42

谢谢，楼猪，好人

ntj0512 · 发表于 2011-6-21 09:22

非常不错，一直想学，就是没有恒心，呵呵

ESBL · 发表于 2011-6-22 05:00

已下载，是个好东西。LZ辛苦啦。我想添加货号、品牌、供应商、有效期，请问可以吗？如果能根据有效期提示过期物品，就更理想啦。

ESBL · 发表于 2011-6-23 06:12

昨天试用了一下，很简洁，可是似乎出入库单没有金额合计的功能

zjdh · 发表于 2011-6-23 15:57

原帖由 ESBL 于 2011-6-22 05:00 发表
已下载，是个好东西。LZ辛苦啦。我想添加货号、品牌、供应商、有效期，请问可以吗？如果能根据有效期提示过期物品，就更理想啦。

你提到的问题与143楼的类似，最近很忙没时间修改，待有空再说。

zjdh · 发表于 2011-6-23 16:00

原帖由 ESBL 于 2011-6-23 06:12 发表
昨天试用了一下，很简洁，可是似乎出入库单没有金额合计的功能

出入库单的金额合计有大写的，未考虑数字的。

n520 · 发表于 2011-6-26 22:35

cw.rar (7.79 KB, 下载次数: 33)
烦请楼主帮忙改下sql语名
Set conn = CreateObject("adodb.connection")
      conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
      Sql = "select 部门,入库数量,入库单价,入库金额,出库数量,出库单价,出库金额 from [数据库$] where [数据库$].编码= " & [D4] & ""
      [D9].CopyFromRecordset conn.Execute(Sql)
      Sql = "select 日期 from [数据库$] where [数据库$].编码=" & [D4] & ""
      [A9].CopyFromRecordset conn.Execute(Sql)
      conn.Close
D4单元格内的数字为kd1003

zjdh · 发表于 2011-6-27 10:07

**文本格式需要加撇号，数值格式不需要加撇号**
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select 部门,入库数量,入库单价,入库金额,出库数量,出库单价,出库金额 from [数据库$] where [数据库$].编码= " & [D4] & "'"
[D9].CopyFromRecordset conn.Execute(Sql)
Sql = "select 日期 from [数据库$] where [数据库$].编码=" & [D4] & "'"
[A9].CopyFromRecordset conn.Execute(Sql)
conn.Close

[ 本帖最后由 zjdh 于 2011-6-27 10:10 编辑 ]

n520 · 发表于 2011-6-27 15:41

还是不行啊

2011627.rar (13.57 KB, 下载次数: 36)

AVEL · 发表于 2011-6-27 16:52

下载学习借鉴。。感谢整理分享。

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

[分享] 小小出入库管理系统(2012年12月又作了更新)

回复 1楼 zjdh 的帖子

回复 1楼 zjdh 的帖子