MS windream StartStop on Startup
This commit is contained in:
@@ -21,6 +21,7 @@ Module ModuleMySettings
|
||||
Public vWLaufwerk As String = "W"
|
||||
Public vVERSION_DELIMITER As String = "~"
|
||||
Public vFILE_DELIMITER As String = "_"
|
||||
Public WMSESSION_STARTSTOP_STARTUP As Boolean = False
|
||||
|
||||
Public Function Settings_Load()
|
||||
Try
|
||||
@@ -190,21 +191,5 @@ Module ModuleMySettings
|
||||
Return True
|
||||
|
||||
End Function
|
||||
Public Function Settings_LoadBasicConfig()
|
||||
Try
|
||||
Dim sql As String = "select * from tbdd_Modules where NAME = 'Record-Organizer'"
|
||||
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
|
||||
If DT.Rows.Count = 1 Then
|
||||
vWLaufwerk = DT.Rows(0).Item("STRING1")
|
||||
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
|
||||
vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in Settings_LoadBasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
Return False
|
||||
End Try
|
||||
Return True
|
||||
End Function
|
||||
|
||||
End Module
|
||||
|
||||
Reference in New Issue
Block a user