Revert "MS"

This reverts commit 50b69e5d88.
This commit is contained in:
Jonathan Jenne
2022-11-08 08:38:20 +01:00
parent 90ec7b70ab
commit 456a729f46
36 changed files with 2314 additions and 5169 deletions

View File

@@ -65,29 +65,4 @@ Public Class frmStart
Dim oForm As New frmObjectProperties(LogConfig, Database)
oForm.ShowDialog()
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim oClient = New DigitalData.Modules.EDMI.API.Client(LogConfig, "172.24.12.39:9000")
oClient.Connect()
Dim oEnv = New DigitalData.Modules.ZooFlow.Environment()
oEnv.Service.Client = oClient
oEnv.Database = Database
Dim oTable As New DataTable
oTable.Columns.AddRange(New List(Of DataColumn) From {
New DataColumn("GUID", GetType(Integer)),
New DataColumn("TITLE"),
New DataColumn("DISPLAY_TYPE"),
New DataColumn("MSG_STRING"),
New DataColumn("VALIDATE_READ", GetType(Boolean))
}.ToArray)
oTable.Rows.Add("1", "Public Service Announcement", "MESSAGE", "This is an Important Message from the Management!", 1)
oTable.Rows.Add("2", "Public Service Announcement", "MESSAGE", "This is another Important Message from the Management!", 0)
oTable.AcceptChanges()
Dim oForm As New frmNotification_Startup(oTable, LogConfig, "", "Test Notification", oEnv)
oForm.Show()
End Sub
End Class