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.
94 lines
3.6 KiB
94 lines
3.6 KiB
Imports System.Windows.Forms
|
|
|
|
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
|
|
refresh_data()
|
|
End Sub
|
|
|
|
Sub refresh_data()
|
|
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
|
|
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
|
|
For i As Integer = 1 To C1Daten.Splits(0).DisplayColumns.Count - 1
|
|
Me.C1Daten.Splits(0).DisplayColumns(i).AutoSize()
|
|
Next
|
|
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
|
|
|
|
Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
|
|
Dim f As New FrmAddDok
|
|
f.ShowDialog()
|
|
Me.refresh_data()
|
|
End Sub
|
|
|
|
Private Sub MarkierterEintragInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Daten_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
|
|
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
|
|
Me.C1Daten.Bookmark = Me.C1Daten.RowBookmark(Me.C1Daten.RowContaining(e.Y))
|
|
End Sub
|
|
|
|
Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
|
|
If MsgBox("Eintrag inaktivieren?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
|
Try
|
|
daten.deleteentry(Globals.Mitarbeiternr, Me.C1Daten.Columns(0).Value)
|
|
refresh_data()
|
|
Catch
|
|
End Try
|
|
|
|
End If
|
|
End Sub
|
|
End Class |