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.
74 lines
3.2 KiB
74 lines
3.2 KiB
Public Class Form1
|
|
Dim dbconn As New DB_Connection
|
|
Dim db As New DB
|
|
|
|
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_Dokumenttypen()
|
|
Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
|
|
Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
|
|
Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
|
|
For i = 0 To Me.C1Dokumenttypen.Splits(0).DisplayColumns.Count - 1
|
|
Me.C1Dokumenttypen.Splits(0).DisplayColumns(i).Locked = True
|
|
Next
|
|
|
|
Refresh_Blacklist()
|
|
End Sub
|
|
|
|
Sub Refresh_Blacklist(Optional marker As Integer = 0)
|
|
db.Get_Blacklist()
|
|
Me.C1Blacklist.DataSource = Nothing
|
|
Me.C1Blacklist.DataSource = db.dsdatenblacklist.Tables("Blacklist")
|
|
Me.C1Blacklist.DataMember = db.dsdatenblacklist.Tables(0).TableName
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(0).Width = 0
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(1).Width = 60
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(2).Width = 200
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(3).Width = 50
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(4).Width = 70
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(5).Width = 50
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(6).Width = 70
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(7).Width = 50
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(1).Locked = True
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(5).Locked = True
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(6).Locked = True
|
|
Me.C1Blacklist.Splits(0).DisplayColumns(7).Locked = True
|
|
Dim bm As Integer = 0
|
|
If marker <> 0 Then
|
|
For i = 0 To db.dsdatenblacklist.Tables(0).Rows.Count - 1
|
|
If db.dsdatenblacklist.Tables(0).Rows(i).Item("DokTypNr") = marker Then Me.C1Blacklist.Bookmark = bm
|
|
bm = bm + 1
|
|
Next
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub C1Dokumenttypen_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumenttypen.DoubleClick
|
|
Dim row As DataRow = db.dsdatenblacklist.Tables(0).NewRow
|
|
row.Item(1) = Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value
|
|
row.Item(2) = ""
|
|
row.Item(3) = True
|
|
row.Item(4) = Now
|
|
row.Item(5) = Globals.Mitarbeiternr
|
|
row.Item(6) = Now
|
|
row.Item(7) = Globals.Mitarbeiternr
|
|
db.dsdatenblacklist.Tables(0).Rows.Add(row)
|
|
db.Update_Daten()
|
|
Refresh_Blacklist(Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value)
|
|
End Sub
|
|
|
|
Private Sub C1Blacklist_AfterUpdate(sender As Object, e As EventArgs) Handles C1Blacklist.AfterUpdate
|
|
db.Update_Daten()
|
|
End Sub
|
|
|
|
Private Sub C1Blacklist_BeforeColUpdate(sender As Object, e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles C1Blacklist.BeforeColUpdate
|
|
Me.C1Blacklist.Columns("Mutiert_am").Value = Now
|
|
Me.C1Blacklist.Columns("Mutierer").Value = Globals.Mitarbeiternr
|
|
End Sub
|
|
End Class
|