增加文档目录

文档目录中加入每月改善计划

AUTS_ServiceControler/ServiceRegister.vb

@@ -83,9 +83,13 @@ Public Class ServiceRegister
 
     ''' <summary>
     ''' 注册服务返回注册服务的索引
+    ''' Momo 2024-04-05 Service ID 由 ProcessorID + AlisaName 构成，从Service Controller 传参传过来
     ''' </summary>
-    Public Sub RegisterService()
+    Public Sub RegisterService(Optional AlisaName As String = "")
         '增加服务记录
+        'Momo 2024-04-05 Service ID 由 ProcessorID + AlisaName 构成，从Service Controller 传参传过来
+        _cpuId = _cpuId & "-" & AlisaName
+
         Dim filed As New Dictionary(Of String, String) From {
             {$"{DataServiceListTable.ColNames.LicenseID}", LicenseID},
             {$"{DataServiceListTable.ColNames.CompanyName}", VendorName},
@@ -106,6 +110,7 @@ Public Class ServiceRegister
 
         Dim tableName As String = DataServiceListTable.TableName
         Dim colName As String = $"{DataServiceListTable.ColNames.ID}"
+
         Dim condition As String = $"`{DataServiceListTable.ColNames.ProcessorId}` = '{_cpuId}'"
 
         Dim sid As Integer