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

Compare commits

base: AppStd:707caaac02ca5e337c57e7662e927f69fd9372c9
Branches Tags
AppStd:master
...
compare: AppStd:c6f839bef843999829447f5c935b287dd7da6e0d
Branches Tags
AppStd:master

2 Commits
707caaac02 ... c6f839bef8

Author SHA1 Message Date
Jonathan Jenne
c6f839bef8 fix settings loading 2019-11-06 10:00:32 +01:00
Jonathan Jenne
e9bb4b309f fix installer 2019-11-06 10:00:15 +01:00
2 changed files with 4 additions and 4 deletions
Expand all files Collapse all files

6
DDUserManager/DDUserManager/ModuleRuntime.vb
View File

@@ -9,12 +9,12 @@ Module ModuleRuntime
Public Function SaveMySettingsValue(name As String, value As String, type As String) Public Function SaveMySettingsValue(name As String, value As String, type As String)
Try Try
Dim DT As DataTable Dim DT As DataTable = Nothing
If type = "ConfigMain" Then If type = "ConfigMain" Then
DT = GetTablefromXML(ConfigPath) DT = GetTablefromXML(ConfigPath)
End If End If
If Not DT Is Nothing Then If Not IsNothing(DT) Then
For Each Row As DataRow In DT.Rows For Each Row As DataRow In DT.Rows
If Row.Item("ConfigName") = name Then If Row.Item("ConfigName") = name Then
Row.Item("Value") = value Row.Item("Value") = value
@@ -34,7 +34,7 @@ Module ModuleRuntime
End Function End Function
Private Function GetTablefromXML(path As String) Private Function GetTablefromXML(path As String) As DataTable
Try Try
Dim DS As New DataSet Dim DS As New DataSet
DS.ReadXml(path) DS.ReadXml(path)

2
DDUserManager/SetupWix/Product.wxs
View File

@@ -80,7 +80,7 @@
<DirectoryRef Id="INSTALLDIR"> <DirectoryRef Id="INSTALLDIR">
<Component Id="MainApplicationExe" Guid="6a98ced0-c55c-4584-9de1-1f1ef87f6de9"> <Component Id="MainApplicationExe" Guid="6a98ced0-c55c-4584-9de1-1f1ef87f6de9">
<File Id="MainApplicationExe" Name="$(var.ProgramName).exe" KeyPath="yes" Checksum="yes" /> <File Id="MainApplicationExe" Name="$(var.ProgramName).exe" KeyPath="yes" Checksum="yes" />
<File Id="MainApplicationConfig" Name="$(var.ProgramName).exe.config" KeyPath="yes" Checksum="yes" /> <File Id="MainApplicationConfig" Name="$(var.ProgramName).exe.config" KeyPath="no" Checksum="yes" />
</Component> </Component>
<Component Id="RegistryKeys" Guid="9630254f-88a9-4e51-9844-e11749882635"> <Component Id="RegistryKeys" Guid="9630254f-88a9-4e51-9844-e11749882635">