MS2

2017-03-07 16:51:36 +01:00
parent d821a07c18
commit dd721411f8
13 changed files with 681 additions and 120 deletions
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb
@@ -0,0 +1,188 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmCheckRightsRecords
+    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.Label1 = New System.Windows.Forms.Label()
+        Me.cmbentity = New System.Windows.Forms.ComboBox()
+        Me.btnCheckRights = New System.Windows.Forms.Button()
+        Me.BW_RightsEntity = New System.ComponentModel.BackgroundWorker()
+        Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
+        Me.btncancel = New System.Windows.Forms.Button()
+        Me.chklogging = New System.Windows.Forms.CheckBox()
+        Me.lblstate = New System.Windows.Forms.Label()
+        Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.Label2 = New System.Windows.Forms.Label()
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(25, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(147, 16)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Please choose an entity:"
+        '
+        'cmbentity
+        '
+        Me.cmbentity.FormattingEnabled = True
+        Me.cmbentity.Location = New System.Drawing.Point(28, 29)
+        Me.cmbentity.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.cmbentity.Name = "cmbentity"
+        Me.cmbentity.Size = New System.Drawing.Size(335, 24)
+        Me.cmbentity.TabIndex = 1
+        '
+        'btnCheckRights
+        '
+        Me.btnCheckRights.Location = New System.Drawing.Point(520, 59)
+        Me.btnCheckRights.Name = "btnCheckRights"
+        Me.btnCheckRights.Size = New System.Drawing.Size(335, 39)
+        Me.btnCheckRights.TabIndex = 2
+        Me.btnCheckRights.Text = "Renew rights for all selected records"
+        Me.btnCheckRights.UseVisualStyleBackColor = True
+        '
+        'BW_RightsEntity
+        '
+        '
+        'ProgressBar1
+        '
+        Me.ProgressBar1.Location = New System.Drawing.Point(520, 31)
+        Me.ProgressBar1.Name = "ProgressBar1"
+        Me.ProgressBar1.Size = New System.Drawing.Size(335, 22)
+        Me.ProgressBar1.TabIndex = 3
+        Me.ProgressBar1.Visible = False
+        '
+        'btncancel
+        '
+        Me.btncancel.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.cancel1
+        Me.btncancel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btncancel.Location = New System.Drawing.Point(881, 25)
+        Me.btncancel.Name = "btncancel"
+        Me.btncancel.Size = New System.Drawing.Size(75, 31)
+        Me.btncancel.TabIndex = 4
+        Me.btncancel.Text = "Cancel"
+        Me.btncancel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btncancel.UseVisualStyleBackColor = True
+        Me.btncancel.Visible = False
+        '
+        'chklogging
+        '
+        Me.chklogging.AutoSize = True
+        Me.chklogging.Checked = True
+        Me.chklogging.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.chklogging.Location = New System.Drawing.Point(379, 31)
+        Me.chklogging.Name = "chklogging"
+        Me.chklogging.Size = New System.Drawing.Size(113, 20)
+        Me.chklogging.TabIndex = 5
+        Me.chklogging.Text = "Log errors only"
+        Me.chklogging.UseVisualStyleBackColor = True
+        '
+        'lblstate
+        '
+        Me.lblstate.AutoSize = True
+        Me.lblstate.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblstate.Location = New System.Drawing.Point(517, 12)
+        Me.lblstate.Name = "lblstate"
+        Me.lblstate.Size = New System.Drawing.Size(38, 13)
+        Me.lblstate.TabIndex = 6
+        Me.lblstate.Text = "Label2"
+        '
+        'GridControlMain
+        '
+        Me.GridControlMain.AllowDrop = True
+        Me.GridControlMain.Location = New System.Drawing.Point(28, 105)
+        Me.GridControlMain.MainView = Me.GridViewMain
+        Me.GridControlMain.Name = "GridControlMain"
+        Me.GridControlMain.Size = New System.Drawing.Size(928, 196)
+        Me.GridControlMain.TabIndex = 9
+        Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewMain})
+        '
+        'GridViewMain
+        '
+        Me.GridViewMain.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFullFocus
+        Me.GridViewMain.GridControl = Me.GridControlMain
+        Me.GridViewMain.Name = "GridViewMain"
+        Me.GridViewMain.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewMain.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridViewMain.OptionsSelection.EnableAppearanceFocusedRow = False
+        Me.GridViewMain.OptionsSelection.EnableAppearanceHideSelection = False
+        Me.GridViewMain.OptionsSelection.MultiSelect = True
+        Me.GridViewMain.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
+        Me.GridViewMain.OptionsView.ColumnAutoWidth = False
+        Me.GridViewMain.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridViewMain.OptionsView.ShowAutoFilterRow = True
+        Me.GridViewMain.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(25, 86)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(318, 16)
+        Me.Label2.TabIndex = 10
+        Me.Label2.Text = "Please select the records which files shall be checked:"
+        '
+        'frmCheckRightsRecords
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(970, 305)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.GridControlMain)
+        Me.Controls.Add(Me.lblstate)
+        Me.Controls.Add(Me.chklogging)
+        Me.Controls.Add(Me.btncancel)
+        Me.Controls.Add(Me.ProgressBar1)
+        Me.Controls.Add(Me.btnCheckRights)
+        Me.Controls.Add(Me.cmbentity)
+        Me.Controls.Add(Me.Label1)
+        Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmCheckRightsRecords"
+        Me.ShowInTaskbar = False
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Check Rights for Records"
+        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents cmbentity As System.Windows.Forms.ComboBox
+    Friend WithEvents btnCheckRights As System.Windows.Forms.Button
+    Friend WithEvents BW_RightsEntity As System.ComponentModel.BackgroundWorker
+    Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
+    Friend WithEvents btncancel As System.Windows.Forms.Button
+    Friend WithEvents chklogging As System.Windows.Forms.CheckBox
+    Friend WithEvents lblstate As System.Windows.Forms.Label
+    Friend WithEvents GridControlMain As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewMain As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+End Class