MS1003

2017-03-10 11:52:55 +01:00
parent b623a129f5
commit 701f303176
15 changed files with 300 additions and 250 deletions
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb
@@ -22,6 +22,7 @@ Partial Class frmCheckRightsRecords
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCheckRightsRecords))
        Me.Label1 = New System.Windows.Forms.Label()
        Me.cmbentity = New System.Windows.Forms.ComboBox()
        Me.btnCheckRights = New System.Windows.Forms.Button()
@@ -33,6 +34,8 @@ Partial Class frmCheckRightsRecords
        Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
        Me.GridViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnSelectVisiblRows = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
        CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -40,7 +43,7 @@ Partial Class frmCheckRightsRecords
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(25, 9)
+        Me.Label1.Location = New System.Drawing.Point(5, 9)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(147, 16)
        Me.Label1.TabIndex = 0
@@ -49,7 +52,7 @@ Partial Class frmCheckRightsRecords
        'cmbentity
        '
        Me.cmbentity.FormattingEnabled = True
-        Me.cmbentity.Location = New System.Drawing.Point(28, 29)
+        Me.cmbentity.Location = New System.Drawing.Point(8, 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)
@@ -79,7 +82,7 @@ Partial Class frmCheckRightsRecords
        '
        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.Location = New System.Drawing.Point(876, 25)
        Me.btncancel.Name = "btncancel"
        Me.btncancel.Size = New System.Drawing.Size(75, 31)
        Me.btncancel.TabIndex = 4
@@ -93,7 +96,7 @@ Partial Class frmCheckRightsRecords
        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.Location = New System.Drawing.Point(359, 31)
        Me.chklogging.Name = "chklogging"
        Me.chklogging.Size = New System.Drawing.Size(113, 20)
        Me.chklogging.TabIndex = 5
@@ -113,10 +116,13 @@ Partial Class frmCheckRightsRecords
        'GridControlMain
        '
        Me.GridControlMain.AllowDrop = True
-        Me.GridControlMain.Location = New System.Drawing.Point(28, 105)
+        Me.GridControlMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.GridControlMain.Location = New System.Drawing.Point(8, 105)
        Me.GridControlMain.MainView = Me.GridViewMain
        Me.GridControlMain.Name = "GridControlMain"
-        Me.GridControlMain.Size = New System.Drawing.Size(928, 196)
+        Me.GridControlMain.Size = New System.Drawing.Size(1291, 488)
        Me.GridControlMain.TabIndex = 9
        Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewMain})
        '
@@ -139,17 +145,43 @@ Partial Class frmCheckRightsRecords
        'Label2
        '
        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(25, 86)
+        Me.Label2.Location = New System.Drawing.Point(5, 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:"
        '
+        'btnSelectVisiblRows
+        '
+        Me.btnSelectVisiblRows.Image = CType(resources.GetObject("btnSelectVisiblRows.Image"), System.Drawing.Image)
+        Me.btnSelectVisiblRows.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSelectVisiblRows.Location = New System.Drawing.Point(876, 59)
+        Me.btnSelectVisiblRows.Name = "btnSelectVisiblRows"
+        Me.btnSelectVisiblRows.Size = New System.Drawing.Size(178, 39)
+        Me.btnSelectVisiblRows.TabIndex = 11
+        Me.btnSelectVisiblRows.Text = "Select all visible Rows"
+        Me.btnSelectVisiblRows.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSelectVisiblRows.UseVisualStyleBackColor = True
+        '
+        'Button1
+        '
+        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(1060, 59)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(178, 39)
+        Me.Button1.TabIndex = 12
+        Me.Button1.Text = "Unselect all visible Rows"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.UseVisualStyleBackColor = True
+        '
        '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.ClientSize = New System.Drawing.Size(1304, 596)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnSelectVisiblRows)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.GridControlMain)
        Me.Controls.Add(Me.lblstate)
@@ -160,7 +192,6 @@ Partial Class frmCheckRightsRecords
        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
@@ -185,4 +216,6 @@ Partial Class frmCheckRightsRecords
    Friend WithEvents GridControlMain As DevExpress.XtraGrid.GridControl
    Friend WithEvents GridViewMain As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents btnSelectVisiblRows As System.Windows.Forms.Button
+    Friend WithEvents Button1 As System.Windows.Forms.Button
 End Class
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx
@@ -120,4 +120,21 @@
  <metadata name="BW_RightsEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="btnSelectVisiblRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAB0SURBVDhPpY27DYAwFAOZjalCHZYEhgCa1ByyhB5RvmC5
+        iJ7unCF05hbG5vwTjv0sVExFWJeNu/czbzEVAZQ7Gm8xJcHOUzElwc5TMbHg3MQDKJrPCg8XzWcFKpTY
+        eapjQtAnxM5THRNCrmJeQku+Ch0J4QLYS+ifBfoIBAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        xAAADsQBlSsOGwAAAHRJREFUOE+ljbsNgDAUA5mNqUIdlgSGAJrUHLKEHlG+YLmInu6cIXTmFsbm/BOO
+        /SxUTEVYl4279zNvMRUBlDsabzElwc5TMSXBzlMxseDcxAMoms8KDxfNZwUqlNh5qmNC0CfEzlMdE0Ku
+        Yl5CS74KHQnhAthL6J8F+ggEAAAAAElFTkSuQmCC
+</value>
+  </data>
 </root>
--- a/app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
+++ b/app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
@@ -204,4 +204,23 @@ Public Class frmCheckRightsRecords
    Private Sub frmCheckRightsRecords_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        _formloaded = True
    End Sub
+
+    Private Sub btnSelectVisiblRows_Click(sender As Object, e As EventArgs) Handles btnSelectVisiblRows.Click
+        Dim listRecords As New ArrayList
+        Dim collist As New ArrayList
+        For i = 0 To GridViewMain.RowCount
+            Dim recid = GridViewMain.GetRowCellValue(i, "Record-ID")
+            If Not IsNothing(recid) Then
+                listRecords.Add(recid)
+            End If
+        Next
+        For Each row As DataRow In DT_DATA.Rows
+            For Each Record As String In listRecords
+                If Record = row.Item("Record-ID") Then
+                    row.Item("Selection") = True
+                    Exit For
+                End If
+            Next
+        Next
+    End Sub
 End Class