2,507
社区成员




if length(trim(UserName))<>0 then
begin
..........
end
Query:=TADOQuery.create(nil);//正确
try
Query.Connection:=dmData.ADOCon;//正确
Query.SQL.Add('delete from Operator where UserName='+QuotedStr(UserName));
Query.ExecSQL ;//执行时报错
Query.close;
finally
Query.Free;
end