Dodaj pliki projektów.

.svn/pristine/f6/f6d5e0dda47f9e7f18a640b99c21c204af3c1632.svn-base

@@ -0,0 +1,44 @@
+Imports System.Windows.Forms
+
+Public Class dlgKonfig
+  Public Check As String
+
+  Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+    Me.DialogResult = System.Windows.Forms.DialogResult.OK
+    My.Settings.SerwerSrc = edSerwerSrc.Text
+    My.Settings.SerwerDst = edServerDst.Text
+    My.Settings.SerwerKlucza = edHASPServer.Text
+    My.Settings.BazaSrc = edBazaSrc.Text
+    My.Settings.BazaDst = edBazaDst.Text
+    My.Settings.Dziennik_Docelowy = EdDziennik.Text
+    My.Settings.FolderR_Roboczy = edWorkingDir.Text
+    My.Settings.MCsrc = MainFrm.Encrypt(edUserSrc.Text)
+    My.Settings.MCdst = MainFrm.Encrypt(edUserDst.Text)
+    My.Settings.Comsrc = MainFrm.Encrypt(edPassSrc.Text)
+    My.Settings.Comdst = MainFrm.Encrypt(edPassDst.Text)
+    My.Settings.check = MainFrm.Encrypt(Environment.MachineName.ToUpper + Environment.UserName.ToUpper)
+    My.Settings.Save()
+    MsgBox("Zakończ program i uruchom ponownie.")
+    Me.Close()
+  End Sub
+
+  Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+    Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+    Me.Close()
+  End Sub
+
+  Private Sub dlgKonfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    edSerwerSrc.Text = My.Settings.SerwerSrc
+    edServerDst.Text = My.Settings.SerwerDst
+    edHASPServer.Text = My.Settings.SerwerKlucza
+    edBazaSrc.Text = My.Settings.BazaSrc
+    edBazaDst.Text = My.Settings.BazaDst
+    EdDziennik.Text = My.Settings.Dziennik_Docelowy
+    edWorkingDir.Text = My.Settings.FolderR_Roboczy
+    edUserSrc.Text = MainFrm.Decrypt(My.Settings.MCsrc)
+    edUserDst.Text = MainFrm.Decrypt(My.Settings.MCdst)
+    edPassSrc.Text = MainFrm.Decrypt(My.Settings.Comsrc)
+    edPassDst.Text = MainFrm.Decrypt(My.Settings.Comdst)
+
+  End Sub
+End Class