_ Partial Class frmStart Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ 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. _ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart)) Me.Button1 = New System.Windows.Forms.Button() Me.btnWorkUserRights = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.btnCheckRenewRecordRights = New System.Windows.Forms.Button() Me.btnCheckRenewUserRights = New System.Windows.Forms.Button() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.chkLogerrorsonly = New System.Windows.Forms.CheckBox() Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.btnrefreshJobs = New System.Windows.Forms.Button() Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.VWPMO_RIGHTS_2B_WORKEDBindingSource = New System.Windows.Forms.BindingSource() Me.MyDataset = New RecordOrganizer_RightManager.MyDataset() Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colDOC_ID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colRIGHT_MODIFY = New DevExpress.XtraGrid.Columns.GridColumn() Me.colFILE_RIGHT = New DevExpress.XtraGrid.Columns.GridColumn() Me.colWORKING = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label1 = New System.Windows.Forms.Label() Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter = New RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter() Me.TableAdapterManager = New RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl1.SuspendLayout() Me.XtraTabPage1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.XtraTabPage2.SuspendLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_RIGHTS_2B_WORKEDBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button1 ' Me.Button1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.Location = New System.Drawing.Point(3, 14) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(312, 45) Me.Button1.TabIndex = 0 Me.Button1.Text = "Check Rights for all documents " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "belonging to entity" Me.Button1.UseVisualStyleBackColor = True ' 'btnWorkUserRights ' Me.btnWorkUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWorkUserRights.ForeColor = System.Drawing.Color.DarkRed Me.btnWorkUserRights.Location = New System.Drawing.Point(-1, 158) Me.btnWorkUserRights.Name = "btnWorkUserRights" Me.btnWorkUserRights.Size = New System.Drawing.Size(312, 45) Me.btnWorkUserRights.TabIndex = 2 Me.btnWorkUserRights.Text = "Work User" Me.btnWorkUserRights.UseVisualStyleBackColor = True ' 'Button2 ' Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button2.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.folder_Closed_16xSM Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button2.Location = New System.Drawing.Point(707, 14) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(111, 23) Me.Button2.TabIndex = 1 Me.Button2.Text = "Open Log Path" Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = True ' 'XtraTabControl1 ' Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 Me.XtraTabControl1.Size = New System.Drawing.Size(827, 247) Me.XtraTabControl1.TabIndex = 4 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) ' 'XtraTabPage1 ' Me.XtraTabPage1.Controls.Add(Me.btnCheckRenewRecordRights) Me.XtraTabPage1.Controls.Add(Me.btnCheckRenewUserRights) Me.XtraTabPage1.Controls.Add(Me.GroupBox1) Me.XtraTabPage1.Controls.Add(Me.Button1) Me.XtraTabPage1.Controls.Add(Me.Button2) Me.XtraTabPage1.Controls.Add(Me.btnWorkUserRights) Me.XtraTabPage1.Name = "XtraTabPage1" Me.XtraTabPage1.Size = New System.Drawing.Size(825, 222) Me.XtraTabPage1.Text = "Jobs and Tools" ' 'btnCheckRenewRecordRights ' Me.btnCheckRenewRecordRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheckRenewRecordRights.Location = New System.Drawing.Point(3, 114) Me.btnCheckRenewRecordRights.Name = "btnCheckRenewRecordRights" Me.btnCheckRenewRecordRights.Size = New System.Drawing.Size(312, 45) Me.btnCheckRenewRecordRights.TabIndex = 8 Me.btnCheckRenewRecordRights.Text = "Check or Renew Rights for explicit records" Me.btnCheckRenewRecordRights.UseVisualStyleBackColor = True ' 'btnCheckRenewUserRights ' Me.btnCheckRenewUserRights.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnCheckRenewUserRights.Location = New System.Drawing.Point(3, 63) Me.btnCheckRenewUserRights.Name = "btnCheckRenewUserRights" Me.btnCheckRenewUserRights.Size = New System.Drawing.Size(312, 45) Me.btnCheckRenewUserRights.TabIndex = 7 Me.btnCheckRenewUserRights.Text = "Check or Renew Rights for Users" Me.btnCheckRenewUserRights.UseVisualStyleBackColor = True ' 'GroupBox1 ' Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox1.Controls.Add(Me.chkLogerrorsonly) Me.GroupBox1.Location = New System.Drawing.Point(618, 43) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(200, 67) Me.GroupBox1.TabIndex = 6 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Dienstkonfiguration:" ' 'chkLogerrorsonly ' Me.chkLogerrorsonly.AutoSize = True Me.chkLogerrorsonly.Location = New System.Drawing.Point(6, 20) Me.chkLogerrorsonly.Name = "chkLogerrorsonly" Me.chkLogerrorsonly.Size = New System.Drawing.Size(190, 17) Me.chkLogerrorsonly.TabIndex = 4 Me.chkLogerrorsonly.Text = "Service DDRights - Log errors only" Me.chkLogerrorsonly.UseVisualStyleBackColor = True ' 'XtraTabPage2 ' Me.XtraTabPage2.AutoScroll = True Me.XtraTabPage2.Controls.Add(Me.btnrefreshJobs) Me.XtraTabPage2.Controls.Add(Me.GridControl1) Me.XtraTabPage2.Controls.Add(Me.Label1) Me.XtraTabPage2.Name = "XtraTabPage2" Me.XtraTabPage2.Size = New System.Drawing.Size(825, 222) Me.XtraTabPage2.Text = "Rights 2b worked" ' 'btnrefreshJobs ' Me.btnrefreshJobs.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnrefreshJobs.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.refresh_16xMD Me.btnrefreshJobs.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnrefreshJobs.Location = New System.Drawing.Point(739, 5) Me.btnrefreshJobs.Name = "btnrefreshJobs" Me.btnrefreshJobs.Size = New System.Drawing.Size(75, 23) Me.btnrefreshJobs.TabIndex = 2 Me.btnrefreshJobs.Text = "Refresh" Me.btnrefreshJobs.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnrefreshJobs.UseVisualStyleBackColor = True ' 'GridControl1 ' Me.GridControl1.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.GridControl1.DataSource = Me.VWPMO_RIGHTS_2B_WORKEDBindingSource Me.GridControl1.Location = New System.Drawing.Point(11, 34) Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.Name = "GridControl1" Me.GridControl1.Size = New System.Drawing.Size(803, 263) Me.GridControl1.TabIndex = 1 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' 'VWPMO_RIGHTS_2B_WORKEDBindingSource ' Me.VWPMO_RIGHTS_2B_WORKEDBindingSource.DataMember = "VWPMO_RIGHTS_2B_WORKED" Me.VWPMO_RIGHTS_2B_WORKEDBindingSource.DataSource = Me.MyDataset ' 'MyDataset ' Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' 'GridView1 ' Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colDOC_ID, Me.colUSERNAME, Me.colRIGHT_MODIFY, Me.colFILE_RIGHT, Me.colWORKING, Me.colADDED_WHO, Me.colADDED_WHEN}) Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.Name = "GridView1" Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsBehavior.Editable = False Me.GridView1.OptionsBehavior.ReadOnly = True Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False Me.GridView1.OptionsView.ColumnAutoWidth = False Me.GridView1.OptionsView.EnableAppearanceEvenRow = True Me.GridView1.OptionsView.ShowAutoFilterRow = True ' 'colGUID ' Me.colGUID.Caption = "ID" Me.colGUID.FieldName = "GUID" Me.colGUID.Name = "colGUID" Me.colGUID.Visible = True Me.colGUID.VisibleIndex = 0 Me.colGUID.Width = 43 ' 'colDOC_ID ' Me.colDOC_ID.Caption = "DocID" Me.colDOC_ID.FieldName = "DOC_ID" Me.colDOC_ID.Name = "colDOC_ID" Me.colDOC_ID.Visible = True Me.colDOC_ID.VisibleIndex = 1 Me.colDOC_ID.Width = 56 ' 'colUSERNAME ' Me.colUSERNAME.Caption = "Username" Me.colUSERNAME.FieldName = "USERNAME" Me.colUSERNAME.Name = "colUSERNAME" Me.colUSERNAME.Visible = True Me.colUSERNAME.VisibleIndex = 2 Me.colUSERNAME.Width = 119 ' 'colRIGHT_MODIFY ' Me.colRIGHT_MODIFY.Caption = "Type" Me.colRIGHT_MODIFY.FieldName = "RIGHT_MODIFY" Me.colRIGHT_MODIFY.Name = "colRIGHT_MODIFY" Me.colRIGHT_MODIFY.Visible = True Me.colRIGHT_MODIFY.VisibleIndex = 3 Me.colRIGHT_MODIFY.Width = 120 ' 'colFILE_RIGHT ' Me.colFILE_RIGHT.Caption = "file right" Me.colFILE_RIGHT.FieldName = "FILE_RIGHT" Me.colFILE_RIGHT.Name = "colFILE_RIGHT" Me.colFILE_RIGHT.Visible = True Me.colFILE_RIGHT.VisibleIndex = 4 Me.colFILE_RIGHT.Width = 133 ' 'colWORKING ' Me.colWORKING.Caption = "working?" Me.colWORKING.FieldName = "WORKING" Me.colWORKING.Name = "colWORKING" Me.colWORKING.Visible = True Me.colWORKING.VisibleIndex = 5 Me.colWORKING.Width = 52 ' 'colADDED_WHO ' Me.colADDED_WHO.Caption = "Added who" Me.colADDED_WHO.FieldName = "ADDED_WHO" Me.colADDED_WHO.Name = "colADDED_WHO" Me.colADDED_WHO.Visible = True Me.colADDED_WHO.VisibleIndex = 6 Me.colADDED_WHO.Width = 139 ' 'colADDED_WHEN ' Me.colADDED_WHEN.Caption = "Added when" Me.colADDED_WHEN.FieldName = "ADDED_WHEN" Me.colADDED_WHEN.Name = "colADDED_WHEN" Me.colADDED_WHEN.Visible = True Me.colADDED_WHEN.VisibleIndex = 7 Me.colADDED_WHEN.Width = 134 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(11, 10) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(536, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Following rights will be set within the next minutes. If not check wether Servic" & _ "e DD Rights Manager is running." ' 'VWPMO_RIGHTS_2B_WORKEDTableAdapter ' Me.VWPMO_RIGHTS_2B_WORKEDTableAdapter.ClearBeforeFill = True ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.UpdateOrder = RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'frmStart ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(827, 247) Me.Controls.Add(Me.XtraTabControl1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmStart" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Rights Manager" CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl1.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.XtraTabPage2.ResumeLayout(False) Me.XtraTabPage2.PerformLayout() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_RIGHTS_2B_WORKEDBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents btnWorkUserRights As System.Windows.Forms.Button Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents MyDataset As RecordOrganizer_RightManager.MyDataset Friend WithEvents VWPMO_RIGHTS_2B_WORKEDBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWPMO_RIGHTS_2B_WORKEDTableAdapter As RecordOrganizer_RightManager.MyDatasetTableAdapters.VWPMO_RIGHTS_2B_WORKEDTableAdapter Friend WithEvents TableAdapterManager As RecordOrganizer_RightManager.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents btnrefreshJobs As System.Windows.Forms.Button Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colDOC_ID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colRIGHT_MODIFY As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colFILE_RIGHT As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colWORKING As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents chkLogerrorsonly As System.Windows.Forms.CheckBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents btnCheckRenewUserRights As System.Windows.Forms.Button Friend WithEvents btnCheckRenewRecordRights As System.Windows.Forms.Button End Class