提交当前本机整理版本

2026-07-02 10:11:39 +00:00
parent c10a5d64c7
commit aacefa24f8
822 changed files with 196665 additions and 14263 deletions
@@ -760,4 +760,31 @@ namespace Lskj.Notice
        /// <para>修改备注：</para>
        /// <para>版本：1.0</para>
        /// </summary>
-        private v
+        private void SetDelphiDllParams()
+        {
+            try
+            {
+                StringBuilder sb1 = new StringBuilder();
+                sb1.Append(ERPInfo.Instance.UserName);
+
+                StringBuilder sb2 = new StringBuilder();
+                sb2.Append(ERPInfo.Instance.WindowName);
+
+                StringBuilder sb3 = new StringBuilder();
+                sb3.Append(ERPInfo.Instance.SkinName);
+
+                //给delphi库设置参数(用户id、子系统id、操作员名称、计算机名称)
+                DelphiHelper.Delphi_SetParams(Convert.ToInt32(ERPInfo.Instance.UserId), Convert.ToInt32(ERPInfo.Instance.SubSysId), sb1, sb2, sb3);
+            }
+            catch (Exception ex)
+            {
+                string Message = ErrorMessage.PromptErrorMessage(ex);
+                MessageUtil.Show(Message, ex.Message);
+                LogHelper.Instance.WriteError(ex);
+                //LogUtil.WriteError("设置delphi参数错误", ex);
+            }
+        }
+
+
+    }
+}