各位:
DBLookupComboBox只提供了DropDownList模式而没有提供DropDown模式,是为了
数据参考的一致性。要实现DropDown模式很简单,如前所说:
1〉DBLookupComboBox上覆盖一个DBEdit,二者数据同源;
2〉DBEdit的KeyPress事件:if key = #13 then DBLookupComboBox.KeyValue:=DBEdit.Text;
保持与DBLookupComboBox与Table同步。
试试看,完全实现了DropDown模式的功能!根本不需要改源码或第三方控件。
>>yingjuan
要实现你的要求,用类似的方法,也很简单,DBLookupComboBox内置了Table的
查询功能,甚至不需要索引。
1〉DBLookupComboBox上覆盖一个“Edit”;
2〉DBLookupComboBox的Click事件:DBEdit.Text:=DBLookupComboBox.KeyValue;
3〉Edit的KeyPress事件:
if key =#13 then
begin
DBLookupComboBox1.KeyValue:=edit1.text;
if DBLookupComboBox1.Text='' then
if trim(edit1.Text)<>'' then
insert 记录;
end;
4〉效果:edit中输入已经存在的记录(如部门),自动查询定位。输入不存在的记录
自动插入;
5〉DBLookupComboBox内置的是精确查询,稍作修改,加入模糊查询代码,效果会很不错!