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.
58 lines
2.2 KiB
58 lines
2.2 KiB
Public Class frmBeziehungEdit
|
|
Dim kontaktfb As New DataTable
|
|
Dim kontaktsd As New DataTable
|
|
Dim dc As New _DataClass.DataClass
|
|
Dim sec As New Utils.MySecurity
|
|
Dim Datenklasse As New _DataClass.DataClass
|
|
Public Kontaktid As Integer = 0
|
|
Public KontaktidSD As Integer = 0
|
|
|
|
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 frmBeziehungEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If Me.Panel2.Height = 227 Then
|
|
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
|
|
Me.cbboxKontaktFB.DataSource = kontaktfb
|
|
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
|
|
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
|
|
Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
|
|
kontaktsd = Datenklasse.Get_Stammdaten("SERVICEDESK", "Bezeichnung")
|
|
Me.cbboxKontaktSD.DataSource = kontaktsd
|
|
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
|
|
Me.cbboxKontaktSD.ValueMember = "Keyvalue"
|
|
Me.cbboxKontaktSD.SelectedValue = Me.KontaktidSD
|
|
End If
|
|
|
|
sec.Set_Form_Security(Me)
|
|
End Sub
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
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"
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub tsmnuSecurityObjekte_Click(sender As Object, e As EventArgs) Handles tsmnuSecurityObjekte.Click
|
|
If InputBox("Passwort:") <> "341211" Then Exit Sub
|
|
sec.List_Form_Controls(Me)
|
|
sec.Print_Screen(Me)
|
|
End Sub
|
|
End Class |