myDac的控件TMyStoredProc的用法

zhgc

function TDataModule2.checkVersion: string;
begin
  with  SELF.PRO_CHECK_VERSION   do
  begin
     close;
     StoredProcName:='SFC.CHECK_AP_VERSION';
     preparesql;
     ParambyName('P_EXE').Asstring :=strExe;
     ParambyName('P_VERSION').Asstring :=strVersion;
     ParambyName('P_PATH').Asstring :=rightstr(strPath,150);
     try
       ExecProc;
       result:=ParambyName('RES').AsString;
     except
       on e:exception do
       begin
         result:=e.Message;
       end
     end;
     AgileLog.writelog('sessionstart: '+result);
  end;
end;