2016-1-11更新自用[百货系统]

pdcfnr · 发表于 2013-12-23 15:22:57

本帖最后由 pdcfnr 于 2016-1-11 07:22 编辑

不知为什么附件打不开，下次再传了。

有些毒霸我表示无语。读硬件报毒、读MD5报毒、联接网络报毒......还有我把文件名强制为smss.exe也报毒；我怀疑自动生成个文件夹也会报的。
解压后smss.exe的MD5=485451FC45BA4D37501258A41837212B
说一下把文件名强制为smss.exe的用意：我电脑比较旧，开多程序了会出现假死现象；那时就要打开任务管理器结束任务。但我又不想结掉百货系统。因此就采用这种方法了。
我使用环境是WinXP+VB6，运行不了的先安装VB6

[帮助说明]

一、[销售窗口]信息输入
1、输入的信息分二段，以“，”（逗号）为分界。第一段为单价，第二段为数量。例如：“3.1，2.5”，3.1为单价，2.5为数量。
2、扫描时（无“，”），从数据库里查找单价，数量为1。
3、键盘输入：第一段输入为大于0且小于9999时，直接在列表显为单价，不查数据库。有“，”时，第二段为数量。无“，”时，数量为1。如第一段输入的是大于9999时，则在数据库里查找单价。第二段为数量。

二、按键
CTRL+A键：销售窗口
CTRL+C键：系统复制
CTRL+D键：入库窗口
CTRL+H键：会员窗口
CTRL+O键：仓库窗口
CTRL+P键：习惯打印
CTRL+Q键：权限窗口
CTRL+S键：选项窗口
CTRL+T键：统计窗口
CTRL+V键：系统粘贴
CTRL+Z键：赊帐窗口
[销售窗口]
回车键：加入到列表
SHIFT+回车键：结帐
CTRL+回车键：赊帐方式结帐
空格键：找零
DEL键：清除界面
[CTRL或ALT]+X键：关闭当前窗口
[CTRL或ALT]+P键：打印帐单
ALT+F键：模糊查找
CTRL+J键：添加暂存数量
SHIFT+CTRL+J键：暂存数量+1
ALT+J键：暂存数量-1
ALT+SHIFT+CTRL+J键：查看暂存数量
SHIFT+CTRL+1~9键：删除1~9行
SHIFT+CTRL+S键：停止锁焦
ALT+Q键：调单
ALT+SHIFT+CTRL+Q键：退出当前登陆人员
列表单击鼠标左键：数量加1
列表单击鼠标右键：数量减1
列表SHIFT+鼠标左键：数量加10
列表SHIFT+鼠标右键：数量减10
列表CTRL+鼠标右键：弹出框输入名称改名
列表ALT+鼠标右键：删除当前项
[入库窗口]
DEL键：清除界面
CTRL+DEL键：删除当前一条记录
ALT+CTRL+空格键：隐藏成本价时调出
[CTRL或ALT]+X键：关闭当前窗口
上、下箭头键：上、下移动焦点（与Tab键类似）
焦点在条码框时按回车键：按条码精确查找
焦点在名称框时按回车键：按名称模糊查找，CTRL+回车键：查找下一个
焦点在价格框时按回车键：新增或修改
[会员窗口]
焦点在号码框时按回车键：按号码精确查找
焦点在其它框时按回车键：新增或修改（Ctrl键也按下时才可修改等级和积分，原则上是不修改等级和积分）
DEL键：清除界面
CTRL+DEL键：删除当前号码
ALT+SHIFT+CTRL+DEL键：清零所有积分、等级
鼠标单击图象框：载入图象
[CTRL或ALT]+X键：关闭当前窗口
[赊帐窗口]
图象框鼠标左键：载入图象
图象框鼠标右键：清除冗佘图象
列表单击鼠标右键：改名
列表CTRL+鼠标右键：改日期
列表ALT+鼠标右键：单张单号还帐
ALT+J或鼠标单击单号：过到收款界面
备注框回车键：备注
[CTRL或ALT]+X键：关闭当前窗口
ALT+H键：还帐
ALT+G键：改单号
ALT+F键：打开图片目录
[权限窗口]
回车键：登陆
CTRL+回车键：新增或修改人员
CTRL+DEL键：删除人员
[统计窗口]
销量排行鼠标左键：载入销量排行
销量排行鼠标右键：查找当前项单价
销售记录鼠标左键：载入销售记录
销售记录鼠标右键：计算利润
缺货鼠标左键：载入缺货
缺货鼠标右键：删除此类型
缺货CTRL+P键：打印缺货清单

三、[销售窗口]点计量物品列表，直接输入数字为数量，也可输入“,总价”的形式。

四、会员积分和等级
积分：结账时1元积1分。不计角分。
等级：积1W分升1级，4W分升2级，9W分升3级，16W分升4级......（按：(等级+1)^2*1W 计算，每次升级时积分清零）
五、测试
[仓库]ALT+SHIFT+CTRL+C键：增加库存测试，在INI文件设置循环上限（如CKFor=60000）
[权限]右上角隐藏开关： SQL调试接口，在INI文件里设置语句（SQL=......）再导入来
[统计]右上角隐藏开关：清除已结帐的销售数据

更新日志
2013年
9月2日：以前为雏形，日志略
9月2日：定主版本号为5
9月6日：[主窗口]修正信息输入框没有获取焦点的BUG
9月10日：[主窗口]当列表框字体大于小四号时，加入多行后，单击加减数量时出现错行现象。暂无法解决，用小四号字体
9月11日：修正VB把0.5显示为.5外观上的BUG
9月12日：[主窗口]增加按SHIFT+左键当前行数量加10
9月14日：[主窗口]增加计量物品可输入数量
9月19日：重新调整信息输入规则
9月22日：[主窗口]增加找零
9月22日：[主窗口]增加计量物品的可选列表界面
9月25日：[主窗口]调整界面，计量物品的可选列表界面做成象下拉框
9月25日：[主窗口]单击列表空白处不再加减数量了
9月26日：增加ALT+X键关闭当前窗口
10月20日：[主窗口]增加DEL键清除列表
10月21日：增加[仓库管理]
12月19日：增加：[条码库]名称文本框输入名称后，回车模糊查找；CTRL+回车查找下一个

2014年
1月1日：新年，定主版本号6
1月1日：增加：[主窗口]输入“：+名称”回车后按名称模糊查找
1月8日：[主窗口][条码库]修正：模糊查找时自动删除关键字符中空格
2月3日：增加[统计]销量排行
2月7日：把一些End IF加上编号，便于阅读
2月8日：[条码库]单价或成本价改为允许其中一个为0，但不能二个都为0
2月8日：[条码库]名称为空时，改为用条码代替名称
2月9日：[主窗口]增加相应昨天的单价为0时，自动打开[条码库]，以便输入单价
2月22日：[主窗口]Image1代码调整：原鼠标移过时读数据库；改为单击读，移过Call。这样的好处：不用常读数据库，但要重新读入时就单击
2月23日：[条码库]增加条码的导入导出
2月25日：找零修正：合计为0时不计算
2月25日：增加：[关于]
2月25日：[比率表]文本框改为数组
2月26日：[主窗口]增加：打印帐单，注：无打印机时有些系统可保存为图象文件
2月27日：网上找到一款手机扫条形码的软件，完美结合
3月1日：增加[店面盘点]
3月4日：帐单打印增加备注，可输入实收、保修期等信息
3月12日：[条码库]修正BUG：名称查找有时走焦
3月15日：增加：[赊帐]
3月20日：[赊帐]增加：备注、改单号。同一人多次赊帐的可合单总计
3月20日：增加防止程序重载代码
3月22日：增加自动循环提示信息
3月22日：增加SQL事务处理
3月26日：循环提示信息由固定循环改为随机抽取
3月27日：[统计]增加缺货统计及打印
3月28日：[统计]缺货统计增加按类型排序、可删除同类型物品
4月11日：[主窗口]增加了鼠标小键盘，鼠标停留在信息输入框2秒后会自动弹出
4月11日：[主窗口]增加快照，可保存当前窗口为BMP图象
4月12日：[主窗口]修正：小键盘当NUM LOCK关闭时也能输入了，后改为自打开NUM LOCK
4月13日：增加ini配置，因为不是所有数据都适合在数据库里设置的
4月15日：[条码库]增加网络获取，强大了
4月15日：增加MD5校验
4月22日：[主窗口]增加[窗口]锁焦，10秒钟检测一次。
4月24日：[主窗口]增加：新刷入物品后在2秒内输入0.01~9999的数字为数量，缺省数量为1
4月27日：增加：[选项]
10月9日：Module增加：公共对话框。在打开图片文件时直接浏览缩略图
10月27日：[主窗口]增加调单
12月1日：[条码库]改为[入库]
12月4日：[统计]右上角增加隐藏按键清除销售记录
12月8日：增加自动创建数据库的代码

2015年
1月1日：新年，定主版本号8
1月25日：增加优惠价
1月30日：增加会员价
2月6日：增加会员积分
2月6日：增加SQL调试接口，可在INI文件编辑SQL调试代码
2月10日：[盘点]合入[入库]
2月13日：增加会员等级制度
2月15日：增加权限，第一次使用默认登陆：1
2月16日：增加交接班
2月17日：[关于]合入[权限]
2月23日：把一些大数据处理加上进度条显示
3月8日：增加服务器自动注册（当然要我的电脑有开机时才注册得了）
3月17日：[会员]增加会员积分排行
3月22日：[入库]增加商品是否有积分的选项
4月27日：[主窗口]增加：商品图
6月9日：[主窗口]增加：会员卡储值及出数结帐
8月13日：[主窗口]找零优化：Alt+空格为100找零
8月22日：登陆优化：幻化输入位数
8月23日：注册优化：当读硬盘码出错时，用网卡MAC地址码代替
8月28日：[会员]会员号绑定手机号
10月9日：[主窗口]增加：五角计整：即合计1角2角的为0，3角4角6角7角的为5角，8角9角的进1
11月15日：加密事件记录文本
11月16日：增加[查一查]窗口，在[统计]隐藏开关入口
12月16日：[主窗口]小键盘改为菜单
12月16日：[主窗口]增加：实时摄象图，当然VB不适合做视频（太慢），借助第三方
12月17日：增加：JPG压缩模块
12月17日：[主窗口]增加：结帐快照

2016年
1月4日：新年，定主版本号2016
1月10日：增加审核，在[统计]隐藏开关入口
1月11日：[主窗口]增加：插单，应急使用

pdcfnr · 发表于 2013-12-24 19:08:34

feiyl 发表于 2013-12-24 18:25
运行不起来。。。。。。。

应该是缺少VB部件，装一下VB6，就OK了

pdcfnr · 发表于 2013-12-23 22:24:06

本帖最后由 pdcfnr 于 2014-4-24 16:46 编辑

feiyl · 发表于 2013-12-24 18:25:50

运行不起来。。。。。。。

feiyl · 发表于 2013-12-24 21:04:17

点击下拉键就卡住了

pdcfnr · 发表于 2013-12-24 21:07:16

本帖最后由 pdcfnr 于 2013-12-25 07:52 编辑

feiyl 发表于 2013-12-24 21:04
点击下拉键就卡住了

那你数据库是否解压到同一目录？

我一贯使用windows xp+vb6环境，没问题的。

pdcfnr · 发表于 2014-3-12 20:19:00

自己顶上来.....................

2013_top398 · 发表于 2014-3-12 23:58:31

综合论坛真是五花八门啊。连百货系统都有。

pdcfnr · 发表于 2015-1-27 16:44:09

2015-01-27更新自用百货系统，请大家帮忙测BUG

tiansw1 · 发表于 2015-1-28 09:01:30

运行没问题，就是不知道怎么用

pdcfnr · 发表于 2015-1-28 09:09:07

tiansw1 发表于 2015-1-28 09:01
运行没问题，就是不知道怎么用

最好有条形码扫描器，用键盘输入条形码也一样。还可以直接输入价钱回车。。。。。。等等功能多试几遍就明白了。

pdcfnr · 发表于 2015-1-28 09:13:05

一、输入的代码
1、输入的代码分二段，以“，”（逗号）为分界。第一段为单价，第二段为数量。例如：“3.1，2.5”，3.1为单价，2.5为数量。
2、扫描时（无“，”），从数据库里查找单价，数量为1。
3、键盘输入时：第一段输入为大于0且小于9999时，直接在列表显为单价，不查数据库。有“，”时，第二段为数量。无“，”时，数量为1。如第一段输入的是大于9999时，则在数据库里查找单价。第二段为数量。

二、按键
1、回车键：在[主窗口]时加入到列表，在[条码库]且焦点在价格时为新增修改。
2、[主窗口]：SHIFT+回车键结帐。
3、[主窗口]：空格键：找零
4、ALT+X键：关闭当前窗口
6、CTRL+DEL键：清除列表
7、CTRL+P键：打印帐单
8、[主窗口]：CTRL+回车键赊帐结帐

三、点计量物品列表，直接输入数字为数量，也可输入“,总价”的形式。

安溪茶乡网 · 发表于 2015-1-29 20:50:20

有没有好用的WIN7系统给个

安溪茶乡网 · 发表于 2015-1-29 20:56:06

不错可以

nivigo · 发表于 2015-1-30 08:25:27

毒霸扫描提示木马病毒

pdcfnr · 发表于 2015-1-31 07:08:26

nivigo 发表于 2015-1-30 08:25
毒霸扫描提示木马病毒

那些毒霸我真是无语[4月15日：增加网络获取，这里报毒][4月15日：增加MD5校验，报毒][读HDID，报毒]还有一些时候它动不动就报毒。

wgx1688 · 发表于 2015-2-1 23:06:04

你这个自己做的免费的？

pdcfnr · 发表于 2015-2-3 06:42:07

本帖最后由 pdcfnr 于 2015-2-3 09:14 编辑

wgx1688 发表于 2015-2-1 23:06
你这个自己做的免费的？

从雏形到目前我自己调试测试应该超过2000次了。纯手工的。{:soso_e134:}

pdcfnr · 发表于 2015-2-3 06:42:25

本帖最后由 pdcfnr 于 2015-2-3 06:47 编辑

wgx1688 发表于 2015-2-1 23:06
你这个自己做的免费的？

这个要看多少人帮到忙，就现阶段而言只是我一个人的工作室，无语。
有热心帮我调试、提有用建议的。私聊我，可以给你现阶段的版本以及免费帮你注册。

pdcfnr · 发表于 2015-2-3 07:01:53

程序里有段下面的代码，大家帮我看看是原来注掉的好，还是新的二句代码好？
CNN.Execute "UPDATE tmb SET sl=sl-" & LV1.ListItems(i).SubItems(2) & " where tm=" & CheckString(LV1.ListItems(i).SubItems(4))
CNN.Execute "UPDATE tmb SET sl=0 where sl<0" '当数量小于0时置0
's = "select sl from tmb where tm=" & CheckString(LV1.ListItems(i).SubItems(4))
'RST.Open s, CNN, 1, 3
'If Not RST.EOF Then
' RST.Fields("sl").Value = IIf(RST.Fields("sl").Value > Val(LV1.ListItems(i).SubItems(2)), RST.Fields("sl").Value - LV1.ListItems(i).SubItems(2), 0) '减去相应的数量，以后还要完善
' RST.Update
'End If
'RST.Close

pdcfnr · 发表于 2015-2-16 08:14:45

2月16日：增加权限。麻雀虽小，五脏俱全了。暂未加入测试版本。

pdcfnr · 发表于 2015-2-28 08:08:53

今天完善了一下说明。

pdcfnr · 发表于 2015-3-8 16:13:08

2015-3-8更新自用[百货系统]

Lewim · 发表于 2015-3-8 20:12:24

2015-3-8更新自用[百货系统] [修改]

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

[原创] 2016-1-11更新自用[百货系统]

评分

点评

点评

点评

点评

点评