RzComboBox下拉关联数据字典

最新推荐文章于 2024-04-26 15:18:27 发布

missingzlp

最新推荐文章于 2024-04-26 15:18:27 发布

阅读量456

点赞数

分类专栏： Delphi 文章标签： RzComboBox db字典

本文链接：https://blog.csdn.net/missingzlp/article/details/90709659

版权

Delphi 专栏收录该内容

36 篇文章 1 订阅

订阅专栏

procedure CreateList(RzComboBox: TRzComboBox; Field1, Field2, Table,
  condition: string; Flg: Boolean);
begin
  try
    with cdsSQL do
    begin
      Close;

      CommandText := ' select RTrim(' + Field1 + ')[a],RTrim(' + Field2 + ')[b] from ' + Table + '  ' + condition;
      Open;
      RzComboBox.Values.Clear;
      RzComboBox.Items.Clear;
      if Flg then
      begin
        RzComboBox.Values.Add('%');
        RzComboBox.Items.Add('全部');
      end;
      while not Eof do
      begin
        RzComboBox.Values.Add(FieldByName('a').AsString);
        RzComboBox.Items.Add(FieldByName('b').AsString);
        Next;
      end;
    end;
  finally

  end;
end;