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.
236 lines
8.3 KiB
236 lines
8.3 KiB
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
''' <summary>
|
|
''' Vertragselementsuche
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
|
|
Public Class frmVertragselementSuche
|
|
#Region "Deklarationen"
|
|
|
|
Dim m_Vertragselementnr As Integer
|
|
Property Vertragselementnr() As Integer
|
|
Get
|
|
Return m_Vertragselementnr
|
|
End Get
|
|
Set(ByVal value As Integer)
|
|
m_Vertragselementnr = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Vertragselement_Bezeichnung As String
|
|
Property Vertragselement_Bezeichnung() As String
|
|
Get
|
|
Dim ve As New TKB.VV.DB.clsVertragselement
|
|
Try
|
|
ve.cpMainConnectionProvider = Globals.conn
|
|
ve.iVertragselementnr = New SqlInt32(CType(Me.Vertragselementnr, Int32))
|
|
ve.SelectOne()
|
|
Return ve.sBezeichnung.Value
|
|
Catch ex As Exception
|
|
Finally
|
|
ve.Dispose()
|
|
End Try
|
|
End Get
|
|
Set(ByVal value As String)
|
|
|
|
End Set
|
|
End Property
|
|
Dim d As New DataTable
|
|
|
|
#End Region
|
|
''' <summary>
|
|
''' Destructor Dispose
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Overloads Sub dispose()
|
|
d.Dispose()
|
|
MyBase.Dispose()
|
|
End Sub
|
|
|
|
#Region "Formular"
|
|
''' <summary>
|
|
''' Load des Dialogs
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub FrmVertragspartnerSuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Vertragselementnr = -1
|
|
Me.BtnSelect.Enabled = False
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Suche ausführen
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuche.Click
|
|
Vertragselement_suchen()
|
|
End Sub
|
|
''' <summary>
|
|
''' BtnSelect gewählt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BtnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSelect.Click
|
|
Me.Vertragselementnr = Me.C1Vertragselementliste.Columns("Vertragselementnr").Value
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Textfelder KeyDown
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub txt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName_Firma1.KeyDown, txtBezeichnung.KeyDown, txtInhalt.KeyDown, txtSuchbegriffe.KeyDown
|
|
If e.KeyCode = Keys.Enter Then
|
|
Me.BtnSuche_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
#Region "Suchfunktion"
|
|
''' <summary>
|
|
''' Vertragselement suchen
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Private Function Vertragselement_Suchen()
|
|
If Me.txtName_Firma1.Text <> "" Then
|
|
d = Serach_data(Me.txtName_Firma1.Text, 0)
|
|
Else
|
|
If Me.txtBezeichnung.Text <> "" Then
|
|
d = Serach_data(Me.txtBezeichnung.Text, 1)
|
|
Else
|
|
If Me.txtInhalt.Text <> "" Then
|
|
d = Serach_data(Me.txtInhalt.Text, 2)
|
|
Else
|
|
d = Serach_data(Me.txtSuchbegriffe.Text, 3)
|
|
End If
|
|
End If
|
|
End If
|
|
Me.C1Vertragselementliste.DataSource = d
|
|
Me.C1Vertragselementliste.DataMember = d.TableName
|
|
|
|
Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
|
|
SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Vertragselementliste, "Vertragselement", d)
|
|
SpaltenTitel = Nothing
|
|
If d.Rows.Count > 0 Then Me.BtnSelect.Enabled = True
|
|
End Function
|
|
''' <summary>
|
|
''' Vertragspartner aus DB auslesen
|
|
''' </summary>
|
|
''' <param name="query"></param>
|
|
''' <param name="fnkt"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Private Function Serach_data(ByVal query As String, ByVal fnkt As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_vertragselement_search"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 1000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dttoreturn
|
|
Catch ex As Exception
|
|
Throw New Exception("clsVertragselement::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "MenuStrip"
|
|
''' <summary>
|
|
''' Schliessen des Fensters
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
''' <summary>
|
|
''' Menu Beenden
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
TSBtnQuit_Click(sender, e)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Schliessen des Fensters
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub BtnSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSchliessen.Click
|
|
Me.TSBtnQuit_Click(sender, e)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Resultatliste"
|
|
|
|
''' <summary>
|
|
''' Mousedown-Ereignis handeln, damit auch bei rechter Maustaste der Fokus auf den richtigen Datensatz gesetzt wird
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Vertragselementliste_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1Vertragselementliste.MouseDown
|
|
Me.C1Vertragselementliste.Bookmark = Me.C1Vertragselementliste.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Kontextmenu Übernehmen gewählt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub ÜberrnehmenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberrnehmenToolStripMenuItem.Click
|
|
Me.BtnSelect_Click(sender, e)
|
|
End Sub
|
|
''' <summary>
|
|
''' Kontextmenu Details anzeigen gewählt
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub DetailsAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click
|
|
Dim f As New frmVertragselement(Me.C1Vertragselementliste.Columns("Vertragselementnr").Value, True)
|
|
f.ShowDialog()
|
|
End Sub
|
|
''' <summary>
|
|
''' Doubleklick in C1Partnerliste
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub C1Vertragselementliste_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1Vertragselementliste.DoubleClick
|
|
If Me.C1Vertragselementliste.Splits(0).Rows.Count > 0 Then
|
|
Me.BtnSelect_Click(sender, e)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
End Class |