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.
59 lines
2.3 KiB
59 lines
2.3 KiB
Public Class FrmData
|
|
|
|
Dim daten As New DB
|
|
Dim dbco As New DB_Connection
|
|
|
|
Private Sub C1Daten_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1Daten.AfterColUpdate
|
|
'Aktualisieren von Mutierer und Mutiert_am
|
|
|
|
Dim i As Integer
|
|
Try
|
|
For i = 0 To Me.C1Daten.Columns.Count - 1
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "mutiert_am" Then Me.C1Daten.Columns(i).Value = Now
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "mutierer" Then Me.C1Daten.Columns(i).Value = Globals.Mitarbeiternr
|
|
Next
|
|
|
|
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
|
|
If Me.C1Daten.Columns(0).Value Is DBNull.Value Then
|
|
'Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
'Dim key As Long
|
|
'dbkey.cpMainConnectionProvider = conn
|
|
'key = dbkey.get_dbkey(tablename)
|
|
'Me.C1Daten.Columns(0).Value = key
|
|
For i = 0 To Me.C1Daten.Columns.Count - 1
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "mandantnr" Then
|
|
Me.C1Daten.Columns(i).Value = Globals.Mitarbeiternr
|
|
End If
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "erstellt_am" Then
|
|
Me.C1Daten.Columns(i).Value = Now
|
|
End If
|
|
If LCase(Me.C1Daten.Columns(i).DataField) = "aktiv" Then
|
|
Me.C1Daten.Columns(i).Value = 1
|
|
End If
|
|
Next
|
|
'dbkey.Dispose()
|
|
End If
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub FrmData_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
daten.Get_data()
|
|
|
|
Me.C1Daten.DataSource = daten.dsDaten.Tables(0)
|
|
Me.C1Daten.DataMember = daten.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
|
|
daten.Update_Daten()
|
|
End Sub
|
|
|
|
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |