作者学习Delphi的开发环境:
Win10
MSSQL2014
Delphi XE 10.1 Update 2
一、ADOQuery查找字段,实现多字段更新。(只用ADOQuery查找字段的话下拉列表只有一列)
1、双击ADOQuery1
2、右键-New field
3、网上的教材多只介绍到单字段的更新,没有介绍到多字段的更新,多字段的更新要点在于用lookup keys中的字段更新key fields中的字段时,多个字段用“ ; ”号隔开。
二、cxGrid中对查找字段配置LookupComboBox属性,实现多字段更新。(下拉列表可以有多列)
然后在OnEditValueChanged事件中执行代码。(备注:OnCloseUp事件是指下拉列表收起的事件)
procedure TForm1.cxGrid1DBTableView1RecordNamePropertiesEditValueChanged( Sender: TObject);
begin
//更新时一定要有顺序才行,第一个字段要是DataBinding中的FieldName字段,要不然会变回原来的值。ADOQuery3为下拉列表数据集。
ADOQuery1.FieldByName(‘RecordName’).Value:=ADOQuery3.FieldByName(‘材质’).Value ;
ADOQuery1.FieldByName(‘ModelName’).Value:=ADOQuery3.FieldByName(‘编号’).Value ;
end;
三、ADOQuery查找字段 + cxGrid中对查找字段配置LookupComboBox属性。
在方法一的基础上,对方法一新增的查找字段TEST配置LookupComboBox属性。
Properties中不需要设置ListSource,只需要设置ListFiledNames即可,KeyFieldNames中会自动带出查找字段TEST的LookupKeyFields字段。这就是为什么Properties中KeyFieldNames会带‘s’的原因了。
本教程缘起:
初学习Delphi,想要实现在从表中用下拉方式做单,选择数据后可以将下拉列表数据集中的多个字段信息带到从表中(注:下拉列表数据集中的字段,有的并没有显示在下拉列表中)。
刚开始遇到的难点:
直接通过cxGrid的LookupComboBox属性中的ONEditValueChanged事件,用LookupComboBox中的ListSource对应的数据集对从表的数据集进行修改,但ONEditValueChanged事件中只要修改从表数据集,LookupComboBox字段值就会变回原来的值。
如果不配置LookupComboBox中的KeyFieldNames属性,可以用LookupComboBox中的ListSource对应的数据集对从表的数据集进行修改,但是LookupComboBox字段没有值,也不行。
(注:后面试探出来了,更新时一定要有顺序才行)
网上搜索了大量信息没有找到要点。这个问题困扰了好些日子,通过摸索发现了下拉列表多字段更新的三种方式,故分享出来,希望对大家有所利益。尤其是新学Delphi的朋友,因为高手肯定知道,只不过高手展现给新手的宝贵资料不多。可能是懒得整理。