shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update Juni 2023

Browse Source
This commit is contained in:
Stefan Hutter
2023-06-16 07:24:02 +02:00
parent 340847a5ae
commit eeac15550f
55 changed files with 509 additions and 507 deletions
Download Patch File Download Diff File Expand all files Collapse all files

174
_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb
View File

@@ -1,87 +1,89 @@
Public Class frmNeueBeziehung
Dim dc As New _DataClass.DataClass
Dim sec As New Utils.MySecurity
Dim m_temporaer As Boolean
Dim Datenklasse As New _DataClass.DataClass
Dim kontaktfb As New DataTable
Dim Kontaktsd As New DataTable
Property Temporaer As Boolean
Get
Return m_temporaer
End Get
Set(value As Boolean)
m_temporaer = value
End Set
End Property
Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Panel2.Height = 1
sec.Set_Form_Security(Me)
End Sub
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim dt As New DataTable
dc.ConnectionString = Globals.sConnectionString
dc.Mitarbeiternr = Globals.Mitarbeiternr
dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
Me.cbbeziehungstyp.DataSource = dt
Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
Me.cbbeziehungstyp.ValueMember = "KeyValue"
For Each r As DataRow In dt.Rows
If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
Next
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.DialogResult = Windows.Forms.DialogResult.Abort
Me.Close()
End Sub
Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
If Me.cbTemporaer.Checked = True Then
Cursor = Cursors.WaitCursor
Me.Panel2.Height = 227
Me.Height = Me.Height + 227
Me.cbboxKontaktFB.BeginUpdate()
Me.cbboxKontaktSD.BeginUpdate()
'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'kontaktfb = VerantwTKBMA_Data
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
Me.cbboxKontaktSD.DataSource = Kontaktsd_data
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "KeyValue"
Cursor = Cursors.Default
Else
Me.Panel2.Height = 1
Me.Height = Me.Height - 227
Me.cbboxKontaktSD.EndUpdate()
Me.cbboxKontaktFB.EndUpdate()
End If
End Sub
Private Sub SecurityObjekte_Click(sender As Object, e As EventArgs) Handles SecurityObjekte.Click
If InputBox("Passwort:") <> "341211" Then Exit Sub
sec.List_Form_Controls(Me)
sec.Print_Screen(Me)
End Sub
Public Class frmNeueBeziehung
Dim dc As New _DataClass.DataClass
Dim sec As New Utils.MySecurity
Dim m_temporaer As Boolean
Dim Datenklasse As New _DataClass.DataClass
Dim kontaktfb As New DataTable
Dim Kontaktsd As New DataTable
Property Temporaer As Boolean
Get
Return m_temporaer
End Get
Set(value As Boolean)
m_temporaer = value
End Set
End Property
Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Panel2.Height = 1
sec.Set_Form_Security(Me)
End Sub
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Dim dt As New DataTable
dc.ConnectionString = Globals.sConnectionString
dc.Mitarbeiternr = Globals.Mitarbeiternr
dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
Me.cbbeziehungstyp.DataSource = dt
Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
Me.cbbeziehungstyp.ValueMember = "KeyValue"
For Each r As DataRow In dt.Rows
If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
Next
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.DialogResult = Windows.Forms.DialogResult.Abort
Me.Close()
End Sub
Private Sub cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
If Me.cbTemporaer.Checked = True Then
Cursor = Cursors.WaitCursor
Me.Panel2.Height = 227
Me.Height = Me.Height + 227
Me.cbboxKontaktFB.BeginUpdate()
Me.cbboxKontaktSD.BeginUpdate()
'If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'kontaktfb = VerantwTKBMA_Data
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichnung")
'Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
Me.cbboxKontaktSD.DataSource = Kontaktsd_data
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "KeyValue"
Cursor = Cursors.Default
Me.cbboxKontaktSD.EndUpdate()
Me.cbboxKontaktFB.EndUpdate()
Else
Me.Panel2.Height = 1
Me.Height = Me.Height - 227
Me.cbboxKontaktSD.EndUpdate()
Me.cbboxKontaktFB.EndUpdate()
End If
End Sub
Private Sub SecurityObjekte_Click(sender As Object, e As EventArgs) Handles SecurityObjekte.Click
If InputBox("Passwort:") <> "341211" Then Exit Sub
sec.List_Form_Controls(Me)
sec.Print_Screen(Me)
End Sub
End Class