68 lines
2.6 KiB
VB.net
68 lines
2.6 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
|
|
End Class |