我创建了一个程序上面有,edit1.text,edit2.text,edit3,text,edit4.texe, 请问如何在edit1.text 中输入编号后,把该编号其它数据显示在edit2,edit3,edit4,请高手指点~!
解决方案 »
- 如何使直线旋转任意角度后不产生锯齿或波浪
- 急求关于写ini文件和写文本文件的问题
- fsMDIChild窗体调用fsMDIChild窗体里dbgrid上的数据,在返回时会出错!是怎么回事呀!大哥救救命呀!在线急等中!!
- 指针,头都大了?
- 请问:现在有用DELPHI搞WEB网站吗?
- 我做了一个COM组件.可是每次注册后又发现有不对的地方.想要再次修改重新编译时.却通不过.只好重启.(regsrv32 -u我用过)帮忙....谢谢...
- 怎么在Delphi环境下对Access数据库设置密码?
- 关于改变默认打印机的问题!
- 怎样在QuickReport Preview时的“打印”按钮按下时,根据某个值判断是否能打印。写在哪个事件中呢?谢谢
- 查看菜单中的文件夹选项打不开,请帮忙!!
- delphi向页面插入值。
- delphi控制页面
OnExit事件写上
if Query.Locate('Field',edit1.text,[]) then
begin
edit2.text := Query.FieldByName('').Astring;
.....
end;
要根据输入的编号找到其对应字段的数据直接用'select * from 表名 where 编号='+edit1.text语句查询就行了,查到后把对应的字段值输出到其它文本框;根据输入内容的改变实时查询的话在文本框内容改变的事件里触发就行了。
with adoquery1 do
begin
close;
sql.text:='select * from t';
open;
end;edit1的onChagne事件写上:
if adoquery1.locate('id',edti1.text,[]) then
begin
edit2.text:=adoquery1.fieldbyname('id2').asstring;
edit3.text:=adoquery1.fieldbyname('id3').asstring;
...
end else
begin
edit2.text:='';
edit3.text:='';
...
end;