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.
123 lines
4.3 KiB
123 lines
4.3 KiB
Public Class frmSetNeueBeziehung
|
|
|
|
Dim m_sourceid As Integer
|
|
Property Sourceid As Integer
|
|
Get
|
|
Return m_sourceid
|
|
End Get
|
|
Set(value As Integer)
|
|
m_sourceid = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_sourcebezeichnung As String
|
|
Property SourceBezeichnung As String
|
|
Get
|
|
Return m_sourcebezeichnung
|
|
End Get
|
|
Set(value As String)
|
|
m_sourcebezeichnung = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_type As Integer
|
|
Property Type As Integer
|
|
Get
|
|
Return m_type
|
|
End Get
|
|
Set(value As Integer)
|
|
m_type = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_mitarbeiternr As Integer
|
|
Property Mitarbeiternr As Integer
|
|
Get
|
|
Return m_mitarbeiternr
|
|
End Get
|
|
Set(value As Integer)
|
|
m_mitarbeiternr = value
|
|
Globals.Mitarbeiternr = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub frmSetNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.TextBox1.Text = Me.SourceBezeichnung
|
|
If Type = 0 Then
|
|
Dim dtc As New _DataClass.DataClass
|
|
Dim dt As New DataTable
|
|
dt = dtc.Get_Aktive_Funktionsstellen
|
|
Me.C1Daten.DataSource = dt
|
|
Me.C1Daten.DataMember = dt.TableName
|
|
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
|
|
Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
|
|
Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
|
|
|
|
End If
|
|
If Type = 1 Then
|
|
Dim dtc As New _DataClass.DataClass
|
|
Dim dt As New DataTable
|
|
dt = dtc.Get_Aktives_Personal
|
|
Me.C1Daten.DataSource = dt
|
|
Me.C1Daten.DataMember = dt.TableName
|
|
Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
|
|
Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
|
|
Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
|
Dim a As New AllgMainObjekte
|
|
a.txtBezeichnung.Text = Me.C1Daten.Columns(1).Value
|
|
If Type = 0 Then
|
|
a.ConnectionFilename = Globals.ConnectionFileName
|
|
a.ConnectionString = Globals.sConnectionString
|
|
a.TempFilePath = Globals.TmpFilepath
|
|
a.Mitarbeiternr = Me.Mitarbeiternr
|
|
a.Type = "Personal"
|
|
a.KeyValue = Me.Sourceid
|
|
a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", True, 0)
|
|
Else
|
|
a.ConnectionFilename = Globals.ConnectionFileName
|
|
a.ConnectionString = Globals.sConnectionString
|
|
a.TempFilePath = Globals.TmpFilepath
|
|
a.Mitarbeiternr = Me.Mitarbeiternr
|
|
a.Type = "Funktionstelle"
|
|
a.KeyValue = Me.Sourceid
|
|
a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", False, 0)
|
|
End If
|
|
|
|
a.Dispose()
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Beziehungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
|
|
Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub BeziehungErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungErstellenToolStripMenuItem.Click
|
|
C1Daten_DoubleClick(sender, e)
|
|
End Sub
|
|
Event C1Beziehungen_DoubleClicked(ByVal keyvalue As Integer, ByVal Typ As String, ByVal NewWindows As Boolean)
|
|
|
|
Private Sub ObjektAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektAnzeigenToolStripMenuItem.Click
|
|
If Type = 0 Then
|
|
RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Personal", True)
|
|
Else
|
|
RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Funktionstelle", True)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
|
|
|
|
End Sub
|
|
End Class |