93 lines
3.7 KiB
VB.net
93 lines
3.7 KiB
VB.net
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.GUIs.Common
|
|
|
|
Public Class frmStart
|
|
Private LogConfig As LogConfig
|
|
Private Database As MSSQLServer
|
|
|
|
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
LogConfig = New LogConfig(New LogOptions With {
|
|
.LogPath = LogConfig.PathType.Temp,
|
|
.ProductName = "TestGUI",
|
|
.CompanyName = "Digital Data"
|
|
})
|
|
Database = New MSSQLServer(LogConfig, "Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd")
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
frmRelations.Show()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
frmLookup.Show()
|
|
End Sub
|
|
|
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
|
frmFilesystem.Show()
|
|
End Sub
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
|
Dim oScreen As New DigitalData.Modules.Windows.Screen()
|
|
|
|
MsgBox("Scaling: " & oScreen.GetScreenScaling(Me))
|
|
End Sub
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
frmChecksum.Show()
|
|
End Sub
|
|
|
|
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
|
frmDocView.Show()
|
|
End Sub
|
|
|
|
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click, Button8.Click
|
|
frmEmail.Show()
|
|
End Sub
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
Dim oForm As New frmSQLEditor(LogConfig, Database) With {
|
|
.SQLCommand = "SELECT * FROM TBDD_USER WHERE EMAIL = '{#USER#EMAIL}'",
|
|
.SQLConnection = 0,
|
|
.PlaceholdersAutomatic = New Dictionary(Of String, String) From {{"Testindex 1", "test 1"}, {"Testindex 2", "test 2"}},
|
|
.PlaceholdersAutomaticPrefix = "MAN",
|
|
.PlaceholdersWindream = New List(Of String) From {"String Index 1", "String Index 2"}
|
|
}
|
|
oForm.Show()
|
|
End Sub
|
|
|
|
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
|
|
Dim oForm As New frmMsgBox(LogConfig, Database)
|
|
oForm.Show()
|
|
End Sub
|
|
|
|
Private Sub btnObjectProperties_Click(sender As Object, e As EventArgs) Handles btnObjectProperties.Click
|
|
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 |