AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

EDMIService: Fix replacing tables

Browse Source
This commit is contained in:
Jonathan Jenne
2020-12-14 11:20:19 +01:00
parent 39f4cc5152
commit 16193b08cf
3 changed files with 56 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
GUIs.Test.TestGUI/frmRelations.Designer.vb generated
View File

@@ -22,16 +22,29 @@ Partial Class frmRelations
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'frmRelations
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.Button1)
Me.Name = "frmRelations"
Me.Text = "frmRelations"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Button1 As Button
End Class

14
GUIs.Test.TestGUI/frmRelations.vb
View File

@@ -5,6 +5,9 @@ Imports DigitalData.Services.EDMIService
Public Class frmRelations
Private DB As MSSQLServer
Private LogConfig As LogConfig
Private JobResult As JobResult
Private JobListener As JobListener
Private DetailRow As DataRow
Private Sub frmRelations_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Application.StartupPath)
@@ -18,13 +21,18 @@ Public Class frmRelations
oGroupUser.TableName = "TBDD_GROUPS_USER"
Dim oCronDetails As DataTable = DB.GetDatatable("SELECT * FROM TBAPPSERV_CRON_DETAIL WHERE DT_NAME = 'TBDD_USER'")
JobListener = New JobListener(LogConfig, DB, oDataSet)
Dim oListener As New DigitalData.Services.EDMIService.JobListener(LogConfig, DB, oDataSet)
oListener.SaveDataTables(New DigitalData.Services.EDMIService.JobResult() With {
DetailRow = oCronDetails.Rows.Item(0)
JobResult = New JobResult() With {
.Table = oUsers,
.TableRelationColumn = "GUID",
.ChildTable = oGroupUser,
.ChildRelationColumn = "USER_ID"
}, oCronDetails.Rows.Item(0))
}
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
JobListener.SaveDataTables(JobResult, DetailRow)
End Sub
End Class