diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
index 5a1fb0a..2e2a213 100644
--- a/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/ThreeFun/Fun/U_RPFun.pas
@@ -18,6 +18,8 @@ function FromPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): P
 
 function FunPrintFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 
+function FromShowFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+
 function FromPrintRmf(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
 
 function FromPrintReport(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
@@ -46,6 +48,36 @@ begin
   Result := JsonResult;
 end;
 
+function FromShowFr3(App: Tapplication; DataBaseStr: PChar; JsonArgs: PChar): PChar;
+type
+  TMyFunc = function(App: Tapplication; FormID: integer; Title: PChar; DataBaseStr: PChar; JsonArgs: PChar): PChar; stdcall;
+var
+  Tf: TMyFunc;
+  Tp: TFarProc;
+  Th: Thandle;
+  JsonResult: PChar;
+begin
+  Th := LoadLibrary('ReportPrint.dll');
+  if Th > 0 then
+  begin
+    Tp := GetProcAddress(Th, 'GetDllForm');
+    if Tp <> nil then
+    begin
+      Tf := TMyFunc(Tp);
+      JsonResult := Tf(Application, 13, 'FR3����', DataBaseStr, JsonArgs);
+    end
+    else
+    begin
+      JsonResult := '{"succsee":false,"message": "��ȡ���ú��쳣"}';
+    end;
+  end
+  else
+  begin
+    JsonResult := '{"succsee":false,"message": "�Ҳ���ReportPrint.dll"}';
+  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;
diff --git a/Delphi10/系统文件/客户终端/ReportPrint.dll b/Delphi10/系统文件/客户终端/ReportPrint.dll
index afed492..13ca5e0 100644
Binary files a/Delphi10/系统文件/客户终端/ReportPrint.dll and b/Delphi10/系统文件/客户终端/ReportPrint.dll differ
diff --git a/Delphi7/系统文件/演示终端/RTYS.exe b/Delphi7/系统文件/演示终端/RTYS.exe
index de3db54..9b3964f 100644
Binary files a/Delphi7/系统文件/演示终端/RTYS.exe and b/Delphi7/系统文件/演示终端/RTYS.exe differ
diff --git a/Delphi7/系统文件/演示终端/SYSTEMSET.ini b/Delphi7/系统文件/演示终端/SYSTEMSET.ini
index 11c7168..78a8523 100644
--- a/Delphi7/系统文件/演示终端/SYSTEMSET.ini
+++ b/Delphi7/系统文件/演示终端/SYSTEMSET.ini
@@ -1,6 +1,6 @@
 [SERVER]
-��������ַ=101.132.143.144
-���ݿ�����=ysyishudata
+��������ַ=121.41.15.99
+���ݿ�����=YSFhKelong
 �Ƿ��Զ�����=1
-��������=��ʾ����
+��������=��ʾ����