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.
87 lines
3.3 KiB
87 lines
3.3 KiB
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
|
|
End Class |