Initial commit

EDOKA_Toolset/Plugin_Vorlagenuebernahme/Form1.vb

@@ -0,0 +1,62 @@
+Public Class Form1
+
+    Dim db As New clsdb
+    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        get_data
+    End Sub
+    Sub Get_data()
+
+        Dim d As DateTime
+
+        Dim t As String
+        d = db.Get_Parameter(1)
+        Me.DateTimePicker1.Value = d.ToShortDateString
+        Me.DateTimePicker4.Value = Now.ToString("dd.MM.yyyy") + " " + db.Get_Parameter(2)
+        Me.TextBox1.Text = db.Get_Parameter(3)
+        Me.TextBox2.Text = db.Get_Parameter(4)
+        Me.TextBox3.Text = db.Get_Parameter(5)
+        Me.TextBox4.Text = db.Get_Parameter(6)
+        Me.CheckBox1.Checked = db.Get_Parameter(7) = "True"
+        d = db.Get_Parameter(8)
+        Me.DateTimePicker2.Value = d.ToShortDateString
+        Me.DateTimePicker3.Value = Now.ToString("dd.MM.yyyy") + " " + db.Get_Parameter(9)
+
+        db.get_rundaten(Me.ListBox1)
+        Me.ListBox1.SelectedIndex = 0
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        db.Save_Parameter(1, Me.DateTimePicker1.Value.ToShortDateString)
+        db.Save_Parameter(2, Me.DateTimePicker4.Value.ToString("HH:mm:ss"))
+        db.Save_Parameter(3, Me.TextBox1.Text)
+        db.Save_Parameter(4, Me.TextBox2.Text)
+        db.Save_Parameter(5, Me.TextBox3.Text)
+        db.Save_Parameter(6, Me.TextBox4.Text)
+        If Me.CheckBox1.Checked = True Then
+            db.Save_Parameter(7, "True")
+            db.Save_Parameter(10, System.Security.Principal.WindowsIdentity.GetCurrent().Name.ToString())
+        Else
+            db.Save_Parameter(7, "False")
+            db.Save_Parameter(10, "")
+        End If
+        db.Save_Parameter(8, Me.DateTimePicker2.Value.ToShortDateString)
+        db.Save_Parameter(9, Me.DateTimePicker3.Value.ToString("HH:mm:ss"))
+        MsgBox("Parameter wurden gespeichert.", vbInformation)
+    End Sub
+
+    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
+        Dim splitter() As String
+        splitter = Me.ListBox1.SelectedItem.ToString.Split(":")
+        Me.TextBox6.Text = db.Get_Journal(splitter(0))
+        Me.TextBox7.Text = db.Get_Uebernahmejournal(splitter(0))
+
+    End Sub
+
+    Private Sub AktualieirenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AktualieirenToolStripMenuItem.Click
+        Get_data()
+    End Sub
+End Class