我的窗口中有两个edit控件,edit1是用来输入员工编号的,edit2是用来显示员工姓名的,现在要实现的就是在edit1中输入员工编号后edit2中会自动显示员工姓名,如果edit1中输入的编号在表yg6中不存在回车后要清空edit1中的内容,请问代码怎么写?
(edit1和edit2的内容在yg6表已经有了分别对应表中的bh和xm字段),我用的是sql库,用adoquery连接.不知道大家能不能明白我要表达的意思,(一定要用edit控件)
(edit1和edit2的内容在yg6表已经有了分别对应表中的bh和xm字段),我用的是sql库,用adoquery连接.不知道大家能不能明白我要表达的意思,(一定要用edit控件)
解决方案 »
- windows7 delphi7
- delphi 接收
- 怎么看一个控件的源码啊 步骤是什么?
- 各位老大,偶菜的无比,传送文件的问题。。
- 简单问题,送分!!
- 如何将数据进行异地传输(急!!!)
- 数据的为什么不可以更新?
- 关于Midas发布的问题:在我的机器上运行正常,在其他的电脑上就说什么ole错误(我用installShield自动搜索过dll..)请问到底应该怎样配置?
- 请教各位大哥QUICKREPORT的预览中总页数为什么会不停的增长?
- 请问在delphi中怎样实现vfp中的when事件
- 我想把一些数据保存到一个加密的存储过程再在程序中取出返回值,不知如何取?
- Combobox读取ini文件
代码负责更具Edit1.text 的内容在yg6里面找到相应的 姓名,
然后显示在 Edit2里面比如 OnExit 写事件
try
Edit1.Text:= Trim(Edit1.Text);
if Edit1.Text <> '' then begin
Edit2.Clear;
ADOQuery.SQL.Text:= 'select [name] from yg6 where [id]=:id';
ADOQuery.Parameters[0].Value:= StrToInt(Edit1.Text);
ADOQuery.Open;
if Not(ADOQuery.IsEmpty)then
Edit2.Text:= ADOQuery.Fields[0].AsString;
ADOQuery.Close;
end
except
end;
没调试过,仅供参考