条件语句：如果数据库表“abc”的某列中含有TEdit1控件的内容，那么条件触发。。。。。！！！！

Question

 数据库表名“abc”。
该数据库有3列：
1）如果第一列字段“king0”中里的若干记录中有和Edit1控件内容一致，那么Edit5.visible：=true；Edit6.visible：=true。
2）如果第二列字段“king1”中里的若干记录中有和Edit1控件内容一致，那么Edit7.visible：=true；Edit8.visible：=true。
3）如果第三列字段“king2”中里的若干记录中有和Edit1控件内容一致，那么Edit9.visible：=true；Edit10.visible：=true。
请问怎么写？

Answer 1

  with adoquery1 do begin
    close;
    sql.Clear;
    sql.Text := 'select * from abc where king0 =:Et1';
    Parameters.ParamByName('Et1').Value := Trim(Edit1.Text);
    open;
    if RecordCount > 0 then begin
      Edit5.Visible := True;
      Edit6.Visible := True;
    end;    close;
    sql.Clear;
    sql.Text := 'select * from abc where king1 =:Et1';
    Parameters.ParamByName('Et1').Value := Trim(Edit1.Text);
    open;
    if RecordCount > 0 then begin
      Edit7.Visible := True;
      Edit8.Visible := True;
    end;    close;
    sql.Clear;
    sql.Text := 'select * from abc where king2 =:Et1';
    Parameters.ParamByName('Et1').Value := Trim(Edit1.Text);
    open;
    if RecordCount > 0 then begin
      Edit9.Visible := True;
      Edit10.Visible := True;
    end;
  end;