function TForm1.checkmaxanamon2(value, _msaplanno: string): boolean;
var
query:Tadoquery;
begin
query := Tadoquery.Create(nil);
query.Connection:=ADOConnection1;
try
with query do begin
close;
sql.Clear;
sql.Text:='select max(anamon2) anamon2 from msa_plan_num_main where msaplanno='''+_msaplanno+''' or referno='''+_msaplanno+'''';
open;
end;
if(query.RecordCount<>0) then
begin
if(strtoint(value)<query.FieldByName('anamon2').AsInteger) then
result:=true
else
result:=false;
end
else
result:=false;
finally
query.Free;
end;
end;
动态创建Tadoquery