init lserp cs 5.0

2026-07-10 15:25:05 +08:00
commit 90f3fda86a
3799 changed files with 976868 additions and 0 deletions
@@ -0,0 +1,40 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+using System.Runtime.CompilerServices;
+using System.Runtime.InteropServices;
+
+namespace CommonLib
+{
+    /// <summary>
+    /// 这个是作为注册为com组建被delphi调用的接口（可以根据具体情况公开更多接口）
+    /// </summary>
+    [ComVisible(true)]
+    [Guid("95A30152-9085-44DD-AC95-2CCECC371189")]
+    public interface ICommonLibCom
+    {
+        void FrmTestClientShow();
+        string EncryptPassword(string strPassword);
+    }
+
+    /// <summary>
+    /// 这个是作为注册为com组建被delphi调用的接口实现
+    /// </summary>
+    [ComVisible(true)]
+    [Guid("21D57389-35EA-4914-B89F-8BA900639497")]
+    [ProgId("CommonLib.CommonLibCom")]
+    public class CommonLibCom : ICommonLibCom
+    {
+        public string EncryptPassword(string strPassword)
+        {
+            return PubUtil.EncryptPassword(strPassword);
+        }
+
+        public void FrmTestClientShow()
+        {
+            test.FrmTestClient frm = new test.FrmTestClient();
+            frm.ShowDialog();
+            frm = null;
+        }
+    }
+}