61 lines
2.2 KiB
VB.net
61 lines
2.2 KiB
VB.net
Imports System.Diagnostics.Eventing.Reader
|
|
Imports DigitalData.Modules.Config
|
|
Imports DigitalData.Modules.Database
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Base
|
|
|
|
Public Class frmMain
|
|
Private LogConfig As LogConfig
|
|
Private Logger As Logger
|
|
Private Database As MSSQLServer
|
|
Private ConfigManager As ConfigManager(Of Config)
|
|
Private DbConfig As DbConfig
|
|
|
|
Private UserId As Integer = 0
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim oLogPath = IO.Path.Combine(Application.LocalUserAppDataPath, "Log")
|
|
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator")
|
|
Logger = LogConfig.GetLogger()
|
|
|
|
Try
|
|
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath)
|
|
Dim oConnectionString = MSSQLServer.DecryptConnectionString(ConfigManager.Config.ConnectionString)
|
|
Database = New MSSQLServer(LogConfig, oConnectionString)
|
|
|
|
If Database.DBInitialized = True Then
|
|
DbConfig = GetDatabaseConfig()
|
|
|
|
Dim oUserId = Database.GetScalarValue($"SELECT GUID FROM TBDD_USER WHERE USERNAME = '{Environment.UserName}'")
|
|
UserId = CInt(oUserId)
|
|
End If
|
|
|
|
Catch ex As Exception
|
|
Logger.Error(ex)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Function GetDatabaseConfig() As DbConfig
|
|
Dim oSql As String = "SELECT TOP 1 * FROM TBSIG_CONFIG"
|
|
Dim oTable As DataTable = Database.GetDatatable(oSql)
|
|
Dim oRow = oTable.Rows.Item(0)
|
|
|
|
Return New DbConfig() With {
|
|
.DocumentPath = oRow.ItemEx("DOCUMENT_PATH", "")
|
|
}
|
|
End Function
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Dim oForm As New frmEditor() With {
|
|
.State = New State With {
|
|
.UserId = UserId,
|
|
.Config = ConfigManager.Config,
|
|
.DbConfig = DbConfig,
|
|
.LogConfig = LogConfig,
|
|
.Database = Database
|
|
}
|
|
}
|
|
oForm.ShowDialog()
|
|
End Sub
|
|
End Class |