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

MS18.10.2017

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-18 11:40:17 +02:00
parent 76796df71f
commit ccdac594d1
12 changed files with 1077 additions and 974 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@@ -15,6 +15,7 @@ Public Class frmRecOrgConfig_Basic
Me.txtDelimiterFile.Text = dt.Rows(0).Item("FILE_DELIMITER")
Me.txtwddriveletter.Text = dt.Rows(0).Item("STRING1")
Me.txtProductName.Text = dt.Rows(0).Item("PRODUCT_NAME1")
Me.txtAutoLogoutUser.Text = dt.Rows(0).Item("AUTO_LOGOUT_USER")
' Hintergrundbild unwandeln und anzeigen
If Not IsDBNull(dt.Rows(0).Item("BACKGROUND_IMAGE")) Then
@@ -78,7 +79,7 @@ Public Class frmRecOrgConfig_Basic
Dim image As Bitmap = Nothing
Dim bimage() As Byte = Nothing
Dim sql As String = "UPDATE TBDD_MODULES SET VERSION_DELIMITER = @VERSION_DELIMITER, FILE_DELIMITER = @FILE_DELIMITER, STRING1 = @STRING1, BACKGROUND_IMAGE = @BACKGROUND_IMAGE, PRODUCT_NAME1 = @PRODUCT_NAME1, CHANGED_WHO = @CHANGED_WHO WHERE NAME = 'Record-Organizer'"
Dim sql As String = "UPDATE TBDD_MODULES SET AUTO_LOGOUT_USER = @AUTO_LOGOUT_USER, VERSION_DELIMITER = @VERSION_DELIMITER, FILE_DELIMITER = @FILE_DELIMITER, STRING1 = @STRING1, BACKGROUND_IMAGE = @BACKGROUND_IMAGE, PRODUCT_NAME1 = @PRODUCT_NAME1, CHANGED_WHO = @CHANGED_WHO WHERE NAME = 'Record-Organizer'"
Dim conn As New SqlClient.SqlConnection(MyConnectionString)
Dim cmd As New SqlClient.SqlCommand(sql, conn)
@@ -91,6 +92,7 @@ Public Class frmRecOrgConfig_Basic
End If
cmd.Parameters.Add("@VERSION_DELIMITER", SqlDbType.Text).Value = txtDelimiterVersion.Text
cmd.Parameters.Add("@AUTO_LOGOUT_USER", SqlDbType.Int).Value = txtAutoLogoutUser.Text
cmd.Parameters.Add("@FILE_DELIMITER", SqlDbType.Text).Value = txtDelimiterFile.Text
cmd.Parameters.Add("@STRING1", SqlDbType.Text).Value = txtwddriveletter.Text
cmd.Parameters.Add("@CHANGED_WHO", SqlDbType.Text).Value = USER_USERNAME
@@ -240,4 +242,11 @@ Public Class frmRecOrgConfig_Basic
Private Sub txtWiki_VisibleChanged(sender As Object, e As EventArgs) Handles txtWiki.VisibleChanged
End Sub
Private Sub txtAutoLogoutUser_TextChanged(sender As Object, e As EventArgs) Handles txtAutoLogoutUser.TextChanged
If loaded = True Then
changes_ModuleKonfig = True
btnsave.Enabled = True
End If
End Sub
End Class