edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb
View File

@@ -4,6 +4,7 @@
Public Class cMitarbeiter
Property mit_id As Integer
Property mit_username As String = ""
Property mit_abweichenderAnzeigename As String = ""
Property mit_pwd As String = ""
Property mit_geschlecht As String = ""
Property mit_affix As String = ""
@@ -110,6 +111,7 @@ Public Class cMitarbeiter
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_id", mit_id,, True, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_username", mit_username))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_abweichenderAnzeigename", mit_abweichenderAnzeigename))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pwd", mit_pwd))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_geschlecht", mit_geschlecht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_affix", mit_affix))
@@ -298,6 +300,7 @@ Public Class cMitarbeiter
Try
Me.mit_id = dr.Item("mit_id")
Me.mit_username = dr.Item("mit_username")
Me.mit_abweichenderAnzeigename = dr.Item("mit_abweichenderAnzeigename")
Me.mit_pwd = dr.Item("mit_pwd")
Me.mit_affix = dr.Item("mit_affix")
If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht")