拥有下拉列表控件可以大大地加速软件系统的开发。
控件适用于DELPHI5及以上版本安装并使用。
控件的用法:
procedure Tfgoods.setUnit;
begin
YNDBSearch1.DataBinding.DataSource := DataSource1;
YNDBSearch1.DataBinding.DataField := ‘unitid‘;
YNDBSearch1.ListDataset := dmDB.cdsUnit;
YNDBSearch1.DataFieldID := ‘unitid=unitid‘;
YNDBSearch1.DataFieldName := ‘unitname=unitname‘;
YNDBSearch1.ListFields := ‘unitname,unitid‘;
YNDBSearch1.ListFieldsCN := ‘单位,编号‘;
end;
控件的实际运行效果图:
时间: 2024-11-06 22:50:08