0

使用德尔福 XE2。

我有一个数据库软件包，可以将表中的记录显示到 cxgrid 上。我已经实现了一个过滤器按钮，单击它允许用户使用特定记录搜索结果。At the moment it only works when 1 of the records is selected, it doesn't like it when more than one of the filter records is selected, it displays the following error....'syntax error or access violation: near 'and '在...[和]'。以下代码是我在单击过滤器按钮时正在执行的操作。

任何帮助将非常感激。

begin
  with dmData.aQry do
begin
  Close;
  SQL.Clear;
  SQL.Text:= ('select * from DBA.RECORDS');
  if dbluCaseCategory.Text <> '' then SQL.Add('where category_type like :category_type');
  if dbluSubCategory.Text <> '' then SQL.Add('and sub_cat_type like :sub_cat_type');
  if dbluCustomer.Text <> '' then SQL.Add('and customer_name like :customer_name');
  if dbluUsername.Text <> '' then SQL.Add('and created_by_user like :created_by_user');
  if cxStartDateEdit.Text <> '' then SQL.Add('and logged_dt like :logged_dt');

  if dbluCaseCategory.Text <> '' then ParamByName('category_type').Value := dbluCaseCategory.Text +'%';
  if dbluSubCategory.Text <> '' then ParamByName('sub_cat_type').Value := dbluSubCategory.Text +'%';
  if dbluCustomer.Text <> '' then ParamByName('customer_name').Value := dbluCustomer.Text +'%';
  if dbluUsername.Text <> '' then ParamByName('created_by_user').Value := dbluUsername.Text +'%';
  if cxStartDateEdit.Text <> '' then ParamByName('logged_dt').Value := cxStartDateEdit.Text +'%';
  Open;
end;
  Close;
end;
4

1 回答 1

1

您的代码仅在包含第一个过滤器 (dblCaseCategory.Text) 时才有效，因为您where仅在该部分添加句子。所以如果你不传递任何值到 dbluCaseCategory最后的 SQL 语句将是无效的。为了解决这个问题，只需Where 1=1在第一句话中添加一个。像这样。

  with dmData.aQry do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from DBA.RECORDS Where 1=1');
    if dbluCaseCategory.Text <> '' then SQL.Add('and category_type like :category_type');
    if dbluSubCategory.Text <> '' then SQL.Add('and sub_cat_type like :sub_cat_type');
    if dbluCustomer.Text <> '' then SQL.Add('and customer_name like :customer_name');
    if dbluUsername.Text <> '' then SQL.Add('and created_by_user like :created_by_user');
    if cxStartDateEdit.Text <> '' then SQL.Add('and logged_dt like :logged_dt');

    if dbluCaseCategory.Text <> '' then ParamByName('category_type').Value := dbluCaseCategory.Text +'%';
    if dbluSubCategory.Text <> '' then ParamByName('sub_cat_type').Value := dbluSubCategory.Text +'%';
    if dbluCustomer.Text <> '' then ParamByName('customer_name').Value := dbluCustomer.Text +'%';
    if dbluUsername.Text <> '' then ParamByName('created_by_user').Value := dbluUsername.Text +'%';
    if cxStartDateEdit.Text <> '' then ParamByName('logged_dt').Value := cxStartDateEdit.Text +'%';
    Open;
于 2015-03-16T19:59:22.937 回答