delphi中对单表进行查询，帮我看看应该怎么改！

Question

procedure Tkhxxcxfrom.BitBtn1Click(Sender: TObject);
var
datatemp,querystr:string;
begin
if radiobutton1.checked then datatemp:='company_name';
if radiobutton2.checked then datatemp:='corporation';
if checkbox1.Checked then
  datatemp:=datatemp+' like "'+edit3.Text+'%"'
  else datatemp:=datatemp+'="'+edit3.Text+'"';
querystr:='select company_name,login_id,login_fund,login_datetime,corporation,phone';
querystr:=querystr+'from client_manage ';
querystr:=querystr+'where    ';
querystr:=querystr+'and '+datatemp;
querystr:=querystr+'order by company_name';
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add(querystr);
dm.ADOQuery1.open;end;

Answer 1

procedure Tkhxxcxfrom.BitBtn1Click(Sender: TObject);
var
datatemp,querystr:string;
begin
if radiobutton1.checked then datatemp:='company_name';
if radiobutton2.checked then datatemp:='corporation';
if checkbox1.Checked then
  datatemp:=datatemp+' like'+''''+edit3.Text+'%'+''''
  else datatemp:=datatemp+'='+''''+edit3.Text+'''';
querystr:='select company_name,login_id,login_fund,login_datetime,corporation,phone  from client_manage where  '+datatemp;
querystr:=querystr+'and '+datatemp;
querystr:=querystr+'order by company_name';
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add(querystr);
dm.ADOQuery1.open;end;