44 lines
1.8 KiB
Plaintext
44 lines
1.8 KiB
Plaintext
|
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.Seria = EdSeria.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
|
||
|
|
EdSeria.Text = My.Settings.Seria
|
||
|
|
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
|