created new structure

2025-04-16 13:31:51 +03:00
parent 82d5746b71
commit 4e43c17242
243 changed files with 0 additions and 10859 deletions
--- a/code/Form4.vb
+++ b/code/Form4.vb
@@ -0,0 +1,58 @@
+Public Class Form4
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        TextBox1.Text = My.Settings.serverName
+        TextBox2.Text = My.Settings.serverdatabase
+        TextBox3.Text = My.Settings.serverUser
+        TextBox4.Text = My.Settings.serverUserpass
+        TextBox5.Text = My.Settings.timeout
+        TextBox6.Text = My.Settings.encrypt
+        TextBox7.Text = My.Settings.cert
+        TextBox8.Text = My.Settings.reason
+        TextBox9.Text = My.Settings.subnet
+        TextBox10.Text = My.Settings.adminPass
+        TextBox20.Text = My.Settings.ServerNameW
+        TextBox19.Text = My.Settings.ServerDatabaseW
+        TextBox18.Text = My.Settings.ServerUserW
+        TextBox17.Text = My.Settings.ServerUserPasW
+        TextBox12.Text = My.Settings.SubnetW
+
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        My.Settings.subnet = TextBox9.Text
+        My.Settings.reason = TextBox8.Text
+        My.Settings.encrypt = TextBox9.Text
+        My.Settings.timeout = TextBox5.Text
+        My.Settings.serverUserpass = TextBox4.Text
+        My.Settings.serverUser = TextBox3.Text
+        My.Settings.serverdatabase = TextBox2.Text
+        My.Settings.serverName = TextBox1.Text
+
+
+        My.Settings.Save()
+
+        MsgBox("au fost incarcate setarile pentru server")
+
+
+
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form1.Show()
+        Me.Close()
+    End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        My.Settings.SubnetW = TextBox12.Text
+        My.Settings.ServerNameW = TextBox20.Text
+        My.Settings.ServerDatabaseW = TextBox19.Text
+        My.Settings.ServerUserPasW = TextBox17.Text
+        My.Settings.ServerUserW = TextBox18.Text
+
+    End Sub
+End Class