Initial
This commit is contained in:
295
EDOKA/Systemadministration/Rel41/FrmDokMail.Designer.vb
generated
Normal file
295
EDOKA/Systemadministration/Rel41/FrmDokMail.Designer.vb
generated
Normal file
@@ -0,0 +1,295 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class FrmDokMail
|
||||
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(FrmDokMail))
|
||||
Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style9 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style10 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style11 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style12 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style13 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style14 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style15 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Dim Style16 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.DatenSichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar
|
||||
Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton
|
||||
Me.ToolBtnSave = New System.Windows.Forms.ToolBarButton
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.DomainList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
|
||||
Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
|
||||
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
|
||||
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
|
||||
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
|
||||
Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
|
||||
Me.DataSet1 = New System.Data.DataSet
|
||||
Me.drpDokumenttyp = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Me.DrpStatus = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
CType(Me.DomainList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.drpDokumenttyp, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DrpStatus, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
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(652, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem, Me.DatenSichernToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'SchliessenToolStripMenuItem
|
||||
'
|
||||
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
|
||||
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
|
||||
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
|
||||
'
|
||||
'DatenSichernToolStripMenuItem
|
||||
'
|
||||
Me.DatenSichernToolStripMenuItem.Name = "DatenSichernToolStripMenuItem"
|
||||
Me.DatenSichernToolStripMenuItem.Size = New System.Drawing.Size(146, 22)
|
||||
Me.DatenSichernToolStripMenuItem.Text = "&Daten sichern"
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnExit, Me.ToolBtnSave})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(652, 28)
|
||||
Me.ToolBar1.TabIndex = 3
|
||||
'
|
||||
'ToolBtnExit
|
||||
'
|
||||
Me.ToolBtnExit.ImageIndex = 0
|
||||
Me.ToolBtnExit.Name = "ToolBtnExit"
|
||||
'
|
||||
'ToolBtnSave
|
||||
'
|
||||
Me.ToolBtnSave.ImageIndex = 1
|
||||
Me.ToolBtnSave.Name = "ToolBtnSave"
|
||||
'
|
||||
'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, "")
|
||||
'
|
||||
'DomainList
|
||||
'
|
||||
Me.DomainList.AllowAddNew = True
|
||||
Me.DomainList.AlternatingRows = True
|
||||
Me.DomainList.BackColor = System.Drawing.Color.Gray
|
||||
Me.DomainList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.DomainList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DomainList.FilterBar = True
|
||||
Me.DomainList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DomainList.Images.Add(CType(resources.GetObject("DomainList.Images"), System.Drawing.Image))
|
||||
Me.DomainList.Location = New System.Drawing.Point(0, 52)
|
||||
Me.DomainList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.DomainList.Name = "DomainList"
|
||||
Me.DomainList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DomainList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DomainList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DomainList.PrintInfo.PageSettings = CType(resources.GetObject("DomainList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DomainList.Size = New System.Drawing.Size(652, 269)
|
||||
Me.DomainList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.DomainList.TabIndex = 8
|
||||
Me.DomainList.Text = "C1TrueDBGrid1"
|
||||
Me.DomainList.PropBag = resources.GetString("DomainList.PropBag")
|
||||
'
|
||||
'SqlDataAdapter1
|
||||
'
|
||||
Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
|
||||
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", "pv_DokEditMail_Select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("DokEditMailNr", "DokEditMailNr"), New System.Data.Common.DataColumnMapping("Dokumenttypnr", "Dokumenttypnr"), New System.Data.Common.DataColumnMapping("EMail", "EMail"), New System.Data.Common.DataColumnMapping("Status", "Status"), New System.Data.Common.DataColumnMapping("Erstellt_am", "Erstellt_am"), New System.Data.Common.DataColumnMapping("Mutiert_am", "Mutiert_am"), New System.Data.Common.DataColumnMapping("Mutierer", "Mutierer"), New System.Data.Common.DataColumnMapping("Aktiv", "Aktiv")})})
|
||||
Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
|
||||
'
|
||||
'SqlDeleteCommand1
|
||||
'
|
||||
Me.SqlDeleteCommand1.CommandText = "dbo.pv_DokEditMail_Delete"
|
||||
Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_DokEditMailNr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DokEditMailNr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Dokumenttypnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_EMail", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "EMail", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_EMail", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EMail", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Status", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Status", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Aktiv", System.Data.DataRowVersion.Original, Nothing)})
|
||||
'
|
||||
'SqlConnection1
|
||||
'
|
||||
Me.SqlConnection1.ConnectionString = "Data Source=SHU00;Initial Catalog=EDOKA;User ID=sa;Password=*shu29"
|
||||
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
|
||||
'
|
||||
'SqlInsertCommand1
|
||||
'
|
||||
Me.SqlInsertCommand1.CommandText = "dbo.pv_DokEditMail_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.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@DokEditMailNr", System.Data.SqlDbType.Int, 0, "DokEditMailNr"), New System.Data.SqlClient.SqlParameter("@Dokumenttypnr", System.Data.SqlDbType.Int, 0, "Dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@EMail", System.Data.SqlDbType.VarChar, 0, "EMail"), New System.Data.SqlClient.SqlParameter("@Status", System.Data.SqlDbType.Int, 0, "Status"), New System.Data.SqlClient.SqlParameter("@Erstellt_am", System.Data.SqlDbType.DateTime, 0, "Erstellt_am"), New System.Data.SqlClient.SqlParameter("@Mutiert_am", System.Data.SqlDbType.DateTime, 0, "Mutiert_am"), New System.Data.SqlClient.SqlParameter("@Mutierer", System.Data.SqlDbType.Int, 0, "Mutierer"), New System.Data.SqlClient.SqlParameter("@Aktiv", System.Data.SqlDbType.Bit, 0, "Aktiv")})
|
||||
'
|
||||
'SqlSelectCommand1
|
||||
'
|
||||
Me.SqlSelectCommand1.CommandText = "dbo.pv_DokEditMail_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.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)})
|
||||
'
|
||||
'SqlUpdateCommand1
|
||||
'
|
||||
Me.SqlUpdateCommand1.CommandText = "dbo.pv_DokEditMail_Update"
|
||||
Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
||||
Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
|
||||
Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.[Variant], 0, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@DokEditMailNr", System.Data.SqlDbType.Int, 0, "DokEditMailNr"), New System.Data.SqlClient.SqlParameter("@Dokumenttypnr", System.Data.SqlDbType.Int, 0, "Dokumenttypnr"), New System.Data.SqlClient.SqlParameter("@EMail", System.Data.SqlDbType.VarChar, 0, "EMail"), New System.Data.SqlClient.SqlParameter("@Status", System.Data.SqlDbType.Int, 0, "Status"), New System.Data.SqlClient.SqlParameter("@Erstellt_am", System.Data.SqlDbType.DateTime, 0, "Erstellt_am"), New System.Data.SqlClient.SqlParameter("@Mutiert_am", System.Data.SqlDbType.DateTime, 0, "Mutiert_am"), New System.Data.SqlClient.SqlParameter("@Mutierer", System.Data.SqlDbType.Int, 0, "Mutierer"), New System.Data.SqlClient.SqlParameter("@Aktiv", System.Data.SqlDbType.Bit, 0, "Aktiv"), New System.Data.SqlClient.SqlParameter("@Original_DokEditMailNr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DokEditMailNr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Dokumenttypnr", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Dokumenttypnr", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Dokumenttypnr", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_EMail", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "EMail", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_EMail", System.Data.SqlDbType.VarChar, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "EMail", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Status", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Status", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Status", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Erstellt_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Erstellt_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Erstellt_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Erstellt_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Mutiert_am", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Mutiert_am", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Mutiert_am", System.Data.SqlDbType.DateTime, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mutiert_am", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Mutierer", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Mutierer", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mutierer", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@IsNull_Aktiv", System.Data.SqlDbType.Int, 0, System.Data.ParameterDirection.Input, CType(0, Byte), CType(0, Byte), "Aktiv", System.Data.DataRowVersion.Original, True, Nothing, "", "", ""), New System.Data.SqlClient.SqlParameter("@Original_Aktiv", System.Data.SqlDbType.Bit, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Aktiv", System.Data.DataRowVersion.Original, Nothing)})
|
||||
'
|
||||
'DataSet1
|
||||
'
|
||||
Me.DataSet1.DataSetName = "NewDataSet"
|
||||
'
|
||||
'drpDokumenttyp
|
||||
'
|
||||
Me.drpDokumenttyp.AllowColMove = True
|
||||
Me.drpDokumenttyp.AllowColSelect = True
|
||||
Me.drpDokumenttyp.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.drpDokumenttyp.AlternatingRows = True
|
||||
Me.drpDokumenttyp.CaptionStyle = Style1
|
||||
Me.drpDokumenttyp.ColumnCaptionHeight = 17
|
||||
Me.drpDokumenttyp.ColumnFooterHeight = 17
|
||||
Me.drpDokumenttyp.EvenRowStyle = Style2
|
||||
Me.drpDokumenttyp.FetchRowStyles = False
|
||||
Me.drpDokumenttyp.FooterStyle = Style3
|
||||
Me.drpDokumenttyp.HeadingStyle = Style4
|
||||
Me.drpDokumenttyp.HighLightRowStyle = Style5
|
||||
Me.drpDokumenttyp.Images.Add(CType(resources.GetObject("drpDokumenttyp.Images"), System.Drawing.Image))
|
||||
Me.drpDokumenttyp.Location = New System.Drawing.Point(70, 67)
|
||||
Me.drpDokumenttyp.Name = "drpDokumenttyp"
|
||||
Me.drpDokumenttyp.OddRowStyle = Style6
|
||||
Me.drpDokumenttyp.RecordSelectorStyle = Style7
|
||||
Me.drpDokumenttyp.RowDivider.Color = System.Drawing.Color.DarkGray
|
||||
Me.drpDokumenttyp.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
|
||||
Me.drpDokumenttyp.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.drpDokumenttyp.ScrollTips = False
|
||||
Me.drpDokumenttyp.Size = New System.Drawing.Size(293, 228)
|
||||
Me.drpDokumenttyp.Style = Style8
|
||||
Me.drpDokumenttyp.TabIndex = 9
|
||||
Me.drpDokumenttyp.Text = "C1TrueDBDropdown1"
|
||||
Me.drpDokumenttyp.Visible = False
|
||||
Me.drpDokumenttyp.PropBag = resources.GetString("drpDokumenttyp.PropBag")
|
||||
'
|
||||
'DrpStatus
|
||||
'
|
||||
Me.DrpStatus.AllowColMove = True
|
||||
Me.DrpStatus.AllowColSelect = True
|
||||
Me.DrpStatus.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
||||
Me.DrpStatus.AlternatingRows = True
|
||||
Me.DrpStatus.CaptionStyle = Style9
|
||||
Me.DrpStatus.ColumnCaptionHeight = 17
|
||||
Me.DrpStatus.ColumnFooterHeight = 17
|
||||
Me.DrpStatus.EvenRowStyle = Style10
|
||||
Me.DrpStatus.FetchRowStyles = False
|
||||
Me.DrpStatus.FooterStyle = Style11
|
||||
Me.DrpStatus.HeadingStyle = Style12
|
||||
Me.DrpStatus.HighLightRowStyle = Style13
|
||||
Me.DrpStatus.Images.Add(CType(resources.GetObject("DrpStatus.Images"), System.Drawing.Image))
|
||||
Me.DrpStatus.Location = New System.Drawing.Point(406, 67)
|
||||
Me.DrpStatus.Name = "DrpStatus"
|
||||
Me.DrpStatus.OddRowStyle = Style14
|
||||
Me.DrpStatus.RecordSelectorStyle = Style15
|
||||
Me.DrpStatus.RowDivider.Color = System.Drawing.Color.DarkGray
|
||||
Me.DrpStatus.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single]
|
||||
Me.DrpStatus.RowSubDividerColor = System.Drawing.Color.DarkGray
|
||||
Me.DrpStatus.ScrollTips = False
|
||||
Me.DrpStatus.Size = New System.Drawing.Size(197, 228)
|
||||
Me.DrpStatus.Style = Style16
|
||||
Me.DrpStatus.TabIndex = 10
|
||||
Me.DrpStatus.Text = "C1TrueDBDropdown1"
|
||||
Me.DrpStatus.Visible = False
|
||||
Me.DrpStatus.PropBag = resources.GetString("DrpStatus.PropBag")
|
||||
'
|
||||
'FrmDokMail
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(652, 321)
|
||||
Me.Controls.Add(Me.DrpStatus)
|
||||
Me.Controls.Add(Me.drpDokumenttyp)
|
||||
Me.Controls.Add(Me.DomainList)
|
||||
Me.Controls.Add(Me.ToolBar1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "FrmDokMail"
|
||||
Me.Text = "FrmDokMail"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
CType(Me.DomainList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.drpDokumenttyp, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DrpStatus, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
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 SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents DatenSichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ToolBtnSave As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents DomainList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
||||
Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
||||
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
|
||||
Friend WithEvents DataSet1 As System.Data.DataSet
|
||||
Friend WithEvents drpDokumenttyp As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
Friend WithEvents DrpStatus As C1.Win.C1TrueDBGrid.C1TrueDBDropdown
|
||||
End Class
|
||||
284
EDOKA/Systemadministration/Rel41/FrmDokMail.resx
Normal file
284
EDOKA/Systemadministration/Rel41/FrmDokMail.resx
Normal file
@@ -0,0 +1,284 @@
|
||||
<?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="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>235, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAk
|
||||
CwAAAk1TRnQBSQFMAgEBBAEAAZwBAAGcAQABEAEAARABAAT/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//8A/wD/AP8AFQAQAgj/
|
||||
AQoQ/wHsAQAB7AT/BgABAwH/CAACAg0AAQIF/wEHARQB7AHzARIB8Qz/AewBAAL/AewE/wQAAewBAwHs
|
||||
Af8IAAECAQACAwYAAgcBAAEDAQABAgP/AQcBFAHsA/8B8wESAfEJ/wHsAQAE/wEAAewD/wIAAQMB7AED
|
||||
AewBAwH/CAABAgEAAgMGAAIHAQABAwEAAQIB/wEHARQB7Ab/AfMBEgHxBv8B7AEABf8B/AH/AewD/wEA
|
||||
AQMB7AEDAewBAwHsAf8BAAHsBgABAgEAAgMGAAIHAQABAwEAAQIBZwHsAv8CBwL/AgcB/wHzARIB8QT/
|
||||
AQAF/wH8Af8B/AH/AQAB7AL/AQAB7AEDAewBAwHsAQMB/wEAAewGAAECAQACAwkAAQMBAAECAWcBkgH/
|
||||
AQcC/wIHAfEBBwHxAQcB8wESAfED/wHsA/8B/AH/AfwC/wH8Af8B7AL/AQABAwHsAQMCAAHsAf8BAAHs
|
||||
BgABAgEADAMBAAECAf8BBwGSAf8CBwHxAQcB8QIHAvEB8wESAv8B7AEHAQAC/wH8Av8B/AH/AfwB/wEA
|
||||
AewB/wEAAewBAwHsAgcBAwH/AQAB7AEAAQYEAAECAQACAwgAAgMBAAECAv8BBwFtARABBwHxAgcB8QEH
|
||||
AfEB/wHzAW0BPgH/AwcD/wH8Af8B/AL/AfwB/wHsAf8BAAEDAewBAwHsAQMB7AH/AgABBgX+AQIBAAED
|
||||
AQAIBwEAAQMBAAECAv8BkgE3AW0B/wEHAfEBBwHxA/8CBwE+Af8BAAIHAQAC/wH8Av8B/AH/AfwB/wEA
|
||||
AewBAAHsAQMB7AEDAewBAwH/AQABbQb+AQIBAAEDAQAIBwEAAQMBAAECAv8BSgFYAewBkgLxAv8BmAP/
|
||||
ARUC/wIAAgcF/wH8Av8B/AH/AewBAAEDAewBAwHsAQMB7AH/AQAB7AFtAf4EbQECAQABAwEACAcBAAED
|
||||
AQABAgH/AZIBNwHsAf8BBwGSAf8BtgHPAZgB8QLsBf8BAAEHAQAB/wMHAf8B/AP/AgAB7AEDAewBAwHs
|
||||
AQMB/wEAAewBAAJtAwABAgEAAQMBAAgHAQABAwEAAQIB/wFKAVgBBwL/AQcBkgG9AfEC7AT/AQAD/wEA
|
||||
AQcB/wIHB/8BAAEDAewBAwHsAQcB/wHsAQAB7AIAAW0DAAECAQABAwEACAcDAAECAf8BHgHsBP8BBwFt
|
||||
AewI/wEAAv8CAAL/AQAB7AEHAv8BAAH/AQAB7AEDAQcB/wHsAQAD7AYAAQIBAAEDAQAIBwEAAQcBAAEC
|
||||
Av8BBxH/AQAB/wEAAf8BAAH/AQcDAAL/AQABBwH/AewBAAXsBgABAg4AAQIW/wEABP8BBwEAA/8QABAC
|
||||
IP8BQgFNAT4HAAE+AwABKAMAAUADAAEgAwABAQEAAQEGAAEBFgAD/4EAAfwBfwYAAfABfwYAAcABfwcA
|
||||
AR8HAAEfBwABFwcAAQcnAAEHBwABFwcAAR8HAAEfBwABHwYACw==
|
||||
</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="DomainList.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="DomainList.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="DomainList.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;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{Wrap:True;BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Style1{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Style15{}Style10{AlignHorz:Near;}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>267</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><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, 650, 267</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="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 650, 267</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="SqlDataAdapter1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>824, 18</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlDeleteCommand1.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>353, 18</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="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="SqlUpdateCommand1.DesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand1.CommandDesignTimeVisible" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</metadata>
|
||||
<metadata name="SqlUpdateCommand1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>574, 17</value>
|
||||
</metadata>
|
||||
<metadata name="DataSet1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>634, 18</value>
|
||||
</metadata>
|
||||
<data name="drpDokumenttyp.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="drpDokumenttyp.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{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>226</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><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, 291, 226</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></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="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 291, 226</ClientArea></Blob></value>
|
||||
</data>
|
||||
<data name="DrpStatus.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="DrpStatus.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{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{}EvenRow{BackColor:White;}Style11{}Style13{}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Normal{}Style7{}Heading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;}Style10{AlignHorz:Near;}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.DropdownView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>226</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><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, 195, 226</ClientRect><BorderSide>0</BorderSide></C1.Win.C1TrueDBGrid.DropdownView></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="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 195, 226</ClientArea></Blob></value>
|
||||
</data>
|
||||
</root>
|
||||
261
EDOKA/Systemadministration/Rel41/FrmDokMail.vb
Normal file
261
EDOKA/Systemadministration/Rel41/FrmDokMail.vb
Normal file
@@ -0,0 +1,261 @@
|
||||
Imports System.Data
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Public Class FrmDokMail
|
||||
|
||||
Dim Tablename As String = ""
|
||||
|
||||
Private Sub FrmDokMail_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
|
||||
Dim msg As MsgBoxResult
|
||||
If Me.DataSet1.HasChanges Then
|
||||
msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
|
||||
If msg = MsgBoxResult.No Then
|
||||
e.Cancel = False
|
||||
End If
|
||||
If msg = MsgBoxResult.Yes Then
|
||||
If Save_Data() Then e.Cancel = False Else e.Cancel = True
|
||||
End If
|
||||
If msg = MsgBoxResult.Cancel Then e.Cancel = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub cldDomainBerechtigung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.Tablename = "DokEditMail"
|
||||
Globals.MandantNr = 1
|
||||
Dim dbconn As New EDOKA.DB_Connection()
|
||||
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
||||
Me.SqlConnection1.Open()
|
||||
|
||||
Try
|
||||
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Me.DomainList.DataSource = Me.DataSet1
|
||||
Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName
|
||||
|
||||
SpaltenTitel_Aktualisieren(Me.DataSet1)
|
||||
|
||||
DropDown_Bindung()
|
||||
|
||||
End Sub
|
||||
Private Sub DropDown_Bindung()
|
||||
conn.OpenConnection()
|
||||
Dim t As New DataTable
|
||||
t = Generic_Select(1)
|
||||
|
||||
Me.drpDokumenttyp.DataSource = t
|
||||
Me.drpDokumenttyp.ListField = "Bezeichnung"
|
||||
Me.drpDokumenttyp.DataField = "Dokumenttypnr"
|
||||
Me.drpDokumenttyp.ValueTranslate = True
|
||||
Me.DomainList.Columns("DokumenttypNr").DropDown = Me.drpDokumenttyp
|
||||
|
||||
Dim T2 As New DataTable
|
||||
T2 = Generic_Select(2)
|
||||
Me.DrpStatus.DataSource = T2
|
||||
Me.DrpStatus.ListField = "Bezeichnung"
|
||||
Me.DrpStatus.DataField = "Status_Bezeichnungnr"
|
||||
Me.DrpStatus.ValueTranslate = True
|
||||
Me.DomainList.Columns("Status").DropDown = Me.DrpStatus
|
||||
conn.CloseConnection(True)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Speichern
|
||||
Save_Data()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function Save_Data() As Boolean
|
||||
Save_Data = True
|
||||
Try
|
||||
SqlDataAdapter1.Update(Me.DataSet1)
|
||||
Catch ex As Exception
|
||||
MsgBox(Globals.MyMsg.Get_Meldungstext(902))
|
||||
Save_Data = False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert
|
||||
Dim i As Integer
|
||||
'Defaulwerte erstellt_am, mutiert_am, mutierer und aktiv setzen
|
||||
Try
|
||||
For i = 0 To DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "Aktiv" Then
|
||||
Me.DomainList.Columns(i).Value = 1
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "Erstellt_am" Then
|
||||
Me.DomainList.Columns(i).Value = Now
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "Mutiert_am" Then
|
||||
Me.DomainList.Columns(i).Value = Now
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "Mutierer" Then
|
||||
Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "korrigiert_am" Then
|
||||
Me.DomainList.Columns(i).Value = DBNull.Value
|
||||
End If
|
||||
Next
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub domainlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate
|
||||
'Aktualisieren von Mutierer und Mutiert_am
|
||||
Dim i As Integer
|
||||
Try
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "Mutiert_am" Then Me.DomainList.Columns(i).Value = Now
|
||||
If Me.DomainList.Columns(i).DataField = "Mutierer" Then Me.DomainList.Columns(i).Value = Globals.MitarbeiterNr
|
||||
If Me.DomainList.Columns(i).DataField = "korrigiert_am" Then Me.DomainList.Columns(i).Value = DBNull.Value
|
||||
Next
|
||||
|
||||
'neuer DB-Key auslösen, sofern kein Key vorhanden ist
|
||||
If Me.DomainList.Columns(0).Value Is DBNull.Value Then
|
||||
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
||||
Dim key As Long
|
||||
dbkey.cpMainConnectionProvider = conn
|
||||
key = dbkey.get_dbkey(Tablename)
|
||||
Me.DomainList.Columns(0).Value = key
|
||||
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
If Me.DomainList.Columns(i).DataField = "mandantnr" Then
|
||||
Me.DomainList.Columns(i).Value = Globals.MandantNr
|
||||
End If
|
||||
Next
|
||||
dbkey.Dispose()
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DomainList_RowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles DomainList.RowColChange
|
||||
Exit Sub
|
||||
If Me.DomainList.Columns(1).Value Is DBNull.Value Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = True
|
||||
End If
|
||||
If Me.DomainList.Columns(2).Value Is DBNull.Value Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = True
|
||||
End If
|
||||
Try
|
||||
|
||||
Catch ex As Exception
|
||||
If Me.DomainList.Columns(1).Value = "" Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(1).Locked = True
|
||||
End If
|
||||
End Try
|
||||
Try
|
||||
If Me.DomainList.Columns(2).Value = "" Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(2).Locked = True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren(ByVal ds As DataSet)
|
||||
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim anzcols As Integer
|
||||
Dim cols(Me.DomainList.Splits(0).DisplayColumns.Count) As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
anzcols = Me.DomainList.Splits(0).DisplayColumns.Count
|
||||
t = ds.Tables(0)
|
||||
ts.Tabelle = Me.Tablename
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
s = Me.DomainList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.DomainList.Columns(i).Caption = ts.spaltenname
|
||||
|
||||
If ts.ColWith = 0 Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
|
||||
If ts.locked Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.DomainList.Columns(i).DataField = "aktiv" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.DomainList.Columns(i).DefaultValue = True
|
||||
Me.DomainList.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.DomainList.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub DatenSichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DatenSichernToolStripMenuItem.Click
|
||||
Save_Data()
|
||||
End Sub
|
||||
|
||||
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
Select Case typ
|
||||
Case 1 'benötigt
|
||||
scmCmdToExecute.CommandText = "SP_Get_Stammdaten"
|
||||
Case 2 'Benötigt
|
||||
scmCmdToExecute.CommandText = "SP_Get_Stammdaten"
|
||||
Case Else
|
||||
End Select
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
Try
|
||||
Select Case typ
|
||||
Case 1
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
||||
Case 2
|
||||
scmCmdToExecute.Parameters.Add(New SqlParameter("@Typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
|
||||
Case Else
|
||||
End Select
|
||||
If typ = 1 Then
|
||||
End If
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
' // some error occured. Bubble it to caller and encapsulate Exception object
|
||||
Throw New Exception("DokEditMail::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
161
EDOKA/Systemadministration/Rel41/frmUMVDokumente.Designer.vb
generated
Normal file
161
EDOKA/Systemadministration/Rel41/frmUMVDokumente.Designer.vb
generated
Normal file
@@ -0,0 +1,161 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmUMVDokumente
|
||||
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(frmUMVDokumente))
|
||||
Me.DomainList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.PartnerdossierAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.ToolBar1 = New System.Windows.Forms.ToolBar
|
||||
Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton
|
||||
Me.ToolBtnExport = New System.Windows.Forms.ToolBarButton
|
||||
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog
|
||||
CType(Me.DomainList, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'DomainList
|
||||
'
|
||||
Me.DomainList.AllowAddNew = True
|
||||
Me.DomainList.AlternatingRows = True
|
||||
Me.DomainList.BackColor = System.Drawing.Color.Gray
|
||||
Me.DomainList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
||||
Me.DomainList.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.DomainList.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DomainList.FilterBar = True
|
||||
Me.DomainList.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.DomainList.Images.Add(CType(resources.GetObject("DomainList.Images"), System.Drawing.Image))
|
||||
Me.DomainList.Location = New System.Drawing.Point(0, 52)
|
||||
Me.DomainList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
||||
Me.DomainList.Name = "DomainList"
|
||||
Me.DomainList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DomainList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.DomainList.PreviewInfo.ZoomFactor = 75
|
||||
Me.DomainList.PrintInfo.PageSettings = CType(resources.GetObject("DomainList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.DomainList.Size = New System.Drawing.Size(855, 427)
|
||||
Me.DomainList.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
||||
Me.DomainList.TabIndex = 11
|
||||
Me.DomainList.Text = "C1TrueDBGrid1"
|
||||
Me.DomainList.PropBag = resources.GetString("DomainList.PropBag")
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PartnerdossierAnzeigenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(200, 26)
|
||||
'
|
||||
'PartnerdossierAnzeigenToolStripMenuItem
|
||||
'
|
||||
Me.PartnerdossierAnzeigenToolStripMenuItem.Name = "PartnerdossierAnzeigenToolStripMenuItem"
|
||||
Me.PartnerdossierAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(199, 22)
|
||||
Me.PartnerdossierAnzeigenToolStripMenuItem.Text = "&Partnerdossier anzeigen"
|
||||
'
|
||||
'ToolBar1
|
||||
'
|
||||
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnExit, Me.ToolBtnExport})
|
||||
Me.ToolBar1.DropDownArrows = True
|
||||
Me.ToolBar1.ImageList = Me.ImageList1
|
||||
Me.ToolBar1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolBar1.Name = "ToolBar1"
|
||||
Me.ToolBar1.ShowToolTips = True
|
||||
Me.ToolBar1.Size = New System.Drawing.Size(855, 28)
|
||||
Me.ToolBar1.TabIndex = 10
|
||||
'
|
||||
'ToolBtnExit
|
||||
'
|
||||
Me.ToolBtnExit.ImageIndex = 0
|
||||
Me.ToolBtnExit.Name = "ToolBtnExit"
|
||||
'
|
||||
'ToolBtnExport
|
||||
'
|
||||
Me.ToolBtnExport.ImageIndex = 4
|
||||
Me.ToolBtnExport.Name = "ToolBtnExport"
|
||||
'
|
||||
'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, "ExcelNeu.png")
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
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(855, 24)
|
||||
Me.MenuStrip1.TabIndex = 9
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'SchliessenToolStripMenuItem
|
||||
'
|
||||
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
|
||||
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
|
||||
Me.SchliessenToolStripMenuItem.Text = "&Schliessen"
|
||||
'
|
||||
'frmUMVDokumente
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(855, 479)
|
||||
Me.Controls.Add(Me.DomainList)
|
||||
Me.Controls.Add(Me.ToolBar1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Name = "frmUMVDokumente"
|
||||
Me.Text = "Pendente Dokumente"
|
||||
CType(Me.DomainList, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents DomainList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
||||
Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SchliessenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
||||
Friend WithEvents ToolBtnExport As System.Windows.Forms.ToolBarButton
|
||||
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
|
||||
Friend WithEvents PartnerdossierAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
|
||||
End Class
|
||||
230
EDOKA/Systemadministration/Rel41/frmUMVDokumente.resx
Normal file
230
EDOKA/Systemadministration/Rel41/frmUMVDokumente.resx
Normal file
@@ -0,0 +1,230 @@
|
||||
<?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="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>455, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="DomainList.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="DomainList.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="DomainList.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{}Style1{}RecordSelector{AlignImage:Center;}Style6{}Style8{}Footer{}Style13{}Style3{}Style12{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Editor{}Style4{}FilterBar{Wrap:True;BackColor:255, 255, 192;}EvenRow{BackColor:White;}Style11{}Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}Caption{AlignHorz:Center;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style9{}Style2{}Style14{}Normal{}Style7{}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:Center;}Style10{AlignHorz:Near;}Style15{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="SolidCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"><Height>425</Height><CaptionStyle parent="Style2" me="Style10" /><EditorStyle parent="Editor" me="Style5" /><EvenRowStyle parent="EvenRow" me="Style8" /><FilterBarStyle parent="FilterBar" me="Style13" /><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, 853, 425</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="Caption" me="Group" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Modified</Layout><DefaultRecSelWidth>17</DefaultRecSelWidth><ClientArea>0, 0, 853, 425</ClientArea><PrintPageHeaderStyle parent="" me="Style14" /><PrintPageFooterStyle parent="" me="Style15" /></Blob></value>
|
||||
</data>
|
||||
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>345, 17</value>
|
||||
</metadata>
|
||||
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAu
|
||||
DAAAAk1TRnQBSQFMAgEBBQEAAbQBAAG0AQABEAEAARABAAT/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/wEAAVAPJzAAAVABJwwI
|
||||
AZgBJzAAAVABJwz/AQgBJzAAAVABJwf/AfYB/wL2Af8BCAEnMAABUAEnAf8B9AZJAycB/wEIAScwAAFQ
|
||||
AScC/wUnAU8CJwH0Af8BCAEnMAABUAEnAf8C9AMnAUkDJwGYAf8BCAEnMAABUAEnAv8B9gH/AScBSQIn
|
||||
AsIB9AH/AQgBJzAAAVABJwP/AXIBTwQnAfQC/wEIAScwAAFQAScC/wHqAU8FJwFJAv8BCAEnMAABUAEn
|
||||
Af8B8wFJAicB8wH0AycB7QH/AQgBJzAAAVABJwz/AQgBJzAAAVABJwL/AfYD/wH2Bf8BCAEnMAABUAEn
|
||||
AfYL/wEIAScwAAFQDycwAAF4D1BAABACCP8BChD/AewBAAHsBP8GAAEDAf8IAAICDQABAgX/AQcBFAHs
|
||||
AfMBEgHxDP8B7AEAAv8B7AT/BAAB7AEDAewB/wgAAQIBAAIDBgACBwEAAQMBAAECA/8BBwEUAewD/wHz
|
||||
ARIB8Qn/AewBAAT/AQAB7AP/AgABAwHsAQMB7AEDAf8IAAECAQACAwYAAgcBAAEDAQABAgH/AQcBFAHs
|
||||
Bv8B8wESAfEG/wHsAQAF/wH8Af8B7AP/AQABAwHsAQMB7AEDAewB/wEAAewGAAECAQACAwYAAgcBAAED
|
||||
AQABAgFnAewC/wIHAv8CBwH/AfMBEgHxBP8BAAX/AfwB/wH8Af8BAAHsAv8BAAHsAQMB7AEDAewBAwH/
|
||||
AQAB7AYAAQIBAAIDCQABAwEAAQIBZwGSAf8BBwL/AgcB8QEHAfEBBwHzARIB8QP/AewD/wH8Af8B/AL/
|
||||
AfwB/wHsAv8BAAEDAewBAwIAAewB/wEAAewGAAECAQAMAwEAAQIB/wEHAZIB/wIHAfEBBwHxAgcC8QHz
|
||||
ARIC/wHsAQcBAAL/AfwC/wH8Af8B/AH/AQAB7AH/AQAB7AEDAewCBwEDAf8BAAHsAQABBgQAAQIBAAID
|
||||
CAACAwEAAQIC/wEHAW0BEAEHAfECBwHxAQcB8QH/AfMBbQE+Af8DBwP/AfwB/wH8Av8B/AH/AewB/wEA
|
||||
AQMB7AEDAewBAwHsAf8CAAEGBf4BAgEAAQMBAAgHAQABAwEAAQIC/wGSATcBbQH/AQcB8QEHAfED/wIH
|
||||
AT4B/wEAAgcBAAL/AfwC/wH8Af8B/AH/AQAB7AEAAewBAwHsAQMB7AEDAf8BAAFtBv4BAgEAAQMBAAgH
|
||||
AQABAwEAAQIC/wFKAVgB7AGSAvEC/wGYA/8BFQL/AgACBwX/AfwC/wH8Af8B7AEAAQMB7AEDAewBAwHs
|
||||
Af8BAAHsAW0B/gRtAQIBAAEDAQAIBwEAAQMBAAECAf8BkgE3AewB/wEHAZIB/wG2Ac8BmAHxAuwF/wEA
|
||||
AQcBAAH/AwcB/wH8A/8CAAHsAQMB7AEDAewBAwH/AQAB7AEAAm0DAAECAQABAwEACAcBAAEDAQABAgH/
|
||||
AUoBWAEHAv8BBwGSAb0B8QLsBP8BAAP/AQABBwH/AgcH/wEAAQMB7AEDAewBBwH/AewBAAHsAgABbQMA
|
||||
AQIBAAEDAQAIBwMAAQIB/wEeAewE/wEHAW0B7Aj/AQAC/wIAAv8BAAHsAQcC/wEAAf8BAAHsAQMBBwH/
|
||||
AewBAAPsBgABAgEAAQMBAAgHAQABBwEAAQIC/wEHEf8BAAH/AQAB/wEAAf8BBwMAAv8BAAEHAf8B7AEA
|
||||
BewGAAECDgABAhb/AQAE/wEHAQAD/xAAEAIg/wFCAU0BPgcAAT4DAAEoAwABQAMAASADAAEBAQABAQYA
|
||||
AQEWAAP/gQAB/AF/BgAB8AF/BgABwAF/BwABHwcAAR8HAAEXBwABBycAAQcHAAEXBwABHwcAAR8HAAEf
|
||||
BgAL
|
||||
</value>
|
||||
</data>
|
||||
<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="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>612, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
192
EDOKA/Systemadministration/Rel41/frmUMVDokumente.vb
Normal file
192
EDOKA/Systemadministration/Rel41/frmUMVDokumente.vb
Normal file
@@ -0,0 +1,192 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
|
||||
Public Class frmUMVDokumente
|
||||
Dim dt As New DataTable
|
||||
|
||||
Private Sub SchliessenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SchliessenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
||||
Select Case ToolBar1.Buttons.IndexOf(e.Button)
|
||||
Case 0 'close button
|
||||
Me.Close()
|
||||
Case 1 'Excel-Export
|
||||
Me.SaveFileDialog1.AddExtension = True
|
||||
Me.SaveFileDialog1.DefaultExt.Insert(0, "*.xls")
|
||||
Me.SaveFileDialog1.Filter = "Excel-Dateien|*.xls"
|
||||
|
||||
Me.SaveFileDialog1.ShowDialog()
|
||||
If Me.SaveFileDialog1.FileName <> "" Then
|
||||
If Me.SaveFileDialog1.FileName.EndsWith("xls") Then
|
||||
Me.DatatableToExcel(Me.dt, Me.SaveFileDialog1.FileName)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Function Get_Data() As DataTable
|
||||
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
||||
scmCmdToExecute.CommandText = "dbo.SP_get_unvollst_uvmdokumente"
|
||||
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
||||
Dim dtToReturn As DataTable = New DataTable()
|
||||
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
||||
Try
|
||||
scmCmdToExecute.Connection = conn.scoDBConnection
|
||||
sdaAdapter.Fill(dtToReturn)
|
||||
Return dtToReturn
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
scmCmdToExecute.Dispose()
|
||||
sdaAdapter.Dispose()
|
||||
dtToReturn.Dispose()
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Sub frmUMVDokumente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Application.DoEvents()
|
||||
End Sub
|
||||
Public Sub Load_Data()
|
||||
Cursor = Cursors.WaitCursor
|
||||
dt = Get_Data()
|
||||
Me.DomainList.DataSource = dt
|
||||
Me.DomainList.DataMember = dt.TableName
|
||||
Me.DomainList.AllowUpdate = False
|
||||
Me.DomainList.AllowDelete = False
|
||||
Me.DomainList.AllowAddNew = False
|
||||
Dim ds As New DataSet
|
||||
ds.Tables.Add(dt)
|
||||
Me.SpaltenTitel_Aktualisieren(ds)
|
||||
Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub SpaltenTitel_Aktualisieren(ByVal ds As DataSet)
|
||||
|
||||
'Spaltentitel setzen
|
||||
Dim titel As New EDOKA.MySpaltenTitel()
|
||||
Dim anzcols As Integer
|
||||
Dim cols(Me.DomainList.Splits(0).DisplayColumns.Count) As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim ts As New EDOKA.Tabellenspalte()
|
||||
Dim i As Integer
|
||||
Dim t As New DataTable()
|
||||
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
||||
Dim s As String
|
||||
anzcols = Me.DomainList.Splits(0).DisplayColumns.Count
|
||||
t = ds.Tables(0)
|
||||
ts.Tabelle = "UeberfaelligeDokumente"
|
||||
For i = 0 To Me.DomainList.Columns.Count - 1
|
||||
s = Me.DomainList.Columns(i).DataField
|
||||
ts.Feld = s
|
||||
ts.getspalte()
|
||||
Me.DomainList.Columns(i).Caption = ts.spaltenname
|
||||
|
||||
If ts.ColWith = 0 Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = 0
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Visible = False
|
||||
Else
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
||||
End If
|
||||
|
||||
If ts.locked Then
|
||||
Me.DomainList.Splits(0).DisplayColumns(i).Locked = True
|
||||
End If
|
||||
|
||||
If ts.AlsHacken Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
End If
|
||||
|
||||
'Präsentation von aktiv
|
||||
If Me.DomainList.Columns(i).DataField = "aktiv" Then
|
||||
Me.DomainList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
|
||||
Me.DomainList.Columns(i).ValueItems.DefaultItem = True
|
||||
Me.DomainList.Columns(i).DefaultValue = True
|
||||
Me.DomainList.Columns(i).FilterText = True
|
||||
End If
|
||||
If Me.DomainList.Columns(i).DataField = "erstellt_am" Then
|
||||
Me.DomainList.Columns(i).DefaultValue = Now
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub PartnerdossierAnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PartnerdossierAnzeigenToolStripMenuItem.Click
|
||||
Dim f As New frmTrefferliste()
|
||||
f.MdiParent = Me.MdiParent
|
||||
f.Show()
|
||||
f.txtnrpar00.Text = Me.DomainList.Columns("partnernr").Value.ToString
|
||||
f.Partnernr = Me.DomainList.Columns("partnernr").Value.ToString
|
||||
f.Partner_Eingegeben = True
|
||||
f.refresh_list()
|
||||
f.Refresh_All(True)
|
||||
f.PosDok(Me.DomainList.Columns("Dokumentid").Value.ToString, Me.DomainList.Columns("Dokumentartnr").Value.ToString)
|
||||
Me.Cursor = System.Windows.Forms.Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub DomainList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown
|
||||
Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Public Shared Function DatatableToExcel(ByVal aDataTable As DataTable, ByVal aOutputFilename As String) As Boolean
|
||||
Application.DoEvents()
|
||||
Dim f As New FrmFortschritt
|
||||
Dim app As New Object
|
||||
Dim wb As New Object
|
||||
Dim ws As New Object
|
||||
Try
|
||||
f.Show()
|
||||
Application.DoEvents()
|
||||
f.ProgressBar1.Minimum = 0
|
||||
f.ProgressBar1.Maximum = aDataTable.Rows.Count
|
||||
app = CreateObject("Excel.application")
|
||||
'Dim wb As Object
|
||||
'Dim ws As Object
|
||||
' Dim app As New Excel.ApplicationClass
|
||||
' Dim wb As Excel.Workbook
|
||||
' Dim ws As Excel.Worksheet
|
||||
wb = app.Workbooks.add()
|
||||
'wb = app.Workbooks.Add()
|
||||
ws = wb.ActiveSheet()
|
||||
Dim dc As DataColumn
|
||||
Dim dr As DataRow
|
||||
Dim colIndex As Integer
|
||||
Dim rowIndex As Integer
|
||||
' Columns erstellen
|
||||
For Each dc In aDataTable.Columns
|
||||
colIndex += 1
|
||||
app.Cells(1, colIndex) = dc.ColumnName
|
||||
Next
|
||||
' Rows hinzufügen
|
||||
For Each dr In aDataTable.Rows
|
||||
f.ProgressBar1.Value = rowIndex
|
||||
rowIndex += 1
|
||||
colIndex = 0
|
||||
For Each dc In aDataTable.Columns
|
||||
colIndex += 1
|
||||
app.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
|
||||
Next
|
||||
Next
|
||||
ws.Columns.AutoFit()
|
||||
wb.SaveAs(aOutputFilename)
|
||||
app.Workbooks.Open(aOutputFilename)
|
||||
' Excel anzeigen wenn fertig exportiert
|
||||
app.Visible = True
|
||||
ws = Nothing
|
||||
wb = Nothing
|
||||
app = Nothing
|
||||
|
||||
f.Close()
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
f.Close()
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user