新增如下命令：

SetRecord
GetReocrd
CombindRecord

AUTS_DataService/Service1.vb

@@ -1439,8 +1439,6 @@ Public Class Service1
             _license = New License(licensePath)
             _license.CheckLicense()
 
-            UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"License Info:{JsonConvert.SerializeObject(_license, Formatting.Indented)}.")
-
             UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"CheckLicense Success.")
         Catch ex As Exception
             UTS_Core.DebugLog.ApplicationLog.WriteErrorLog($"CheckLicense Error:{ex.Message}.")
@@ -1460,8 +1458,6 @@ Public Class Service1
 
         Dim packet() As Byte = _webPacker.FillPacket(CByte(UtsWebPacket.Commands.UploadTaskStatus), param.ToArray)
         SendDataToWeb(_webUdpClient.Client, _webRemoteIP, packet)
-
-        ServiceLog.WriteDebugLog($"UploadAddTask :{JsonConvert.SerializeObject(task)}")
     End Sub
 
     ''' <summary>

AUTS_DataService/ServiceTask/DbSynchronizer.vb

@@ -61,8 +61,6 @@ Public Class DbSynchronizer
     ''' 同步数据库，开始同步
     ''' </summary>
     Public Sub SyncDatabase()
-        ServiceLog.WriteDebugLog($"RemoteConnString:{Parameters.RemoteConnString} LocalConnString:{Parameters.LocalConnString}")
-
         Using remoteDb As New DbExecutor(Parameters.RemoteType, Parameters.RemoteConnString)
             remoteDb.Open()