AppStd/EnvelopeGenerator
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ms Änderungen FileCopy

Browse Source
This commit is contained in:
SchreiberM
2024-03-28 11:26:32 +01:00
parent 56eb385312
commit c14ed86181
10 changed files with 336 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
EnvelopeGenerator.Form/frmSplashScreen.vb
View File

@@ -9,7 +9,7 @@ Imports EnvelopeGenerator.Common
Imports System.ComponentModel
Public Class frmSplashScreen
Private LogConfig As LogConfig
Private Logger As Logger
Private ConfigManager As ConfigManager(Of Config)
@@ -23,14 +23,14 @@ Public Class frmSplashScreen
Private Sub frmSplashScreen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Dim oLogPath = IO.Path.Combine(Application.LocalUserAppDataPath, "Log")
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator")
Logger = LogConfig.GetLogger()
CurrLogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, CompanyName:="Digital Data", ProductName:="Envelope Generator")
Logger = CurrLogConfig.GetLogger()
Try
ConfigManager = New ConfigManager(Of Config)(LogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
ConfigManager = New ConfigManager(Of Config)(CurrLogConfig, Application.UserAppDataPath, Application.CommonAppDataPath, Application.StartupPath)
If ConfigManager.Config.ConnectionString = String.Empty Then
Dim oSQLConfig As New frmSQLConfig(LogConfig)
Dim oSQLConfig As New frmSQLConfig(CurrLogConfig)
If oSQLConfig.ShowDialog() = DialogResult.OK Then
ConfigManager.Config.ConnectionString = oSQLConfig.ConnectionString
ConfigManager.Save()
@@ -46,7 +46,7 @@ Public Class frmSplashScreen
Worker.RunWorkerAsync(New State() With {
.User = Nothing,
.UserId = 0,
.LogConfig = LogConfig,
.LogConfig = CurrLogConfig,
.Config = ConfigManager.Config,
.Database = Nothing,
.DbConfig = New DbConfig()