Initial commit
This commit is contained in:
1
.svn/entries
Normal file
1
.svn/entries
Normal file
@@ -0,0 +1 @@
|
|||||||
|
12
|
||||||
1
.svn/format
Normal file
1
.svn/format
Normal file
@@ -0,0 +1 @@
|
|||||||
|
12
|
||||||
@@ -0,0 +1,202 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmMain
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ThemenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.PendenzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.SystemAdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ObjektListerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnVertragsuebersicht = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnMonitoring = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnApplikationen = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.ThemenToolStripMenuItem, Me.PendenzenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.ExtrasToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(990, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 1
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem, Me.NeuAnmeldenToolStripMenuItem})
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'BeendenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||||
|
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||||
|
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||||
|
'
|
||||||
|
'NeuAnmeldenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem.Name = "NeuAnmeldenToolStripMenuItem"
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||||
|
Me.NeuAnmeldenToolStripMenuItem.Text = "&Neu anmelden"
|
||||||
|
'
|
||||||
|
'ThemenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ThemenToolStripMenuItem.Name = "ThemenToolStripMenuItem"
|
||||||
|
Me.ThemenToolStripMenuItem.Size = New System.Drawing.Size(63, 20)
|
||||||
|
Me.ThemenToolStripMenuItem.Text = "&Themen"
|
||||||
|
'
|
||||||
|
'PendenzenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.PendenzenToolStripMenuItem.Name = "PendenzenToolStripMenuItem"
|
||||||
|
Me.PendenzenToolStripMenuItem.Size = New System.Drawing.Size(77, 20)
|
||||||
|
Me.PendenzenToolStripMenuItem.Text = "&Pendenzen"
|
||||||
|
'
|
||||||
|
'AuswertungenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
|
||||||
|
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 20)
|
||||||
|
Me.AuswertungenToolStripMenuItem.Text = "&Auswertungen"
|
||||||
|
'
|
||||||
|
'ExtrasToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SystemAdministrationToolStripMenuItem, Me.ObjektListerToolStripMenuItem})
|
||||||
|
Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
|
||||||
|
Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
|
||||||
|
Me.ExtrasToolStripMenuItem.Text = "&Extras"
|
||||||
|
'
|
||||||
|
'SystemAdministrationToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.SystemAdministrationToolStripMenuItem.Name = "SystemAdministrationToolStripMenuItem"
|
||||||
|
Me.SystemAdministrationToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
|
||||||
|
Me.SystemAdministrationToolStripMenuItem.Text = "&System-Administration"
|
||||||
|
'
|
||||||
|
'ObjektListerToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ObjektListerToolStripMenuItem.Name = "ObjektListerToolStripMenuItem"
|
||||||
|
Me.ObjektListerToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
|
||||||
|
Me.ObjektListerToolStripMenuItem.Text = "Objekt-Lister"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnVertragsuebersicht, Me.TSBtnMonitoring, Me.TSBtnApplikationen, Me.ToolStripButton1})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(990, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 2
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'TSBtnVertragsuebersicht
|
||||||
|
'
|
||||||
|
Me.TSBtnVertragsuebersicht.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnVertragsuebersicht.Image = CType(resources.GetObject("TSBtnVertragsuebersicht.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnVertragsuebersicht.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnVertragsuebersicht.Name = "TSBtnVertragsuebersicht"
|
||||||
|
Me.TSBtnVertragsuebersicht.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnVertragsuebersicht.Text = "Vertragsübersicht"
|
||||||
|
'
|
||||||
|
'TSBtnMonitoring
|
||||||
|
'
|
||||||
|
Me.TSBtnMonitoring.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnMonitoring.Image = CType(resources.GetObject("TSBtnMonitoring.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnMonitoring.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnMonitoring.Name = "TSBtnMonitoring"
|
||||||
|
Me.TSBtnMonitoring.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnMonitoring.Text = "ToolStripButton3"
|
||||||
|
Me.TSBtnMonitoring.ToolTipText = "Monitoring"
|
||||||
|
'
|
||||||
|
'TSBtnApplikationen
|
||||||
|
'
|
||||||
|
Me.TSBtnApplikationen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnApplikationen.Image = CType(resources.GetObject("TSBtnApplikationen.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnApplikationen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnApplikationen.Name = "TSBtnApplikationen"
|
||||||
|
Me.TSBtnApplikationen.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnApplikationen.Text = "Applikationsverwaltung"
|
||||||
|
'
|
||||||
|
'ToolStripButton1
|
||||||
|
'
|
||||||
|
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||||
|
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton1.Text = "Lizenzmanagement"
|
||||||
|
'
|
||||||
|
'frmMain
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(990, 518)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.IsMdiContainer = True
|
||||||
|
Me.MainMenuStrip = Me.MenuStrip1
|
||||||
|
Me.Name = "frmMain"
|
||||||
|
Me.Text = "Themen-/Issue-Management TKB"
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ThemenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents PendenzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents AuswertungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ExtrasToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents SystemAdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnVertragsuebersicht As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnMonitoring As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnApplikationen As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents NeuAnmeldenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ObjektListerToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
End Class
|
||||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,34 @@
|
|||||||
|
Module Crypto
|
||||||
|
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||||
|
Dim i As Integer, c As Integer
|
||||||
|
Dim strBuff As String
|
||||||
|
|
||||||
|
strPwd = UCase$(strPwd)
|
||||||
|
If Len(strPwd) Then
|
||||||
|
For i = 1 To Len(strText)
|
||||||
|
c = Asc(Mid$(strText, i, 1))
|
||||||
|
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||||
|
strBuff = strBuff & Chr(c And &HFF)
|
||||||
|
Next i
|
||||||
|
Else
|
||||||
|
strBuff = strText
|
||||||
|
End If
|
||||||
|
EncryptText = strBuff
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||||
|
Dim i As Integer, c As Integer
|
||||||
|
Dim strBuff As String
|
||||||
|
strPwd = UCase$(strPwd)
|
||||||
|
If Len(strPwd) Then
|
||||||
|
For i = 1 To Len(strText)
|
||||||
|
c = Asc(Mid$(strText, i, 1))
|
||||||
|
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||||
|
strBuff = strBuff & Chr(c And &HFF)
|
||||||
|
Next i
|
||||||
|
Else
|
||||||
|
strBuff = strText
|
||||||
|
End If
|
||||||
|
DecryptText = strBuff
|
||||||
|
End Function
|
||||||
|
End Module
|
||||||
2338
.svn/pristine/07/07ca1a34afef1ff4b9733d02d05d06d7839a1b93.svn-base
Normal file
2338
.svn/pristine/07/07ca1a34afef1ff4b9733d02d05d06d7839a1b93.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,491 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'key_tabelle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 13:15:45
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'key_tabelle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsKey_tabelle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||||
|
Private m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iKeynr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKeynr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKeynrTmp As SqlInt32 = Value
|
||||||
|
If iKeynrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKeynr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
Dim sBeschreibungTmp As SqlString = Value
|
||||||
|
If sBeschreibungTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
|
||||||
|
End If
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iKey_wert]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKey_wert
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKey_wertTmp As SqlInt32 = Value
|
||||||
|
If iKey_wertTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKey_wert = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,35 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
ExtendedRichTextBox
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="P:ExtendedRichTextBox.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
</summary>
|
||||||
|
</member><member name="P:ExtendedRichTextBox.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
</summary>
|
||||||
|
</member><member name="T:ExtendedRichTextBox.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
</summary>
|
||||||
|
</member><member name="T:ExtendedRichTextBox.RichTextBoxPrintCtrl">
|
||||||
|
<summary>
|
||||||
|
The rich text box print control class was developed by Microsoft, information about
|
||||||
|
this control can be found in your help files at:
|
||||||
|
ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.KB.v10.en/enu_kbvbnetkb/vbnetkb/811401.htm
|
||||||
|
In general, their intent was to create a rich text box control with print capability
|
||||||
|
embedded into the control.
|
||||||
|
</summary>
|
||||||
|
<remarks>This control class replaces the use of the regular RichTextBox control; the
|
||||||
|
purpose of this extension was specifically to facilitate printing the contents
|
||||||
|
of a rich text box control.</remarks>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
@@ -0,0 +1,157 @@
|
|||||||
|
Imports SautinSoft.HtmlToRtf
|
||||||
|
Imports System.IO
|
||||||
|
Public Class frmDetail
|
||||||
|
|
||||||
|
Private Sub tbrSave_Click(sender As System.Object, e As System.EventArgs)
|
||||||
|
' Me.rtbDoc.SaveFile("h:\tssettings\eintrag" + Microsoft.VisualBasic.Right(Me.TreeView2.SelectedNode.Text, 1) + ".rtf")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TreeView2_AfterSelect(sender As System.Object, e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView2.AfterSelect
|
||||||
|
'Me.rtbDoc.Clear()
|
||||||
|
'Me.rtbDoc.Visible = True
|
||||||
|
'Me.Panel1.Visible = False
|
||||||
|
'Me.rtbDoc.Dock = DockStyle.Fill
|
||||||
|
'Me.Panel2.Dock = DockStyle.Fill
|
||||||
|
'Try
|
||||||
|
' Me.rtbDoc.LoadFile("h:\tssettings\eintrag" + Microsoft.VisualBasic.Right(Me.TreeView2.SelectedNode.Text, 1) + ".rtf")
|
||||||
|
'Catch
|
||||||
|
'End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ÜbersichtToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ÜbersichtToolStripMenuItem.Click
|
||||||
|
'Dim x As New ToolStrip
|
||||||
|
'x = ToolStrip9
|
||||||
|
'Me.rtbDoc.Visible = False
|
||||||
|
'Me.Panel1.Dock = DockStyle.Fill
|
||||||
|
'Me.Panel1.Visible = True
|
||||||
|
'Panel1.Controls.Clear()
|
||||||
|
'Panel1.Controls.Add(x)
|
||||||
|
'For i = 9 To 1 Step -1
|
||||||
|
' Try
|
||||||
|
' Dim rb As New RichTextBox
|
||||||
|
' rb.LoadFile("h:\tssettings\Eintrag" + Trim(i.ToString) + ".rtf")
|
||||||
|
' rb.Height = 80
|
||||||
|
' rb.Dock = DockStyle.Top
|
||||||
|
' rb.ReadOnly = True
|
||||||
|
' AddHandler rb.DoubleClick, AddressOf rb_dblClick
|
||||||
|
' Panel1.Controls.Add(rb)
|
||||||
|
' Dim l As New Label
|
||||||
|
' Catch
|
||||||
|
' End Try
|
||||||
|
|
||||||
|
'Next
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub rb_dblClick(sender As Object, e As System.EventArgs)
|
||||||
|
'Me.Panel1.Visible = False
|
||||||
|
'Me.rtbDoc.Visible = True
|
||||||
|
'Me.rtbDoc.Dock = DockStyle.Fill
|
||||||
|
'Me.Panel2.Dock = DockStyle.Fill
|
||||||
|
'Me.TreeView2.SelectedNode = TreeView2.Nodes(0)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub frmDetail_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||||
|
Me.TreeView2.Nodes.Clear()
|
||||||
|
For i = 1 To 9
|
||||||
|
Me.TreeView2.Nodes.Add("Eintrag" + i.ToString)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub AllesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles AllesToolStripMenuItem.Click
|
||||||
|
|
||||||
|
''Dim rb As New RichTextBox
|
||||||
|
''Dim rb1 As New RichTextBox
|
||||||
|
''Me.Panel1.Controls.Clear()
|
||||||
|
|
||||||
|
''For i = 9 To 1 Step -1
|
||||||
|
'' Try
|
||||||
|
'' rb1.LoadFile("h:\tssettings\Eintrag" + Trim(i.ToString) + ".rtf")
|
||||||
|
'' 'rb = AppendRTF(rb1, rb1.Rtf)
|
||||||
|
'' rb.SelectionStart = 0
|
||||||
|
'' rb.SelectionLength = 0
|
||||||
|
'' rb1.SelectAll()
|
||||||
|
'' rb.Rtf = rb.Rtf + rb1.Rtf
|
||||||
|
'' ' rb1.SelectAll()
|
||||||
|
'' ' My.Computer.Clipboard.SetText(rb1.SelectedRtf)
|
||||||
|
'' ' rb.Rtf += My.Computer.Clipboard.GetText
|
||||||
|
'' Catch
|
||||||
|
'' End Try
|
||||||
|
|
||||||
|
''Next
|
||||||
|
''Me.Panel1.Controls.Add(rb)
|
||||||
|
''rb.Dock = DockStyle.Fill
|
||||||
|
'Dim h As New SautinSoft.HtmlToRtf
|
||||||
|
|
||||||
|
'Dim firstRtf As String = ""
|
||||||
|
'Dim Delimitter As String = ""
|
||||||
|
'Dim secondRtf As String = ""
|
||||||
|
'Dim singleRtf As String = ""
|
||||||
|
|
||||||
|
'singleRtf = ReadFromFile("h:\tssettings\empty.rtf")
|
||||||
|
'Delimitter = ReadFromFile("h:\tssettings\delimitter.rtf")
|
||||||
|
'For i = 1 To 9
|
||||||
|
' Try
|
||||||
|
' secondRtf = ReadFromFile("h:\tssettings\Eintrag" + Trim(i.ToString) + ".rtf")
|
||||||
|
' singleRtf = h.MergeRtfString(singleRtf, secondRtf)
|
||||||
|
' singleRtf = h.MergeRtfString(singleRtf, Delimitter)
|
||||||
|
' Catch
|
||||||
|
' End Try
|
||||||
|
|
||||||
|
'Next
|
||||||
|
'Dim x As New ToolStrip
|
||||||
|
'x = ToolStrip9
|
||||||
|
'Me.Panel1.Controls.Clear()
|
||||||
|
'Panel1.Controls.Add(x)
|
||||||
|
'Dim rb As New RichTextBox
|
||||||
|
'rb.Rtf = singleRtf
|
||||||
|
'Me.Panel1.Controls.Add(rb)
|
||||||
|
'rb.Dock = DockStyle.Fill
|
||||||
|
'Me.Panel1.Visible = True
|
||||||
|
'Me.Panel1.Dock = DockStyle.Fill
|
||||||
|
'Me.rtbDoc.Visible = False
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Public Function ReadFromFile(ByVal fileName As String) As String
|
||||||
|
|
||||||
|
Dim fileString As String = ""
|
||||||
|
Try
|
||||||
|
Dim fs As System.IO.FileStream = New FileStream(fileName, FileMode.Open, FileAccess.Read, FileShare.Read)
|
||||||
|
Dim b(CInt(Fix(fs.Length)) - 1) As Byte
|
||||||
|
If fs.Read(b, 0, CInt(Fix(fs.Length))) > 0 Then
|
||||||
|
Dim arCharRes(fs.Length - 1) As Char
|
||||||
|
For i As Integer = 0 To fs.Length - 1
|
||||||
|
arCharRes(i) = ChrW(b(i))
|
||||||
|
Next i
|
||||||
|
fileString = New String(arCharRes)
|
||||||
|
End If
|
||||||
|
fs.Close()
|
||||||
|
Return fileString
|
||||||
|
Catch
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
Public Function WriteToFile(ByVal fileName As String, ByVal fileStr As String) As Integer
|
||||||
|
Try
|
||||||
|
Dim sw As New StreamWriter(fileName, False)
|
||||||
|
sw.Write(fileStr)
|
||||||
|
sw.Close()
|
||||||
|
Catch
|
||||||
|
Return 2
|
||||||
|
End Try
|
||||||
|
Return 0
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub ToolStripButton22_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton22.Click
|
||||||
|
ÜbersichtToolStripMenuItem_Click(sender, e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ToolStripButton23_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton23.Click
|
||||||
|
AllesToolStripMenuItem_Click(sender, e)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,174 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmDomainEditor
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDomainEditor))
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.ContextMenuStripAuswertung = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||||
|
Me.ReportdateiDBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ReportdateiFilesystemToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||||
|
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.ContextMenuStripAuswertung.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.AllowMerge = False
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(556, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 0
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'BeendenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||||
|
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||||
|
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(556, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 1
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||||
|
'
|
||||||
|
'TSBtnSave
|
||||||
|
'
|
||||||
|
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnSave.Name = "TSBtnSave"
|
||||||
|
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnSave.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||||
|
'
|
||||||
|
'C1Daten
|
||||||
|
'
|
||||||
|
Me.C1Daten.AllowAddNew = True
|
||||||
|
Me.C1Daten.AlternatingRows = True
|
||||||
|
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
|
||||||
|
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1Daten.FilterBar = True
|
||||||
|
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
|
||||||
|
Me.C1Daten.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.C1Daten.Name = "C1Daten"
|
||||||
|
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1Daten.Size = New System.Drawing.Size(556, 270)
|
||||||
|
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||||
|
Me.C1Daten.TabIndex = 4
|
||||||
|
Me.C1Daten.Text = "C1TrueDBGrid1"
|
||||||
|
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
|
||||||
|
'
|
||||||
|
'ContextMenuStripAuswertung
|
||||||
|
'
|
||||||
|
Me.ContextMenuStripAuswertung.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReportdateiDBToolStripMenuItem, Me.ReportdateiFilesystemToolStripMenuItem})
|
||||||
|
Me.ContextMenuStripAuswertung.Name = "ContextMenuStripAuswertung"
|
||||||
|
Me.ContextMenuStripAuswertung.Size = New System.Drawing.Size(210, 48)
|
||||||
|
'
|
||||||
|
'ReportdateiDBToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ReportdateiDBToolStripMenuItem.Name = "ReportdateiDBToolStripMenuItem"
|
||||||
|
Me.ReportdateiDBToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
|
||||||
|
Me.ReportdateiDBToolStripMenuItem.Text = "Reportdatei -> DB"
|
||||||
|
'
|
||||||
|
'ReportdateiFilesystemToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ReportdateiFilesystemToolStripMenuItem.Name = "ReportdateiFilesystemToolStripMenuItem"
|
||||||
|
Me.ReportdateiFilesystemToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
|
||||||
|
Me.ReportdateiFilesystemToolStripMenuItem.Text = "Reportdatei -> Filesystem"
|
||||||
|
'
|
||||||
|
'OpenFileDialog1
|
||||||
|
'
|
||||||
|
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||||
|
'
|
||||||
|
'frmDomainEditor
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(556, 319)
|
||||||
|
Me.Controls.Add(Me.C1Daten)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.MainMenuStrip = Me.MenuStrip1
|
||||||
|
Me.Name = "frmDomainEditor"
|
||||||
|
Me.Text = "frmDomainEditor"
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ContextMenuStripAuswertung.ResumeLayout(False)
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
Friend WithEvents ContextMenuStripAuswertung As System.Windows.Forms.ContextMenuStrip
|
||||||
|
Friend WithEvents ReportdateiDBToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ReportdateiFilesystemToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||||
|
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,159 @@
|
|||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Namespace TKB.VV.Utils
|
||||||
|
|
||||||
|
Public Class clsToolTips
|
||||||
|
Public WithEvents MyTooltip As New ToolTip
|
||||||
|
Dim ToolTipData As DataSet = Globals.ToolTipDaten
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim l As New List(Of Control)
|
||||||
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
||||||
|
|
||||||
|
Public Function Edit_ToolTips(ByRef frm As Form, ByRef ctlcol As Collection)
|
||||||
|
Me.Load_Data()
|
||||||
|
l.Clear()
|
||||||
|
Me.GetControl(frm, "*", l)
|
||||||
|
For Each s As Control In l
|
||||||
|
Try
|
||||||
|
MyTooltip.SetToolTip(s, frm.Name + "|" + s.Name)
|
||||||
|
MyTooltip.Tag = frm.Name
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
'For Each ctl As Control In ctlcol
|
||||||
|
' Try
|
||||||
|
' MyTooltip.SetToolTip(ctl, "SetToolTip")
|
||||||
|
' MyTooltip.Tag = frm.Name + "|" + ctl.Name
|
||||||
|
' Catch ex As Exception
|
||||||
|
' End Try
|
||||||
|
'Next
|
||||||
|
End Function
|
||||||
|
Private Sub MyTooltip_Popup(ByVal sender As Object, ByVal e As System.Windows.Forms.PopupEventArgs) Handles MyTooltip.Popup
|
||||||
|
'MsgBox(e.AssociatedControl.Name)
|
||||||
|
evh.Edit_Tooltip(MyTooltip.Tag, e.AssociatedControl.Name)
|
||||||
|
'Dim s As String = MyTooltip.Tag
|
||||||
|
'Dim sp() As String
|
||||||
|
'sp = s.Split("|")
|
||||||
|
'evh.Edit_Tooltip(sp(0), sp(1))
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Set_ToolTips(ByRef frm As Form)
|
||||||
|
Me.Load_Data()
|
||||||
|
'MyTooltip.ToolTipIcon = ToolTipIcon.Info
|
||||||
|
MyTooltip.IsBalloon = True
|
||||||
|
MyTooltip.UseFading = True
|
||||||
|
MyTooltip.UseAnimation = True
|
||||||
|
Dim dv As New DataView(ToolTipData.Tables(0), "Aktiv = 1 and (Formularname='" & frm.Name & "' or Formularname='Allgemein')", "", DataViewRowState.CurrentRows)
|
||||||
|
For Each dr As DataRowView In dv
|
||||||
|
l.Clear()
|
||||||
|
Me.GetControl(frm, dr.Item("Controlname"), l)
|
||||||
|
Try
|
||||||
|
For Each ctl As Control In l
|
||||||
|
Try
|
||||||
|
MyTooltip.SetToolTip(ctl, dr.Item("ToolTip"))
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Daten ab Datenbank laden
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Load_Data()
|
||||||
|
Try
|
||||||
|
If ToolTipData.Tables.Count < 1 Then
|
||||||
|
ToolTipData.Tables.Clear()
|
||||||
|
Else
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
ToolTipData.Tables.Clear()
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "dbo.my_tooltip_get_data"
|
||||||
|
'sqlcmd.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ToolTipData, "Tooltips")
|
||||||
|
Globals.SecurityDaten.Tables.Add(ToolTipData.Tables(0).Copy)
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "Utils"
|
||||||
|
''' <summary>
|
||||||
|
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
||||||
|
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
||||||
|
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
||||||
|
''' <param name="L">Liste der gefundenen Objekte</param>
|
||||||
|
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
||||||
|
''' </returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
||||||
|
If L Is Nothing Then L = New List(Of Control)
|
||||||
|
Dim Gut As Boolean
|
||||||
|
Dim ReturnFlag As Boolean = False
|
||||||
|
If Key IsNot Nothing Then Key = Key.ToLower
|
||||||
|
|
||||||
|
If BaseControl.HasChildren = True Then
|
||||||
|
For Each ctl As Control In BaseControl.Controls
|
||||||
|
Gut = False
|
||||||
|
If Key Is Nothing Then
|
||||||
|
Gut = True
|
||||||
|
Else
|
||||||
|
If ctl.Name.Length >= Key.Length Then
|
||||||
|
Key = Key.ToLower
|
||||||
|
If Key.StartsWith("*") Then
|
||||||
|
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
||||||
|
ElseIf Key.EndsWith("*") Then
|
||||||
|
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
||||||
|
Else
|
||||||
|
If Key = ctl.Name.ToLower Then Gut = True
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If Gut = True Then
|
||||||
|
L.Add(ctl)
|
||||||
|
If ReturnAtFirstElement = True Then ReturnFlag = True
|
||||||
|
End If
|
||||||
|
If ReturnFlag = False Then
|
||||||
|
Call GetControl(ctl, Key, L)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
If L.Count - 1 > -1 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,491 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'key_tabelle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'key_tabelle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsKey_tabelle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||||
|
Private m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iKeynr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKeynr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKeynrTmp As SqlInt32 = Value
|
||||||
|
If iKeynrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKeynr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
Dim sBeschreibungTmp As SqlString = Value
|
||||||
|
If sBeschreibungTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
|
||||||
|
End If
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iKey_wert]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKey_wert
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKey_wertTmp As SqlInt32 = Value
|
||||||
|
If iKey_wertTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKey_wert = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,50 @@
|
|||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.dll
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail2.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbproj.GenerateResource.Cache
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe.config
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbprojResolveAssemblyReference.cache
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDatenbankauswahl.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmAbout.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmLogin.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMsgBox.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSplash.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmThemenübersicht.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditor.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDomainEditorExtTables.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmFormSelector.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminMenu.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmSysadminTableSelector.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.FrmToolTipEditor.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmVerbindungEditor.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\RTFEditor.xml
|
||||||
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-16"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>true</MySubMain>
|
||||||
|
<MainForm>frmMain</MainForm>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
@@ -0,0 +1,24 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<doc>
|
||||||
|
<assembly>
|
||||||
|
<name>
|
||||||
|
Themenmanagement
|
||||||
|
</name>
|
||||||
|
</assembly>
|
||||||
|
<members>
|
||||||
|
<member name="P:Themenmanagement.My.Resources.Resources.ResourceManager">
|
||||||
|
<summary>
|
||||||
|
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
</summary>
|
||||||
|
</member><member name="P:Themenmanagement.My.Resources.Resources.Culture">
|
||||||
|
<summary>
|
||||||
|
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
</summary>
|
||||||
|
</member><member name="T:Themenmanagement.My.Resources.Resources">
|
||||||
|
<summary>
|
||||||
|
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
</summary>
|
||||||
|
</member>
|
||||||
|
</members>
|
||||||
|
</doc>
|
||||||
@@ -0,0 +1,170 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
|
<ProductVersion>
|
||||||
|
</ProductVersion>
|
||||||
|
<SchemaVersion>2.0</SchemaVersion>
|
||||||
|
<ProjectGuid>{1B191999-7204-4EB5-96F7-A6805B0B32FC}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>Themenmanagement.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>Themenmanagement</RootNamespace>
|
||||||
|
<AssemblyName>Themenmanagement</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile>
|
||||||
|
</TargetFrameworkProfile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20123.61277, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\Themenmanagement_sik\bin\Debug\C1.Win.C1TrueDBGrid.2.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="ExtendedRichTextBox">
|
||||||
|
<HintPath>..\..\_Klassen\RichTextEditor\RichTextEditor\bin\Release\ExtendedRichTextBox.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="SautinSoft.HtmlToRtf">
|
||||||
|
<HintPath>D:\Installer\Sautinsoft\HTML-to-RTF Pro DLL .Net Full (4.8.9.21)\Bin\Net 3.5\SautinSoft.HtmlToRtf.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="frmDetail2.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail2.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.Designer.vb">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenübersicht.Designer.vb">
|
||||||
|
<DependentUpon>Themenübersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenübersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="frmDetail2.resx">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmMain.resx">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmDetail.resx">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Themenübersicht.resx">
|
||||||
|
<DependentUpon>Themenübersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="App.config" />
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Folder Include="Pendenzenmanagement\" />
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
||||||
@@ -0,0 +1,159 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
|
<ProductVersion>
|
||||||
|
</ProductVersion>
|
||||||
|
<SchemaVersion>2.0</SchemaVersion>
|
||||||
|
<ProjectGuid>{1B191999-7204-4EB5-96F7-A6805B0B32FC}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>Themenmanagement.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>Themenmanagement</RootNamespace>
|
||||||
|
<AssemblyName>Themenmanagement</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile>Client</TargetFrameworkProfile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="C1.Win.C1TrueDBGrid.4, Version=4.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="ExtendedRichTextBox">
|
||||||
|
<HintPath>..\..\_Klassen\RichTextEditor\RichTextEditor\bin\Release\ExtendedRichTextBox.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="frmDetail2.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail2.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.Designer.vb">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenübersicht.Designer.vb">
|
||||||
|
<DependentUpon>Themenübersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenübersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="frmDetail2.resx">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmMain.resx">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmDetail.resx">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Themenübersicht.resx">
|
||||||
|
<DependentUpon>Themenübersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
||||||
Binary file not shown.
@@ -0,0 +1,957 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABeSURBVDhPYzhw4MB/SjADSDMDAwNZGKwXZkBDA8QQQq6B
|
||||||
|
qYHT5BgAczHZLkB2LVleGMQGwJyGL1pBanB6ASZJDI01GolxAUgjXhfgcj4sgQ1SA8jNUPCkTCgD4ZMH
|
||||||
|
ADk0Kh+zxKF0AAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnCopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB7SURBVDhPtVKBDcAgCOvpnsZnzJq5MFSGMSNplhFaWwJE
|
||||||
|
RE8ATwaKZkHukUAp9bHRATRTADQU4AAr+jaBbF7O2Xoc7ApYR7eDd+Y+4Pfg+8bBd9bVLv5zQHsZTB2s
|
||||||
|
bqBnJsmi9vM7IHFyeHuXNxXI5O0RBgE2fK7o3wtcor2JxHm9tQ0AAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 640, 298</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 640, 298</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid5.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid5.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 988, 111</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 988, 111</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip9.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>717, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton24.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABfSURBVDhPY2CgEvgPNIccDLf+f0MD3ABCbgJZBAIwGsIh
|
||||||
|
0QCYa8lzATbLSHLBIDYAyWk4oxSkBqcXYJLE0FijkRgX4IpysLMIGACLc/xewJOkaWsALG2TmqEI5RvC
|
||||||
|
8gCWcrF1SNJPYgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton25.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEhSURBVDhPlZPPasJAEMbzMNJnEPShWm+VHuwj+DcYfAd7
|
||||||
|
8ajQHhR66qVVQiuFQC6JIZdkk0D86qysrus0tAtfIDvf/DKTnbUsY923H1Al03/1Tsm/LYr9GZDnOXQR
|
||||||
|
9F8ArgoWoPdbv+2DU+Oui2ard4rpOZbeMyV3lp/oPK9ZPS6/JEQtWZEJGG9D2BuflbPdVQH2Mth799F9
|
||||||
|
+2bV//ArAGXB9s/9E+wLlGV5PBV6ZFmGMAhQiBRP8xVmL6+sposVRJJgFwZI0/QMiOO4cvq4yYyi6AxI
|
||||||
|
DlQy3dRqGI0ceJ4H13UvRHu2PZEe8qoc2YISBYdDR56SEOJCtEcxBVA5p9FWFSgAN8o6gL1EBFEAbpQp
|
||||||
|
dvVlk3QwZWTkNBiMc9P/A9pXcioI05nFAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>790, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABfSURBVDhPY2CgEvgPNIccDLf+f0MD3ABCbgJZBAIwGsIh
|
||||||
|
0QCYa8lzATbLSHLBIDYAyWk4oxSkBqcXYJLE0FijkRgX4IpysLMIGACLc/xewJOkaWsALG2TmqEI5RvC
|
||||||
|
8gCWcrF1SNJPYgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABESURBVDhPY2CgMvgPNA8fJmjdf1wAyWC8huA1ACQJNQin
|
||||||
|
IcS4AK8hOA1AlsDnilEDgImIGDDIA5FAXkDOJwTzBX0UAABPRZh2vD9LogAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrOpen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABxSURBVDhPxVNJEsAgCOPp/pyWUpAqDsulzOBKYkAFyBne
|
||||||
|
YeI5hIkioDWZr+sl4k1NReIWi2zA7czVG7syFSwkXv8SnwimghNJQMDyk2nENRgDMHKr6HNyBKT9NR2t
|
||||||
|
fgdMVX0Yu2AlCO6//Q9K7/uf4Av+LPEz9yPyNgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrFont.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABbSURBVDhPY2AY5KDhP9kObGgAaW74D6HJAhADIJhEALMd
|
||||||
|
ZgAZrkC2mURXIGyHOZvksED2OzqbQFhg2k6yK7D7FzVQcbgCt+3AuICmCTzpAp9fcYUJiWlj8CoHAICD
|
||||||
|
XMsGP053AAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrLeft.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAwSURBVDhPY2AYLOA/0CHkYOq5n1jbqWcjuknEugBdHfVc
|
||||||
|
RKwLqGfjaBjQLixJNxkAYl5HuZrRXM4AAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrCenter.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAqSURBVDhPY2AYLOA/0CHkYOq7n1hXDJzN6C4cOJcMnM3D
|
||||||
|
OQyoH6rEmggAcz9HuXkkmAwAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrRight.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAxSURBVDhPY2AYNuA/0CfkYNoFALGuoZ4LiLURXR31XIBu
|
||||||
|
ErEuop4LiLVxOIcB2aEJAE1aR7mpxf/cAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrBold.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAvSURBVDhPY2AYBegh8B8ogA8TFWLIBsA0YBPDadjgMgA9
|
||||||
|
PEZCGFAlHRAVUINHEQDqQTrGIPgP6wAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrItalic.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA4SURBVDhPY2AYBYRC4D9QATompAdDHmxAQ0MDiCYNQDXB
|
||||||
|
XECaZqjqUdvJCHls8U569JEVXwOmCQCz0SphnX9zfwAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrUnderline.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABDSURBVDhPY2AYduA/0EfIGORBbGJ4PQ7TgKwImxhOQ0YN
|
||||||
|
QIQ6ZYHY0NAACkwGKE1SLGCLe7BhdAHoqQ4bny4OId4SAAIENs0pYfbBAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="tbrFind.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABpSURBVDhPtZNbCgAgCAS7/6V7F4q7GlRCPybjKJXS48iV
|
||||||
|
t45Es7xpn1tMiAKQvAXcGEhNacHyrr4CCH00XgehLlFuG/RC0oXdKZNvgD0CsLMGZA/RfsYCT7bs1d0D
|
||||||
|
gD76YscP6vH/DHAF0vazTSMR+uUAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>675, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="NewToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAERJREFUOE9jYKAy
|
||||||
|
+A80Dx8maN1/XADJYLyG4DUAJAk1CKchxLgAryE4DUCWwOeKUQOAiYgYMMgDkUBeQM4nBPMFfRQAAE9F
|
||||||
|
mHa8P0uiAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="OpenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAHFJREFUOE/FU0kS
|
||||||
|
wCAI4+n+nJZSkCoOy6XM4EpiQAXIGd5h4jmEiSKgNZmv6yXiTU1F4haLbMDtzNUbuzIVLCRe/xKfCKaC
|
||||||
|
E0lAwPKTacQ1GAMwcqvoc3IEpP01Ha1+B0xVfRi7YCUI7r/9D0rv+5/gC/4s8TP3I/I2AAAAAElFTkSu
|
||||||
|
QmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SaveToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAF9JREFUOE9jYKAS
|
||||||
|
+A80hxwMt/5/QwPcAEJuAlkEAjAawiHRAJhryXMBNstIcsEgNgDJaTijFKQGpxdgksTQWKORGBfginKw
|
||||||
|
swgYAItz/F7Ak6RpawAsbZOaoQjlG8LyAJZysXVI0k9iAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="PrintToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAIhJREFUOE+1U0EO
|
||||||
|
wCAI4+k+zZ85a8TVBYElmwmXYWlpncgfp5TSvOqc7cgLYHRSA+YlMK3C4BTYU5AaELCzqtuK7O611jEA
|
||||||
|
95caddxi5m8GuAnAaGSKmZeCKHPuq5pNsaeAwarQ3P8kv6eO5EfxAPJFhgeRec/+lsAM0n37vLMF1sfw
|
||||||
|
Rsl3//AFF6OYgqJ5sMAAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="mnuUndo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAE5JREFUOE9jYBgF
|
||||||
|
RIRAw38GBgRuaACxsQJ0CZgmdMUN/3EYgqwBpy1Q07DKIzuVkM8IGkCxC3D5H+QynGFAyNlAreAYIOQ6
|
||||||
|
wuaMqkALAQBAozPhSnzvTwAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="mnuRedo.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAEhJREFUOE9jYBgF
|
||||||
|
8BBoaGj4z8CAjokMIIRmdA0wA5HFQWIYAKsgkiqYPDYDwcoIGQBTQ7YBBMIGdxig24zTBRCFEINGAd1D
|
||||||
|
AAAwgjPhFnKvlAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="FindToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGlJREFUOE+1k1sK
|
||||||
|
ACAIBLv/pXsXirsaVEI/JuMoldLjyJW3jkSzvGmfW0yIApC8BdwYSE1pwfKuvgIIfTReB6EuUW4b9ELS
|
||||||
|
hd0pk2+APQKwswZkD9F+xgJPtuzV3QOAPvpixw/q8f8McAXS9rNNIxH65QAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="FindAndReplaceToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJdJREFUOE+lUwkO
|
||||||
|
wCAI8+n+3BNcgWK2jGTBIZTSYCmJ1VrbuDqf/GfpIa6FeMFiFDBNBFaciaeNI8h5FjY2zjNv21bEqwOA
|
||||||
|
BeIp7KJxoR67Q0zrcgDtHLztygGOBsJGWTgGXAOcdQJ5A/FC9yUKGnZ2IuJyGR1Dx8smUpAAQBixrTzj
|
||||||
|
fAXQXfgFYBbKvDyywlT510/zltgB+htFWvke2uMAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="CopyToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAHxJREFUOE/NklsK
|
||||||
|
QCEIRFt6O+9WJvkY088bCCFxmtFp7Q9nTBGoytqGPQJYgkDAah5QCtkA/vXe++yh8jyngCAdKGOghigF
|
||||||
|
1z8GMFwingq0NWuJMGUF8ieajwD4VZIFlBFrIwiSn0GkINhzXcETACd81pwkLAqS7KchzR98nAljvdE1
|
||||||
|
TsgAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="CutToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAFRJREFUOE9jYKAR
|
||||||
|
+I9mLjqfoLWDwwCYK0A0yV4A+RHZAIJ+xqYAZjNZtsMMpERzA9QFYJocANMIomGYKHPQNSC7gKBrsCke
|
||||||
|
eANA/iYrDIgKMMoVAQAEKTZXuODVbQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="PasteToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJZJREFUOE+1k40O
|
||||||
|
gCAIhHl03pxE41ew1pYbs0yu764E+HHQ0Pb1+KrcQEQwKwnJfRAkRBwFc+YG3yjX8pznW1RFQvOBtd2n
|
||||||
|
BA2u2hDSlsBjelt5vRCwDCwLzqOrmcOeQQwKR5j7MNEgUBN0Ary+hNbQdCsCb8MaxZoKvCcQqk8EQpMt
|
||||||
|
TBt71SFWBM3Pd/qMMYPHk9ZtuACK+mkAJhkI5AAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="SelectFontToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAFtJREFUOE9jYBjk
|
||||||
|
oOE/2Q5saABpbvgPockCEAMgmEQAsx1mABmuQLaZRFcgbIc5m+SwQPY7OptAWGDaTrIrsPsXNVBxuAK3
|
||||||
|
7cC4gKYJPOkCn19xhQmJaWPwKgcAgINcywY/TncAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="BoldToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAC9JREFUOE9jYBgF
|
||||||
|
6CHwHyiADxMVYsgGwDRgE8Np2OAyAD08RkIYUCUdEBVQg0cRAOpBOsYg+A/rAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ItalicToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADhJREFUOE9jYBgF
|
||||||
|
hELgP1ABOiakB0MebEBDQwOIJg1ANcFcQJpmqOpR28kIeWzxTnr0kRVfA6YJALPRKmGdf3N/AAAAAElF
|
||||||
|
TkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="UnderlineToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAENJREFUOE9jYBh2
|
||||||
|
4D/QR8gY5EFsYng9DtOArAibGE5DRg1AhDplgdjQ0AAKTAYoTVIsYIt7sGF0AeipDhufLg4h3hIAAgQ2
|
||||||
|
zSlh9sEAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="LeftToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADBJREFUOE9jYBgs
|
||||||
|
4D/QIeRg6rmfWNupZyO6ScS6AF0d9VxErAuoZ+NoGNAuLEk3GQBiXke5mtFczgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="CenterToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAACpJREFUOE9jYBgs
|
||||||
|
4D/QIeRg6rufWFcMnM3oLhw4lwyczcM5DKgfqsSaCABzP0e5eSSYDAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="RightToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADFJREFUOE9jYBg2
|
||||||
|
4D/QJ+Rg2gUAsa6hnguItRFdHfVcgG4SsS6inguItXE4hwHZoQkATVpHuanF/9wAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>453, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip8.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>610, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton22.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||||
|
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||||
|
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||||
|
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||||
|
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||||
|
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||||
|
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||||
|
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||||
|
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||||
|
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton23.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||||
|
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||||
|
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||||
|
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||||
|
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||||
|
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||||
|
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||||
|
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||||
|
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||||
|
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip6.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>824, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABfSURBVDhPY2CgEvgPNIccDLf+f0MD3ABCbgJZBAIwGsIh
|
||||||
|
0QCYa8lzATbLSHLBIDYAyWk4oxSkBqcXYJLE0FijkRgX4IpysLMIGACLc/xewJOkaWsALG2TmqEI5RvC
|
||||||
|
8gCWcrF1SNJPYgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABESURBVDhPY2CgMvgPNA8fJmjdf1wAyWC8huA1ACQJNQin
|
||||||
|
IcS4AK8hOA1AlsDnilEDgImIGDDIA5FAXkDOJwTzBX0UAABPRZh2vD9LogAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABxSURBVDhPxVNJEsAgCOPp/pyWUpAqDsulzOBKYkAFyBne
|
||||||
|
YeI5hIkioDWZr+sl4k1NReIWi2zA7czVG7syFSwkXv8SnwimghNJQMDyk2nENRgDMHKr6HNyBKT9NR2t
|
||||||
|
fgdMVX0Yu2AlCO6//Q9K7/uf4Av+LPEz9yPyNgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABbSURBVDhPY2AY5KDhP9kObGgAaW74D6HJAhADIJhEALMd
|
||||||
|
ZgAZrkC2mURXIGyHOZvksED2OzqbQFhg2k6yK7D7FzVQcbgCt+3AuICmCTzpAp9fcYUJiWlj8CoHAICD
|
||||||
|
XMsGP053AAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton13.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAwSURBVDhPY2AYLOA/0CHkYOq5n1jbqWcjuknEugBdHfVc
|
||||||
|
RKwLqGfjaBjQLixJNxkAYl5HuZrRXM4AAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAqSURBVDhPY2AYLOA/0CHkYOq7n1hXDJzN6C4cOJcMnM3D
|
||||||
|
OQyoH6rEmggAcz9HuXkkmAwAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton15.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAxSURBVDhPY2AYNuA/0CfkYNoFALGuoZ4LiLURXR31XIBu
|
||||||
|
ErEuop4LiLVxOIcB2aEJAE1aR7mpxf/cAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAvSURBVDhPY2AYBegh8B8ogA8TFWLIBsA0YBPDadjgMgA9
|
||||||
|
PEZCGFAlHRAVUINHEQDqQTrGIPgP6wAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton17.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA4SURBVDhPY2AYBYRC4D9QATompAdDHmxAQ0MDiCYNQDXB
|
||||||
|
XECaZqjqUdvJCHls8U569JEVXwOmCQCz0SphnX9zfwAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton18.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABDSURBVDhPY2AYduA/0EfIGORBbGJ4PQ7TgKwImxhOQ0YN
|
||||||
|
QIQ6ZYHY0NAACkwGKE1SLGCLe7BhdAHoqQ4bny4OId4SAAIENs0pYfbBAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton19.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABpSURBVDhPtZNbCgAgCAS7/6V7F4q7GlRCPybjKJXS48iV
|
||||||
|
t45Es7xpn1tMiAKQvAXcGEhNacHyrr4CCH00XgehLlFuG/RC0oXdKZNvgD0CsLMGZA/RfsYCT7bs1d0D
|
||||||
|
gD76YscP6vH/DHAF0vazTSMR+uUAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>931, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripMenuItem10.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAERJREFUOE9jYKAy
|
||||||
|
+A80Dx8maN1/XADJYLyG4DUAJAk1CKchxLgAryE4DUCWwOeKUQOAiYgYMMgDkUBeQM4nBPMFfRQAAE9F
|
||||||
|
mHa8P0uiAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem11.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAHFJREFUOE/FU0kS
|
||||||
|
wCAI4+n+nJZSkCoOy6XM4EpiQAXIGd5h4jmEiSKgNZmv6yXiTU1F4haLbMDtzNUbuzIVLCRe/xKfCKaC
|
||||||
|
E0lAwPKTacQ1GAMwcqvoc3IEpP01Ha1+B0xVfRi7YCUI7r/9D0rv+5/gC/4s8TP3I/I2AAAAAElFTkSu
|
||||||
|
QmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem12.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAF9JREFUOE9jYKAS
|
||||||
|
+A80hxwMt/5/QwPcAEJuAlkEAjAawiHRAJhryXMBNstIcsEgNgDJaTijFKQGpxdgksTQWKORGBfginKw
|
||||||
|
swgYAItz/F7Ak6RpawAsbZOaoQjlG8LyAJZysXVI0k9iAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAIhJREFUOE+1U0EO
|
||||||
|
wCAI4+k+zZ85a8TVBYElmwmXYWlpncgfp5TSvOqc7cgLYHRSA+YlMK3C4BTYU5AaELCzqtuK7O611jEA
|
||||||
|
95caddxi5m8GuAnAaGSKmZeCKHPuq5pNsaeAwarQ3P8kv6eO5EfxAPJFhgeRec/+lsAM0n37vLMF1sfw
|
||||||
|
Rsl3//AFF6OYgqJ5sMAAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem19.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAE5JREFUOE9jYBgF
|
||||||
|
RIRAw38GBgRuaACxsQJ0CZgmdMUN/3EYgqwBpy1Q07DKIzuVkM8IGkCxC3D5H+QynGFAyNlAreAYIOQ6
|
||||||
|
wuaMqkALAQBAozPhSnzvTwAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem20.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAEhJREFUOE9jYBgF
|
||||||
|
8BBoaGj4z8CAjokMIIRmdA0wA5HFQWIYAKsgkiqYPDYDwcoIGQBTQ7YBBMIGdxig24zTBRCFEINGAd1D
|
||||||
|
AAAwgjPhFnKvlAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem21.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAGlJREFUOE+1k1sK
|
||||||
|
ACAIBLv/pXsXirsaVEI/JuMoldLjyJW3jkSzvGmfW0yIApC8BdwYSE1pwfKuvgIIfTReB6EuUW4b9ELS
|
||||||
|
hd0pk2+APQKwswZkD9F+xgJPtuzV3QOAPvpixw/q8f8McAXS9rNNIxH65QAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem22.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJdJREFUOE+lUwkO
|
||||||
|
wCAI8+n+3BNcgWK2jGTBIZTSYCmJ1VrbuDqf/GfpIa6FeMFiFDBNBFaciaeNI8h5FjY2zjNv21bEqwOA
|
||||||
|
BeIp7KJxoR67Q0zrcgDtHLztygGOBsJGWTgGXAOcdQJ5A/FC9yUKGnZ2IuJyGR1Dx8smUpAAQBixrTzj
|
||||||
|
fAXQXfgFYBbKvDyywlT510/zltgB+htFWvke2uMAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem24.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAHxJREFUOE/NklsK
|
||||||
|
QCEIRFt6O+9WJvkY088bCCFxmtFp7Q9nTBGoytqGPQJYgkDAah5QCtkA/vXe++yh8jyngCAdKGOghigF
|
||||||
|
1z8GMFwingq0NWuJMGUF8ieajwD4VZIFlBFrIwiSn0GkINhzXcETACd81pwkLAqS7KchzR98nAljvdE1
|
||||||
|
TsgAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem25.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAFRJREFUOE9jYKAR
|
||||||
|
+I9mLjqfoLWDwwCYK0A0yV4A+RHZAIJ+xqYAZjNZtsMMpERzA9QFYJocANMIomGYKHPQNSC7gKBrsCke
|
||||||
|
eANA/iYrDIgKMMoVAQAEKTZXuODVbQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem26.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAJZJREFUOE+1k40O
|
||||||
|
gCAIhHl03pxE41ew1pYbs0yu764E+HHQ0Pb1+KrcQEQwKwnJfRAkRBwFc+YG3yjX8pznW1RFQvOBtd2n
|
||||||
|
BA2u2hDSlsBjelt5vRCwDCwLzqOrmcOeQQwKR5j7MNEgUBN0Ary+hNbQdCsCb8MaxZoKvCcQqk8EQpMt
|
||||||
|
TBt71SFWBM3Pd/qMMYPHk9ZtuACK+mkAJhkI5AAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem29.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAFtJREFUOE9jYBjk
|
||||||
|
oOE/2Q5saABpbvgPockCEAMgmEQAsx1mABmuQLaZRFcgbIc5m+SwQPY7OptAWGDaTrIrsPsXNVBxuAK3
|
||||||
|
7cC4gKYJPOkCn19xhQmJaWPwKgcAgINcywY/TncAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem31.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAC9JREFUOE9jYBgF
|
||||||
|
6CHwHyiADxMVYsgGwDRgE8Np2OAyAD08RkIYUCUdEBVQg0cRAOpBOsYg+A/rAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem32.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADhJREFUOE9jYBgF
|
||||||
|
hELgP1ABOiakB0MebEBDQwOIJg1ANcFcQJpmqOpR28kIeWzxTnr0kRVfA6YJALPRKmGdf3N/AAAAAElF
|
||||||
|
TkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem33.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAENJREFUOE9jYBh2
|
||||||
|
4D/QR8gY5EFsYng9DtOArAibGE5DRg1AhDplgdjQ0AAKTAYoTVIsYIt7sGF0AeipDhufLg4h3hIAAgQ2
|
||||||
|
zSlh9sEAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem44.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADBJREFUOE9jYBgs
|
||||||
|
4D/QIeRg6rmfWNupZyO6ScS6AF0d9VxErAuoZ+NoGNAuLEk3GQBiXke5mtFczgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem45.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAACpJREFUOE9jYBgs
|
||||||
|
4D/QIeRg6rufWFcMnM3oLhw4lwyczcM5DKgfqsSaCABzP0e5eSSYDAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripMenuItem46.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADFJREFUOE9jYBg2
|
||||||
|
4D/QJ+Rg2gUAsa6hnguItRFdHfVcgG4SsS6inguItXE4hwHZoQkATVpHuanF/9wAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 340, 313</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 340, 313</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>1111, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>1004, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid4.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid4.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 994, 474</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 994, 474</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid3.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid3.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 994, 449</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 994, 449</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip7.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton20.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton21.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>102</value>
|
||||||
|
</metadata>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,228 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace Utils
|
||||||
|
''' <summary>
|
||||||
|
''' Standard-Messages in div. Formatenm
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class MyMessage
|
||||||
|
#Region "Deklarationen"
|
||||||
|
''' <summary>
|
||||||
|
''' Dataview Meldungstexte um Textelemente für die Ausgabe zu suchen
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private meldungstexte As New DataView()
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Dispose"
|
||||||
|
Sub dispose()
|
||||||
|
meldungstexte.Dispose()
|
||||||
|
End Sub
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "DBZugriffe"
|
||||||
|
''' <summary>
|
||||||
|
''' Meldungen aus der Datenbanklesen, sofern diese noch nicht ausgelesen worden sind. Nach dem ersten Lesen werden
|
||||||
|
''' die Daten aus der Tabelle Meldungstexte ohne erneutem DB-Zugriff verwendet
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Meldungstext(ByVal i As Integer) As String
|
||||||
|
Dim meldungen As New DB.clsMeldungstexte
|
||||||
|
Dim res As Integer
|
||||||
|
meldungen.cpMainConnectionProvider = conn
|
||||||
|
If Me.meldungstexte.Count = 0 Then
|
||||||
|
Me.meldungstexte.Table = meldungen.SelectAll
|
||||||
|
End If
|
||||||
|
meldungstexte.Sort = "meldungstextnr"
|
||||||
|
res = meldungstexte.Find(i)
|
||||||
|
Try
|
||||||
|
Get_Meldungstext = Me.meldungstexte(res).Item(2)
|
||||||
|
Catch
|
||||||
|
Get_Meldungstext = ""
|
||||||
|
End Try
|
||||||
|
meldungen.Dispose()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
#Region "Meldungen"
|
||||||
|
''' <summary>
|
||||||
|
''' Standardmessage
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i">Messagenr</param>
|
||||||
|
''' <param name="typ">Messagetyp</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function show_standardmessage(ByVal i As Integer, ByVal typ As MsgBoxStyle) As Integer
|
||||||
|
Me.ShowMyDialog(Get_Meldungstext(i), typ, MsgBoxStyle.OkOnly)
|
||||||
|
'MsgBox(Get_Meldungstext(i), typ)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Yes-No-Meldung
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i">Meldungsnr</param>
|
||||||
|
''' <returns>MsgboxResult</returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Show_MessageYesNo(ByVal i As Integer) As MsgBoxResult
|
||||||
|
Return Me.ShowMyDialog(Get_Meldungstext(i), MsgBoxStyle.Question, MsgBoxStyle.YesNo)
|
||||||
|
'Show_MessageYesNo = MsgBox(Get_Meldungstext(i), MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Standard-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können.
|
||||||
|
''' Parameter im Meldungstext #1 oder #2
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i"></param>
|
||||||
|
''' <param name="typ"></param>
|
||||||
|
''' <param name="Text1"></param>
|
||||||
|
''' <param name="Text2"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function show_standardmessage_ReplaceText(ByVal i As Integer, ByVal typ As MsgBoxStyle, ByVal Text1 As String, ByVal Text2 As String) As Integer
|
||||||
|
Dim s As String
|
||||||
|
s = Get_Meldungstext(i)
|
||||||
|
s = s.Replace("#1", Text1)
|
||||||
|
s = s.Replace("#2", Text2)
|
||||||
|
Return Me.ShowMyDialog(s, typ, MsgBoxStyle.OkOnly)
|
||||||
|
' MsgBox(s, typ)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Yes-No-Meldung, welcher 2 Strings als Parameter übergeben werden, damit diese im Meldungstext ersetzt werden können.
|
||||||
|
''' Parameter im Meldungstext #1 oder #2
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i">MeldungsNr</param>
|
||||||
|
''' <param name="Text1">erster Text zum ersetzen</param>
|
||||||
|
''' <param name="Text2">zweiter Text zum ersetzen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function show_MessageYesNo_ReplaceText(ByVal i As Integer, ByVal Text1 As String, ByVal Text2 As String) As MsgBoxResult
|
||||||
|
Dim s As String
|
||||||
|
s = Get_Meldungstext(i)
|
||||||
|
s = s.Replace("#1", Text1)
|
||||||
|
s = s.Replace("#2", Text2)
|
||||||
|
Return Me.ShowMyDialog(s, MsgBoxStyle.Question, MsgBoxStyle.YesNo)
|
||||||
|
'show_MessageYesNo_ReplaceText = MsgBox(s, MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Ausgabe der Meldung, welche übergeben wird. Als Option können 2 Texte zum Ersetzen übergeben werden.
|
||||||
|
''' Parameter im Meldungstext #1 oder #2
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="OrgText">Meldungstext</param>
|
||||||
|
''' <param name="Text1">erster Text zum ersetzen</param>
|
||||||
|
''' <param name="Text2">zweiter Text zum ersetzen</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function ReplaceTextinMSG(ByVal OrgText As String, ByVal Text1 As String, ByVal Text2 As String) As String
|
||||||
|
OrgText = OrgText.Replace("#1", Text1)
|
||||||
|
OrgText = OrgText.Replace("#2", Text2)
|
||||||
|
ReplaceTextinMSG = OrgText
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Meldung Yes-No-Cancel
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="i"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Show_MessageYesNoCancel(ByVal i As Integer) As MsgBoxResult
|
||||||
|
Return Me.ShowMyDialog(Get_Meldungstext(i), MsgBoxStyle.Question, MsgBoxStyle.YesNoCancel)
|
||||||
|
'Show_MessageYesNoCancel = MsgBox(Get_Meldungstext(i), MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
'Private Function ShowMessage(ByVal profilnr As Integer, ByVal messagenr As Integer, ByVal fnkt As Integer, ByVal style As Integer) As Boolean
|
||||||
|
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
' Dim i As Integer
|
||||||
|
' Dim dtToReturn As DataTable = New DataTable()
|
||||||
|
' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
' scmCmdToExecute.CommandText = "dbo.sp_show_hinweismeldung"
|
||||||
|
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
' scmCmdToExecute.Connection = conn.scoDBConnection
|
||||||
|
' Try
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, profilnr))
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@hinweisnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, messagenr))
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
||||||
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@showit", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
' sdaAdapter.Fill(dtToReturn)
|
||||||
|
' i = scmCmdToExecute.Parameters.Item("@showit").Value
|
||||||
|
' If i <> 0 Then
|
||||||
|
' ShowMessage = True
|
||||||
|
' Else
|
||||||
|
' ShowMessage = False
|
||||||
|
' End If
|
||||||
|
' Catch ex As Exception
|
||||||
|
' ' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
' Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||||
|
' Finally
|
||||||
|
' scmCmdToExecute.Dispose()
|
||||||
|
' sdaAdapter.Dispose()
|
||||||
|
' End Try
|
||||||
|
'End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Zeig den eigenen Messagebox-Dialog
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="msgtext"></param>
|
||||||
|
''' <param name="cancelvisible"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function ShowMyDialog(ByVal msgtext As String, ByVal ImageStyle As MsgBoxStyle, ByVal Buttons As MsgBoxStyle) As MsgBoxResult
|
||||||
|
Dim f As New frmMsgBox
|
||||||
|
f.btnno.Visible = False
|
||||||
|
f.btnAbbruch.Visible = False
|
||||||
|
f.btnYes.Visible = False
|
||||||
|
f.btnOK.Visible = False
|
||||||
|
Select Case Buttons
|
||||||
|
Case MsgBoxStyle.OkCancel
|
||||||
|
f.btnYes.Visible = True
|
||||||
|
f.btnAbbruch.Visible = True
|
||||||
|
Case MsgBoxStyle.YesNo
|
||||||
|
f.btnYes.Visible = True
|
||||||
|
f.btnno.Visible = True
|
||||||
|
Case MsgBoxStyle.YesNoCancel
|
||||||
|
f.btnYes.Visible = True
|
||||||
|
f.btnno.Visible = True
|
||||||
|
f.btnAbbruch.Visible = True
|
||||||
|
Case MsgBoxStyle.OkOnly
|
||||||
|
f.btnOK.Visible = True
|
||||||
|
End Select
|
||||||
|
f.imgCritical.Visible = False
|
||||||
|
f.imgExclamation.Visible = False
|
||||||
|
f.imgInformation.Visible = False
|
||||||
|
f.imgQuestion.Visible = False
|
||||||
|
Select Case ImageStyle
|
||||||
|
Case MsgBoxStyle.Critical
|
||||||
|
f.imgCritical.Visible = True
|
||||||
|
Case MsgBoxStyle.Exclamation
|
||||||
|
f.imgExclamation.Visible = True
|
||||||
|
Case MsgBoxStyle.Information
|
||||||
|
f.imgInformation.Visible = True
|
||||||
|
Case MsgBoxStyle.Question
|
||||||
|
f.imgQuestion.Visible = True
|
||||||
|
End Select
|
||||||
|
f.txtmsg.Text = msgtext
|
||||||
|
'f.btnYes.Visible = True
|
||||||
|
'f.btnno.Visible = True
|
||||||
|
f.ShowDialog()
|
||||||
|
Select Case f.DialogResult
|
||||||
|
Case DialogResult.Abort, DialogResult.Cancel
|
||||||
|
Return MsgBoxResult.Cancel
|
||||||
|
Case DialogResult.No
|
||||||
|
Return MsgBoxResult.No
|
||||||
|
Case DialogResult.Yes
|
||||||
|
Return MsgBoxResult.Yes
|
||||||
|
Case Else
|
||||||
|
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die mit einer Assembly verknüpft sind.
|
||||||
|
|
||||||
|
' Die Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("Themenmanagement")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("")>
|
||||||
|
<Assembly: AssemblyProduct("Themenmanagement")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © 2012")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||||
|
<Assembly: Guid("3ec8d471-dc58-4b9a-8de9-66265b766835")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
@@ -0,0 +1,530 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'mitarbeiter'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'mitarbeiter'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsMitarbeiter
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMandantnr, m_iMutierer, m_iMitarbeiternr As SqlInt32
|
||||||
|
Private m_sEmail, m_sVorname, m_sTgnummer, m_sName As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>sVorname. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTgnummer. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sEmail. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>sVorname. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sName. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTgnummer. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sEmail. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>sVorname</LI>
|
||||||
|
''' <LI>sName</LI>
|
||||||
|
''' <LI>sTgnummer</LI>
|
||||||
|
''' <LI>sEmail</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("vorname") Is System.DBNull.Value Then
|
||||||
|
m_sVorname = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("vorname"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("name") Is System.DBNull.Value Then
|
||||||
|
m_sName = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sName = New SqlString(CType(dtToReturn.Rows(0)("name"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tgnummer") Is System.DBNull.Value Then
|
||||||
|
m_sTgnummer = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTgnummer = New SqlString(CType(dtToReturn.Rows(0)("tgnummer"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("email") Is System.DBNull.Value Then
|
||||||
|
m_sEmail = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sEmail = New SqlString(CType(dtToReturn.Rows(0)("email"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMitarbeiternr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMitarbeiternr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMitarbeiternrTmp As SqlInt32 = Value
|
||||||
|
If iMitarbeiternrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMitarbeiternr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sVorname]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sVorname
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sVorname = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sName]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sName
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sName = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTgnummer]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTgnummer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTgnummer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sEmail]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sEmail
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sEmail = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,489 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'mitarbeiter_funktionsgruppe'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'mitarbeiter_funktionsgruppe'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsMitarbeiter_funktionsgruppe
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iMitarbeiternr, m_iFunktionsgruppenr, m_iMitarbeiter_funktionsgruppenr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' <LI>iMitarbeiternr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iMitarbeiter_funktionsgruppenr</LI>
|
||||||
|
''' <LI>iMitarbeiternr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter_funktionsgruppe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiter_funktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiter_funktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMitarbeiter_funktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiter_funktionsgruppenr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("mitarbeiternr") Is System.DBNull.Value Then
|
||||||
|
m_iMitarbeiternr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("funktionsgruppenr") Is System.DBNull.Value Then
|
||||||
|
m_iFunktionsgruppenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFunktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionsgruppenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_funktionsgruppe_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("mitarbeiter_funktionsgruppe")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_mitarbeiter_funktionsgruppe_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMitarbeiter_funktionsgruppe::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMitarbeiter_funktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMitarbeiter_funktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMitarbeiter_funktionsgruppenrTmp As SqlInt32 = Value
|
||||||
|
If iMitarbeiter_funktionsgruppenrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMitarbeiter_funktionsgruppenr", "iMitarbeiter_funktionsgruppenr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMitarbeiter_funktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMitarbeiternr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMitarbeiternr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMitarbeiternr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFunktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFunktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<configuration>
|
||||||
|
<startup>
|
||||||
|
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup>
|
||||||
|
</configuration>
|
||||||
@@ -0,0 +1,165 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="SqlDataAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlInsertCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>False</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlInsertCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>False</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlInsertCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>0, 0</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlConnection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>152, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlSelectCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>False</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlSelectCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>False</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SqlSelectCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>0, 0</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="DataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>280, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAzd3d3MzMzAAAAAAAAAAAAM3d3dzMzMwAAAAAAAAAAM3eIiIi7MzMzAAAAAAAA
|
||||||
|
ADN3iIiIuzMzMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAA
|
||||||
|
AAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7
|
||||||
|
MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uI
|
||||||
|
iIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAA
|
||||||
|
AHe7iIiIiIi7dwAAAAAAAAB3u4iIiIiIu3cAAAAAAAAAiIj//////4h3AAAAAAAAAIiI//////+IdwAA
|
||||||
|
AAAAAAAzd3d3d3d3dzMAAAAAAAAAM3d3d3d3d3czAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////AAA//wA
|
||||||
|
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wA
|
||||||
|
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//////////////////////w==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
Binary file not shown.
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.17929
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||||
|
|
||||||
|
#Region "Funktion zum automatischen Speichern von My.Settings"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Themenmanagement.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Themenmanagement.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
@@ -0,0 +1,37 @@
|
|||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.dll
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail2.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbproj.GenerateResource.Cache
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe.config
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\SautinSoft.HtmlToRtf.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.2.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.vbprojResolveAssemblyReference.cache
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||||
@@ -0,0 +1,333 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class Themenübersicht
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Themenübersicht))
|
||||||
|
Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Unterkategorie 1.1")
|
||||||
|
Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Unterkategorie 1.2")
|
||||||
|
Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kategorie 1", New System.Windows.Forms.TreeNode() {TreeNode13, TreeNode14})
|
||||||
|
Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Unterkategorie 2.1")
|
||||||
|
Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Unterkategorie 2.2")
|
||||||
|
Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kategorie 2", New System.Windows.Forms.TreeNode() {TreeNode16, TreeNode17})
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.TsBtnSuchArt = New System.Windows.Forms.ToolStripDropDownButton()
|
||||||
|
Me.ApplikationSucheToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox()
|
||||||
|
Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnFilterAufheben = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||||
|
Me.TreeView1 = New System.Windows.Forms.TreeView()
|
||||||
|
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
|
||||||
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||||
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SplitContainer1.Panel1.SuspendLayout()
|
||||||
|
Me.SplitContainer1.Panel2.SuspendLayout()
|
||||||
|
Me.SplitContainer1.SuspendLayout()
|
||||||
|
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SplitContainer2.Panel1.SuspendLayout()
|
||||||
|
Me.SplitContainer2.Panel2.SuspendLayout()
|
||||||
|
Me.SplitContainer2.SuspendLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.TabControl1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripSeparator1, Me.TsBtnSuchArt, Me.ToolStripTextBox1, Me.TSBtnSuche, Me.TSBtnFilterAufheben, Me.TSBtnFirst, Me.TSBtnNext, Me.TSBtnPrevious, Me.TSBtnLast})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(965, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 4
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator1
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||||
|
'
|
||||||
|
'TsBtnSuchArt
|
||||||
|
'
|
||||||
|
Me.TsBtnSuchArt.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
|
||||||
|
Me.TsBtnSuchArt.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ApplikationSucheToolStripMenuItem})
|
||||||
|
Me.TsBtnSuchArt.Image = CType(resources.GetObject("TsBtnSuchArt.Image"), System.Drawing.Image)
|
||||||
|
Me.TsBtnSuchArt.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TsBtnSuchArt.Name = "TsBtnSuchArt"
|
||||||
|
Me.TsBtnSuchArt.Size = New System.Drawing.Size(59, 22)
|
||||||
|
Me.TsBtnSuchArt.Text = "Suchen"
|
||||||
|
'
|
||||||
|
'ApplikationSucheToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ApplikationSucheToolStripMenuItem.Name = "ApplikationSucheToolStripMenuItem"
|
||||||
|
Me.ApplikationSucheToolStripMenuItem.Size = New System.Drawing.Size(107, 22)
|
||||||
|
Me.ApplikationSucheToolStripMenuItem.Text = "Filtern"
|
||||||
|
'
|
||||||
|
'ToolStripTextBox1
|
||||||
|
'
|
||||||
|
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
|
||||||
|
Me.ToolStripTextBox1.Size = New System.Drawing.Size(100, 25)
|
||||||
|
'
|
||||||
|
'TSBtnSuche
|
||||||
|
'
|
||||||
|
Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnSuche.Image = CType(resources.GetObject("TSBtnSuche.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnSuche.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnSuche.Name = "TSBtnSuche"
|
||||||
|
Me.TSBtnSuche.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnSuche.Text = "ToolStripButton1"
|
||||||
|
'
|
||||||
|
'TSBtnFilterAufheben
|
||||||
|
'
|
||||||
|
Me.TSBtnFilterAufheben.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnFilterAufheben.Image = CType(resources.GetObject("TSBtnFilterAufheben.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnFilterAufheben.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnFilterAufheben.Name = "TSBtnFilterAufheben"
|
||||||
|
Me.TSBtnFilterAufheben.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnFilterAufheben.Text = "Filter aufheben"
|
||||||
|
'
|
||||||
|
'TSBtnFirst
|
||||||
|
'
|
||||||
|
Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnFirst.Name = "TSBtnFirst"
|
||||||
|
Me.TSBtnFirst.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnFirst.Text = "Erster Datensatz"
|
||||||
|
'
|
||||||
|
'TSBtnNext
|
||||||
|
'
|
||||||
|
Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnNext.Name = "TSBtnNext"
|
||||||
|
Me.TSBtnNext.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnNext.Text = "Nächster Datensatz"
|
||||||
|
'
|
||||||
|
'TSBtnPrevious
|
||||||
|
'
|
||||||
|
Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnPrevious.Name = "TSBtnPrevious"
|
||||||
|
Me.TSBtnPrevious.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
|
||||||
|
'
|
||||||
|
'TSBtnLast
|
||||||
|
'
|
||||||
|
Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnLast.Name = "TSBtnLast"
|
||||||
|
Me.TSBtnLast.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnLast.Text = "Letzter Datensatz"
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.AllowMerge = False
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(965, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 3
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'SplitContainer1
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SplitContainer1.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.SplitContainer1.Name = "SplitContainer1"
|
||||||
|
'
|
||||||
|
'SplitContainer1.Panel1
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Panel1.Controls.Add(Me.TreeView1)
|
||||||
|
'
|
||||||
|
'SplitContainer1.Panel2
|
||||||
|
'
|
||||||
|
Me.SplitContainer1.Panel2.Controls.Add(Me.SplitContainer2)
|
||||||
|
Me.SplitContainer1.Size = New System.Drawing.Size(965, 466)
|
||||||
|
Me.SplitContainer1.SplitterDistance = 321
|
||||||
|
Me.SplitContainer1.TabIndex = 5
|
||||||
|
'
|
||||||
|
'TreeView1
|
||||||
|
'
|
||||||
|
Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TreeView1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.TreeView1.Name = "TreeView1"
|
||||||
|
TreeNode13.Name = "Knoten1"
|
||||||
|
TreeNode13.Text = "Unterkategorie 1.1"
|
||||||
|
TreeNode14.Name = "Knoten2"
|
||||||
|
TreeNode14.Text = "Unterkategorie 1.2"
|
||||||
|
TreeNode15.Name = "Knoten0"
|
||||||
|
TreeNode15.Text = "Kategorie 1"
|
||||||
|
TreeNode16.Name = "Knoten4"
|
||||||
|
TreeNode16.Text = "Unterkategorie 2.1"
|
||||||
|
TreeNode17.Name = "Knoten5"
|
||||||
|
TreeNode17.Text = "Unterkategorie 2.2"
|
||||||
|
TreeNode18.Name = "Knoten3"
|
||||||
|
TreeNode18.Text = "Kategorie 2"
|
||||||
|
Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode15, TreeNode18})
|
||||||
|
Me.TreeView1.Size = New System.Drawing.Size(321, 466)
|
||||||
|
Me.TreeView1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'SplitContainer2
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SplitContainer2.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.SplitContainer2.Name = "SplitContainer2"
|
||||||
|
Me.SplitContainer2.Orientation = System.Windows.Forms.Orientation.Horizontal
|
||||||
|
'
|
||||||
|
'SplitContainer2.Panel1
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Panel1.Controls.Add(Me.C1TrueDBGrid1)
|
||||||
|
'
|
||||||
|
'SplitContainer2.Panel2
|
||||||
|
'
|
||||||
|
Me.SplitContainer2.Panel2.Controls.Add(Me.TabControl1)
|
||||||
|
Me.SplitContainer2.Panel2.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||||
|
Me.SplitContainer2.Size = New System.Drawing.Size(640, 466)
|
||||||
|
Me.SplitContainer2.SplitterDistance = 249
|
||||||
|
Me.SplitContainer2.TabIndex = 0
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid1
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||||||
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(640, 249)
|
||||||
|
Me.C1TrueDBGrid1.TabIndex = 0
|
||||||
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
||||||
|
'
|
||||||
|
'TabControl1
|
||||||
|
'
|
||||||
|
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||||
|
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||||
|
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.TabControl1.Name = "TabControl1"
|
||||||
|
Me.TabControl1.SelectedIndex = 0
|
||||||
|
Me.TabControl1.Size = New System.Drawing.Size(640, 213)
|
||||||
|
Me.TabControl1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'TabPage1
|
||||||
|
'
|
||||||
|
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||||
|
Me.TabPage1.Name = "TabPage1"
|
||||||
|
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||||
|
Me.TabPage1.Size = New System.Drawing.Size(632, 187)
|
||||||
|
Me.TabPage1.TabIndex = 0
|
||||||
|
Me.TabPage1.Text = "Details"
|
||||||
|
Me.TabPage1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TabPage2
|
||||||
|
'
|
||||||
|
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||||
|
Me.TabPage2.Name = "TabPage2"
|
||||||
|
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||||
|
Me.TabPage2.Size = New System.Drawing.Size(632, 187)
|
||||||
|
Me.TabPage2.TabIndex = 1
|
||||||
|
Me.TabPage2.Text = "Dokumente"
|
||||||
|
Me.TabPage2.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Themenübersicht
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(965, 515)
|
||||||
|
Me.Controls.Add(Me.SplitContainer1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Name = "Themenübersicht"
|
||||||
|
Me.Text = "Themenübersicht"
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.SplitContainer1.Panel1.ResumeLayout(False)
|
||||||
|
Me.SplitContainer1.Panel2.ResumeLayout(False)
|
||||||
|
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.SplitContainer1.ResumeLayout(False)
|
||||||
|
Me.SplitContainer2.Panel1.ResumeLayout(False)
|
||||||
|
Me.SplitContainer2.Panel2.ResumeLayout(False)
|
||||||
|
CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.SplitContainer2.ResumeLayout(False)
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.TabControl1.ResumeLayout(False)
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||||
|
Friend WithEvents TsBtnSuchArt As System.Windows.Forms.ToolStripDropDownButton
|
||||||
|
Friend WithEvents ApplikationSucheToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox
|
||||||
|
Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnFilterAufheben As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnFirst As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnNext As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnPrevious As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnLast As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
|
||||||
|
Friend WithEvents TreeView1 As System.Windows.Forms.TreeView
|
||||||
|
Friend WithEvents SplitContainer2 As System.Windows.Forms.SplitContainer
|
||||||
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
||||||
|
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||||
|
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||||
|
End Class
|
||||||
Binary file not shown.
@@ -0,0 +1,208 @@
|
|||||||
|
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Base class for Database Interaction.
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:52
|
||||||
|
' // Because this class implements IDisposable, derived classes shouldn't do so.
|
||||||
|
' //////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Configuration
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Error Enums used by this LLBL library.
|
||||||
|
' /// </summary>
|
||||||
|
Public Enum LLBLError
|
||||||
|
AllOk
|
||||||
|
' // Add more here (check the comma's!)
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
|
||||||
|
' /// </summary>
|
||||||
|
Public Interface ICommonDBAccess
|
||||||
|
Function Insert() As Boolean
|
||||||
|
Function Update() As Boolean
|
||||||
|
Function Delete() As Boolean
|
||||||
|
Function SelectOne() As DataTable
|
||||||
|
Function SelectAll() As DataTable
|
||||||
|
End Interface
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Abstract base class for Database Interaction classes.
|
||||||
|
' /// </summary>
|
||||||
|
Public MustInherit Class clsDBInteractionBase
|
||||||
|
Implements IDisposable
|
||||||
|
Implements ICommonDBAccess
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Protected m_scoMainConnection As SqlConnection
|
||||||
|
Protected m_iRowsAffected As Integer
|
||||||
|
Protected m_iErrorCode As SqlInt32
|
||||||
|
Protected m_bMainConnectionIsCreatedLocal As Boolean
|
||||||
|
Protected m_cpMainConnectionProvider As clsConnectionProvider
|
||||||
|
Private m_sConnectionString As String
|
||||||
|
Private m_bIsDisposed As Boolean
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Class constructor.
|
||||||
|
' /// </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Initialize the class' members.
|
||||||
|
InitClass()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Initializes class members.
|
||||||
|
' /// </summary>
|
||||||
|
Private Sub InitClass()
|
||||||
|
' // create all the objects and initialize other members.
|
||||||
|
m_scoMainConnection = new SqlConnection()
|
||||||
|
m_bMainConnectionIsCreatedLocal = True
|
||||||
|
m_cpMainConnectionProvider = Nothing
|
||||||
|
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
|
||||||
|
m_bIsDisposed = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the IDispose' method Dispose.
|
||||||
|
' /// </summary>
|
||||||
|
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||||
|
Dispose(True)
|
||||||
|
GC.SuppressFinalize(Me)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the Dispose functionality.
|
||||||
|
' /// </summary>
|
||||||
|
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||||
|
' // Check to see if Dispose has already been called.
|
||||||
|
If Not m_bIsDisposed Then
|
||||||
|
If bIsDisposing Then
|
||||||
|
' // Dispose managed resources.
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Object is created in this class, so destroy it here.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
m_scoMainConnection.Dispose()
|
||||||
|
m_bMainConnectionIsCreatedLocal = True
|
||||||
|
End If
|
||||||
|
m_cpMainConnectionProvider = Nothing
|
||||||
|
m_scoMainConnection = Nothing
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
m_bIsDisposed = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
|
||||||
|
' /// </summary>
|
||||||
|
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
|
||||||
|
' // No implementation, throw exception
|
||||||
|
Throw New NotImplementedException()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
|
||||||
|
' /// </summary>
|
||||||
|
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
|
||||||
|
' // No implementation, throw exception
|
||||||
|
Throw New NotImplementedException()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the ICommonDBAccess.Update() method.
|
||||||
|
' /// </summary>
|
||||||
|
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
|
||||||
|
' // No implementation, throw exception
|
||||||
|
Throw New NotImplementedException()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
|
||||||
|
' /// </summary>
|
||||||
|
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
|
||||||
|
' // No implementation, throw exception
|
||||||
|
Throw New NotImplementedException()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
|
||||||
|
' /// </summary>
|
||||||
|
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
|
||||||
|
' // No implementation, throw exception
|
||||||
|
Throw New NotImplementedException()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
|
||||||
|
Set(ByVal Value As clsConnectionProvider)
|
||||||
|
If Value Is Nothing Then
|
||||||
|
' // Invalid value
|
||||||
|
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // A connection provider object is passed to this class.
|
||||||
|
' // Retrieve the SqlConnection object, if present and create a
|
||||||
|
' // reference to it. If there is already a MainConnection object
|
||||||
|
' // referenced by the membervar, destroy that one or simply
|
||||||
|
' // remove the reference, based on the flag.
|
||||||
|
If Not (m_scoMainConnection Is Nothing) Then
|
||||||
|
' // First get rid of current connection object. Caller is responsible
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Is local created object, close it and dispose it.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
m_scoMainConnection.Dispose()
|
||||||
|
End If
|
||||||
|
' // Remove reference.
|
||||||
|
m_scoMainConnection = Nothing
|
||||||
|
End If
|
||||||
|
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
|
||||||
|
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
|
||||||
|
m_bMainConnectionIsCreatedLocal = False
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public ReadOnly Property iErrorCode() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iErrorCode
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property sConnectionString() As String
|
||||||
|
Get
|
||||||
|
Return m_sConnectionString
|
||||||
|
End Get
|
||||||
|
Set (ByVal Value As String)
|
||||||
|
m_sConnectionString = Value
|
||||||
|
m_scoMainConnection.ConnectionString = m_sConnectionString
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Public Readonly Property iRowsAffected() As Integer
|
||||||
|
Get
|
||||||
|
Return m_iRowsAffected
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,818 @@
|
|||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Namespace Utils
|
||||||
|
''' <summary>
|
||||||
|
''' Formular-Security-Objekte auslesen und auf DB schreiben bzw. Formular-Security zur Laufzeit setzen
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
|
||||||
|
Public Class MySecurity
|
||||||
|
Dim tt As New TKB.VV.Utils.clsToolTips
|
||||||
|
Dim SecurityData As DataSet = Globals.SecurityDaten
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
|
||||||
|
Dim IntForm As Form
|
||||||
|
Dim ctlcol As New Collection
|
||||||
|
Dim formname As String = ""
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Formularsecurity setzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="f">Aktuelles Formular</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Set_Form_Security(ByRef f As Form)
|
||||||
|
IntForm = f
|
||||||
|
formname = f.Name
|
||||||
|
'Load form DB
|
||||||
|
Load_Data(f.Name)
|
||||||
|
'Load FormObjects
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
formname = f.Name
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
' AddHandler ctl.HelpRequested, AddressOf Object_MouseDown
|
||||||
|
'ctl.ContextMenuStrip = Globals.TTContextMenuStrip
|
||||||
|
'AddHandler ctl.KeyDown, AddressOf Object_MouseDown
|
||||||
|
Next
|
||||||
|
Set_Security()
|
||||||
|
If Globals.Set_ToolTips = True Then
|
||||||
|
tt.Edit_ToolTips(f, ctlcol)
|
||||||
|
Else
|
||||||
|
tt.Set_ToolTips(f)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Set_Menu_Security(ByRef f As Form, ByRef menu As ToolStripMenuItem, ByVal Menuname As String)
|
||||||
|
IntForm = f
|
||||||
|
formname = f.Name
|
||||||
|
Load_Data(f.Name)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
formname = f.Name
|
||||||
|
Dim ctl As Object = menu
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, Menuname, ctl.Name))
|
||||||
|
|
||||||
|
Set_Security()
|
||||||
|
'If Globals.Set_ToolTips = True Then
|
||||||
|
' tt.Edit_ToolTips(f, ctlcol)
|
||||||
|
'Else
|
||||||
|
' tt.Set_ToolTips(f)
|
||||||
|
'End If
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Public Function Set_Form_Readonly(ByRef f As Form)
|
||||||
|
IntForm = f
|
||||||
|
Me.formname = f.Name
|
||||||
|
Load_Data(f.Name)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
Public Function Set_Form_Default(ByRef f As Form)
|
||||||
|
IntForm = f
|
||||||
|
Me.formname = f.Name
|
||||||
|
Load_Data(f.Name)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function Objectanalysis_readonly(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "splitcontainer"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmpsplit As SplitContainer = ctl
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||||
|
Objectanalysis_readonly(ctrl)
|
||||||
|
Next
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||||
|
Objectanalysis_readonly(ctrl)
|
||||||
|
Next
|
||||||
|
Case "tabcontrol", "clsmytabcontrol"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabcontrol As TabControl = ctl
|
||||||
|
For Each ctl In tmptabcontrol.TabPages
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "tabpage"
|
||||||
|
Dim tmptabpage As TabPage = ctl
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||||
|
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "groupbox"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabpage As GroupBox = ctl
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "panel"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmppanel As Panel = ctl
|
||||||
|
For Each ctl In tmppanel.Controls
|
||||||
|
Objectanalysis_readonly(ctl)
|
||||||
|
Next
|
||||||
|
Case "textbox"
|
||||||
|
Dim x As TextBox = ctl
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.ReadOnly = True
|
||||||
|
Case "maskedtextbox"
|
||||||
|
Dim x As MaskedTextBox = ctl
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.ReadOnly = True
|
||||||
|
Case "combobox"
|
||||||
|
Dim x As ComboBox = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
Case "checkbox"
|
||||||
|
Dim x As CheckBox = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
Case "radiobutton"
|
||||||
|
Dim x As RadioButton = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
Case "comboboxtree"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.enabled = False
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
Case "richtextbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.BackColor = Color.LightGray
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.ReadOnly = True
|
||||||
|
Case "button"
|
||||||
|
Dim x As Button = ctl
|
||||||
|
x.Enabled = False
|
||||||
|
Case "listbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = False
|
||||||
|
Case "checkedlistbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = False
|
||||||
|
Case "datetimepicker"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = False
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function Objectanalysis_default(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "splitcontainer"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmpsplit As SplitContainer = ctl
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||||
|
Objectanalysis_default(ctrl)
|
||||||
|
Next
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||||
|
Objectanalysis_default(ctrl)
|
||||||
|
Next
|
||||||
|
Case "tabcontrol", "clsmytabcontrol"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabcontrol As TabControl = ctl
|
||||||
|
For Each ctl In tmptabcontrol.TabPages
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "tabpage"
|
||||||
|
Dim tmptabpage As TabPage = ctl
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "groupbox"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabpage As GroupBox = ctl
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "panel"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmppanel As Panel = ctl
|
||||||
|
For Each ctl In tmppanel.Controls
|
||||||
|
Objectanalysis_default(ctl)
|
||||||
|
Next
|
||||||
|
Case "textbox"
|
||||||
|
Dim x As TextBox = ctl
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.Enabled = True
|
||||||
|
Case "maskedtextbox"
|
||||||
|
Dim x As MaskedTextBox = ctl
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.Enabled = True
|
||||||
|
Case "combobox"
|
||||||
|
Dim x As ComboBox = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
|
||||||
|
Case "checkbox"
|
||||||
|
Dim x As CheckBox = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
Case "radiobutton"
|
||||||
|
Dim x As RadioButton = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
Case "comboboxtree"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.enabled = True
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
Case "richtextbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
x.BackColor = Color.White
|
||||||
|
x.ForeColor = Color.Black
|
||||||
|
x.readonly = True
|
||||||
|
Case "button"
|
||||||
|
Dim x As Button = ctl
|
||||||
|
x.Enabled = True
|
||||||
|
Case "listbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = True
|
||||||
|
Case "checkedlistbox"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = True
|
||||||
|
Case "datetimepicker"
|
||||||
|
Dim x As Object = ctl
|
||||||
|
ctl.enabled = True
|
||||||
|
Case Else
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Daten ab Datenbank laden
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Load_Data(ByVal Formname As String)
|
||||||
|
Try
|
||||||
|
'xxx
|
||||||
|
If SecurityData.Tables.Count > 0 Then
|
||||||
|
SecurityData.Tables.Clear()
|
||||||
|
End If
|
||||||
|
' Exit Sub
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
SecurityData.Tables.Clear()
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "dbo.my_security_get_data"
|
||||||
|
sqlcmd.Parameters.Add("@FormName", SqlDbType.VarChar, 255)
|
||||||
|
sqlcmd.Parameters.Add("@Mitarbeiternr", SqlDbType.Int, 4)
|
||||||
|
sqlcmd.Parameters(0).Value = Formname
|
||||||
|
sqlcmd.Parameters(1).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(SecurityData, "SecurityTable")
|
||||||
|
Globals.SecurityDaten.Tables.Add(SecurityData.Tables(0).Copy)
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Set_Security()
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To Me.SecurityData.Tables(0).Rows.Count - 1
|
||||||
|
Dim SecurityObject As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObject")
|
||||||
|
Dim SecurityObjectitem As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObjectItem")
|
||||||
|
Dim read_only As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("readonly")
|
||||||
|
Dim invisible As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("invisible")
|
||||||
|
Dim ii As Integer
|
||||||
|
For ii = 1 To ctlcol.Count
|
||||||
|
Dim secobj As MyFormControls = ctlcol(ii)
|
||||||
|
If secobj.MySecurityObject = SecurityObject And secobj.MySecurityObjectItem = SecurityObjectitem Then
|
||||||
|
Set_Preferences(secobj.MyControl, read_only, invisible, SecurityObjectitem)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Security-Einstellungen setzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">Betroffenes Objeckt (Menuitem, Conrol usw.)</param>
|
||||||
|
''' <param name="read_only">Readonly ja/nein</param>
|
||||||
|
''' <param name="invisible">Sichtbar ja/nein</param>
|
||||||
|
''' <param name="SecurityObjectItem">Name des Unterobjektes - wird für die Spalteneinstellungen von C1TruedbGrids verwendet</param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Set_Preferences(ByRef obj As Object, ByVal read_only As Boolean, ByVal invisible As Boolean, ByVal SecurityObjectItem As String)
|
||||||
|
Dim objtype As System.Type = obj.GetType
|
||||||
|
Select Case LCase(objtype.Name)
|
||||||
|
Case "button"
|
||||||
|
Dim ctl As Button = obj
|
||||||
|
If read_only Then ctl.Enabled = False
|
||||||
|
If invisible Then
|
||||||
|
ctl.Visible = False
|
||||||
|
ctl.Enabled = False
|
||||||
|
End If
|
||||||
|
Case "toolstripmenuitem"
|
||||||
|
Dim ctl As ToolStripMenuItem = obj
|
||||||
|
If read_only Then ctl.Enabled = False
|
||||||
|
If invisible Then
|
||||||
|
ctl.Visible = False
|
||||||
|
ctl.Enabled = False
|
||||||
|
End If
|
||||||
|
Case "textbox", "label", "combobox", "checkbox", "toolstripbutton", "panel", "datetimepicker"
|
||||||
|
If read_only Then obj.Enabled = False
|
||||||
|
If invisible Then obj.Visible = False
|
||||||
|
Case "richtextbox"
|
||||||
|
If read_only Then obj.Enabled = False
|
||||||
|
Try
|
||||||
|
obj.readonly = True
|
||||||
|
obj.enabled = True
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
If invisible Then obj.Visible = False
|
||||||
|
Case "tabpage"
|
||||||
|
If invisible Then
|
||||||
|
Dim tbp As TabPage = obj
|
||||||
|
For Each x As MyFormControls In Me.ctlcol
|
||||||
|
If x.MySecurityObject = tbp.Parent.Name Then
|
||||||
|
Dim tb As TabControl = x.MyControl
|
||||||
|
tb.TabPages.Remove(tbp)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
'20100406 - TabPageHandling
|
||||||
|
If read_only Then
|
||||||
|
'obj.enabled = False
|
||||||
|
For Each CTLX As Control In obj.CONTROLS
|
||||||
|
Me.Objectanalysis_readonly(CTLX)
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Case "c1truedbgrid"
|
||||||
|
Dim ctl As C1TrueDBGrid = obj
|
||||||
|
If SecurityObjectItem = "" Then
|
||||||
|
If read_only Then ctl.Enabled = False
|
||||||
|
If invisible Then obj.Visible = False
|
||||||
|
Else
|
||||||
|
If read_only Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Locked = True
|
||||||
|
If invisible Then ctl.Splits(0).DisplayColumns(SecurityObjectItem).Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Read Objects from Form and save to Database"
|
||||||
|
Dim tmpmenuname As String
|
||||||
|
''' <summary>
|
||||||
|
''' Alle Controls des Formulars zusammensuchen und auf der DB speichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="f">Betroffenes Formular</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
|
||||||
|
Public Function List_Form_Controls(ByRef f As Form)
|
||||||
|
Me.ctlcol.Clear()
|
||||||
|
formname = f.Name
|
||||||
|
For Each ctl As Control In f.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 1 To ctlcol.Count
|
||||||
|
Dim secobj As MyFormControls = ctlcol(i)
|
||||||
|
secobj.Write_Object_to_DB()
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Sämtliche Controls vom Formular auslesen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="ctl"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Objectanalysis(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "menustrip"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
tmpmenuname = ctl.name
|
||||||
|
ReadMenu(ctl)
|
||||||
|
Case "contextmenustrip"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
tmpmenuname = ctl.name
|
||||||
|
ReadContextMenu(ctl)
|
||||||
|
Case "toolstrip"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptoolstrop As ToolStrip = ctl
|
||||||
|
Try
|
||||||
|
Dim ic As Integer
|
||||||
|
For ic = 0 To tmptoolstrop.Items.Count - 1
|
||||||
|
Try
|
||||||
|
Dim subobj As ToolStripButton
|
||||||
|
subobj = tmptoolstrop.Items(ic)
|
||||||
|
ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Next
|
||||||
|
'For Each subobj As ToolStripButton In tmptoolstrop.Items
|
||||||
|
'ctlcol.Add(New MyFormControls(subobj, formname, typ.Name, ctl.Name, subobj.Name, 1))
|
||||||
|
'Next
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
Case "splitcontainer"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmpsplit As SplitContainer = ctl
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel1.Controls
|
||||||
|
Objectanalysis(ctrl)
|
||||||
|
Next
|
||||||
|
For Each ctrl As Object In tmpsplit.Panel2.Controls
|
||||||
|
Objectanalysis(ctrl)
|
||||||
|
Next
|
||||||
|
Case "tabcontrol", "clsmytabcontrol"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabcontrol As TabControl = ctl
|
||||||
|
For Each ctl In tmptabcontrol.TabPages
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "tabpage"
|
||||||
|
Dim tmptabpage As TabPage = ctl
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, tmptabpage.Parent.Name, 1))
|
||||||
|
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "groupbox"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmptabpage As GroupBox = ctl
|
||||||
|
For Each ctl In tmptabpage.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "panel"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim tmppanel As Panel = ctl
|
||||||
|
For Each ctl In tmppanel.Controls
|
||||||
|
Objectanalysis(ctl)
|
||||||
|
Next
|
||||||
|
Case "c1truedbgrid"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim ctrl As C1TrueDBGrid = ctl
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To ctrl.Columns.Count - 1
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ctrl.Columns(i).Caption, 0, ctrl.Columns(i).Caption))
|
||||||
|
Next
|
||||||
|
Try
|
||||||
|
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||||
|
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||||
|
Objectanalysis(x)
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
For Each xctl As Object In ctrl.Controls
|
||||||
|
Objectanalysis(xctl)
|
||||||
|
Next
|
||||||
|
Case "treeview"
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
Dim ctrl As TreeView = ctl
|
||||||
|
Try
|
||||||
|
|
||||||
|
If ctrl.ContextMenuStrip.Name <> "" Then
|
||||||
|
Dim x As ContextMenuStrip = ctrl.ContextMenuStrip
|
||||||
|
Objectanalysis(x)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
If ctl.name = "TreeStruktur" Then
|
||||||
|
End If
|
||||||
|
ctlcol.Add(New MyFormControls(ctl, formname, typ.Name, ctl.Name, ""))
|
||||||
|
End Select
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Auslesen von MenuItems
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="x"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
'''
|
||||||
|
Dim level As Integer = 0
|
||||||
|
Private Function ReadMenu(ByRef x As Object)
|
||||||
|
Dim tmpmnu As MenuStrip = x
|
||||||
|
level = 0
|
||||||
|
For Each xx As Object In tmpmnu.Items
|
||||||
|
Dim objtype As System.Type = xx.GetType
|
||||||
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
||||||
|
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
|
||||||
|
get_all_menus(xx)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Auslesen von ContextMenuItems
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="x"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
'''
|
||||||
|
|
||||||
|
Private Function ReadContextMenu(ByRef x As Object)
|
||||||
|
Dim tmpmnu As ContextMenuStrip = x
|
||||||
|
level = 0
|
||||||
|
Try
|
||||||
|
For Each xx As Object In tmpmnu.Items
|
||||||
|
Dim objtype As System.Type = xx.GetType
|
||||||
|
If LCase(objtype.Name) = "toolstripmenuitem" Then
|
||||||
|
ctlcol.Add(New MyFormControls(xx, formname, "menustrip", tmpmenuname, xx.Name, level))
|
||||||
|
get_all_menus(xx)
|
||||||
|
End If
|
||||||
|
' ctlcol.Add(New MyFormControls(xx, formname, "contextmenustrip", tmpmenuname, xx.Name, level))
|
||||||
|
' get_all_menus(xx)
|
||||||
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Auslesen von Menu-Subitems
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="xx"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function get_all_menus(ByRef xx As ToolStripMenuItem)
|
||||||
|
level = level + 1
|
||||||
|
For Each subobj As Object In xx.DropDownItems
|
||||||
|
If LCase(subobj.GetType.Name) = "toolstripmenuitem" Then
|
||||||
|
ctlcol.Add(New MyFormControls(subobj, formname, "menustrip", tmpmenuname, subobj.Name, level))
|
||||||
|
get_all_menus(subobj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
level = level - 1
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="securityform">Formular</param>
|
||||||
|
''' <param name="securityobjecttype">Objekttyp</param>
|
||||||
|
''' <param name="securityobject">Objektname</param>
|
||||||
|
''' <param name="securityobjectitem">Objektitem</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityform))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjecttype))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobject))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, securityobjectitem))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
scmCmdToExecute.Connection.Open()
|
||||||
|
scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
scmCmdToExecute.Connection.Close()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "ScreenDoku"
|
||||||
|
|
||||||
|
Public Function Print_Screen(ByRef ctl As Control)
|
||||||
|
saveasbitmap(ctl, ctl.Name)
|
||||||
|
End Function
|
||||||
|
Public Function Generate_HTML()
|
||||||
|
saveasbitmap(Me.IntForm, "testform")
|
||||||
|
'Exit Function
|
||||||
|
'Dim x As MyFormControls
|
||||||
|
'For Each x In ctlcol
|
||||||
|
' Try
|
||||||
|
' saveasbitmap(x.MyControl, x.MyFormname & "_" & x.MySecurityObject & "_" & x.MySecurityObjectItem)
|
||||||
|
' If x.MySecurityObjecttype = "ToolStrip" And x.MySecurityObjectItem = "" Then
|
||||||
|
' Dim gaga As ToolStrip = x.MyControl
|
||||||
|
' For Each c As ToolStripButton In gaga.Items
|
||||||
|
' Dim xxx As Control = CType(c, Control)
|
||||||
|
|
||||||
|
' xxx = CType(c, Control)
|
||||||
|
' saveasbitmap(xxx, "xxx")
|
||||||
|
' Next
|
||||||
|
' End If
|
||||||
|
' Catch ex As Exception
|
||||||
|
' MsgBox(ex.Message)
|
||||||
|
' End Try
|
||||||
|
'Next
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function saveasbitmap(ByRef ctl As Control, ByVal filename As String)
|
||||||
|
Dim g As Graphics = ctl.CreateGraphics
|
||||||
|
Dim b As New Bitmap(ctl.Width, ctl.Height)
|
||||||
|
ctl.DrawToBitmap(b, New Rectangle(0, 0, ctl.Width, ctl.Height))
|
||||||
|
'b.Save("E:\Software-Projekte\Vertragsverwaltung\Screens\" & filename & ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
''' <summary>
|
||||||
|
''' Klasse für ein Control-Objekt
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Class MyFormControls
|
||||||
|
|
||||||
|
Public MyControl As Object
|
||||||
|
Public MyFormname As String
|
||||||
|
Public MySecurityObjecttype As String
|
||||||
|
Public MySecurityObject As String
|
||||||
|
Public MySecurityObjectItem As String
|
||||||
|
Public MyDescription As String
|
||||||
|
Public MyLevel As Integer
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Neue Instanz erstellen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="ctl">Control-Objekt</param>
|
||||||
|
''' <param name="Formname">Betroffenes Formular</param>
|
||||||
|
''' <param name="securityobjecttype">Objekttyp</param>
|
||||||
|
''' <param name="Securityobject">Objektname</param>
|
||||||
|
''' <param name="SecurityObjectItem">Unterobjekt (z.B. bei Menus, Spalten von C1TrueDBGrids)</param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Sub New(ByVal ctl As Object, ByVal Formname As String, ByVal securityobjecttype As String, ByVal Securityobject As String, ByVal SecurityObjectItem As String, Optional ByVal level As Integer = 0, Optional ByVal desc As String = "")
|
||||||
|
MyControl = ctl
|
||||||
|
MySecurityObjecttype = securityobjecttype
|
||||||
|
MyFormname = Formname
|
||||||
|
MySecurityObject = Securityobject
|
||||||
|
MySecurityObjectItem = SecurityObjectItem
|
||||||
|
If desc = "" Then
|
||||||
|
MyDescription = Get_Description(ctl)
|
||||||
|
Else
|
||||||
|
MyDescription = desc
|
||||||
|
End If
|
||||||
|
Try
|
||||||
|
MyDescription = MyDescription.Replace("&", "")
|
||||||
|
Catch ex As Exception
|
||||||
|
End Try
|
||||||
|
MyLevel = level
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function Get_Description(ByRef ctl As Object) As String
|
||||||
|
Dim typ As System.Type = ctl.GetType
|
||||||
|
Select Case LCase(typ.Name)
|
||||||
|
Case "menustrip", "toolstripmenuitem", "toolstrip", "toolstripbutton", "contextmenustrip", "tabpage", "c1truedbgrid", "label"
|
||||||
|
Return ctl.Text
|
||||||
|
Case Else
|
||||||
|
Return ctl.Name
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Schreibt einen Datnsatz in die Tabelle SecurityObjects
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Write_Object_to_DB()
|
||||||
|
If Objexists() Then Exit Function
|
||||||
|
Dim sectbl As New DB.clsSecurityObject
|
||||||
|
Dim dbkey As New DB.clsMyKey_Tabelle
|
||||||
|
dbkey.cpMainConnectionProvider = Globals.conn
|
||||||
|
Dim newkey As Integer = dbkey.get_dbkey("SecurityObject")
|
||||||
|
|
||||||
|
sectbl.cpMainConnectionProvider = Globals.conn
|
||||||
|
conn.OpenConnection()
|
||||||
|
sectbl.iSecurityObjectNr = New SqlInt32(CType(newkey, Int32))
|
||||||
|
sectbl.sSecurityForm = New SqlString(CType(MyFormname, String))
|
||||||
|
sectbl.sSecurityObjectType = New SqlString(CType(Me.MySecurityObjecttype, String))
|
||||||
|
sectbl.sSecurityObject = New SqlString(CType(Me.MySecurityObject, String))
|
||||||
|
sectbl.sSecurityObjectItem = New SqlString(CType(Me.MySecurityObjectItem, String))
|
||||||
|
sectbl.bAktiv = New SqlBoolean(CType(True, Boolean))
|
||||||
|
sectbl.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
sectbl.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
||||||
|
sectbl.sSecurityObjectDescriotion = New SqlString(CType(Me.MyDescription, String))
|
||||||
|
sectbl.iLevel = New SqlInt32(CType(Me.MyLevel, Int32))
|
||||||
|
sectbl.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
||||||
|
sectbl.iMandantnr = New SqlInt32(CType(Globals.clsmitarbeiter.iMandantnr.Value, Int32))
|
||||||
|
sectbl.Insert()
|
||||||
|
conn.CloseConnection(True)
|
||||||
|
sectbl.Dispose()
|
||||||
|
dbkey.Dispose()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
'''Prüft, ob das Security-Objekt bereits auf der DB vorhanden ist
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Function Objexists() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[my_security_check_entry]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@form", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MyFormname))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objecttype", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjecttype))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@object", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObject))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objectitem", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Me.MySecurityObjectItem))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@objexists", SqlDbType.Int, 4, ParameterDirection.Output, True, 0, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
scmCmdToExecute.Connection.Open()
|
||||||
|
scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
If scmCmdToExecute.Parameters("@objexists").Value > 0 Then
|
||||||
|
Return True
|
||||||
|
Else
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
scmCmdToExecute.Connection.Close()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class ControlsCollection
|
||||||
|
Private Shared m_controls As Collection
|
||||||
|
Public Sub New(ByVal myForm As Form)
|
||||||
|
m_controls = New Collection
|
||||||
|
'create a control walker to get
|
||||||
|
'all controls on the form
|
||||||
|
Dim aControlWalker As New ControlWalker(myForm)
|
||||||
|
End Sub
|
||||||
|
'This property returns the collection of all controls
|
||||||
|
'on the form
|
||||||
|
ReadOnly Property Controls() As Collection
|
||||||
|
Get
|
||||||
|
Return m_controls
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Function FindControl(ByVal ctlname As String) As Boolean
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 1 To Me.m_controls.Count
|
||||||
|
Dim ctl As Control = m_controls(i)
|
||||||
|
If UCase(ctl.Name) = UCase(ctlname) Then MsgBox("found")
|
||||||
|
Next
|
||||||
|
End Function
|
||||||
|
Private Class ControlWalker
|
||||||
|
' This class recursively walks through all controls
|
||||||
|
' in a container, and all containers contained in
|
||||||
|
' this container, visiting all controls throughout
|
||||||
|
' the hierarchy
|
||||||
|
Private mContainer As Object
|
||||||
|
Public Sub New(ByVal Container As Object)
|
||||||
|
Dim cControl As Control
|
||||||
|
If Container.haschildren Then
|
||||||
|
For Each cControl In Container.controls
|
||||||
|
'add this control to the controls collection
|
||||||
|
m_controls.Add(cControl)
|
||||||
|
If cControl.HasChildren Then
|
||||||
|
'This control has children, create another
|
||||||
|
'ControlWalk go visit each of them
|
||||||
|
Dim cWalker As New ControlWalker(cControl)
|
||||||
|
End If
|
||||||
|
Next cControl
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,427 @@
|
|||||||
|
Imports C1.Win.C1TrueDBGrid
|
||||||
|
Imports System
|
||||||
|
Imports System.IO
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Diagnostics
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Namesace TKB.VV.Utils fasst die Utility-Klassen für die Vertragsverwaltung
|
||||||
|
''' zusammen.
|
||||||
|
''' </summary>
|
||||||
|
''' <includesource>yes</includesource>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.clsMyTabControl"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.clsProfile"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyDocMgmt"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyFormControls"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MyMessage"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MySecurity"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.MySpaltenTitel"></seealso>
|
||||||
|
''' <seealso cref="T:Vertragsverwaltung.TKB.VV.Utils.Tabellenspalte"></seealso>
|
||||||
|
Namespace TKB.VV.Utils
|
||||||
|
''' <summary>
|
||||||
|
''' Klasse für das Speichern bzw. Auslesen von Image-Dateien in der Datenbank
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks>
|
||||||
|
''' Es werden folgende Datebanktabellen berücksichtigt:
|
||||||
|
''' <list type="bullet">
|
||||||
|
''' <item>
|
||||||
|
''' <description>Dokument Attribut DocImage</description></item>
|
||||||
|
''' <item>
|
||||||
|
''' <description>Profile Attribut V_Uebersicht (Profillayout des C1TrueDBGrids der
|
||||||
|
''' Vertragsübersicht|Vertragselemente</description></item></list>
|
||||||
|
''' </remarks>
|
||||||
|
''' <includesource>yes</includesource>
|
||||||
|
Public Class MyDocMgmt
|
||||||
|
''' <summary>
|
||||||
|
''' Grid-Layoutfile speichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="c1data">C1Truedbgrind, von welchem das Layout gespeichert werden soll</param>
|
||||||
|
''' <param name="GriddNo">Nummer des Grids: 1=Vertragsübersicht...</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Save_LayoutFile(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||||
|
Dim filename As String = Globals.clsapplication.sTmp_filepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
|
||||||
|
c1data.SaveLayout(filename)
|
||||||
|
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from profil where profilnr = " & Str(Profilnr), Connection)
|
||||||
|
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "profil")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
' Neues Profil sepeichern
|
||||||
|
myRow = ds.Tables(0).NewRow
|
||||||
|
myRow.Item(1) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
myRow.Item(2) = ""
|
||||||
|
Select Case GridNo
|
||||||
|
Case 1
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
End Select
|
||||||
|
ds.Tables(0).Rows.Add(myRow)
|
||||||
|
DA.Update(ds, "profil")
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Select Case GridNo
|
||||||
|
Case 1
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
End Select
|
||||||
|
DA.Update(ds, "profil")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
Return True
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function Get_Layoutfile_from_db(ByVal filename As String, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||||
|
'Exit Function
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("Select * From profil where profilnr=" & Str(Profilnr), connection)
|
||||||
|
'mitarbeiternr=" + Str(Globals.clsmitarbeiter.iMitarbeiternr.Value)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.Fill(ds, "docs")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
Select Case GridNo
|
||||||
|
Case 1
|
||||||
|
MyData = myRow.Item(3)
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
da = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Layout(ByRef c1data As C1TrueDBGrid, ByVal GridNo As Integer, ByVal Profilnr As Integer) As Boolean
|
||||||
|
Dim filename As String = Globals.clsapplication.sTmp_filepath + Trim(Str(Profilnr)) + Trim(Str(GridNo)) + ".lyt"
|
||||||
|
If File.Exists(filename) Then
|
||||||
|
c1data.LoadLayout(filename)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
If Get_Layoutfile_from_db(filename, GridNo, Profilnr) Then
|
||||||
|
c1data.LoadLayout(filename)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Dokument in der Tabelle Dokument speichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Dokumentnr">Nummer des Dokument-Datensatzes</param>
|
||||||
|
''' <param name="Filename">Zu speichender Dateiname</param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
|
||||||
|
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from dokument where dokumentnr =" + Str(dokumentnr), Connection)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "Dokument")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
Return False
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
myRow.Item(16) = mydata
|
||||||
|
DA.Update(ds, "Dokument")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
Return True
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="DokumentNr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
|
||||||
|
Dim Filename As String = Globals.clsapplication.sTmp_filepath
|
||||||
|
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
|
||||||
|
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.Fill(ds, "Dokument")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
MyData = myRow.Item(16)
|
||||||
|
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Filename = Filename + myRow.Item(6)
|
||||||
|
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||||
|
Return ""
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
da = Nothing
|
||||||
|
Return Filename
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Show_Document(ByVal Dokumentnr As Integer) As Boolean
|
||||||
|
Dim tmpfilename As String = Me.Get_Dokument(Dokumentnr)
|
||||||
|
If tmpfilename <> "" Then
|
||||||
|
OpenSystemFile(tmpfilename)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function OpenSystemFile(ByVal sFileName As String) As Boolean
|
||||||
|
If Len(sFileName) > 0 Then
|
||||||
|
System.Diagnostics.Process.Start(sFileName)
|
||||||
|
'
|
||||||
|
' ShellExecute(GetDesktopWindow(), vbNullString, sFileName, vbNullString, vbNullString, vbNormalFocus)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal AuswertungName As String) As String
|
||||||
|
Dim filename As String = AuswertungName
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), Connection)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
' Neues Datei speichern
|
||||||
|
myRow = ds.Tables(0).NewRow
|
||||||
|
myRow.Item(0) = Auswertungnr
|
||||||
|
myRow.Item(1) = AuswertungName
|
||||||
|
myRow.Item(2) = RptName(AuswertungName)
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
myRow.Item(4) = Now
|
||||||
|
myRow.Item(5) = Now
|
||||||
|
myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
ds.Tables(0).Rows.Add(myRow)
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
myRow.Item(1) = AuswertungName
|
||||||
|
myRow.Item(2) = RptName(AuswertungName)
|
||||||
|
myRow.Item(3) = mydata
|
||||||
|
myRow.Item(5) = Now
|
||||||
|
myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
Return RptName(AuswertungName)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function RptName(ByVal path As String) As String
|
||||||
|
Dim i As Integer
|
||||||
|
Dim file As String = path
|
||||||
|
i = InStrRev(file.Trim, "\")
|
||||||
|
If i = 0 Then
|
||||||
|
Return file.Trim
|
||||||
|
Else
|
||||||
|
Return Right(file.Trim, Len(file.Trim) - i)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim Filename As String = ""
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
Filename = Globals.clsapplication.sTmp_filepath + "\" + myRow.Item(2).ToString
|
||||||
|
If fname <> "" Then
|
||||||
|
Filename = fname
|
||||||
|
End If
|
||||||
|
MyData = myRow.Item(3)
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return filename
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Save_Architekturfile(ByVal Applikationnr As Integer, ByVal iFilename As String)
|
||||||
|
Dim filename As String = iFilename
|
||||||
|
Dim Connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), Connection)
|
||||||
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Read)
|
||||||
|
Dim mydata(fs.Length) As Byte
|
||||||
|
fs.Read(mydata, 0, fs.Length)
|
||||||
|
fs.Close()
|
||||||
|
Try
|
||||||
|
Connection.ConnectionString = Globals.sConnectionString
|
||||||
|
Connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
If ds.Tables(0).Rows.Count = 0 Then
|
||||||
|
' Neues Datei speichern
|
||||||
|
myRow = ds.Tables(0).NewRow
|
||||||
|
myRow.Item(0) = Applikationnr
|
||||||
|
myRow.Item(1) = mydata
|
||||||
|
' myRow.Item(4) = Now
|
||||||
|
' myRow.Item(5) = Now
|
||||||
|
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
ds.Tables(0).Rows.Add(myRow)
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
Else
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
myRow.Item(1) = mydata
|
||||||
|
' myRow.Item(2) = RptName(AuswertungName)
|
||||||
|
' myRow.Item(3) = mydata
|
||||||
|
' myRow.Item(5) = Now
|
||||||
|
' myRow.Item(6) = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
DA.Update(ds, "RptFile")
|
||||||
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message)
|
||||||
|
Return False
|
||||||
|
End Try
|
||||||
|
fs = Nothing
|
||||||
|
cb = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
Connection.Close()
|
||||||
|
Connection = Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Get_Architekturfile(ByVal Applikationnr As String, Optional ByVal fname As String = "") As String
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim DA As New SqlDataAdapter("select * from ApplikationArchitektur where applikationnr = " & Str(Applikationnr), connection)
|
||||||
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
||||||
|
Dim ds As New DataSet()
|
||||||
|
Dim Filename As String = ""
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
DA.Fill(ds, "RptFile")
|
||||||
|
Dim myRow As DataRow
|
||||||
|
myRow = ds.Tables(0).Rows(0)
|
||||||
|
Dim MyData() As Byte
|
||||||
|
Filename = Globals.clsapplication.sTmp_filepath + "\architekturfile.xml"
|
||||||
|
If fname <> "" Then
|
||||||
|
Filename = fname
|
||||||
|
End If
|
||||||
|
MyData = myRow.Item(1)
|
||||||
|
Dim K As Long
|
||||||
|
K = UBound(MyData)
|
||||||
|
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||||
|
fs.Write(MyData, 0, K)
|
||||||
|
fs.Close()
|
||||||
|
fs = Nothing
|
||||||
|
Catch ex As Exception
|
||||||
|
Return ""
|
||||||
|
End Try
|
||||||
|
CB = Nothing
|
||||||
|
ds = Nothing
|
||||||
|
DA = Nothing
|
||||||
|
connection.Close()
|
||||||
|
connection = Nothing
|
||||||
|
Return Filename
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,89 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmLogin
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogin))
|
||||||
|
Me.lblBitteAnmelden = New System.Windows.Forms.Label
|
||||||
|
Me.cbMitarbeiter = New System.Windows.Forms.ComboBox
|
||||||
|
Me.btnAbbruch = New System.Windows.Forms.Button
|
||||||
|
Me.btnAnmelden = New System.Windows.Forms.Button
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'lblBitteAnmelden
|
||||||
|
'
|
||||||
|
Me.lblBitteAnmelden.Location = New System.Drawing.Point(12, 9)
|
||||||
|
Me.lblBitteAnmelden.Name = "lblBitteAnmelden"
|
||||||
|
Me.lblBitteAnmelden.Size = New System.Drawing.Size(136, 23)
|
||||||
|
Me.lblBitteAnmelden.TabIndex = 3
|
||||||
|
Me.lblBitteAnmelden.Text = "Bitte melden Sie sich an"
|
||||||
|
'
|
||||||
|
'cbMitarbeiter
|
||||||
|
'
|
||||||
|
Me.cbMitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
|
||||||
|
Me.cbMitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||||
|
Me.cbMitarbeiter.FormattingEnabled = True
|
||||||
|
Me.cbMitarbeiter.Location = New System.Drawing.Point(15, 35)
|
||||||
|
Me.cbMitarbeiter.Name = "cbMitarbeiter"
|
||||||
|
Me.cbMitarbeiter.Size = New System.Drawing.Size(257, 21)
|
||||||
|
Me.cbMitarbeiter.TabIndex = 4
|
||||||
|
'
|
||||||
|
'btnAbbruch
|
||||||
|
'
|
||||||
|
Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||||
|
Me.btnAbbruch.Location = New System.Drawing.Point(158, 76)
|
||||||
|
Me.btnAbbruch.Name = "btnAbbruch"
|
||||||
|
Me.btnAbbruch.Size = New System.Drawing.Size(104, 24)
|
||||||
|
Me.btnAbbruch.TabIndex = 6
|
||||||
|
Me.btnAbbruch.Text = "&Abbruch"
|
||||||
|
'
|
||||||
|
'btnAnmelden
|
||||||
|
'
|
||||||
|
Me.btnAnmelden.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||||
|
Me.btnAnmelden.Location = New System.Drawing.Point(14, 76)
|
||||||
|
Me.btnAnmelden.Name = "btnAnmelden"
|
||||||
|
Me.btnAnmelden.Size = New System.Drawing.Size(104, 24)
|
||||||
|
Me.btnAnmelden.TabIndex = 5
|
||||||
|
Me.btnAnmelden.Text = "&Anmelden"
|
||||||
|
'
|
||||||
|
'frmLogin
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(308, 129)
|
||||||
|
Me.Controls.Add(Me.btnAbbruch)
|
||||||
|
Me.Controls.Add(Me.btnAnmelden)
|
||||||
|
Me.Controls.Add(Me.cbMitarbeiter)
|
||||||
|
Me.Controls.Add(Me.lblBitteAnmelden)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmLogin"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "Benutzerauswahl TKB-Vertragsverwaltung"
|
||||||
|
Me.TopMost = True
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents lblBitteAnmelden As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents cbMitarbeiter As System.Windows.Forms.ComboBox
|
||||||
|
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
|
||||||
|
Friend WithEvents btnAnmelden As System.Windows.Forms.Button
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,710 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'sysadminfunktion'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 18:17:09
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'sysadminfunktion'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsSysadminfunktion
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iFheight, m_iFwidth, m_iMandantnr, m_iMutierer, m_iSprache, m_iSort, m_iImageIndex, m_iSysadminfnktnr, m_iParentID, m_iFtop, m_iFleft, m_iImageIndexOpen As SqlInt32
|
||||||
|
Private m_sKeyFields, m_sDomaintable, m_sBeschreibung, m_sBezeichnung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iParentID. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSort. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndex. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndexOpen. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFtop. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFleft. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFwidth. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFheight. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sDomaintable. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sKeyFields. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSort", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSort))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndex", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndex))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndexOpen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndexOpen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iftop", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFtop))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifleft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFleft))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifwidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFwidth))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifheight", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFheight))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDomaintable", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDomaintable))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKeyFields", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKeyFields))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>sBezeichnung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iParentID. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iSort. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndex. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iImageIndexOpen. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFtop. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFleft. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFwidth. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iFheight. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sDomaintable. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sKeyFields. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iParentID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iParentID))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iSort", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSort))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndex", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndex))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iImageIndexOpen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iImageIndexOpen))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iftop", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFtop))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifleft", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFleft))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifwidth", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFwidth))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifheight", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFheight))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sDomaintable", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDomaintable))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sKeyFields", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKeyFields))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iSysadminfnktnr</LI>
|
||||||
|
''' <LI>sBezeichnung</LI>
|
||||||
|
''' <LI>iParentID</LI>
|
||||||
|
''' <LI>iSort</LI>
|
||||||
|
''' <LI>iImageIndex</LI>
|
||||||
|
''' <LI>iImageIndexOpen</LI>
|
||||||
|
''' <LI>iFtop</LI>
|
||||||
|
''' <LI>iFleft</LI>
|
||||||
|
''' <LI>iFwidth</LI>
|
||||||
|
''' <LI>iFheight</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>sDomaintable</LI>
|
||||||
|
''' <LI>sKeyFields</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@isysadminfnktnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSysadminfnktnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iSysadminfnktnr = New SqlInt32(CType(dtToReturn.Rows(0)("sysadminfnktnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
|
||||||
|
m_sBezeichnung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ParentID") Is System.DBNull.Value Then
|
||||||
|
m_iParentID = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iParentID = New SqlInt32(CType(dtToReturn.Rows(0)("ParentID"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Sort") Is System.DBNull.Value Then
|
||||||
|
m_iSort = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iSort = New SqlInt32(CType(dtToReturn.Rows(0)("Sort"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ImageIndex") Is System.DBNull.Value Then
|
||||||
|
m_iImageIndex = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iImageIndex = New SqlInt32(CType(dtToReturn.Rows(0)("ImageIndex"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ImageIndexOpen") Is System.DBNull.Value Then
|
||||||
|
m_iImageIndexOpen = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iImageIndexOpen = New SqlInt32(CType(dtToReturn.Rows(0)("ImageIndexOpen"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("ftop") Is System.DBNull.Value Then
|
||||||
|
m_iFtop = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFtop = New SqlInt32(CType(dtToReturn.Rows(0)("ftop"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("fleft") Is System.DBNull.Value Then
|
||||||
|
m_iFleft = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFleft = New SqlInt32(CType(dtToReturn.Rows(0)("fleft"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("fwidth") Is System.DBNull.Value Then
|
||||||
|
m_iFwidth = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFwidth = New SqlInt32(CType(dtToReturn.Rows(0)("fwidth"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("fheight") Is System.DBNull.Value Then
|
||||||
|
m_iFheight = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFheight = New SqlInt32(CType(dtToReturn.Rows(0)("fheight"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
End If
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Domaintable") Is System.DBNull.Value Then
|
||||||
|
m_sDomaintable = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sDomaintable = New SqlString(CType(dtToReturn.Rows(0)("Domaintable"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("KeyFields") Is System.DBNull.Value Then
|
||||||
|
m_sKeyFields = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sKeyFields = New SqlString(CType(dtToReturn.Rows(0)("KeyFields"), String))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_sysadminfunktion_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iSysadminfnktnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSysadminfnktnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSysadminfnktnrTmp As SqlInt32 = Value
|
||||||
|
If iSysadminfnktnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSysadminfnktnr", "iSysadminfnktnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSysadminfnktnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBezeichnung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBezeichnung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBezeichnung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iParentID]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iParentID
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iParentID = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSort]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSort
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iSort = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iImageIndex]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iImageIndex
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iImageIndex = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iImageIndexOpen]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iImageIndexOpen
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iImageIndexOpen = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFtop]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFtop
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFtop = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFleft]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFleft
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFleft = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFwidth]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFwidth
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFwidth = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFheight]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFheight
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFheight = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMandantnrTmp As SqlInt32 = Value
|
||||||
|
If iMandantnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMandantnr", "iMandantnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSprache]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSprache
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSpracheTmp As SqlInt32 = Value
|
||||||
|
If iSpracheTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSprache", "iSprache can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSprache = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sDomaintable]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sDomaintable
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sDomaintable = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sKeyFields]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sKeyFields
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sKeyFields = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,632 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'meldungstexte'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'meldungstexte'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsMeldungstexte
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iSprache, m_iMeldungstextnr As SqlInt32
|
||||||
|
Private m_sBeschreibung, m_sInhalt As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>sInhalt. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sinhalt", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sInhalt))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>sInhalt. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sBeschreibung. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sinhalt", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sInhalt))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sBeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method using PK field 'meldungstextnr'. This method will
|
||||||
|
''' delete one or more rows from the database, based on the Primary Key field 'meldungstextnr'.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' </remarks>
|
||||||
|
Public Function DeleteAllWmeldungstextnrLogic() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_DeleteAllWmeldungstextnrLogic]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iMeldungstextnr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@imeldungstextnr").Value, Integer))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_DeleteAllWmeldungstextnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::DeleteAllWmeldungstextnrLogic::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method using PK field 'sprache'. This method will
|
||||||
|
''' delete one or more rows from the database, based on the Primary Key field 'sprache'.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' </remarks>
|
||||||
|
Public Function DeleteAllWspracheLogic() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_DeleteAllWspracheLogic]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iSprache = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@isprache").Value, Integer))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_DeleteAllWspracheLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::DeleteAllWspracheLogic::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iMeldungstextnr</LI>
|
||||||
|
''' <LI>iSprache</LI>
|
||||||
|
''' <LI>sInhalt</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("meldungstexte")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@imeldungstextnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMeldungstextnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iMeldungstextnr = New SqlInt32(CType(dtToReturn.Rows(0)("meldungstextnr"), Integer))
|
||||||
|
m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("inhalt") Is System.DBNull.Value Then
|
||||||
|
m_sInhalt = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sInhalt = New SqlString(CType(dtToReturn.Rows(0)("inhalt"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Beschreibung") Is System.DBNull.Value Then
|
||||||
|
m_sBeschreibung = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("Beschreibung"), String))
|
||||||
|
End If
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_meldungstexte_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("meldungstexte")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_meldungstexte_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsMeldungstexte::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iMeldungstextnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMeldungstextnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iMeldungstextnrTmp As SqlInt32 = Value
|
||||||
|
If iMeldungstextnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iMeldungstextnr", "iMeldungstextnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iMeldungstextnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iSprache]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iSprache
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iSpracheTmp As SqlInt32 = Value
|
||||||
|
If iSpracheTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iSprache", "iSprache can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iSprache = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sInhalt]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sInhalt
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sInhalt = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bAktivTmp As SqlBoolean = Value
|
||||||
|
If bAktivTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,26 @@
|
|||||||
|
Public Class frmMsgBox
|
||||||
|
|
||||||
|
Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.Yes
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.No
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub frmMsgBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
|
||||||
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
Binary file not shown.
@@ -0,0 +1,223 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABeSURBVDhPYzhw4MB/SjADSDMDAwNZGKwXZkBDA8QQQq6B
|
||||||
|
qYHT5BgAczHZLkB2LVleGMQGwJyGL1pBanB6ASZJDI01GolxAUgjXhfgcj4sgQ1SA8jNUPCkTCgD4ZMH
|
||||||
|
ADk0Kh+zxKF0AAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnCopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB7SURBVDhPtVKBDcAgCOvpnsZnzJq5MFSGMSNplhFaWwJE
|
||||||
|
RE8ATwaKZkHukUAp9bHRATRTADQU4AAr+jaBbF7O2Xoc7ApYR7eDd+Y+4Pfg+8bBd9bVLv5zQHsZTB2s
|
||||||
|
bqBnJsmi9vM7IHFyeHuXNxXI5O0RBgE2fK7o3wtcor2JxHm9tQ0AAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style9{}EvenRow{BackColor:Aqua;}Normal{}FilterBar{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Style3{}Footer{}Style13{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{AlignHorz:Near;}Style16{}Style15{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style5{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style12{}Style11{}Style4{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 454, 130</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 454, 130</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>461, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,63 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.17929
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||||
|
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||||
|
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||||
|
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||||
|
'''<summary>
|
||||||
|
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Themenmanagement.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1 @@
|
|||||||
|
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.4, Version=4.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||||
3440
.svn/pristine/43/43ece9d710849e63dc65d01648a1fc2252c746eb.svn-base
Normal file
3440
.svn/pristine/43/43ece9d710849e63dc65d01648a1fc2252c746eb.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,38 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.17929
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
|
||||||
|
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
|
||||||
|
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
|
||||||
|
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
|
||||||
|
'
|
||||||
|
Partial Friend Class MyApplication
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||||
|
Me.IsSingleInstance = false
|
||||||
|
Me.EnableVisualStyles = true
|
||||||
|
Me.SaveMySettingsOnExit = true
|
||||||
|
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||||
|
Protected Overrides Sub OnCreateMainForm()
|
||||||
|
Me.MainForm = Global.Themenmanagement.frmMain
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,61 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Namespace DB
|
||||||
|
Public Class clsMyKey_Tabelle
|
||||||
|
Inherits db.clsKey_tabelle
|
||||||
|
|
||||||
|
Public Function get_dbkey(ByVal Tablename As String) As Long
|
||||||
|
Dim m_dbkey As Long
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Connection.Open()
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
End Try
|
||||||
|
|
||||||
|
scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
scmCmdToExecute.Connection.Close()
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return m_dbkey
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,510 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'Application'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:51
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'Application'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsApplication
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bShowlogin, m_bAktiv As SqlBoolean
|
||||||
|
Private m_daMutiert_am, m_daErstellt_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iMandantnr, m_iApplikationsnr As SqlInt32
|
||||||
|
Private m_sTmp_filepath, m_sVersion As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' <LI>sVersion. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bShowlogin. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTmp_filepath. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bShowlogin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stmp_filepath", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTmp_filepath))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' <LI>sVersion. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bShowlogin. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTmp_filepath. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sversion", SqlDbType.VarChar, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVersion))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowlogin", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bShowlogin))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stmp_filepath", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTmp_filepath))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iApplikationsnr</LI>
|
||||||
|
''' <LI>sVersion</LI>
|
||||||
|
''' <LI>bShowlogin</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>sTmp_filepath</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Application")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iapplikationsnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iApplikationsnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iApplikationsnr = New SqlInt32(CType(dtToReturn.Rows(0)("applikationsnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("version") Is System.DBNull.Value Then
|
||||||
|
m_sVersion = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sVersion = New SqlString(CType(dtToReturn.Rows(0)("version"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("showlogin") Is System.DBNull.Value Then
|
||||||
|
m_bShowlogin = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bShowlogin = New SqlBoolean(CType(dtToReturn.Rows(0)("showlogin"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tmp_filepath") Is System.DBNull.Value Then
|
||||||
|
m_sTmp_filepath = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTmp_filepath = New SqlString(CType(dtToReturn.Rows(0)("tmp_filepath"), String))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_Application_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("Application")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_Application_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsApplication::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iApplikationsnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iApplikationsnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iApplikationsnrTmp As SqlInt32 = Value
|
||||||
|
If iApplikationsnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iApplikationsnr", "iApplikationsnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iApplikationsnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sVersion]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sVersion
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sVersion = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bShowlogin]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bShowlogin
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bShowlogin = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTmp_filepath]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTmp_filepath
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTmp_filepath = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
@@ -0,0 +1,275 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TsBtnSuchArt.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||||
|
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||||
|
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||||
|
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||||
|
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||||
|
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||||
|
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||||
|
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||||
|
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||||
|
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSuche.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADASURBVFhH7VZJDsAgCPTpPs2fdSHFGCowVntog4kHzQDj
|
||||||
|
sLQpxQoFQgFfge2AtFuzQHF+RIFAHaO4IAArICWlc86ZNntpzl08HE0CryA3p809m1RSis0wB3JYSuGX
|
||||||
|
ai+r96yCYwMTocDn0lQQbSlTM50KiACQ+8dtCaXgVQI9iRfc4TWwIFivDnACTheY3wIjNWMEjC4wCZyt
|
||||||
|
qLTjxwgYQ8VNwbQCPPOVYnT/B2ZHsjd6XQKDxOHaCGAoEAr8U4Ed/ZKEYE1lTioAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnFilterAufheben.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEMSURBVFhH7VZbDoQgDOToHI2b4ZaIK6WlY4E/TIgJ9jEz
|
||||||
|
fcQQznMUABXIIeT3Ad2Kmdevy+EB4fHhiX8xiESrAAVmho/dbd8wF+xhEV0AVjCvCBtmg8AoUJi5C8A2
|
||||||
|
5lofxBgzHaVHeJ/g7GvQmri+6Z6zlO5efnjS27IwSik9zDgIDkCQnU/EJyVKYno0FUYAOFiPEiaAQb0l
|
||||||
|
5vUOLoVZgu0ABjKK3V5LYvjhCmiBnM23pgTSgpG6/70XGBFcAT4Fo+3Gv9H4KiPsA2Ct1m0AiIWyYBom
|
||||||
|
0lacVsAYs05KCYTQyHgJjNVqAlCmCANg1VyK4vER0cwEmvHt/t0oGKbX32oKwNdkx/4osFKBCw1pbK1R
|
||||||
|
yCECAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnFirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK/SURBVDhPdVNtSFNRGN7dnDD2oW7z7prTq0kR/VCIojCH
|
||||||
|
lRipmNSvND8qIaywkszUoASjzBTyYybNpgZpWTlnQrj8aEvJrD+FqJAfBRFo2Z9+BC3v0zknHVp24OGe
|
||||||
|
95znfe77dWSyf5dFpjY0y2Pip+WJOV75XgKyp2eEalmD7zsycFqjQ5lUIGkudkNfMQBjtQfGKjeCrrig
|
||||||
|
KeqEct9ZiXC6iIfhbyFezm+a0OXZEXpjEOJND8KrBxFW2Q/zVRdCy58itKwHpuJOaLKtkPNRk0SA94lw
|
||||||
|
WqFPf6oVYt0wxBoPIuqHEdk4ikjbG4aIhhEmFlLaBaHoEQIyasFpTX3LAmna1JIl5xeMzJzXgFg7BOHC
|
||||||
|
Y/Bn2qDelQ8ikCbj1IKThknDFmuGkPrgLYoHphBBoyEOy8jpHke6Y4yk9hz86Xsw5DaBU5N6+G/eM7+c
|
||||||
|
c3jVINyzC6ArruklqJ3QPAr3hwVIkgQP+dKzkFIHjMftUJpj52S6hCyJFsx8zUUK1gvPzFcmkGwfwZ3X
|
||||||
|
H/Hz1yKz6aJ3lEMLajhmgyo6flGmS8yWaIHWXe5h8Ex9YeTWV7M+R58AuWO8S09gyGkkAimSTLk1ZY7W
|
||||||
|
IKTEAYG0yf1+jvEtVb0o6RjFt+8/fEL0jnKE8w+hz2yA/wbLvMwvWHTSPtP2mAra4Rr7xPLdUuZk9sbC
|
||||||
|
+7C53sFLUukf/8zOgk+0IuhQHTid4KStTDMeqWAR0Ivoc23YX06KlNfCbAq6317UhtjSDmbrM63Q7F5q
|
||||||
|
IxHg/ILN/UJh+5/2HLUR3P4vaOiBByvJIAnPVo6zSREWM8nnk7+evAt91i3o0+tXI4PadQg8cB0KPmpi
|
||||||
|
1SgvKRk5nckZkFwgGfOa2aAwocNW6DOsJOdaqHfmSpza0LnWY1oZTTynDmpRrN8xoxKTvSoxyauI2DbN
|
||||||
|
qXR2Qor7+xX+BhQb3NhN6XymAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnNext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKiSURBVDhPbVNtSFNRGL53c8LYh+5uu7vm9GoShET+KYhK
|
||||||
|
7AMjlZD6VcuvkkQTK6EsDUoo0sxBfmyuFlOD8kemLq1oqcsvEPuAfk1KjYQIhfrTz+F9OufqHU498MA5
|
||||||
|
7/uch/c873sYZvPKZHTmTlVG1rwquzisOkZA9jRGqJlb8CMhM2uw9GtyqiX9zVfgGkdhcY7D0jwG090A
|
||||||
|
9DV90By/IhHOALlh3ijEq/idIWO5D4kPghAfjiPZGURS0wjs9wJIvPMWifVDsN3og77IBRWfNksE+IgI
|
||||||
|
axCGucpuiG1TEFvGkdI+hVTPDFK9n2SkuKdlsYS6AQg1vYhztII12IYVgXzDidq1yxMyWb68BcTWSQjX
|
||||||
|
X4K//By6Q1UgAvkMqxP8tExattgyCUqqeDOLr0v/UPY6JJ/XI9n5AfylZzCXPgGrI37Eph9ZVt6c3BwE
|
||||||
|
hefjIpQ18fMvsrtn5LiChLp+WMp80Nj3LzHGo4USNczeECCGvZPhmf4REaCb8MoKuj4vIt05Kuepoebz
|
||||||
|
Xmh3Z60wxuwiiRq07fZQBB1T81ECysE9ObfKuTUIc7GHCORJjGZP3hL1IKG2HwJpE4V77FuUgCRJ6J2e
|
||||||
|
w656/yrn2gtwBW7E7shcZmKsop/2mbbHVt0jwzUaigh8+f4buQ2DsvNK3lrRDdPpNrBGwU9bmW8paZQr
|
||||||
|
oAmKCm8QC7/+oNIVgPWCLxJX8lyBC/rDa20kAmyM1T4iXO1Zbc85L7iSRzCddZH9402gpcefaiKDJLxf
|
||||||
|
P842dVLGLF/VBevFp+AKO8CdaY+Gg57bEH/yPtR8WihqlNeULKzR5o/LrZYs5Z3yoMhCpBLO4SJvboXu
|
||||||
|
QKnE6sx9W32m9dVksTpTl3r7vgWtmBvWijlhdcreeVZr9BHSwY2/8D9i2NfQZVgBzQAAAABJRU5ErkJg
|
||||||
|
gg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnPrevious.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK5SURBVDhPfVNbSFRRFL13xqnMcfTOHe887jiP7KMko6Ig
|
||||||
|
IzMKE5VIIbBMmzLCEiuFsrHIAs3MB6Tmo6RmlB5EOTZqlOJkVqJGfkSB9qF+9JMKfQR+hDCrc44oOYkX
|
||||||
|
Fpt79l7r7LP2ORz3/xfHCbJLsSVxXJHgmFMcINiWOEHW3KR0zzL1i0siL8jtqqQCqK92QFvug666H2Ll
|
||||||
|
Owgl3Qgp9ECVmA9S85IwdIFCeoUcMxqa8wBy5VtY7ryHpboPkbd7YS7rhlzyGqYbXZCcHqiz6qGQoseI
|
||||||
|
gH5BhOcFc6+Q64a19iOshGytG4CtaRj25s8MtvpBIuaD8Uo7DJeeIyyjFny42UcEeCqSGnrQOU+u+QBb
|
||||||
|
wxDslLwMaI3hchukC0+wNj4PlMvxgtUrl/WwtqkAE/oHMfeGUNw/gU1Ng6w7S1UfpPOPIZ5qBq+Rvdyq
|
||||||
|
6H3Ti2euIucnBZEk2ogHzp7vmJn9A7/fD0fbF0RW+FjOWNQO8fRDqKJ2T3Gh+zP91DAz6cJ8s5vFtNZP
|
||||||
|
+PbzNyMuwPFsBHLpG1ZDDRWzm7EmJtnPaRKO+6nbputdBJ0s/vg1u4RMRbIeDcN0rQOmYlJDotbRhODN
|
||||||
|
KX5OvT1lio7KWOSBwdlG4MGO0k50jkwuEcl0DcBQ+IKZSCehPVaPVdbYGS7IssFL50yTUv5TSAUENBKj
|
||||||
|
Uitf4evkNBNKb5w3j+YizrZAOFJHLpXdy8aoO1HOOtCRRCAkYtbhW16YckkuxwXdGTfbXb33HB3jISrA
|
||||||
|
q4zrffqL87uKJ++vCG1mA8LTKsju5t6Fi0RF9Kujto5JeW5E5LZCm9UI4WjdUmTcZf9hqeVQShtHCUcK
|
||||||
|
fA+6IJ3Fq0nOJ2262JioEG1XS8npNQjZlU0uj95DiOJKrzJeqdG3KNfFTgRbk+eCrUlzSvvOcT5EchFS
|
||||||
|
XCDxL/J9y/TQNZChAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnLast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALASURBVDhPdVNrSJNRGN63OWHsom5z+8zpN5Mi+pEQRWEO
|
||||||
|
KzFSMalfaV4qIaywkszUoASjzBTyMpNmU4O0rJwzIVxe2lIy608hKuSlIAIt+9OPoOX3dM7RDS078PCd
|
||||||
|
9z3Peb73diSSf5dFotQ1S2Pip6WJOV7pPgKypz5CtazB97t0nFrvkCcViKpL3dBWDEBf7YG+yo2Qqy6o
|
||||||
|
ijoh339OJJwuckP3t5BBatg0ocmzI/zmIIRbHkRWDyKish+may6Elz9DeFkPjMWdUGVbITVETxIBg1+E
|
||||||
|
U/N92tOtEOqGIdR4YK4fRlTjKKJsbxnMDSNMLKy0C3zRYwRl1IJTG/t8Amnq1JLlyy8ZmV1eA0LtEPiL
|
||||||
|
T2A42wbl7nwQgTQJp+SdNEwatlAzhHTHGHK6x0HJPphJZMUDU0h9+I6k9gKGM/ehy20CpyT1CNy8d96X
|
||||||
|
c2TVIDwfFyCKItzkm9A8CuqLa3oFutyzC8wOK3VAf8IOuSl2TqJJyBJpwUzXXaRgvfDMfGNkun79XsTd
|
||||||
|
N5+QbB9hNj2jHFpQ3XEbFFviFyWaxGyRFmjdlR4Gz9RXv4Bv0/p6dkmAnDHe5afQ5TQSgRRRIt+WMkdr
|
||||||
|
EFbiAE/a5P4w5xf4/uMnSjpGYanqXUqBnFEOf+ERtJkNCNxgmZcEhApO2mfaHmNBO/rHv8BLQre53mNj
|
||||||
|
4QPm21rmZHVxjX1mdujJVoQcrgOn4Z20lWn6oxUsAnoQW9qBHUVt0Oe1MJuC7g+UOxBzvo3Z2kwrVHuW
|
||||||
|
20gEuIBQUz9f2L7UnmM2gjv/BQ09+FAlGST++cpxNsoiYiYN+eSvp+5Bm3Ub2vT61cigdh2CD96AzBA9
|
||||||
|
sWqUl5X0nMboDEouEPV5zWxQmNARK7QZVpJzLZS7ckVOqetc6zGtjCaeU4a0yNbvnFEIyV6FkOSVmbdP
|
||||||
|
cwqNnZDi/n6FfwBZJ9zZ5qzsngAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 664, 227</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 664, 227</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,138 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACIiIAAAAAAAAAAAAAIi
|
||||||
|
IiJyIiIiIAAAAAAAACIndyInd3ciIiIAAAAAAAIid3cvJ3d3ciIiAAAAAAACJ3d3f4J3d3ciIgAAAAAA
|
||||||
|
Ind3co/3d3d3ciIAAAAAACJ3d3L//yd3d3IgAAAAAAACd3dy//+Cd3dyIAAAAAAAAnd3cv//9yd3cgAA
|
||||||
|
AAAAAAIneHf///9ndyAAAAAAAAAAInh3hzM3giIAAAAAAAAAAAAiIzMzMzMgAAAAAAAAAAAAAAMzMzMz
|
||||||
|
MAAAAAAAAAAAAAAzu7u7uzMAAAAAAAAAAAABO7u7u7uzAAAAAAAAAAAAA7u7u7u7uzAAAAAAAAAAAAO7
|
||||||
|
u7u7u7swAAAAAAAAAAATu7u7u7u7sQAAAAAAAAAAE7u7u7u7u7MAAAAAAAAAADu7u7u7u7uzAAAAAAAA
|
||||||
|
AAAbu7u7u7u7swAAAAAAAAAAG7u7u7u7u7MAAAAAAAAAABO7Mzu7u7szAAAAAAAAAAADMzMzMzMzMwAA
|
||||||
|
AAAAAAAAAzM3eIdzMzMAAAAAAAAAAAAzeIiIiHMxAAAAAAAAAAAAM4iIiIdzMAAAAAAAAAAAAAM4iIiI
|
||||||
|
MwAAAAAAAAAAAAAAM4iIczAAAAAAAAAAAAAAAAATMxAAAAAAAAD/4AAf/gAAD/gAAA/wAAAP8AAAD/AA
|
||||||
|
AA/wAAAP8AAAD/AAAA/wAAAf8AAAH/gAAD/4AAB//gAA//+AAH//gAB//wAAP/8AAD//AAA//wAAP/8A
|
||||||
|
AB//AAAf/wAAH/8AAB//AAAf/wAAP/+AAD//gAA//8AAP//AAH//4AD///gD/w==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,138 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAzd3d3MzMzAAAAAAAAAAAAM3d3dzMzMwAAAAAAAAAAM3eIiIi7MzMzAAAAAAAA
|
||||||
|
ADN3iIiIuzMzMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAA
|
||||||
|
AAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7
|
||||||
|
MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uI
|
||||||
|
iIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAA
|
||||||
|
AHe7iIiIiIi7dwAAAAAAAAB3u4iIiIiIu3cAAAAAAAAAiIj//////4h3AAAAAAAAAIiI//////+IdwAA
|
||||||
|
AAAAAAAzd3d3d3d3dzMAAAAAAAAAM3d3d3d3d3czAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////AAA//wA
|
||||||
|
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wA
|
||||||
|
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//////////////////////w==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,538 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmDetail2
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDetail2))
|
||||||
|
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label10 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label9 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label11 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.TSBtnCopy = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnNew = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.CheckedListBox2 = New System.Windows.Forms.CheckedListBox()
|
||||||
|
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label8 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label7 = New System.Windows.Forms.Label()
|
||||||
|
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.Label6 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.Zuordnungem = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox()
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.C1TrueDBGrid2 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.ToolStrip2.SuspendLayout()
|
||||||
|
Me.Zuordnungem.SuspendLayout()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
CType(Me.C1TrueDBGrid2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'CheckBox1
|
||||||
|
'
|
||||||
|
Me.CheckBox1.AutoSize = True
|
||||||
|
Me.CheckBox1.Location = New System.Drawing.Point(85, 216)
|
||||||
|
Me.CheckBox1.Name = "CheckBox1"
|
||||||
|
Me.CheckBox1.Size = New System.Drawing.Size(15, 14)
|
||||||
|
Me.CheckBox1.TabIndex = 22
|
||||||
|
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TextBox6
|
||||||
|
'
|
||||||
|
Me.TextBox6.Location = New System.Drawing.Point(85, 292)
|
||||||
|
Me.TextBox6.Name = "TextBox6"
|
||||||
|
Me.TextBox6.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox6.TabIndex = 20
|
||||||
|
'
|
||||||
|
'Label10
|
||||||
|
'
|
||||||
|
Me.Label10.AutoSize = True
|
||||||
|
Me.Label10.Location = New System.Drawing.Point(13, 295)
|
||||||
|
Me.Label10.Name = "Label10"
|
||||||
|
Me.Label10.Size = New System.Drawing.Size(45, 13)
|
||||||
|
Me.Label10.TabIndex = 19
|
||||||
|
Me.Label10.Text = "Mutierer"
|
||||||
|
'
|
||||||
|
'TextBox5
|
||||||
|
'
|
||||||
|
Me.TextBox5.Location = New System.Drawing.Point(85, 266)
|
||||||
|
Me.TextBox5.Name = "TextBox5"
|
||||||
|
Me.TextBox5.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox5.TabIndex = 18
|
||||||
|
'
|
||||||
|
'Label9
|
||||||
|
'
|
||||||
|
Me.Label9.AutoSize = True
|
||||||
|
Me.Label9.Location = New System.Drawing.Point(13, 269)
|
||||||
|
Me.Label9.Name = "Label9"
|
||||||
|
Me.Label9.Size = New System.Drawing.Size(56, 13)
|
||||||
|
Me.Label9.TabIndex = 17
|
||||||
|
Me.Label9.Text = "Mutiert am"
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(156, 19)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(51, 13)
|
||||||
|
Me.Label5.TabIndex = 3
|
||||||
|
Me.Label5.Text = "Infokanal"
|
||||||
|
'
|
||||||
|
'Label11
|
||||||
|
'
|
||||||
|
Me.Label11.AutoSize = True
|
||||||
|
Me.Label11.Location = New System.Drawing.Point(13, 216)
|
||||||
|
Me.Label11.Name = "Label11"
|
||||||
|
Me.Label11.Size = New System.Drawing.Size(31, 13)
|
||||||
|
Me.Label11.TabIndex = 21
|
||||||
|
Me.Label11.Text = "Aktiv"
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.AutoSize = True
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(15, 19)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(57, 13)
|
||||||
|
Me.Label4.TabIndex = 2
|
||||||
|
Me.Label4.Text = "Zielgruppe"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave, Me.ToolStripSeparator1, Me.TSBtnCopy, Me.TSBtnNew, Me.TSBtnDelete})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(961, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 7
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'TSBtnSave
|
||||||
|
'
|
||||||
|
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnSave.Name = "TSBtnSave"
|
||||||
|
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnSave.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator1
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||||
|
'
|
||||||
|
'TSBtnCopy
|
||||||
|
'
|
||||||
|
Me.TSBtnCopy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnCopy.Image = CType(resources.GetObject("TSBtnCopy.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnCopy.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnCopy.Name = "TSBtnCopy"
|
||||||
|
Me.TSBtnCopy.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnCopy.Text = "ToolStripButton2"
|
||||||
|
Me.TSBtnCopy.ToolTipText = "Datensatz kopieren"
|
||||||
|
'
|
||||||
|
'TSBtnNew
|
||||||
|
'
|
||||||
|
Me.TSBtnNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnNew.Image = CType(resources.GetObject("TSBtnNew.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnNew.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnNew.Name = "TSBtnNew"
|
||||||
|
Me.TSBtnNew.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnNew.Text = "Neuer Datensatz"
|
||||||
|
Me.TSBtnNew.ToolTipText = "Neuer Datensatz"
|
||||||
|
'
|
||||||
|
'TSBtnDelete
|
||||||
|
'
|
||||||
|
Me.TSBtnDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnDelete.Image = CType(resources.GetObject("TSBtnDelete.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnDelete.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnDelete.Name = "TSBtnDelete"
|
||||||
|
Me.TSBtnDelete.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnDelete.Text = "Datensatz inaktivieren"
|
||||||
|
Me.TSBtnDelete.ToolTipText = "Datensatz inaktivieren"
|
||||||
|
'
|
||||||
|
'CheckedListBox2
|
||||||
|
'
|
||||||
|
Me.CheckedListBox2.FormattingEnabled = True
|
||||||
|
Me.CheckedListBox2.Items.AddRange(New Object() {"Infokanal 1", "Infokanal 2", "Infokanal 3"})
|
||||||
|
Me.CheckedListBox2.Location = New System.Drawing.Point(159, 36)
|
||||||
|
Me.CheckedListBox2.Name = "CheckedListBox2"
|
||||||
|
Me.CheckedListBox2.Size = New System.Drawing.Size(120, 94)
|
||||||
|
Me.CheckedListBox2.TabIndex = 1
|
||||||
|
'
|
||||||
|
'TextBox4
|
||||||
|
'
|
||||||
|
Me.TextBox4.Location = New System.Drawing.Point(85, 240)
|
||||||
|
Me.TextBox4.Name = "TextBox4"
|
||||||
|
Me.TextBox4.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox4.TabIndex = 16
|
||||||
|
'
|
||||||
|
'Label8
|
||||||
|
'
|
||||||
|
Me.Label8.AutoSize = True
|
||||||
|
Me.Label8.Location = New System.Drawing.Point(13, 243)
|
||||||
|
Me.Label8.Name = "Label8"
|
||||||
|
Me.Label8.Size = New System.Drawing.Size(55, 13)
|
||||||
|
Me.Label8.TabIndex = 15
|
||||||
|
Me.Label8.Text = "Erstellt am"
|
||||||
|
'
|
||||||
|
'Label7
|
||||||
|
'
|
||||||
|
Me.Label7.AutoSize = True
|
||||||
|
Me.Label7.Location = New System.Drawing.Point(213, 192)
|
||||||
|
Me.Label7.Name = "Label7"
|
||||||
|
Me.Label7.Size = New System.Drawing.Size(20, 13)
|
||||||
|
Me.Label7.TabIndex = 14
|
||||||
|
Me.Label7.Text = "bis"
|
||||||
|
'
|
||||||
|
'DateTimePicker2
|
||||||
|
'
|
||||||
|
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker2.Location = New System.Drawing.Point(239, 190)
|
||||||
|
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||||
|
Me.DateTimePicker2.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.DateTimePicker2.TabIndex = 13
|
||||||
|
'
|
||||||
|
'DateTimePicker1
|
||||||
|
'
|
||||||
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker1.Location = New System.Drawing.Point(85, 190)
|
||||||
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||||
|
Me.DateTimePicker1.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.DateTimePicker1.TabIndex = 12
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.AutoSize = True
|
||||||
|
Me.Label6.Location = New System.Drawing.Point(13, 193)
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Size = New System.Drawing.Size(49, 13)
|
||||||
|
Me.Label6.TabIndex = 11
|
||||||
|
Me.Label6.Text = "Gültig ab"
|
||||||
|
'
|
||||||
|
'TextBox1
|
||||||
|
'
|
||||||
|
Me.TextBox1.Location = New System.Drawing.Point(85, 19)
|
||||||
|
Me.TextBox1.Name = "TextBox1"
|
||||||
|
Me.TextBox1.Size = New System.Drawing.Size(245, 20)
|
||||||
|
Me.TextBox1.TabIndex = 6
|
||||||
|
'
|
||||||
|
'TextBox3
|
||||||
|
'
|
||||||
|
Me.TextBox3.Location = New System.Drawing.Point(85, 117)
|
||||||
|
Me.TextBox3.Multiline = True
|
||||||
|
Me.TextBox3.Name = "TextBox3"
|
||||||
|
Me.TextBox3.Size = New System.Drawing.Size(245, 66)
|
||||||
|
Me.TextBox3.TabIndex = 10
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(13, 22)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(27, 13)
|
||||||
|
Me.Label1.TabIndex = 5
|
||||||
|
Me.Label1.Text = "Titel"
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(13, 119)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(67, 13)
|
||||||
|
Me.Label3.TabIndex = 9
|
||||||
|
Me.Label3.Text = "Suchbegriffe"
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(13, 47)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(72, 13)
|
||||||
|
Me.Label2.TabIndex = 7
|
||||||
|
Me.Label2.Text = "Beschreibung"
|
||||||
|
'
|
||||||
|
'GroupBox1
|
||||||
|
'
|
||||||
|
Me.GroupBox1.Controls.Add(Me.CheckBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label11)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox6)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label10)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox5)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label9)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox4)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label8)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label7)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.DateTimePicker2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label6)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox2)
|
||||||
|
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(358, 319)
|
||||||
|
Me.GroupBox1.TabIndex = 12
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "Allgemein"
|
||||||
|
'
|
||||||
|
'TextBox2
|
||||||
|
'
|
||||||
|
Me.TextBox2.Location = New System.Drawing.Point(85, 45)
|
||||||
|
Me.TextBox2.Multiline = True
|
||||||
|
Me.TextBox2.Name = "TextBox2"
|
||||||
|
Me.TextBox2.Size = New System.Drawing.Size(245, 66)
|
||||||
|
Me.TextBox2.TabIndex = 8
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.Controls.Add(Me.GroupBox2)
|
||||||
|
Me.Panel1.Controls.Add(Me.Zuordnungem)
|
||||||
|
Me.Panel1.Controls.Add(Me.GroupBox1)
|
||||||
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(961, 319)
|
||||||
|
Me.Panel1.TabIndex = 8
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Controls.Add(Me.C1TrueDBGrid1)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.ToolStrip2)
|
||||||
|
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GroupBox2.Location = New System.Drawing.Point(358, 143)
|
||||||
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
|
Me.GroupBox2.Size = New System.Drawing.Size(603, 176)
|
||||||
|
Me.GroupBox2.TabIndex = 14
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "Dokumente"
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid1
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
|
||||||
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 41)
|
||||||
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(597, 132)
|
||||||
|
Me.C1TrueDBGrid1.TabIndex = 6
|
||||||
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||||||
|
'
|
||||||
|
'ToolStrip2
|
||||||
|
'
|
||||||
|
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton5})
|
||||||
|
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
|
||||||
|
Me.ToolStrip2.Name = "ToolStrip2"
|
||||||
|
Me.ToolStrip2.Size = New System.Drawing.Size(597, 25)
|
||||||
|
Me.ToolStrip2.TabIndex = 5
|
||||||
|
Me.ToolStrip2.Text = "ToolStrip2"
|
||||||
|
'
|
||||||
|
'ToolStripButton4
|
||||||
|
'
|
||||||
|
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||||
|
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton4.Text = "Neuer Datensatz"
|
||||||
|
Me.ToolStripButton4.ToolTipText = "Neuer Datensatz"
|
||||||
|
'
|
||||||
|
'ToolStripButton5
|
||||||
|
'
|
||||||
|
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton5.Name = "ToolStripButton5"
|
||||||
|
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton5.Text = "Datensatz inaktivieren"
|
||||||
|
Me.ToolStripButton5.ToolTipText = "Datensatz inaktivieren"
|
||||||
|
'
|
||||||
|
'Zuordnungem
|
||||||
|
'
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.Label5)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.Label4)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.CheckedListBox2)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.CheckedListBox1)
|
||||||
|
Me.Zuordnungem.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Zuordnungem.Location = New System.Drawing.Point(358, 0)
|
||||||
|
Me.Zuordnungem.Name = "Zuordnungem"
|
||||||
|
Me.Zuordnungem.Size = New System.Drawing.Size(603, 143)
|
||||||
|
Me.Zuordnungem.TabIndex = 13
|
||||||
|
Me.Zuordnungem.TabStop = False
|
||||||
|
Me.Zuordnungem.Text = "Zuordnungen"
|
||||||
|
'
|
||||||
|
'CheckedListBox1
|
||||||
|
'
|
||||||
|
Me.CheckedListBox1.FormattingEnabled = True
|
||||||
|
Me.CheckedListBox1.Items.AddRange(New Object() {"Zielgruppe 1", "Zielgruppe 2", "Zielgruppe 3"})
|
||||||
|
Me.CheckedListBox1.Location = New System.Drawing.Point(18, 35)
|
||||||
|
Me.CheckedListBox1.Name = "CheckedListBox1"
|
||||||
|
Me.CheckedListBox1.Size = New System.Drawing.Size(120, 94)
|
||||||
|
Me.CheckedListBox1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.AllowMerge = False
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(961, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 6
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid2
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid2.GroupByCaption = "Drag a column header here to group by that column"
|
||||||
|
Me.C1TrueDBGrid2.Images.Add(CType(resources.GetObject("C1TrueDBGrid2.Images"), System.Drawing.Image))
|
||||||
|
Me.C1TrueDBGrid2.Location = New System.Drawing.Point(182, 422)
|
||||||
|
Me.C1TrueDBGrid2.Name = "C1TrueDBGrid2"
|
||||||
|
Me.C1TrueDBGrid2.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid2.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid2.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid2.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid2.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid2.Size = New System.Drawing.Size(240, 150)
|
||||||
|
Me.C1TrueDBGrid2.TabIndex = 9
|
||||||
|
Me.C1TrueDBGrid2.Text = "C1TrueDBGrid2"
|
||||||
|
Me.C1TrueDBGrid2.PropBag = resources.GetString("C1TrueDBGrid2.PropBag")
|
||||||
|
'
|
||||||
|
'frmDetail2
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(961, 618)
|
||||||
|
Me.Controls.Add(Me.C1TrueDBGrid2)
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Name = "frmDetail2"
|
||||||
|
Me.Text = "frmDetail2"
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
|
Me.GroupBox1.PerformLayout()
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.PerformLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ToolStrip2.ResumeLayout(False)
|
||||||
|
Me.ToolStrip2.PerformLayout()
|
||||||
|
Me.Zuordnungem.ResumeLayout(False)
|
||||||
|
Me.Zuordnungem.PerformLayout()
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
CType(Me.C1TrueDBGrid2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||||
|
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||||
|
Friend WithEvents TSBtnCopy As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnNew As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnDelete As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents CheckedListBox2 As System.Windows.Forms.CheckedListBox
|
||||||
|
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
|
||||||
|
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
||||||
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||||
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents Zuordnungem As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents C1TrueDBGrid2 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
End Class
|
||||||
1085
.svn/pristine/4c/4cd4a4026bc8e12c2cb11dff942bb15e2a63b7c9.svn-base
Normal file
1085
.svn/pristine/4c/4cd4a4026bc8e12c2cb11dff942bb15e2a63b7c9.svn-base
Normal file
File diff suppressed because it is too large
Load Diff
Binary file not shown.
@@ -0,0 +1,177 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmMain
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.TehemnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.PendenzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ExtrasToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.SystemAdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnVertragsuebersicht = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnMonitoring = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnApplikationen = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.TehemnToolStripMenuItem, Me.PendenzenToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.ExtrasToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(990, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 1
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'TehemnToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.TehemnToolStripMenuItem.Name = "TehemnToolStripMenuItem"
|
||||||
|
Me.TehemnToolStripMenuItem.Size = New System.Drawing.Size(63, 20)
|
||||||
|
Me.TehemnToolStripMenuItem.Text = "&Themen"
|
||||||
|
'
|
||||||
|
'PendenzenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.PendenzenToolStripMenuItem.Name = "PendenzenToolStripMenuItem"
|
||||||
|
Me.PendenzenToolStripMenuItem.Size = New System.Drawing.Size(77, 20)
|
||||||
|
Me.PendenzenToolStripMenuItem.Text = "&Pendenzen"
|
||||||
|
'
|
||||||
|
'AuswertungenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
|
||||||
|
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 20)
|
||||||
|
Me.AuswertungenToolStripMenuItem.Text = "&Auswertungen"
|
||||||
|
'
|
||||||
|
'ExtrasToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.ExtrasToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SystemAdministrationToolStripMenuItem})
|
||||||
|
Me.ExtrasToolStripMenuItem.Name = "ExtrasToolStripMenuItem"
|
||||||
|
Me.ExtrasToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
|
||||||
|
Me.ExtrasToolStripMenuItem.Text = "&Extras"
|
||||||
|
'
|
||||||
|
'SystemAdministrationToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.SystemAdministrationToolStripMenuItem.Name = "SystemAdministrationToolStripMenuItem"
|
||||||
|
Me.SystemAdministrationToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
|
||||||
|
Me.SystemAdministrationToolStripMenuItem.Text = "&System-Administration"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnVertragsuebersicht, Me.TSBtnMonitoring, Me.TSBtnApplikationen, Me.ToolStripButton1})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(990, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 2
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'TSBtnVertragsuebersicht
|
||||||
|
'
|
||||||
|
Me.TSBtnVertragsuebersicht.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnVertragsuebersicht.Image = CType(resources.GetObject("TSBtnVertragsuebersicht.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnVertragsuebersicht.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnVertragsuebersicht.Name = "TSBtnVertragsuebersicht"
|
||||||
|
Me.TSBtnVertragsuebersicht.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnVertragsuebersicht.Text = "Vertragsübersicht"
|
||||||
|
'
|
||||||
|
'TSBtnMonitoring
|
||||||
|
'
|
||||||
|
Me.TSBtnMonitoring.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnMonitoring.Image = CType(resources.GetObject("TSBtnMonitoring.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnMonitoring.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnMonitoring.Name = "TSBtnMonitoring"
|
||||||
|
Me.TSBtnMonitoring.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnMonitoring.Text = "ToolStripButton3"
|
||||||
|
Me.TSBtnMonitoring.ToolTipText = "Monitoring"
|
||||||
|
'
|
||||||
|
'TSBtnApplikationen
|
||||||
|
'
|
||||||
|
Me.TSBtnApplikationen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnApplikationen.Image = CType(resources.GetObject("TSBtnApplikationen.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnApplikationen.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnApplikationen.Name = "TSBtnApplikationen"
|
||||||
|
Me.TSBtnApplikationen.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnApplikationen.Text = "Applikationsverwaltung"
|
||||||
|
'
|
||||||
|
'ToolStripButton1
|
||||||
|
'
|
||||||
|
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||||
|
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton1.Text = "Lizenzmanagement"
|
||||||
|
'
|
||||||
|
'frmMain
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(990, 518)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.IsMdiContainer = True
|
||||||
|
Me.MainMenuStrip = Me.MenuStrip1
|
||||||
|
Me.Name = "frmMain"
|
||||||
|
Me.Text = "Themen-/Issue-Management TKB"
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents TehemnToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents PendenzenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents AuswertungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ExtrasToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents SystemAdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnVertragsuebersicht As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnMonitoring As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnApplikationen As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,113 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
|
||||||
|
Public Class clsMySysadminfunkion
|
||||||
|
Inherits clsSysadminfunktion
|
||||||
|
|
||||||
|
#Region "Select Hierarchy"
|
||||||
|
Public Function SelectHierarchy() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
'scmCmdToExecute.CommandText = "dbo.[sp_sysadminfunktion_hierarchie]"
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[sp_get_sysadmin_tree]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = New DataTable("sysadminfunktion")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iroot", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMandantnr.Value))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(db.LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_sysadminfunktion_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSysadminfunktion::SelectAll::Error occured." + ex.Message, ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "LoadTreeMenu"
|
||||||
|
Public Sub LoadTreeMenu(ByVal otv As TreeView)
|
||||||
|
Dim menueintraege As New clsMySysadminfunkion()
|
||||||
|
Dim menudata As DataTable
|
||||||
|
Dim i As Integer
|
||||||
|
Dim m_collDeletedNodes As Collection
|
||||||
|
Dim collNodeKeys As New Collection()
|
||||||
|
Dim tnNew As TreeNode
|
||||||
|
Dim tnParent As TreeNode
|
||||||
|
|
||||||
|
m_collDeletedNodes = Nothing
|
||||||
|
m_collDeletedNodes = New Collection()
|
||||||
|
|
||||||
|
menueintraege.cpMainConnectionProvider = conn
|
||||||
|
menudata = menueintraege.SelectHierarchy
|
||||||
|
|
||||||
|
For i = 0 To menudata.Rows.Count - 1
|
||||||
|
If menudata.Rows(i).Item("ParentID") = 0 Then
|
||||||
|
tnNew = otv.Nodes.Add(menudata.Rows(i).Item("bezeichnung"))
|
||||||
|
With tnNew
|
||||||
|
.Tag() = menudata.Rows(i).Item("sysadminfnktnr")
|
||||||
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
||||||
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
||||||
|
End With
|
||||||
|
Try
|
||||||
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String))
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
Else
|
||||||
|
Try
|
||||||
|
tnParent = CType(collNodeKeys.Item(CType(menudata.Rows(i).Item("ParentID"), String)), TreeNode)
|
||||||
|
tnNew = tnParent.Nodes.Add(CType(menudata.Rows(i).Item("bezeichnung"), String))
|
||||||
|
With tnNew
|
||||||
|
.Tag() = CType(menudata.Rows(i).Item("sysadminfnktnr"), String)
|
||||||
|
.ImageIndex() = menudata.Rows(i).Item("ImageIndex")
|
||||||
|
.SelectedImageIndex() = menudata.Rows(i).Item("ImageIndexOpen")
|
||||||
|
End With
|
||||||
|
collNodeKeys.Add(tnNew, CType(menudata.Rows(i).Item("sysadminfnktnr"), String))
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
||||||
|
End Try
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,516 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmDetail2
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDetail2))
|
||||||
|
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label10 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label9 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label11 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.TSBtnCopy = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnNew = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.CheckedListBox2 = New System.Windows.Forms.CheckedListBox()
|
||||||
|
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label8 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label7 = New System.Windows.Forms.Label()
|
||||||
|
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.Label6 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.Zuordnungem = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox()
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.ToolStrip2.SuspendLayout()
|
||||||
|
Me.Zuordnungem.SuspendLayout()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'CheckBox1
|
||||||
|
'
|
||||||
|
Me.CheckBox1.AutoSize = True
|
||||||
|
Me.CheckBox1.Location = New System.Drawing.Point(85, 216)
|
||||||
|
Me.CheckBox1.Name = "CheckBox1"
|
||||||
|
Me.CheckBox1.Size = New System.Drawing.Size(15, 14)
|
||||||
|
Me.CheckBox1.TabIndex = 22
|
||||||
|
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'TextBox6
|
||||||
|
'
|
||||||
|
Me.TextBox6.Location = New System.Drawing.Point(85, 292)
|
||||||
|
Me.TextBox6.Name = "TextBox6"
|
||||||
|
Me.TextBox6.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox6.TabIndex = 20
|
||||||
|
'
|
||||||
|
'Label10
|
||||||
|
'
|
||||||
|
Me.Label10.AutoSize = True
|
||||||
|
Me.Label10.Location = New System.Drawing.Point(13, 295)
|
||||||
|
Me.Label10.Name = "Label10"
|
||||||
|
Me.Label10.Size = New System.Drawing.Size(45, 13)
|
||||||
|
Me.Label10.TabIndex = 19
|
||||||
|
Me.Label10.Text = "Mutierer"
|
||||||
|
'
|
||||||
|
'TextBox5
|
||||||
|
'
|
||||||
|
Me.TextBox5.Location = New System.Drawing.Point(85, 266)
|
||||||
|
Me.TextBox5.Name = "TextBox5"
|
||||||
|
Me.TextBox5.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox5.TabIndex = 18
|
||||||
|
'
|
||||||
|
'Label9
|
||||||
|
'
|
||||||
|
Me.Label9.AutoSize = True
|
||||||
|
Me.Label9.Location = New System.Drawing.Point(13, 269)
|
||||||
|
Me.Label9.Name = "Label9"
|
||||||
|
Me.Label9.Size = New System.Drawing.Size(56, 13)
|
||||||
|
Me.Label9.TabIndex = 17
|
||||||
|
Me.Label9.Text = "Mutiert am"
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(156, 19)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(51, 13)
|
||||||
|
Me.Label5.TabIndex = 3
|
||||||
|
Me.Label5.Text = "Infokanal"
|
||||||
|
'
|
||||||
|
'Label11
|
||||||
|
'
|
||||||
|
Me.Label11.AutoSize = True
|
||||||
|
Me.Label11.Location = New System.Drawing.Point(13, 216)
|
||||||
|
Me.Label11.Name = "Label11"
|
||||||
|
Me.Label11.Size = New System.Drawing.Size(31, 13)
|
||||||
|
Me.Label11.TabIndex = 21
|
||||||
|
Me.Label11.Text = "Aktiv"
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.AutoSize = True
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(15, 19)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(57, 13)
|
||||||
|
Me.Label4.TabIndex = 2
|
||||||
|
Me.Label4.Text = "Zielgruppe"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave, Me.ToolStripSeparator1, Me.TSBtnCopy, Me.TSBtnNew, Me.TSBtnDelete})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(961, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 7
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'TSBtnSave
|
||||||
|
'
|
||||||
|
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnSave.Name = "TSBtnSave"
|
||||||
|
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnSave.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator1
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||||
|
'
|
||||||
|
'TSBtnCopy
|
||||||
|
'
|
||||||
|
Me.TSBtnCopy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnCopy.Image = CType(resources.GetObject("TSBtnCopy.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnCopy.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnCopy.Name = "TSBtnCopy"
|
||||||
|
Me.TSBtnCopy.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnCopy.Text = "ToolStripButton2"
|
||||||
|
Me.TSBtnCopy.ToolTipText = "Datensatz kopieren"
|
||||||
|
'
|
||||||
|
'TSBtnNew
|
||||||
|
'
|
||||||
|
Me.TSBtnNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnNew.Image = CType(resources.GetObject("TSBtnNew.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnNew.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnNew.Name = "TSBtnNew"
|
||||||
|
Me.TSBtnNew.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnNew.Text = "Neuer Datensatz"
|
||||||
|
Me.TSBtnNew.ToolTipText = "Neuer Datensatz"
|
||||||
|
'
|
||||||
|
'TSBtnDelete
|
||||||
|
'
|
||||||
|
Me.TSBtnDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnDelete.Image = CType(resources.GetObject("TSBtnDelete.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnDelete.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnDelete.Name = "TSBtnDelete"
|
||||||
|
Me.TSBtnDelete.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnDelete.Text = "Datensatz inaktivieren"
|
||||||
|
Me.TSBtnDelete.ToolTipText = "Datensatz inaktivieren"
|
||||||
|
'
|
||||||
|
'CheckedListBox2
|
||||||
|
'
|
||||||
|
Me.CheckedListBox2.FormattingEnabled = True
|
||||||
|
Me.CheckedListBox2.Items.AddRange(New Object() {"Infokanal 1", "Infokanal 2", "Infokanal 3"})
|
||||||
|
Me.CheckedListBox2.Location = New System.Drawing.Point(159, 36)
|
||||||
|
Me.CheckedListBox2.Name = "CheckedListBox2"
|
||||||
|
Me.CheckedListBox2.Size = New System.Drawing.Size(120, 94)
|
||||||
|
Me.CheckedListBox2.TabIndex = 1
|
||||||
|
'
|
||||||
|
'TextBox4
|
||||||
|
'
|
||||||
|
Me.TextBox4.Location = New System.Drawing.Point(85, 240)
|
||||||
|
Me.TextBox4.Name = "TextBox4"
|
||||||
|
Me.TextBox4.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox4.TabIndex = 16
|
||||||
|
'
|
||||||
|
'Label8
|
||||||
|
'
|
||||||
|
Me.Label8.AutoSize = True
|
||||||
|
Me.Label8.Location = New System.Drawing.Point(13, 243)
|
||||||
|
Me.Label8.Name = "Label8"
|
||||||
|
Me.Label8.Size = New System.Drawing.Size(55, 13)
|
||||||
|
Me.Label8.TabIndex = 15
|
||||||
|
Me.Label8.Text = "Erstellt am"
|
||||||
|
'
|
||||||
|
'Label7
|
||||||
|
'
|
||||||
|
Me.Label7.AutoSize = True
|
||||||
|
Me.Label7.Location = New System.Drawing.Point(213, 192)
|
||||||
|
Me.Label7.Name = "Label7"
|
||||||
|
Me.Label7.Size = New System.Drawing.Size(20, 13)
|
||||||
|
Me.Label7.TabIndex = 14
|
||||||
|
Me.Label7.Text = "bis"
|
||||||
|
'
|
||||||
|
'DateTimePicker2
|
||||||
|
'
|
||||||
|
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker2.Location = New System.Drawing.Point(239, 190)
|
||||||
|
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||||
|
Me.DateTimePicker2.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.DateTimePicker2.TabIndex = 13
|
||||||
|
'
|
||||||
|
'DateTimePicker1
|
||||||
|
'
|
||||||
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker1.Location = New System.Drawing.Point(85, 190)
|
||||||
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||||
|
Me.DateTimePicker1.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.DateTimePicker1.TabIndex = 12
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.AutoSize = True
|
||||||
|
Me.Label6.Location = New System.Drawing.Point(13, 193)
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Size = New System.Drawing.Size(49, 13)
|
||||||
|
Me.Label6.TabIndex = 11
|
||||||
|
Me.Label6.Text = "Gültig ab"
|
||||||
|
'
|
||||||
|
'TextBox1
|
||||||
|
'
|
||||||
|
Me.TextBox1.Location = New System.Drawing.Point(85, 19)
|
||||||
|
Me.TextBox1.Name = "TextBox1"
|
||||||
|
Me.TextBox1.Size = New System.Drawing.Size(245, 20)
|
||||||
|
Me.TextBox1.TabIndex = 6
|
||||||
|
'
|
||||||
|
'TextBox3
|
||||||
|
'
|
||||||
|
Me.TextBox3.Location = New System.Drawing.Point(85, 117)
|
||||||
|
Me.TextBox3.Multiline = True
|
||||||
|
Me.TextBox3.Name = "TextBox3"
|
||||||
|
Me.TextBox3.Size = New System.Drawing.Size(245, 66)
|
||||||
|
Me.TextBox3.TabIndex = 10
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(13, 22)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(27, 13)
|
||||||
|
Me.Label1.TabIndex = 5
|
||||||
|
Me.Label1.Text = "Titel"
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(13, 119)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(67, 13)
|
||||||
|
Me.Label3.TabIndex = 9
|
||||||
|
Me.Label3.Text = "Suchbegriffe"
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(13, 47)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(72, 13)
|
||||||
|
Me.Label2.TabIndex = 7
|
||||||
|
Me.Label2.Text = "Beschreibung"
|
||||||
|
'
|
||||||
|
'GroupBox1
|
||||||
|
'
|
||||||
|
Me.GroupBox1.Controls.Add(Me.CheckBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label11)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox6)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label10)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox5)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label9)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox4)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label8)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label7)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.DateTimePicker2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label6)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox2)
|
||||||
|
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(358, 319)
|
||||||
|
Me.GroupBox1.TabIndex = 12
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "Allgemein"
|
||||||
|
'
|
||||||
|
'TextBox2
|
||||||
|
'
|
||||||
|
Me.TextBox2.Location = New System.Drawing.Point(85, 45)
|
||||||
|
Me.TextBox2.Multiline = True
|
||||||
|
Me.TextBox2.Name = "TextBox2"
|
||||||
|
Me.TextBox2.Size = New System.Drawing.Size(245, 66)
|
||||||
|
Me.TextBox2.TabIndex = 8
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.Controls.Add(Me.GroupBox2)
|
||||||
|
Me.Panel1.Controls.Add(Me.Zuordnungem)
|
||||||
|
Me.Panel1.Controls.Add(Me.GroupBox1)
|
||||||
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(961, 319)
|
||||||
|
Me.Panel1.TabIndex = 8
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Controls.Add(Me.C1TrueDBGrid1)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.ToolStrip2)
|
||||||
|
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GroupBox2.Location = New System.Drawing.Point(358, 143)
|
||||||
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
|
Me.GroupBox2.Size = New System.Drawing.Size(603, 176)
|
||||||
|
Me.GroupBox2.TabIndex = 14
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "Dokumente"
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid1
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 41)
|
||||||
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||||||
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(597, 132)
|
||||||
|
Me.C1TrueDBGrid1.TabIndex = 6
|
||||||
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
||||||
|
'
|
||||||
|
'ToolStrip2
|
||||||
|
'
|
||||||
|
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton5})
|
||||||
|
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
|
||||||
|
Me.ToolStrip2.Name = "ToolStrip2"
|
||||||
|
Me.ToolStrip2.Size = New System.Drawing.Size(597, 25)
|
||||||
|
Me.ToolStrip2.TabIndex = 5
|
||||||
|
Me.ToolStrip2.Text = "ToolStrip2"
|
||||||
|
'
|
||||||
|
'ToolStripButton4
|
||||||
|
'
|
||||||
|
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||||
|
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton4.Text = "Neuer Datensatz"
|
||||||
|
Me.ToolStripButton4.ToolTipText = "Neuer Datensatz"
|
||||||
|
'
|
||||||
|
'ToolStripButton5
|
||||||
|
'
|
||||||
|
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton5.Name = "ToolStripButton5"
|
||||||
|
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton5.Text = "Datensatz inaktivieren"
|
||||||
|
Me.ToolStripButton5.ToolTipText = "Datensatz inaktivieren"
|
||||||
|
'
|
||||||
|
'Zuordnungem
|
||||||
|
'
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.Label5)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.Label4)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.CheckedListBox2)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.CheckedListBox1)
|
||||||
|
Me.Zuordnungem.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Zuordnungem.Location = New System.Drawing.Point(358, 0)
|
||||||
|
Me.Zuordnungem.Name = "Zuordnungem"
|
||||||
|
Me.Zuordnungem.Size = New System.Drawing.Size(603, 143)
|
||||||
|
Me.Zuordnungem.TabIndex = 13
|
||||||
|
Me.Zuordnungem.TabStop = False
|
||||||
|
Me.Zuordnungem.Text = "Zuordnungen"
|
||||||
|
'
|
||||||
|
'CheckedListBox1
|
||||||
|
'
|
||||||
|
Me.CheckedListBox1.FormattingEnabled = True
|
||||||
|
Me.CheckedListBox1.Items.AddRange(New Object() {"Zielgruppe 1", "Zielgruppe 2", "Zielgruppe 3"})
|
||||||
|
Me.CheckedListBox1.Location = New System.Drawing.Point(18, 35)
|
||||||
|
Me.CheckedListBox1.Name = "CheckedListBox1"
|
||||||
|
Me.CheckedListBox1.Size = New System.Drawing.Size(120, 94)
|
||||||
|
Me.CheckedListBox1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.AllowMerge = False
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(961, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 6
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'frmDetail2
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(961, 618)
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Name = "frmDetail2"
|
||||||
|
Me.Text = "frmDetail2"
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
|
Me.GroupBox1.PerformLayout()
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.PerformLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ToolStrip2.ResumeLayout(False)
|
||||||
|
Me.ToolStrip2.PerformLayout()
|
||||||
|
Me.Zuordnungem.ResumeLayout(False)
|
||||||
|
Me.Zuordnungem.PerformLayout()
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||||
|
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||||
|
Friend WithEvents TSBtnCopy As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnNew As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnDelete As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents CheckedListBox2 As System.Windows.Forms.CheckedListBox
|
||||||
|
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
|
||||||
|
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
||||||
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||||
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents Zuordnungem As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,316 @@
|
|||||||
|
''' <summary>
|
||||||
|
''' Verbindungseditor: Verbindet 2 Domain-Tables in einer dritten Tabelle.
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
'''<seealso cref="T:Vertragsverwaltung.TKB.VV.Sysadmin.DomainTable"></seealso>
|
||||||
|
Public Class frmVerbindungEditor
|
||||||
|
|
||||||
|
#Region "Deklarationen"
|
||||||
|
Dim Fokus As Integer = 1
|
||||||
|
Dim Domaintableleft As Sysadmin.DomainTable
|
||||||
|
Dim Domaintableright As Sysadmin.DomainTable
|
||||||
|
Dim domaintablebottom As Sysadmin.DomainTable
|
||||||
|
Dim SpaltenTitel As New Utils.Tabellenspalte
|
||||||
|
Dim SysadminfunktionNr As Integer
|
||||||
|
|
||||||
|
Dim TablenameLeft As String
|
||||||
|
Dim TablenameRight As String
|
||||||
|
Dim TablenameBottom As String
|
||||||
|
Dim first As Boolean = True
|
||||||
|
|
||||||
|
Dim msg As New Utils.MyMessage
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Laden der linken und rechten Tabelle
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="TableLeft"></param>
|
||||||
|
''' <param name="TableRight"></param>
|
||||||
|
''' <param name="TableBottom"></param>
|
||||||
|
''' <param name="SysadminfnktNr"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Sub New(ByVal TableLeft As String, ByVal TableRight As String, ByVal TableBottom As String, ByVal SysadminfnktNr As Integer)
|
||||||
|
InitializeComponent()
|
||||||
|
Me.Domaintableleft = New Sysadmin.DomainTable(TableLeft)
|
||||||
|
Me.Domaintableright = New Sysadmin.DomainTable(TableRight)
|
||||||
|
Me.TablenameLeft = TableLeft
|
||||||
|
Me.TablenameRight = TableRight
|
||||||
|
Me.TablenameBottom = TableBottom
|
||||||
|
Me.SysadminfunktionNr = SysadminfnktNr
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Laden sämlticher Tabellen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub FrmVerbindungEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
Me.C1DatenLeft.DataSource = Domaintableleft.Tabledata
|
||||||
|
Me.C1DatenLeft.DataMember = Domaintableleft.Tabledata.Tables(0).TableName
|
||||||
|
|
||||||
|
Me.C1DatenRight.DataSource = Domaintableright.Tabledata
|
||||||
|
Me.C1DatenRight.DataMember = Domaintableright.Tabledata.Tables(0).TableName
|
||||||
|
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(Me.C1DatenLeft, TablenameLeft, Me.Domaintableleft.Tabledata)
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(Me.C1DatenRight, TablenameRight, Me.Domaintableright.Tabledata)
|
||||||
|
|
||||||
|
Refresh_Bottomtable()
|
||||||
|
|
||||||
|
Me.C1DatenLeft.AllowAddNew = False
|
||||||
|
Me.C1DatenLeft.AllowDelete = False
|
||||||
|
Me.C1DatenLeft.AllowUpdate = False
|
||||||
|
|
||||||
|
Me.C1DatenRight.AllowAddNew = False
|
||||||
|
Me.C1DatenRight.AllowDelete = False
|
||||||
|
Me.C1DatenRight.AllowUpdate = False
|
||||||
|
|
||||||
|
Me.C1DatenBottom.AllowAddNew = False
|
||||||
|
Me.C1DatenBottom.AllowDelete = False
|
||||||
|
|
||||||
|
Me.GrpBoxLeft.Text = Me.TablenameLeft
|
||||||
|
Me.GrpBoxRight.Text = Me.TablenameRight
|
||||||
|
Me.GrpBoxBottom.Text = Me.TablenameBottom
|
||||||
|
first = False
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Aktualiserung der Verbindungstabelle
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub Refresh_Bottomtable()
|
||||||
|
Try
|
||||||
|
check_changes()
|
||||||
|
Me.domaintablebottom.dispose()
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
|
||||||
|
Dim keyvalue As String = ""
|
||||||
|
|
||||||
|
If Fokus = 1 Then
|
||||||
|
keyvalue = Me.C1DatenLeft.Columns(0).Value
|
||||||
|
Else
|
||||||
|
keyvalue = Me.C1DatenRight.Columns(0).Value
|
||||||
|
End If
|
||||||
|
Me.domaintablebottom = New Sysadmin.DomainTable(Me.TablenameBottom, Fokus, keyvalue)
|
||||||
|
Me.C1DatenBottom.DataSource = domaintablebottom.Tabledata
|
||||||
|
Me.C1DatenBottom.DataMember = domaintablebottom.Tabledata.Tables(0).TableName
|
||||||
|
SpaltenTitel.Spaltentitel_aktualisieren(Me.C1DatenBottom, TablenameBottom, Me.domaintablebottom.Tabledata)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Linker Fokus-Knopf betätigt
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub BtnFocusLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFocusLeft.Click
|
||||||
|
Fokus = 1
|
||||||
|
Me.BtnFocusLeft.ImageIndex = 1
|
||||||
|
Me.BtnFocusRight.ImageIndex = 2
|
||||||
|
Refresh_Bottomtable()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Rechter Fokus-Knopf betätigt
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub BtnFocusRight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFocusRight.Click
|
||||||
|
Me.Fokus = 2
|
||||||
|
Me.BtnFocusRight.ImageIndex = 1
|
||||||
|
Me.BtnFocusLeft.ImageIndex = 2
|
||||||
|
Refresh_Bottomtable()
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Prüfung, ob Verbindungstabelle geändert wurde.
|
||||||
|
''' </summary>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub check_changes()
|
||||||
|
If first Then Exit Sub
|
||||||
|
Dim msgres As MsgBoxResult
|
||||||
|
If Me.domaintablebottom.Tabledata.HasChanges Then
|
||||||
|
msgres = msg.Show_MessageYesNo(3)
|
||||||
|
If msgres = MsgBoxResult.Yes Then
|
||||||
|
Me.domaintablebottom.Save_Data()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Formular schliessen
|
||||||
|
''' </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
|
||||||
|
check_changes()
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Formular schliessen
|
||||||
|
''' </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
|
||||||
|
check_changes()
|
||||||
|
Me.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Formular-Resize: Button Verbinden und Button Focus-Rechts neu positionieren
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub FrmVerbindungEditor_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
|
||||||
|
Me.BtnFocusRight.Left = Me.Width - (Me.BtnFocusRight.Width + 10)
|
||||||
|
Me.BtnVerbinden.Left = Me.SplitContainer2.Panel1.Width - (Me.BtnVerbinden.Width / 2)
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Verbindungstabelle sichern
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub TSBtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSave.Click
|
||||||
|
Me.domaintablebottom.Save_Data()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Nach Datenmutation der unteren Tabelle mutiert_am und mutierer nachführen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub C1DatenBottom_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1DatenBottom.AfterColUpdate
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To Me.C1DatenBottom.Columns.Count - 1
|
||||||
|
If LCase(Me.C1DatenBottom.Columns(i).DataField) = "mutiert_am" Then Me.C1DatenBottom.Columns(i).Value = Now
|
||||||
|
If LCase(Me.C1DatenBottom.Columns(i).DataField) = "mutierer" Then Me.C1DatenBottom.Columns(i).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Doppelklick in linken Grid
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub C1DatenLeft_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1DatenLeft.DoubleClick
|
||||||
|
Try
|
||||||
|
Me.BtnVerbinden_Click(sender, e)
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Linke Tabelle angeklickt
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub TBLeft_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1DatenLeft.RowColChange
|
||||||
|
Try
|
||||||
|
check_changes()
|
||||||
|
Refresh_Bottomtable()
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Doppelklick im rechten Grid
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub C1DatenRight_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1DatenRight.DoubleClick
|
||||||
|
Try
|
||||||
|
Me.BtnVerbinden_Click(sender, e)
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Rechte Tabelle angeklickt
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub TBRight_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1DatenRight.RowColChange
|
||||||
|
check_changes()
|
||||||
|
Refresh_Bottomtable()
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Die linke und rechte Domain-Table in der unteren Tabelle verbinden.
|
||||||
|
''' Daten sichern und erneut laden
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub BtnVerbinden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVerbinden.Click
|
||||||
|
check_changes()
|
||||||
|
Dim ileft As Integer = Me.C1DatenLeft.SelectedRows.Count
|
||||||
|
Dim iright As Integer = Me.C1DatenRight.SelectedRows.Count
|
||||||
|
Dim ic As Integer = 0
|
||||||
|
Dim Currentsel As Boolean
|
||||||
|
Dim colrows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
||||||
|
Dim keyvalueleft As Integer = 0
|
||||||
|
Dim Keyvalueright As Integer = 0
|
||||||
|
If (Me.Fokus = 1 And ileft > 1) Or (Me.Fokus = 2 And iright > 1) Then
|
||||||
|
Me.msg.show_standardmessage(4, MsgBoxStyle.Exclamation)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
If Me.Fokus = 1 Then
|
||||||
|
ic = iright
|
||||||
|
colrows = Me.C1DatenRight.SelectedRows
|
||||||
|
End If
|
||||||
|
If Me.Fokus = 2 Then
|
||||||
|
ic = ileft
|
||||||
|
colrows = Me.C1DatenLeft.SelectedRows
|
||||||
|
End If
|
||||||
|
If ic = 0 Then
|
||||||
|
ic = ic + 1
|
||||||
|
Currentsel = True
|
||||||
|
End If
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To ic - 1
|
||||||
|
If Me.Fokus = 1 Then
|
||||||
|
keyvalueleft = Me.C1DatenLeft.Columns(0).Value
|
||||||
|
If Currentsel = True Then
|
||||||
|
Keyvalueright = Me.C1DatenRight.Columns(0).Value
|
||||||
|
Else
|
||||||
|
Keyvalueright = Me.C1DatenRight.Columns(0).CellValue(colrows(i))
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
Keyvalueright = Me.C1DatenRight.Columns(0).Value
|
||||||
|
If Currentsel = True Then
|
||||||
|
keyvalueleft = Me.C1DatenLeft.Columns(0).Value
|
||||||
|
Else
|
||||||
|
keyvalueleft = Me.C1DatenLeft.Columns(0).CellValue(colrows(i))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Me.domaintablebottom.Insert_Bottom_Table(Me.Domaintableleft.Tabledata.Tables(0).Columns(0).ColumnName, keyvalueleft, Me.Domaintableright.Tabledata.Tables(0).Columns(0).ColumnName, Keyvalueright)
|
||||||
|
Me.domaintablebottom.Save_Data()
|
||||||
|
Me.Refresh_Bottomtable()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Anzeige allfälliger Cellen-Tips
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="sender"></param>
|
||||||
|
''' <param name="e"></param>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Private Sub C1DatenBottom_FetchCellTips(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles C1DatenBottom.FetchCellTips
|
||||||
|
Dim ts As New Utils.Tabellenspalte
|
||||||
|
ts.Tabelle = Me.TablenameBottom
|
||||||
|
Try
|
||||||
|
ts.Feld = Me.C1DatenBottom.Columns(e.ColIndex).DataField.ToString
|
||||||
|
ts.getspalte()
|
||||||
|
e.CellTip = ts.TipText
|
||||||
|
Catch
|
||||||
|
End Try
|
||||||
|
ts = Nothing
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,13 @@
|
|||||||
|
Public Class Themenübersicht
|
||||||
|
|
||||||
|
Private Sub TextBox5_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox5.TextChanged
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Private Sub Label9_Click(sender As System.Object, e As System.EventArgs) Handles Label9.Click
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub ÜbersichtToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,275 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TsBtnSuchArt.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||||
|
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||||
|
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||||
|
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||||
|
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||||
|
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||||
|
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||||
|
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||||
|
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||||
|
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSuche.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAADASURBVFhH7VZJDsAgCPTpPs2fdSHFGCowVntog4kHzQDj
|
||||||
|
sLQpxQoFQgFfge2AtFuzQHF+RIFAHaO4IAArICWlc86ZNntpzl08HE0CryA3p809m1RSis0wB3JYSuGX
|
||||||
|
ai+r96yCYwMTocDn0lQQbSlTM50KiACQ+8dtCaXgVQI9iRfc4TWwIFivDnACTheY3wIjNWMEjC4wCZyt
|
||||||
|
qLTjxwgYQ8VNwbQCPPOVYnT/B2ZHsjd6XQKDxOHaCGAoEAr8U4Ed/ZKEYE1lTioAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnFilterAufheben.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAEMSURBVFhH7VZbDoQgDOToHI2b4ZaIK6WlY4E/TIgJ9jEz
|
||||||
|
fcQQznMUABXIIeT3Ad2Kmdevy+EB4fHhiX8xiESrAAVmho/dbd8wF+xhEV0AVjCvCBtmg8AoUJi5C8A2
|
||||||
|
5lofxBgzHaVHeJ/g7GvQmri+6Z6zlO5efnjS27IwSik9zDgIDkCQnU/EJyVKYno0FUYAOFiPEiaAQb0l
|
||||||
|
5vUOLoVZgu0ABjKK3V5LYvjhCmiBnM23pgTSgpG6/70XGBFcAT4Fo+3Gv9H4KiPsA2Ct1m0AiIWyYBom
|
||||||
|
0lacVsAYs05KCYTQyHgJjNVqAlCmCANg1VyK4vER0cwEmvHt/t0oGKbX32oKwNdkx/4osFKBCw1pbK1R
|
||||||
|
yCECAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnFirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK/SURBVDhPdVNtSFNRGN7dnDD2oW7z7prTq0kR/VCIojCH
|
||||||
|
lRipmNSvND8qIaywkszUoASjzBTyYybNpgZpWTlnQrj8aEvJrD+FqJAfBRFo2Z9+BC3v0zknHVp24OGe
|
||||||
|
95znfe77dWSyf5dFpjY0y2Pip+WJOV75XgKyp2eEalmD7zsycFqjQ5lUIGkudkNfMQBjtQfGKjeCrrig
|
||||||
|
KeqEct9ZiXC6iIfhbyFezm+a0OXZEXpjEOJND8KrBxFW2Q/zVRdCy58itKwHpuJOaLKtkPNRk0SA94lw
|
||||||
|
WqFPf6oVYt0wxBoPIuqHEdk4ikjbG4aIhhEmFlLaBaHoEQIyasFpTX3LAmna1JIl5xeMzJzXgFg7BOHC
|
||||||
|
Y/Bn2qDelQ8ikCbj1IKThknDFmuGkPrgLYoHphBBoyEOy8jpHke6Y4yk9hz86Xsw5DaBU5N6+G/eM7+c
|
||||||
|
c3jVINyzC6ArruklqJ3QPAr3hwVIkgQP+dKzkFIHjMftUJpj52S6hCyJFsx8zUUK1gvPzFcmkGwfwZ3X
|
||||||
|
H/Hz1yKz6aJ3lEMLajhmgyo6flGmS8yWaIHWXe5h8Ex9YeTWV7M+R58AuWO8S09gyGkkAimSTLk1ZY7W
|
||||||
|
IKTEAYG0yf1+jvEtVb0o6RjFt+8/fEL0jnKE8w+hz2yA/wbLvMwvWHTSPtP2mAra4Rr7xPLdUuZk9sbC
|
||||||
|
+7C53sFLUukf/8zOgk+0IuhQHTid4KStTDMeqWAR0Ivoc23YX06KlNfCbAq6317UhtjSDmbrM63Q7F5q
|
||||||
|
IxHg/ILN/UJh+5/2HLUR3P4vaOiBByvJIAnPVo6zSREWM8nnk7+evAt91i3o0+tXI4PadQg8cB0KPmpi
|
||||||
|
1SgvKRk5nckZkFwgGfOa2aAwocNW6DOsJOdaqHfmSpza0LnWY1oZTTynDmpRrN8xoxKTvSoxyauI2DbN
|
||||||
|
qXR2Qor7+xX+BhQb3NhN6XymAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnNext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKiSURBVDhPbVNtSFNRGL53c8LYh+5uu7vm9GoShET+KYhK
|
||||||
|
7AMjlZD6VcuvkkQTK6EsDUoo0sxBfmyuFlOD8kemLq1oqcsvEPuAfk1KjYQIhfrTz+F9OufqHU498MA5
|
||||||
|
7/uch/c873sYZvPKZHTmTlVG1rwquzisOkZA9jRGqJlb8CMhM2uw9GtyqiX9zVfgGkdhcY7D0jwG090A
|
||||||
|
9DV90By/IhHOALlh3ijEq/idIWO5D4kPghAfjiPZGURS0wjs9wJIvPMWifVDsN3og77IBRWfNksE+IgI
|
||||||
|
axCGucpuiG1TEFvGkdI+hVTPDFK9n2SkuKdlsYS6AQg1vYhztII12IYVgXzDidq1yxMyWb68BcTWSQjX
|
||||||
|
X4K//By6Q1UgAvkMqxP8tExattgyCUqqeDOLr0v/UPY6JJ/XI9n5AfylZzCXPgGrI37Eph9ZVt6c3BwE
|
||||||
|
hefjIpQ18fMvsrtn5LiChLp+WMp80Nj3LzHGo4USNczeECCGvZPhmf4REaCb8MoKuj4vIt05Kuepoebz
|
||||||
|
Xmh3Z60wxuwiiRq07fZQBB1T81ECysE9ObfKuTUIc7GHCORJjGZP3hL1IKG2HwJpE4V77FuUgCRJ6J2e
|
||||||
|
w656/yrn2gtwBW7E7shcZmKsop/2mbbHVt0jwzUaigh8+f4buQ2DsvNK3lrRDdPpNrBGwU9bmW8paZQr
|
||||||
|
oAmKCm8QC7/+oNIVgPWCLxJX8lyBC/rDa20kAmyM1T4iXO1Zbc85L7iSRzCddZH9402gpcefaiKDJLxf
|
||||||
|
P842dVLGLF/VBevFp+AKO8CdaY+Gg57bEH/yPtR8WihqlNeULKzR5o/LrZYs5Z3yoMhCpBLO4SJvboXu
|
||||||
|
QKnE6sx9W32m9dVksTpTl3r7vgWtmBvWijlhdcreeVZr9BHSwY2/8D9i2NfQZVgBzQAAAABJRU5ErkJg
|
||||||
|
gg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnPrevious.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK5SURBVDhPfVNbSFRRFL13xqnMcfTOHe887jiP7KMko6Ig
|
||||||
|
IzMKE5VIIbBMmzLCEiuFsrHIAs3MB6Tmo6RmlB5EOTZqlOJkVqJGfkSB9qF+9JMKfQR+hDCrc44oOYkX
|
||||||
|
Fpt79l7r7LP2ORz3/xfHCbJLsSVxXJHgmFMcINiWOEHW3KR0zzL1i0siL8jtqqQCqK92QFvug666H2Ll
|
||||||
|
Owgl3Qgp9ECVmA9S85IwdIFCeoUcMxqa8wBy5VtY7ryHpboPkbd7YS7rhlzyGqYbXZCcHqiz6qGQoseI
|
||||||
|
gH5BhOcFc6+Q64a19iOshGytG4CtaRj25s8MtvpBIuaD8Uo7DJeeIyyjFny42UcEeCqSGnrQOU+u+QBb
|
||||||
|
wxDslLwMaI3hchukC0+wNj4PlMvxgtUrl/WwtqkAE/oHMfeGUNw/gU1Ng6w7S1UfpPOPIZ5qBq+Rvdyq
|
||||||
|
6H3Ti2euIucnBZEk2ogHzp7vmJn9A7/fD0fbF0RW+FjOWNQO8fRDqKJ2T3Gh+zP91DAz6cJ8s5vFtNZP
|
||||||
|
+PbzNyMuwPFsBHLpG1ZDDRWzm7EmJtnPaRKO+6nbputdBJ0s/vg1u4RMRbIeDcN0rQOmYlJDotbRhODN
|
||||||
|
KX5OvT1lio7KWOSBwdlG4MGO0k50jkwuEcl0DcBQ+IKZSCehPVaPVdbYGS7IssFL50yTUv5TSAUENBKj
|
||||||
|
Uitf4evkNBNKb5w3j+YizrZAOFJHLpXdy8aoO1HOOtCRRCAkYtbhW16YckkuxwXdGTfbXb33HB3jISrA
|
||||||
|
q4zrffqL87uKJ++vCG1mA8LTKsju5t6Fi0RF9Kujto5JeW5E5LZCm9UI4WjdUmTcZf9hqeVQShtHCUcK
|
||||||
|
fA+6IJ3Fq0nOJ2262JioEG1XS8npNQjZlU0uj95DiOJKrzJeqdG3KNfFTgRbk+eCrUlzSvvOcT5EchFS
|
||||||
|
XCDxL/J9y/TQNZChAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnLast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALASURBVDhPdVNrSJNRGN63OWHsom5z+8zpN5Mi+pEQRWEO
|
||||||
|
KzFSMalfaV4qIaywkszUoASjzBTyMpNmU4O0rJwzIVxe2lIy608hKuSlIAIt+9OPoOX3dM7RDS078PCd
|
||||||
|
9z3Peb73diSSf5dFotQ1S2Pip6WJOV7pPgKypz5CtazB97t0nFrvkCcViKpL3dBWDEBf7YG+yo2Qqy6o
|
||||||
|
ijoh339OJJwuckP3t5BBatg0ocmzI/zmIIRbHkRWDyKish+may6Elz9DeFkPjMWdUGVbITVETxIBg1+E
|
||||||
|
U/N92tOtEOqGIdR4YK4fRlTjKKJsbxnMDSNMLKy0C3zRYwRl1IJTG/t8Amnq1JLlyy8ZmV1eA0LtEPiL
|
||||||
|
T2A42wbl7nwQgTQJp+SdNEwatlAzhHTHGHK6x0HJPphJZMUDU0h9+I6k9gKGM/ehy20CpyT1CNy8d96X
|
||||||
|
c2TVIDwfFyCKItzkm9A8CuqLa3oFutyzC8wOK3VAf8IOuSl2TqJJyBJpwUzXXaRgvfDMfGNkun79XsTd
|
||||||
|
N5+QbB9hNj2jHFpQ3XEbFFviFyWaxGyRFmjdlR4Gz9RXv4Bv0/p6dkmAnDHe5afQ5TQSgRRRIt+WMkdr
|
||||||
|
EFbiAE/a5P4w5xf4/uMnSjpGYanqXUqBnFEOf+ERtJkNCNxgmZcEhApO2mfaHmNBO/rHv8BLQre53mNj
|
||||||
|
4QPm21rmZHVxjX1mdujJVoQcrgOn4Z20lWn6oxUsAnoQW9qBHUVt0Oe1MJuC7g+UOxBzvo3Z2kwrVHuW
|
||||||
|
20gEuIBQUz9f2L7UnmM2gjv/BQ09+FAlGST++cpxNsoiYiYN+eSvp+5Bm3Ub2vT61cigdh2CD96AzBA9
|
||||||
|
sWqUl5X0nMboDEouEPV5zWxQmNARK7QZVpJzLZS7ckVOqetc6zGtjCaeU4a0yNbvnFEIyV6FkOSVmbdP
|
||||||
|
cwqNnZDi/n6FfwBZJ9zZ5qzsngAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style8{}Style7{}Style9{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}OddRow{}Style14{}Style3{}Footer{}Style13{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style6{}Editor{}Style10{AlignHorz:Near;}Style16{}Style15{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style5{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style12{}Style11{}Style4{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 638, 247</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 638, 247</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,183 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmSysadminMenu
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSysadminMenu))
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.SpaltentitelGenerierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.SysMenuTree = New System.Windows.Forms.TreeView()
|
||||||
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||||
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
||||||
|
Me.MnuNeuerKnoten = New System.Windows.Forms.MenuItem()
|
||||||
|
Me.MnuKnotenLoeschen = New System.Windows.Forms.MenuItem()
|
||||||
|
Me.MenuKnotenRename = New System.Windows.Forms.MenuItem()
|
||||||
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
||||||
|
Me.MnuSave = New System.Windows.Forms.MenuItem()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.AllowMerge = False
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem, Me.SpaltentitelGenerierenToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(299, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 0
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'BeendenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||||
|
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(152, 22)
|
||||||
|
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||||
|
'
|
||||||
|
'SpaltentitelGenerierenToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.SpaltentitelGenerierenToolStripMenuItem.Name = "SpaltentitelGenerierenToolStripMenuItem"
|
||||||
|
Me.SpaltentitelGenerierenToolStripMenuItem.Size = New System.Drawing.Size(137, 20)
|
||||||
|
Me.SpaltentitelGenerierenToolStripMenuItem.Text = "&Spaltentitel generieren"
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(299, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 1
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
|
||||||
|
'
|
||||||
|
'SysMenuTree
|
||||||
|
'
|
||||||
|
Me.SysMenuTree.AllowDrop = True
|
||||||
|
Me.SysMenuTree.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.SysMenuTree.ImageIndex = 0
|
||||||
|
Me.SysMenuTree.ImageList = Me.ImageList1
|
||||||
|
Me.SysMenuTree.Indent = 19
|
||||||
|
Me.SysMenuTree.ItemHeight = 16
|
||||||
|
Me.SysMenuTree.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.SysMenuTree.Name = "SysMenuTree"
|
||||||
|
Me.SysMenuTree.SelectedImageIndex = 0
|
||||||
|
Me.SysMenuTree.Size = New System.Drawing.Size(299, 521)
|
||||||
|
Me.SysMenuTree.TabIndex = 2
|
||||||
|
'
|
||||||
|
'ImageList1
|
||||||
|
'
|
||||||
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
||||||
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
||||||
|
Me.ImageList1.Images.SetKeyName(0, "")
|
||||||
|
Me.ImageList1.Images.SetKeyName(1, "")
|
||||||
|
Me.ImageList1.Images.SetKeyName(2, "")
|
||||||
|
Me.ImageList1.Images.SetKeyName(3, "")
|
||||||
|
Me.ImageList1.Images.SetKeyName(4, "")
|
||||||
|
Me.ImageList1.Images.SetKeyName(5, "Kette3.ico")
|
||||||
|
'
|
||||||
|
'ContextMenu1
|
||||||
|
'
|
||||||
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeuerKnoten, Me.MnuKnotenLoeschen, Me.MenuKnotenRename, Me.MenuItem4, Me.MnuSave})
|
||||||
|
'
|
||||||
|
'MnuNeuerKnoten
|
||||||
|
'
|
||||||
|
Me.MnuNeuerKnoten.Index = 0
|
||||||
|
Me.MnuNeuerKnoten.Text = "Neuer Eintrag "
|
||||||
|
'
|
||||||
|
'MnuKnotenLoeschen
|
||||||
|
'
|
||||||
|
Me.MnuKnotenLoeschen.Index = 1
|
||||||
|
Me.MnuKnotenLoeschen.Text = "Eintrag löschen"
|
||||||
|
'
|
||||||
|
'MenuKnotenRename
|
||||||
|
'
|
||||||
|
Me.MenuKnotenRename.Index = 2
|
||||||
|
Me.MenuKnotenRename.Text = "Eintrag umbenennen"
|
||||||
|
'
|
||||||
|
'MenuItem4
|
||||||
|
'
|
||||||
|
Me.MenuItem4.Index = 3
|
||||||
|
Me.MenuItem4.Text = "-"
|
||||||
|
'
|
||||||
|
'MnuSave
|
||||||
|
'
|
||||||
|
Me.MnuSave.Index = 4
|
||||||
|
Me.MnuSave.Text = "Menu Speichern"
|
||||||
|
'
|
||||||
|
'frmSysadminMenu
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(299, 570)
|
||||||
|
Me.Controls.Add(Me.SysMenuTree)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.MainMenuStrip = Me.MenuStrip1
|
||||||
|
Me.MaximizeBox = False
|
||||||
|
Me.MinimizeBox = False
|
||||||
|
Me.Name = "frmSysadminMenu"
|
||||||
|
Me.Text = "FrmSysadminMenu"
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents SysMenuTree As System.Windows.Forms.TreeView
|
||||||
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||||
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
||||||
|
Friend WithEvents MnuNeuerKnoten As System.Windows.Forms.MenuItem
|
||||||
|
Friend WithEvents MnuKnotenLoeschen As System.Windows.Forms.MenuItem
|
||||||
|
Friend WithEvents MenuKnotenRename As System.Windows.Forms.MenuItem
|
||||||
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
||||||
|
Friend WithEvents MnuSave As System.Windows.Forms.MenuItem
|
||||||
|
Friend WithEvents SpaltentitelGenerierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,2 @@
|
|||||||
|
C1.Win.C1TrueDBGrid.C1TrueDBGrid, C1.Win.C1TrueDBGrid.2, Version=2.0.20123.61277, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da
|
||||||
|
|
||||||
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<configuration>
|
||||||
|
<!-- VSdocman config file for current project/solution.-->
|
||||||
|
<activeProfile>default</activeProfile>
|
||||||
|
<appSettings>
|
||||||
|
</appSettings>
|
||||||
|
</configuration>
|
||||||
@@ -0,0 +1,36 @@
|
|||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.dll
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\VS2010\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.exe
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\Themenmanagement.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\C1.Win.C1TrueDBGrid.4.xml
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\ResolveAssemblyReference.cache
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail2.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmMain.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.frmDetail.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Resources.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.Themenübersicht.resources
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.read.1.tlog
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\GenerateResource.write.1.tlog
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\obj\x86\Debug\Themenmanagement.exe.licenses
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.dll
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.pdb
|
||||||
|
E:\Software-Projekte\TKBDiverse\Themenmanagement\Themenmanagement\bin\Debug\ExtendedRichTextBox.xml
|
||||||
@@ -0,0 +1,516 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||||
|
Partial Class frmDetail
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> _
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDetail))
|
||||||
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
||||||
|
Me.TSBtnCopy = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnNew = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.TSBtnDelete = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||||
|
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Zuordnungem = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox()
|
||||||
|
Me.CheckedListBox2 = New System.Windows.Forms.CheckedListBox()
|
||||||
|
Me.Label4 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label5 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label6 = New System.Windows.Forms.Label()
|
||||||
|
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||||
|
Me.Label7 = New System.Windows.Forms.Label()
|
||||||
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||||
|
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
|
||||||
|
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
|
||||||
|
Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||||
|
Me.Label8 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label9 = New System.Windows.Forms.Label()
|
||||||
|
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
||||||
|
Me.Label10 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label11 = New System.Windows.Forms.Label()
|
||||||
|
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||||
|
Me.ToolStrip1.SuspendLayout()
|
||||||
|
Me.MenuStrip1.SuspendLayout()
|
||||||
|
Me.Panel1.SuspendLayout()
|
||||||
|
Me.GroupBox1.SuspendLayout()
|
||||||
|
Me.Zuordnungem.SuspendLayout()
|
||||||
|
Me.GroupBox2.SuspendLayout()
|
||||||
|
Me.ToolStrip2.SuspendLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'ToolStrip1
|
||||||
|
'
|
||||||
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave, Me.ToolStripSeparator1, Me.TSBtnCopy, Me.TSBtnNew, Me.TSBtnDelete})
|
||||||
|
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||||
|
Me.ToolStrip1.Name = "ToolStrip1"
|
||||||
|
Me.ToolStrip1.Size = New System.Drawing.Size(820, 25)
|
||||||
|
Me.ToolStrip1.TabIndex = 4
|
||||||
|
Me.ToolStrip1.Text = "ToolStrip1"
|
||||||
|
'
|
||||||
|
'TSBtnQuit
|
||||||
|
'
|
||||||
|
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnQuit.Name = "TSBtnQuit"
|
||||||
|
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnQuit.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnQuit.ToolTipText = "Anwendung beenden"
|
||||||
|
'
|
||||||
|
'TSBtnSave
|
||||||
|
'
|
||||||
|
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnSave.Name = "TSBtnSave"
|
||||||
|
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnSave.Text = "ToolStripButton1"
|
||||||
|
Me.TSBtnSave.ToolTipText = "Daten speichern"
|
||||||
|
'
|
||||||
|
'ToolStripSeparator1
|
||||||
|
'
|
||||||
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
|
||||||
|
'
|
||||||
|
'TSBtnCopy
|
||||||
|
'
|
||||||
|
Me.TSBtnCopy.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnCopy.Image = CType(resources.GetObject("TSBtnCopy.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnCopy.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnCopy.Name = "TSBtnCopy"
|
||||||
|
Me.TSBtnCopy.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnCopy.Text = "ToolStripButton2"
|
||||||
|
Me.TSBtnCopy.ToolTipText = "Datensatz kopieren"
|
||||||
|
'
|
||||||
|
'TSBtnNew
|
||||||
|
'
|
||||||
|
Me.TSBtnNew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnNew.Image = CType(resources.GetObject("TSBtnNew.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnNew.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnNew.Name = "TSBtnNew"
|
||||||
|
Me.TSBtnNew.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnNew.Text = "Neuer Datensatz"
|
||||||
|
Me.TSBtnNew.ToolTipText = "Neuer Datensatz"
|
||||||
|
'
|
||||||
|
'TSBtnDelete
|
||||||
|
'
|
||||||
|
Me.TSBtnDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.TSBtnDelete.Image = CType(resources.GetObject("TSBtnDelete.Image"), System.Drawing.Image)
|
||||||
|
Me.TSBtnDelete.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.TSBtnDelete.Name = "TSBtnDelete"
|
||||||
|
Me.TSBtnDelete.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.TSBtnDelete.Text = "Datensatz inaktivieren"
|
||||||
|
Me.TSBtnDelete.ToolTipText = "Datensatz inaktivieren"
|
||||||
|
'
|
||||||
|
'MenuStrip1
|
||||||
|
'
|
||||||
|
Me.MenuStrip1.AllowMerge = False
|
||||||
|
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||||
|
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.MenuStrip1.Name = "MenuStrip1"
|
||||||
|
Me.MenuStrip1.Size = New System.Drawing.Size(820, 24)
|
||||||
|
Me.MenuStrip1.TabIndex = 3
|
||||||
|
Me.MenuStrip1.Text = "MenuStrip1"
|
||||||
|
'
|
||||||
|
'DateiToolStripMenuItem
|
||||||
|
'
|
||||||
|
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||||
|
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||||
|
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||||
|
'
|
||||||
|
'Panel1
|
||||||
|
'
|
||||||
|
Me.Panel1.Controls.Add(Me.GroupBox2)
|
||||||
|
Me.Panel1.Controls.Add(Me.Zuordnungem)
|
||||||
|
Me.Panel1.Controls.Add(Me.GroupBox1)
|
||||||
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Panel1.Location = New System.Drawing.Point(0, 49)
|
||||||
|
Me.Panel1.Name = "Panel1"
|
||||||
|
Me.Panel1.Size = New System.Drawing.Size(820, 319)
|
||||||
|
Me.Panel1.TabIndex = 5
|
||||||
|
'
|
||||||
|
'GroupBox1
|
||||||
|
'
|
||||||
|
Me.GroupBox1.Controls.Add(Me.CheckBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label11)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox6)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label10)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox5)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label9)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox4)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label8)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label7)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.DateTimePicker2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label6)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label3)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.Label2)
|
||||||
|
Me.GroupBox1.Controls.Add(Me.TextBox2)
|
||||||
|
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||||
|
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.GroupBox1.Name = "GroupBox1"
|
||||||
|
Me.GroupBox1.Size = New System.Drawing.Size(358, 319)
|
||||||
|
Me.GroupBox1.TabIndex = 12
|
||||||
|
Me.GroupBox1.TabStop = False
|
||||||
|
Me.GroupBox1.Text = "Allgemein"
|
||||||
|
'
|
||||||
|
'TextBox1
|
||||||
|
'
|
||||||
|
Me.TextBox1.Location = New System.Drawing.Point(85, 19)
|
||||||
|
Me.TextBox1.Name = "TextBox1"
|
||||||
|
Me.TextBox1.Size = New System.Drawing.Size(245, 20)
|
||||||
|
Me.TextBox1.TabIndex = 6
|
||||||
|
'
|
||||||
|
'TextBox3
|
||||||
|
'
|
||||||
|
Me.TextBox3.Location = New System.Drawing.Point(85, 117)
|
||||||
|
Me.TextBox3.Multiline = True
|
||||||
|
Me.TextBox3.Name = "TextBox3"
|
||||||
|
Me.TextBox3.Size = New System.Drawing.Size(245, 66)
|
||||||
|
Me.TextBox3.TabIndex = 10
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(13, 22)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(27, 13)
|
||||||
|
Me.Label1.TabIndex = 5
|
||||||
|
Me.Label1.Text = "Titel"
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.AutoSize = True
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(13, 119)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(67, 13)
|
||||||
|
Me.Label3.TabIndex = 9
|
||||||
|
Me.Label3.Text = "Suchbegriffe"
|
||||||
|
'
|
||||||
|
'Label2
|
||||||
|
'
|
||||||
|
Me.Label2.AutoSize = True
|
||||||
|
Me.Label2.Location = New System.Drawing.Point(13, 47)
|
||||||
|
Me.Label2.Name = "Label2"
|
||||||
|
Me.Label2.Size = New System.Drawing.Size(72, 13)
|
||||||
|
Me.Label2.TabIndex = 7
|
||||||
|
Me.Label2.Text = "Beschreibung"
|
||||||
|
'
|
||||||
|
'TextBox2
|
||||||
|
'
|
||||||
|
Me.TextBox2.Location = New System.Drawing.Point(85, 45)
|
||||||
|
Me.TextBox2.Multiline = True
|
||||||
|
Me.TextBox2.Name = "TextBox2"
|
||||||
|
Me.TextBox2.Size = New System.Drawing.Size(245, 66)
|
||||||
|
Me.TextBox2.TabIndex = 8
|
||||||
|
'
|
||||||
|
'Zuordnungem
|
||||||
|
'
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.Label5)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.Label4)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.CheckedListBox2)
|
||||||
|
Me.Zuordnungem.Controls.Add(Me.CheckedListBox1)
|
||||||
|
Me.Zuordnungem.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
|
Me.Zuordnungem.Location = New System.Drawing.Point(358, 0)
|
||||||
|
Me.Zuordnungem.Name = "Zuordnungem"
|
||||||
|
Me.Zuordnungem.Size = New System.Drawing.Size(462, 143)
|
||||||
|
Me.Zuordnungem.TabIndex = 13
|
||||||
|
Me.Zuordnungem.TabStop = False
|
||||||
|
Me.Zuordnungem.Text = "Zuordnungen"
|
||||||
|
'
|
||||||
|
'CheckedListBox1
|
||||||
|
'
|
||||||
|
Me.CheckedListBox1.FormattingEnabled = True
|
||||||
|
Me.CheckedListBox1.Items.AddRange(New Object() {"Zielgruppe 1", "Zielgruppe 2", "Zielgruppe 3"})
|
||||||
|
Me.CheckedListBox1.Location = New System.Drawing.Point(18, 35)
|
||||||
|
Me.CheckedListBox1.Name = "CheckedListBox1"
|
||||||
|
Me.CheckedListBox1.Size = New System.Drawing.Size(120, 94)
|
||||||
|
Me.CheckedListBox1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'CheckedListBox2
|
||||||
|
'
|
||||||
|
Me.CheckedListBox2.FormattingEnabled = True
|
||||||
|
Me.CheckedListBox2.Items.AddRange(New Object() {"Infokanal 1", "Infokanal 2", "Infokanal 3"})
|
||||||
|
Me.CheckedListBox2.Location = New System.Drawing.Point(159, 36)
|
||||||
|
Me.CheckedListBox2.Name = "CheckedListBox2"
|
||||||
|
Me.CheckedListBox2.Size = New System.Drawing.Size(120, 94)
|
||||||
|
Me.CheckedListBox2.TabIndex = 1
|
||||||
|
'
|
||||||
|
'Label4
|
||||||
|
'
|
||||||
|
Me.Label4.AutoSize = True
|
||||||
|
Me.Label4.Location = New System.Drawing.Point(15, 19)
|
||||||
|
Me.Label4.Name = "Label4"
|
||||||
|
Me.Label4.Size = New System.Drawing.Size(57, 13)
|
||||||
|
Me.Label4.TabIndex = 2
|
||||||
|
Me.Label4.Text = "Zielgruppe"
|
||||||
|
'
|
||||||
|
'Label5
|
||||||
|
'
|
||||||
|
Me.Label5.AutoSize = True
|
||||||
|
Me.Label5.Location = New System.Drawing.Point(156, 19)
|
||||||
|
Me.Label5.Name = "Label5"
|
||||||
|
Me.Label5.Size = New System.Drawing.Size(51, 13)
|
||||||
|
Me.Label5.TabIndex = 3
|
||||||
|
Me.Label5.Text = "Infokanal"
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.AutoSize = True
|
||||||
|
Me.Label6.Location = New System.Drawing.Point(13, 193)
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Size = New System.Drawing.Size(49, 13)
|
||||||
|
Me.Label6.TabIndex = 11
|
||||||
|
Me.Label6.Text = "Gültig ab"
|
||||||
|
'
|
||||||
|
'DateTimePicker1
|
||||||
|
'
|
||||||
|
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker1.Location = New System.Drawing.Point(85, 190)
|
||||||
|
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||||
|
Me.DateTimePicker1.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.DateTimePicker1.TabIndex = 12
|
||||||
|
'
|
||||||
|
'DateTimePicker2
|
||||||
|
'
|
||||||
|
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||||
|
Me.DateTimePicker2.Location = New System.Drawing.Point(239, 190)
|
||||||
|
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||||
|
Me.DateTimePicker2.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.DateTimePicker2.TabIndex = 13
|
||||||
|
'
|
||||||
|
'Label7
|
||||||
|
'
|
||||||
|
Me.Label7.AutoSize = True
|
||||||
|
Me.Label7.Location = New System.Drawing.Point(213, 192)
|
||||||
|
Me.Label7.Name = "Label7"
|
||||||
|
Me.Label7.Size = New System.Drawing.Size(20, 13)
|
||||||
|
Me.Label7.TabIndex = 14
|
||||||
|
Me.Label7.Text = "bis"
|
||||||
|
'
|
||||||
|
'GroupBox2
|
||||||
|
'
|
||||||
|
Me.GroupBox2.Controls.Add(Me.C1TrueDBGrid1)
|
||||||
|
Me.GroupBox2.Controls.Add(Me.ToolStrip2)
|
||||||
|
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.GroupBox2.Location = New System.Drawing.Point(358, 143)
|
||||||
|
Me.GroupBox2.Name = "GroupBox2"
|
||||||
|
Me.GroupBox2.Size = New System.Drawing.Size(462, 176)
|
||||||
|
Me.GroupBox2.TabIndex = 14
|
||||||
|
Me.GroupBox2.TabStop = False
|
||||||
|
Me.GroupBox2.Text = "Dokumente"
|
||||||
|
'
|
||||||
|
'ToolStrip2
|
||||||
|
'
|
||||||
|
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripButton5})
|
||||||
|
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
|
||||||
|
Me.ToolStrip2.Name = "ToolStrip2"
|
||||||
|
Me.ToolStrip2.Size = New System.Drawing.Size(456, 25)
|
||||||
|
Me.ToolStrip2.TabIndex = 5
|
||||||
|
Me.ToolStrip2.Text = "ToolStrip2"
|
||||||
|
'
|
||||||
|
'ToolStripButton4
|
||||||
|
'
|
||||||
|
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton4.Name = "ToolStripButton4"
|
||||||
|
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton4.Text = "Neuer Datensatz"
|
||||||
|
Me.ToolStripButton4.ToolTipText = "Neuer Datensatz"
|
||||||
|
'
|
||||||
|
'ToolStripButton5
|
||||||
|
'
|
||||||
|
Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||||
|
Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image)
|
||||||
|
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||||
|
Me.ToolStripButton5.Name = "ToolStripButton5"
|
||||||
|
Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22)
|
||||||
|
Me.ToolStripButton5.Text = "Datensatz inaktivieren"
|
||||||
|
Me.ToolStripButton5.ToolTipText = "Datensatz inaktivieren"
|
||||||
|
'
|
||||||
|
'C1TrueDBGrid1
|
||||||
|
'
|
||||||
|
Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
|
Me.C1TrueDBGrid1.Location = New System.Drawing.Point(3, 41)
|
||||||
|
Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||||
|
Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
|
||||||
|
Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||||
|
Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
|
||||||
|
Me.C1TrueDBGrid1.Size = New System.Drawing.Size(456, 132)
|
||||||
|
Me.C1TrueDBGrid1.TabIndex = 6
|
||||||
|
Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
|
||||||
|
'
|
||||||
|
'Label8
|
||||||
|
'
|
||||||
|
Me.Label8.AutoSize = True
|
||||||
|
Me.Label8.Location = New System.Drawing.Point(13, 243)
|
||||||
|
Me.Label8.Name = "Label8"
|
||||||
|
Me.Label8.Size = New System.Drawing.Size(55, 13)
|
||||||
|
Me.Label8.TabIndex = 15
|
||||||
|
Me.Label8.Text = "Erstellt am"
|
||||||
|
'
|
||||||
|
'TextBox4
|
||||||
|
'
|
||||||
|
Me.TextBox4.Location = New System.Drawing.Point(85, 240)
|
||||||
|
Me.TextBox4.Name = "TextBox4"
|
||||||
|
Me.TextBox4.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox4.TabIndex = 16
|
||||||
|
'
|
||||||
|
'TextBox5
|
||||||
|
'
|
||||||
|
Me.TextBox5.Location = New System.Drawing.Point(85, 266)
|
||||||
|
Me.TextBox5.Name = "TextBox5"
|
||||||
|
Me.TextBox5.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox5.TabIndex = 18
|
||||||
|
'
|
||||||
|
'Label9
|
||||||
|
'
|
||||||
|
Me.Label9.AutoSize = True
|
||||||
|
Me.Label9.Location = New System.Drawing.Point(13, 269)
|
||||||
|
Me.Label9.Name = "Label9"
|
||||||
|
Me.Label9.Size = New System.Drawing.Size(56, 13)
|
||||||
|
Me.Label9.TabIndex = 17
|
||||||
|
Me.Label9.Text = "Mutiert am"
|
||||||
|
'
|
||||||
|
'TextBox6
|
||||||
|
'
|
||||||
|
Me.TextBox6.Location = New System.Drawing.Point(85, 292)
|
||||||
|
Me.TextBox6.Name = "TextBox6"
|
||||||
|
Me.TextBox6.Size = New System.Drawing.Size(91, 20)
|
||||||
|
Me.TextBox6.TabIndex = 20
|
||||||
|
'
|
||||||
|
'Label10
|
||||||
|
'
|
||||||
|
Me.Label10.AutoSize = True
|
||||||
|
Me.Label10.Location = New System.Drawing.Point(13, 295)
|
||||||
|
Me.Label10.Name = "Label10"
|
||||||
|
Me.Label10.Size = New System.Drawing.Size(45, 13)
|
||||||
|
Me.Label10.TabIndex = 19
|
||||||
|
Me.Label10.Text = "Mutierer"
|
||||||
|
'
|
||||||
|
'Label11
|
||||||
|
'
|
||||||
|
Me.Label11.AutoSize = True
|
||||||
|
Me.Label11.Location = New System.Drawing.Point(13, 216)
|
||||||
|
Me.Label11.Name = "Label11"
|
||||||
|
Me.Label11.Size = New System.Drawing.Size(31, 13)
|
||||||
|
Me.Label11.TabIndex = 21
|
||||||
|
Me.Label11.Text = "Aktiv"
|
||||||
|
'
|
||||||
|
'CheckBox1
|
||||||
|
'
|
||||||
|
Me.CheckBox1.AutoSize = True
|
||||||
|
Me.CheckBox1.Location = New System.Drawing.Point(85, 216)
|
||||||
|
Me.CheckBox1.Name = "CheckBox1"
|
||||||
|
Me.CheckBox1.Size = New System.Drawing.Size(15, 14)
|
||||||
|
Me.CheckBox1.TabIndex = 22
|
||||||
|
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'frmDetail
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.ClientSize = New System.Drawing.Size(820, 374)
|
||||||
|
Me.Controls.Add(Me.Panel1)
|
||||||
|
Me.Controls.Add(Me.ToolStrip1)
|
||||||
|
Me.Controls.Add(Me.MenuStrip1)
|
||||||
|
Me.Name = "frmDetail"
|
||||||
|
Me.Text = "Thema/Issue"
|
||||||
|
Me.ToolStrip1.ResumeLayout(False)
|
||||||
|
Me.ToolStrip1.PerformLayout()
|
||||||
|
Me.MenuStrip1.ResumeLayout(False)
|
||||||
|
Me.MenuStrip1.PerformLayout()
|
||||||
|
Me.Panel1.ResumeLayout(False)
|
||||||
|
Me.GroupBox1.ResumeLayout(False)
|
||||||
|
Me.GroupBox1.PerformLayout()
|
||||||
|
Me.Zuordnungem.ResumeLayout(False)
|
||||||
|
Me.Zuordnungem.PerformLayout()
|
||||||
|
Me.GroupBox2.ResumeLayout(False)
|
||||||
|
Me.GroupBox2.PerformLayout()
|
||||||
|
Me.ToolStrip2.ResumeLayout(False)
|
||||||
|
Me.ToolStrip2.PerformLayout()
|
||||||
|
CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
Me.PerformLayout()
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnNew As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||||
|
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
|
Friend WithEvents TSBtnSave As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
||||||
|
Friend WithEvents TSBtnCopy As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents TSBtnDelete As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
||||||
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents Zuordnungem As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents CheckedListBox2 As System.Windows.Forms.CheckedListBox
|
||||||
|
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
|
||||||
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||||
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents DateTimePicker2 As System.Windows.Forms.DateTimePicker
|
||||||
|
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
|
||||||
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
|
||||||
|
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton
|
||||||
|
Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||||
|
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||||
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||||
|
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||||
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,156 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
|
<ProductVersion>
|
||||||
|
</ProductVersion>
|
||||||
|
<SchemaVersion>2.0</SchemaVersion>
|
||||||
|
<ProjectGuid>{1B191999-7204-4EB5-96F7-A6805B0B32FC}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>Themenmanagement.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>Themenmanagement</RootNamespace>
|
||||||
|
<AssemblyName>Themenmanagement</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile>Client</TargetFrameworkProfile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="C1.Win.C1TrueDBGrid.4, Version=4.0.20112.61226, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="frmDetail2.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail2.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.Designer.vb">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmDetail.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenübersicht.Designer.vb">
|
||||||
|
<DependentUpon>Themenübersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenübersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="frmDetail2.resx">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmMain.resx">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmDetail.resx">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Themenübersicht.resx">
|
||||||
|
<DependentUpon>Themenübersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
||||||
@@ -0,0 +1,258 @@
|
|||||||
|
Public Class MyGenericEventHandler
|
||||||
|
Public Event FormularVertragelement_Closed(ByVal Vertragspartnernr As Integer, ByVal Vertragselementnr As Integer)
|
||||||
|
Public Event FormularVertragspartner_Closed(ByVal Vertragspartnernr As Integer)
|
||||||
|
|
||||||
|
Public Event FormularPendenz_Closed()
|
||||||
|
Public Event Pendenz_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularKuendigungsfrist_Closed()
|
||||||
|
Public Event Kuendigungsfrist_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularKontakte_Closed()
|
||||||
|
Public Event Kontakt_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularDokument_Closed()
|
||||||
|
Public Event Dokument_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularServices_Closed()
|
||||||
|
Public Event Service_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularEreignis_Closed()
|
||||||
|
Public Event Ereignis_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularAktivitaet_Cloesd()
|
||||||
|
Public Event Aktivitaet_Deleted()
|
||||||
|
|
||||||
|
Public Event FormularReferenzvertrag_Closed()
|
||||||
|
Public Event Referenzvertrag_Deleted()
|
||||||
|
|
||||||
|
Public Event Update_Uebersicht()
|
||||||
|
|
||||||
|
Public Event LeistungSelektiert(ByVal Vertragsleistungsnr As Integer, ByVal Servicekatalognr As Integer)
|
||||||
|
Public Event KeineLeistungSelektiert(ByVal Vertragsleistungsnr As Integer)
|
||||||
|
|
||||||
|
Public Event FormularVertragsapplikation_Closed()
|
||||||
|
Public Event Vertragsapplikation_Deleted()
|
||||||
|
|
||||||
|
Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)
|
||||||
|
Public Event FormularReleaseLogbuchClosed()
|
||||||
|
Public Event FormularApplikationVersionClosed()
|
||||||
|
Public Event FormualrIKVTestClosed()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Vertragselement"
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular "Vertragselement" Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Vertragspartnernr"></param>
|
||||||
|
''' <param name="Vertragselementnr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Vertragselement_Closed(ByVal Vertragspartnernr As Integer, ByVal Vertragselementnr As Integer)
|
||||||
|
RaiseEvent FormularVertragelement_Closed(Vertragspartnernr, Vertragselementnr)
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Vertragspartner"
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Vertragsparter Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Vertragspartnernr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Vertragspartner_Closed(ByVal Vertragspartnernr As Integer)
|
||||||
|
RaiseEvent FormularVertragspartner_Closed(Vertragspartnernr)
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Pendenzen"
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Pendenz Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Pendenz_Closed()
|
||||||
|
RaiseEvent FormularPendenz_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Pendent Deleted absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Pendenz_Geloescht()
|
||||||
|
RaiseEvent Pendenz_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Kuendigungsfrist"
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Kontakte Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Kuendigungsfrist_Closed()
|
||||||
|
RaiseEvent FormularKuendigungsfrist_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Kuendigungsfrist_Geloescht()
|
||||||
|
RaiseEvent Kuendigungsfrist_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Kuendigungsfrist Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Kontakte_Closed()
|
||||||
|
RaiseEvent FormularKontakte_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Kontakte_Geloescht()
|
||||||
|
RaiseEvent Kontakt_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Dokumente Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Dokumente_Closed()
|
||||||
|
RaiseEvent FormularDokument_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Dokumente_Geloscht()
|
||||||
|
RaiseEvent Dokument_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Services Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Services_Closed()
|
||||||
|
RaiseEvent FormularServices_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Service_Geloescht()
|
||||||
|
RaiseEvent Service_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Ereignis Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Ereignis_Closed()
|
||||||
|
RaiseEvent FormularEreignis_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Ereignis_Geloescht()
|
||||||
|
RaiseEvent Ereignis_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Aktivitaet Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Aktivitaet_Closed()
|
||||||
|
RaiseEvent FormularAktivitaet_Cloesd()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Aktivitaet_Geloescht()
|
||||||
|
RaiseEvent Aktivitaet_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Refernzvertrag Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Refernzvertrag_Closed()
|
||||||
|
RaiseEvent FormularReferenzvertrag_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
Public Function Refernzvertrag_Geloescht()
|
||||||
|
RaiseEvent Referenzvertrag_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "Servicekatalog"
|
||||||
|
Public Function Leistung_Selektiert(ByVal Vertragsleistungsnr As Integer, ByVal Servicekatalognr As Integer)
|
||||||
|
RaiseEvent LeistungSelektiert(Vertragsleistungsnr, Servicekatalognr)
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Keine_Leistung_Selektiert(ByVal Vertragsleistungsnr As Integer)
|
||||||
|
RaiseEvent KeineLeistungSelektiert(Vertragsleistungsnr)
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
#Region "Pendenzen"
|
||||||
|
''' <summary>
|
||||||
|
''' Event Formular Pendenz Closed absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Vertragsapplikation_Closed()
|
||||||
|
RaiseEvent FormularVertragsapplikation_Closed()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Event Pendent Deleted absetzen
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="Pendenznr"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
''' <remarks></remarks>
|
||||||
|
Public Function Vertragsapplikation_Geloescht()
|
||||||
|
RaiseEvent Vertragsapplikation_Deleted()
|
||||||
|
RaiseEvent Update_Uebersicht()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
|
||||||
|
RaiseEvent Set_ToolTip(formname, ctlname)
|
||||||
|
End Function
|
||||||
|
#Region "ReleaseLogbuch"
|
||||||
|
Public Function ReleaseLobuchClosed()
|
||||||
|
RaiseEvent FormularReleaseLogbuchClosed()
|
||||||
|
End Function
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "IKV_Tests"
|
||||||
|
Public Function IKVDetailsClosed()
|
||||||
|
RaiseEvent FormualrIKVTestClosed()
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
#Region "ApplikationVersion"
|
||||||
|
Public Function ApplikationVersionClosed()
|
||||||
|
RaiseEvent FormularApplikationVersionClosed()
|
||||||
|
End Function
|
||||||
|
#End Region
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,302 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||||
|
<ProductVersion>
|
||||||
|
</ProductVersion>
|
||||||
|
<SchemaVersion>2.0</SchemaVersion>
|
||||||
|
<ProjectGuid>{1B191999-7204-4EB5-96F7-A6805B0B32FC}</ProjectGuid>
|
||||||
|
<OutputType>WinExe</OutputType>
|
||||||
|
<StartupObject>Themenmanagement.My.MyApplication</StartupObject>
|
||||||
|
<RootNamespace>Themenmanagement</RootNamespace>
|
||||||
|
<AssemblyName>Themenmanagement</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>WindowsForms</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile>
|
||||||
|
</TargetFrameworkProfile>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Themenmanagement.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="C1.Win.C1TrueDBGrid.2, Version=2.0.20123.61277, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\Themenmanagement_sik\bin\Debug\C1.Win.C1TrueDBGrid.2.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="ExtendedRichTextBox, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" />
|
||||||
|
<Reference Include="RTFEditor, Version=1.0.4751.35065, Culture=neutral, processorArchitecture=MSIL">
|
||||||
|
<SpecificVersion>False</SpecificVersion>
|
||||||
|
<HintPath>..\..\..\Klassen\RTFEditor\RTFEditor\bin\Debug\RTFEditor.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="SautinSoft.HtmlToRtf">
|
||||||
|
<HintPath>D:\Installer\Sautinsoft\HTML-to-RTF Pro DLL .Net Full (4.8.9.21)\Bin\Net 3.5\SautinSoft.HtmlToRtf.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsApplication.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsConnectionProvider.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsDBInteractionBase.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsFunktionsgruppe.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsFunktionsgruppe_rolle.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsKey_tabelle.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMeldungstexte.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMitarbeiter.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsMitarbeiter_funktionsgruppe.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsRolle.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsRolle_SecurityObject.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsRolle_sysadminfunktion.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsSecurityObject.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsSpalten.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsSysadminfunktion.vb" />
|
||||||
|
<Compile Include="DB\Generierte Objekte\clsToolTip.vb" />
|
||||||
|
<Compile Include="DB\MyDBObjects\clsMyKey_Tabelle.vb" />
|
||||||
|
<Compile Include="DB\MyDBObjects\db_connection.vb" />
|
||||||
|
<Compile Include="DB\MyDBObjects\frmDatenbankauswahl.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="DB\MyDBObjects\MyMitarbeiter.vb" />
|
||||||
|
<Compile Include="Diverse Formulare\frmAbout.designer.vb">
|
||||||
|
<DependentUpon>frmAbout.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmAbout.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmLogin.designer.vb">
|
||||||
|
<DependentUpon>frmLogin.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmLogin.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmMsgBox.designer.vb">
|
||||||
|
<DependentUpon>frmMsgBox.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmMsgBox.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmSplash.designer.vb">
|
||||||
|
<DependentUpon>frmSplash.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Diverse Formulare\frmSplash.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditor.designer.vb">
|
||||||
|
<DependentUpon>frmDomainEditor.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditor.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditorExtTables.designer.vb">
|
||||||
|
<DependentUpon>frmDomainEditorExtTables.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmDomainEditorExtTables.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmFormSelector.designer.vb">
|
||||||
|
<DependentUpon>frmFormSelector.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmFormSelector.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmSysadminMenu.designer.vb">
|
||||||
|
<DependentUpon>frmSysadminMenu.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmSysadminMenu.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmSysadminTableSelector.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\FrmToolTipEditor.designer.vb">
|
||||||
|
<DependentUpon>FrmToolTipEditor.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\FrmToolTipEditor.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmVerbindungEditor.designer.vb">
|
||||||
|
<DependentUpon>frmVerbindungEditor.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\frmVerbindungEditor.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Sysadmin\MySysadmin.vb" />
|
||||||
|
<Compile Include="Sysadmin\MySysadminFunktion.vb" />
|
||||||
|
<Compile Include="Themenmanagement\Details\frmDetail2.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenmanagement\Details\frmDetail2.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.Designer.vb">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="frmMain.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenmanagement\Details\frmDetail.Designer.vb">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenmanagement\Details\frmDetail.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Klassen\clsToolTips.vb" />
|
||||||
|
<Compile Include="Klassen\FilterClass.vb" />
|
||||||
|
<Compile Include="Klassen\MyDocMgmt.vb" />
|
||||||
|
<Compile Include="Klassen\MyGenericEventHandler.vb" />
|
||||||
|
<Compile Include="Klassen\MyMessage.vb" />
|
||||||
|
<Compile Include="Klassen\MySecurity.vb" />
|
||||||
|
<Compile Include="Klassen\MySpalten.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenmanagement\Uebersichten\frmThemenübersicht.Designer.vb">
|
||||||
|
<DependentUpon>frmThemenübersicht.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Themenmanagement\Uebersichten\frmThemenübersicht.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="Utils\Crypto.vb" />
|
||||||
|
<Compile Include="Utils\Globals.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="DB\MyDBObjects\frmDatenbankauswahl.resx" />
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmAbout.resx">
|
||||||
|
<DependentUpon>frmAbout.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmLogin.resx">
|
||||||
|
<DependentUpon>frmLogin.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmMsgBox.resx">
|
||||||
|
<DependentUpon>frmMsgBox.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Diverse Formulare\frmSplash.resx">
|
||||||
|
<DependentUpon>frmSplash.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmDomainEditor.resx">
|
||||||
|
<DependentUpon>frmDomainEditor.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmDomainEditorExtTables.resx">
|
||||||
|
<DependentUpon>frmDomainEditorExtTables.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmFormSelector.resx">
|
||||||
|
<DependentUpon>frmFormSelector.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmSysadminMenu.resx">
|
||||||
|
<DependentUpon>frmSysadminMenu.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmSysadminTableSelector.resx">
|
||||||
|
<DependentUpon>frmSysadminTableSelector.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\FrmToolTipEditor.resx">
|
||||||
|
<DependentUpon>FrmToolTipEditor.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Sysadmin\frmVerbindungEditor.resx">
|
||||||
|
<DependentUpon>frmVerbindungEditor.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Themenmanagement\Details\frmDetail2.resx">
|
||||||
|
<DependentUpon>frmDetail2.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="frmMain.resx">
|
||||||
|
<DependentUpon>frmMain.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Themenmanagement\Details\frmDetail.resx">
|
||||||
|
<DependentUpon>frmDetail.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="Themenmanagement\Uebersichten\frmThemenübersicht.resx">
|
||||||
|
<DependentUpon>frmThemenübersicht.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="App.config" />
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Folder Include="Pendenzenmanagement\" />
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||||
|
Other similar extension points exist, see Microsoft.Common.targets.
|
||||||
|
<Target Name="BeforeBuild">
|
||||||
|
</Target>
|
||||||
|
<Target Name="AfterBuild">
|
||||||
|
</Target>
|
||||||
|
-->
|
||||||
|
</Project>
|
||||||
@@ -0,0 +1,489 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'funktionsgruppe_rolle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'funktionsgruppe_rolle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsFunktionsgruppe_rolle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iFunktionsgruppenr, m_iFunktionsgrupperollenr, m_iMandantnr, m_iRollenr As SqlInt32
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iRollenr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionsgruppenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgruppenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@irollenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iRollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iFunktionsgrupperollenr</LI>
|
||||||
|
''' <LI>iFunktionsgruppenr</LI>
|
||||||
|
''' <LI>iRollenr</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("funktionsgruppe_rolle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iFunktionsgrupperollenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFunktionsgrupperollenr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iFunktionsgrupperollenr = New SqlInt32(CType(dtToReturn.Rows(0)("Funktionsgrupperollenr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("funktionsgruppenr") Is System.DBNull.Value Then
|
||||||
|
m_iFunktionsgruppenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iFunktionsgruppenr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionsgruppenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("rollenr") Is System.DBNull.Value Then
|
||||||
|
m_iRollenr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iRollenr = New SqlInt32(CType(dtToReturn.Rows(0)("rollenr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_funktionsgruppe_rolle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("funktionsgruppe_rolle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_funktionsgruppe_rolle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsFunktionsgruppe_rolle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iFunktionsgrupperollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgrupperollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iFunktionsgrupperollenrTmp As SqlInt32 = Value
|
||||||
|
If iFunktionsgrupperollenrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iFunktionsgrupperollenr", "iFunktionsgrupperollenr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iFunktionsgrupperollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iFunktionsgruppenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iFunktionsgruppenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iFunktionsgruppenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iRollenr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iRollenr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iRollenr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,630 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'spalten'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 13:15:45
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace db
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'spalten'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsSpalten
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iEintragnr, m_iBreite As SqlInt32
|
||||||
|
Private m_sTabelle, m_sNumberFormat, m_sTiptext, m_sSpalte, m_sTabellenspalte As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' <LI>sTabelle. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSpalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bAlsHacken</LI>
|
||||||
|
''' <LI>iBreite. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTiptext. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sNumberFormat. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' <LI>sTabelle. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSpalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bAlsHacken</LI>
|
||||||
|
''' <LI>iBreite. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTiptext. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sNumberFormat. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' <LI>sTabelle</LI>
|
||||||
|
''' <LI>sTabellenspalte</LI>
|
||||||
|
''' <LI>sSpalte</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bAlsHacken</LI>
|
||||||
|
''' <LI>iBreite</LI>
|
||||||
|
''' <LI>iReihenfolge</LI>
|
||||||
|
''' <LI>sTiptext</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>sNumberFormat</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
|
||||||
|
m_sTabelle = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
|
||||||
|
m_sTabellenspalte = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
|
||||||
|
m_sSpalte = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
|
||||||
|
End If
|
||||||
|
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
|
||||||
|
m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
|
||||||
|
If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
|
||||||
|
m_iBreite = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
|
||||||
|
m_iReihenfolge = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
|
||||||
|
m_sTiptext = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
|
||||||
|
End If
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("NumberFormat") Is System.DBNull.Value Then
|
||||||
|
m_sNumberFormat = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sNumberFormat = New SqlString(CType(dtToReturn.Rows(0)("NumberFormat"), String))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iEintragnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iEintragnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iEintragnrTmp As SqlInt32 = Value
|
||||||
|
If iEintragnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iEintragnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTabelle]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTabelle
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTabelle = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTabellenspalte]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTabellenspalte
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTabellenspalte = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSpalte]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSpalte
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSpalte = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bReadonly]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bReadonly
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bReadonlyTmp As SqlBoolean = Value
|
||||||
|
If bReadonlyTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bReadonly", "bReadonly can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bReadonly = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAlsHacken]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAlsHacken
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bAlsHackenTmp As SqlBoolean = Value
|
||||||
|
If bAlsHackenTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bAlsHacken", "bAlsHacken can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bAlsHacken = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iBreite]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iBreite
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iBreite = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iReihenfolge]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iReihenfolge
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iReihenfolge = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTiptext]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTiptext
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTiptext = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bAktivTmp As SqlBoolean = Value
|
||||||
|
If bAktivTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sNumberFormat]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sNumberFormat
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sNumberFormat = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8" ?>
|
||||||
|
<configuration>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
|
||||||
|
</startup>
|
||||||
|
</configuration>
|
||||||
@@ -0,0 +1,497 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABeSURBVDhPYzhw4MB/SjADSDMDAwNZGKwXZkBDA8QQQq6B
|
||||||
|
qYHT5BgAczHZLkB2LVleGMQGwJyGL1pBanB6ASZJDI01GolxAUgjXhfgcj4sgQ1SA8jNUPCkTCgD4ZMH
|
||||||
|
ADk0Kh+zxKF0AAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnCopy.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAB7SURBVDhPtVKBDcAgCOvpnsZnzJq5MFSGMSNplhFaWwJE
|
||||||
|
RE8ATwaKZkHukUAp9bHRATRTADQU4AAr+jaBbF7O2Xoc7ApYR7eDd+Y+4Pfg+8bBd9bVLv5zQHsZTB2s
|
||||||
|
bqBnJsmi9vM7IHFyeHuXNxXI5O0RBgE2fK7o3wtcor2JxHm9tQ0AAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnNew.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnDelete.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="C1TrueDBGrid1.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||||
|
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid1.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 814, 298</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 814, 298</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>346, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="C1TrueDBGrid5.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||||
|
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid5.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid5.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1162, 151</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1162, 151</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip8.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>610, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>1111, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>1004, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip7.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>453, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip8.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>610, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton22.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||||
|
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||||
|
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||||
|
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||||
|
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||||
|
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||||
|
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||||
|
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||||
|
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||||
|
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton23.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIISURBVDhPpZP7S1NxGMbPPxKaXVUkMEq8IpKUCoY/hGgI
|
||||||
|
ymqkDYYXcCjDZOANURSjCNGFQUTsl4GXVMxKk62YU4fXQpaIlygHQxBRH8/zwvyaIAYe+HLgnPN8nue9
|
||||||
|
HA3nvDTq63oW/jm13XOwvPTB3DYFY5MH+bXfcN8ygfTSMSSXfESicQDxBqdYHwH29g9w2tnZ3UcguIvN
|
||||||
|
rR3417exuBJE5N1n/wfwLgXEOc38Bc6xNRHb+/y4nm49G0Bnit2zf9H6bkliE/jKuYxrd6oVgDWfjB+K
|
||||||
|
TWeKMyrGEVfowITvD9re/9ABVQrAhh0HHK+ZselMMaN/mvwtDb+aVqkA7HYIwIj3ysfluPTorJnP6Ezx
|
||||||
|
oHsD1s5ZXEktUwCOioB5f1CEPR9+wTG6iuiserTo8dkwng7HT/R+XUPF8xlcTjErAOdMcW6NW8STiwG8
|
||||||
|
7vej8oUPN/PsEv3t8Ao0TZP3T1u8uJRkUgAuSYHtO97oLxmXd5t9Ho8aPTK+GzntqNfrLm2fFoihwYOI
|
||||||
|
xGIF4KjoGBLzY1OrF9k6OOFxnwDC4wxIMX1G0pMhgVyMNyoA13PAtS7OrJk1PrC69LUdQWxuF6IybHrX
|
||||||
|
LRI7JrtZdoDAo1XmbjMyD+tjSXxGcXRmnYg5ttD9QuxDhN0uUgDOmbvNTpPOJaGAo2K36cyaGZvOFIfd
|
||||||
|
KlSA8/zRh9ABIDUG+1JpAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||||
|
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid2.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 340, 313</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 340, 313</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>1111, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid4.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||||
|
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid4.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid4.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1168, 514</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1168, 514</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid3.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA3SURBVChTY2DABP+xiIGFkCVwsVEUwhThNREkiaEAJoiP
|
||||||
|
RnEmskKs7kd3C1YrYTrx+g6bIrAYAKCqHOQvFu6BAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid3.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
|
||||||
|
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
|
||||||
|
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
|
||||||
|
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1TrueDBGrid3.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:Aqua;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{}Style3{}Footer{}Style14{}FilterBar{}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 1168, 489</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 1168, 489</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ToolStrip7.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>239, 56</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ToolStripButton20.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACtSURBVDhPpdONCoMgEAdw3/+pfIkxWKy1mlh+pOsF3EQO
|
||||||
|
DjG9ULiEoJ9/9WLH14XeYpzz0FOH3wP7j/ioVm0R70xCagMWOIP8rmlIBCJWgpxVNARvN4esWdsI3mop
|
||||||
|
jdUXkPzwIZFRkp4kXUAqnEhvoo3gBBiB92r90BD4OJ8jtMm5H5FioiEQvbQdsYxtBK747GCX93ANKTXd
|
||||||
|
/HrQkZio1GzT8077i2ttPw638AOZO2GTDCfYPAAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton21.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACNSURBVDhPtZPRDcAgCEQZndHczHqkGBBsaE1N+EHvKXBS
|
||||||
|
a62fBGViZu5EFAL59XwAQMgjhjoE8ti3EAfAZiZccxYyAVWxwhQiANTmnt3vZV+05HBeegVAersVZEBt
|
||||||
|
8haA2+1K+iOT+g9wVEKhiZjGLCFMoeAHN4XHPmxgzgdqzaqZUidayOe/oJA3v/ECXC1jKtBnBTgAAAAA
|
||||||
|
SUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||||
|
<value>102</value>
|
||||||
|
</metadata>
|
||||||
|
</root>
|
||||||
Binary file not shown.
@@ -0,0 +1,491 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'key_tabelle'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:51
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'key_tabelle'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsKey_tabelle
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
|
||||||
|
Private m_sBeschreibung As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iKeynr</LI>
|
||||||
|
''' <LI>sBeschreibung</LI>
|
||||||
|
''' <LI>iKey_wert</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
|
||||||
|
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
|
||||||
|
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
|
||||||
|
m_bAktiv = SqlBoolean.Null
|
||||||
|
Else
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iKeynr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKeynr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKeynrTmp As SqlInt32 = Value
|
||||||
|
If iKeynrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKeynr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sBeschreibung]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sBeschreibung
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
Dim sBeschreibungTmp As SqlString = Value
|
||||||
|
If sBeschreibungTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
|
||||||
|
End If
|
||||||
|
m_sBeschreibung = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iKey_wert]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iKey_wert
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iKey_wertTmp As SqlInt32 = Value
|
||||||
|
If iKey_wertTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iKey_wert = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,289 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Connection Provider class for Database connection sharing
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:52
|
||||||
|
' // This class implements IDisposable.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Configuration
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Imports System.Collections
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
|
||||||
|
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
|
||||||
|
' /// on a high level.
|
||||||
|
' /// </summary>
|
||||||
|
Public Class clsConnectionProvider
|
||||||
|
Implements IDisposable
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_scoDBConnection As SqlConnection
|
||||||
|
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
|
||||||
|
Private m_stCurrentTransaction As SqlTransaction
|
||||||
|
Private m_alSavePoints As ArrayList
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
' // Init the class
|
||||||
|
InitClass()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the IDispose' method Dispose.
|
||||||
|
' /// </summary>
|
||||||
|
Overloads Public Sub Dispose() Implements IDisposable.Dispose
|
||||||
|
Dispose(True)
|
||||||
|
GC.SuppressFinalize(Me)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Implements the Dispose functionality.
|
||||||
|
' /// </summary>
|
||||||
|
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
|
||||||
|
' // Check to see if Dispose has already been called.
|
||||||
|
If Not m_bIsDisposed Then
|
||||||
|
If bIsDisposing Then
|
||||||
|
' // Dispose managed resources.
|
||||||
|
If Not (m_stCurrentTransaction Is Nothing) Then
|
||||||
|
m_stCurrentTransaction.Dispose()
|
||||||
|
m_stCurrentTransaction = Nothing
|
||||||
|
End If
|
||||||
|
If Not (m_scoDBConnection Is Nothing) Then
|
||||||
|
' // closing the connection will abort (rollback) any pending transactions
|
||||||
|
m_scoDBConnection.Close()
|
||||||
|
m_scoDBConnection.Dispose()
|
||||||
|
m_scoDBConnection = Nothing
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
m_bIsDisposed = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Initializes class members.
|
||||||
|
' /// </summary>
|
||||||
|
Private Sub InitClass()
|
||||||
|
' // Create all the objects and initialize other members.
|
||||||
|
m_scoDBConnection = new SqlConnection()
|
||||||
|
m_bIsDisposed = False
|
||||||
|
m_stCurrentTransaction = Nothing
|
||||||
|
m_bIsTransactionPending = False
|
||||||
|
m_alSavePoints = new ArrayList()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Opens the connection object.
|
||||||
|
' /// </summary>
|
||||||
|
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
|
||||||
|
Public Function OpenConnection() As Boolean
|
||||||
|
Try
|
||||||
|
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
|
||||||
|
' // It's already open.
|
||||||
|
Throw New Exception("OpenConnection::Connection is already open.")
|
||||||
|
End If
|
||||||
|
m_scoDBConnection.Open()
|
||||||
|
m_bIsTransactionPending = False
|
||||||
|
m_alSavePoints.Clear()
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // bubble exception
|
||||||
|
Throw ex
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
|
||||||
|
' /// </summary>
|
||||||
|
' /// <param name="sTransactionName">Name of the transaction to start</param>
|
||||||
|
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
|
||||||
|
Public Function BeginTransaction(sTransactionName As String) As Boolean
|
||||||
|
Try
|
||||||
|
If m_bIsTransactionPending Then
|
||||||
|
' // no nested transactions allowed.
|
||||||
|
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
|
||||||
|
End If
|
||||||
|
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||||
|
' // no open connection
|
||||||
|
Throw New Exception("BeginTransaction::Connection is not open.")
|
||||||
|
End If
|
||||||
|
' // begin the transaction and store the transaction object.
|
||||||
|
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
|
||||||
|
m_bIsTransactionPending = True
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // bubble exception
|
||||||
|
Throw ex
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Commits a pending transaction on the open connection object of this class.
|
||||||
|
' /// </summary>
|
||||||
|
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
|
||||||
|
Public Function CommitTransaction() As Boolean
|
||||||
|
Try
|
||||||
|
If Not m_bIsTransactionPending Then
|
||||||
|
' // no transaction pending
|
||||||
|
Throw New Exception("CommitTransaction::No transaction pending.")
|
||||||
|
End If
|
||||||
|
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||||
|
' // no open connection
|
||||||
|
Throw New Exception("CommitTransaction::Connection is not open.")
|
||||||
|
End if
|
||||||
|
' // commit the transaction
|
||||||
|
m_stCurrentTransaction.Commit()
|
||||||
|
m_bIsTransactionPending = False
|
||||||
|
m_stCurrentTransaction.Dispose()
|
||||||
|
m_stCurrentTransaction = Nothing
|
||||||
|
m_alSavePoints.Clear()
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // bubble exception
|
||||||
|
Throw ex
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
|
||||||
|
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
|
||||||
|
' /// </summary>
|
||||||
|
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
|
||||||
|
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
|
||||||
|
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
|
||||||
|
Try
|
||||||
|
If Not m_bIsTransactionPending Then
|
||||||
|
' // no transaction pending
|
||||||
|
Throw New Exception("RollbackTransaction::No transaction pending.")
|
||||||
|
End If
|
||||||
|
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||||
|
' // no open connection
|
||||||
|
Throw New Exception("RollbackTransaction::Connection is not open.")
|
||||||
|
End If
|
||||||
|
' // rollback the transaction
|
||||||
|
m_stCurrentTransaction.Rollback(sTransactionToRollback)
|
||||||
|
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
|
||||||
|
' // can clean it up.
|
||||||
|
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
|
||||||
|
' // it's not a savepoint
|
||||||
|
m_bIsTransactionPending = False
|
||||||
|
m_stCurrentTransaction.Dispose()
|
||||||
|
m_stCurrentTransaction = Nothing
|
||||||
|
m_alSavePoints.Clear()
|
||||||
|
End If
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // bubble exception
|
||||||
|
Throw ex
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
|
||||||
|
' /// with the given name.
|
||||||
|
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
|
||||||
|
' /// </summary>
|
||||||
|
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
|
||||||
|
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
|
||||||
|
Public Function SaveTransaction(sSavePointName As String) As Boolean
|
||||||
|
Try
|
||||||
|
If Not m_bIsTransactionPending Then
|
||||||
|
' // no transaction pending
|
||||||
|
Throw New Exception("SaveTransaction::No transaction pending.")
|
||||||
|
End If
|
||||||
|
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||||
|
' // no open connection
|
||||||
|
Throw New Exception("SaveTransaction::Connection is not open.")
|
||||||
|
End If
|
||||||
|
' // save the transaction
|
||||||
|
m_stCurrentTransaction.Save(sSavePointName)
|
||||||
|
' // Store the savepoint in the list.
|
||||||
|
m_alSavePoints.Add(sSavePointName)
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // bubble exception
|
||||||
|
Throw ex
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
' /// <summary>
|
||||||
|
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
|
||||||
|
' /// transaction is commited, or aborted.
|
||||||
|
' /// </summary>
|
||||||
|
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
|
||||||
|
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
|
||||||
|
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
|
||||||
|
' /// an error occurs</returns>
|
||||||
|
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
|
||||||
|
Try
|
||||||
|
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
|
||||||
|
' // No open connection
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
If m_bIsTransactionPending Then
|
||||||
|
If bCommitPendingTransaction Then
|
||||||
|
' // Commit the pending transaction
|
||||||
|
m_stCurrentTransaction.Commit()
|
||||||
|
Else
|
||||||
|
' // Rollback the pending transaction
|
||||||
|
m_stCurrentTransaction.Rollback()
|
||||||
|
End If
|
||||||
|
m_bIsTransactionPending = False
|
||||||
|
m_stCurrentTransaction.Dispose()
|
||||||
|
m_stCurrentTransaction = Nothing
|
||||||
|
m_alSavePoints.Clear()
|
||||||
|
End If
|
||||||
|
' // close the connection
|
||||||
|
m_scoDBConnection.Close()
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // bubble exception
|
||||||
|
Throw ex
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
|
||||||
|
Get
|
||||||
|
Return m_stCurrentTransaction
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public ReadOnly Property bIsTransactionPending() As Boolean
|
||||||
|
Get
|
||||||
|
Return m_bIsTransactionPending
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public ReadOnly Property scoDBConnection() As SqlConnection
|
||||||
|
Get
|
||||||
|
Return m_scoDBConnection
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
Public WriteOnly Property sConnectionString() As String
|
||||||
|
Set (ByVal Value As String)
|
||||||
|
m_scoDBConnection.ConnectionString = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.269
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Themenmanagement.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Themenmanagement.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,630 @@
|
|||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
' // Description: Data Access class for the table 'spalten'
|
||||||
|
' // Generated by LLBLGen v1.21.2003.712 Final on: Freitag, 4. Januar 2013, 17:02:52
|
||||||
|
' // Because the Base Class already implements IDispose, this class doesn't.
|
||||||
|
' ///////////////////////////////////////////////////////////////////////////
|
||||||
|
Imports System
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
|
||||||
|
Namespace DB
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Data Access class for the table 'spalten'.
|
||||||
|
''' </summary>
|
||||||
|
Public Class clsSpalten
|
||||||
|
Inherits clsDBInteractionBase
|
||||||
|
|
||||||
|
#Region " Class Member Declarations "
|
||||||
|
|
||||||
|
Private m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
|
||||||
|
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
|
||||||
|
Private m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iEintragnr, m_iBreite As SqlInt32
|
||||||
|
Private m_sTabelle, m_sNumberFormat, m_sTiptext, m_sSpalte, m_sTabellenspalte As SqlString
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Class constructor.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
' // Nothing for now.
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Insert method. This method will insert one new row into the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' <LI>sTabelle. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSpalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bAlsHacken</LI>
|
||||||
|
''' <LI>iBreite. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTiptext. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sNumberFormat. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Insert() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Insert]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::Insert::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Update method. This method will Update one existing row in the database.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' <LI>sTabelle. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>sSpalte. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bAlsHacken</LI>
|
||||||
|
''' <LI>iBreite. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sTiptext. May be SqlString.Null</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
|
||||||
|
''' <LI>iMutierer. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
|
||||||
|
''' <LI>sNumberFormat. May be SqlString.Null</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Update() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Update]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::Update::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function Delete() As Boolean
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Delete]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return True
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::Delete::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties needed for this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' </UL>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
''' <LI>iEintragnr</LI>
|
||||||
|
''' <LI>sTabelle</LI>
|
||||||
|
''' <LI>sTabellenspalte</LI>
|
||||||
|
''' <LI>sSpalte</LI>
|
||||||
|
''' <LI>bReadonly</LI>
|
||||||
|
''' <LI>bAlsHacken</LI>
|
||||||
|
''' <LI>iBreite</LI>
|
||||||
|
''' <LI>iReihenfolge</LI>
|
||||||
|
''' <LI>sTiptext</LI>
|
||||||
|
''' <LI>bAktiv</LI>
|
||||||
|
''' <LI>daErstellt_am</LI>
|
||||||
|
''' <LI>daMutiert_am</LI>
|
||||||
|
''' <LI>iMutierer</LI>
|
||||||
|
''' <LI>iMandantnr</LI>
|
||||||
|
''' <LI>sNumberFormat</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectOne() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectOne]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
If dtToReturn.Rows.Count > 0 Then
|
||||||
|
m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
|
||||||
|
If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
|
||||||
|
m_sTabelle = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
|
||||||
|
m_sTabellenspalte = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
|
||||||
|
m_sSpalte = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
|
||||||
|
End If
|
||||||
|
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
|
||||||
|
m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
|
||||||
|
If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
|
||||||
|
m_iBreite = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
|
||||||
|
m_iReihenfolge = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
|
||||||
|
m_sTiptext = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
|
||||||
|
End If
|
||||||
|
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
|
||||||
|
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
|
||||||
|
m_daErstellt_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
|
||||||
|
m_daMutiert_am = SqlDateTime.Null
|
||||||
|
Else
|
||||||
|
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
|
||||||
|
m_iMutierer = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
|
||||||
|
m_iMandantnr = SqlInt32.Null
|
||||||
|
Else
|
||||||
|
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
|
||||||
|
End If
|
||||||
|
If dtToReturn.Rows(0)("NumberFormat") Is System.DBNull.Value Then
|
||||||
|
m_sNumberFormat = SqlString.Null
|
||||||
|
Else
|
||||||
|
m_sNumberFormat = New SqlString(CType(dtToReturn.Rows(0)("NumberFormat"), String))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::SelectOne::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Purpose: SelectAll method. This method will Select all rows from the table.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
|
||||||
|
''' <remarks>
|
||||||
|
''' Properties set after a succesful call of this method:
|
||||||
|
''' <UL>
|
||||||
|
''' <LI>iErrorCode</LI>
|
||||||
|
'''</UL>
|
||||||
|
''' </remarks>
|
||||||
|
Overrides Public Function SelectAll() As DataTable
|
||||||
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||||
|
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll]"
|
||||||
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||||
|
Dim dtToReturn As DataTable = new DataTable("spalten")
|
||||||
|
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
|
||||||
|
|
||||||
|
' // Use base class' connection object
|
||||||
|
scmCmdToExecute.Connection = m_scoMainConnection
|
||||||
|
|
||||||
|
Try
|
||||||
|
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
|
||||||
|
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Open connection.
|
||||||
|
m_scoMainConnection.Open()
|
||||||
|
Else
|
||||||
|
If m_cpMainConnectionProvider.bIsTransactionPending Then
|
||||||
|
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
' // Execute query.
|
||||||
|
sdaAdapter.Fill(dtToReturn)
|
||||||
|
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
|
||||||
|
|
||||||
|
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
|
||||||
|
' // Throw error.
|
||||||
|
Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return dtToReturn
|
||||||
|
Catch ex As Exception
|
||||||
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||||
|
Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
|
||||||
|
Finally
|
||||||
|
If m_bMainConnectionIsCreatedLocal Then
|
||||||
|
' // Close connection.
|
||||||
|
m_scoMainConnection.Close()
|
||||||
|
End If
|
||||||
|
scmCmdToExecute.Dispose()
|
||||||
|
sdaAdapter.Dispose()
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
#Region " Class Property Declarations "
|
||||||
|
|
||||||
|
Public Property [iEintragnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iEintragnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
Dim iEintragnrTmp As SqlInt32 = Value
|
||||||
|
If iEintragnrTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
|
||||||
|
End If
|
||||||
|
m_iEintragnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTabelle]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTabelle
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTabelle = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTabellenspalte]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTabellenspalte
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTabellenspalte = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sSpalte]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sSpalte
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sSpalte = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bReadonly]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bReadonly
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bReadonlyTmp As SqlBoolean = Value
|
||||||
|
If bReadonlyTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bReadonly", "bReadonly can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bReadonly = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAlsHacken]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAlsHacken
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bAlsHackenTmp As SqlBoolean = Value
|
||||||
|
If bAlsHackenTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bAlsHacken", "bAlsHacken can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bAlsHacken = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iBreite]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iBreite
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iBreite = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iReihenfolge]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iReihenfolge
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iReihenfolge = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sTiptext]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sTiptext
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sTiptext = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [bAktiv]() As SqlBoolean
|
||||||
|
Get
|
||||||
|
Return m_bAktiv
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlBoolean)
|
||||||
|
Dim bAktivTmp As SqlBoolean = Value
|
||||||
|
If bAktivTmp.IsNull Then
|
||||||
|
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
|
||||||
|
End If
|
||||||
|
m_bAktiv = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daErstellt_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daErstellt_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daErstellt_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [daMutiert_am]() As SqlDateTime
|
||||||
|
Get
|
||||||
|
Return m_daMutiert_am
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlDateTime)
|
||||||
|
m_daMutiert_am = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMutierer]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMutierer
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMutierer = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [iMandantnr]() As SqlInt32
|
||||||
|
Get
|
||||||
|
Return m_iMandantnr
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlInt32)
|
||||||
|
m_iMandantnr = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
|
||||||
|
Public Property [sNumberFormat]() As SqlString
|
||||||
|
Get
|
||||||
|
Return m_sNumberFormat
|
||||||
|
End Get
|
||||||
|
Set(ByVal Value As SqlString)
|
||||||
|
m_sNumberFormat = Value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.269
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Themenmanagement.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,580 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>125, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>227, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||||
|
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||||
|
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAQ
|
||||||
|
DAAAAk1TRnQBSQFMAgEBBgEAASQBAAEkAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||||
|
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||||
|
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||||
|
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||||
|
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
|
||||||
|
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
|
||||||
|
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
|
||||||
|
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
|
||||||
|
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
|
||||||
|
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
|
||||||
|
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
|
||||||
|
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
|
||||||
|
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
|
||||||
|
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
|
||||||
|
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
|
||||||
|
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
|
||||||
|
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
|
||||||
|
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
|
||||||
|
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
|
||||||
|
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
|
||||||
|
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
|
||||||
|
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
|
||||||
|
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
|
||||||
|
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
|
||||||
|
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
|
||||||
|
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
|
||||||
|
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
|
||||||
|
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
|
||||||
|
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD//8ARAAF+QIABfwzAAH5
|
||||||
|
BPQB/wH5AfwB/wT0AfwDAAUHAgAFByIAAfkC9AH5CAAB/AL0AfwBAAIHCgACByEAAfkB9AH5AgAB/wT0
|
||||||
|
Af8CAAH8AfQB/AEAAQcDAAYHAwABByEAAfkC9AH5CAAB/AL0AfwBAAIHCgACByIAAfkE9AH/AfkB/AH/
|
||||||
|
BPQB/AMABQcCAAUHJAAF+QIABfz/AHkAAQMB/wsAAf8eAAHsA/8BBwL/AQcC/wEHAf8GAAHsAQMB7AH/
|
||||||
|
CwAB+wEAAfscAAHsA/8BBwL/AQcC/wEHAf8EAAEDAewBAwHsAQMB/wsAAf8BAAH/AQcB+w4AAf8B+woA
|
||||||
|
AewLBwMAAQMB7AEDAewBAwHsAf8BAAHsCQAB+wEAAfsBBwH/AQcB+woAAf8BAAH7Af8B+wH/CAAB7AH/
|
||||||
|
AuwBBwLsAQcC7AEHAf8DAAHsAQMB7AEDAewBAwH/AQAB7AkAAf8BAAL/AfsBBwH/AQcB+wcAAfsCAAH/
|
||||||
|
AfsB/wH7Af8B+wYAAewB/wLsAQcC7AEHAuwBBwH/AwABAwHsAQMCAAHsAf8BAAHsCQAB+wEAAfsC/wEH
|
||||||
|
AfsBBwH/BgAB/wEAAf8BAAH7Af8B+wH/AfsB/wH7Af8EAAHsCwcDAAHsAQMB7AIHAQMB/wEAAewBAAEG
|
||||||
|
BwAB/wEAAv8B+wEHAf8BBwH7BQAB+wEAAv8BAAH/AfsB/wH7Af8B+wH/AfsB/wMAAewB/wLsAQcC7AEH
|
||||||
|
AuwBBwH/AwABAwHsAQMB7AEDAewB/wIAAQYF/gMAAfsBAAH7A/8B+wEHAf8GAAP/AgAB/wH7Af8B+wH/
|
||||||
|
AfsB/wH7AwAB7AH/AuwBBwLsAQcC7AEHAf8DAAHsAQMB7AEDAewBAwH/AQABbQb+AwAB/wEAAv8B+wL/
|
||||||
|
AQcB+wgAA/8CAAH7Af8B+wH/AfsB/wMAAewLBwMAAQMB7AEDAewBAwHsAf8BAAHsAW0B/gRtAwAB+wH/
|
||||||
|
AgAC/wH7AQcB/wYAAfsB/wIAAv8BAAH/AfsB/wH7Af8B+wMAAewB/wLsAQcC7AEHAuwBBwH/AwAB7AED
|
||||||
|
AewBAwHsAQMB/wEAAewBAAJtBwAB+wH/AfsCAAH/AQcB+wcAAfsB/wH7AQAC/wIAAfsB/wH7Af8DAAHs
|
||||||
|
Af8C7AEHAuwBBwLsAQcB/wMAAQMB7AEDAewBBwH/AewBAAHsAgABbQkAAf8B+wH/AgAB/wkAAf8B+wEA
|
||||||
|
Av8DAAH/AfsDAAHsCAcGAAHsAQMBBwH/AewBAAPsDAAB+wH/AfsB/wH7DwAB/wH7BgAB7Aj7AewB/wHs
|
||||||
|
AwABBwH/AewBAAXsDQAB+wH/GQAB7Aj7Auw1AArsBAABQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEA
|
||||||
|
AQEGAAEBFgAD/wEABP8EAAT/BAAE/wQABP8EAAT/BAABwQGDAcEBgwQAAYABAQGAAQEMAAEQAQgBEAEI
|
||||||
|
DAABgAEBAYABAQQAAcEBgwHBAYMEAAT/BAAE/wQABP8EAAT/BAAB/AF/AecD/wHAAQEB8AF/AcMD/wHA
|
||||||
|
AQEBwAF/AcAB/wH4Af8BwAEBAQABHwHAAT8B8AE/AcABAQEAAR8BwAEPAeABDwHAAQEBAAEXAcABBwHA
|
||||||
|
AQMBwAEBAQABBwHAAQcBgAEAAcABAQIAAcABBwIAAcABAQIAAcABBwIAAcABAQIAAcABBwGAAQABwAEB
|
||||||
|
AgABwAEHAYABAAHAAQEBAAEHAcABBwHAAQABwAEBAQABFwHwAQcB4AEAAcABAQEAAR8B+AEHAfkBAAHA
|
||||||
|
AQMBAAEfAfgBBwH/Ac8BwAEHAQABHwH+AX8C/wHAAQ8L
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>354, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA
|
||||||
|
IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADNZ2cA0WtrANRubgDWcHAA2XNzANt1dQDdd3cA4Hp6AOJ8
|
||||||
|
fADlf38A54GBAOmDgwDshoYA5oSDAO6IiADJc3MA8IqKAPKMjADriYgA9Y+PAPeRkQD5k5MA2YCAAMt4
|
||||||
|
eAD8lpYA/piYAM17ewD/mpoA/5ycAP+engDzlpYA/6CgAKlqagD/oqIA5pKSAI9cXAD/paUA0IeHAP+n
|
||||||
|
pwD/qakAmGVlAP+rqwD/rq4AxYaGAP+wsADnn58ArHd3AP+ysgD/tLQA6KSkAP+2tgD9tbQA+7SzAH5a
|
||||||
|
WgD/uLgAs4KCAKZ5eQD/u7sAq35+AP+9vQCYcXEA/7+/AP/BwQCziYkA/8TEAP/GxgDRoqIAgmVlANys
|
||||||
|
rACKbGwAt5CQAP/KygDEoKAA3ba2ALmamgBnVlYAdGNjAFxUVACwoaEAy7y8AFNNTQCemZkAqKSkAKGe
|
||||||
|
ngBqaWkA03FvANl5dwDlg4EA3H58AOmHhQDriYcA9JKQAPOSkADdj4wAtHVzAOucmQD0pqMA76WiAMCE
|
||||||
|
gwD2trQA56upAPy/vgD7wb8AzHFtANJ6dgDXfnoA24R/AOGHgwDiiYUAzH97APWalgDrlZAA86qmAPSt
|
||||||
|
qgD3sa4AuY2LAPW9ugDmtrQAzq2rAIt2dQB7a2oAloOCAM9+dwDlkIoA752XAOqjnQDzubUAvJWSALCQ
|
||||||
|
jQDajoYA7bu1AOSckwCojIgAxK6rAMiDeADMiX0A0o2CAN6ZjgDXlIkA3ZyQAOKroQDptKsA1pqNAN2l
|
||||||
|
mQC3j4cAwqKbAK+TjQDJq6UAya6pANKVhwDBmY8A0ZmKANSejwDbrJ8Ay6GVALmbkwDGp54Ay5eHAM+b
|
||||||
|
iwDRn48A1aSVALORhgDDn5QAvpuQAL+spgDGlIIAzZ6NANSqnADHppoAxKOYAMGhlgC+oJUAyaqfAMqs
|
||||||
|
ogDKrqQAyJyKAM2ikADPp5cAyaeZAMWjlgDJqJsArKCbAK+qqADFmYYAyZ+MANWyowDEpZcAza2fAM2w
|
||||||
|
owCompQAxZ2JAMmkkQDJqJgAza6eAKOKfgDPsaIAz7KkAJWRjwCWlJMAx6GNAMmjjwDHoo4AyKaTAMqp
|
||||||
|
lgDIp5UAza2bAMytnADLrJsAxqiXANCxoADQsqEA0LKiAM+xoQC4qJ8Awp+JAMShjADDoIsAw6GMAMak
|
||||||
|
jwDEoo0AxaOPAMalkADHppIAyqmVAMmolADLq5cAy6uYAMysmQDNrpsAza6cAM+wngDOr50A0bSiANO2
|
||||||
|
pQB7cWoAmJiYAJSUlACSkpIAjo6OAIyMjACAgIAAfHx8AHp6egB3d3cAdHR0AG9vbwBjY2MAXl5eAFxc
|
||||||
|
XABbW1sAWFhYAFVVVQBTU1MATExMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVPX9+FXx7wAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA7+/17u++w3ZKd0t6Ve8AAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAMesk3ZJ+5Po2UhISEhIee8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAC3rKh1QkJCeYXOwEJCQkJChe8A7+/08e8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKzR10JCQkJCdqPi
|
||||||
|
skJCQkJCgfW2w6RFTPfvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJLn3INBQUFBQYPhmkFBQUFBQ3nQsmdB
|
||||||
|
QXj77QAAAAAAAAAAAAAAAAAAAAAAAAAAAKzq35o/Pz8/Pz9mPz8/Pz8/drPAfz8/Pz9H+QAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAKzs8ay14sk+Pj4+Pj4+Pj4+Pj4+Pj51Pj4+Pj4+eAAAAAAAAAAAAAAAAAAAAAAArKyi
|
||||||
|
Q03D6NpkPDw8PDw8PDw8PDw8PDw8PDw8PDxk7wAAAAAAAAAAAAAAAAAAAACswslkOjpluslkOjo6Ojo6
|
||||||
|
Ojo6Ojo6Ojo6Ojo6OjqA7wAAAAAAAAAAAAAAAAAAAACs4I03Nzc3N2Q3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3
|
||||||
|
Nzd4AAAAAAAAAAAAAAAAAAAAAIbSyjUzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzP+7wDv7/IAAAAA
|
||||||
|
AAAAAAAAAKvMoTExMTExMTExMTExMTE0jo6omo1zMTExMTExMTE7Tnh0MkT1AAAAAAAAAAAAAMXOynIw
|
||||||
|
MDAwMDAwMDAwMEoAAAAArdDLoXIwMDAwMDAwczAwMDL97wAAAAAAAAAAAAC148hyLS0tLS0tLS1yUAAA
|
||||||
|
AAAAAACp5d2QLS0tLS0tLS0tLS1G9QAAAAAAAAAAAAAAs+PIcSsrKysrKytPAAAAAAAAAAAAndLeoSsr
|
||||||
|
KysrKysrKysu+wAAAAAAAAAAAAAAANXMvyoqKioqKkAAAAAAAAAAAAAAAJ3S3ZAqKioqKioqKioqegAA
|
||||||
|
AAAAAAAAAAAAU5zjoCgoKCgoYVIAAAAAAAAAAAAAAACd5dliKCgoKCgoKChiAAAAAAAAAAAAxus7OX5h
|
||||||
|
YScnJycnOAAAAAAAAAAAAAAAAAAAxOCnJycnJycnJzIAAAAAAAAAAAAAztclJSUlJSUlJSUleQAAAAAA
|
||||||
|
AAAAAAAAAAAAgOfcfiUlJSUlYwAAAAAAAAAAAACR5LkiIiIiIiIiIiIi9gAAAAAAAAAAAAAAAAAAANXh
|
||||||
|
mSIiIiIiRO4AAAAAAAAAAACR46AgICAgICAgICBe8wAAAAAAAAAAAAAAAAAAAKrO1yAgICAgL/727AAA
|
||||||
|
AAAAAACR46AeHh4eHh4eHh4m9AAAAAAAAAAAAAAAAAAAAJXS3H0eHh4eHiMvTPz0AAAAAACR5NcdHR0d
|
||||||
|
HR0dHR0m9wAAAAAAAAAAAAAAAAAAAADp3oQdHR0dHR0dHR/7AAAAAACk5tyEbxwcHBwcHBwf+wAAAAAA
|
||||||
|
AAAAAAAAAAAAAADq34ocHBwcHBwcHBz7AAAAAAAApaXBzLGMbxoaGhoaTgAAAAAAAAAAAAAAAAAAAADq
|
||||||
|
y4oaGhoaGhoaGhr7AAAAAAAAAAAApbPgnxkZGRkZRPAAAAAAAAAAAAAAAAAAAADq3ooZGRkZGRkZGRn6
|
||||||
|
AAAAAAAAAAAAAKTksBYWFhYWX/gAAAAAAAAAAAAAAAAAAADp23AWFhYWFhYWFhbyAAAAAAAAAAAAU6un
|
||||||
|
XBUVFRUVFVHsAAAAAAAAAAAAAAAAAADn2V0VFRUVFRUVXWAAAAAAAAAAAAC+448UFBQUFBQUFCH4AAAA
|
||||||
|
AAAAAAAAAAAAAKvjmBQUFBQUY9YAAAAAAAAAAAAAAKXNixISEhISEhISEhJM9AAAAAAAAAAAAAAAANDb
|
||||||
|
fBISEhISNvMAAAAAAAAAAAAAperflhEREREREREREREXUfEAAAAAAAAAAAAAnOSYERERERERG/7tAAAA
|
||||||
|
AAAAAAAAAKPjvxMPDw8PDw8PDw8PG1HyAAAAAAAAAAClz6dbDw8PDw8PDyH97QAAAAAAAAAAAJXS24IN
|
||||||
|
DQ0NDQ0NDQ0NDRhO+AAAAAAAALe7p1oNDQ0NDQ0NDQ0h/QAAAAAAAAAAAAC8zLgMDAwMbWwMDAwMDAwM
|
||||||
|
KU779e7seqSLDgwMDAwMDAwMDAwMIQAAAAAAAAAAAACU0tuJI6Wb4r9YCwsLCwsLCwsQKSlfXgsLCwsL
|
||||||
|
CwsLCwsLCwsLPQAAAAAAAAAAAAAA0tIjAACl0txrCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgpZVAAA
|
||||||
|
AAAAAAAAAAAAAAAAAACszrgJCQkJCQkJCQkJCQkJCQkJCQkJCQmCnmsJCQkvAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAC14YkICAgICAgICAgICAgICAgICAgICAiXnt6uWRcAAAAAAAAAAAAAAAAAAAAAAKXT3WoHBwcHBwcH
|
||||||
|
BwcHBwcHBwcHBwcHBwc2eq6urgAAAAAAAAAAAAAAAAAAAAAAAJLOuAYGBgYGBleIVwYGBgYGBgYGBgYG
|
||||||
|
BgYh+AAAAAAAAAAAAAAAAAAAAAAAAAAAAKPkv2kFBQUFBajLiAUFBQUFBYmIBQUFBQUFTgAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAC15L97BAQEO7TMpgQEBAQEauXZaQQEBAQERAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAArujdiFYsAKPkuAMDAwMDENTMpgMDAwMDbgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHe9vb0AAJLl
|
||||||
|
1wICAgICJIHT3ocCAmhuAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK/n2GgCAgICKYGdztlu
|
||||||
|
bgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAK/T24doAQEBgQAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAACvr6+vr6+vAAAAAAAAAAAAAAAAAAAAAAAAAAD///wH//8AAP//
|
||||||
|
AAP//wAA//wAA///AAD/8AACD/8AAP/gAAAH/wAA/+AAAAP/AAD/4AAAA/8AAP8AAAAD/wAA/gAAAAP/
|
||||||
|
AAD8AAAAA/8AAPwAAAAH/wAA+AAAAAI/AAD4AAAAAB8AAPgAB4AADwAA/AAP4AAPAAD+AB/wAA8AAP8A
|
||||||
|
P/gADwAA/gA//AAfAADwAH/+AD8AAPAAf/4AfwAA4AB//wA/AADgAH//AA8AAOAAf/8AAwAA4AB//4AD
|
||||||
|
AADgAH//gAMAAPAAf/+AAwAA/gA//4ADAAD/AD//gAMAAP4AH/+ABwAA/AAf/wA/AAD4AA//AD8AAPAA
|
||||||
|
B/4AHwAA+AAD/AAPAAD4AAH4AA8AAPwAAAAADwAA/AAAAAAPAAD+MAAAAA8AAP/wAAAAHwAA//AAAAA/
|
||||||
|
AAD/4AAAAH8AAP/gAAAD/wAA/+AAAAP/AAD/8AAAA/8AAP/4EAAD/wAA//wwAAf/AAD///AAH/8AAP//
|
||||||
|
8Af//wAA///4D///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9s
|
||||||
|
bQDRZmcA2W9wANdubwDTbG0A13BxANtzdADfdncA43l6AOV9fgDmfn8A6oKDAO6FhgD3i40A9oyNAPWN
|
||||||
|
jgC6bG0A/JOUAPuTlAD9nZ4A/6GiAP+lpgD/tbYA/7m6AP+6uwD/vb4A/8PEAP/FxgDVa2sA2HFxANVx
|
||||||
|
cADgd3cA2nR0AN54eADie3sA4Xt7AOWAfwDlf38A439+AOmDgwDlgIAA7oaGAOWCgQDjgIAA3Hx8AOyG
|
||||||
|
hgDphIQA8ImJANt+fQDwiooA7YqJAOeGhQDIdHMA9I6OAOuIiAD4kZEA/JSUAPuUlAD3kZEA9pOSAP2Y
|
||||||
|
lwD+mJgA6oyMAP+bmwD/np4A/6GhALh0dAD/paUArG9vAP+npwCfaGgA/6ioAP+srAD+q6sA+qqpAP+u
|
||||||
|
rgCvd3cA/6+vANuWlgDChoYA/rCwAO2kpAD/srIA76moAIVdXQD/tLQA9q2tAP+1tQD/trYAoXNzAI9n
|
||||||
|
ZwD/ubkA1pubAK9/fwD/vLwApXp6AOWrqwDVn58A/8DAAP2+vgCGZWUAfl9fAP/DwwCogIAAtYuLAP3E
|
||||||
|
xAD/x8cAjG1tAHRbWwD/ysoA/83NAJN3dwB5ZGQAiHFxAN25uQCrkJAAdGVlAF5SUgCjkpIAqJmZAGxn
|
||||||
|
ZwBeWloAioWFAIOAgABnZmYAZmVlAFZVVQClpKQAzmxqANJvbQDYdXMA2Hh2AOWGgwDskY4A+52aAPaa
|
||||||
|
lwDqlZIA4JWSAPynpQDRjYsA252cAPazsQD4t7UAyJWUAP2+vQD+wL8A3KqpAPnFwwDgtLMArI2MANF5
|
||||||
|
dADbhH8A44uGAPOWkgDyqqYA+K+sAPmzsADVgXsA3IuFAOqinADuqaMA7rizAPK9uQCIbmwAinx7AG9k
|
||||||
|
YwDgk4sA6JuTAPCzrQCNengA042DAMqGfQDRk4oAt5uXAJqTkgDSkIUAy4yCAOWtpADIpJ4A5rasAJR/
|
||||||
|
ewDFrKcAuqypAN+rngC4kokAxqmiANihkgCXhH8AyZSEANSgkADMmooA1qOUAMKnnwCpmZQAyZiHANGf
|
||||||
|
jgDRoZEAz6KSAMegkgDUq5wA0LSqAKeUjQC+mowAzaueALOWiwDGp5oAyKyhAMqvpACjjYQAyqCNAM6l
|
||||||
|
kgDOqZgAwJ6PAMirngC+pJkAzaeUANCrmADLp5UAwqKSAMamlgCfhnkAs5iLAMClmADEqp0AZGJhAM6p
|
||||||
|
lQDEpJIAyq6eAM6tmQDLrZoAyauZAMeqmQDKrZwAwaaWAMOrnQDJqpYAy6+dAMGmkgDHrJgAwaqZAJKR
|
||||||
|
jwCbm5sAmJiYAJSUlACTk5MAjIyMAIaGhgCEhIQAfX19AGpqagBlZWUAYGBgAFxcXABYWFgAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAA8/P49vMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPN8+fPKrnS8efMAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAPO8s5WmzdSUbm619fPzAAAAAAAAAAAAAAAAAAAAAAAA3KNra5PcyGprb3B5vJZ1+gAA
|
||||||
|
AAAAAAAAAAAAAAAAANflohxnG7S0G2drkN20G6JyfQAAAAAAAAAAAAAAAAB7qu64Z2NjY2NjY2OSopFj
|
||||||
|
Y2SlAAAAAAAAAAAAAAAA3pNp3MgZX19fX19fX18aGl9fYa8AAAAAAAAAAAAAAOOyGBmPjlxcXFwYGBkY
|
||||||
|
XFxcXFxp9gAAAAAAAAAAAAC62Z1ZWFlZWFhZVo6pqZ1ZF1hYWGh6pXB+AAAAAAAAAM/Zm1ZTU1NTU1dz
|
||||||
|
AADJ1LicU1NTV41UUXH4AAAAAAAAAM7Ym05MTExStwAAAAAA0NihTkxMTE5MkH0AAAAAAAAAAODTS0lJ
|
||||||
|
SpYAAAAAAAAA5NibSUlJSUlLeAAAAAAAAK8BubiLSEhPgAAAAAAAAAAA6MBGSEhISGIAAAAAAAAAxUYW
|
||||||
|
FkRERGAAAAAAAAAAAADQ7KAWRERegAAAAAAAANvAQkJCQkJCcQAAAAAAAAAAAADmuxVCQmb79QAAAAAA
|
||||||
|
1btBQUFBQUF1AAAAAAAAAAAAANbTFEFBiU1lfQAAAADOxYdAQEBAQG0AAAAAAAAAAAAAuuKIQEBAQED+
|
||||||
|
AAAAAAAAzMCoPT4+W/YAAAAAAAAAAAC22Zo+Pj4+Pv0AAAAAAAAA19OaOTpD+wAAAAAAAAAAAMHiPDo6
|
||||||
|
OhIT+AAAAAAAALfLiTs7Oz929AAAAAAAAAAA3744OziGiqAAAAAAAAAAx4YPNjY2NkX99AAAAAAAAADv
|
||||||
|
pxA2DqTxAAAAAAAAAOjEMDIyMjIyN1X89AAAAAAArsUzMjIwR3/yAAAAAAAAuuyZDSoNKi4uL1V/9wAA
|
||||||
|
AMLGmSouLi4qR/wAAAAAAAAA560MNKefDCgoKBFtf+G1rYUMKCgoKCgrbAAAAAAAAADk5OTk8L8nJiYm
|
||||||
|
KSwtMSsLCyYmJgoLJTF3AAAAAAAAAAAAAOTqsAkkJCQkJCQjIyQkJAmfXZgjUAAAAAAAAAAAAAAA5Nqe
|
||||||
|
CCIiCAgiIiIiCCIiIEPRXV0AAAAAAAAAAAAAAADP0oMHISGrniEhISGEISEhEXoAAAAAAAAAAAAAAAAA
|
||||||
|
AOTmsR8DQ+29BgYEntKXAwYepAAAAAAAAAAAAAAAAAAAAOTkv4wA68OCBR018L0FBTVdAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAADg0oECAlq35qxdAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOTpsbGtAAAAAAAAAAAAAAAA
|
||||||
|
AAD//B///8AP//8AA///AAD//gAAf/wAAH/4AAB/8AAAf+AAAA/gAwAH8AfAB/gP4AfgD/AP4B/wD8Af
|
||||||
|
+AfAH/gDwB/4A/AP+AP4D/gD8Af4B/AD+A/gAfAH4ADgB/AAAAfwAAAH/gAAD/4AAB/+AAB//gAAf/8I
|
||||||
|
AH//+AH///g//ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZAMSU
|
||||||
|
lADFlpYAw5SUAMycnAC7j48Auo6OALKIiADOnp4Av5OTALeNjQCziooAsomJALqQkADNoKAAu5KSAKuF
|
||||||
|
hQDQo6MAo4CAALWPjwCae3sAkXR0ANasrACYenoAk3Z2AI9zcwCnh4cAiG5uANOsrADOqKgAiG9vANCq
|
||||||
|
qgCJcHAAtZWVAMWlpQCzlpYAknt7AKeNjQCxmJgAppCQALegoACkkZEAuKSkAJyMjACYiIgAZ2FhAFJO
|
||||||
|
TgBjX18AYl5eAJ+fnwCYmJgAkZGRAImJiQCDg4MAgoKCAICAgAB5eXkAc3NzAG5ubgBtbW0AZ2dnAGVl
|
||||||
|
ZQBkZGQAX19fAF5eXgBWVlYAU1NTAE9PTwBNTU0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
ADVDNAAAAAAAAAAAAAAtQCIBGT0sQTgAAAAAAAAPAR8MAQ0WAQY7AAAAAAA5EAEBAQEBAQEIRDw5AAAF
|
||||||
|
Cw0BAQEgAQEBAwgEMAAAAQEBASkAAAAAAQEBASoAACQBASUAAAAAAAABASE+Nx4OAQQ6AAAAAAAACQEN
|
||||||
|
E0MBAQERPwAAAAAAAB4BAQEzHh4BAkUyAAAAAAABAREmAAAjAQEcQjMAAAAnAQEVMQAAAQEBARovQi4Y
|
||||||
|
AQEBASgAABceDwEBAQEBAQEHGwEAAAAAABIBAQEBAQEBCjYAAAAAAAAXAR4dARQrAQEAAAAAAAAAAAAA
|
||||||
|
FwEBAAAAAAAAAP4/ALrwB1lY4AdYWMABjqmAAVkXg8FYaIfgcH4H4AAAB+AAzwPhVlOBwVNTgAEAAIAD
|
||||||
|
uJzgB1NX4A9Rcfx/AAAoAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA
|
||||||
|
AAkAAAAPAAAAFQAAABAAAAADAAAAKgAAAGAAAACLAAAArAAAAKEAAACUAAAAfwAAAF0AAAAYAAAAAQAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAMAAAAQAAAAJwAAAEwAAABxAAAAiwAAAG5ZRkJDhHFlr5Z8bOTnubT72a6u882kpO6xjo7lhWpq1hkU
|
||||||
|
FKYAAAA9AAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAADQAAADEdGRd3ZFRLxKODfeHjtLL2v5eX6gAAAKebeXLMzq+d/8Ogi///ysr//8rK///K
|
||||||
|
yv//ysr//8rK/1JBQcYAAABbAAAADAAAAAkAAAAPAAAAEwAAABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAKOS0qaZF3bNjTq57/87+7///Hx///x8f//8fH/2JMTNGlhn3uza2b/8mk
|
||||||
|
kf//x8f//8fH///Hx///x8f//8fH/5Z1ddoAAABrAAAAHwAAAEsAAABwAAAAiAAAAH0AAAA9AAAADQAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjfnd7xKWU98Ofiv//xsb//8bG///Gxv//xsb//8bG/+ay
|
||||||
|
svfFn5X/y6uX/9Cnl///xsb//8bG///Gxv//xsb//8bG/6N+fuAAAACLemdfoJJ6bNy6lInx2qio8j0v
|
||||||
|
L8gAAACdAAAAVAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIXRz7Ce/8Sijf/vubT//8TE///E
|
||||||
|
xP//xMT//8TE///ExP/rvbb/yaiU/9ytof//xMT//8TE///ExP//xMT//8TE/82enu5XREDMy6yb/86n
|
||||||
|
lv/7wb///8TE///ExP9yV1fXAAAApwAAAGsAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAADQAAABKSZ2V80rWk/8em
|
||||||
|
kv/brKD//8HB///Bwf//wcH//8HB///Bwf//wcH//L++///Bwf//wcH//8HB///Bwf//wcH//8HB/+au
|
||||||
|
rvfMppr/yaWS//O5tf//wcH//8HB///Bwf//wcH/sIWF5wAAAKMAAAAwAAAABgAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAABDAAAAZwAA
|
||||||
|
AH8kGBiIyamb/8url//Joo///7+///+/v///v7///7+///+/v///v7///7+///+/v///v7///7+///+/
|
||||||
|
v///v7///7+///+/v///v7//97q4//+/v///v7///7+///+/v///v7///7+//1xFRbIAAAAcAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXNc
|
||||||
|
VoOIc2bUrYh87M6Zme1QOzvLoH938M6vnf/DoYz/87ay//+9vf//vb3//729//+9vf//vb3//729//+9
|
||||||
|
vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3/9LW1+gAA
|
||||||
|
AHEAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAABfFlXa82unv/Io5D/97a0//+7u///u7v/56up/9Wyo//Io4//97a0//+7u///u7v//7u7//+7
|
||||||
|
u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7
|
||||||
|
u///u7v/tISE4QAAAEUAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAABYOjocuZiM68mplf/gqp///7i4//+4uP//uLj//7i4//+4uP/3tLL//7i4//+4
|
||||||
|
uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4
|
||||||
|
uP//uLj//7i4//+4uP//uLj/aUxMwwAAAC0AAAADAAAACQAAAA8AAAAVAAAABwAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGWbmqPz7Gg/8eijv/7tLP//7a2//+2tv//trb//7a2//+2
|
||||||
|
tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2
|
||||||
|
tv//trb//7a2//+2tv//trb//7a2//+2tv//trb/AAAAtQAAAGgAAAA6AAAATgAAAHEAAACCAAAASAAA
|
||||||
|
AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFWVhO+m5DxyqmW/9immP//tLT//7S0//+0
|
||||||
|
tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//bW0/++1r//jsqf/1qqb/9uq
|
||||||
|
nf/kq6L/97Gu//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT/oXJy4yMeG75rUUzKsH584eej
|
||||||
|
o/ZjRUXPAAAAiwAAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDMrZ7wzK2a/8ei
|
||||||
|
jv/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv/Mj4+ghF1dHwAA
|
||||||
|
AAGZZmYwuZSLcsGekuDLrJv/yKeT/9KklP/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//ew
|
||||||
|
rf//srL//7Ky//+ysv/moaH3AAAArQAAAFEAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AACkdXJgyaib/8urmP/HoY3/86yo//+wsP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/9amp+XpU
|
||||||
|
VGQAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAACug31gw6CU8M2um//Fo47/36ab//+wsP//sLD//7Cw//+w
|
||||||
|
sP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/c09P1QAAAIwAAAAbAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAApHVyYMinmf/Lq5j/xqCM//Oqpv//rq7//66u//+urv//rq7//66u//+u
|
||||||
|
rv//rq7/YEJCfwAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmELiSidDPsZ//xqWQ/9ej
|
||||||
|
lf//rq7//66u//+urv//rq7//66u//+urv//rq7//66u//+urv//rq7/5pyc9wAAAKcAAAA0AAAABgAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAB5hsaWfPsaH/yqqW/8Weiv//q6v//6ur//+r
|
||||||
|
q///q6v//6ur//+rq/+gbGzMAAAAKAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm
|
||||||
|
ZhC4konQz7Gf/8Wjj//fpJn//6ur//+rq///q6v//6ur//+rq///q6v//6ur//+rq///q6v//6ur/2JC
|
||||||
|
QqcAAAAtAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMAAAArAAAARQAAAFu0kojty6uY/9Cg
|
||||||
|
kP//qan//6mp//+pqf//qan//6mp//SiovokGBhxAAAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAACZZmYgxKKW8M2um//DoYv/76Wg//+pqf//qan//6mp//+pqf//qan//6mp//+p
|
||||||
|
qf//qan/7p6e75BfX1UAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDEpJYNQQjnAmGRk15Zi
|
||||||
|
Ytnoo5//8qei//emo///p6f//6en//+np///p6f//6en/6dtbdsAAAA3AAAABAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApHVyYM+xov/JqZX/zJ+N//+np///p6f//6en//+n
|
||||||
|
p///p6f//6en//+np//nl5flTTIyNQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvZyRt82t
|
||||||
|
m//Cnon//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl/0QsLLQAAAAcAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKJguDPsJ7/xKKN/+ui
|
||||||
|
m///paX//6Wl//+lpf//paX//6Wl/7R0dOEsHBxdAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAt4+H/8ysmf/Jn4z//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki/wAA
|
||||||
|
AI8AAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKR1
|
||||||
|
cmDPsaH/yaiU/9Sej///oqL//6Ki//+iov//oqL//6Ki/2RAQMwAAABtAAAAIgAAAA0AAAAEAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///6Cg//+goP//oKD//6Cg//+goP//oKD//6Cg//+g
|
||||||
|
oP//oKD/2omJ8gAAAIUAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAADAnZLwzK2a/8Kfif//oKD//6Cg//+goP//oKD//6Cg/6FlZeMAAACyAAAAkQAA
|
||||||
|
AGcAAAA3AAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///56e//+env//np7//56e//+e
|
||||||
|
nv//np7//56e//+env//np7/zoCA7QAAAIgAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxioOzz7Gf/8Sijf/vnZf//56e//+env//np7//56e//+e
|
||||||
|
nv/mj4/3oWRk4j8nJ8MAAACqAAAAiQAAABYAAAAAAAAAAAAAAAAAAAAAt4+H/8ysmf/Bnoj//5yc//+c
|
||||||
|
nP//nJz//5yc//+cnP//nJz//5yc//+cnP//nJz/zH197wAAAJsAAAAYAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACleXWD0bSi/8alkP/jm5L//5yc//+c
|
||||||
|
nP//nJz//5yc//+cnP//nJz//5yc//+cnP/zlZX7AAAApgAAABgAAAAAAAAAAAAAAAAAAAAAuZOK782u
|
||||||
|
nP/Eoo3/5JyT//Oalv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/85KS+wAAAKcAAAAlAAAAAQAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSYWFU07al/8em
|
||||||
|
kv/fmo///5qa//+amv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/AAAApwAAABgAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAmWZmILCIgXLFpJiyyaiY/8qql//NopD/3ZyQ//eZlv/+mJj//piY//6YmP/+mJj//piY/xcO
|
||||||
|
DrQAAABGAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AACQYGBE07em/8imkv/fmo///piY//6YmP/+mJj//piY//6YmP/+mJj//piY//6YmP/+mJj/AAAApwAA
|
||||||
|
ABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmEKh7d4DIp5n/yqmV/8+bi//8lpb//JaW//yW
|
||||||
|
lv/8lpb//JaW/2I6Os0AAABzAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAACKXFxH07al/8elkf/dmI3//JaW//yWlv/8lpb//JaW//yWlv/8lpb//JaW//yW
|
||||||
|
lv/8lpb/AAAApAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2+mpD/zKyZ/8ic
|
||||||
|
iv/5k5P/+ZOT//mTk//5k5P/+ZOT/6xlZecAAACgAAAAKwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYa2l30bSi/8Wkj//rlZD/+ZOT//mTk//5k5P/+ZOT//mT
|
||||||
|
k//5k5P/+ZOT//mTk//5k5P/AAAAgwAAABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFkg2
|
||||||
|
NHTAoJH5zp+O//SSkP/3kZH/95GR//eRkf/3kZH/95GR//eRkf8VDQ26AAAAZwAAABIAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmgXubz7Ce/8Ogi//zkpD/95GR//eR
|
||||||
|
kf/3kZH/95GR//eRkf/3kZH/95GR//OSkP/pkI3kAAAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAWb1ZSn8urmf/Wmo3/9Y+P//WPj//1j4//9Y+P//WPj//1j4//9Y+P//WPj/+bWlrjAAAAoQAA
|
||||||
|
AD8AAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa5lozny6yY/9GZ
|
||||||
|
iv/1j4//9Y+P//WPj//1j4//9Y+P/756duuWf3Gto4N2XY13ahcAAAABAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAmhg3qryKeV/9eWiv/yjIz/8oyM//KMjP/yjIz/8oyM//KMjP/yjIz/8oyM//KM
|
||||||
|
jP/yjIz/OiEhyQAAAIkAAAAuAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRO
|
||||||
|
TlTLq5z/xqSQ/+WQiv/yjIz/8oyM//KMjP/yjIz/8oyM/102NtAAAACFAAAAIgAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZkZGLStaT/x6aS/9KVh//wior/8IqK//CKiv/wior/8IqK//CK
|
||||||
|
iv/wior/8IqK//CKiv/wior/2Hx89xUMDLwAAACAAAAALQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAADaqIf9TMrJn/0JiJ//CKiv/wior/8IqK//CKiv/wior/8IqK/8x1dfMAAACyAAAAawAA
|
||||||
|
AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDCnpP/y6yY/8Wdif/riYj/7oiI/+6I
|
||||||
|
iP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/8pzc/MUDAy7AAAAgwAAAD0AAAAQAAAAAwAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAMfF1Zh8ytnP/MnYz/64mH/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6I
|
||||||
|
iP+kXV3nAAAArQAAAGsAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACzi4Sx0LKg/8Wk
|
||||||
|
j//bjob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/IcXHzOCAgyAAA
|
||||||
|
AKAAAABjAAAAMAAAABYAAAANAAAADAAAABlLOTZuwqKU+Myejf/ph4X/7IaG/+yGhv/shob/7IaG/+yG
|
||||||
|
hv/shob/7IaG/+yGhv/shob/olxc5wAAAKwAAABWAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AACZZmZAza2f/8qql//Gmof/6YOD/+mDg//pg4P/6YOD/+KJhf/hh4P/6YOD/+mDg//pg4P/6YOD/+mD
|
||||||
|
g//pg4P/6YOD/4VKSt8nFha9AAAApgAAAIsAAABtAAAAZ1hHQqq+moz61pKI/+aEg//pg4P/6YOD/+mD
|
||||||
|
g//pg4P/6YOD/+mDg//pg4P/6YOD/+mDg//pg4P/6YOD/5dVVdwAAABLAAAACQAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAt5CIwNCxoP/GpI//1o2D/+F9fdXKdXWXy6GV/8url//EnYn/5YOB/+eB
|
||||||
|
gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/xW5u85JRUeGHS0varWto7N6OiP/ngYH/54GB/+eB
|
||||||
|
gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/3VBQb4AAAAlAAAAAQAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmMMmqnIKxlINJAAAABgAAAAAAAAAAr4yEmdCy
|
||||||
|
oP/Foo3/3YR//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/
|
||||||
|
f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//23p6+iIT
|
||||||
|
E2oAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAADsY2E2M2tm//Fmof/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8
|
||||||
|
fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/2Y2G/8uXh//ZhH7/4nx8/+J8
|
||||||
|
fP/ifHz/lFFRxAAAACcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAB3UFApyaia/8molP/OjYH/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6
|
||||||
|
ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/wJeN+s6v
|
||||||
|
nf/GpZD/zZGD/9x+e//VdHTqPSEhOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcdG970bOh/8Wjjv/Xfnr/3Xd3/913d//dd3f/3Xd3/913
|
||||||
|
d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913
|
||||||
|
d//dd3f/ZTY202tPTLTEopbjw6WTtreWgoipW1sqAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1kIfUza2b/8WZhv/bdXX/23V1/9t1
|
||||||
|
df/bdXX/23V1/9t1df/Yenj/zol+/9l3dv/bdXX/23V1/9t1df/bdXX/23V1/9t1df/bdXX/23V1/9t1
|
||||||
|
df/bdXX/23V1/9t1df/bdXX/olZW6wAAAKEAAAAlAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCn5T/zKyZ/8Sd
|
||||||
|
if/Uenb/2XNz/9lzc//Zc3P/2XNz/9lzc//TqJr/yKeT/8uKfv/Zc3P/2XNz/9lzc//Zc3P/2XNz/9lz
|
||||||
|
c//RjYP/zId9/9lzc//Zc3P/2XNz/9lzc//Zc3P/2XNz/xQKCrQAAABCAAAABwAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AACkdXJgyaib/8ysmf/Fnor/z353/9ZwcP/WcHD/1nBw/5FSUr/Fo5b/yqmW/8aSgf/WcHD/1nBw/9Zw
|
||||||
|
cP/WcHD/1nBw/9Z9ev/Nrpv/w6GL/9B6df/WcHD/1nBw/9ZwcP/WcHD/1nBw/1ovL74AAABJAAAACgAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAroN+MMKglODOr53/xaOP/8mIfP/TcW//sVxcvgAAAB/Cn5T/y6yZ/8SY
|
||||||
|
hf/Ubm7/1G5u/9Rubv/Ubm7/1G5u/8lxcP/QsqL/yqmW/8WVg//Ubm7/1G5u/9Rubv/Ubm7/1G5u/5lP
|
||||||
|
T5sAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZhC1jIWvxqaX4b+fi6e4hXd4hkREGQAA
|
||||||
|
AAG7lYzhza6b/8Kfif/Ra2v/0Wtr/9Fra//Ra2v/0Wtr/3s/P9mhe3bV0LKh/8alkP/Ig3j/0Wtr/9Fr
|
||||||
|
a//MaGj1nVBQawAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAC1j4bCz7Ce/8ShjP/Mc27/0Gpq/9Bqav/Qamr/0Gpq/3U8PMY7JydTxKKW8M2t
|
||||||
|
m//DoIv/xnFs5b5hYYx8Pz8bAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIWQ0LKh/8akj//Hgnf/ynFs/81nZ//NZ2f/zWdn/39A
|
||||||
|
QGcAAAAKpnd0UMqunmSiiHkoAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC5koogvZmOgcSmlpS5lIjCw6OTxMWm
|
||||||
|
k7W2loN5pYZzOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AAf//AAD/+AAB//8AAP/wAAAP/wAA/+AAAAf/
|
||||||
|
AAD/4AAAA/8AAP/gAAAB/wAA/wAAAAD/AAD+AAAAAf8AAPwAAAAB/wAA+AAAAAH/AAD4AAAAAB8AAPAA
|
||||||
|
AAAADwAA8AAAAAAPAADwAAAAAAcAAPgAB8AABwAA/AAP4AADAAD4AA/wAAMAAPAAH/gABwAA4AAf/AAP
|
||||||
|
AADgAD/+AB8AAOAAP/4ABwAA4AA//wADAADgAD//AAEAAOAAP/8AAQAA4AAf/wABAADgAB//AAEAAPwA
|
||||||
|
H/8AAQAA/gAP/wABAAD8AA//AAMAAPgAB/4ABwAA8AAD/gAfAADwAAH8AA8AAPAAAHgABwAA+AAAAAAD
|
||||||
|
AAD4AAAAAAMAAPwAAAAAAwAA/DAAAAAHAAD/4AAAAAcAAP/gAAAADwAA/+AAAAAfAAD/4AAAAP8AAP/g
|
||||||
|
AAAA/wAA/+AAAAD/AAD/8AAAAf8AAP/4AAAD/wAA///wAAf/AAD///AAP/8AAP//8Af//wAAKAAAACAA
|
||||||
|
AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAIAAAALAAAAEwAAABkAAAANAAAAPQAAAGcAAAB7AAAAcQAAAFgAAAAfAAAAAgAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAEAAAANAAAAKwAAAFkUEBCHAAAAgmFSSnyMc2rDsY6O4Z+AgN6AZmbTJB0drAAA
|
||||||
|
AE4AAAANAAAACwAAAA0AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAABAAAADTUrJ2R4YVjGxJ6X7t+xsPRIOTjIrY6C7c6pmP/5xcP//8vL///K
|
||||||
|
yv99Y2PTAAAAbAAAADoAAABVAAAAXwAAADgAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBQUwihfXZ5xKKS9fK9uf//yMn//8fH/9moqPPGpJb91Kyd//3E
|
||||||
|
xP//x8f//83N/4ZjZOAnHhyseGVZw598eNxJOTnEAAAAlAAAAFEAAAAPAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAGa2KgMvOrZn/7bix///Fxv//w8P//8PE/+e3
|
||||||
|
rv/qt6///8PE///Dw///x8f/wpOS8pl+cfDitKf//8PE/+21tflxVlbWAwICmgAAAC4AAAAFAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADh0ZFlcmHBuJZEpIvMGmkv7crqH//8LC///A
|
||||||
|
wP//wMD//8HB///AwP//wMD//8DA///AwP/+wL//77iy//2+vf//wMD//8DA//2+vv5QPDypAAAAJQAA
|
||||||
|
AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASIbGWIq41+5tqioPKqfHzpxKWU/NSq
|
||||||
|
mv/+u7r//7y9//+8vP//vLz//7y8//+8vP//vLz//7y8//+8vf//vb7//729//+8vP//vLz/5Kio9Tgq
|
||||||
|
KoMAAAATAAAABQAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAelVUP8Skkv7lraT//7m6//+6
|
||||||
|
u//4t7X/9bWx//+5uf//ubn//7m5//+5uf//ubr//7m6//+6u///ubr//7m5//+5uf//ubn//7m5//+5
|
||||||
|
uf+vf3/hAAAAcgAAACwAAAA2AAAAPQAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAGwjIK+0auZ//my
|
||||||
|
r///trf//7W1//+2tv//trb//7W1//+1tf//trb//rS0//axsP/wtK7/8LGr//izsP//trf//7W2//+1
|
||||||
|
tf//tbX//7W1/5xvb+EUEA+wUTs5rmxLS8EIBgaeAAAAQwAAAAcAAAAAAAAAAAAAAAAAAAAAl2NkBsCd
|
||||||
|
kNnPq5j/8a2n//+ztP//srL//7Ky//+ysv//srL//7Ky//esrPrGioqYxZGOTLePh2XBnZDDzqiY/96r
|
||||||
|
nv/4r6z//7Kz//+ysv//srL/9aqq+9mZmPTvqKf7/rCw/1U7O8sAAAB7AAAAFgAAAAAAAAAAAAAAAAAA
|
||||||
|
AACVX2EBoXNwRcGgkuvNqJX/8aql//+vr///rq7//66u//+urv/soaH3bUtLcwAAAA4AAAAAAAAAAAAA
|
||||||
|
AACsg3xYxKaW5M2mlP/uqaP//6+w//+urv//rq7//66v//+vr///rq7/x4iI7QAAAJkAAAApAAAABAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAEAAAAXbVFPXL+llO3PpZP/+aqo//+srP//rKz//qur/4teXrYAAAAcAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAC5lIs8xaaW6M2nlP/0qKX//6yt//+srP//rKz//6ys//+srP/6qan8Vzo6hAAA
|
||||||
|
ABYAAAABAAAAAAAAAAAAAAAATEE7GEExLYZJLzC0tI2D8+KonP/8p6X//6io//+oqP/Zj4/vAAAAXgAA
|
||||||
|
AAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhX9hx6qY/tWjlP/+p6f//6io//+oqP//qKj//6io/8mE
|
||||||
|
hMZAKiokAAAAAQAAAAAAAAAAAAAAAAAAAAC9oJCzz56P+P+np///pqb//6Wm//+lpf//paX//6Wl/5Nf
|
||||||
|
X9QAAAA9AAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZiYwK5k4rAyKqV/+uimv//pab//6Wl//+l
|
||||||
|
pf+haWnaBgQEWQAAABYAAAAIAAAAAAAAAAAAAAAAAAAAAMKikv/WopP//6Gh//+hof//oaH//6Gh//+h
|
||||||
|
of//oaH/TDExvwAAADUAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9xb1PLrpv/16CS//+h
|
||||||
|
ov//oaH//6Gh/2I9PdIAAACaAAAAbAAAAEUAAAAIAAAAAAAAAAAAAAAAwJ6P/9ihkv//np7//56e//+e
|
||||||
|
nv//np7//56e//+env9FKyu9AAAAOgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAondzHcOj
|
||||||
|
lerNpJH//Z2e//+env//np7/6ZCQ+KVmZuNoQEDNAAAAlwAAABgAAAAAAAAAAAAAAADEo5T10qKR//ud
|
||||||
|
mv//mpr//5qb//+bm///m5v//5ub/0YqKsEAAABSAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AACldnMQuJSJzM6plf/2mpf//5ub//+bm///m5v//5ub//+bm/8AAACnAAAAGAAAAAAAAAAAAAAAAL6Z
|
||||||
|
j1W+nY+qxZ6P3Najlf/om5P//ZiX//6YmP/+mJj/eEhI1AAAAHUAAAASAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAGsiICxz6uY//OXk///mJj//piY//6YmP/+mJj//piY/wAAAKMAAAAYAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAB2VlQuuJ2O6M2lkv/zlJH//JSU//qUlP+waGjoAAAAmwAAAC8AAAADAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAhVxbDLGOhMfPqZX/9pOS//uUlP/6lJT/+5SU//yTlP/7k5T/AAAAewAA
|
||||||
|
ABMAAAAAAAAAAAAAAAAAAAAAAAAADGFPSXu8loj26ZeQ//eRkP/3kZH/95GR/+qKivslFRW8AAAAawAA
|
||||||
|
ABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPb2keupyO6dSgkP/4kJD/95GR//iRkf/sj4393o2J7OWR
|
||||||
|
jNcAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAASUeHB0xZ2O9uuSjv/2jI3/9I6O//SOjv/0jo7/9I6O/6Nf
|
||||||
|
X+UAAACkAAAAUgAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAIRiX1vHrJj/4pSL//WNjv/0jo7/94uN/nFR
|
||||||
|
TNYdGxd7AAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAnmxsJ8OllfTRn47/74mJ//GKiv/wior/8IqK//CK
|
||||||
|
iv/wior/64eH/Wo9PdYAAACgAAAAVwAAABoAAAAHAAAAAQAAAAEAAAAXo4Z809Ghkf/tion/8YqK//CK
|
||||||
|
iv/wiYn/k1dW4wAAAKkAAABkAAAAFQAAAAAAAAAAAAAAAAAAAACXZGQCuJOJycqqlv/gi4b/7oWG/+2G
|
||||||
|
hv/uhYb/7YaG/+yGhv/shob/6YSE/nNCQtoAAACqAAAAeQAAAEMAAAAhAAAAJ4BoYazPopL/5oqG/+6G
|
||||||
|
hv/shob/7IaG/+yGhv/uhob/k1JT4gIBAaAAAAA4AAAABwAAAAAAAAAAAAAAAAAAAACidHJSyauZ/9CX
|
||||||
|
if/pgoL/54aF/92Siv/fioT/6oKD/+mDg//pg4P/6YOD/69iYutRLS3MCwYGrw4LCqR8YVnP0JGI/eWG
|
||||||
|
g//qgoP/6YOD/+mDg//pg4P/6YOD/+mDg//mgYH+YTY2uQAAAC4AAAAEAAAAAAAAAAAAAAAAAAAAAJlm
|
||||||
|
Zgi/m5CawqGOoMlzcFGycW9UwKaV986aiv/jf37/5X9//+V/f//lf3//5YCA/+N/f/7benr72nx7++SC
|
||||||
|
gf/mf3//5n5//+V/f//lf4D/5H9//+V9fv/mfn//5YB//9p6evpLKiqDAAAAEwAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9jYT6/o5P40pCF/+N5ev/he3v/4Xt7/+F7e//he3v/4Xt7/+F7
|
||||||
|
e//ie3v/4nt7/+F7e//he3v/4Xt7/+J5ev/ZjIb/0ZyN/9uEf//ienv/sGFhxAAAACUAAAACAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoH12lMunlf/WgXv/33Z3/954eP/eeHj/3nZ2/992
|
||||||
|
d//eeHj/3nh4/954eP/eeHj/3nd3/954eP/eeHj/4Hd3/65paPCUe3Dcv5yL5MmCeqmJSkokAAAAAgAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVpaA+6mYzQy6GO/9h1c//bc3T/2nR0/9p1
|
||||||
|
df/TjYP/04F6/9p0dP/adHT/2nR0/9p1df/YeHb/2nR0/9p0dP/adHT/vGJj8hMLDK0AAAA6AAAABwAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn25tCreQh5nLrZn/zI6B/9Vx
|
||||||
|
cP/Zb3D/t2Zm5sqtm/nIk4P/1nBw/9dwcf/Xbm//1oB8/8qgjv/ReXT/2G9w/9dxcf/YcXH/TyorrQAA
|
||||||
|
ADQAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmGRlAriS
|
||||||
|
in7GqJftx5SF9MNraMR7SUpOv6WW78mYh//Sb23/02xt/9Vra//AcnD4v6mX+smVhf/TbGz/021t/8lo
|
||||||
|
aO6FRUVlAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAMCckja+o5BAj1lTFAAAAAG/oZTqyZ+M/85sav/PZmb/0mZn/4VKSsWfgnmsy62a/8d+
|
||||||
|
dfC9XV6eoFJSNwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu4B8AbqXjaLFpJLnxYZ88cp+d+zJe3PUmFdVS2xL
|
||||||
|
TBXGrZw0pXBmFwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/gAf//gAA//wA
|
||||||
|
AH/8AAA/+AAAH/AAAB/gAAAH4AAAA8AAAAPAAAADwAOAAcAHwAHAB+ADwAfgA8AH8AHAB/ABwAfwAcAH
|
||||||
|
8AHwA/AB4APwA8AB8AfAAAADwAAAAeAAAAHgAAAD/gAAA/wAAAf8AAAf/AAAH/4AAD//gAB///AB/ygA
|
||||||
|
AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAA
|
||||||
|
AD0AAAAiAAAAdgAAAKwAAABuAAAAIgAAAD0AAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWJJ
|
||||||
|
SacAAACgoXl5ysyZmf+DYmLfAAAAmGRLS6MAAAChAAAAfwAAABUAAAAAAAAAAAAAAAAAAAABAAAAFseV
|
||||||
|
leTMmZn/dllZ3a+Dg/HMmZn/roOD8oJhYeHMmZn/uYuL9gAAAJEAAAAnAAAAFgAAAAEAAAABAAAAJQAA
|
||||||
|
AIa1iIjqzJmZ/8yZmf/MmZn/zJmZ/8yZmf/MmZn/zJmZ/66CgvMAAACwAAAAkgAAAIYAAAAniGZmGMmX
|
||||||
|
l/OyhYXuroOD8syZmf/MmZn/zJmZ/8OSksjMmZn/zJmZ/8yZmf/Ek5P5roKC88KSkvsTDg6pAAAARsyZ
|
||||||
|
mWDMmZn/zJmZ/8yZmf/MmZn/jWpqogAAABUAAAAAzJmZEMyZmYDMmZn/zJmZ/8yZmf/MmZn/dVhYqAAA
|
||||||
|
ACUAAAAQmXNzv8yZmf/MmZn/c1ZWxwAAACEAAAAAAAAAAAAAAAAAAAAAzJmZcMyZmf/MmZn/dllZ3AAA
|
||||||
|
AJoAAAB9w5KSt7SHh+vMmZn/wpKS+wAAAIwAAAASAAAAAAAAAAAAAAAAAAAAAAAAAADLmJjwzJmZ/66D
|
||||||
|
g/Kac3PoAAAArMyZmf/MmZn/zJmZ/6V8fO0AAACbAAAAIgAAAAAAAAAAAAAAAAAAAAAAAAABwZGRysyZ
|
||||||
|
mf/MmZn/zJmZ/wAAAGfMmZmAwZGRysyZmf/DkpL6AAAAsgAAAGAAAAAZAAAAAQAAAAAAAAADVD8/J8yZ
|
||||||
|
mf/MmZn/pXx87YlnZ78AAAAtgmJiGa+Dg7nMmZn/zJmZ/3ZYWN4AAACpAAAAZwAAACsAAAAcAAAAMZFt
|
||||||
|
bbTMmZn/zJmZ/45ra+QTDg6qAAAAT8qYmHHMmZn/zJmZ/8yZmf/MmZn/gWFh4hINDboAAACpJRwcsoZk
|
||||||
|
ZNrMmZn/zJmZ/8yZmf/MmZn/gGBgsgAAACXMmZkQzJmZz8OSkqbHlZXkzJmZ/8yZmf/MmZn/zJmZ/8yZ
|
||||||
|
mf/MmZn/zJmZ/7iKiveXcXHXxpSU1mBISCIAAAABAAAAAAAAAAAAAAABypeX4syZmf/MmZn/zJmZ/8yZ
|
||||||
|
mf/MmZn/zJmZ/8yZmf+8jY3yAAAAfAAAABkAAAABAAAAAAAAAAAAAAAAzJmZEMyZmc/MmZn/lnBwbcaU
|
||||||
|
lMXMmZn/rIGB44RjY5TMmZn/xZSU11ZAQCYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZMAAA
|
||||||
|
AATMmZmAzJmZ/7aJiX0AAAAKzJmZMAAAAAQAAAAAAAAAAAAAAAAAAAAA8AcAAOADAACAAAABAACCvgAA
|
||||||
|
mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,208 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>125, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAKNJREFUOE+VkwEO
|
||||||
|
wCAIA93PeZo/cyKiiMDYEmNC7FGpe4r9NaeeLjcAuFZXjxp+tVZs4jY6xFoIQCALwMR1QHYkVyTGXQNk
|
||||||
|
YQHQrhRJiAS00g/OwrET4OysHZDYWn1IGQet4EBCQOwAsyUIxWJcoYzYcHkzIMjOVQ1xw6MUGDJ2zjkz
|
||||||
|
A+t5Xg6sKMOXyFfyHKgru//IjHGnkBUycb2Dv8IF+BK+MTpb49UVguoAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAF5JREFUOE9jPHDg
|
||||||
|
wH8GSgDUAJAhJGOwXpgBDQ0QA0B8fBimBk6TYwDMtWS7ANm1ZHlhEBsAcxq+KAWpwekFmCQxNNZoJMYF
|
||||||
|
II14XYDL+bDENUgNIDdDwZMyoQyETx4A+Fj5YOUZcUAAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAADdJREFUKFNjYMAE
|
||||||
|
/7GIgYWQJXCxURTCFOE1ESSJoQAmiI9GcSayQqzuR3cLVithOvH6DpsisBgAoKoc5C8W7oEAAAAASUVO
|
||||||
|
RK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>
|
||||||
|
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
|
||||||
|
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
|
||||||
|
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
|
||||||
|
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
|
||||||
|
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
|
||||||
|
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
|
||||||
|
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
|
||||||
|
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
|
||||||
|
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
|
||||||
|
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
|
||||||
|
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
|
||||||
|
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
|
||||||
|
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
|
||||||
|
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
|
||||||
|
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
|
||||||
|
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
|
||||||
|
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
|
||||||
|
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
|
||||||
|
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w
|
||||||
|
BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAABCgAAAAEAAAAJAwAAAAHz/////P///wAK
|
||||||
|
CgoB8v////z///8ACQ8AAAABDwAAAAYAAABkAAAAZAAAAGQAAABkAAAACw==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="C1Daten.PropBag" xml:space="preserve">
|
||||||
|
<value><?xml version="1.0"?><Blob><Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"><Data>Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style5{}RecordSelector{AlignImage:Center;}Heading{Wrap:True;AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;}Style6{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Style8{}Footer{}Style13{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Style16{}Style1{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Style15{}Style10{AlignHorz:Near;}Style3{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="16" DefRecSelWidth="16" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>268</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><FilterWatermarkStyle parent="FilterWatermark" me="Style14" /><FooterStyle parent="Footer" me="Style3" /><GroupStyle parent="Group" me="Style12" /><HeadingStyle parent="Heading" me="Style2" /><HighLightRowStyle parent="HighlightRow" me="Style7" /><InactiveStyle parent="Inactive" me="Style4" /><OddRowStyle parent="OddRow" me="Style9" /><RecordSelectorStyle parent="RecordSelector" me="Style11" /><SelectedStyle parent="Selected" me="Style6" /><Style parent="Normal" me="Style1" /><ClientRect>0, 0, 554, 268</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="" me="Normal" /><Style parent="Normal" me="Heading" /><Style parent="Heading" me="Footer" /><Style parent="Heading" me="Caption" /><Style parent="Heading" me="Inactive" /><Style parent="Normal" me="Selected" /><Style parent="Normal" me="Editor" /><Style parent="Normal" me="HighlightRow" /><Style parent="Normal" me="EvenRow" /><Style parent="Normal" me="OddRow" /><Style parent="Heading" me="RecordSelector" /><Style parent="Normal" me="FilterBar" /><Style parent="FilterBar" me="FilterWatermark" /><Style parent="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 554, 268</ClientArea><PrintPageHeaderStyle parent="" me="Style15" /><PrintPageFooterStyle parent="" me="Style16" /></Blob></value>
|
||||||
|
</data>
|
||||||
|
<metadata name="ContextMenuStripAuswertung.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>228, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>430, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>566, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
|
||||||
|
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHd3d3d3d3d3d3d3d3d3d3AAAAAAAA
|
||||||
|
AAAAAAAAAAAABw///////////////////wcP//////////////////8HD/d3d3f/d3d3f/d3d3f/Bw//
|
||||||
|
/////////////////wcP93d3d/93d3d/93d3d/8HD///////////////////Bw/3d3d3/3d3d3/3d3d3
|
||||||
|
/wcP//////////////////8HD/d3d3f/d3d3f/d3d3f/Bw///////////////////wcP93d3d/93d3d/
|
||||||
|
93d3d/8HD///////////////////Bw/3d3d3/3d3d3/3d3d3/wcP//////////////////8HD/d3d3f/
|
||||||
|
d3d3f/d3d3f/Bw///////////////////wcP93d3d/93d3d/93d3d/8HD///////////////////Bw//
|
||||||
|
/////////////////wcAAAAAAAAAAAAAAAAAAAAHDMzMzMzMzMzMzMzMzMzMBwz/zMzM/8zMzM/8zMzP
|
||||||
|
/AcM/8zMzP/MzMzP/MzMz/wHDMzMzMzMzMzMzMzMzMzMBwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////4AAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
|
||||||
|
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAf///////////////w==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,261 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
<xsd:attribute ref="xml:space" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>17, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||||
|
<value>132, 17</value>
|
||||||
|
</metadata>
|
||||||
|
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||||
|
<data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZOBDoAgCET9dD7NPyNPgpAIzY21oTzPg1rL
|
||||||
|
F4/0aaQEJqJXAIo8Vu9dL9gDYiGRgG6VCwBJLDvgbxRVsodvBPiEASDXF3mIB3AbBzPjBLDeHBVIcRbj
|
||||||
|
KScKuMGQElArmKZNSNJ7VYC2Ib48EIjE0gX1QPerLigkATytqxT4gQht3HsQx9H8+OpCeHL+R+FQnIPT
|
||||||
|
QiXaHPwtNMCu8ALckGXYKNsEDQAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnVertragsuebersicht.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAAB0AAAAWCAYAAAA8VJfMAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAE6SURBVEhLvVYBEoQgCPTp/dxLBN1FSq7prpkmM1hYQKiU
|
||||||
|
9arnFt6ByHYrjTEEK1xfOECOGsSVvmeFNmkNAEjV9EsTbh8Cp2Ub9UXQZMfzOGo5b/B4gN6xF8Ogi7hm
|
||||||
|
h4yh8WFMAQRIEY6+Nme7WiCnzBdSRnth6mNMwBoZMW63OmRA8BQocHKmADeDEFG+kKmuNUg9nz68Pn1b
|
||||||
|
phg2KxQDIYPAGgvqUU4JQIEppxBeH9pXcnrLFHL6uHqd4j6nb1bvNqdvVq/rKlSVP6teDK+rRjse9WfV
|
||||||
|
G3Wav1Yvdp9WrGFjsIOp+UmfU2zoPrTtfZtTniiJ3quN3Rp85EDYkfzgB5xd7+WJj2dvThZiOpy6kA2c
|
||||||
|
7g2fioUP+XSC2x0P/vltlXdNwwaL/5/JvNOgQDbJ9ZhK2UXkVFZX5D7llNs/ZB4AuwAAAABJRU5ErkJg
|
||||||
|
gg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnMonitoring.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIhSURBVDhPrZPfS1NxGMb9p7rQG7upqC686CovEwwMsbbB
|
||||||
|
FpSGRQ4SNSq0dJqaziw1M/sBauamm26KSq5iaXM/NX80XClr+55P552wTpeBB87NgefzPO/7vKeg4Cie
|
||||||
|
3lEfPa/meDIyS/dLL13DHjpfTNMx6KZ9wIXj+Qda+yd59HSCh33jtDjHyPuKWEOhNEVGKdJZxUFG8Sut
|
||||||
|
SB0okvsauz81tvY0NpIa8R8akR2NY6fLDiHiLOK6jgVs97xU1XuovOOl/LaX0uoZSqxuTl1xUXzJReFF
|
||||||
|
NycsfkJbBoDEFmdLo4eFb+ANwmQA3ixpDM4pelyK1vEsd19nqBv6zXFblNVNA0Bmltimhhlmv6LHhNgu
|
||||||
|
hLb5R2zXxaa2JEWWCMGEASALk5kFMPUJ3urOQz5Fr1vRJs6jGW49O8D6eI+K+9sUmiN8jvN3B7JtWZgA
|
||||||
|
3i1rrOvOq5vwJQErUVhaB//q4WgX6mM5QED/nl+iVCXbFsCwX+GcVjgmsjSOpLnZv4+tM0VVyw7lDXFK
|
||||||
|
a9coNIX5GDYApGepSgB9ulicxcHoPLUCY4tw7mogB1jWU+UTyJFIz5YmD+3vs9gHUtQ4U5gdSSoebOdi
|
||||||
|
i7OIz16ep8gcZjFkAMiFyZFcb/ZR4whyo/s7Vscmlc0blDUlOG+PU1Ib4+S1KMV6hWeqY7m68wnkPI0X
|
||||||
|
JkciPUtVsm0ZR2aW2OIs4vk1A0CuUWj/+x7FP3g0jD+qHVIhqzbEYgAAAABJRU5ErkJggg==
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="TSBtnApplikationen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAADAAAAAwCAYAAABXAvmHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAABH+SURBVGhD7VkHVFRn075goS1F2AXpZVkQEBakLyxLL0qv
|
||||||
|
IigqsCD2FtCoJNhrULGQRDGiCCrdgiBgCaiggiCI3aixxBpLjHX+dy6usiDGfPn+cv7z3XPm6H3v3cPz
|
||||||
|
zPvMvDNzKeo/13888H/DA1ruWzR1vLdba3vmBmo4pMVp8mYlajjMTNaymzZWw0oYoGE10lGV42HAMhUM
|
||||||
|
1DEfNkDd2l/W2lrYj6LSJQkDif8VFro+OXq63rlTbCIKa61ji8ArZS8IFxyBMd8egpFzayB6djXEpdeC
|
||||||
|
S2IZOIwuAQu/vPvarqtrtRzS57E4Xpaahr5ahoa+CqamEf3fE/mf4YHAzcLyc1wSymiAG3a3Qcmhq5B/
|
||||||
|
4BL8tOc8bCxsh++2t8DCTachfWMjzFrXANNWHYOkRUcgcNoBcI4vBY7Hpoeajunr1Tiu9uoGnjoqxoHy
|
||||||
|
1tbWZEco0Y7grvx7d0ZXkKNkGbbrO/u4YphNQNU2/gpHTt+i/z1w7AaUHbkGO6suExIXYMOuNliRewYy
|
||||||
|
vj8Fczc0wldrjsPkFXWQvOgojCakI1KrwDayEAy8NzxSt5mcMdBAYGNobqfF5XKVvLws5AgZWV1BnDSF
|
||||||
|
uxMR0ecfS03Xa5ulR1zO668J8KNNt+HkuXvQdP4+nCbW0PYb/EzWqhtu0iQKKi/D5tIOWJt/FhbnNHXu
|
||||||
|
QhbuQj2MX1wDkzMKIHluHoxN2waRk3JgSuIKiA/3Oz0hxGp9SuCQSaERwUL5wBVjFT3neihyffTkBgeo
|
||||||
|
KZK4oSxi5aiPcfPlctP12joatz2bSKPh7G/QcukBdFx7DJdu/A4Xrj+G9iuP4HTHfahrvgOVx29Ace1V
|
||||||
|
2LbvImTn10P2moWwccUM2L7YH3bNt4GihdZitjrdH/ynLQLTxGwwjt8OspFlIBNRBtLhpdA3qhwkQwqf
|
||||||
|
SUYU1PUJzF4oNyTcXMZquAZFEgBF4a58wYXg+UTrqO/6M3eg5eIDuHj9d7h59xncffAH3L7/HK7degrt
|
||||||
|
Vx/ByfZ7UFN3Foq3rYJdS717gEXwORkCGJ2aCkbj8qBvdCVQnjuBcvoJKN4WcAkvBpOAXaBvndCmZeq/
|
||||||
|
R8WAv0rVPHq5rCAjv09U4QPJyLwOGSdhaH/LUI4KL1C+U1qfuXR9cl0xe1y79QSOt9ylpXKOAL1+5xk8
|
||||||
|
+P1PeP7iNTx59gruECKtZ07CnnVRvYIOmL4EFMZUABVeBZRPEQG+izZJr12gF14E7uP2gt/EfcAbUwKa
|
||||||
|
VvOeMA2cS5mGbnNVjNxjlUx9YxS4ARMkg3JOSUQV3pS2HxPLsA4dRAlSGL3Cx4C1H7XqHQLG6+3bd9B6
|
||||||
|
6SGc/+Ux/HrvOTx5/ope++1GG1R+H90rcN7kjUDFHAYqaB9QgXs/WL/gvWAeV06A7wHPFHEbFFAA6nZp
|
||||||
|
l1TZrtOZHB++qrmf+QCrYEeGZWCERFj+JYnAdZUyVqEB0tYROr0S0PHMLUbNd73evnsHl2/+Tu/AnTt3
|
||||||
|
4OAPIz4JvGCBPfCmEOCj64GKrhUzZmw1OMTvBYGwrHcj5wbbLw9Yg0fkMTluQ9VN/XUYluEsxuDQQX1d
|
||||||
|
Z02XCN39UMYiMFnWPGTIJwmgdDyJZz51IYmGynVQvNihB3gEHjUzHfoKjwEVf0LMFBKOgWPCfloiX2IO
|
||||||
|
o4tB1WXVQ6a+yzQWx407wNpTUZEbpCTLDbKkYvaBnKnvRIaRp/MnCWh7/VRbdfxmD/xv37yAa4fjoT5L
|
||||||
|
AkoXmX0gIAIulXSMgG8UM6mkBrBNqga7UcVgO7KoV8PnNuQ5nuhdTW1wXIWqgUuItrEnnX1kzH21kADD
|
||||||
|
wCmJoc/j9yCA3vcg3kd9d71ePb0IF3ayoCWHgpPZFNSt7SSxYl4wyCfXASu5HtTGiRsnsYYGYzmisIdZ
|
||||||
|
kTWBsBxwp92SysGRJIvu4PFe03nxfZKN0rD0wF3oz5tpTBPQ4SUytO16EtDxzs3ZRA6hP1+9gXdELni9
|
||||||
|
fnYRfimRgksFFLRvpaB5EwWNGyhI+yYYTKYcB7Pxh8TMRHgQrGOKwSxyVw/DUzxwagUMn3UQgqcfAJ8J
|
||||||
|
JB6I5nH9UwRwTcU4aCeT4zpMmXhfMvjHZInwna0MQ9cUBofv0nMHvHKeXrn5BJ6SLPPy1Vt48/wi3KuU
|
||||||
|
glvlFFwrpODCDgqatvQDt9SVEJTRBMIlTeCfegRcJlWB0/hKsCDAjUMLxMwkrAB8J+yDxAWHIWH+YYid
|
||||||
|
U0OXEgGECGYgPjkkUV69EWCZj2tT0XdJYVr4WklE5u/pE5CVL2MeOFnaLMBJjACWC8Mm74c79/+g8/yz
|
||||||
|
Rx3w/KgUPK6m4O4+Cm6WUnBoqxaYziiBEctaYfSyFkhY2kyTcEvaBwaBO8TMMDifFG8VdAkxcVkdCBce
|
||||||
|
oesgrFJDZ1TSeR/lg0HdG3haRk6LfmeyXZbJO00ci/KRck5ZJDMkfJzskEjxLISl8byNJ+k0eff+I3jT
|
||||||
|
bACvjlHw7DAFD6soyMr2A+O0Bhi+qh1iVpyFkctbIW5JM5FJIWgP2/7B9ALyIIgAx/pn5urOIm7c4qMw
|
||||||
|
lpTZIu+jjLzG7wWXhNLPygelpe224bWyPn+HZEjOcTRZbuDX0lahUVJDothiO6DttuaHldta6FLh/uko
|
||||||
|
eNtA0fZnHUW8PResM85C2OoOiPyuHaJXtYFPah1o+m0DdZ/cD2YdWwhz1jfQ1eqMzGOd4JccpaUzcl4N
|
||||||
|
RBHth8w48MH7TmNLPpl9uu4IcSwwLKJOovel7eLXyVkETZe2DBYwrKOZYgR03NYf3V93HS40roH7Byh4
|
||||||
|
foSCF8f7gfnsUnBbeR4C11yA4NXnIZQQGBK/H7SHEq+/N5RPTtl5ePTkJSzZ0gTTvzsGk5Z/BI99w/DZ
|
||||||
|
ByFsZiWgTEXax/T5OfngMyTQJ2jLiz7eC9tlzYaulOMGxPY3DzemHMJlxAl4bDxTvq+cDtQbJRTcrugH
|
||||||
|
g2eVgt+ai+CfdQn8114E36WtYBpdBIbBOz4YAsLK9MHjP+G3hy/g19+e0z0A1v7xGYdhFPE86h7BB0yp
|
||||||
|
AG8iHcw8vaXO7oRoAv6bXzE4bvsZpn5zGeZBfHnbkSqUQNBXjIB3VGZLeSYHzmymoG1HPzBN7QKeEHCd
|
||||||
|
cwIGR+0WS40/lnTAbVIb3SKgETjGDxZ/WDNhF4atpcjzCB7TJgbul0hHRAQJKHIibzPYgm0Kg3yiyYms
|
||||||
|
RxlOlOrRsWVNcbxSs5yCijUDQHtm40fPE/D8KTVgQ7azq6Fkrvz6hLbLJPWK+gPsFdouP6QbHmwjQ0jG
|
||||||
|
EQdP0uao3tPmp3ZAXkdwRpHtnKHM8bLHA61HD50zmeu6dxELKhZSYDZ1+wfww4juBRM6+1iRuZJCDNtI
|
||||||
|
bGREhoDPkmoV+4Vm7NQ67kEjdmrNtyFmTjWdcfB36Pm/A14UA/JaNtUD9HiJONmg28zu17pEy9rt0yiI
|
||||||
|
miqkAxY1PyyzA7wmV9LHvcgwr1fU34BTpKVEkCLDe2xosGc43nqXbn6w9Tx06hbdLweRZh7z/d8Fzxtb
|
||||||
|
Ctqm6W8UtOzKFHUcI1i6goE9urENSVy9rCRLyBxHpJPWAt6ZF+iA9Z9ZDf5EtyJDEKWHrtH9L7aPCFJk
|
||||||
|
eI/rR053gq4hO1R14iYhex32/vwLFNVcJWOXPX+ZcbrLBwkocue/UNKx36mk7xTAUBdg6sTJxcdrrZA7
|
||||||
|
JVtIgV7SNrDIaAPnZecgbHYthH9VJWbYrGPPi8AOkga+uuHXD4b3uI7PEfS+n69D+dFf6HFLUc0V2El+
|
||||||
|
m7v3Argn/z0SGMAqg+PuKek5/qjMEXjq6gqUehBYEW95KkXoAkqTm8BwTivELKins0dXy8xrocGUHb4G
|
||||||
|
5Ud+gT0EHHpWZHiP6/hcBHr3wcv0hCKv4iINHoMeZ0auJAv9Ve7vmoEUdAUtKmyX+QONPW3IZA/bSPF5
|
||||||
|
0dwkPsgLq0B+UhNID05/40S2bRzJ4Ynk9ET79vuTNAhs7NGTu8jsZ3f1FSjsYniP6/gc38P3cTKBM6LN
|
||||||
|
BPgPxefoAVhWwVnA0x7PgS8hwXLMeEnkU8Fk8xMwgMkkD9PnxysrgWsZOn4eUMKTIBme81qB7XZLgZ/+
|
||||||
|
BxZeWIChbdjdToPYUn4ethJPoje377/Yw3Adn+N7+P6PJecgu6gd1hPgawnwzLxWWEmGXUu3NEPGD6cA
|
||||||
|
px2fI0Hnf3b4LZQPiy3wVTfyJ/rvNolYm8R19RROpQnImcdek9dzqmZyxxx0JBkDp2lY06DX1pNJG24/
|
||||||
|
Avq+6BwB19HDcB2f43v4Pv5u9Y5WesyIUzoEjuNGnNZ9k32S1EyNnyWhqbv0tYKOw1EVA5dUbCvVLLzk
|
||||||
|
esgHCagLd0LfoTlPlfQda+XYrssUjL2StASZ52NI3Y5/EP/4KrLt6ME1ZNqGhuC6m+gZvofv4++W/dRM
|
||||||
|
T+e6Ak8nFS+WGkggLesEfb503wkdj/R3A9geV5X0eJtU2K5BOoN81KnO2an4hQT6CutBxj2tQ5Hjkitv
|
||||||
|
4jNS2XSYHcssdCRLkPVyOikHFvx4GhZtboIlBAgCWkps+dYzNMCuhs/Q8D18H38n8jaC/gCcgP/6fcWa
|
||||||
|
tvYEzMw8LkYCpaNqmfyE5P39ymzBRLVBgsGf9D5SkYrPdUX5KPASDiuYei+TswhwV+YO01TmeJqoc+O/
|
||||||
|
sYkpJH/gGL3laBjQKIWV287QQBGkyBCsCDC+KwI9j8xGRR7vCjyVSPQr0i9g2T11ZT05pTt3Qtluzp9K
|
||||||
|
Oo7HmXrOi9XYHq7qRiT39zqFG7HHEgkweOP3Myz8ZslYhtgOsI5QxGHqQCMXW3W71AJs97A8RiAICr2M
|
||||||
|
2aWQ5HfMLnRQEvAfAZ+k30XQaKL1+SRwUU4or3U722A1kRquYdE3hRDADg11L69t36ysx1unaiQIVjf1
|
||||||
|
1HmfeXoftUtElzzo5/ZtlayF/wwZm0hbihCgSLpSM/BSVWO7u6lbTyjAEWMi+XiBukVQCHpzWQc9yC0l
|
||||||
|
uR9TKAY2Bm93w+DGzIRnQgl5H1MuZjbcOVHfYBpUACz7lJfy2g7NyrpO35PR4nCSeQzxS85ffvzo57d8
|
||||||
|
MRVU/KKfy5S1slYhvtI2Udo4ykbdaZh5a7OMPX3UzEZm892K3mIthFuP7SJ6FgMWU2d+5SW6XBARKiEl
|
||||||
|
B1oRAYxrCBrPBcxQCzefpltN9Hp8xiF6Cic3JPmZko5Do7Ke03qmgWA4U9/DqFP39Ceoz1847erju2oz
|
||||||
|
kpAI3Fjen5cY2N8i2EiWRL6MVaCGsmWgqaqJTxBz0LDlOLPEARROFTD4UtecoHcFvYkBjZkJR5IiQ6ms
|
||||||
|
yW+lAx9bzWlEithmjiXAjf3zQQsLNf2Am0pa9geZ+s7LWQZuoSy2t+EXg0dqcvbD1aStg537O01MlQzO
|
||||||
|
acTek0qofUnF1T2VGFXVLBG2datEeF6NJA5WowqfSg4vAwWSoTBb2EUV0dLCQEQ5ICk0vBetoacnr6in
|
||||||
|
G3unmFIauLZg/VuWeewDJW37hgG6DrlkbDJd1dDFa6DJUN0vko3YnvhOlJIdEqIuYx1uR4I4QsY8KKWf
|
||||||
|
IC2rr2fGFomgDVV9g9cflAjeUCPl/vV2acGMMnljz3wFfX6xkr57BctC2K7ulP4YyRgOzQPL8F20uY0u
|
||||||
|
A+fYUvr/qG98rqWb+Xqg7cxnyuxhV/GAUtTh7VDR539LRiaRLI7AEmOOFGvSXySbbqKSwCZBwSFcWcoq
|
||||||
|
wJBMfu1lLQJ85YaExMjYR4+T4cVOleaNnCntOGKGnG3EJAY3QKhg6BEzwMA5WkWXn6yix19Amo3NTE54
|
||||||
|
rbJxVJMKV3hF3WbS3YFW4+6omIRdVTINO6+gaX9EUdt273vQq9HjLH1+mBrH3U6D7a2tYsyTf9/j/ssf
|
||||||
|
9iToXEs+rNFTYLIj/W2jjGR5cZYyzrH2hICjDH+UnaxdLBfXpUlwq5CBK8vQjT3QyMOWpcf3ISSiVPSd
|
||||||
|
U4hHZ6uyBUtYBq6rVA1clzMNXeYxDVwmqejwYojO/Zkcd74a282MSWIMv07+uz+zEg+QyBek90UylBf5
|
||||||
|
sGYXo0Abb6w8fY/r+LGNTAUwR2OJq2XqrUwTMvU21OR4czVNvOzVzbycNAb5OGqY+FppGPsYKxsKtPBQ
|
||||||
|
GmDgqailRUYi9FThv/dD9/tvtUD+RaPr8O7fb9/fI+lOQhiExKsM/IhtTDyMGYXWtjjgf1kqf5VV/+nz
|
||||||
|
7kQ/Rfqf/o3/P7//LxxubHxPn2eoAAAAAElFTkSuQmCC
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>
|
||||||
|
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||||
|
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIKSURBVDhPfZPPa9NgGMcj1DGQirUXKcNSL6Ps4Kn7K6R/
|
||||||
|
QEH6D3jwNhXEoycZehByEaRdf6SdDudBZRVGO5A53bCHyLrFrFnSpl2yxtmsaZt8fRNobZvZwAdenvf7
|
||||||
|
fPK8bwhF/XvCfr9/ORQK0QOCwRAdCMzR3mvXaRK7PZJ1Lb2xWKzRVE4xoN5QwFUlbO2UkX5XQDweb06T
|
||||||
|
RHK5PH5VxSEcWR/wAso/D1H8+gNSvTlVspjLr0KQZBdHxzUi4VAV60Qu4f6du50FKlAm08yPnsMR2GO7
|
||||||
|
OQEv1LDPCdhJbGJrdgks9Rg3qKtrE4I8TtTWf9kobuPzi/f47nkE+kocs5TnyZiAIXfQ+n12IX/4DPjt
|
||||||
|
e2SKKt6+XMOzp89BmhfHBUweZ23dhX7MwNydgcldwuHmA1TIxSaSKbcgy+Sgn3fG6Eh50nwZ1j6FbmkB
|
||||||
|
7ZaAtn6OTJZxC+xixzCGdOurMPdmYLEU9NI8BG4PmqY5+xcK0hkG3V7PoacUnLGtMgWtdAvfvnxEpXKA
|
||||||
|
NjmivW9nXXeQSmfR7/cd2nyWCDxQijfxYT0JlmVhGN3hvp11CVZSGZimCVVRcLRbwKeVh3jDvIIoSU59
|
||||||
|
FDs7KYi8TiRhWRZUVSXjViDLMnmr4dQmsbNEEBn9jN5oNNoQaw0op9pUxJoMO0uavZO/ZNjn8y3PBYP0
|
||||||
|
NOwMaQwPmv8C+cFEz4u/XNMAAAAASUVORK5CYII=
|
||||||
|
</value>
|
||||||
|
</data>
|
||||||
|
</root>
|
||||||
@@ -0,0 +1,145 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Imports System.Data
|
||||||
|
Imports System.Data.SqlTypes
|
||||||
|
Imports System.Data.SqlClient
|
||||||
|
Public Class frmSysadminTableSelector
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
#Region " Vom Windows Form Designer generierter Code "
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New()
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
||||||
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
If disposing Then
|
||||||
|
If Not (components Is Nothing) Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
' Für Windows Form-Designer erforderlich
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
||||||
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
||||||
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
||||||
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||||
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||||
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||||
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||||
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||||
|
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSysadminTableSelector))
|
||||||
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
|
||||||
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
|
||||||
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
|
||||||
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
|
||||||
|
Me.DataSet1 = New System.Data.DataSet
|
||||||
|
Me.ListBox1 = New System.Windows.Forms.ListBox
|
||||||
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'SqlDataAdapter1
|
||||||
|
'
|
||||||
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
||||||
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
||||||
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "sysobjects", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("xtype", "xtype"), New System.Data.Common.DataColumnMapping("uid", "uid"), New System.Data.Common.DataColumnMapping("info", "info"), New System.Data.Common.DataColumnMapping("status", "status"), New System.Data.Common.DataColumnMapping("base_schema_ver", "base_schema_ver"), New System.Data.Common.DataColumnMapping("replinfo", "replinfo"), New System.Data.Common.DataColumnMapping("parent_obj", "parent_obj"), New System.Data.Common.DataColumnMapping("crdate", "crdate"), New System.Data.Common.DataColumnMapping("ftcatid", "ftcatid"), New System.Data.Common.DataColumnMapping("schema_ver", "schema_ver"), New System.Data.Common.DataColumnMapping("stats_schema_ver", "stats_schema_ver"), New System.Data.Common.DataColumnMapping("type", "type"), New System.Data.Common.DataColumnMapping("userstat", "userstat"), New System.Data.Common.DataColumnMapping("sysstat", "sysstat"), New System.Data.Common.DataColumnMapping("indexdel", "indexdel"), New System.Data.Common.DataColumnMapping("refdate", "refdate"), New System.Data.Common.DataColumnMapping("version", "version"), New System.Data.Common.DataColumnMapping("deltrig", "deltrig"), New System.Data.Common.DataColumnMapping("instrig", "instrig"), New System.Data.Common.DataColumnMapping("updtrig", "updtrig"), New System.Data.Common.DataColumnMapping("seltrig", "seltrig"), New System.Data.Common.DataColumnMapping("category", "category"), New System.Data.Common.DataColumnMapping("cache", "cache")})})
|
||||||
|
'
|
||||||
|
'SqlInsertCommand1
|
||||||
|
'
|
||||||
|
Me.SqlInsertCommand1.CommandText = "[pv_sysobjects_insert]"
|
||||||
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||||
|
Me.SqlInsertCommand1.Connection = Me.SqlConnection1
|
||||||
|
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.NVarChar, 128, "name"), New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"), New System.Data.SqlClient.SqlParameter("@xtype", System.Data.SqlDbType.VarChar, 2, "xtype"), New System.Data.SqlClient.SqlParameter("@uid", System.Data.SqlDbType.Int, 2, "uid"), New System.Data.SqlClient.SqlParameter("@info", System.Data.SqlDbType.Int, 2, "info"), New System.Data.SqlClient.SqlParameter("@status", System.Data.SqlDbType.Int, 4, "status"), New System.Data.SqlClient.SqlParameter("@base_schema_ver", System.Data.SqlDbType.Int, 4, "base_schema_ver"), New System.Data.SqlClient.SqlParameter("@replinfo", System.Data.SqlDbType.Int, 4, "replinfo"), New System.Data.SqlClient.SqlParameter("@parent_obj", System.Data.SqlDbType.Int, 4, "parent_obj"), New System.Data.SqlClient.SqlParameter("@crdate", System.Data.SqlDbType.DateTime, 8, "crdate"), New System.Data.SqlClient.SqlParameter("@ftcatid", System.Data.SqlDbType.Int, 2, "ftcatid")})
|
||||||
|
'
|
||||||
|
'SqlConnection1
|
||||||
|
'
|
||||||
|
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _
|
||||||
|
"station id=SHU;packet size=4096"
|
||||||
|
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
|
||||||
|
'
|
||||||
|
'SqlSelectCommand1
|
||||||
|
'
|
||||||
|
Me.SqlSelectCommand1.CommandText = "[pv_sysobjects_select]"
|
||||||
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||||
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
||||||
|
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
|
||||||
|
'
|
||||||
|
'DataSet1
|
||||||
|
'
|
||||||
|
Me.DataSet1.DataSetName = "NewDataSet"
|
||||||
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
||||||
|
'
|
||||||
|
'ListBox1
|
||||||
|
'
|
||||||
|
Me.ListBox1.Location = New System.Drawing.Point(8, 16)
|
||||||
|
Me.ListBox1.Name = "ListBox1"
|
||||||
|
Me.ListBox1.Size = New System.Drawing.Size(240, 316)
|
||||||
|
Me.ListBox1.TabIndex = 0
|
||||||
|
'
|
||||||
|
'frmSysadminTableSelector
|
||||||
|
'
|
||||||
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||||
|
Me.ClientSize = New System.Drawing.Size(256, 349)
|
||||||
|
Me.Controls.Add(Me.ListBox1)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmSysadminTableSelector"
|
||||||
|
Me.Text = "Tabelle auswählen"
|
||||||
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Private Sub frmSysadminTableSelector_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||||
|
Dim ds As New DataSet
|
||||||
|
Dim connection As New SqlConnection()
|
||||||
|
Dim da As New SqlDataAdapter("", connection)
|
||||||
|
Dim sqlcmd As New SqlCommand
|
||||||
|
|
||||||
|
sqlcmd.CommandText = "dbo.sp_sysobjects_select"
|
||||||
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
||||||
|
sqlcmd.Connection = connection
|
||||||
|
Try
|
||||||
|
connection.ConnectionString = Globals.sConnectionString
|
||||||
|
connection.Open()
|
||||||
|
da.SelectCommand = sqlcmd
|
||||||
|
da.Fill(ds, "Datatable1")
|
||||||
|
Catch ex As Exception
|
||||||
|
Finally
|
||||||
|
connection.Close()
|
||||||
|
da.Dispose()
|
||||||
|
sqlcmd.Dispose()
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
Dim i As Integer
|
||||||
|
For i = 0 To ds.Tables(0).Rows.Count - 1
|
||||||
|
Me.ListBox1.Items.Add(ds.Tables(0).Rows(i)(0))
|
||||||
|
Next
|
||||||
|
Me.SqlConnection1.Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub listbox1_dblclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
|
||||||
|
Close()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function get_tablename() As String
|
||||||
|
get_tablename = ""
|
||||||
|
Me.ShowDialog()
|
||||||
|
Return Me.ListBox1.SelectedItem
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user