You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
2.5 KiB
62 lines
2.5 KiB
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 |