动态SQL:procedure btnLoginClick(Sender: TObject); begin if (edtUID.Text<>'')and(edtPWD.Text<>'') then begin //此处校验登录信息有效性 end; //如果通过校验 ADOQuery.Active:= false; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select * From '''+edtUID.Text+'''');//此处为动态SQL。 ADOQuery.Active:= true; end;
begin
if (edtUID.Text<>'')and(edtPWD.Text<>'') then
begin
//此处校验登录信息有效性
end;
//如果通过校验
ADOQuery.Active:= false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From '''+edtUID.Text+'''');//此处为动态SQL。
ADOQuery.Active:= true;
end;