关键是在哪儿写代码 如何得到输入的编码 请帮帮我这个菜鸟吧 分不够我会再加的....谢谢各位了 着急啊
解决方案 »
- 用report machine打印自定义纸张时,不能自动出纸?
- 如何把图片变灰色,然后在指定区域还原颜色
- 打到小日本,支持大罢工(深圳),大去看看
- ADOstoredproc问题?????
- 如何给一个ActiveX dll中的一个wideString型的属性赋值
- 如何解决TStringGrid单元格闪烁不停的问题?
- 今天 很高兴的辞职,意气风发、满怀信心转向医疗信息系统开发
- 只有.dcu文件的控件如何安装?
- 再问:**** 多表联合查询SQL该怎么写(详情请进,高分求解) ****
- 在安装Delphi5的pack2是,让我首先安装pack1,但我在borland网站好像没有找到pack1,那位可以指点一下。
- 在线等,达人给个帮助.如何手动取消dbgriedh自动添加的行.
- 用录音笔录下的文件在delphi里怎么播放
输入编码后 回车 自动显示名称 数量 单价等数据 并且自动新增一行 .
按向上键可以编辑刚才输入的那行 可以编辑数量 单价等.CXGRID来实现的
if (ord(key)=13 and CXGrid1.SelectIndex=0) then
begin
//关联CxGrid1的查询假如为query1,mc,sl,dj分别为名称、数量、单价的字段名称
//下面的代码只是个引子,你的肯定比这复杂,要有一个取值的过程
query1.fieldByName('mc').AsString:='阿莫西林';
query1.fieldByName('sl').AsInteger:=10;
query1.fieldByName('dj').AsFloat:=0.2;
//定位下一列,我写的定位到第5列
CXGrid1.SelectIndex:=4;
end;
//最后一列输入回车自动提交并添加一行数据
if (ord(key)=13 and CXGrid1.SelectIndex=4) then
begin
//
query1.post;
query1.append;
end;上面的代码只是一个引子,希望你能从中得到你想要处理问题的思路
可以不写代码。