35 lines
1.3 KiB
VB.net
35 lines
1.3 KiB
VB.net
Public Class Form1
|
|
|
|
Dim db As New clsdb
|
|
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
db.Get_data()
|
|
|
|
Me.C1Daten.DataSource = db.dsdaten.Tables(0)
|
|
Me.C1Daten.DataMember = db.dsdaten.Tables(0).TableName
|
|
Try
|
|
'Me.C1Daten.Columns("aktiv").FilterText = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
|
db.Update_Daten()
|
|
End Sub
|
|
|
|
Private Sub C1Daten_AfterInsert(sender As Object, e As EventArgs) Handles C1Daten.AfterInsert
|
|
Me.C1Daten.Columns("erstellt_am").Value = Now
|
|
Me.C1Daten.Columns("mutiert_am").Value = Now
|
|
Me.C1Daten.Columns("mutierer").Value = Globals.Mitarbeiternr
|
|
Me.C1Daten.Columns("aktiv").Value = True
|
|
End Sub
|
|
|
|
Private Sub C1Daten_AfterUpdate(sender As Object, e As EventArgs) Handles C1Daten.AfterUpdate
|
|
Me.C1Daten.Columns("mutiert_am").Value = Now
|
|
Me.C1Daten.Columns("mutierer").Value = Globals.Mitarbeiternr
|
|
|
|
End Sub
|
|
End Class |