From a4414dd3ce858cc65001fc51a8c873aa51547970 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Fri, 24 Jul 2015 10:46:07 +0200 Subject: [PATCH] MS_24.07_2 --- Global_Indexer/ClassFilehandle.vb | 99 +++++++ Global_Indexer/Resources/cancel.png | Bin 0 -> 713 bytes Global_Indexer/frmHistory.Designer.vb | 298 ++++++++++++++++++++ Global_Indexer/frmHistory.vb | 10 + Global_Indexer/frmIndexFileList.Designer.vb | 178 ++++++++++++ Global_Indexer/frmIndexFileList.resx | 185 ++++++++++++ Global_Indexer/frmIndexFileList.vb | 41 +++ 7 files changed, 811 insertions(+) create mode 100644 Global_Indexer/ClassFilehandle.vb create mode 100644 Global_Indexer/Resources/cancel.png create mode 100644 Global_Indexer/frmHistory.Designer.vb create mode 100644 Global_Indexer/frmHistory.vb create mode 100644 Global_Indexer/frmIndexFileList.Designer.vb create mode 100644 Global_Indexer/frmIndexFileList.resx create mode 100644 Global_Indexer/frmIndexFileList.vb diff --git a/Global_Indexer/ClassFilehandle.vb b/Global_Indexer/ClassFilehandle.vb new file mode 100644 index 0000000..0248762 --- /dev/null +++ b/Global_Indexer/ClassFilehandle.vb @@ -0,0 +1,99 @@ +Imports System.IO +Imports Independentsoft + +Public Class ClassFilehandle + Public Shared Function Decide_FileHandle(filename As String, handletype As String) + Try + If filename.EndsWith(".msg") Then + CURRENT_MESSAGEID = "" + Dim _msg As New Msg.Message(filename) + If _msg.Attachments.Count > 0 Then + Dim result As MsgBoxResult + result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + If handletype.StartsWith("@FW") Then + Return Email_Decay(filename, True) + Else + Return Email_Decay(filename) + End If + End If + End If + End If + Return Insert_GI_File(filename, handletype) + Catch ex As Exception + MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False) + Try + Dim msgonly As String = "@MSGONLY@" + Dim ATT_EXTR As String = "@ATTMNTEXTRACTED@" + If FW = True Then + msgonly = "@FW_MSGONLY@" + ATT_EXTR = "@FW_ATTMNTEXTRACTED@" + End If + Dim erfolgreich As Boolean = False + Dim msg As New Msg.Message(msgname) + + If Not msg.InternetMessageId Is Nothing Then + CURRENT_MESSAGEID = msg.InternetMessageId + End If + + 'Nur die MSGDatei ablegen + Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg") + If File.Exists(tempfile) Then + File.Delete(tempfile) + End If + Dim _msgEXAtt As New Msg.Message(msgname) + _msgEXAtt.Attachments.Clear() + _msgEXAtt.Save(tempfile) + If Insert_GI_File(tempfile, msgonly) = True Then + erfolgreich = True + 'Hier nun die Anhänge herauslösen + Dim _msg As New Msg.Message(msgname) + Dim i1 As Integer = 1 + + If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False) + For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments + If erfolgreich = False Then + Exit For + End If + Dim attachment_name As String + If attachment.LongFileName Is Nothing Then + attachment_name = attachment.DisplayName + Else + attachment_name = attachment.LongFileName + End If + If Not attachment_name.Contains("inline") Then + tempfile = Path.Combine(Path.GetTempPath, attachment_name) + If File.Exists(tempfile) Then + File.Delete(tempfile) + End If + attachment.Save(tempfile) + If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) + 'nun der Insert des Anhanges + erfolgreich = Insert_GI_File(tempfile, ATT_EXTR) + i1 += 1 + End If + + Next + End If + Return erfolgreich + Catch ex As Exception + MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical) + End Try + End Function + + Private Shared Function Insert_GI_File(filename As String, handleType As String) + Try + Dim filename_only As String = Path.GetFileName(filename) + + Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')" + Return ClassDatabase.Execute_non_Query(ins, True) + + Catch ex As Exception + Return False + End Try + End Function +End Class diff --git a/Global_Indexer/Resources/cancel.png b/Global_Indexer/Resources/cancel.png new file mode 100644 index 0000000000000000000000000000000000000000..7640cd5f78e4ac283c79ac9be28640ea93efddf9 GIT binary patch literal 713 zcmV;)0yh1LP) zw53{*2K3q+MFegEzPgS^xjHiL2?sfp2G-`R3c1Wrou<4SI{Ztq$T&5$qz^PGBIISwVOxDW&y% zPA?E~TQ8a{Z4;e)ys&NRg{7|t9M3^oTtb%kfqxc$*7Y--r1dw~(Hm4ew7%qcmrvk9!@q3$ATj0v_KGYOn4fdh;U& zkM;lQQ_3S2ied2h05%`lO(p%Lrf~3Qew@GCVe8_}ZRh$Ac~P2vgts3|@WoS@nKwg~ zRR;RbVsmRydK1OQeLG>aw+C6Rs=?p2*Nf`hODI(t!w+NZqtwrSu`%dlN=-%O{R?z@ zcYxOND!2m{3m_MYL_k3*bf(!kEoc-|qdCfvi)C2tMv&UWyrRLwl`=$GVaUIJg2Yq+ z{~C?aT!V*P0;IN|c2Fy)(vYe03f?{a)FMD*dQL?YX$K$zSSaSJP%1LRQn~xDw)NxC zT!UB6Rfzz;(Gl)vB{W;p7k@o}l0h%h;AJI^ju4?Egp-LPYGsA}pwAO07@2zES%g6! zV?VK?;QNmv9U;s%G3>NY+HJ;Q?*;?@$ClG7gq(8OFJ#A>t9;FAziu~k{%)rMWc^pQ zI-$nJI)p+!91yajEyr}l>6kPbxS-3dp?w{&*7!S4b_cmKkSTGfDcYsef_Qe-Yor!( vIC_Zl6C5RI9K<5QZFv{}NyTe<)!33K*Df00000NkvXXu0mjfS&>A7 literal 0 HcmV?d00001 diff --git a/Global_Indexer/frmHistory.Designer.vb b/Global_Indexer/frmHistory.Designer.vb new file mode 100644 index 0000000..9942722 --- /dev/null +++ b/Global_Indexer/frmHistory.Designer.vb @@ -0,0 +1,298 @@ + _ +Partial Class frmHistory + 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() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHistory)) + Me.TBGI_HISTORYBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.TBGI_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New Global_Indexer.MyDataset() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.TBGI_HISTORYTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFILENAME_ORIGINAL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFILENAME_NEW = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBGI_HISTORYBindingNavigator.SuspendLayout() + CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'TBGI_HISTORYBindingNavigator + ' + Me.TBGI_HISTORYBindingNavigator.AddNewItem = Nothing + Me.TBGI_HISTORYBindingNavigator.BindingSource = Me.TBGI_HISTORYBindingSource + Me.TBGI_HISTORYBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBGI_HISTORYBindingNavigator.CountItemFormat = "von {0} heute indexierten Dateien" + Me.TBGI_HISTORYBindingNavigator.DeleteItem = Nothing + Me.TBGI_HISTORYBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.ToolStripButton2}) + Me.TBGI_HISTORYBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBGI_HISTORYBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBGI_HISTORYBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBGI_HISTORYBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBGI_HISTORYBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBGI_HISTORYBindingNavigator.Name = "TBGI_HISTORYBindingNavigator" + Me.TBGI_HISTORYBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBGI_HISTORYBindingNavigator.Size = New System.Drawing.Size(1089, 25) + Me.TBGI_HISTORYBindingNavigator.TabIndex = 0 + Me.TBGI_HISTORYBindingNavigator.Text = "BindingNavigator1" + ' + 'TBGI_HISTORYBindingSource + ' + Me.TBGI_HISTORYBindingSource.DataMember = "TBGI_HISTORY" + Me.TBGI_HISTORYBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(181, 22) + Me.BindingNavigatorCountItem.Text = "von {0} heute indexierten Dateien" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem + ' + Me.BindingNavigatorPositionItem.AccessibleName = "Position" + Me.BindingNavigatorPositionItem.AutoSize = False + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem.Text = "0" + Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'TBGI_HISTORYTableAdapter + ' + Me.TBGI_HISTORYTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBGI_HISTORYBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.GridControl1.Location = New System.Drawing.Point(0, 25) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(1089, 337) + Me.GridControl1.TabIndex = 1 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + '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.colFILENAME_ORIGINAL, Me.colFILENAME_NEW, 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.OptionsView.EnableAppearanceEvenRow = True + Me.GridView1.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways + ' + 'colGUID + ' + Me.colGUID.Caption = "ID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + Me.colGUID.Width = 65 + ' + 'colFILENAME_ORIGINAL + ' + Me.colFILENAME_ORIGINAL.Caption = "Original Filename" + Me.colFILENAME_ORIGINAL.FieldName = "FILENAME_ORIGINAL" + Me.colFILENAME_ORIGINAL.Name = "colFILENAME_ORIGINAL" + Me.colFILENAME_ORIGINAL.Visible = True + Me.colFILENAME_ORIGINAL.VisibleIndex = 1 + Me.colFILENAME_ORIGINAL.Width = 315 + ' + 'colFILENAME_NEW + ' + Me.colFILENAME_NEW.Caption = "Filename New" + Me.colFILENAME_NEW.FieldName = "FILENAME_NEW" + Me.colFILENAME_NEW.Name = "colFILENAME_NEW" + Me.colFILENAME_NEW.Visible = True + Me.colFILENAME_NEW.VisibleIndex = 2 + Me.colFILENAME_NEW.Width = 368 + ' + 'colADDED_WHEN + ' + Me.colADDED_WHEN.Caption = "Erstellt wann" + Me.colADDED_WHEN.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime + Me.colADDED_WHEN.FieldName = "ADDED_WHEN" + Me.colADDED_WHEN.Name = "colADDED_WHEN" + Me.colADDED_WHEN.Visible = True + Me.colADDED_WHEN.VisibleIndex = 3 + Me.colADDED_WHEN.Width = 140 + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(122, 22) + Me.ToolStripButton1.Text = "Alle Dateien laden" + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG + Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.Size = New System.Drawing.Size(117, 22) + Me.ToolStripButton2.Text = "ToolStripButton2" + ' + 'frmHistory + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1089, 362) + Me.Controls.Add(Me.GridControl1) + Me.Controls.Add(Me.TBGI_HISTORYBindingNavigator) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Name = "frmHistory" + Me.Text = "History - Dateien indexiert" + CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBGI_HISTORYBindingNavigator.ResumeLayout(False) + Me.TBGI_HISTORYBindingNavigator.PerformLayout() + CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBGI_HISTORYBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGI_HISTORYTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBGI_HISTORYBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFILENAME_ORIGINAL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFILENAME_NEW As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton +End Class diff --git a/Global_Indexer/frmHistory.vb b/Global_Indexer/frmHistory.vb new file mode 100644 index 0000000..a13f5fd --- /dev/null +++ b/Global_Indexer/frmHistory.vb @@ -0,0 +1,10 @@ +Public Class frmHistory + + Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen. + Dim user As String = Environment.UserDomainName & "\" & Environment.UserName + TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBGI_HISTORYTableAdapter.Fill(Me.MyDataset.TBGI_HISTORY, user) + + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmIndexFileList.Designer.vb b/Global_Indexer/frmIndexFileList.Designer.vb new file mode 100644 index 0000000..8779947 --- /dev/null +++ b/Global_Indexer/frmIndexFileList.Designer.vb @@ -0,0 +1,178 @@ + _ +Partial Class frmIndexFileList + 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() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndexFileList)) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnstartIndex = New System.Windows.Forms.Button() + Me.CheckedListBoxControl1 = New DevExpress.XtraEditors.CheckedListBoxControl() + Me.Button1 = New System.Windows.Forms.Button() + Me.TBGI_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset1 = New Global_Indexer.MyDataset() + Me.TBGI_FILES_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.Button2 = New System.Windows.Forms.Button() + Me.Panel1.SuspendLayout() + CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(648, 44) + Me.Panel1.TabIndex = 0 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(3, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(440, 30) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Folgende Dateien werden zur Indexierung angeboten! " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben nun Möglichkeit di" & _ + "e Indexierung für ausgewählte Dateien zu verhindern." + ' + 'btnstartIndex + ' + Me.btnstartIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnstartIndex.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnstartIndex.Image = Global.Global_Indexer.My.Resources.Resources.Go + Me.btnstartIndex.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnstartIndex.Location = New System.Drawing.Point(491, 232) + Me.btnstartIndex.Name = "btnstartIndex" + Me.btnstartIndex.Size = New System.Drawing.Size(145, 36) + Me.btnstartIndex.TabIndex = 3 + Me.btnstartIndex.Text = "Starte Indexierung" + Me.btnstartIndex.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnstartIndex.UseVisualStyleBackColor = True + ' + 'CheckedListBoxControl1 + ' + Me.CheckedListBoxControl1.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.CheckedListBoxControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckedListBoxControl1.Appearance.Options.UseFont = True + Me.CheckedListBoxControl1.Location = New System.Drawing.Point(6, 50) + Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1" + Me.CheckedListBoxControl1.Size = New System.Drawing.Size(630, 176) + Me.CheckedListBoxControl1.TabIndex = 4 + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(6, 232) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(115, 23) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "Alle auswählen" + Me.Button1.UseVisualStyleBackColor = True + ' + 'TBGI_FILES_USERBindingSource + ' + Me.TBGI_FILES_USERBindingSource.DataMember = "TBGI_FILES_USER" + Me.TBGI_FILES_USERBindingSource.DataSource = Me.MyDataset1 + ' + 'MyDataset1 + ' + Me.MyDataset1.DataSetName = "MyDataset" + Me.MyDataset1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBGI_FILES_USERTableAdapter + ' + Me.TBGI_FILES_USERTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(6, 259) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(115, 23) + Me.Button2.TabIndex = 6 + Me.Button2.Text = "Alle unselektieren" + Me.Button2.UseVisualStyleBackColor = True + ' + 'frmIndexFileList + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(648, 294) + Me.ControlBox = False + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.CheckedListBoxControl1) + Me.Controls.Add(Me.btnstartIndex) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmIndexFileList" + Me.Text = "Zu indexierende Dateien:" + Me.TopMost = True + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents MyDataset1 As Global_Indexer.MyDataset + Friend WithEvents TBGI_FILES_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGI_FILES_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents btnstartIndex As System.Windows.Forms.Button + Friend WithEvents CheckedListBoxControl1 As DevExpress.XtraEditors.CheckedListBoxControl + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button +End Class diff --git a/Global_Indexer/frmIndexFileList.resx b/Global_Indexer/frmIndexFileList.resx new file mode 100644 index 0000000..9c23638 --- /dev/null +++ b/Global_Indexer/frmIndexFileList.resx @@ -0,0 +1,185 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 134, 17 + + + 17, 17 + + + 357, 17 + + + 574, 17 + + + + + AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA + AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA + AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3 + d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2 + Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA + AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA + AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz + 9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB + AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB + AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD + AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA + AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA + AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA + AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2 + 9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA + AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA + AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA + AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA + AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2 + 9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC + Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC + Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC + Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC + Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC + Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC + Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2 + 9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2 + 9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA + AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA + + + \ No newline at end of file diff --git a/Global_Indexer/frmIndexFileList.vb b/Global_Indexer/frmIndexFileList.vb new file mode 100644 index 0000000..be67bb1 --- /dev/null +++ b/Global_Indexer/frmIndexFileList.vb @@ -0,0 +1,41 @@ +Public Class frmIndexFileList + + Private Sub frmIndexFileList_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset1.TBGI_FILES_USER". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName) + + + If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then + CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER + CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName + CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName + End If + + Catch ex As Exception + MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click + For Each item In CheckedListBoxControl1.CheckedItems + Dim row As DataRowView = CType(item, DataRowView) + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True) + Next + Me.Close() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + CheckedListBoxControl1.CheckAll() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + CheckedListBoxControl1.UnCheckAll() + End Sub + + Private Sub frmIndexFileList_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.BringToFront() + End Sub +End Class \ No newline at end of file