97 lines
3.4 KiB
VB.net
97 lines
3.4 KiB
VB.net
|
Imports System.Text
|
|||
|
|
Imports UTS_Core.Database.DbExecutor
|
|||
|
|
Imports UTS_Core.UTSModule.Service
|
|||
|
|
|
|||
|
|
Public Class FrmSyncTasks
|
|||
|
|
Implements ITaskForm
|
|||
|
|
|
|||
|
|
Public Property DbType() As DbTypeEnum = DbTypeEnum.Sqlite
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 显示窗体
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="parentControl">把本窗体打包放在其他容器内</param>
|
|||
|
|
Public Sub ShowForm(parentControl As Control) Implements ITaskForm.ShowForm
|
|||
|
|
FormBorderStyle = FormBorderStyle.None
|
|||
|
|
TopLevel = False
|
|||
|
|
Dock = DockStyle.Fill
|
|||
|
|
Parent = parentControl
|
|||
|
|
|
|||
|
|
Show()
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Private Sub FrmSyncTasks_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|||
|
|
TBoTasksType.Text = ServiceTask.ServiceTaskTypeEnum.DbSync.ToString()
|
|||
|
|
|
|||
|
|
CboDbTypeName.DropDownStyle = ComboBoxStyle.DropDownList
|
|||
|
|
CboDbTypeName.Items.Clear()
|
|||
|
|
CboDbTypeName.Items.Add(DbTypeEnum.Mysql.ToString())
|
|||
|
|
CboDbTypeName.Items.Add(DbTypeEnum.Sqlite.ToString())
|
|||
|
|
|
|||
|
|
If CboDbTypeName.Items.Count > DbType Then
|
|||
|
|
CboDbTypeName.SelectedIndex = DbType
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 根据类型不同，快速生成ConnJsonString
|
|||
|
|
''' </summary>
|
|||
|
|
''' <param name="sender"></param>
|
|||
|
|
''' <param name="e"></param>
|
|||
|
|
Private Sub BtnRapidGenerating_Click(sender As Object, e As EventArgs) Handles BtnRapidGenerating.Click
|
|||
|
|
TBoConnStringSync.Text = RapidGenerating()
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
''' <summary>
|
|||
|
|
''' 快捷生成数据库连接字符串
|
|||
|
|
''' </summary>
|
|||
|
|
''' <returns></returns>
|
|||
|
|
Private Function RapidGenerating() As String
|
|||
|
|
Dim connStr As New StringBuilder
|
|||
|
|
FrmTasksDbType.DbType = DbType
|
|||
|
|
If FrmTasksDbType.ShowDialog = DialogResult.OK Then
|
|||
|
|
connStr.Append(FrmTasksDbType.ConnectionParam.ToString())
|
|||
|
|
connStr = connStr.Replace("\", "/")
|
|||
|
|
End If
|
|||
|
|
|
|||
|
|
Return UTS_Core.Security.Aes128.EncryptStr(connStr.ToString, UTS_Core.Security.Aes128.ServerAesKey)
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
|
|||
|
|
Public Sub SetParam(params As Dictionary(Of String, String)) Implements ITaskForm.SetParam
|
|||
|
|
For Each param As KeyValuePair(Of String, String) In params
|
|||
|
|
Select Case param.Key
|
|||
|
|
Case "Name"
|
|||
|
|
TBoTasksName.Text = param.Value
|
|||
|
|
Case "Interval"
|
|||
|
|
NudTasksInterval.Value = CInt(param.Value)
|
|||
|
|
Case "LocalDbType"
|
|||
|
|
CboDbTypeName.SelectedIndex = CInt([Enum].Parse(GetType(DbTypeEnum), param.Value))
|
|||
|
|
Case "LocalConnString"
|
|||
|
|
TBoConnStringSync.Text = param.Value
|
|||
|
|
End Select
|
|||
|
|
Next
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
Public Function GetParams() As Dictionary(Of String, String) Implements ITaskForm.GetParams
|
|||
|
|
Dim jsonParam As New Dictionary(Of String, String)
|
|||
|
|
jsonParam.Clear()
|
|||
|
|
jsonParam.Add("Type", TBoTasksType.Text)
|
|||
|
|
jsonParam.Add("Name", TBoTasksName.Text)
|
|||
|
|
jsonParam.Add("Interval", NudTasksInterval.Value.ToString)
|
|||
|
|
jsonParam.Add("LocalDbType", CboDbTypeName.Text)
|
|||
|
|
jsonParam.Add("LocalConnString", TBoConnStringSync.Text)
|
|||
|
|
Return jsonParam
|
|||
|
|
End Function
|
|||
|
|
|
|||
|
|
Private Sub CboDbTypeName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboDbTypeName.SelectedIndexChanged
|
|||
|
|
DbType = CType([Enum].Parse(GetType(DbTypeEnum), CboDbTypeName.SelectedIndex.ToString()), DbTypeEnum)
|
|||
|
|
TBoConnStringSync.Text = String.Empty
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|