TSmartDBLookupComboBox使用

 TSmartDBLookupComboBox使用

常用设定

                //编辑DataSet信息
                DataBinding.DataField = 'ClassID'
                DataBinding.DataSource = sMaster
                DataBinding.DisplayField = 'aClassName'

                //关联字段
                Properties.KeyFieldNames = 'ID'

                //显示的字段Properties->ListColumns
                Properties.ListColumns = <
                  item
                    FieldName = 'ClassNo'
                  end
                  item
                    FieldName = 'ClassName'
                  end>

                //选中后显示哪列的资料 
                Properties.ListFieldIndex = 1

                //不显示列头
                Properties.ListOptions.ShowHeader = False

                //备选记录的Sql语句
                Properties.ListCommandText =
                  'select ID, ClassNo, ClassName from pub_CustClass where Flag = 1 ' +
                  'order by ClassNo'

                //选中后赋值的字段对应列表
                Properties.SetFields = 'ClassID=ID,'#13#10'aClassName=ClassName'