一个执行SQL的函数。

                            function  sqlexec(Qry:tadoquery;UsrErrMsg:string;Exectype:smallint):boolean;
begin
   result:=false;
   try
      if (Exectype=0) and (qry.Active=true) then qry.Active:=false;
      if Exectype=0 then qry.Open;
      if Exectype=1 then qry.ExecSQL;
      if Exectype=2 then qry.Requery();
      result:=true;
   except
      on e:exception do
      begin
         qry.Close;
         application.MessageBox(pchar(UsrErrMsg+#13+#13+e.Message),'错误信息',16);
      end;
   end;
end;

                                

查看回复