标题: myDac的控件TMyStoredProc的用法 [打印本页] 作者: zhgc 时间: 2021-5-24 00:34 标题: myDac的控件TMyStoredProc的用法 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;