45 lines
1.6 KiB
VB.net
45 lines
1.6 KiB
VB.net
Imports System.Configuration
|
|
Imports System
|
|
|
|
Public Class AppConfig
|
|
|
|
Public Shared Function GetConfiguration() As ConfigValues
|
|
|
|
Dim appfile As String = My.Application.Info.DirectoryPath & "\" & My.Application.Info.Title & ".exe"
|
|
Dim appconfig As Configuration = ConfigurationManager.OpenExeConfiguration(appfile)
|
|
Dim appsettings As AppSettingsSection = appconfig.AppSettings
|
|
Dim settings As KeyValueConfigurationCollection = appsettings.Settings
|
|
|
|
Dim username As String = settings.Item("dpma_username").Value
|
|
Dim password As String = settings.Item("dpma_password").Value
|
|
Dim query As String = settings.Item("dpma_query").Value
|
|
Dim connstring As String = settings.Item("sql_connstring").Value
|
|
Dim database As String = settings.Item("sql_database").Value
|
|
|
|
Return New ConfigValues(username, password, query, connstring, database)
|
|
End Function
|
|
|
|
Public Shared Function GetVersion()
|
|
Dim assembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
|
|
Dim fvi As FileVersionInfo = FileVersionInfo.GetVersionInfo(assembly.Location)
|
|
Dim version As String = fvi.FileVersion
|
|
Return version
|
|
End Function
|
|
|
|
End Class
|
|
|
|
Public Class ConfigValues
|
|
Public username As String
|
|
Public password As String
|
|
Public query As String
|
|
Public connstring As String
|
|
Public database As String
|
|
|
|
Public Sub New(_username, _password, _query, _connstring, _database)
|
|
username = _username
|
|
password = _password
|
|
query = _query
|
|
connstring = _connstring
|
|
database = _database
|
|
End Sub
|
|
End Class |