rtgit/RtTool
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

添加系统报表配置

Browse Source
This commit is contained in:
ddf 2025-04-18 10:31:02 +08:00
parent e3b43055a9
commit d74dbaaa9f
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
View File

@ -20,8 +20,32 @@ function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PC
function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
implementation
function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
var
FileName, MReport: string;
programIni: Tinifile; //配置文件名
JsonResult: PChar;
begin
FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
programIni := Tinifile.create(FileName);
MReport := programIni.ReadString('窗口设置', '报表窗体', '0');
programIni.Free;
if MReport = '0' then
begin
JsonResult := FromPrintFr3(App, DataBaseStr, JsonArgs);
end
else
begin
JsonResult := FromPrintRmf(App, DataBaseStr, JsonArgs);
end;
Result := JsonResult;
end;
function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
type
TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;