前一阶段,我正好也做了一个用条码的软件
1,条码的格式,可以用条码生成函数来得到啊!看看条码的网站,这些和你的程序关系不是很大!
2,在edit的chang事件里开始查找啊!条码扫描起有没有什么开关,可以在后面加回车键的啊!
这里你是指录入的时候吧,你可以用程序实现自动转移啊!*.setf*,忘了,查以下help吧
1,条码的格式,可以用条码生成函数来得到啊!看看条码的网站,这些和你的程序关系不是很大!
2,在edit的chang事件里开始查找啊!条码扫描起有没有什么开关,可以在后面加回车键的啊!
这里你是指录入的时候吧,你可以用程序实现自动转移啊!*.setf*,忘了,查以下help吧
1。条形码的格式很多,不过没什么区别,都是一组数而已。一般用教什么18A的那一种。
你多找几个条码扫一下就可以了知道了。
2。用扫描枪扫条码后,条码会在输入焦点后显示出来(只会在焦点后显示,没有其他任何
事件)。要用EDIT,MEMO 等又输入焦点的控件。你也可以在”记事本“上试一时。条码在
焦点后。
3。查询可以在EDIT 的ONCHANGE 事件中。(打开一个窗口,其中有“数量”(默认为1)”
单价“(从库中找到)“合计”(数量X单价)单价和数量可调,一个确认键(使焦点回到
EDIT中)。这是基本方法,如果你想操作简单一些的话。你可以在ONCHANGE事件中先把当前
记录响应的值先备份(数量,价格,等)再按默认值汇总(向超市中把数据写入一个DBGRID
中(STRINGGRID也可),焦点回到EDIT。当要修改数据是键入一个特定键象“回车键”EDIT
的ONKEYPRESS事件中执行响应的事件,打开一个窗口,其中有“数量”(默认为1)”单价
“(从库中找到)“合计”(数量X单价)单价和数量可调,一个确认键(修改刚才DBGRID
中的响应数据,关闭窗口,使焦点回到EDIT中)。
3。条码的编号写在商品库中如: AUTO CODE NAME
-----------------------------------------------------
0 00000000001 牙刷
1 00000000002 肥皂 在EDIT的ONCHANGE 事件中查找的就是这个库中的CODE 自段所相对应的值。4。其实用条码枪查找技术含量很简单。和普通查询是一样的。相通了就好了。
1、条形码格式不用管,一般需配置一下激光扫描台,使它能识别待扫描码的格式,与你程序无关。
2、一般扫描结束后,都会有一个回车符返回,你可以在KeyPress事件中判断,if key=#13
3、我的系统是这样做的,整个FORM只有一个Edit控件能获得输入焦点,作为输入框。如果你按回车(当然是由扫描枪得到的,不过若扫不出,可手工输入加回车),就查询Edit框内的数据。若是修改数量,就在输入框内输入数字,按另一个键(比如F8,POS机小键盘可以自定义键盘扫描码),if key=#119,程序中就将定位的记录修改数量。同理,改单价,你定义另外一个键。
4、Form上半部分是个DbGrid,不过也没输入焦点,你按Up&Down键时,程序中判断,写
case key of
38 : Query1.prior;
40 : Query1.next;
5、程序重点是Edit1KeyPress事件,一般这么写
case key of
#13:回车,查询扫描码,dbgrid记录加1条;Edit1.text:='';
#38 : Query1.prior;Edit1.text:='';
#40 : Query1.next;Edit1.text:='';
#46 : 删除记录;Edit1.text:='';
#118:Query1.edit;
Query1.fieldbyname('数量').asinteger:=strtoint(Edit1.text);
Edit1.text:='';
#....你可以定义其他的功能键
end; 有问题探讨,可以[email protected]
这两天正在熬夜,过两天给各位大哥派分。谢谢关照。
这两天正在熬夜,过两天给各位大哥派分。谢谢关照。
如果只是识别就不要费心事了.
在InPrises.com上有现成的控件!!
kingsong(牛大锅)先生的最完全和明了。
当然也不会忘记大家的发言。
在这里一起谢过。
有事请来信:[email protected]