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

SQLCommon: Make form title configurable

Browse Source
This commit is contained in:
Jonathan Jenne 2021-08-02 11:58:34 +02:00
parent 62b69bc685
commit 68c5f4dd3e
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
SQLConfig/frmSQLConfig.vb
View File

@ -12,6 +12,7 @@ Public Class frmSQLConfig
Private ReadOnly LogConfig As LogConfig Private ReadOnly LogConfig As LogConfig
Public Property ConnectionString As String = String.Empty Public Property ConnectionString As String = String.Empty
Public Property FormTitle As String = ""
Public Sub New() Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@ -32,6 +33,10 @@ Public Class frmSQLConfig
Private Sub frmSQLConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmSQLConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim oConnectionString = ConnectionString Dim oConnectionString = ConnectionString
If FormTitle.Count > 0 Then
Text = $"{FormTitle} - {Text}"
End If
If Not oConnectionString = String.Empty Then If Not oConnectionString = String.Empty Then
Dim oBuilder As SqlConnectionStringBuilder Dim oBuilder As SqlConnectionStringBuilder
Try Try