Question

delphi7中在DBGridEh中某一列是时间，怎么写代码，具体如图

录入时间怎么显示是包装条码扫描的时间。

Answer 1

在你那个扫描编辑框中的(键按下)换行键事件下
if （key=13）then
begin
U_sjmk.adosjzj4.Append;
U_sjmk.adosjzj4.FieldByName('条码').Value :=edit3.Text;
U_sjmk.adosjzj4.FieldByName('型号).Value :=edit23.Text;
U_sjmk.adosjzj4.FieldByName('数量').Value :=edit24.Text;
U_sjmk.adosjzj4.FieldByName('时间).Value :=date;
U_sjmk.adosjzj4.Post;
end;
在界面放几个EDIT组件,
写上述代码;
把U_sjmk.adosjzj4.换成你那个ADO组件的名称;
扫描qiang动作后,你那网格中就有数据了.

追问

出现这个错误：aqjs:cannot perform this operation on a closed daraset

代码太长，如图

追答

关闭了再去赋值,错的吧,真看不懂你的代码.

追问

大哥，看下这个，按照你的方法，图中aqjs是ADOQuery，这样运行时会报错：aqjs:Cannot perform this operation on a  closed dataset.或者可以加你QQ问吗？别嫌我烦就行，哈哈

 

追答

把你和我写的代码之间那个END；begin删除，在删除的位置上加上一句：aqjs.open;后再执行如何。

Answer 2

听不太懂你的问题，你是想问条码扫描同时把时间存到录入时间那个字段，是吧?如果是这样，你可以这样做，因为条码扫描枪扫描完会自动回车的，你可以判断回车键按下时（key=13）增加记录，把条码存进数据库，同时把当前时间存入，就可以了