AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ZooFlow: Use BaseRibbonForm, deprecate frmAdmin_Base

Browse Source
This commit is contained in:
Jonathan Jenne 2021-04-26 15:22:11 +02:00
parent e742466bfb
commit 72e639dc0c
22 changed files with 115 additions and 652 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
GUIs.Common/Base/BaseErrorHandler.vb
View File

@ -8,9 +8,6 @@ Namespace Base
Private _Logger As Logger Private _Logger As Logger
Private _Form As Form Private _Form As Form
Private Const UNKNOWN_METHOD = "Unknown Method"
Private Const UNKNOWN_FORM = "Unknown Form"
Public Sub New(LogConfig As LogConfig, Logger As Logger, Form As Form) Public Sub New(LogConfig As LogConfig, Logger As Logger, Form As Form)
_LogConfig = LogConfig _LogConfig = LogConfig
_Logger = Logger _Logger = Logger
@ -28,9 +25,7 @@ Namespace Base
End Sub End Sub
Private Function GetMessage(Exception As Exception) As String Private Function GetMessage(Exception As Exception) As String
Dim oTargetSite = Exception.TargetSite Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, Parts:=2)
Dim oMethodName = GetMethodName(Exception)
Dim oFormName = GetFormName(Exception)
Dim oMessage As String = String.Empty Dim oMessage As String = String.Empty
If TypeOf Exception Is SqlClient.SqlException Then If TypeOf Exception Is SqlClient.SqlException Then
@ -42,7 +37,7 @@ Namespace Base
ElseIf TypeOf Exception Is NoNullAllowedException Then ElseIf TypeOf Exception Is NoNullAllowedException Then
oMessage = "Einige benötigte Felder wurde nicht ausgefüllt." oMessage = "Einige benötigte Felder wurde nicht ausgefüllt."
Else Else
oMessage = $"Es ist ein unerwarteter Fehler in {oFormName}/{oMethodName} aufgetreten. Mehr Informationen finden Sie im Log." oMessage = $"Es ist ein unerwarteter Fehler in {oCallingClass} aufgetreten. Mehr Informationen finden Sie im Log."
End If End If
If _LogConfig.Debug Then If _LogConfig.Debug Then
@ -55,49 +50,6 @@ Namespace Base
Return oMessage Return oMessage
End Function End Function
'Private Function GetMessage(Exception As Exception) As String
' Dim oTargetSite = Exception.TargetSite
' Dim oMethodName = GetMethodName(Exception)
' Dim oFormName = GetFormName(Exception)
' Dim oMessage As String = String.Empty
' oMessage &= $"Form: {oFormName}{vbNewLine}"
' oMessage &= $"Method: {oMethodName}{vbNewLine}"
' If Not String.IsNullOrEmpty(Exception.StackTrace) Then
' oMessage &= $"Message: {Exception.Message}{vbNewLine}{vbNewLine}"
' End If
' If Not String.IsNullOrEmpty(Exception.StackTrace) Then
' oMessage &= $"Stacktrace: {Exception.StackTrace}{vbNewLine}"
' End If
' oMessage &= $"{vbNewLine}"
' oMessage &= $"Please report this error to error@digitaldata.works"
' Return oMessage
'End Function
Private Function GetMethodName(Exception As Exception) As String
Dim oMethodName = Exception.TargetSite?.Name
If oMethodName Is Nothing Then
Return UNKNOWN_METHOD
Else
Return oMethodName
End If
End Function
Private Function GetFormName(Exception As Exception) As String
Dim oFormName = Exception.TargetSite?.ReflectedType?.Name
If oFormName Is Nothing Then
Return UNKNOWN_FORM
Else
Return oFormName
End If
End Function
End Class End Class
End Namespace End Namespace

227
GUIs.Common/Common.vbproj.bak
View File

@ -1,227 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{D20A6BF2-C7C6-4A7A-B34D-FA27D775A049}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>DigitalData.GUIs.Common</RootNamespace>
<AssemblyName>DigitalData.GUIs.Common</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>DigitalData.GUIs.Common.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>DigitalData.GUIs.Common.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Dialogs.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v18.1.Core, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraDialogs.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraTreeList.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Controls.DocumentViewer">
<HintPath>..\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll</HintPath>
</Reference>
<Reference Include="GdPicture.NET.14">
<HintPath>D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET (.NET Framework 4.5)\GdPicture.NET.14.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.6.8\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Base\BaseErrorHandler.vb" />
<Compile Include="Base\BaseRibbonForm.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Constants.vb" />
<Compile Include="DataResultList\DataResultConfig.vb" />
<Compile Include="DataResultList\DataResultParams.vb" />
<Compile Include="DataResultList\frmDataResultList.Designer.vb">
<DependentUpon>frmDataResultList.vb</DependentUpon>
</Compile>
<Compile Include="DataResultList\frmDataResultList.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DocumentResultList\DocumentResultConfig.vb" />
<Compile Include="DocumentResultList\DocumentResultParams.vb" />
<Compile Include="DocumentResultList\frmDocumentResultList.Designer.vb">
<DependentUpon>frmDocumentResultList.vb</DependentUpon>
</Compile>
<Compile Include="DocumentResultList\frmDocumentResultList.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="IResultForm.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="DataResultList\frmDataResultList.resx">
<DependentUpon>frmDataResultList.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DocumentResultList\frmDocumentResultList.resx">
<DependentUpon>frmDocumentResultList.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\Modules.Config\Config.vbproj">
<Project>{44982f9b-6116-44e2-85d0-f39650b1ef99}</Project>
<Name>Config</Name>
</ProjectReference>
<ProjectReference Include="..\Modules.Database\Database.vbproj">
<Project>{EAF0EA75-5FA7-485D-89C7-B2D843B03A96}</Project>
<Name>Database</Name>
</ProjectReference>
<ProjectReference Include="..\Modules.Language\Language.vbproj">
<Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
<Name>Language</Name>
</ProjectReference>
<ProjectReference Include="..\Modules.Logging\Logging.vbproj">
<Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
<Name>Logging</Name>
</ProjectReference>
<ProjectReference Include="..\Modules.ZooFlow\ZooFlow.vbproj">
<Project>{81cac44f-3711-4c8f-ae98-e02a7448782a}</Project>
<Name>ZooFlow</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<None Include="packages.config" />
<None Include="Resources\txt.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\pdf.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\doc.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\xls.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\ppt.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\dwg.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\dxf.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\tiff.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\jpg.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\_blank.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\_page.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\png.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Article_32x32.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Open_32x32.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\Copy_32x32.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

32
GUIs.Common/GridBuilder.vb
View File

@ -12,21 +12,45 @@ Public Class GridBuilder
Views.AddRange(GridViews) Views.AddRange(GridViews)
End Sub End Sub
''' <summary>
''' Applies common properties to all GridViews
''' </summary>
Public Function WithDefaults() As GridBuilder Public Function WithDefaults() As GridBuilder
For Each oView In Views For Each oView In Views
oView.OptionsView.EnableAppearanceEvenRow = True WithDefaults(oView)
oView.OptionsView.ShowAutoFilterRow = True
Next Next
Return Me Return Me
End Function End Function
''' <summary>
''' Applies common properties to the supplied GridView
''' </summary>
Public Function WithDefaults(GridView As GridView)
GridView.OptionsView.EnableAppearanceEvenRow = True
GridView.OptionsView.ShowAutoFilterRow = True
Return Me
End Function
''' <summary>
''' Applies read-only properties to all GridViews
''' </summary>
Public Function WithReadOnlyOptions() As GridBuilder Public Function WithReadOnlyOptions() As GridBuilder
For Each oView In Views For Each oView In Views
oView.OptionsBehavior.Editable = False WithReadOnlyOptions(oView)
oView.OptionsBehavior.ReadOnly = True
Next Next
Return Me Return Me
End Function End Function
''' <summary>
''' Applies read-only properties to the supplied GridView
''' </summary>
Public Function WithReadOnlyOptions(GridView As GridView) As GridBuilder
GridView.OptionsBehavior.Editable = False
GridView.OptionsBehavior.ReadOnly = True
Return Me
End Function
End Class End Class

4
GUIs.ZooFlow/Administration/frmAdmin_Interface.vb → GUIs.ZooFlow/Administration/IAdminForm.vb
View File

@ -1,6 +1,4 @@
Imports DigitalData.Modules.Logging Public Interface IAdminForm
Public Interface frmAdmin_Interface
Property PrimaryKey As Integer Property PrimaryKey As Integer
Property HasChanges As Boolean Property HasChanges As Boolean
Property IsInsert As Boolean Property IsInsert As Boolean

30
GUIs.ZooFlow/Administration/frmAdmin_Base.vb
View File

@ -1,30 +0,0 @@
Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.Logging
Partial Public MustInherit Class BaseForm
Inherits RibbonForm
Friend Logger As Logger
Public Sub New()
Logger = My.LogConfig?.GetLogger
End Sub
Public Sub ShowInfo(Message As String)
MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Public Sub ShowError(Message As String)
MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Sub
Public Sub ShowError(Exception As Exception)
Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, 2)
Logger.Error(Exception)
ShowError($"Error in {oCallingClass}:{vbNewLine}{Exception.Message}")
End Sub
End Class
Partial Public Class frmAdmin_Base
Inherits BaseForm
End Class

114
GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.Designer.vb generated
View File

@ -1,114 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAdmin_CWDataSearch
Inherits frmAdmin_Base
'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.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RibbonControl1
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 3
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(800, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Speichern und Schließen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.actions_check3
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Speichern"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.save6
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 428)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(800, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'frmAdmin_CWDataSearch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.Name = "frmAdmin_CWDataSearch"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Clipboard Watcher - Datensuche"
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
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
End Class

120
GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.resx
View File

@ -1,120 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

15
GUIs.ZooFlow/Administration/frmAdmin_CWDataSearch.vb
View File

@ -1,15 +0,0 @@
Public Class frmAdmin_CWDataSearch
Implements frmAdmin_Interface
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
Throw New NotImplementedException()
End Function
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData
Throw New NotImplementedException()
End Function
End Class

6
GUIs.ZooFlow/Administration/frmAdmin_CWProfile.Designer.vb generated
View File

@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_CWProfile Partial Class frmAdmin_CWProfile
Inherits frmAdmin_Base Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>

23
GUIs.ZooFlow/Administration/frmAdmin_CWProfile.vb
View File

@ -9,11 +9,11 @@ Imports DigitalData.GUIs.Common
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class frmAdmin_CWProfile Public Class frmAdmin_CWProfile
Implements frmAdmin_Interface Implements IAdminForm
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Const BUTTON_REGEX_PROFILE = "BUTTON_REGEX_PROFILE" Private Const BUTTON_REGEX_PROFILE = "BUTTON_REGEX_PROFILE"
Private Const BUTTON_SEARCH_SQL = "BUTTON_SEARCH_SQL" Private Const BUTTON_SEARCH_SQL = "BUTTON_SEARCH_SQL"
@ -26,11 +26,12 @@ Public Class frmAdmin_CWProfile
Private Pages As ClassDetailPages Private Pages As ClassDetailPages
Public Sub New(PrimaryKey As Integer) Public Sub New(PrimaryKey As Integer)
MyBase.New(My.LogConfig)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
End Sub End Sub
@ -86,7 +87,7 @@ Public Class frmAdmin_CWProfile
AddHandler Pages.AnyControl_Focus, AddressOf AnyControl_Focus AddHandler Pages.AnyControl_Focus, AddressOf AnyControl_Focus
AddHandler Pages.AnyControl_Changed, AddressOf AnyControl_Changed AddHandler Pages.AnyControl_Changed, AddressOf AnyControl_Changed
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
@ -117,7 +118,7 @@ Public Class frmAdmin_CWProfile
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Public Function SaveData() As Boolean Implements IAdminForm.SaveData
If Pages.CurrentPage Is Nothing Then If Pages.CurrentPage Is Nothing Then
Return False Return False
End If End If
@ -144,7 +145,7 @@ Public Class frmAdmin_CWProfile
Return False Return False
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function
@ -165,7 +166,7 @@ Public Class frmAdmin_CWProfile
End If End If
End Sub End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Throw New NotImplementedException() Throw New NotImplementedException()
End Function End Function
@ -199,7 +200,7 @@ Public Class frmAdmin_CWProfile
Dim oTextEdit As TextEdit = sender Dim oTextEdit As TextEdit = sender
If e.Button.Tag = BUTTON_SEARCH_SQL Then If e.Button.Tag = BUTTON_SEARCH_SQL Then
Dim oForm As New frmSQLEditor(oTextEdit.EditValue) Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue}
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
@ -212,7 +213,7 @@ Public Class frmAdmin_CWProfile
Dim oTextEdit As TextEdit = sender Dim oTextEdit As TextEdit = sender
If e.Button.Tag = BUTTON_COUNT_SQL Then If e.Button.Tag = BUTTON_COUNT_SQL Then
Dim oForm As New frmSQLEditor(oTextEdit.EditValue) Dim oForm As New frmSQLEditor(My.LogConfig, My.Database) With {.SQLString = oTextEdit.EditValue}
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then

6
GUIs.ZooFlow/Administration/frmAdmin_Globix.Designer.vb generated
View File

@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Globix Partial Class frmAdmin_Globix
Inherits frmAdmin_Base Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>

20
GUIs.ZooFlow/Administration/frmAdmin_Globix.vb
View File

@ -1,18 +1,18 @@
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class frmAdmin_Globix Public Class frmAdmin_Globix
Inherits frmAdmin_Base Implements IAdminForm
Implements frmAdmin_Interface Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
MyBase.New(My.LogConfig)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
End Sub End Sub
@ -22,7 +22,7 @@ Public Class frmAdmin_Globix
TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = My.Database.CurrentSQLConnectionString
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey) Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.GlobixDataset.TBDD_DOKUMENTART, PrimaryKey)
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
@ -51,7 +51,7 @@ Public Class frmAdmin_Globix
End If End If
End Sub End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try Try
TBDD_DOKUMENTARTBindingSource.EndEdit() TBDD_DOKUMENTARTBindingSource.EndEdit()
@ -70,7 +70,7 @@ Public Class frmAdmin_Globix
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function
@ -79,7 +79,7 @@ Public Class frmAdmin_Globix
End Sub End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Throw New NotImplementedException() Throw New NotImplementedException()
End Function End Function
End Class End Class

6
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.Designer.vb generated
View File

@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBAttribute Partial Class frmAdmin_IDBAttribute
Inherits frmAdmin_Base Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>

23
GUIs.ZooFlow/Administration/frmAdmin_IDBAttribute.vb
View File

@ -1,12 +1,9 @@
Imports DigitalData.Modules.Logging Public Class frmAdmin_IDBAttribute
Implements IAdminForm
Public Class frmAdmin_IDBAttribute Public Property HasChanges As Boolean = False Implements IAdminForm.HasChanges
Inherits frmAdmin_Base Public Property IsInsert As Boolean = False Implements IAdminForm.IsInsert
Implements frmAdmin_Interface Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean = False Implements frmAdmin_Interface.HasChanges
Public Property IsInsert As Boolean = False Implements frmAdmin_Interface.IsInsert
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@ -22,7 +19,7 @@ Public Class frmAdmin_IDBAttribute
TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE) TBIDB_ATTRIBUTE_TYPETableAdapter.Fill(DSIDB_Stammdaten.TBIDB_ATTRIBUTE_TYPE)
VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1) VWIDB_BE_ATTRIBUTETableAdapter.FillByAttributeId(DSIDB_Stammdaten.VWIDB_BE_ATTRIBUTE, PrimaryKey, 1)
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
@ -51,7 +48,7 @@ Public Class frmAdmin_IDBAttribute
End If End If
End Sub End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try Try
VWIDB_BE_ATTRIBUTEBindingSource.EndEdit() VWIDB_BE_ATTRIBUTEBindingSource.EndEdit()
@ -72,7 +69,7 @@ Public Class frmAdmin_IDBAttribute
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function
@ -87,12 +84,12 @@ Public Class frmAdmin_IDBAttribute
WHERE (GUID = @GUID)" WHERE (GUID = @GUID)"
End Sub End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try Try
TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey) TBIDB_ATTRIBUTE_TYPETableAdapter.Delete(PrimaryKey)
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function

6
GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.Designer.vb generated
View File

@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_IDBEntity Partial Class frmAdmin_IDBEntity
Inherits frmAdmin_Base Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()> _

22
GUIs.ZooFlow/Administration/frmAdmin_IDBEntity.vb
View File

@ -1,18 +1,18 @@
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class frmAdmin_IDBEntity Public Class frmAdmin_IDBEntity
Inherits frmAdmin_Base Implements IAdminForm
Implements frmAdmin_Interface Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False) Public Sub New(PrimaryKey As Integer, Optional IsInsert As Boolean = False)
MyBase.New(My.LogConfig)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Logger = My.LogConfig.GetLogger()
Me.PrimaryKey = PrimaryKey Me.PrimaryKey = PrimaryKey
Me.IsInsert = IsInsert Me.IsInsert = IsInsert
End Sub End Sub
@ -21,7 +21,7 @@ Public Class frmAdmin_IDBEntity
Try Try
TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey) TBIDB_BUSINESS_ENTITYTableAdapter.Fill(DSIDB_Stammdaten.TBIDB_BUSINESS_ENTITY, PrimaryKey)
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
@ -49,7 +49,7 @@ Public Class frmAdmin_IDBEntity
End If End If
End Sub End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try Try
TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()
@ -68,17 +68,17 @@ Public Class frmAdmin_IDBEntity
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try Try
TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey) TBIDB_BUSINESS_ENTITYTableAdapter.Delete(PrimaryKey)
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function

6
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.Designer.vb generated
View File

@ -1,6 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_SourceSQL Partial Class frmAdmin_SourceSQL
Inherits frmAdmin_Base Inherits BaseRibbonForm
'Form overrides dispose to clean up the component list. 'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>

18
GUIs.ZooFlow/Administration/frmAdmin_SourceSQL.vb
View File

@ -2,13 +2,13 @@
Imports DevExpress.XtraLayout Imports DevExpress.XtraLayout
Public Class frmAdmin_SourceSQL Public Class frmAdmin_SourceSQL
Implements frmAdmin_Interface Implements IAdminForm
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Public Sub New(PrimaryKey As Integer) Public Sub New(PrimaryKey As Integer)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
@ -28,7 +28,7 @@ Public Class frmAdmin_SourceSQL
ValidationHelper() ValidationHelper()
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
@ -69,7 +69,7 @@ Public Class frmAdmin_SourceSQL
Return oControlList Return oControlList
End Function End Function
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Try Try
@ -90,17 +90,17 @@ Public Class frmAdmin_SourceSQL
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Try Try
TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey) TBZF_ADMIN_SOURCE_SQLTableAdapter.Delete(PrimaryKey)
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function

3
GUIs.ZooFlow/Administration/frmAdmin_Start.Designer.vb generated
View File

@ -1,9 +1,10 @@
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Grid Imports DevExpress.XtraGrid.Views.Grid
Imports DigitalData.GUIs.Common.Base
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdmin_Start Partial Class frmAdmin_Start
Inherits frmAdmin_Base Inherits BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>

8
GUIs.ZooFlow/Administration/frmAdmin_Start.vb
View File

@ -9,8 +9,6 @@ Imports DigitalData.GUIs.ZooFlow.Administration.ClassConstants
Imports DevExpress.XtraGrid Imports DevExpress.XtraGrid
Public Class frmAdmin_Start Public Class frmAdmin_Start
Inherits frmAdmin_Base
Private CurrentModule As String Private CurrentModule As String
Private CurrentPage As String Private CurrentPage As String
Private CurrentItem As ClassDetailForm.DetailData Private CurrentItem As ClassDetailForm.DetailData
@ -25,7 +23,7 @@ Public Class frmAdmin_Start
TreeListMenu.ExpandAll() TreeListMenu.ExpandAll()
End Sub End Sub
Private Sub DetailForm_Closed(sender As Object, e As frmAdmin_Interface) Private Sub DetailForm_Closed(sender As Object, e As IAdminForm)
If e.HasChanges Then If e.HasChanges Then
Load_SQLData() Load_SQLData()
Load_GridData(DetailForm.DetailDataList.Item(CurrentPage)) Load_GridData(DetailForm.DetailDataList.Item(CurrentPage))
@ -103,7 +101,7 @@ Public Class frmAdmin_Start
CurrentPage = e.Node.Tag.ToString CurrentPage = e.Node.Tag.ToString
End If End If
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub
@ -206,7 +204,7 @@ Public Class frmAdmin_Start
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
ShowError(ex) ShowErrorMessage(ex)
End Try End Try
End Sub End Sub

12
GUIs.ZooFlow/Globix/frmGlobixAdministration.vb
View File

@ -2,10 +2,10 @@
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
Public Class frmGlobixAdministration Public Class frmGlobixAdministration
Implements frmAdmin_Interface Implements IAdminForm
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey Public Property PrimaryKey As Integer Implements IAdminForm.PrimaryKey
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges Public Property HasChanges As Boolean Implements IAdminForm.HasChanges
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert Public Property IsInsert As Boolean Implements IAdminForm.IsInsert
Private Logger As Logger Private Logger As Logger
Private CURRCOntrolGroup As LayoutControlGroup Private CURRCOntrolGroup As LayoutControlGroup
Public Sub New(PrimaryKey As Integer) Public Sub New(PrimaryKey As Integer)
@ -105,7 +105,7 @@ Public Class frmGlobixAdministration
End Sub End Sub
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData Public Function SaveData() As Boolean Implements IAdminForm.SaveData
Throw New NotImplementedException() Throw New NotImplementedException()
End Function End Function
@ -205,7 +205,7 @@ Public Class frmGlobixAdministration
End Select End Select
End Sub End Sub
Public Function DeleteData() As Boolean Implements frmAdmin_Interface.DeleteData Public Function DeleteData() As Boolean Implements IAdminForm.DeleteData
Throw New NotImplementedException() Throw New NotImplementedException()
End Function End Function
End Class End Class

14
GUIs.ZooFlow/ZooFlow.vbproj
View File

@ -115,15 +115,6 @@
<Compile Include="Administration\ClassDetailForm.vb" /> <Compile Include="Administration\ClassDetailForm.vb" />
<Compile Include="Administration\ClassDetailPage.vb" /> <Compile Include="Administration\ClassDetailPage.vb" />
<Compile Include="Administration\ClassValidation.vb" /> <Compile Include="Administration\ClassValidation.vb" />
<Compile Include="Administration\frmAdmin_Base.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\frmAdmin_CWDataSearch.Designer.vb">
<DependentUpon>frmAdmin_CWDataSearch.vb</DependentUpon>
</Compile>
<Compile Include="Administration\frmAdmin_CWDataSearch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Administration\frmAdmin_CWProfile.Designer.vb"> <Compile Include="Administration\frmAdmin_CWProfile.Designer.vb">
<DependentUpon>frmAdmin_CWProfile.vb</DependentUpon> <DependentUpon>frmAdmin_CWProfile.vb</DependentUpon>
</Compile> </Compile>
@ -142,7 +133,7 @@
<Compile Include="Administration\frmAdmin_IDBEntity.vb"> <Compile Include="Administration\frmAdmin_IDBEntity.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Administration\frmAdmin_Interface.vb" /> <Compile Include="Administration\IAdminForm.vb" />
<Compile Include="Administration\frmAdmin_Globix.Designer.vb"> <Compile Include="Administration\frmAdmin_Globix.Designer.vb">
<DependentUpon>frmAdmin_Globix.vb</DependentUpon> <DependentUpon>frmAdmin_Globix.vb</DependentUpon>
</Compile> </Compile>
@ -315,9 +306,6 @@
<Compile Include="Queries\ClassQueries.vb" /> <Compile Include="Queries\ClassQueries.vb" />
<Compile Include="Search\SearchFilter.vb" /> <Compile Include="Search\SearchFilter.vb" />
<Compile Include="Search\State.vb" /> <Compile Include="Search\State.vb" />
<EmbeddedResource Include="Administration\frmAdmin_CWDataSearch.resx">
<DependentUpon>frmAdmin_CWDataSearch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Administration\frmAdmin_CWProfile.resx"> <EmbeddedResource Include="Administration\frmAdmin_CWProfile.resx">
<DependentUpon>frmAdmin_CWProfile.vb</DependentUpon> <DependentUpon>frmAdmin_CWProfile.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>