如何实现在edit中输入简码后出现提示窗体,可以从提示窗体中选择内容 比如在输入框输入产品名称中,我想选择鳄鱼皮鞋,我只是输入‘EYPX’(这个自己定义,数据库中) 就可以出现一个提示窗口,我可以从提示窗口选择我想要的纪录,回车后选择的纪录填充到输入框。提示的数据都是从数据库中选取。多谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Edit的onChange事件查询数据库,预先做一个记录窗体,查到数据就显示窗体,窗体上可以放一个DBGrid,双击记录填充原窗体的内容框,关闭当前窗体。 定义一个FormDialog窗体添加一个FType相当于返回的鳄鱼皮鞋,重载这个窗体的构造函数constructor Create(AOwner:TComponent;AType:string);//AType相当于你的EYPX//下面的代码放到哪里根据你的需要了,我觉着放到onkeypress里比较好with TFormDialog.Create(Owner,aType) dobegin showmodal; edit1.text:=FType; destroy;end; Edit的onChange事件查询数据库窗口上放一个grid控件,可以先隐藏,等输完后,有查询结果后再显示,双击记录,再隐藏控件 我老大说,永远不要直接调用 destroy 而应该用 Free 高分请教如何实现旋转当前窗口及桌面任意角度? ACCESS查询中如何分段取数字? 请教delphi调用网页函数的问题 SQL问题:如何把一条记录插入到表结尾处 百分求助!有关FastReport的DataSets(数据字典)的问题,THANKS! Chart小问题 TWebConnection调用QueryInterface总是失败,时机制原因,还是用法有误? ClientDataSet数据导入问题 调用外部程序 请教如何做一个按钮可以加到开发环境的工具条中....(急救) 焓熵值 Report Machine 如何修改BarCode的宽度???
constructor Create(AOwner:TComponent;AType:string);//AType相当于你的EYPX
//下面的代码放到哪里根据你的需要了,我觉着放到onkeypress里比较好
with TFormDialog.Create(Owner,aType) do
begin
showmodal;
edit1.text:=FType;
destroy;
end;
窗口上放一个grid控件,可以先隐藏,等输完后,有查询结果后再显示,双击记录,再隐藏控件