diff --git a/DDMonorepo.sln b/DDMonorepo.sln index 60f7c947..ed758882 100644 --- a/DDMonorepo.sln +++ b/DDMonorepo.sln @@ -126,6 +126,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatNewConv", "Controls.Cha EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ChatAddUser", "Controls.ChatAddUser\ChatAddUser.vbproj", "{F0A807CC-BE14-4B5B-9200-27C16156BD8A}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SearchIDB", "SearchIDB\SearchIDB.vbproj", "{29765A37-4EC5-447F-87CB-8385843FF4C4}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -332,6 +334,10 @@ Global {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Debug|Any CPU.Build.0 = Debug|Any CPU {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Release|Any CPU.ActiveCfg = Release|Any CPU {F0A807CC-BE14-4B5B-9200-27C16156BD8A}.Release|Any CPU.Build.0 = Release|Any CPU + {29765A37-4EC5-447F-87CB-8385843FF4C4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {29765A37-4EC5-447F-87CB-8385843FF4C4}.Debug|Any CPU.Build.0 = Debug|Any CPU + {29765A37-4EC5-447F-87CB-8385843FF4C4}.Release|Any CPU.ActiveCfg = Release|Any CPU + {29765A37-4EC5-447F-87CB-8385843FF4C4}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE @@ -387,6 +393,7 @@ Global {4A726345-FD6B-4E1C-9E5D-18C9043D7714} = {CC368D6A-6AC4-4EB9-A092-14700FABEF7A} {86D27FFA-480F-481D-8D23-26DEAE92FE6C} = {F98C0329-C004-417F-B2AB-7466E88D8220} {F0A807CC-BE14-4B5B-9200-27C16156BD8A} = {F98C0329-C004-417F-B2AB-7466E88D8220} + {29765A37-4EC5-447F-87CB-8385843FF4C4} = {F98C0329-C004-417F-B2AB-7466E88D8220} EndGlobalSection GlobalSection(ExtensibilityGlobals) = postSolution SolutionGuid = {C1BE4090-A0FD-48AF-86CB-39099D14B286} diff --git a/GUIs.ZooFlow/ClassConstants.vb b/GUIs.ZooFlow/ClassConstants.vb index 84f843ec..881d7cbc 100644 --- a/GUIs.ZooFlow/ClassConstants.vb +++ b/GUIs.ZooFlow/ClassConstants.vb @@ -10,4 +10,5 @@ Public Const MODULE_CLIPBOARDWATCHER = "CW" Public Const MODULE_GLOBAL_INDEXER = "GLOBIX" + Public Const MODULE_ZOOFLOW = "ZOOFLOW" End Class diff --git a/GUIs.ZooFlow/ClassInit.vb b/GUIs.ZooFlow/ClassInit.vb index e5206c04..3ea7f806 100644 --- a/GUIs.ZooFlow/ClassInit.vb +++ b/GUIs.ZooFlow/ClassInit.vb @@ -76,7 +76,23 @@ Public Class ClassInit My.Application.User = oMyApplication.User My.Application.Modules = oMyApplication.Modules My.Application.ModulesActive = oMyApplication.ModulesActive + If My.Application.ModulesActive.Contains(ClassConstants.MODULE_ZOOFLOW) Then + If My.Database.DBInitialized Then + Dim oSQl = "SELECT * FROM TBDD_CONNECTION WHERE BEZEICHNUNG = 'IDB'" + Dim oDTCONN_IDB As DataTable = My.Database.GetDatatable(oSQl) + If oDTCONN_IDB.Rows.Count = 1 Then + Dim oConString = My.Database.GetConnectionString(oDTCONN_IDB.Rows(0).Item("SERVER"), oDTCONN_IDB.Rows(0).Item("DATENBANK"), oDTCONN_IDB.Rows(0).Item("USERNAME"), oDTCONN_IDB.Rows(0).Item("PASSWORD")) + My.Database_IDB = New MSSQLServer(My.LogConfig, oConString) + If My.Database.DBInitialized = False Then + _Logger.Warn("Could not initialize IDB-Database!") + Throw New InitException("Could not initialize IDB-Database!") + End If + End If + End If + + + End If RaiseEvent Completed(sender, Nothing) End If End Sub @@ -90,8 +106,8 @@ Public Class ClassInit My.Database = New MSSQLServer(My.LogConfig, oDecryptedConnectionString) If My.Database.DBInitialized = False Then - _Logger.Warn("Datenbank konnte nicht initialisiert werden!") - Throw New InitException("Datenbank konnte nicht initialisiert werden!") + _Logger.Warn("Could not initialize DD_ECM-Database!") + Throw New InitException("Could not initialize DD_ECM-Database!") End If End Sub @@ -134,8 +150,11 @@ Public Class ClassInit Case MODULE_GLOBAL_INDEXER HandleModuleInfo(MyApplication, oType, oRow) + Case MODULE_ZOOFLOW + HandleModuleInfo(MyApplication, oType, oRow) End Select Next + Catch ex As Exception _Logger.Error(ex) Throw New InitException("Fehler beim Laden des Benutzers!") diff --git a/GUIs.ZooFlow/MyApplication.vb b/GUIs.ZooFlow/MyApplication.vb index cd634b6a..48abfd21 100644 --- a/GUIs.ZooFlow/MyApplication.vb +++ b/GUIs.ZooFlow/MyApplication.vb @@ -28,6 +28,7 @@ Namespace My Property LogConfig As LogConfig Property MainForm As frmAdmin Property Database As MSSQLServer + Property Database_IDB As MSSQLServer Property Queries As New ClassQueries End Module @@ -42,6 +43,7 @@ Namespace My Public Property Modules As New Dictionary(Of String, State.ModuleState) Public Property ModulesActive As New List(Of String) Public Property ClipboardWatcher As New ClipboardWatcher.State + Public Property IDB_ConnectionString As String End Class End Namespace diff --git a/GUIs.ZooFlow/frmAdmin.vb b/GUIs.ZooFlow/frmAdmin.vb index 513bb659..c81cf687 100644 --- a/GUIs.ZooFlow/frmAdmin.vb +++ b/GUIs.ZooFlow/frmAdmin.vb @@ -53,7 +53,7 @@ Partial Public Class frmAdmin FlowForm.Show() ' === Load Data === - RefreshData() + CW_RefreshData() End Sub Private Sub frmAdmin_Shown(sender As Object, e As EventArgs) Handles Me.Shown @@ -85,7 +85,7 @@ Partial Public Class frmAdmin End Sub Private Sub TimerRefreshData_Tick(sender As Object, e As EventArgs) - RefreshData() + CW_RefreshData() End Sub Private Async Sub FlowForm_ClipboardChanged(sender As Object, e As IDataObject) Handles FlowForm.ClipboardChanged @@ -175,14 +175,14 @@ Partial Public Class frmAdmin End If End Sub - Public Sub RefreshData() + Public Sub CW_RefreshData() Try Dim oUserId As Integer = My.Application.User.UserId Dim oSql As String = My.Queries.ClipboardWatcher.VWCW_USER_PROFILE(oUserId) My.Application.ClipboardWatcher.UserProfiles = My.Database.GetDatatable(oSql) If My.Application.ClipboardWatcher.UserProfiles.Rows.Count = 0 Then - MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation) + Logger.Debug("CW_RefreshData - No profiles configured for this user so far!") Else oSql = My.Queries.ClipboardWatcher.TBCW_PROFILE_PROCESS(oUserId) My.Application.ClipboardWatcher.ProfileProcesses = My.Database.GetDatatable(oSql) diff --git a/GUIs.ZooFlow/frmFlowForm.vb b/GUIs.ZooFlow/frmFlowForm.vb index 537c4576..19f7a403 100644 --- a/GUIs.ZooFlow/frmFlowForm.vb +++ b/GUIs.ZooFlow/frmFlowForm.vb @@ -1,9 +1,10 @@ -Imports DigitalData.Modules.Messaging +Imports System.ComponentModel +Imports DigitalData.Modules.Messaging Public Class frmFlowForm Private WithEvents Watcher As ClassClipboardWatcher = ClassClipboardWatcher.Singleton Private ActiveModules As List(Of String) - + Private ESCHitCount As Integer = 0 Private CurrentState As OnFlowFormStateChangedEvent.FlowFormState = OnFlowFormStateChangedEvent.FlowFormState.Default Public Event ClipboardChanged As EventHandler(Of IDataObject) @@ -27,20 +28,31 @@ Public Class frmFlowForm AddHandler MouseClick, New MouseEventHandler(AddressOf Form_MouseClick) AddHandler MouseMove, New MouseEventHandler(AddressOf Form_MouseMove) + AddHandler KeyUp, New KeyEventHandler(AddressOf Form_KeyUp) ' === Register As Event Listener === EventBus.Instance.Register(Me) End Sub Private Sub frmFlowForm_Closed(sender As Object, e As EventArgs) Handles Me.Closed - EventBus.Instance.Unregister(Me) + Try + EventBus.Instance.Unregister(Me) + Catch ex As Exception + + End Try + End Sub - Private Sub Form_MouseClick(sender As Object, e As EventArgs) - If CurrentState = OnFlowFormStateChangedEvent.FlowFormState.HasSearchResults Then - SetFlowFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) - EventBus.Instance.PostEvent(New OnFlowFormInteractionEvent(OnFlowFormInteractionEvent.FlowFormInteraction.Click)) + Private Sub Form_MouseClick(sender As Object, ByVal e As MouseEventArgs) + If e.Button = MouseButtons.Right Then + MsgBox("RightMouseClick", MsgBoxStyle.OkOnly) + Else + If CurrentState = OnFlowFormStateChangedEvent.FlowFormState.HasSearchResults Then + SetFlowFormState(OnFlowFormStateChangedEvent.FlowFormState.Default) + EventBus.Instance.PostEvent(New OnFlowFormInteractionEvent(OnFlowFormInteractionEvent.FlowFormInteraction.Click)) + End If End If + End Sub Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) @@ -49,6 +61,23 @@ Public Class frmFlowForm Win32.SendMessage(Handle, Win32.WM_NCLBUTTONDOWN, Win32.HTCAPTION, 0) End If End Sub + Private Sub Form_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) + If e.KeyCode = Keys.Escape Then + If ESCHitCount > 0 Then + Dim result As DialogResult = MessageBox.Show("Exit Zooflow", "Please Varify", MessageBoxButtons.YesNo) + If result = DialogResult.Yes Then + Application.Exit() + End If + Else + ESCHitCount += 1 + End If + ElseIf e.KeyCode = Keys.D AndAlso (e.Control) Then + If ActiveModules.Contains(ClassConstants.MODULE_ZOOFLOW) Then + MsgBox("Search") + End If + + End If + End Sub Public Sub OnEvent(e As OnFlowFormStateChangedEvent) CurrentState = e.State @@ -99,6 +128,10 @@ Public Class frmFlowForm End If End Sub + Private Sub frmFlowForm_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing + + End Sub + '''' '''' DragDrop Support '''' diff --git a/Modules.Database/MSSQLServer.vb b/Modules.Database/MSSQLServer.vb index 405ca804..bac65be8 100644 --- a/Modules.Database/MSSQLServer.vb +++ b/Modules.Database/MSSQLServer.vb @@ -39,7 +39,7 @@ Public Class MSSQLServer End Try End Sub - Public Shared Function GetConnectionString(Server As String, Database As String, UserId As String, Password As String) As String + Public Function GetConnectionString(Server As String, Database As String, UserId As String, Password As String) As String Dim oConnectionStringBuilder As New SqlConnectionStringBuilder() With { .DataSource = Server, .InitialCatalog = Database, diff --git a/Modules.Messaging/EventBus.vb b/Modules.Messaging/EventBus.vb index 7ec9a70f..15eabd40 100644 --- a/Modules.Messaging/EventBus.vb +++ b/Modules.Messaging/EventBus.vb @@ -28,7 +28,12 @@ Public Class EventBus End Sub Public Sub Unregister(ByVal listener As Object) - _Listeners.RemoveAll(Function(l) l.Listener = listener) + Try + _Listeners.RemoveAll(Function(l) l.Listener = listener) + Catch ex As Exception + + End Try + End Sub Public Sub PostEvent(ByVal e As Object) diff --git a/SearchIDB/App.config b/SearchIDB/App.config new file mode 100644 index 00000000..5534e287 --- /dev/null +++ b/SearchIDB/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/SearchIDB/My Project/Application.Designer.vb b/SearchIDB/My Project/Application.Designer.vb new file mode 100644 index 00000000..7d042d50 --- /dev/null +++ b/SearchIDB/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.SearchIDB.Form1 + End Sub + End Class +End Namespace diff --git a/SearchIDB/My Project/Application.myapp b/SearchIDB/My Project/Application.myapp new file mode 100644 index 00000000..1243847f --- /dev/null +++ b/SearchIDB/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/SearchIDB/My Project/AssemblyInfo.vb b/SearchIDB/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..75a3caea --- /dev/null +++ b/SearchIDB/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' indem Sie "*" wie unten gezeigt eingeben: +' + + + diff --git a/SearchIDB/My Project/Resources.Designer.vb b/SearchIDB/My Project/Resources.Designer.vb new file mode 100644 index 00000000..3d0fa5b0 --- /dev/null +++ b/SearchIDB/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SearchIDB.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SearchIDB/My Project/Resources.resx b/SearchIDB/My Project/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/SearchIDB/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SearchIDB/My Project/Settings.Designer.vb b/SearchIDB/My Project/Settings.Designer.vb new file mode 100644 index 00000000..c81ccc73 --- /dev/null +++ b/SearchIDB/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SearchIDB.My.MySettings + Get + Return Global.SearchIDB.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SearchIDB/My Project/Settings.settings b/SearchIDB/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/SearchIDB/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SearchIDB/My Project/licenses.licx b/SearchIDB/My Project/licenses.licx new file mode 100644 index 00000000..3f51afe8 --- /dev/null +++ b/SearchIDB/My Project/licenses.licx @@ -0,0 +1 @@ +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/SearchIDB/OTypeSearch.Designer.vb b/SearchIDB/OTypeSearch.Designer.vb new file mode 100644 index 00000000..461a5fc8 --- /dev/null +++ b/SearchIDB/OTypeSearch.Designer.vb @@ -0,0 +1,80 @@ + _ +Partial Class OTypeSearch + Inherits System.Windows.Forms.UserControl + + 'UserControl ü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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 1 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.Size = New System.Drawing.Size(744, 150) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "RibbonPageGroup1" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 547) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(744, 27) + ' + 'OTypeSearch + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "OTypeSearch" + Me.Size = New System.Drawing.Size(744, 574) + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar +End Class diff --git a/SearchIDB/OTypeSearch.resx b/SearchIDB/OTypeSearch.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SearchIDB/OTypeSearch.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + \ No newline at end of file diff --git a/SearchIDB/OTypeSearch.vb b/SearchIDB/OTypeSearch.vb new file mode 100644 index 00000000..cdc7392b --- /dev/null +++ b/SearchIDB/OTypeSearch.vb @@ -0,0 +1,21 @@ +Imports DigitalData.Modules.Database +Imports DigitalData.Modules.Logging +Public Class OTypeSearch + Private _Database As MSSQLServer + Private LogConfig As LogConfig + Private Logger As Logger + Public Username As String + Public User_Language As String + + Public ConnStringIDB As String + Public Sub Init(LogConfig As LogConfig, ConnectionStringIDB As String, Username As String, UserLanguage As String) + Me.LogConfig = LogConfig + Me.Logger = LogConfig.GetLogger() + Me.ConnStringIDB = ConnectionStringIDB + Me.Username = Username + Me.User_Language = UserLanguage + Me._Database = New MSSQLServer(LogConfig, ConnectionStringIDB) + Dim oSQL = "SELECT * FROM " + + End Sub +End Class diff --git a/SearchIDB/SearchIDB.vbproj b/SearchIDB/SearchIDB.vbproj new file mode 100644 index 00000000..5cf81ecc --- /dev/null +++ b/SearchIDB/SearchIDB.vbproj @@ -0,0 +1,137 @@ + + + + + Debug + AnyCPU + {29765A37-4EC5-447F-87CB-8385843FF4C4} + WinExe + SearchIDB.My.MyApplication + SearchIDB + SearchIDB + 512 + WindowsForms + v4.6.1 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + SearchIDB.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + SearchIDB.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + OTypeSearch.vb + + + UserControl + + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + OTypeSearch.vb + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} + Database + + + {903b2d7d-3b80-4be9-8713-7447b704e1b0} + Logging + + + + \ No newline at end of file