From 7f0028d22c9bca69202070b3cf0a954cb79175cc Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Tue, 7 Jul 2015 13:04:46 +0200 Subject: [PATCH] MS_Initial --- .gitattributes | 63 + .gitignore | 156 + Global_Indexer.sln | 118 + Global_Indexer/App.config | 23 + Global_Indexer/ClassDatabase.vb | 108 + Global_Indexer/ClassDragDrop.vb | 124 + Global_Indexer/ClassEmailHeaderExtractor.vb | 81 + Global_Indexer/ClassEncryption.vb | 68 + Global_Indexer/ClassFolderWatcher.vb | 162 + Global_Indexer/ClassFormFunctions.vb | 61 + Global_Indexer/ClassHotkey.vb | 50 + Global_Indexer/ClassHotkey_Windream.vb | 222 + Global_Indexer/ClassIndexFunctions.vb | 16 + Global_Indexer/ClassLayout.vb | 166 + Global_Indexer/ClassLogger.vb | 204 + Global_Indexer/ClassPostprocessing.vb | 74 + Global_Indexer/ClassWindowAPI.vb | 179 + Global_Indexer/ClassWindream.vb | 1616 + Global_Indexer/Global_Indexer.vbproj | 502 + Global_Indexer/ModuleCURRENT.vb | 31 + Global_Indexer/ModuleMySettings.vb | 180 + .../My Project/Application.Designer.vb | 38 + Global_Indexer/My Project/Application.myapp | 10 + Global_Indexer/My Project/AssemblyInfo.vb | 35 + .../My Project/Resources.Designer.vb | 493 + Global_Indexer/My Project/Resources.resx | 250 + .../My Project/Settings.Designer.vb | 96 + Global_Indexer/My Project/Settings.settings | 17 + Global_Indexer/My Project/licenses.licx | 6 + Global_Indexer/MyDataset.Designer.vb | 27273 ++++++++++++++++ Global_Indexer/MyDataset.vb | 4 + Global_Indexer/MyDataset.xsc | 346 + Global_Indexer/MyDataset.xsd | 2980 ++ Global_Indexer/MyDataset.xss | 253 + Global_Indexer/Resources/Benutzer.ico | Bin 0 -> 25214 bytes .../Resources/CheckOutforEdit_13187_32x.png | Bin 0 -> 386 bytes Global_Indexer/Resources/Copy_6524.png | Bin 0 -> 150 bytes Global_Indexer/Resources/Einstellungen5.ico | Bin 0 -> 2238 bytes Global_Indexer/Resources/Einstellungen6.ico | Bin 0 -> 1406 bytes Global_Indexer/Resources/Go.png | Bin 0 -> 3218 bytes Global_Indexer/Resources/KeyDown_8461_12x.png | Bin 0 -> 245 bytes Global_Indexer/Resources/Save_6530.png | Bin 0 -> 204 bytes .../Selectallrowsfrom_tableA__294.png | Bin 0 -> 226 bytes .../Resources/Shortcut_8169_16x.png | Bin 0 -> 218 bytes .../Resources/WindowsForm_817_12x.png | Bin 0 -> 139 bytes Global_Indexer/Resources/action_add_16xLG.png | Bin 0 -> 164 bytes Global_Indexer/Resources/add.png | Bin 0 -> 733 bytes .../Resources/arrow_Forward_16xMD.png | Bin 0 -> 397 bytes Global_Indexer/Resources/arrow_Up_16xLG.png | Bin 0 -> 230 bytes Global_Indexer/Resources/arrow_back_16xMD.png | Bin 0 -> 391 bytes Global_Indexer/Resources/arrow_left.png | Bin 0 -> 345 bytes Global_Indexer/Resources/arrow_refresh.png | Bin 0 -> 685 bytes Global_Indexer/Resources/arrow_right.png | Bin 0 -> 349 bytes Global_Indexer/Resources/bell_delete.png | Bin 0 -> 824 bytes Global_Indexer/Resources/bell_go.png | Bin 0 -> 836 bytes Global_Indexer/Resources/bullet_arrow_top.png | Bin 0 -> 230 bytes Global_Indexer/Resources/database_connect.png | Bin 0 -> 763 bytes Global_Indexer/Resources/database_go.png | Bin 0 -> 698 bytes Global_Indexer/Resources/database_refresh.png | Bin 0 -> 770 bytes Global_Indexer/Resources/database_save.png | Bin 0 -> 755 bytes Global_Indexer/Resources/database_save1.png | Bin 0 -> 755 bytes Global_Indexer/Resources/database_save2.png | Bin 0 -> 755 bytes Global_Indexer/Resources/delete2.ico | Bin 0 -> 766 bytes Global_Indexer/Resources/delete_12x12.png | Bin 0 -> 3318 bytes .../Resources/folder_Open_32xSM.png | Bin 0 -> 341 bytes Global_Indexer/Resources/folder_go.png | Bin 0 -> 694 bytes Global_Indexer/Resources/folder_link.png | Bin 0 -> 785 bytes Global_Indexer/Resources/gear_32xLG.png | Bin 0 -> 870 bytes Global_Indexer/Resources/gear_32xSM.png | Bin 0 -> 594 bytes .../Resources/handdrawn_arrow_left_green.png | Bin 0 -> 14241 bytes .../Resources/handdrawn_arrow_right_green.png | Bin 0 -> 14056 bytes Global_Indexer/Resources/key.png | Bin 0 -> 612 bytes Global_Indexer/Resources/key_go.png | Bin 0 -> 744 bytes Global_Indexer/Resources/page_red.png | Bin 0 -> 641 bytes Global_Indexer/Resources/refresh_16xMD.png | Bin 0 -> 376 bytes Global_Indexer/Resources/save_16xLG.png | Bin 0 -> 206 bytes Global_Indexer/Resources/save_16xMD.png | Bin 0 -> 193 bytes Global_Indexer/clsHotkey.vb | 127 + Global_Indexer/frmAdministration.Designer.vb | 4374 +++ Global_Indexer/frmAdministration.resx | 916 + Global_Indexer/frmAdministration.vb | 921 + Global_Indexer/frmConfig_Basic.designer.vb | 409 + Global_Indexer/frmConfig_Basic.resx | 152 + Global_Indexer/frmConfig_Basic.vb | 221 + Global_Indexer/frmConnections.Designer.vb | 636 + Global_Indexer/frmConnections.resx | 231 + Global_Indexer/frmConnections.vb | 240 + Global_Indexer/frmHotKey_Add.Designer.vb | 2547 ++ Global_Indexer/frmHotKey_Add.resx | 603 + Global_Indexer/frmHotKey_Add.vb | 721 + Global_Indexer/frmHotkey_User.Designer.vb | 420 + Global_Indexer/frmHotkey_User.resx | 321 + Global_Indexer/frmHotkey_User.vb | 100 + Global_Indexer/frmIndex.designer.vb | 742 + Global_Indexer/frmIndex.resx | 165 + Global_Indexer/frmIndex.vb | 2078 ++ Global_Indexer/frmLicense.designer.vb | 272 + Global_Indexer/frmLicense.resx | 120 + Global_Indexer/frmLicense.vb | 91 + Global_Indexer/frmNamenkonvention.designer.vb | 380 + Global_Indexer/frmNamenkonvention.resx | 150 + Global_Indexer/frmNamenkonvention.vb | 107 + .../frmSQLConfigAutoIndex.Designer.vb | 185 + Global_Indexer/frmSQLConfigAutoIndex.resx | 135 + Global_Indexer/frmSQLConfigAutoIndex.vb | 113 + Global_Indexer/frmSQLSuggestion.Designer.vb | 252 + Global_Indexer/frmSQLSuggestion.resx | 138 + Global_Indexer/frmSQLSuggestion.vb | 150 + Global_Indexer/frmSQL_Admin.designer.vb | 314 + Global_Indexer/frmSQL_Admin.resx | 301 + Global_Indexer/frmSQL_Admin.vb | 87 + Global_Indexer/frmStart.Designer.vb | 236 + Global_Indexer/frmStart.resx | 722 + Global_Indexer/frmStart.vb | 530 + Global_Indexer/frmTestvb.Designer.vb | 29 + Global_Indexer/frmTestvb.vb | 3 + .../frmUserKonfig_AddUsers.designer.vb | 190 + Global_Indexer/frmUserKonfig_AddUsers.resx | 567 + Global_Indexer/frmUserKonfig_AddUsers.vb | 128 + Setup/Setup.isl | 5720 ++++ Setup/Setup.isproj | 37 + SetupWix/Product.wxs | 154 + SetupWix/SetupWix.wixproj | 35 + 123 files changed, 63075 insertions(+) create mode 100644 .gitattributes create mode 100644 .gitignore create mode 100644 Global_Indexer.sln create mode 100644 Global_Indexer/App.config create mode 100644 Global_Indexer/ClassDatabase.vb create mode 100644 Global_Indexer/ClassDragDrop.vb create mode 100644 Global_Indexer/ClassEmailHeaderExtractor.vb create mode 100644 Global_Indexer/ClassEncryption.vb create mode 100644 Global_Indexer/ClassFolderWatcher.vb create mode 100644 Global_Indexer/ClassFormFunctions.vb create mode 100644 Global_Indexer/ClassHotkey.vb create mode 100644 Global_Indexer/ClassHotkey_Windream.vb create mode 100644 Global_Indexer/ClassIndexFunctions.vb create mode 100644 Global_Indexer/ClassLayout.vb create mode 100644 Global_Indexer/ClassLogger.vb create mode 100644 Global_Indexer/ClassPostprocessing.vb create mode 100644 Global_Indexer/ClassWindowAPI.vb create mode 100644 Global_Indexer/ClassWindream.vb create mode 100644 Global_Indexer/Global_Indexer.vbproj create mode 100644 Global_Indexer/ModuleCURRENT.vb create mode 100644 Global_Indexer/ModuleMySettings.vb create mode 100644 Global_Indexer/My Project/Application.Designer.vb create mode 100644 Global_Indexer/My Project/Application.myapp create mode 100644 Global_Indexer/My Project/AssemblyInfo.vb create mode 100644 Global_Indexer/My Project/Resources.Designer.vb create mode 100644 Global_Indexer/My Project/Resources.resx create mode 100644 Global_Indexer/My Project/Settings.Designer.vb create mode 100644 Global_Indexer/My Project/Settings.settings create mode 100644 Global_Indexer/My Project/licenses.licx create mode 100644 Global_Indexer/MyDataset.Designer.vb create mode 100644 Global_Indexer/MyDataset.vb create mode 100644 Global_Indexer/MyDataset.xsc create mode 100644 Global_Indexer/MyDataset.xsd create mode 100644 Global_Indexer/MyDataset.xss create mode 100644 Global_Indexer/Resources/Benutzer.ico create mode 100644 Global_Indexer/Resources/CheckOutforEdit_13187_32x.png create mode 100644 Global_Indexer/Resources/Copy_6524.png create mode 100644 Global_Indexer/Resources/Einstellungen5.ico create mode 100644 Global_Indexer/Resources/Einstellungen6.ico create mode 100644 Global_Indexer/Resources/Go.png create mode 100644 Global_Indexer/Resources/KeyDown_8461_12x.png create mode 100644 Global_Indexer/Resources/Save_6530.png create mode 100644 Global_Indexer/Resources/Selectallrowsfrom_tableA__294.png create mode 100644 Global_Indexer/Resources/Shortcut_8169_16x.png create mode 100644 Global_Indexer/Resources/WindowsForm_817_12x.png create mode 100644 Global_Indexer/Resources/action_add_16xLG.png create mode 100644 Global_Indexer/Resources/add.png create mode 100644 Global_Indexer/Resources/arrow_Forward_16xMD.png create mode 100644 Global_Indexer/Resources/arrow_Up_16xLG.png create mode 100644 Global_Indexer/Resources/arrow_back_16xMD.png create mode 100644 Global_Indexer/Resources/arrow_left.png create mode 100644 Global_Indexer/Resources/arrow_refresh.png create mode 100644 Global_Indexer/Resources/arrow_right.png create mode 100644 Global_Indexer/Resources/bell_delete.png create mode 100644 Global_Indexer/Resources/bell_go.png create mode 100644 Global_Indexer/Resources/bullet_arrow_top.png create mode 100644 Global_Indexer/Resources/database_connect.png create mode 100644 Global_Indexer/Resources/database_go.png create mode 100644 Global_Indexer/Resources/database_refresh.png create mode 100644 Global_Indexer/Resources/database_save.png create mode 100644 Global_Indexer/Resources/database_save1.png create mode 100644 Global_Indexer/Resources/database_save2.png create mode 100644 Global_Indexer/Resources/delete2.ico create mode 100644 Global_Indexer/Resources/delete_12x12.png create mode 100644 Global_Indexer/Resources/folder_Open_32xSM.png create mode 100644 Global_Indexer/Resources/folder_go.png create mode 100644 Global_Indexer/Resources/folder_link.png create mode 100644 Global_Indexer/Resources/gear_32xLG.png create mode 100644 Global_Indexer/Resources/gear_32xSM.png create mode 100644 Global_Indexer/Resources/handdrawn_arrow_left_green.png create mode 100644 Global_Indexer/Resources/handdrawn_arrow_right_green.png create mode 100644 Global_Indexer/Resources/key.png create mode 100644 Global_Indexer/Resources/key_go.png create mode 100644 Global_Indexer/Resources/page_red.png create mode 100644 Global_Indexer/Resources/refresh_16xMD.png create mode 100644 Global_Indexer/Resources/save_16xLG.png create mode 100644 Global_Indexer/Resources/save_16xMD.png create mode 100644 Global_Indexer/clsHotkey.vb create mode 100644 Global_Indexer/frmAdministration.Designer.vb create mode 100644 Global_Indexer/frmAdministration.resx create mode 100644 Global_Indexer/frmAdministration.vb create mode 100644 Global_Indexer/frmConfig_Basic.designer.vb create mode 100644 Global_Indexer/frmConfig_Basic.resx create mode 100644 Global_Indexer/frmConfig_Basic.vb create mode 100644 Global_Indexer/frmConnections.Designer.vb create mode 100644 Global_Indexer/frmConnections.resx create mode 100644 Global_Indexer/frmConnections.vb create mode 100644 Global_Indexer/frmHotKey_Add.Designer.vb create mode 100644 Global_Indexer/frmHotKey_Add.resx create mode 100644 Global_Indexer/frmHotKey_Add.vb create mode 100644 Global_Indexer/frmHotkey_User.Designer.vb create mode 100644 Global_Indexer/frmHotkey_User.resx create mode 100644 Global_Indexer/frmHotkey_User.vb create mode 100644 Global_Indexer/frmIndex.designer.vb create mode 100644 Global_Indexer/frmIndex.resx create mode 100644 Global_Indexer/frmIndex.vb create mode 100644 Global_Indexer/frmLicense.designer.vb create mode 100644 Global_Indexer/frmLicense.resx create mode 100644 Global_Indexer/frmLicense.vb create mode 100644 Global_Indexer/frmNamenkonvention.designer.vb create mode 100644 Global_Indexer/frmNamenkonvention.resx create mode 100644 Global_Indexer/frmNamenkonvention.vb create mode 100644 Global_Indexer/frmSQLConfigAutoIndex.Designer.vb create mode 100644 Global_Indexer/frmSQLConfigAutoIndex.resx create mode 100644 Global_Indexer/frmSQLConfigAutoIndex.vb create mode 100644 Global_Indexer/frmSQLSuggestion.Designer.vb create mode 100644 Global_Indexer/frmSQLSuggestion.resx create mode 100644 Global_Indexer/frmSQLSuggestion.vb create mode 100644 Global_Indexer/frmSQL_Admin.designer.vb create mode 100644 Global_Indexer/frmSQL_Admin.resx create mode 100644 Global_Indexer/frmSQL_Admin.vb create mode 100644 Global_Indexer/frmStart.Designer.vb create mode 100644 Global_Indexer/frmStart.resx create mode 100644 Global_Indexer/frmStart.vb create mode 100644 Global_Indexer/frmTestvb.Designer.vb create mode 100644 Global_Indexer/frmTestvb.vb create mode 100644 Global_Indexer/frmUserKonfig_AddUsers.designer.vb create mode 100644 Global_Indexer/frmUserKonfig_AddUsers.resx create mode 100644 Global_Indexer/frmUserKonfig_AddUsers.vb create mode 100644 Setup/Setup.isl create mode 100644 Setup/Setup.isproj create mode 100644 SetupWix/Product.wxs create mode 100644 SetupWix/SetupWix.wixproj diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..1ff0c42 --- /dev/null +++ b/.gitattributes @@ -0,0 +1,63 @@ +############################################################################### +# Set default behavior to automatically normalize line endings. +############################################################################### +* text=auto + +############################################################################### +# Set default behavior for command prompt diff. +# +# This is need for earlier builds of msysgit that does not have it on by +# default for csharp files. +# Note: This is only used by command line +############################################################################### +#*.cs diff=csharp + +############################################################################### +# Set the merge driver for project and solution files +# +# Merging from the command prompt will add diff markers to the files if there +# are conflicts (Merging from VS is not affected by the settings below, in VS +# the diff markers are never inserted). Diff markers may cause the following +# file extensions to fail to load in VS. An alternative would be to treat +# these files as binary and thus will always conflict and require user +# intervention with every merge. To do so, just uncomment the entries below +############################################################################### +#*.sln merge=binary +#*.csproj merge=binary +#*.vbproj merge=binary +#*.vcxproj merge=binary +#*.vcproj merge=binary +#*.dbproj merge=binary +#*.fsproj merge=binary +#*.lsproj merge=binary +#*.wixproj merge=binary +#*.modelproj merge=binary +#*.sqlproj merge=binary +#*.wwaproj merge=binary + +############################################################################### +# behavior for image files +# +# image files are treated as binary by default. +############################################################################### +#*.jpg binary +#*.png binary +#*.gif binary + +############################################################################### +# diff behavior for common document formats +# +# Convert binary document formats to text before diffing them. This feature +# is only available from the command line. Turn it on by uncommenting the +# entries below. +############################################################################### +#*.doc diff=astextplain +#*.DOC diff=astextplain +#*.docx diff=astextplain +#*.DOCX diff=astextplain +#*.dot diff=astextplain +#*.DOT diff=astextplain +#*.pdf diff=astextplain +#*.PDF diff=astextplain +#*.rtf diff=astextplain +#*.RTF diff=astextplain diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..1bc915c --- /dev/null +++ b/.gitignore @@ -0,0 +1,156 @@ +## Ignore Visual Studio temporary files, build results, and +## files generated by popular Visual Studio add-ons. + +# User-specific files +*.suo +*.user +*.sln.docstates + +# Build results + +[Dd]ebug/ +[Rr]elease/ +x64/ +build/ +[Bb]in/ +[Oo]bj/ + +# Enable "build/" folder in the NuGet Packages folder since NuGet packages use it for MSBuild targets +!packages/*/build/ + +# MSTest test Results +[Tt]est[Rr]esult*/ +[Bb]uild[Ll]og.* + +*_i.c +*_p.c +*.ilk +*.meta +*.obj +*.pch +*.pdb +*.pgc +*.pgd +*.rsp +*.sbr +*.tlb +*.tli +*.tlh +*.tmp +*.tmp_proj +*.log +*.vspscc +*.vssscc +.builds +*.pidb +*.log +*.scc + +# Visual C++ cache files +ipch/ +*.aps +*.ncb +*.opensdf +*.sdf +*.cachefile + +# Visual Studio profiler +*.psess +*.vsp +*.vspx + +# Guidance Automation Toolkit +*.gpState + +# ReSharper is a .NET coding add-in +_ReSharper*/ +*.[Rr]e[Ss]harper + +# TeamCity is a build add-in +_TeamCity* + +# DotCover is a Code Coverage Tool +*.dotCover + +# NCrunch +*.ncrunch* +.*crunch*.local.xml + +# Installshield output folder +[Ee]xpress/ + +# DocProject is a documentation generator add-in +DocProject/buildhelp/ +DocProject/Help/*.HxT +DocProject/Help/*.HxC +DocProject/Help/*.hhc +DocProject/Help/*.hhk +DocProject/Help/*.hhp +DocProject/Help/Html2 +DocProject/Help/html + +# Click-Once directory +publish/ + +# Publish Web Output +*.Publish.xml + +# NuGet Packages Directory +## TODO: If you have NuGet Package Restore enabled, uncomment the next line +#packages/ + +# Windows Azure Build Output +csx +*.build.csdef + +# Windows Store app package directory +AppPackages/ + +# Others +sql/ +*.Cache +ClientBin/ +[Ss]tyle[Cc]op.* +~$* +*~ +*.dbmdl +*.[Pp]ublish.xml +*.pfx +*.publishsettings + +# RIA/Silverlight projects +Generated_Code/ + +# Backup & report files from converting an old project file to a newer +# Visual Studio version. Backup files are not needed, because we have git ;-) +_UpgradeReport_Files/ +Backup*/ +UpgradeLog*.XML +UpgradeLog*.htm + +# SQL Server files +App_Data/*.mdf +App_Data/*.ldf + + +#LightSwitch generated files +GeneratedArtifacts/ +_Pvt_Extensions/ +ModelManifest.xml + +# ========================= +# Windows detritus +# ========================= + +# Windows image file caches +Thumbs.db +ehthumbs.db + +# Folder config file +Desktop.ini + +# Recycle Bin used on file shares +$RECYCLE.BIN/ + +# Mac desktop service store files +.DS_Store diff --git a/Global_Indexer.sln b/Global_Indexer.sln new file mode 100644 index 0000000..33eb617 --- /dev/null +++ b/Global_Indexer.sln @@ -0,0 +1,118 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.21005.1 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Global_Indexer", "Global_Indexer\Global_Indexer.vbproj", "{7474B1D2-49A4-4D12-B544-C8674D3F7231}" +EndProject +Project("{6141683F-8A12-4E36-9623-2EB02B2C2303}") = "Setup", "Setup\Setup.isproj", "{B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}" + ProjectSection(ProjectDependencies) = postProject + {7474B1D2-49A4-4D12-B544-C8674D3F7231} = {7474B1D2-49A4-4D12-B544-C8674D3F7231} + EndProjectSection +EndProject +Project("{930C7802-8A8C-48F9-8165-68863BCCD9DD}") = "SetupWix", "SetupWix\SetupWix.wixproj", "{5BF6646D-6F46-45E5-8806-8783F030F311}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + CD_ROM|Any CPU = CD_ROM|Any CPU + CD_ROM|Mixed Platforms = CD_ROM|Mixed Platforms + CD_ROM|x86 = CD_ROM|x86 + Debug|Any CPU = Debug|Any CPU + Debug|Mixed Platforms = Debug|Mixed Platforms + Debug|x86 = Debug|x86 + DVD-5|Any CPU = DVD-5|Any CPU + DVD-5|Mixed Platforms = DVD-5|Mixed Platforms + DVD-5|x86 = DVD-5|x86 + Release|Any CPU = Release|Any CPU + Release|Mixed Platforms = Release|Mixed Platforms + Release|x86 = Release|x86 + SingleImage|Any CPU = SingleImage|Any CPU + SingleImage|Mixed Platforms = SingleImage|Mixed Platforms + SingleImage|x86 = SingleImage|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Any CPU.ActiveCfg = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Any CPU.Build.0 = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Mixed Platforms.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|Mixed Platforms.Build.0 = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.CD_ROM|x86.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Any CPU.Build.0 = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Debug|x86.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Any CPU.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Any CPU.Build.0 = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Mixed Platforms.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|Mixed Platforms.Build.0 = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.DVD-5|x86.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Any CPU.ActiveCfg = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Any CPU.Build.0 = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.Release|x86.ActiveCfg = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Any CPU.ActiveCfg = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Any CPU.Build.0 = Release|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.ActiveCfg = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|Mixed Platforms.Build.0 = Debug|Any CPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231}.SingleImage|x86.ActiveCfg = Debug|Any CPU + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Any CPU.ActiveCfg = CD_ROM + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Any CPU.Build.0 = CD_ROM + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Mixed Platforms.ActiveCfg = CD_ROM + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|Mixed Platforms.Build.0 = CD_ROM + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|x86.ActiveCfg = CD_ROM + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.CD_ROM|x86.Build.0 = CD_ROM + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Any CPU.ActiveCfg = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Any CPU.Build.0 = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Mixed Platforms.ActiveCfg = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|Mixed Platforms.Build.0 = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|x86.ActiveCfg = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Debug|x86.Build.0 = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Any CPU.ActiveCfg = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Any CPU.Build.0 = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Mixed Platforms.ActiveCfg = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|Mixed Platforms.Build.0 = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|x86.ActiveCfg = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.DVD-5|x86.Build.0 = DVD-5 + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Any CPU.ActiveCfg = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Any CPU.Build.0 = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Mixed Platforms.ActiveCfg = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|Mixed Platforms.Build.0 = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|x86.ActiveCfg = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.Release|x86.Build.0 = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Any CPU.ActiveCfg = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Any CPU.Build.0 = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Mixed Platforms.ActiveCfg = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|Mixed Platforms.Build.0 = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|x86.ActiveCfg = SingleImage + {B5CC58D2-5A9C-4640-BECC-5D67C2BCFC4B}.SingleImage|x86.Build.0 = SingleImage + {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Any CPU.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|Mixed Platforms.Build.0 = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.CD_ROM|x86.Build.0 = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Any CPU.ActiveCfg = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|Mixed Platforms.Build.0 = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.ActiveCfg = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Debug|x86.Build.0 = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Any CPU.ActiveCfg = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.ActiveCfg = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|Mixed Platforms.Build.0 = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.ActiveCfg = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.DVD-5|x86.Build.0 = Debug|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Any CPU.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Release|Mixed Platforms.Build.0 = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.Release|x86.Build.0 = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Any CPU.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|Mixed Platforms.Build.0 = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.ActiveCfg = Release|x86 + {5BF6646D-6F46-45E5-8806-8783F030F311}.SingleImage|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Global_Indexer/App.config b/Global_Indexer/App.config new file mode 100644 index 0000000..a636abe --- /dev/null +++ b/Global_Indexer/App.config @@ -0,0 +1,23 @@ + + + + +
+ + + + + + + + + + + + 526 + + + + \ No newline at end of file diff --git a/Global_Indexer/ClassDatabase.vb b/Global_Indexer/ClassDatabase.vb new file mode 100644 index 0000000..fcb30ef --- /dev/null +++ b/Global_Indexer/ClassDatabase.vb @@ -0,0 +1,108 @@ +Imports Oracle.ManagedDataAccess.Client +Public Class ClassDatabase + Private Shared SQLSERVERConnectionString As String + Private Shared OracleConnectionString As String + Public Shared Function Init() + Try + SQLSERVERConnectionString = MyConnectionString + Dim SQLconnect As New SqlClient.SqlConnection + SQLconnect.ConnectionString = SQLSERVERConnectionString + SQLconnect.Open() + SQLconnect.Close() + Return True + Catch ex As Exception + ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True) + Return False + End Try + End Function + + Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = SQLSERVERConnectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + SQLcommand.CommandText = Select_anweisung + + Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) + Dim dt As DataTable = New DataTable() + adapter1.Fill(dt) + SQLconnect.Close() + Return dt + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True) + ClassLogger.Add("SQL: " & Select_anweisung, False) + Return Nothing + End Try + End Function + Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False) + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = SQLSERVERConnectionString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = ExecuteCMD + SQLcommand.ExecuteNonQuery() + SQLcommand.Dispose() + SQLconnect.Close() + Return True + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True) + ClassLogger.Add("SQL: " & ExecuteCMD, False) + + Return False + End Try + End Function + Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False) + Dim result + Try + Dim SQLconnect As New SqlClient.SqlConnection + Dim SQLcommand As SqlClient.SqlCommand + SQLconnect.ConnectionString = ConString + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + If userInput = True Then + MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) + End If + ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True) + ClassLogger.Add("SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function + Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) + Dim result + Try + Dim SQLconnect As New OracleConnection + Dim SQLcommand As New OracleCommand + SQLconnect.ConnectionString = OracleConnection + SQLconnect.Open() + SQLcommand = SQLconnect.CreateCommand + 'Update Last Created Record in Foo + SQLcommand.CommandText = cmdscalar + result = SQLcommand.ExecuteScalar() + SQLcommand.Dispose() + SQLconnect.Close() + Return result + Catch ex As Exception + ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True) + ClassLogger.Add("SQL: " & cmdscalar, False) + Return Nothing + End Try + End Function +End Class diff --git a/Global_Indexer/ClassDragDrop.vb b/Global_Indexer/ClassDragDrop.vb new file mode 100644 index 0000000..7c6cb4d --- /dev/null +++ b/Global_Indexer/ClassDragDrop.vb @@ -0,0 +1,124 @@ +Imports System.IO +Imports Microsoft.Office.Interop +Public Class ClassDragDrop + Public Shared files_dropped As String() + Public Shared Function Drop_File(e As DragEventArgs) + Try + ClassLogger.Add(">> Drop_File", False) + files_dropped = Nothing + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim MyFiles() As String + Dim i As Integer + ' Assign the files to an array. + MyFiles = e.Data.GetData(DataFormats.FileDrop) + ' Loop through the array and add the files to the list. + For i = 0 To MyFiles.Length - 1 + ClassLogger.Add(">> Simple FileDrop - File: " & MyFiles(i), False) + ReDim Preserve files_dropped(i) + files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i) + ' ListBox1.Items.Add(MyFiles(i)) + Next + Return files_dropped + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + Dim oApp + Try + oApp = New Outlook.Application() + Catch ex As Exception + MsgBox("Fehler bei Initialisieren von Outlook-API:" & vbNewLine & ex.Message & vbNewLine & vbNewLine & "Evtl ist Outlook nicht in der dafür vorgesehenen For") + End Try + + ClassLogger.Add(">> Drop of msg", False) + 'supports a drop of a Outlook message + Dim myobj As Object + For i As Integer = 1 To oApp.ActiveExplorer.Selection.Count + myobj = oApp.ActiveExplorer.Selection.Item(i) + Dim subj As String = myobj.Subject + If subj.Contains("\") Then + subj = subj.Replace("\", "-") + End If + If subj.Contains("/") Then + subj = subj.Replace("/", "-") + End If + 'hardcode a destination path for testing + Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (subj + ".msg").Replace(":", "")) + ClassLogger.Add(">> Drop of msg - File:" & strFile, False) + + myobj.SaveAs(strFile) + ReDim Preserve files_dropped(i) + files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile + Next + Return files_dropped + 'Drop eines Outlook Attachments + ElseIf (e.Data.GetDataPresent("aryFileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then + '// the first step here is to get the stbFileName + '// of the attachment and + '// build a full-path name so we can store it + '// in the temporary folder + '// + '// set up to obtain the aryFileGroupDescriptor + '// and extract the file name + Dim stmInput As IO.Stream = CType(e.Data.GetData("FileGroupDescriptor"), IO.Stream) + Dim aryFileGroupDescriptor(512) As Byte ' = new byte[512] + stmInput.Read(aryFileGroupDescriptor, 0, 512) + '// used to build the stbFileName from the aryFileGroupDescriptor block + Dim stbFileName As System.Text.StringBuilder = New System.Text.StringBuilder("") + '// this trick gets the stbFileName of the passed attached file + Dim intCnt As Integer = 76 + Do While aryFileGroupDescriptor(intCnt) <> 0 + stbFileName.Append(Convert.ToChar(aryFileGroupDescriptor(intCnt), System.Globalization.CultureInfo.CreateSpecificCulture("de-DE"))) + intCnt += 1 + Loop + stmInput.Close() + + Dim anhaenge = e.Data.GetDataPresent("FileContents") + 'Dim path As String = "C:\VBProjekte\Dateien" + '// put the zip file into the temp directory + Dim strOutFile As String = Path.GetTempPath() & stbFileName.ToString() + '// create the full-path name + '// + '// Second step: we have the file name. + '// Now we need to get the actual raw + '// data for the attached file and copy it to disk so we work on it. + '// + '// get the actual raw file into memory + Dim msInput As IO.MemoryStream = CType(e.Data.GetData("FileContents", True), IO.MemoryStream) 'This returns nothing for an Email + If msInput Is Nothing = False Then + '// allocate enough bytes to hold the raw date + Dim aryFileBytes(CType(msInput.Length, Int32)) As Byte + '// set starting position at first byte and read in the raw data + msInput.Position = 0 + msInput.Read(aryFileBytes, 0, CType(msInput.Length, Int32)) + '// create a file and save the raw zip file to it + Dim fsOutput As IO.FileStream = New IO.FileStream(strOutFile, IO.FileMode.Create) '; + fsOutput.Write(aryFileBytes, 0, aryFileBytes.Length) + fsOutput.Close() ' // close the file + + Dim finTemp As IO.FileInfo = New IO.FileInfo(strOutFile) + '// always good to make sure we actually created the file + If (finTemp.Exists = True) Then + ReDim Preserve files_dropped(0) + files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile + If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) + Return files_dropped + Else + ClassLogger.Add(">> Attachment File from Outlook could not be created", False) + End If + End If + + End If + Catch ex As Exception + MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Function + ''' + ''' Diese Funktion entfernt alle Zeichen aus dem übergebenen String + ''' die in Dateinamen nicht erlaubt sind. + ''' + ''' Der zu prüfende String + ''' String ohne nichterlaubte Zeichen + Private Shared Function AdjustPath(Input As String) As String + Return System.Text.RegularExpressions.Regex.Replace(Input, "[\\/:*?""<>|]", String.Empty) + End Function +End Class diff --git a/Global_Indexer/ClassEmailHeaderExtractor.vb b/Global_Indexer/ClassEmailHeaderExtractor.vb new file mode 100644 index 0000000..c1b1e51 --- /dev/null +++ b/Global_Indexer/ClassEmailHeaderExtractor.vb @@ -0,0 +1,81 @@ +Imports Independentsoft +Imports System.Text.RegularExpressions + +Public Class ClassEmailHeaderExtractor + ''' + ''' Extrahiert die Headerinformationen aus einer .msg Datei mithilfe der MSG.NET Klasse + ''' + ''' Der Pfad einer .msg Datei + ''' Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist. + Public Shared Function getMessageHeaders(path As String) + Try + Dim msg As New Msg.Message(path) + Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ") + Return headers + Catch ex As Exception + Return Nothing + End Try + End Function + + ''' + ''' Extrahiert die Headerinformationen aus einem msg Objekt mithilfe der MSG.NET Klasse + ''' + ''' Eine Email vom Typ Msg.Message + ''' Headerinformationen als String oder Nothing wenn ein Fehler aufgetreten ist. + Public Shared Function getMessageHeaders(msg As Msg.Message) + Try + Dim headers = msg.TransportMessageHeaders.Replace(vbCrLf, " ") + Return headers + Catch ex As Exception + Return Nothing + End Try + End Function + + ''' + ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Absenderadresse. + ''' + ''' Headerinformationen die von getMessageHeaders erzeugt wurden. + ''' Eine Liste von Regular Expressions + ''' Die Ergebnisgruppe, die die Adresse enthält + ''' Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte. + Public Shared Function extractFromAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) + If IsNothing(messageHeaders) Then + Return Nothing + End If + + For Each rx In RegexList + Dim match As Match = rx.Match(messageHeaders) + Dim email As String = match.Groups(RegexGroup).Value + + If Not String.IsNullOrWhiteSpace(email) Then + Return email + End If + Next + + Return Nothing + End Function + + ''' + ''' Extrahiert aus den Headerinformationen anhand einer Liste von Regular Expressions eine Empfängeradresse. + ''' + ''' Headerinformationen die von getMessageHeaders erzeugt wurden. + ''' Eine Liste von Regular Expressions + ''' Die Ergebnisgruppe, die die Adresse enthält + ''' Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte. + Public Shared Function extractToAddress(messageHeaders As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) + If IsNothing(messageHeaders) Then + Return Nothing + End If + + For Each rx In RegexList + Dim match As Match = rx.Match(messageHeaders) + Dim email As String = match.Groups(RegexGroup).Value + + If Not String.IsNullOrWhiteSpace(email) Then + Return email + End If + Next + + Return Nothing + End Function +End Class diff --git a/Global_Indexer/ClassEncryption.vb b/Global_Indexer/ClassEncryption.vb new file mode 100644 index 0000000..b0bfa39 --- /dev/null +++ b/Global_Indexer/ClassEncryption.vb @@ -0,0 +1,68 @@ +Imports System.Security.Cryptography +Public Class ClassEncryption + Private TripleDes As New TripleDESCryptoServiceProvider + Sub New(ByVal key As String) + ' Initialize the crypto provider. + TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8) + TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8) + End Sub + + Private Function TruncateHash( + ByVal key As String, + ByVal length As Integer) As Byte() + + Dim sha1 As New SHA1CryptoServiceProvider + + ' Hash the key. + Dim keyBytes() As Byte = + System.Text.Encoding.Unicode.GetBytes(key) + Dim hash() As Byte = sha1.ComputeHash(keyBytes) + + ' Truncate or pad the hash. + ReDim Preserve hash(length - 1) + Return hash + End Function + Public Function EncryptData( + ByVal plaintext As String) As String + + ' Convert the plaintext string to a byte array. + Dim plaintextBytes() As Byte = + System.Text.Encoding.Unicode.GetBytes("!Didalog35452Heuchelheim=" & plaintext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the encoder to write to the stream. + Dim encStream As New CryptoStream(ms, + TripleDes.CreateEncryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + encStream.Write(plaintextBytes, 0, plaintextBytes.Length) + encStream.FlushFinalBlock() + + ' Convert the encrypted stream to a printable string. + Return Convert.ToBase64String(ms.ToArray) + End Function + 'Entschlüsselt die Zeichenfolge + Public Function DecryptData( + ByVal encryptedtext As String) As String + + ' Convert the encrypted text string to a byte array. + Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext) + + ' Create the stream. + Dim ms As New System.IO.MemoryStream + ' Create the decoder to write to the stream. + Dim decStream As New CryptoStream(ms, + TripleDes.CreateDecryptor(), + System.Security.Cryptography.CryptoStreamMode.Write) + + ' Use the crypto stream to write the byte array to the stream. + decStream.Write(encryptedBytes, 0, encryptedBytes.Length) + decStream.FlushFinalBlock() + Dim result = System.Text.Encoding.Unicode.GetString(ms.ToArray) + result = result.Replace("!Didalog35452Heuchelheim=", "") + ' Convert the plaintext stream to a string. + Return result + End Function +End Class diff --git a/Global_Indexer/ClassFolderWatcher.vb b/Global_Indexer/ClassFolderWatcher.vb new file mode 100644 index 0000000..3c3c629 --- /dev/null +++ b/Global_Indexer/ClassFolderWatcher.vb @@ -0,0 +1,162 @@ +Imports System.IO +Imports Independentsoft +Imports System.Threading + +Public Class ClassFolderWatcher + Public Shared FolderWatcher As FileSystemWatcher + Public Shared Function Restart_FolderWatch() + If FolderWatcher.EnableRaisingEvents = True Then + 'Gestartet also Stoppen + FolderWatcher.EnableRaisingEvents = False + FW_started = False + 'FolderWatch neu instanzieren + FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") + ClassLogger.Add(" >> FolderWatch neu instanziert", False) + FolderWatcher.IncludeSubdirectories = False + FolderWatcher.EnableRaisingEvents = True + AddHandler FolderWatcher.Created, AddressOf OnCreated + FW_started = True + SaveConfigValue("FW_started", "True") + End If + End Function + Public Shared Function StartStop_FolderWatch() + Try + If CURRENT_FOLDERWATCH = "" Then + MsgBox("Bitte definieren Sie einen Überwachungsordner:", MsgBoxStyle.Exclamation) + Return False + End If + If FolderWatcher Is Nothing Then + FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") + ClassLogger.Add(" >> FolderWatch Gestartet", False) + FolderWatcher.IncludeSubdirectories = False + FolderWatcher.EnableRaisingEvents = True + AddHandler FolderWatcher.Created, AddressOf OnCreated + FW_started = True + SaveConfigValue("FW_started", "True") + Return 1 + End If + If FolderWatcher.EnableRaisingEvents = False Then + ' Dim watcher As New FileSystemWatcher() + ' watcher.Path = CURRENT_FOLDERWATCH + FolderWatcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") + ClassLogger.Add(" >> FolderWatch Gestartet", False) + FolderWatcher.IncludeSubdirectories = False + FolderWatcher.EnableRaisingEvents = True + AddHandler FolderWatcher.Created, AddressOf OnCreated + FW_started = True + SaveConfigValue("FW_started", "True") + Return 1 + Else + 'Gestartet also Stoppen + FolderWatcher.EnableRaisingEvents = False + FW_started = False + ClassLogger.Add(" >> FolderWatch gestoppt", False) + SaveConfigValue("FW_started", "False") + Return 0 + End If + 'If watcher.EnableRaisingEvents = False Then + ' watcher = New System.IO.FileSystemWatcher(CURRENT_FOLDERWATCH, "*.*") + ' ClassLogger.Add(" - vFolderWatch.Gestartet", False) + ' watcher.IncludeSubdirectories = False + ' watcher.EnableRaisingEvents = True + ' AddHandler watcher.Created, AddressOf OnCreated + ' Return 1 + 'Else + ' 'Gestartet also Stoppen + ' watcher.EnableRaisingEvents = False + ' Return 0 + 'End If + Catch ex As Exception + MsgBox("Error in StartStop_FolderWatch:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return 99 + End Try + End Function + 'Private Sub folder_watch_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles vFolderWatch.Created + ' Try + ' 'ersten Dateinamen übergeben + ' If LogErrorsOnly = False Then + ' ClassLogger.Add(" >> vFolderWatch1.Created " & e.Name, False) + ' End If + ' CURRENT_FILENAME = e.Name + + ' Catch ex As Exception + ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created") + ' End Try + + 'End Sub + Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs) + Try + If e.FullPath.Contains("Thumbs.") Or e.FullPath.EndsWith(".tmp") Or e.FullPath.Contains("\~$") Then + Exit Sub + End If + Dim praefix As String + If e.FullPath.EndsWith(".msg") Then + praefix = "@FW_OUTLOOK_MESSAGE@" + Else + praefix = "@FW_SIMPLEINDEXER@" + End If + 'ersten Dateinamen übergeben + CURRENT_FILENAME = e.FullPath + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND USER@WORK = '" & Environment.UserName & "'", True) + If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & CURRENT_FILENAME, False) + If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then + Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & CURRENT_FILENAME & "','" & Environment.UserName & "','" & praefix & "')" + ClassDatabase.Execute_non_Query(ins, True) + Else + Console.WriteLine("File existiert bereeits") + End If + 'frmMain.MyNewTimer() + + 'ShowIndexForm() + 'Dim file = CURRENT_FILENAME + 'Dim frm As New frmIndex + 'frm.ShowDialog() + ''Jetzt die Anhänge auslesen + 'If file.EndsWith(".msg") Then + ' Dim _msg As New Msg.Message(CURRENT_FILENAME) + ' Dim i1 As Integer = 1 + ' For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments + ' If attachment.DisplayName Is Nothing Then + ' If Not attachment.LongFileName Is Nothing And Not attachment.LongFileName.Contains("inline") Then + ' Dim tempfile As String = Path.Combine(Path.GetTempPath, attachment.LongFileName) + ' If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) + ' attachment.Save(tempfile) + ' CURRENT_FILENAME = "@ATTMNTEXTRACTED@" & tempfile + ' frmIndex.ShowDialog() + ' i1 += 1 + ' End If + ' End If + ' Next + + + 'End If + + ''Prüfen ob alle Files abgearbeitet wurden + 'Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND USER@WORK = '" & Environment.UserName & "'") + 'If DT.Rows.Count > 0 Then + ' For Each row As DataRow In DT.Rows + ' MsgBox("Abbrechen nicht möglich:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation) + ' CURRENT_FILENAME = row.Item(1) + ' frmIndex.ShowDialog() + ' Next + 'End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created") + End Try + + End Sub + Sub Check_Dropped_Files() + Try + + + Catch ex As Exception + MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + _ + Public Shared Sub ShowIndexForm() + Dim frm As New frmIndex + frm.ShowDialog() + End Sub +End Class diff --git a/Global_Indexer/ClassFormFunctions.vb b/Global_Indexer/ClassFormFunctions.vb new file mode 100644 index 0000000..0ecae28 --- /dev/null +++ b/Global_Indexer/ClassFormFunctions.vb @@ -0,0 +1,61 @@ +Imports System.Text.RegularExpressions +Public Class ClassFormFunctions + Public Shared Function GetConnectionString(id As Integer) + Dim connectionString As String = "" + Try + 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) + Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) + If DTConnection.Rows.Count = 1 Then + Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") + Case "MS-SQLServer" + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Case "Oracle" + If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then + connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";" + Else + connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True" + End If + 'Dim conn As New OracleConnectionStringBuilder + + 'If chkOR_ohne_TNS.Checked Then + ' connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + ' DATENBANKTextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";" + 'Else + ' conn.DataSource = DATENBANKTextBox.Text + ' conn.UserID = USERNAMETextBox.Text + ' conn.Password = PASSWORDTextBox.Text + ' conn.PersistSecurityInfo = True + ' conn.ConnectionTimeout = 120 + ' connstr = conn.ConnectionString + 'End If + + + + 'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no; + + Case Else + ClassLogger.Add(" - ConnectionType nicht integriert", False) + MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!") + End Select + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei GetConnectionString - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetConnectionString:") + + End Try + Return connectionString + End Function + Public Shared Function CleanInput(strIn As String) As String + ' Replace invalid characters with empty strings. + Try + Return Regex.Replace(strIn, "[^\w\.@-]", "") + ' If we timeout when replacing invalid characters, + ' we should return String.Empty. + Catch e As RegexMatchTimeoutException + Return String.Empty + End Try + End Function + +End Class diff --git a/Global_Indexer/ClassHotkey.vb b/Global_Indexer/ClassHotkey.vb new file mode 100644 index 0000000..f55388e --- /dev/null +++ b/Global_Indexer/ClassHotkey.vb @@ -0,0 +1,50 @@ +Public Class ClassHotkey + +#Region "Declarations - WinAPI, Hotkey constant and Modifier Enum" + ''' + ''' Declaration of winAPI function wrappers. The winAPI functions are used to register / unregister a hotkey + ''' + Public Declare Function RegisterHotKey Lib "user32" _ + (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer + + Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer + + Public Const WM_HOTKEY As Integer = &H312 + + Enum KeyModifier + Alt = &H1 + Control = &H2 + Shift = &H4 + Winkey = &H8 + + End Enum 'This enum is just to make it easier to call the registerHotKey function: The modifier integer codes are replaced by a friendly "Alt","Shift" etc. +#End Region + + +#Region "Hotkey registration, unregistration and handling" + Public Shared Sub registerHotkey(ByRef sourceForm As Form, ByVal hotkeyID As Integer, ByVal triggerKey As String, ByVal modifier As KeyModifier) + RegisterHotKey(sourceForm.Handle, hotkeyID, modifier, Asc(triggerKey.ToUpper)) + End Sub + Public Shared Sub unregisterHotkeys(ByRef sourceForm As Form) + 'Try + UnregisterHotKey(sourceForm.Handle, 1) 'Remember to call unregisterHotkeys() when closing your application. + UnregisterHotKey(sourceForm.Handle, 2) + UnregisterHotKey(sourceForm.Handle, 3) + 'Catch ex As Exception + ' ClassLogger.Add("Unerwarteter Fehler in Unregister Hotkeys´: " & ex.Message, True) + 'End Try + + End Sub + 'Public Shared Sub handleHotKeyEvent(ByVal hotkeyID As IntPtr) + ' Select Case hotkeyID + ' Case 1 + ' MsgBox("The hotkey ALT+W (ID: 1) was pressed") + ' Case 2 + ' MsgBox("The hotkey ALT+E (ID: 2) was pressed") + ' Case 3 + ' MsgBox("The hotkey ALT+R (ID: 3) was pressed") + ' End Select + 'End Sub +#End Region + +End Class diff --git a/Global_Indexer/ClassHotkey_Windream.vb b/Global_Indexer/ClassHotkey_Windream.vb new file mode 100644 index 0000000..952ba12 --- /dev/null +++ b/Global_Indexer/ClassHotkey_Windream.vb @@ -0,0 +1,222 @@ +Imports System.IO +Imports System.Text + +Public Class ClassHotkey_Windream + Private Shared fileContents As String + Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String) + Try + Dim Control_Sequence As Integer = 0 + Dim enumerator1 As New ClassWindowAPI + 'Jedes Formularwindow durchlaufen + For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() + If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then + Control_Sequence = 0 + For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) + If vControl.MainWindowTitle <> "" Then + If Control_Sequence = myControlNo Then + If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then + Return True + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.", False) + Return False + End If + End If + End If + Control_Sequence += 1 + Next vControl + Return False + End If + Next top + Catch ex As Exception + MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False) + Return False + End Try + End Function + Private Shared Function Get_windowContent(windowname As String, myControlID As Integer) + Try + Dim Control_Sequence As Integer = 0 + Dim enumerator1 As New ClassWindowAPI + 'Jedes Formularwindow durchlaufen + For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() + If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then + Control_Sequence = 0 + For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) + If vControl.MainWindowTitle <> "" Then + If Control_Sequence = myControlID Then + If LogErrorsOnly = False Then ClassLogger.Add(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle, False) + Return vControl.MainWindowTitle.ToString + End If + End If + Control_Sequence += 1 + Next vControl + Return Nothing + End If + Next top + Catch ex As Exception + MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add(">> Error in Get_windowContent:" & ex.Message, False) + Return Nothing + End Try + End Function + + Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer) + Try + If LogErrorsOnly = False Then ClassLogger.Add(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'", False) + Dim DTWD As DataTable + Dim Objecttype As String + Dim windowname As String + Dim HKPROFILE_ID As Integer + + + Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID + DTWD = ClassDatabase.Return_Datatable(_sql) + If DTWD.Rows.Count = 0 Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...KEINE USER_PROFILES hinterlegt", False) + Return "Uncexpected Error in Hotkey - Check Log for Hotkey" + End If + If DTWD.Rows.Count > 1 Then + ClassLogger.Add("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!", True) + Return "Uncexpected Error in Hotkey - Check Log for Hotkey" + End If + If DTWD.Rows(0).Item(0) = "" Then + If LogErrorsOnly = False Then ClassLogger.Add(">> KEINE Windream-Suche hinterlegt!", False) + Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey" + End If + Dim BaseSearch = DTWD.Rows(0).Item(0) + Dim extension = Path.GetExtension(BaseSearch) + HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID") + Dim windream_temp_search As String = "" + If IO.File.Exists(BaseSearch) = False Then + ClassLogger.Add("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", True) + MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) + Return Nothing + End If + windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True) + fileContents = "" + + + + 'Eine tempfile generieren + Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) + 'tempfile löschen + If My.Computer.FileSystem.FileExists(tempFilename1) Then + My.Computer.FileSystem.DeleteFile(tempFilename1) + End If + + Dim temppath = Path.GetTempPath + + Dim EncodingFormat As Encoding + Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True) + If WDUnicode = True Then + EncodingFormat = Encoding.GetEncoding(1252) '1252 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Unicode is used (Encoding.GetEncoding(1252))", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...UTF8 (Encoding.GetEncoding(65001))", False) + EncodingFormat = Encoding.GetEncoding(65001) + End If + + Dim DT_HOOKS As DataTable = ClassDatabase.Return_Datatable("select * from TBHOTKEY_WINDOW_HOOK where HKPROFILE_ID = " & HKPROFILE_ID, True) + If DT_HOOKS.Rows.Count > 0 Then + Dim RelevantWindow As Boolean = False + For Each row As DataRow In DT_HOOKS.Rows + RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE")) + If RelevantWindow = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Not the relevant window", False) + Return "Not the Relevant window......" + End If + Next + End If + + + If LogErrorsOnly = False Then ClassLogger.Add(" ...ReadAlltext: " & BaseSearch, False) + fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode + If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents geladen", False) + fileContents = fileContents.Replace("Í", "Ö") + 'Das Array für die PAtterns anpassen + _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID + Dim DT_PATTERNS As DataTable = ClassDatabase.Return_Datatable(_sql, True) + If DT_PATTERNS.Rows.Count > 0 Then + Dim i As Integer = 0 + For Each row As DataRow In DT_PATTERNS.Rows + If LogErrorsOnly = False Then ClassLogger.Add(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'", False) + Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString) + If Not IsNothing(foundresult) Then + 'Die Nachbearbeitungsschritte laden + Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID = " & row.Item("GUID") & " ORDER BY SEQUENCE") + If DTNB Is Nothing = False Then + If DTNB.Rows.Count > 0 Then + foundresult = ClassPostprocessing.Get_Nachbearbeitung_Wert(foundresult, DTNB) + End If + End If + End If + If Not IsNothing(foundresult) Then + If foundresult.ToString = "<" Or foundresult.ToString = ">" Then + ClassLogger.Add(">> Hot Key received an irregular value.", False) + Return "Hotkey konnte nur einen irregulären Wert auswerten." + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'", False) + fileContents = fileContents.Replace(row.Item(2).ToString, foundresult) + If LogErrorsOnly = False Then ClassLogger.Add(" ...fileContents.length: " & fileContents.Length, False) + Else + ClassLogger.Add(">> Hot Key could not read any value.", False) + Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?" + End If + Next + End If + Try + 'Die windream File zusammensetzen + windream_temp_search = temppath & tempName & extension + Try + 'Die File schreiben + My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) + If LogErrorsOnly = False Then ClassLogger.Add(" ...wrote Text to windream_temp_search: " & windream_temp_search, False) + ' XML-Datei öffnen und laden + Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) + Dim Reader As New System.Xml.XmlTextReader(Stream) + + ' XML-Datei initialisieren + Dim xml As New System.Xml.XmlDocument() + ' XML-Datei öffnen und laden + xml.Load(Reader) + Reader.Close() + xml.Save(windream_temp_search) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Xml Generiert: " & windream_temp_search, False) + Catch ex As Exception + ClassLogger.Add("TempFile could not be created: " & ex.Message, True) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler in Write XmlSearch:") + End Try + + CURRENT_WD_TEMPSEARCH = windream_temp_search + Try + Dim p As New Process() + p.StartInfo.FileName = windream_temp_search + p.StartInfo.WindowStyle = ProcessWindowStyle.Normal + p.Start() + 'p.WaitForExit() + 'p.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen der windream-Suche:") + ClassLogger.Add("Unexpected error while executing search: " & ex.Message, True) + Return "Unexpected error while executing search" + End Try + + Return "" + Catch ex As Exception + ClassLogger.Add("Unexpected error in Create Search: " & ex.Message, True) + MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return "Unexpected error in Create Search" + End Try + + Catch ex As Exception + ClassLogger.Add("Unexpected error in RUN_WD_SEARCH: " & ex.Message, True) + MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return "Unerwarteter Fehler bei RUN_WD_SEARCH" + End Try + + + End Function +End Class diff --git a/Global_Indexer/ClassIndexFunctions.vb b/Global_Indexer/ClassIndexFunctions.vb new file mode 100644 index 0000000..e66727b --- /dev/null +++ b/Global_Indexer/ClassIndexFunctions.vb @@ -0,0 +1,16 @@ + + +Public Class ClassIndexFunctions + Public Shared Function FileExistsinDropTable(Filename As String) + Dim check As String + Try + check = "SELECT COUNT(*) FROM TBGI_FILES_USER WHERE UPPER(FILENAME2WORK) = UPPER('" & Filename & "') AND WORKED = 0" + Dim result = ClassDatabase.Execute_Scalar(check, MyConnectionString, True) + Return result + Catch ex As Exception + MsgBox("Error in FileExistsinDropTable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & check, MsgBoxStyle.Critical) + Return Nothing + End Try + + End Function +End Class diff --git a/Global_Indexer/ClassLayout.vb b/Global_Indexer/ClassLayout.vb new file mode 100644 index 0000000..4b756dc --- /dev/null +++ b/Global_Indexer/ClassLayout.vb @@ -0,0 +1,166 @@ +Imports System.Xml +Imports System.IO + +Public Class ClassWindowLocation + + Public Shared Sub LoadFormLocationSize(ByRef form As Form) + Try + Dim _path As String + _path = Path.Combine(Application.UserAppDataPath(), "FORM" & form.Name & "-PositionSize.xml") + + Dim layout As ClassLayout = New ClassLayout(_path) + Dim settings As System.Collections.Generic.List(Of ClassSetting) + settings = layout.Load() + + If settings.Count = 0 Then + settings.Add(New ClassSetting("PositionX", form.Location.X)) + settings.Add(New ClassSetting("PositionY", form.Location.Y)) + settings.Add(New ClassSetting("Width", form.Size.Width)) + settings.Add(New ClassSetting("Height", form.Size.Height)) + layout.Save(settings) + End If + + For Each s As ClassSetting In settings + Dim x, y, w, h As Integer + + Select Case s._name + Case "PositionX" + x = Integer.Parse(s._value) + Case "PositionY" + y = Integer.Parse(s._value) + Case "Width" + w = Integer.Parse(s._value) + Case "Height" + h = Integer.Parse(s._value) + End Select + + If x = 5000 Then + form.WindowState = FormWindowState.Maximized + Else + If x > 0 Then + form.Location = New Point(x, y) + End If + form.Size = New Size(w, h) + End If + + Next + Catch notFoundEx As System.IO.FileNotFoundException + + Catch ex As Exception + MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Public Shared Sub SaveFormLocationSize(ByRef form As Form) + Try + Dim _path As String + _path = Path.Combine(Application.UserAppDataPath(), "FORM" & form.Name & "-PositionSize.xml") + + Dim layout As ClassLayout = New ClassLayout(_path) + Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) + Dim width As Integer + Dim height As Integer + Dim x As Integer + Dim y As Integer + If form.WindowState = FormWindowState.Maximized Then + width = 5000 + height = 5000 + x = 5000 + y = 5000 + Else + width = form.Size.Width + height = form.Size.Height + x = form.Location.X + y = form.Location.Y + End If + + settings.Add(New ClassSetting("PositionX", x)) + settings.Add(New ClassSetting("PositionY", y)) + settings.Add(New ClassSetting("Width", width)) + settings.Add(New ClassSetting("Height", height)) + + layout.Save(settings) + Catch notFoundEx As System.IO.FileNotFoundException + + Catch ex As Exception + MsgBox("Error while saving Window Positions:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + + End Sub + + +End Class + + +'------------------------------------------------------------------- + +Public Class ClassSetting + Public _name As String + Public _value As Integer + + Public Sub New(name As String, value As Integer) + _name = name + _value = value + End Sub +End Class + +Public Class ClassLayout + Private _filename As String + Private _reader As XmlReader + Private _settings As XmlWriterSettings + + Public Sub New(filename As String) + _filename = filename + + _settings = New XmlWriterSettings() + _settings.Encoding = System.Text.Encoding.UTF8 + _settings.Indent = True + End Sub + + Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting)) + Dim w = XmlTextWriter.Create(_filename, _settings) + + w.WriteStartDocument() + w.WriteStartElement("Settings") + + For Each setting As ClassSetting In settings + w.WriteStartElement("Setting") + w.WriteAttributeString("name", setting._name) + w.WriteAttributeString("value", setting._value.ToString()) + w.WriteEndElement() + Next + + w.WriteEndElement() + w.WriteEndDocument() + + w.Dispose() + w.Close() + End Sub + + Public Function Load() As System.Collections.Generic.List(Of ClassSetting) + Dim Result As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)() + + If Not File.Exists(_filename) Then + Return Result + End If + + _reader = XmlReader.Create(_filename) + + While _reader.Read() + If _reader.IsStartElement() Then + If _reader.Name = "Setting" Then + Dim name As String = _reader("name") + Dim value As Integer = Integer.Parse(_reader("value")) + Dim setting As ClassSetting = New ClassSetting(name, value) + Result.Add(setting) + End If + End If + End While + + _reader.Dispose() + _reader.Close() + + Return Result + End Function +End Class diff --git a/Global_Indexer/ClassLogger.vb b/Global_Indexer/ClassLogger.vb new file mode 100644 index 0000000..7a06ac7 --- /dev/null +++ b/Global_Indexer/ClassLogger.vb @@ -0,0 +1,204 @@ +Imports System.IO +Public Class ClassLogger + Public Shared DateiSpeicherort As String = Nothing + Public Shared DateiPrefix As String = "" + Public Shared Datei As IO.File = Nothing + Public Shared logDateiname As String = "" + Private Shared StreamWriter As IO.StreamWriter = Nothing + Private Shared HasInformedAboutError As Boolean = False + ' eine Art Konstruktor + Public Shared Sub Init(ByVal speicherort As String, Optional ByVal prefix As String = "", Optional ByVal appendFile As Boolean = True) + ' initialisiert den Speicherort + ClassLogger.SetSpeicherort(speicherort) + ' wenn ein Prfix gesetzt wurde + If Not prefix = "" Then + ' initialisiert das Prefix + ClassLogger.SetPrefix(prefix) + End If + Dim str As String = ClassLogger.DateiSpeicherort & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt" + Dim anz As Integer = 1 + Do While File.Exists(str) + Dim info As New FileInfo(str) + Dim length As Long = info.Length + If length > 5000000 Then + str = IO.Path.GetDirectoryName(str) + str = str & "\" & ClassLogger.DateiPrefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt" + anz = anz + 1 + Else + Exit Do + End If + Loop + ClassLogger.logDateiname = str + If Not appendFile Then + ' der Versuch die Datei zu löschen + 'Try + ' My.Computer.FileSystem.DeleteFile(ClassNILogger.Dateiname, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently) + 'Catch ex As Exception + ' ' bei Fehler besteht kein Schreibrecht auf die Datei oder Datei existiert nicht + ' ' ALSO: alles Okay soweit + 'End Try + My.Computer.FileSystem.WriteAllText(ClassLogger.logDateiname, String.Empty, False) + End If + ' testen ob sich die Datei öffnen und beschreiben lässt + 'ClassNILogger.CheckIsLogWritable() + End Sub + + ' legt den Speicherort fest + Public Shared Sub SetSpeicherort(ByVal speicherort As String) + Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log") + If speicherort = "" Then + If f.Exists = False Then + IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log") + End If + ClassLogger.DateiSpeicherort = My.Application.Info.DirectoryPath & "\Log\" + Else + ClassLogger.DateiSpeicherort = speicherort + End If + End Sub + + ' legt das Prefix für den Dateinamen fest + Public Shared Sub SetPrefix(ByVal prefix As String) + ClassLogger.DateiPrefix = prefix + End Sub + + Public Shared Sub Add(ByVal information As String, Optional ByVal ACHTUNG As Boolean = True) + If ClassLogger.OpenFile Then + Try + If ACHTUNG Then + ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information) + Else + ClassLogger.StreamWriter.WriteLine(information) + End If + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + Public Shared Sub Add(ByVal ex As Exception) + If ClassLogger.OpenFile Then + Try + ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")") + ClassLogger.StreamWriter.WriteLine("##### Fehler: " & ex.Message & " Source [" & ex.Source & "]") + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + End Try + Else + ClassLogger.ShowErrorMessage() + End If + End Sub + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile() + Try + ' wenn ein Speicherort festgelegt wurde + If Not ClassLogger.DateiSpeicherort = Nothing Then + ' den Dateienamen definieren + Dim dateiname As String = ClassLogger.logDateiname + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + ' die Datei zum Schreiben öffnen + ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLogger.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + Catch ex As Exception + Return False + End Try + + End Function + + ' öffnet eine Datei zum Schreiben + Private Shared Function OpenFile(ByVal DateiSpeicherort As String, ByVal DateiPrefix As String) + + Try + + ' wenn ein Speicherort festgelegt wurde + If Not DateiSpeicherort = Nothing And ClassLogger.CheckIsLogWritable() Then + + ' den Dateienamen definieren + Dim dateiname As String = ClassLogger.logDateiname + ' Datei anlegen wenn noch nicht vorhanden + My.Computer.FileSystem.WriteAllText(dateiname, String.Empty, True) + + ' die Datei zum Schreiben öffnen + ClassLogger.StreamWriter = New IO.StreamWriter(dateiname, True, System.Text.Encoding.UTF8) + End If + + ' wenn die Datei erfolgreich geöffnet wurde + If ClassLogger.StreamWriter IsNot Nothing Then + Return True + Else + Return False + End If + + Catch ex As Exception + Return False + End Try + + End Function + + + ' schliesst die geöffnete Datei + Private Shared Sub CloseFile() + + ' wenn eine Datei geöffnet ist + If ClassLogger.StreamWriter IsNot Nothing Then + ' die Datei schliessen + ClassLogger.StreamWriter.Close() + ClassLogger.StreamWriter = Nothing + End If + End Sub + + + Public Shared Function CheckIsLogWritable() + + If ClassLogger.OpenFile Then + Try + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + Return False + End Try + Else + ClassLogger.ShowErrorMessage() + Return False + End If + + Return True + End Function + + + Public Shared Function CheckIsLogWritable(ByVal vDateiSpeicherort As String, ByVal vDateiPrefix As String) + + If ClassLogger.OpenFile(vDateiSpeicherort, vDateiPrefix) Then + Try + ClassLogger.CloseFile() + Catch e As Exception + ClassLogger.ShowErrorMessage() + Return False + End Try + Else + ClassLogger.ShowErrorMessage() + Return False + End If + + Return True + End Function + + + Private Shared Sub ShowErrorMessage() + If Not ClassLogger.HasInformedAboutError Then + MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _ + vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _ + MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei") + ClassLogger.HasInformedAboutError = True + End If + End Sub +End Class diff --git a/Global_Indexer/ClassPostprocessing.vb b/Global_Indexer/ClassPostprocessing.vb new file mode 100644 index 0000000..53cff7e --- /dev/null +++ b/Global_Indexer/ClassPostprocessing.vb @@ -0,0 +1,74 @@ +Imports System.Text.RegularExpressions + +Public Class ClassPostprocessing + Public Shared Function Get_Nachbearbeitung_Wert(idxvalue As String, DTNB As DataTable) As String + Dim result As String = idxvalue + Try + For Each row As DataRow In DTNB.Rows + Select Case row.Item("TYPE").ToString.ToUpper + Case "VBSPLIT" + If LogErrorsOnly = False Then ClassLogger.Add(" ... Nachbearbeitung mit VBSPLIT", False) + Dim strSplit() As String + strSplit = result.Split(row.Item("TEXT1")) + For i As Integer = 0 To strSplit.Length - 1 + If i = CInt(row.Item("TEXT2")) Then + If LogErrorsOnly = False Then ClassLogger.Add(" ... Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False) + result = strSplit(i).ToString + End If + Next + Case "VBREPLACE" + If LogErrorsOnly = False Then + ClassLogger.Add(" ... Nachbearbeitung mit VBREPLACE", False) + ClassLogger.Add(" ... Ersetze '" & row.Item("TEXT1") & "' mit '" & row.Item("TEXT2") & "'", False) + result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) + End If + + result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) + Case "Regular Expression" + If LogErrorsOnly = False Then ClassLogger.Add(" ... NAchbearbeitung mit RegEx", False) + Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) + Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase) + RegexList.Add(Regex) + ' + Dim resultRegex = ClassPostprocessing.extractFromStringviaRE(result, RegexList) + If Not IsNothing(resultRegex) Then + If LogErrorsOnly = False Then ClassLogger.Add(" ... Ergebnis des RegEx: " & resultRegex.ToString, False) + result = resultRegex.ToString + Else + ClassLogger.Add("Postprocessing RegEx konnte kein ergebnis auswerten!", True) + End If + End Select + Next + Return result + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_Nachbearbeitung_Wert:") + Return result + End Try + + End Function + + ''' + ''' Extrahiert aus dem String anhand einer Liste von Regular Expressions ein Ergebnis. + ''' + ''' Der zu untersuchende String erzeugt wurden. + ''' Eine Liste von Regular Expressions + ''' Die Ergebnisgruppe, die die Adresse enthält + ''' Eine Emailadresse oder Nothing, wenn keine der Regular Expressions ein Ergebnis lieferte. + Public Shared Function extractFromStringviaRE(SearchString As String, RegexList As List(Of Regex), Optional RegexGroup As Integer = 1) + If IsNothing(SearchString) Then + Return Nothing + End If + + For Each rx In RegexList + Dim match As Match = rx.Match(SearchString) + Dim result As String = match.Groups(RegexGroup).Value + If Not String.IsNullOrWhiteSpace(result) Then + 'Nur den ersten Wert zurückgeben + Return result + End If + Next + + Return Nothing + End Function +End Class diff --git a/Global_Indexer/ClassWindowAPI.vb b/Global_Indexer/ClassWindowAPI.vb new file mode 100644 index 0000000..11051ec --- /dev/null +++ b/Global_Indexer/ClassWindowAPI.vb @@ -0,0 +1,179 @@ +Imports System.Data +Imports System.Runtime.InteropServices +Imports System.Text +Imports System.Collections.Generic +Public Class ClassWindowAPI + Public Class ApiWindow + Public MainWindowTitle As String = "" + Public ClassName As String = "" + Public hWnd As Int32 + End Class + + Private Delegate Function EnumCallBackDelegate(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer + + ' Top-level windows. + Private Declare Function EnumWindows Lib "user32" _ + (ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer + + ' Child windows. + Private Declare Function EnumChildWindows Lib "user32" _ + (ByVal hWndParent As Integer, ByVal lpEnumFunc As EnumCallBackDelegate, ByVal lParam As Integer) As Integer + + ' Get the window class. + Private Declare Function GetClassName _ + Lib "user32" Alias "GetClassNameA" _ + (ByVal hwnd As Integer, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer + + ' Test if the window is visible--only get visible ones. + Private Declare Function IsWindowVisible Lib "user32" _ + (ByVal hwnd As Integer) As Integer + + ' Test if the window's parent--only get the one's without parents. + Private Declare Function GetParent Lib "user32" _ + (ByVal hwnd As Integer) As Integer + + ' Get window text length signature. + Private Declare Function SendMessage _ + Lib "user32" Alias "SendMessageA" _ + (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32 + + ' Get window text signature. + Private Declare Function SendMessage _ + Lib "user32" Alias "SendMessageA" _ + (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As StringBuilder) As Int32 + + Private _listChildren As New List(Of ApiWindow) + Private _listTopLevel As New List(Of ApiWindow) + + Private _topLevelClass As String = "" + Private _childClass As String = "" + + ''' + ''' Get all top-level window information + ''' + ''' List of window information objects + Public Overloads Function GetTopLevelWindows() As List(Of ApiWindow) + + EnumWindows(AddressOf EnumWindowProc, &H0) + + Return _listTopLevel + + End Function + + Public Overloads Function GetTopLevelWindows(ByVal className As String) As List(Of ApiWindow) + + _topLevelClass = className + + Return Me.GetTopLevelWindows() + + End Function + + ''' + ''' Get all child windows for the specific windows handle (hwnd). + ''' + ''' List of child windows for parent window + Public Overloads Function GetChildWindows(ByVal hwnd As Int32) As List(Of ApiWindow) + + ' Clear the window list. + _listChildren = New List(Of ApiWindow) + + ' Start the enumeration process. + EnumChildWindows(hwnd, AddressOf EnumChildWindowProc, &H0) + + ' Return the children list when the process is completed. + Return _listChildren + + End Function + + Public Overloads Function GetChildWindows(ByVal hwnd As Int32, ByVal childClass As String) As List(Of ApiWindow) + + ' Set the search + _childClass = childClass + + Return Me.GetChildWindows(hwnd) + + End Function + + ''' + ''' Callback function that does the work of enumerating top-level windows. + ''' + ''' Discovered Window handle + ''' 1=keep going, 0=stop + Private Function EnumWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32 + + ' Eliminate windows that are not top-level. + If GetParent(hwnd) = 0 AndAlso CBool(IsWindowVisible(hwnd)) Then + + ' Get the window title / class name. + Dim window As ApiWindow = GetWindowIdentification(hwnd) + + ' Match the class name if searching for a specific window class. + If _topLevelClass.Length = 0 OrElse window.ClassName.ToLower() = _topLevelClass.ToLower() Then + _listTopLevel.Add(window) + End If + + End If + + ' To continue enumeration, return True (1), and to stop enumeration + ' return False (0). + ' When 1 is returned, enumeration continues until there are no + ' more windows left. + + Return 1 + + End Function + + ''' + ''' Callback function that does the work of enumerating child windows. + ''' + ''' Discovered Window handle + ''' 1=keep going, 0=stop + Private Function EnumChildWindowProc(ByVal hwnd As Int32, ByVal lParam As Int32) As Int32 + + Dim window As ApiWindow = GetWindowIdentification(hwnd) + + ' Attempt to match the child class, if one was specified, otherwise + ' enumerate all the child windows. + If _childClass.Length = 0 OrElse window.ClassName.ToLower() = _childClass.ToLower() Then + _listChildren.Add(window) + End If + + Return 1 + + End Function + + ''' + ''' Build the ApiWindow object to hold information about the Window object. + ''' + Private Function GetWindowIdentification(ByVal hwnd As Integer) As ApiWindow + + Const WM_GETTEXT As Int32 = &HD + Const WM_GETTEXTLENGTH As Int32 = &HE + + Dim window As New ApiWindow() + + Dim title As New StringBuilder() + + ' Get the size of the string required to hold the window title. + Dim size As Int32 = SendMessage(hwnd, WM_GETTEXTLENGTH, 0, 0) + + ' If the return is 0, there is no title. + If size > 0 Then + title = New StringBuilder(size + 1) + + SendMessage(hwnd, WM_GETTEXT, title.Capacity, title) + End If + + ' Get the class name for the window. + Dim classBuilder As New StringBuilder(64) + GetClassName(hwnd, classBuilder, 64) + + ' Set the properties for the ApiWindow object. + window.ClassName = classBuilder.ToString() + window.MainWindowTitle = title.ToString() + window.hWnd = hwnd + + Return window + + End Function +End Class diff --git a/Global_Indexer/ClassWindream.vb b/Global_Indexer/ClassWindream.vb new file mode 100644 index 0000000..c5a054a --- /dev/null +++ b/Global_Indexer/ClassWindream.vb @@ -0,0 +1,1616 @@ + +Imports WINDREAMLib +Imports WINDREAMLib.WMCOMEvent +Imports WINDREAMLib.WMEntity +Imports WINDREAMLib.WMObjectEditMode +Imports WINDREAMLib.WMSearchOperator +Imports WINDREAMLib.WMSearchRelation +Imports WMOBRWSLib +Imports WMOSRCHLib +Imports System.IO + +Public Class ClassWindream + +#Region "+++++ Konstanten +++++" + Const DEBUG = AUS + Const AUS = 0 + Const WINDREAM = 1 + Const VARIABLEN = 2 + Const WMObjectStreamOpenModeReadWrite = 2 + + Const WMObjectVariableValueTypeUndefined = 0 + Const WMObjectVariableValueTypeString = 1 + Const WMObjectVariableValueTypeInteger = 2 + Const WMObjectVariableValueTypeFloat = 3 + Const WMObjectVariableValueTypeBoolean = 4 + Const WMObjectVariableValueTypeDate = 5 + Const WMObjectVariableValueTypeFixedPoint = 6 + Const WMObjectVariableValueTypeTimeStamp = 7 + Const WMObjectVariableValueTypeCurrency = 8 + Const WMObjectVariableValueTypeTime = 9 + Const WMObjectVariableValueTypeVariant = 10 + Const WMObjectVariableValueTypeMask = &HFFF + Const WMObjectVariableValueFlagMask = &HFFFFF000 + Const WMObjectVariableValueTypeVector = &H1000 + Const WMObjectVariableValueTypeFulltext = &H2000 + Const WMObjectVariableValueTypeDefaultValue = &H4000 +#End Region + +#Region "+++++ Variablen +++++" + Public Shared oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht) + Public Shared oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht) + Public Shared oBrowser As New WMOBRWSLib.ServerBrowser + Public Shared oDokumentTypen As WINDREAMLib.WMObjects + Private oController As New WMOSearchController + Public Shared _DateiinWindream As String + Public Shared _WDObjekttyp As String + Private Shared aktWMObject As WINDREAMLib.WMObject +#End Region + + +#Region "+++++ Allgemeine Methoden und Funktionen +++++" + + ''' + ''' Konstruktor für die windream-Klasse + ''' + ''' + Sub New() + ' wenn ein Fehler bei der Initialisierung auftrat + If Not ClassWindream.Init() Then + ' Nachricht ausgeben + MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung") + + ' das Programm "abschießen" + Process.GetCurrentProcess.Kill() + End If + End Sub + Public Function GetSearchDocuments(ByVal wdfLocation As String) + + If System.IO.File.Exists(wdfLocation) Then + + Try + Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1) + Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length) + + oController = New WMOSearchController + + Me.oController.CheckSearchProfile(wdfLocation.ToLower) + Dim suchTyp = Me.oController.SearchProfileTargetProgID + Dim ExSettings As Object + Dim oSearch As Object + ExSettings = Me.oController.SearchProfileExSettings + If ExSettings = 0 Then ExSettings = 7 + + Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch") + Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch") + Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch") + + '' Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments() + Select Case suchTyp.ToString.ToUpper + Case "WMOSRCH.WMQUICKSEARCH" + srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchQuick.WMSession) + + srchQuick.ClearSearch() + srchQuick.SearchProfilePath = ProfilePath + srchQuick.LoadSearchProfile(ProfileName) + + oSearch = srchQuick.GetSearch() + + Case "WMOSRCH.WMINDEXSEARCH" + srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchIndex.WMSession) + + srchIndex.ClearSearch() + srchIndex.SearchProfilePath = ProfilePath + srchIndex.LoadSearchProfile(ProfileName) + + oSearch = srchIndex.GetSearch() + + Case "WMOSRCH.WMOBJECTTYPESEARCH" + srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchObjectType.WMSession) + + srchObjectType.ClearSearch() + srchObjectType.SearchProfilePath = ProfilePath + srchObjectType.LoadSearchProfile(ProfileName) + + oSearch = srchObjectType.GetSearch() + + Case Else + MsgBox("KEIN GÜLTIGER WINDREAM-SUCHTYP") + Return Nothing + End Select + Dim WMObjects As Object + WMObjects = oSearch.Execute + Return oSearch.execute + + Catch ex As Exception + ' bei einem Fehler einen Eintrag in der Logdatei machen + MsgBox("Fehler in GetSearchDocuments: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + + End If + + Return Nothing + + End Function + Public Function GetSearchDocuments_Objekttype(ByVal wdfLocation As String) + + If System.IO.File.Exists(wdfLocation) Then + + Try + Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1) + Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length) + + + + ' Me.oController.CheckSearchProfile(wdfLocation.ToLower) + ' Dim suchTyp = Me.oController.SearchProfileTargetProgID + 'Dim ExSettings As Object + Dim oSearch As Object + 'ExSettings = Me.oController.SearchProfileExSettings + 'If ExSettings = 0 Then ExSettings = 7 + + Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch") + + '' Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments() + + srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer) + + Me.oConnect.LoginSession(srchObjectType.WMSession) + + srchObjectType.ClearSearch() + srchObjectType.SearchProfilePath = ProfilePath + srchObjectType.LoadSearchProfile(ProfileName) + + oSearch = srchObjectType.GetSearch() + + + Dim WMObjects As Object + WMObjects = oSearch.Execute + Return oSearch.execute + + Catch ex As Exception + ' bei einem Fehler einen Eintrag in der Logdatei machen + MsgBox("Fehler in GetSearchDocuments()" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + + End If + + Return Nothing + + End Function + + ''' + ''' Initialisiert die statische Klasse (Login, Session starten, usw.) + ''' + ''' Liefert True wenn das Anmelden erfolgreich war, sonst False + ''' + Public Shared Function Init() As Boolean + Try + Try + ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen + oSession = CreateObject("Windream.WMSession", GetCurrentServer) + If LogErrorsOnly = False Then ClassLogger.Add(" ...windream-Server: '" & GetCurrentServer() & "'", False) + ' Connection-Objekt instanziieren + oConnect = CreateObject("Windream.WMConnect") + 'MsgBox("windrem init 'ed") + Catch ex As Exception + ClassLogger.Add("Windream konnte nicht initiiert werden: " & ex.Message, True) + Return False + End Try + + + ' wenn windream nicht angemeldet ist + If Not IsLoggedIn() Then + + ' Art der Anmeldung an windream festlegen + ' 0x0L (also 0) = Standard windream Benutzer + ' WM_ODULE_ID_DOCTYPEEDITOR_LIC = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.) + ' WM_MODULE_ID_INDEXSERVICE = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen + oConnect.ModuleID = 0 + + ' setzt die minimal erwartete windream-Version + oConnect.MinReqVersion = "4" + + ' -- Impersonifizierung nur möglich mit registry-eintrag -- + ' oConnect.UserName "\schulung\windream" + ' oConnect.Password "windream" + + ' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen + oConnect.LoginSession(oSession) + If oSession.aLoggedin = False Then + MsgBox("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", MsgBoxStyle.Exclamation, "Verbindung konnte nicht hergestellt werden") + Return False + End If + + 'If My.Settings.vDetailLog Then + ' ClassLogger.Add(" >> windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False) + 'End If + + ' AUSGABE VON SYSTEMINFORMATIONEN + ' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX) + ' oder Business-Edition (BE) aus + 'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _ + ' vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName")) + + 'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData + 'WMCtrl = New AISCONTROLDATACOMLib.AISControlData + + '' liefert die Versionsnummer des Clients + + 'MsgBox(WMCtrl.WMWorkstationBuildNo) + 'MsgBox(WMCtrl.W + '' liefert den Servernamen des angemeldeten windreams + 'MsgBox(WMCtrl.WMServerName) + + Try + oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False) + ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine + ' Ordnertypen ausgelesen werden + oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) + Catch ex As Exception + Return False + End Try + + End If + + Return True + + Catch ex As Exception + If Err.Number = -2147220985 Then + MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _ + "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version") + Else + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream") + End If + Return False + End Try + + End Function + +#End Region + + + +#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++" + + ''' + ''' Liefert alle Objekttypen des aktuellen Servers als windream-Objekte. + ''' + ''' Alle Objekttypen als WMObjects-Objekt + ''' + Public Shared Function GetObjecttypesAsObjects() As WMObjects + Try + Return oDokumentTypen + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen") + Return Nothing + End Try + End Function + + ''' + ''' Liefert alle Objekttypen des aktuellen Servers als Array aus Strings. + ''' + ''' Array mit allen Objekttypen als Strings + ''' + Public Function GetObjecttypesAsStrings() As String() + + Try + Dim objektTypenStr(Me.oDokumentTypen.Count) As String + + For i As Integer = 0 To Me.oDokumentTypen.Count + objektTypenStr(i) = Me.oDokumentTypen.Item(i).aName + Next + + Return objektTypenStr + + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der Objekttypen als String") + Return Nothing + End Try + + End Function + Public Function GetTypeOfIndex(ByVal indexname As String) As Integer + Try + Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) + Dim vType = oAttribute.getVariableValue("dwAttrType") + Return vType + Catch ex As Exception + Return Nothing + End Try + End Function + Public Shared Function GetSystemIndices(ByVal name As String) + Dim oObjectType As WMObject + ' den Objekttyp laden + oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name) + + + Dim msg As String + Dim oSystemIndexes = oObjectType.GetVariableNames(1, False) + msg = "System indices (internal column names): " & vbNewLine + For Each oSystemIndex In oSystemIndexes + msg = msg & vbNewLine & oSystemIndex + Next + MsgBox(msg) + + + End Function + Public Shared Function GetTypIndexNames(ByVal name As String) + Dim oObjectType As WMObject + ' den Objekttyp laden + oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, name) + + + Dim msg As String + Dim oSystemIndexes = oObjectType.GetVariableNames(2, False) + msg = "Type Indices (type Index names): " & vbNewLine + For Each oSystemIndex In oSystemIndexes + msg = msg & vbNewLine & oSystemIndex + Next + MsgBox(msg) + + + End Function + ''' + ''' Liefert alle Indexe eines Objekttypen. + ''' + ''' Name des Objekttyps + ''' Array mit allen Objekttyp zugeordneten Indexen als String + ''' + Public Shared Function GetIndicesByObjecttype(ByVal Objecttype_name As String) As String() + Try + Dim oObjectType As WMObject + Dim oIndexAttributes As WMObjectRelation + Dim oIndexAttribute As WMObject + Dim oIndex As WMObject + Dim oRelProperties As WMObjectRelationClass + + ' den Objekttyp laden + oObjectType = oSession.GetWMObjectByName(WMEntityObjectType, Objecttype_name) + + ' Beziehung zu Indizes des Objekttyp auslesen + oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes") + + ' Array für Indizes vorbereiten + Dim aIndexNames(oIndexAttributes.Count - 1) As String + + ' alle Indizes durchlaufen + For j As Integer = 0 To oIndexAttributes.Count - 1 + + ' aktuellen Index auslesen + oIndexAttribute = oIndexAttributes.Item(j) + + ' Eigenschaften des Index auslesen + oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute") + + ' Index aus den Eigenschaften auslesen + oIndex = oRelProperties.Item(0) + ' Indexname speichern + aIndexNames(j) = oIndex.aName + Next + 'Indexarray sortiert zurückgeben + Array.Sort(aIndexNames) + ' Indexarray zurückgeben + Return aIndexNames + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen der windream-Indexe") + Return Nothing + End Try + End Function + ''' + ''' Liefert einen Objekttyp als WMObject an Hand dessen Name. + ''' + ''' Name des Objekttyps + ''' Objekttyp als WMObject + ''' + Public Function GetObjecttypeByName(ByVal objekttypName As String) As WMObject + Try + ' alle Objekttypen auslesen + Dim oObjectTypes As WMObjects = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) + + ' alle Objekttypen durchlaufen und nach dem mit dem angegebenen Namen suchen + For Each oObjectType As WMObject In oObjectTypes + If oObjectType.aName = objekttypName Then + Return oObjectType + End If + Next + + Return Nothing + + Catch ex As Exception + MsgBox("Es konnte ein Objekttyp nicht erstellt werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Objekttyp konnte nicht erstellt werden") + Return Nothing + End Try + End Function + + ''' + ''' Überprüft ob der angegebene Index im Objekttyp existiert + ''' + ''' Name des zu durchsuchenden Objekttyps + ''' Name des zu suchenden Indexes + ''' Liefert True wenn der Index im Objekttyp existiert, sonst False + ''' + Public Shared Function ExistIndexInObjekttyp(ByVal objekttyp As String, ByVal indexname As String) As Boolean + Try + Dim indexnamen() As String = GetIndicesByObjecttype(objekttyp) + + If indexnamen Is Nothing Then Return False + + For Each index As String In indexnamen + If index = indexname Then Return True + Next + + Catch ex As Exception + MsgBox("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Prüfen auf Existenz eines Index in einem Objekttyp") + End Try + + Return False + + End Function + +#End Region + + + +#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++" + + ''' + ''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist. + ''' + ''' Anmeldestatus als Boolean + ''' + Public Shared Function IsLoggedIn() As Boolean + Try + Return oSession.aLoggedin + Catch ex As Exception + MsgBox("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldted ist." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Loggedin-Prüfung") + End Try + + Return False + End Function + + ''' + ''' Liefert den Servernamen an dem windream aktuell angemeldet ist. + ''' + ''' Servername als String + ''' + Public Shared Function GetCurrentServer() As String + Try + Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer + Catch ex As Exception + MsgBox("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Servers") + End Try + + Return "" + End Function + + + ''' + ''' Liefert das Windream-Laufwerk des windream-Servers, in Form '[Laufwerksbuchstabe]:'. (z.B. 'W:') + ''' + ''' Laufwerksbuchstabe mit Doppelpunkt als String + ''' + 'Public Function GetWindreamDriveLetter() As String + + ' Try + ' Dim oControl As AISCONTROLDATACOMLib.AISControlData + ' Dim sDrive As String = "" + + ' oControl = New AISCONTROLDATACOMLib.AISControlData + + ' sDrive = oControl.GetStringValue(&H10040003) + + ' Return sDrive & ":" + + ' Catch ex As Exception + ' MsgBox("Fehlernachricht: " & ex.Message, MsgBoxStyle.Critical, "Fehler beim Auslesen des windream-Laufwerks") + ' End Try + + ' Return "" + 'End Function + + ''' + ''' Liefert den Typen eines Indexes als Integer. + ''' + ''' Name des zu überprüfenden Indexfeldes + ''' Liefert eine Zahl, die einen Typen beschreibt + ''' + + Public Function GetValuesfromAuswahlliste(ByVal _auswahlliste As String) As Object + Try + 'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) + 'Dim vType = oAttribute.getVariableValue("vItems") + 'Return vType + Dim oChoiceList = oSession.GetWMObjectByName(WMEntityChoiceList, _auswahlliste) + If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then + Dim Values = oChoiceList + Values = oChoiceList.GetVariableValue("vItems") + Dim anz As Integer = 0 + + For Each CLItem In Values + If oChoiceList.aName IsNot Nothing Then + anz += 1 + End If + Next + Dim strListe(anz - 1) + Dim zahl As Integer = 0 + For Each CLItem In Values + If oChoiceList.aName IsNot Nothing Then + strListe(zahl) = CLItem + zahl += 1 + End If + Next + Return strListe + Else + MsgBox("Auswahlliste: " & _auswahlliste & " nicht gefunden!", MsgBoxStyle.Critical, "Fehler:") + Return Nothing + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in GetValuesfromAuswahlliste:") + Return Nothing + End Try + End Function +#End Region + Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal newfilename As String) + On Error Resume Next + aktWMObject = Nothing + Dim Zielverzeichnis As String = Path.GetDirectoryName(newfilename) + If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) = False Then + My.Computer.FileSystem.CreateDirectory(Zielverzeichnis) + ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False) + End If + + Const STREAM_BinaryObject = "BinaryObject" + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Stream_File wurde gestartet", False) + Dim endgültigerDateiname As String = "" + ' Objekt für Datei und Zielverzeichnis anlegen + Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Quelldatei gelesen", False) + '"Version-KZ entfernen + newfilename = newfilename.Replace("\\", "\") + endgültigerDateiname = newfilename.Substring(2) + If endgültigerDateiname.Contains("[%Version]") Then + endgültigerDateiname = endgültigerDateiname.Replace("[%Version]", "") + newfilename = endgültigerDateiname + End If + + If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath exisitiert", False) + ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist + Dim dvr As New DriveInfo(vWLaufwerk & ":") + Dim freeSpace = dvr.TotalFreeSpace + + Dim info As New FileInfo(filenameQuelle) + ' Get length of the file. + Dim length As Long = info.Length + If freeSpace < length Then + MsgBox(" Auf dem Zielverzeichnis ist nicht genug Speicherplatz zum Übertragen frei.", MsgBoxStyle.Exclamation, "Nicht genug Speicherplatz") + Return -10 + End If + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei kopieren von " & filenameQuelle & " nach " & Zielverzeichnis.Substring(2) & "\" & Quelldatei_Name & ".", False) + Dim Connect + Dim Session + Dim WMObject + Dim aFileIO + Dim aWMStream + Dim wmbrwsr + Dim dmsServer As String + If LogErrorsOnly = False Then ClassLogger.Add(" ...Connect definieren: CreateObject('Windream.WMConnect')", False) + Connect = CreateObject("Windream.WMConnect") + aFileIO = New WMOTOOLLib.WMFileIO + 'If My.Settings.DLL_WMOTOOL = "" Then + ' aFileIO = New WMOTOOLLib.WMFileIO + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) + 'Else + ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) + 'End If + + wmbrwsr = CreateObject("WMOBrws.ServerBrowser") + '================================================================== + ' get the current DMS-server to log in + '================================================================== + dmsServer = wmbrwsr.GetCurrentServer + '================================================================== + ' create a session + '================================================================== + Session = CreateObject("Windream.WMSession", dmsServer) + '================================================================== + ' login session + '================================================================== + Connect.LoginSession(Session) + Dim LoggedIn = Session.aLoggedin + If LoggedIn Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) + 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'") + Else + ClassLogger.Add(" >> Login on dms-Server failed", False) + ' MsgBox("Login failed. ") + End If + Const WMCOMEventWMSessionNeedIndex = 1 + + 'windream Objekte erstellen ohne Indexierungs-Event + Session.SwitchEvents(WMCOMEventWMSessionNeedIndex, False) + '================================================================== + ' check if files exist + '================================================================== + If LogErrorsOnly = False Then ClassLogger.Add(" ...ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) + Dim wdFilexists As Boolean + If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) + wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) + Err.Clear() + If wdFilexists = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) + + '================================================================== + ' create an object + '================================================================== + WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER: WMObject konnte nicht erzeugt werden - Error: '" & Err.Description & "'") + 'MsgBox(Err.Description) + End If + ' MsgBox("Created file: " + endgültigerDateiname) + Else + 'endgültigerDateiname = \Brainpool - Geschäftsprozess\GI\DAGI_Digital Data[%Version].jpg + ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen + If LogErrorsOnly = False Then ClassLogger.Add(" ...Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) + '### Automatische Versionierung ### + Dim version As Integer = 2 + Dim extension As String = Path.GetExtension(newfilename) + Dim Stammname As String = newfilename.Substring(0, newfilename.LastIndexOf(".")).Substring(3) + Dim neuername As String = newfilename.Substring(0, newfilename.LastIndexOf(".")).Substring(3) + + Do While File.Exists(vWLaufwerk & ":\" & neuername & extension) = True + ClassLogger.Add(" >> Datei " & vWLaufwerk & ":\" & neuername & extension & " ist vorhanden - Versionieren....", False) + neuername = Stammname & VERSION_DELIMITER & version + endgültigerDateiname = "\" & neuername & extension + version = version + 1 + Loop + WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...WMObject zugewiesen", False) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) + If WMObject IsNot Nothing Then + ' lock object for file system access (to change the file itself) + WMObject.lock() + ' set fileIO the local source file + aFileIO.bstrOriginalFileName = filenameQuelle + If Err.Number > 0 Then + 'MsgBox(Err.Number.ToString) + ClassLogger.Add(" FEHLER: fileIO konnte nicht gesetzt werden - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + ClassLogger.Add(" HINWEIS: Überprüfen Sie den Verweis auf die Bibliotheken 'WMOTool.WMFileIO' UND 'WMOTOOLLib.WMFileIO' und ändern diese in den Anwendungseinstellungen (DLL_WMOTOOL)'", False) + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + ' MsgBox(Err.Description) + End If + ' open the windream object's file stream for writing + aWMStream = WMObject.OpenStream(STREAM_BinaryObject, WMObjectStreamOpenModeReadWrite) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei OpenStream - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...oWMStream erzeugt", False) + ' give fileIO helper object the windream stream + aFileIO.aWMStream = aWMStream + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei Zuweisen aWMStream zu aFileIO - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + ' let fileIO object import the original file into windream + aFileIO.ImportOriginal(True) + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei FileIO.ImportOriginal(True) - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + ' MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...Inhalt der Datei konnte übertragen werden", False) + ' close the windream file stream + aWMStream.Close() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei aWMStream.Close() - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + ' save new windream object + WMObject.save() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei WMObject.save - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei konnte gespeichert werden", False) + ' unlock the windream object + WMObject.unlock() + If Err.Number > 0 Then + ClassLogger.Add(" FEHLER bei WMObject.unlock - Datei wird wieder gelöscht - Error: '" & Err.Description & "'") + WMObject.Unlock() + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + Return False + 'MsgBox(Err.Description) + End If + 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist + Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname) + Dim length1 As Long = info2.Length + If LogErrorsOnly = False Then ClassLogger.Add(" ...Length der Zieldatei: " & length1.ToString, False) + If length1 > 0 And Err.Number = 0 Then + Dim p As String + If endgültigerDateiname.StartsWith("\") Then + If endgültigerDateiname.StartsWith("\\") Then + p = endgültigerDateiname.Replace("\\", "\") + Else + p = endgültigerDateiname + End If + Else + p = "\" & endgültigerDateiname + End If + _DateiinWindream = vWLaufwerk & ":" & p + ClassLogger.Add(" >> Datei '" & _DateiinWindream & "' wurde erfolgreich importiert!", False) + aktWMObject = WMObject + + CURRENT_NEWFILENAME = _DateiinWindream + Return True + Else + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + ClassLogger.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht") + Return False + End If + Else + Return False + End If + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...targetPath existiert NICHT", False) + Return False + End If + + End Function + ''' + ''' Übergibt einer in windream gespeicherten Datei Indexwerte + ''' + ''' Name der zu indexierenden Datei + ''' neuer Name der zu indexierenden Datei + ''' Liefert True wenn das Indexieren erfolgreich war, sonst False + ''' + Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String) + Try + + If LogErrorsOnly = False Then ClassLogger.Add(" ...DateiIndexieren wurde aufgerufen", False) + WD_File = WD_File.Substring(2) + Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject + 'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString) + ' den Dokumenttyp schreiben + If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False) + ' ein windream-Objekt der Datei anlegen + WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) + Try + ' die Datei sperren + WMObject.lock() + Catch ex As Exception + ' nichts tun (Datei ist bereits gesperrt) + End Try + + ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde + If WMObject.aObjectType.aName = "Standard" Then + + ' ihr den entsprechenden Dokumenttyp zuweisen + WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) + ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp + If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wird gesetzt", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) + End If + + Try + WMObject.Save() + Catch ex As Exception + ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine + ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden + Return False + End Try + + Try + WMObject.unlock() + Catch ex As Exception + ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt + End Try + If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wurde gespeichert / Unlock wurde durchgeführt", False) + ' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp: " & _WDObjekttyp, False) + + + ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden + + Dim indexe As String = "" + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexname: '" & _Indexname & "'", False) + Dim werte = New ArrayList + If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Es handelt sich um ein Vektor-Feld", False) + + + 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt + If LogErrorsOnly = False Then ClassLogger.Add(" ...Wert vor Überprüfung: " & _Value, False) + _Value = CheckIndexValue(_Value) + 'Ausstieg da Fehler in der Überprüfung + If _Value Is Nothing Then + Return False + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False) + werte.Add(_Value) + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Werte zu Array hinzugefügt!", False) + Else + 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt + If LogErrorsOnly = False Then ClassLogger.Add(" ...Value vor Überprüfung: " & _Value, False) + _Value = CheckIndexValue(_Value) + 'Ausstieg da Fehler in der Überprüfung + If _Value Is Nothing Then + Return False + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...Value für Indexierung: " & _Value, False) + werte.Add(_Value) + + End If + + 'indexe &= indexname & " = " & werte & vbNewLine + 'Der Indexierungsvorgang + ' Dim indexErgebnis As ArrayList = Indexiere(filenameZiel, _Indexname, werte) + 'Me.singleInfoNode.Insert(0, Me.singleInfoNode(1)) + 'Me.singleInfoNode.Insert(0, Me.singleInfoNode(0)) + Dim arrIndex() As String = Nothing + Dim arrValue() As String = Nothing + ReDim Preserve arrIndex(0) + ReDim Preserve arrValue(0) + arrIndex(0) = _Indexname + arrValue(0) = _Value + Return RunIndexing(WMObject, arrIndex, arrValue) + + 'MsgBox(arr(0) & vbNewLine & indexe) + + Catch ex As Exception + ClassLogger.Add("Hinweis: Die Datei " & WD_File & " konnte nicht indexiert werden.") + ClassLogger.Add("Fehler: " & ex.Message) + ' Me.TreeNodeInfos.Add(temp) + Return False + End Try + End Function + Private Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object) + Dim vektInsState As Integer = 1 + Try + If Indizes IsNot Nothing And aValues IsNot Nothing Then + If Not oDocument.aLocked Then + oDocument.lock() + Dim i As Integer = 0 + Dim indexname As String + If aValues.Length = 1 And aValues(0) = "" Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexwert ist leer/Nothing - Keine Nachindexierung", False) + End If + ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde + If oDocument.aObjectType.aName <> _WDObjekttyp Then + ' ihr den entsprechenden Dokumenttyp zuweisen + oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) + ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp + If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) + End If + + Try + oDocument.Save() + Catch ex As Exception + ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine + ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden + Return False + End Try + + 'Jetzt jeden Indexwert durchlaufen + For Each aName As String In Indizes + indexname = aName + If LogErrorsOnly = False Then + ClassLogger.Add(" ", False) + ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False) + End If + ' das entsprechende Attribut aus windream auslesen + Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i)) + ' den Variablentyp (String, Integer, ...) auslesen + Dim vType = oAttribute.getVariableValue("dwAttrType") + ' wenn in aValues an Position i ein Wert steht + If IsNotEmpty(aValues(i)) Then + Dim _int As Boolean = False + Dim _date As Boolean = False + Dim _dbl As Boolean = False + Dim _bool As Boolean = False + 'If indexname = "Tournr" Then + ' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString) + 'End If + + + 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") + Dim value = aValues(i) + Dim convertValue + Dim vektor As Boolean = False + 'Den Typ des Index-Feldes auslesen + 'MsgBox(value.GetType.ToString) + Select Case (vType) + 'Case WMObjectVariableValueTypeUndefined + Case WMObjectVariableValueTypeString + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeString", False) + convertValue = CStr(value) + Case WMObjectVariableValueTypeInteger + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeInteger", False) + value = value.ToString.Replace(" ", "") + If IsNumeric(value) = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False) + End If + value = value.ToString.Replace(" ", "") + convertValue = CInt(value) + _int = True + Case WMObjectVariableValueTypeFloat + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) + value = value.ToString.Replace(" ", "") + convertValue = CDbl(value) + Case WMObjectVariableValueTypeFixedPoint + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint", False) + value = value.ToString.Replace(" ", "") + convertValue = CDbl(value) + _dbl = True + Case WMObjectVariableValueTypeBoolean + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeBoolean", False) + convertValue = CBool(value) + _bool = True + Case WMObjectVariableValueTypeDate + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeDate", False) + _date = True + 'Dim _date As Date = value + convertValue = value + Case WMObjectVariableValueTypeTimeStamp + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) + convertValue = CDbl(value) + Case WMObjectVariableValueTypeCurrency + If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) + 'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden + Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value)) + convertValue = aValueWrapper + Case WMObjectVariableValueTypeTime + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTime", False) + 'If ((value)) Then + ' convertValue = CDate(value) + 'Else + ' convertValue = "" + 'End If + 'Dim _date As Date = value + convertValue = convertValue '*_date.ToShortTimeString + Case WMObjectVariableValueTypeFloat + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFloat", False) + convertValue = CStr(value) + Case WMObjectVariableValueTypeVariant + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeVariant", False) + convertValue = CStr(value) + Case WMObjectVariableValueTypeFulltext + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False) + convertValue = CStr(value) + Case 4097 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch", False) + 'Vektor alphanumerisch + vektor = True + Case 4098 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4098 Vektor Numerisch", False) + 'Vektor Numerisch + vektor = True + Case 4099 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl", False) + 'Vektor Kommazahl + vektor = True + Case 4101 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4101 Vektor Date", False) + 'Vektor Kommazahl + vektor = True + Case 4103 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4103 Vektor DateTime", False) + 'Vektor DateTime + vektor = True + Case 4107 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False) + vektor = True + Case 36865 + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch", False) + 'Vektor Kommazahl + vektor = True + Case Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes konnte nicht bestimmt werden!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch des Auslesens (vType): " & vType) + 'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else") + convertValue = "" + End Select + If vektor = False Then + If convertValue.ToString Is Nothing = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Konvertierter Wert: '" & convertValue.ToString & "'", False) + End If + End If + '############################################################################################ + '####################### Der eigentliche Indexierungsvorgang ################################ + '############################################################################################ + If vektor = False Then + If convertValue.ToString Is Nothing = False Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False) + If _int = True Then + convertValue = convertValue.ToString.Replace(" ", "") + oDocument.SetVariableValue(aName, CInt(convertValue)) + ElseIf _date = True Then + oDocument.SetVariableValue(aName, CDate(convertValue)) + ElseIf _bool Then + oDocument.SetVariableValue(aName, CBool(convertValue)) + ElseIf _dbl Then + convertValue = convertValue.ToString.Replace(" ", "") + oDocument.SetVariableValue(aName, CDbl(convertValue)) + Else + oDocument.SetVariableValue(aName, convertValue) + End If + 'Die Datei speichern + oDocument.Save() + + If LogErrorsOnly = False Then + ClassLogger.Add(" ...Index '" & aName & "' wurde geschrieben", False) + ClassLogger.Add("", False) + End If + Else + ClassLogger.Add(" >> Kein Indexwert vorhanden", False) + End If + Else + + + + + + End If + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ...Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False) + End If + i += 1 + + Next + oDocument.unlock() + If LogErrorsOnly = False Then + ClassLogger.Add(">> ...und Unlock durchgeführt)", False) + ClassLogger.Add("", False) + End If + Return True + Else + ClassLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False) + 'oDocument.unlock() + Return False + End If + End If + Catch ex As Exception + ClassLogger.Add("ClassNiWindream.RunIndexing: " & ex.Message) + oDocument.Save() + oDocument.unlock() + Return False + End Try + End Function + Private Shared Function IsNotEmpty(ByVal aValue As Object) + + If aValue IsNot Nothing Then + Dim itsType As Type = aValue.GetType + If itsType Is GetType(String) Then + + If Not aValue = "" Then + Return True + End If + + Return False + Else + Return True + End If + Else + Return False + End If + + End Function + ''' + ''' Führt das eigendliche Indexieren aus + ''' + ''' Dateiname der zu indexierenden Datei + ''' Name des zu indexierenden Indexfeldes + ''' Der Wert/die Werte die dem Index zugewiesen werden sollen + ''' Liefert True wenn das Indexieren erfolgreich war, sonst False + ''' + Private Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object) + If LogErrorsOnly = False Then ClassLogger.Add(" - In Indexierungsvorgang für: " & filenameZiel, False) + Try + Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject") + 'MsgBox("Indexiere: " & vbNewLine & filenameZiel) + 'werte Is Nothing Or _ + ' überprüfen ob alle notwendigen Informationen angegeben wurden (sonst abbrechen) + If filenameZiel Is Nothing Or _ + filenameZiel = "" Or _ + index Is Nothing Or _ + index = "" Or _ + Not ExistIndexInObjekttyp(_WDObjekttyp, index) Then + If LogErrorsOnly = False Then ClassLogger.Add("=> Hinweis: Die Datei wurde auf Grund eines Problems in der Initialisierung nicht vollständig indexiert.", False) + Return False + End If + + Dim fileExists As Boolean + + ' prüfen ob die zu indexierende Datei existiert + fileExists = My.Computer.FileSystem.FileExists(vWLaufwerk & ":" & filenameZiel) '_windream.GetWindreamDriveLetter + + Dim an As Integer = 0 + Do While My.Computer.FileSystem.FileExists(vWLaufwerk & ":" & filenameZiel) = False + If an > 500 Then + fileExists = False + Exit Do + Else + If LogErrorsOnly = False Then ClassLogger.Add(" Achtung: Datei exisitiert noch nicht: " & My.Computer.Clock.LocalTime, True) + End If + an = an + 1 + Loop + ' wenn die Datei existiert + If fileExists Then + WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel) + + ' eine Variable für den umgewandelten Indexwert anlegen (kein Typ, da noch unklar ist was reingeschrieben wird) + 'Dim convertValue = Nothing + + ' den Typ des Zielindexes auslesen + Dim TypDesIndexes As Integer + + Try + + ' ein windream-Objekt der Datei anlegen + WMObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, filenameZiel) + If LogErrorsOnly = False Then + ClassLogger.Add(" - windream-Objekt der Datei erzeugt", False) + ClassLogger.Add(" - Ziel: W:\" & filenameZiel, False) + End If + + 'Me.singleInfoNode.Add("Ziel: " & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel) + + Try + ' die Datei sperren + WMObject.lock() + + 'WMObject.LockFor(WINDREAMLib.WMObjectEditMode.WMObjectEditModeObject) + Catch ex As Exception + + End Try + + ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde + If WMObject.aObjectType.aName = "Standard" Then + ' ihr den entsprechenden Dokumenttyp zuweisen + WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) + ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp + End If + + + ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden + If werte Is Nothing Then + + Try + WMObject.Save() + WMObject.unlock() + Catch ex As Exception + + End Try + + Return Nothing + End If + + ' den Typ des Zielindexes auslesen + TypDesIndexes = GetTypeOfIndexAsIntByName(index) + + ' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt + If TypDesIndexes < WMObjectVariableValueTypeVector Then + If LogErrorsOnly = False Then ClassLogger.Add(" - Bei dem Zielindex handelt es sich um einen Einzelindex.", False) + Else + If LogErrorsOnly = False Then ClassLogger.Add(" Bei dem Zielindex handelt es sich um ein Vektorfeld.", False) + ' ein Backup der Indexwerte anlegen + Dim temp As Object = werte + ' und die eigendliche Variable zurücksetzen + werte = Nothing + ' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein + ' Array in einen Einzelindex zu speichern + werte = temp + If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False) + End If + Catch ex As Exception + ClassLogger.Add("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.", False) + Return False + End Try + + + 'Try + ' den Typ des Zielindexes + If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des Indexes: " & TypDesIndexes.ToString, False) + Select Case (TypDesIndexes) + Case WMObjectVariableValueTypeUndefined ' zu klären !!!! + 'convertValue = vbEmpty + Case WMObjectVariableValueTypeString + ''Führende Nullen Entfernen + 'If werte.ToString.StartsWith("0") Then + ' Dim wert As String = CStr(CInt(werte.ToString)) + ' convertValue = wert + ' ClassLogger.Add(" - Führende Nullen wurden entfernt", False) + 'Else + ' Dim wert As String = CStr(CInt(werte.ToString)) + ' convertValue = wert + 'End If + 'If convertValue.ToString.Contains("~1") Then + ' convertValue = convertValue.ToString.Replace("~1", "") + 'End If + 'If convertValue.ToString.Contains("~2") Then + ' convertValue = convertValue.ToString.Replace("~2", "") + 'End If + 'If convertValue.ToString.Contains("~3") Then + ' convertValue = convertValue.ToString.Replace("~3", "") + 'End If + 'If convertValue.ToString.Contains("~4") Then + ' convertValue = convertValue.ToString.Replace("~4", "") + 'End If + + Case WMObjectVariableValueTypeInteger + ' convertValue = CInt(werte) + Case WMObjectVariableValueTypeFloat + werte = werte.ToString.Replace(".", ",") + 'convertValue = CDbl(werte) + + Case WMObjectVariableValueTypeBoolean + Try + ' convertValue = CBool(werte) + Catch ex As Exception + ' Nothing zuweisen damit SetVariableValue nicht ausgeführt wird + 'convertValue = Nothing + End Try + Case WMObjectVariableValueTypeDate + If (IsDate(werte)) Then + ' convertValue = CDate(werte) + Else + ' convertValue = vbEmpty + End If + + Case WMObjectVariableValueTypeFixedPoint + werte = werte.ToString.Replace(".", ",") + ' convertValue = CDbl(werte) + + Case WMObjectVariableValueTypeTimeStamp + Dim timestamp As Integer = GetTimestamp(werte) + If timestamp > 0 Then + ' convertValue = timestamp + Else + ' convertValue = vbEmpty + End If + + Case WMObjectVariableValueTypeCurrency + Dim aValue As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(werte) + ' convertValue = aValue + + Case WMObjectVariableValueTypeTime + If (IsDate(werte)) Then + ' convertValue = CDate(werte) ' ggf. aber nur die Zeit + Else + ' convertValue = vbEmpty + End If + + Case WMObjectVariableValueTypeVariant + ' convertValue = werte + + Case WMObjectVariableValueTypeMask ' zu klären !!!! + ' convertValue = vbEmpty + + Case WMObjectVariableValueFlagMask ' zu klären !!!! + ' convertValue = vbEmpty + + + Case WMObjectVariableValueTypeFulltext + 'convertValue = CStr(werte) + + Case WMObjectVariableValueTypeDefaultValue ' zu klären !!!! + ' convertValue = vbEmpty + + Case Else + ' wenn es sich um einen TypVektorIndex handelt + If TypDesIndexes >= 4096 And TypDesIndexes < 8192 Then + If LogErrorsOnly = False Then ClassLogger.Add("- Es handelt sich um einen Vektorindex", False) + Dim temp_arr As New ArrayList + + Select Case (TypDesIndexes - WMObjectVariableValueTypeVector) + 'VektorIndex vom Typ String 64' + Case 1 + If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 1", False) + For Each wert As Object In werte + 'Führende Nullen Entfernen + If werte.ToString.StartsWith("0") Then + Dim werteString As String = CStr(CInt(wert.ToString)) + wert = werteString + temp_arr.Add(CStr(wert)) + ClassLogger.Add("- Führende Nullen wurden entfernt", False) + Else + temp_arr.Add(CStr(wert)) + End If + + If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) + Next + Case WMObjectVariableValueTypeUndefined + ' convertValue = "" + + Case WMObjectVariableValueTypeString + If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ String 2", False) + For Each wert As Object In werte + 'Führende Nullen Entfernen + If werte.ToString.StartsWith("0") Then + wert = CInt(wert) + temp_arr.Add(CStr(wert)) + ClassLogger.Add("- Führende Nullen wurden entfernt", False) + Else + temp_arr.Add(CStr(wert)) + End If + If LogErrorsOnly = False Then ClassLogger.Add("- Wert " & CStr(wert) & " konvertiert", False) + Next + + Case WMObjectVariableValueTypeInteger + If LogErrorsOnly = False Then ClassLogger.Add("- VektorIndex vom Typ Integer", False) + For Each wert As Object In werte + temp_arr.Add(CInt(wert)) + Next + + Case WMObjectVariableValueTypeFloat + For Each wert As Object In werte + wert = wert.ToString.Replace(".", ",") + temp_arr.Add(CDbl(wert)) + Next + + Case WMObjectVariableValueTypeBoolean + For Each wert As Object In werte + Try + temp_arr.Add(CBool(wert)) + Catch ex As Exception + ' Nothing zuweisen damit SetVariableValue nicht ausgeführt wird + temp_arr = Nothing + End Try + Next + + Case WMObjectVariableValueTypeDate + For Each wert As Object In werte + 'wert = + temp_arr.Add(CDate(wert)) + Next + + Case WMObjectVariableValueTypeFixedPoint + For Each wert As Object In werte + temp_arr.Add(CDbl(wert)) + Next + + Case WMObjectVariableValueTypeTimeStamp + For Each wert As Object In werte + temp_arr.Add(CInt(wert)) + Next + + Case WMObjectVariableValueTypeCurrency + For Each wert As Object In werte + Dim aValue As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(werte) + temp_arr.Add(aValue) + Next + + Case WMObjectVariableValueTypeTime + For Each wert As Object In werte + temp_arr.Add(CDate(wert)) + Next + + Case WMObjectVariableValueTypeVariant + ' dann bleiben alle Werte wie sie sind + + End Select + + If temp_arr.Count > 0 Then + If LogErrorsOnly = False Then ClassLogger.Add("- Einträge in temp_arr also Speichern des Arrays in convertValue", False) + ' convertValue = Nothing + ' convertValue = temp_arr.ToArray + Else + ' convertValue = vbEmpty + End If + If LogErrorsOnly = False Then ClassLogger.Add("- Werte erfolgreich konvertiert", False) + Else + ' convertValue = vbEmpty + End If + + End Select + + 'Catch ex As Exception + ' ' einen Hinweis über einen aufgetretenen Fehler an das Array für den TreeView-Log anhängen + ' ClassLogger.Add("Fehler bei Auswerten/Konvertieren des Typs!", ex.Message) + ' ' die Indexierungsinformationen für den TreeView-Log zurückgeben + ' Return False + 'End Try + + + ' Try + ' ***** Anmerkung: das Nachindexieren mit vbEmpty ist möglich (siehe oben) jedoch nicht ***** + ' ***** das Indexieren mit einem Nothing-Wert !!! ***** + ' wenn das Konvertieren soweit gut gelaufen ist (also kein Nothing-Wert zugewiesen wurde) + ' If (convertValue Is Nothing) = False Then + ' den konvertierten Indexwert dem entsprechenden Index zuweisen + WMObject.SetVariableValue(index, werte) + If LogErrorsOnly = False Then + ClassLogger.Add(" - den konvertierten Indexwert dem entsprechenden Index zuweisen", False) + ClassLogger.Add(" - Indexname: " & index.ToString, False) + ClassLogger.Add(" - Indexwert: " & werte.ToString, False) + End If + 'End If + + ' die Indexinformationen des Dokuments speichern + WMObject.Save() + If LogErrorsOnly = False Then ClassLogger.Add(" - die Indexinformationen des Dokuments speichern", False) + ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, + ' wenn eine Datei nicht gesperrt ist + Try + ' die Sperrung des Dokuments aufheben + WMObject.unlock() + If LogErrorsOnly = False Then ClassLogger.Add(" - die Sperrung des Dokuments aufheben", False) + Catch ex As Exception + ' nichts tun (Datei war nicht gesperrt) + End Try + + 'Catch ex As Exception + ' ' auch wenn ein Fehler aufgetreten ist muss das Dokument gespeichert werden, um den Dokumenttypen zu speichern + ' WMObject.Save() + + ' ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, + ' ' wenn eine Datei nicht gelocked ist + ' Try + ' WMObject.unlock() + ' Catch ex2 As Exception + ' ' nichts tun (Datei war nicht gesperrt) + ' End Try + + + ' ' Nachricht für den TreeView-Log + ' indexBeschreibung &= "konnte nicht indexiert werden" + ' ClassLogger.Add(" DATEI konnte nicht indexiert werden", True) + 'End Try + + + ' die Indexierungsinformationen für den TreeView-Log zurückgeben + Return True + Else + ' die Indexierungsinformationen für den TreeView-Log zurückgeben + ClassLogger.Add(" Hinweis: Die Datei hat zum Zeitpunkt der Indexierung noch nicht auf dem windream-Laufwerk existiert.", False) + End If + + Catch ex As Exception + ClassLogger.Add(" Hinweis: Unbekannter Fehler beim Indexieren der Datei.") + ClassLogger.Add(ex.Message) + End Try + + Return True + + End Function + + ''' + ''' Diese Funktion überprüft ob eine Variable ein Array ist, oder nicht. + ''' + ''' Variable die überprüft werden soll + ''' Liefert True wenn es sich um ein Array handelt, sonst False + ''' + Private Shared Function IsArray(ByVal arrayOrNot As Object) + + Dim arrayType As String = UCase(arrayOrNot.GetType.ToString) + + ' überprüft an welcher Stelle sich ein '['-Zeichen befindet + Dim position = InStr(arrayType, "[") + + ' existiert ein '['-Zeichen, so handelt es sich um ein Array (GetType wäre System.Object[]) + If Not position = 0 Then + Return True + Else + Return False + End If + End Function + + + ''' + ''' Diese Funktion überprüft ob eine Variable eine ArrayList ist, oder nicht. + ''' + ''' Variable die überprüft werden soll + ''' Liefert True wenn es sich um eine ArrayList handelt, sonst False + ''' + Private Shared Function IsArrayList(ByVal arrayOrNot As Object) + + Dim arrayType As String = UCase(arrayOrNot.GetType.ToString) + + ' überprüft an welcher Stelle sich ein '['-Zeichen befindet + Dim position = InStr(arrayType, "[") + + ' existiert ein '['-Zeichen, so handelt es sich um ein Array (GetType wäre System.Object[]) + If arrayOrNot.GetType.ToString = "System.Collections.ArrayList" Then + Return True + Else + Return False + End If + End Function + ''' + ''' Diese Funktion errechnet aus einem Datum den Unix-Timestamp + ''' + ''' Datum, für das der Timestamp errechnet werden soll + ''' Liefert den Timestamp als Integer + ''' + Private Shared Function GetTimestamp(ByVal FromDateTime As DateTime) As Integer + + If IsDate(FromDateTime) Then + Dim Startdate As DateTime = #1/1/1970# + Dim Spanne As TimeSpan + + ' vom Datum das Datum des "Beginns der Zeitrechnung" abziehen + Spanne = FromDateTime.Subtract(Startdate) + + ' die Zeitspanne in einen Integer umwandeln + Return CType(Math.Abs(Spanne.TotalSeconds()), Integer) + Else + Return 0 + End If + End Function + ''' + ''' Liefert den Typen eines Indexes als Integer. + ''' + ''' Name des zu überprüfenden Indexfeldes + ''' Liefert eine Zahl, die einen Typen beschreibt + ''' + Public Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer + Try + Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname) + Dim vType = oAttribute.getVariableValue("dwAttrType") + Return vType + Catch ex As Exception + Return Nothing + End Try + End Function + Private Shared Function CheckIndexValue(ByVal input) + Try + 'Ersetzt die Versionierungen Tilde(~) und Klammern ((1)) + For i As Integer = 1 To 20 + If input.ToString.EndsWith("~" & i.ToString) Then + input = input.ToString.Replace("~" & i.ToString, "") + ElseIf input.ToString.EndsWith("(" & i.ToString & ")") Then + input = input.ToString.Replace("(" & i.ToString & ")", "") + End If + + Next + + Return input + Catch ex As Exception + ClassLogger.Add("Fehler in CheckIndexValue: " & ex.Message) + Return Nothing + End Try + + End Function +End Class diff --git a/Global_Indexer/Global_Indexer.vbproj b/Global_Indexer/Global_Indexer.vbproj new file mode 100644 index 0000000..1cf0d16 --- /dev/null +++ b/Global_Indexer/Global_Indexer.vbproj @@ -0,0 +1,502 @@ + + + + + Debug + AnyCPU + {7474B1D2-49A4-4D12-B544-C8674D3F7231} + WinExe + Global_Indexer.My.MyApplication + Global_Indexer + Global_Indexer + 512 + WindowsForms + v4.5.1 + true + + + AnyCPU + true + full + true + true + bin\Debug\ + Global_Indexer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + Global_Indexer.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + ..\..\..\Kunden - Produktiv\PROCESSMANAGER\DD-ProcessManagerWindream\DD_PM_WINDREAM\DD_PM_WINDREAM\bin\Debug\DLLLicenseManager.dll + False + + + False + \\dd-sto01\DD-STO01-A2\Projekte\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll + + + ..\..\..\Bibliotheken\DLL\windreamDLL\64bit\Interop.WINDREAMLib.dll + False + + + \\dd-sto01\DD-STO01-A2\Projekte\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll + True + + + False + D:\Programme\DB\Oracle\ora12.1\Client\ODP.NET\managed\common\Oracle.ManagedDataAccess.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + frmAdministration.vb + + + Form + + + frmConfig_Basic.vb + + + Form + + + frmConnections.vb + + + Form + + + frmHotKey_Add.vb + + + Form + + + frmHotkey_User.vb + + + Form + + + frmIndex.vb + + + Form + + + frmLicense.vb + + + Form + + + frmNamenkonvention.vb + + + Form + + + frmSQLConfigAutoIndex.vb + + + Form + + + frmSQLSuggestion.vb + + + Form + + + frmSQL_Admin.vb + + + Form + + + frmStart.vb + + + Form + + + frmTestvb.vb + + + Form + + + frmUserKonfig_AddUsers.vb + + + Form + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + True + True + MyDataset.xsd + + + MyDataset.xsd + + + + + frmAdministration.vb + + + frmConfig_Basic.vb + + + frmConnections.vb + + + frmHotKey_Add.vb + + + frmHotkey_User.vb + + + frmIndex.vb + Designer + + + frmLicense.vb + + + frmNamenkonvention.vb + + + frmSQLConfigAutoIndex.vb + + + frmSQLSuggestion.vb + + + frmSQL_Admin.vb + + + frmStart.vb + + + frmUserKonfig_AddUsers.vb + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + MyDataset.xsd + + + Designer + MSDataSetGenerator + MyDataset.Designer.vb + + + MyDataset.xsd + + + + + {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52} + 2 + 7 + 0 + primary + False + True + + + {00062FFF-0000-0000-C000-000000000046} + 9 + 5 + 0 + primary + False + True + + + {00020430-0000-0000-C000-000000000046} + 2 + 0 + 0 + primary + False + True + + + {25B51999-6DCA-11D4-B815-00104BB52DEA} + 1 + 0 + 0 + tlbimp + False + True + + + {BE4F1D13-88A8-11D4-B3FA-0001021F035F} + 1 + 0 + 0 + tlbimp + False + True + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/ModuleCURRENT.vb b/Global_Indexer/ModuleCURRENT.vb new file mode 100644 index 0000000..5803fc0 --- /dev/null +++ b/Global_Indexer/ModuleCURRENT.vb @@ -0,0 +1,31 @@ +Module ModuleCURRENT + Public CURRENT_FILENAME As String + Public CURRENT_NEWFILENAME As String + Public CURRENT_WORKFILE_GUID As Integer + Public CURRENT_WORKFILE As String + Public CURR_WORKFILE_EXTENSION As String + + Public CURRENT_DOKART_ID As Integer + Public CURRENT_LASTDOKART As String = "" + Public CURRENT_INDEXMAN As Integer + Public CURRENT_INDEXAUTO As Integer + Public VERSION_DELIMITER As String + Public FILE_DELIMITER As String + Public CURRENT_MESSAGEID As String + Public CURRENT_MESSAGEDATE As String + Public CURRENT_USERID As Integer + Public CURRENT_FOLDERWATCH As String = "" + Public CURR_DOKART_WD_DIRECT As Boolean = False + Public CURR_DOKART_OBJECTTYPE As String + Public CURRENT_WD_TEMPSEARCH As String = "" + + Public License_Expired As Boolean = False + Public License_Anzahl As Integer = 0 + Public LicenseProfiles As Integer = 0 + Public LicenseHotKey As Integer = 0 + Public UserLoggedin As Integer = 0 + Public CURRENT_HTML_DOC As String + + Public CURRENT_ABBRUCH As Integer = 0 + +End Module diff --git a/Global_Indexer/ModuleMySettings.vb b/Global_Indexer/ModuleMySettings.vb new file mode 100644 index 0000000..725ad1f --- /dev/null +++ b/Global_Indexer/ModuleMySettings.vb @@ -0,0 +1,180 @@ +Imports System.IO +Imports System.Xml + +Module ModuleMySettings + Dim ConfigPath As String = Path.Combine(Application.UserAppDataPath(), "UserConfig.xml") + Public MyConnectionString As String = "" + Public LogErrorsOnly As Boolean = True + Public GI_withWindream As Boolean = False + Public vWLaufwerk As String = "W" + Public Preview As Boolean = True + Public UniversalViewer As String + Public FW_started As Boolean = False + Public Delete_OriginFile As Boolean = False + + Public Function LoadMyConfig() + Dim rowresult As String = "" + Try + Dim DT As DataTable + 'if file doesn't exist, create the file with its default xml table + If Not File.Exists(ConfigPath) Then + DT = CreateConfigTable() + DT.WriteXml(ConfigPath) + End If + DT = GetTablefromXML() + For Each Row As DataRow In DT.Rows + rowresult &= Row.Item("ConfigName") + Select Case Row.Item("ConfigName") + Case "MyConnectionString" + Dim connstring As String + 'Den ConnectonString mit verschlüsseltem PW laden + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = Row.Item("Value") + If csb.ConnectionString.Contains("Password=") Then + 'SA-Auth + 'Jetzt das Passwort entschlüsseln + Dim PWplainText As String + Dim wrapper As New ClassEncryption("!35452didalog=") + ' DecryptData throws if the wrong password is used. + Try + PWplainText = wrapper.DecryptData(csb.Password) + Catch ex As Exception + ClassLogger.Add("- the Password '" & csb.Password & "' could not be decrypted", False) + PWplainText = csb.Password + End Try + connstring = Row.Item("Value").ToString.Replace(csb.Password, PWplainText) + Else + 'Win-Auth + connstring = Row.Item("Value").ToString + End If + + MyConnectionString = connstring + Case "LogErrorsOnly" + LogErrorsOnly = CBool(Row.Item("Value")) + Case "Preview" + Preview = CBool(Row.Item("Value")) + Case "UniversalViewer" + UniversalViewer = Row.Item("Value") + Case "FW_started" + FW_started = CBool(Row.Item("Value")) + Case "Delete_OriginFile" + Delete_OriginFile = CBool(Row.Item("Value")) + End Select + + Next + 'update 1.1 + If rowresult.Contains("FW_started") = False Then + Dim newRow As DataRow = DT.NewRow() + newRow("ConfigName") = "FW_started" + newRow("Value") = "False" + DT.Rows.Add(newRow) + DT.WriteXml(ConfigPath) + End If + 'update 1.6 + If rowresult.Contains("Delete_OriginFile") = False Then + Dim newRow As DataRow = DT.NewRow() + newRow("ConfigName") = "Delete_OriginFile" + newRow("Value") = "False" + DT.Rows.Add(newRow) + DT.WriteXml(ConfigPath) + End If + Catch ex As Exception + MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + + End Function + Private Function GetTablefromXML() + Try + Dim DS As New DataSet + DS.ReadXml(ConfigPath) + Return DS.Tables(0) + Catch ex As Exception + MsgBox("Error in GetTablefromXML" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + + End Function + Private Function CreateConfigTable() As DataTable + Try + ' Create sample Customers table, in order + ' to demonstrate the behavior of the DataTableReader. + Dim table As New DataTable + table.TableName = "MyConfig" + + ' Create two columns, ID and Name. + Dim idColumn As DataColumn = table.Columns.Add("ID", _ + GetType(System.Int32)) + + idColumn.AutoIncrement = True + idColumn.AutoIncrementSeed = 0 + idColumn.AutoIncrementStep = 1 + table.Columns.Add("ConfigName", GetType(System.String)) + table.Columns.Add("Value", GetType(System.String)) + 'Set the ID column as the primary key column. + table.PrimaryKey = New DataColumn() {idColumn} + Dim newRow As DataRow = table.NewRow() + newRow("ConfigName") = "MyConnectionString" + newRow("Value") = "" + table.Rows.Add(newRow) + Dim newRow1 As DataRow = table.NewRow() + newRow1("ConfigName") = "LogErrorsOnly" + newRow1("Value") = "True" + table.Rows.Add(newRow1) + Dim newRow2 As DataRow = table.NewRow() + newRow2("ConfigName") = "Preview" + newRow2("Value") = "True" + table.Rows.Add(newRow2) + Dim newRow3 As DataRow = table.NewRow() + newRow3("ConfigName") = "UniversalViewer" + newRow3("Value") = "" + table.Rows.Add(newRow3) + Dim newRow4 As DataRow = table.NewRow() + newRow4("ConfigName") = "FW_started" + newRow4("Value") = "False" + table.Rows.Add(newRow4) + table.AcceptChanges() + Return table + Catch ex As Exception + MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function + Public Function SaveConfigValue(name As String, value As String) + Try + Dim DT As DataTable + DT = GetTablefromXML() + + For Each Row As DataRow In DT.Rows + If Row.Item("ConfigName") = name Then + Row.Item("Value") = value + End If + Next + DT.AcceptChanges() + DT.WriteXml(ConfigPath) + Catch ex As Exception + MsgBox("Error in SaveConfigValue" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + + End Function + Public Function Load_BasicConfig() + Try + ClassDatabase.Init() + Dim sql As String = "select * from tbdd_Modules where NAME = 'Global-Indexer'" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + If DT.Rows.Count = 1 Then + GI_withWindream = DT.Rows(0).Item("BIT1") + vWLaufwerk = DT.Rows(0).Item("STRING1") + Else + Return False + End If + Catch ex As Exception + MsgBox("Error in Load_BasicConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + End Function +End Module diff --git a/Global_Indexer/My Project/Application.Designer.vb b/Global_Indexer/My Project/Application.Designer.vb new file mode 100644 index 0000000..59c9429 --- /dev/null +++ b/Global_Indexer/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern + ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + 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.Global_Indexer.frmStart + End Sub + End Class +End Namespace diff --git a/Global_Indexer/My Project/Application.myapp b/Global_Indexer/My Project/Application.myapp new file mode 100644 index 0000000..a1da81d --- /dev/null +++ b/Global_Indexer/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmStart + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/Global_Indexer/My Project/AssemblyInfo.vb b/Global_Indexer/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..e58f741 --- /dev/null +++ b/Global_Indexer/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 mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, 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 die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/Global_Indexer/My Project/Resources.Designer.vb b/Global_Indexer/My Project/Resources.Designer.vb new file mode 100644 index 0000000..213e06a --- /dev/null +++ b/Global_Indexer/My Project/Resources.Designer.vb @@ -0,0 +1,493 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + 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("Global_Indexer.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property action_add_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("action_add_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property add() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("add", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_back_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_back_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_Forward_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_Forward_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_left() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_left", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_refresh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_refresh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_right() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_right", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property arrow_Up_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("arrow_Up_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bell_delete() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bell_delete", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bell_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bell_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Benutzer() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Benutzer", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property bullet_arrow_top() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("bullet_arrow_top", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property CheckOutforEdit_13187_32x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("CheckOutforEdit_13187_32x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Copy_6524() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Copy_6524", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_connect() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_connect", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_refresh() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_refresh", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_save() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_save", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_save1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_save1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property database_save2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("database_save2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property delete_12x12() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("delete_12x12", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property delete2() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("delete2", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Einstellungen5() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Einstellungen5", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Einstellungen6() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Einstellungen6", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_link() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_link", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property folder_Open_32xSM() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("folder_Open_32xSM", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property gear_32xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("gear_32xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property gear_32xSM() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("gear_32xSM", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property handdrawn_arrow_left_green() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("handdrawn_arrow_left_green", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property handdrawn_arrow_right_green() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("handdrawn_arrow_right_green", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property key() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("key", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property key_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("key_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property KeyDown_8461_12x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("KeyDown_8461_12x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property page_red() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("page_red", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property refresh_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("refresh_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property save_16xMD() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("save_16xMD", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Save_6530() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Save_6530", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Selectallrowsfrom_tableA__294() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Selectallrowsfrom_tableA__294", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Shortcut_8169_16x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Shortcut_8169_16x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property WindowsForm_817_12x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("WindowsForm_817_12x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/Global_Indexer/My Project/Resources.resx b/Global_Indexer/My Project/Resources.resx new file mode 100644 index 0000000..b498b1c --- /dev/null +++ b/Global_Indexer/My Project/Resources.resx @@ -0,0 +1,250 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + ..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bell_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_Forward_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_Open_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\KeyDown_8461_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_connect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Copy_6524.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Benutzer.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/Global_Indexer/My Project/Settings.Designer.vb b/Global_Indexer/My Project/Settings.Designer.vb new file mode 100644 index 0000000..8b903e6 --- /dev/null +++ b/Global_Indexer/My Project/Settings.Designer.vb @@ -0,0 +1,96 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +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 "Funktion zum automatischen Speichern von My.Settings" +#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 + + _ + Public ReadOnly Property DD_ECMConnectionString() As String + Get + Return CType(Me("DD_ECMConnectionString"),String) + End Get + End Property + + _ + Public Property SplitterDistance_Viewer() As Integer + Get + Return CType(Me("SplitterDistance_Viewer"),Integer) + End Get + Set + Me("SplitterDistance_Viewer") = value + End Set + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Global_Indexer.My.MySettings + Get + Return Global.Global_Indexer.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Global_Indexer/My Project/Settings.settings b/Global_Indexer/My Project/Settings.settings new file mode 100644 index 0000000..2afad61 --- /dev/null +++ b/Global_Indexer/My Project/Settings.settings @@ -0,0 +1,17 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + + + 526 + + + \ No newline at end of file diff --git a/Global_Indexer/My Project/licenses.licx b/Global_Indexer/My Project/licenses.licx new file mode 100644 index 0000000..c2e28e4 --- /dev/null +++ b/Global_Indexer/My Project/licenses.licx @@ -0,0 +1,6 @@ +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraSpreadsheet.SpreadsheetControl, DevExpress.XtraSpreadsheet.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb new file mode 100644 index 0000000..70fea0b --- /dev/null +++ b/Global_Indexer/MyDataset.Designer.vb @@ -0,0 +1,27273 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.34014 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class MyDataset + Inherits Global.System.Data.DataSet + + Private tableTBDD_USER As TBDD_USERDataTable + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + + Private tableTBDD_DOKART_MODULE As TBDD_DOKART_MODULEDataTable + + Private tableTBDD_MODULES As TBDD_MODULESDataTable + + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + Private tableVWDDINDEX_MAN As VWDDINDEX_MANDataTable + + Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + Private tableTBGI_CONFIGURATION As TBGI_CONFIGURATIONDataTable + + Private tableTBGI_OBJECTTYPE_EMAIL_INDEX As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + + Private tableTBDD_INDEX_MAN_POSTPROCESSING As TBDD_INDEX_MAN_POSTPROCESSINGDataTable + + Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable + + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + + Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable + + Private tableVWGI_DOCTYPE_GROUP As VWGI_DOCTYPE_GROUPDataTable + + Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable + + Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable + + Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable + + Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable + + Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable + + Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable + + Private tableTBTempFiles2Index As TBTempFiles2IndexDataTable + + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + + Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_MAN_CID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_AUTOM_DOCID As Global.System.Data.DataRelation + + Private relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID As Global.System.Data.DataRelation + + Private relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_PATTERNS_PROFILE_ID As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_USER_PROFILE_USER_ID As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As Global.System.Data.DataRelation + + Private relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) + End If + If (Not (ds.Tables("TBDD_DOKART_MODULE")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKART_MODULEDataTable(ds.Tables("TBDD_DOKART_MODULE"))) + End If + If (Not (ds.Tables("TBDD_MODULES")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_MODULESDataTable(ds.Tables("TBDD_MODULES"))) + End If + If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN"))) + End If + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If + If (Not (ds.Tables("VWDDINDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New VWDDINDEX_MANDataTable(ds.Tables("VWDDINDEX_MAN"))) + End If + If (Not (ds.Tables("VWDDINDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New VWDDINDEX_AUTOMDataTable(ds.Tables("VWDDINDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBGI_CONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBGI_CONFIGURATIONDataTable(ds.Tables("TBGI_CONFIGURATION"))) + End If + If (Not (ds.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX")) Is Nothing) Then + MyBase.Tables.Add(New TBGI_OBJECTTYPE_EMAIL_INDEXDataTable(ds.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX"))) + End If + If (Not (ds.Tables("TBDD_INDEX_MAN_POSTPROCESSING")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_MAN_POSTPROCESSINGDataTable(ds.Tables("TBDD_INDEX_MAN_POSTPROCESSING"))) + End If + If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN"))) + End If + If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) + End If + If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) + End If + If (Not (ds.Tables("VWGI_USER_GROUPS_RELATION")) Is Nothing) Then + MyBase.Tables.Add(New VWGI_USER_GROUPS_RELATIONDataTable(ds.Tables("VWGI_USER_GROUPS_RELATION"))) + End If + If (Not (ds.Tables("VWGI_DOCTYPE_GROUP")) Is Nothing) Then + MyBase.Tables.Add(New VWGI_DOCTYPE_GROUPDataTable(ds.Tables("VWGI_DOCTYPE_GROUP"))) + End If + If (Not (ds.Tables("TBHOTKEY_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_PROFILEDataTable(ds.Tables("TBHOTKEY_PROFILE"))) + End If + If (Not (ds.Tables("TBHOTKEY_PATTERNS")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_PATTERNSDataTable(ds.Tables("TBHOTKEY_PATTERNS"))) + End If + If (Not (ds.Tables("TBMYHOTKEYS")) Is Nothing) Then + MyBase.Tables.Add(New TBMYHOTKEYSDataTable(ds.Tables("TBMYHOTKEYS"))) + End If + If (Not (ds.Tables("TBHOTKEY_USER_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_USER_PROFILEDataTable(ds.Tables("TBHOTKEY_USER_PROFILE"))) + End If + If (Not (ds.Tables("TBHOTKEY_PATTERNS_REWORK")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_PATTERNS_REWORKDataTable(ds.Tables("TBHOTKEY_PATTERNS_REWORK"))) + End If + If (Not (ds.Tables("TBHOTKEY_WINDOW_HOOK")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_WINDOW_HOOKDataTable(ds.Tables("TBHOTKEY_WINDOW_HOOK"))) + End If + If (Not (ds.Tables("TBTempFiles2Index")) Is Nothing) Then + MyBase.Tables.Add(New TBTempFiles2IndexDataTable(ds.Tables("TBTempFiles2Index"))) + End If + If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then + MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable + Get + Return Me.tableTBDD_USER + End Get + End Property + + _ + Public ReadOnly Property TBDD_DOKUMENTART() As TBDD_DOKUMENTARTDataTable + Get + Return Me.tableTBDD_DOKUMENTART + End Get + End Property + + _ + Public ReadOnly Property TBDD_EINGANGSARTEN() As TBDD_EINGANGSARTENDataTable + Get + Return Me.tableTBDD_EINGANGSARTEN + End Get + End Property + + _ + Public ReadOnly Property TBDD_DOKART_MODULE() As TBDD_DOKART_MODULEDataTable + Get + Return Me.tableTBDD_DOKART_MODULE + End Get + End Property + + _ + Public ReadOnly Property TBDD_MODULES() As TBDD_MODULESDataTable + Get + Return Me.tableTBDD_MODULES + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_MAN() As TBDD_INDEX_MANDataTable + Get + Return Me.tableTBDD_INDEX_MAN + End Get + End Property + + _ + Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable + Get + Return Me.tableTBDD_CONNECTION + End Get + End Property + + _ + Public ReadOnly Property VWDDINDEX_MAN() As VWDDINDEX_MANDataTable + Get + Return Me.tableVWDDINDEX_MAN + End Get + End Property + + _ + Public ReadOnly Property VWDDINDEX_AUTOM() As VWDDINDEX_AUTOMDataTable + Get + Return Me.tableVWDDINDEX_AUTOM + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_AUTOM() As TBDD_INDEX_AUTOMDataTable + Get + Return Me.tableTBDD_INDEX_AUTOM + End Get + End Property + + _ + Public ReadOnly Property TBGI_CONFIGURATION() As TBGI_CONFIGURATIONDataTable + Get + Return Me.tableTBGI_CONFIGURATION + End Get + End Property + + _ + Public ReadOnly Property TBGI_OBJECTTYPE_EMAIL_INDEX() As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + Get + Return Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX + End Get + End Property + + _ + Public ReadOnly Property TBDD_INDEX_MAN_POSTPROCESSING() As TBDD_INDEX_MAN_POSTPROCESSINGDataTable + Get + Return Me.tableTBDD_INDEX_MAN_POSTPROCESSING + End Get + End Property + + _ + Public ReadOnly Property TBWHDD_INDEX_MAN() As TBWHDD_INDEX_MANDataTable + Get + Return Me.tableTBWHDD_INDEX_MAN + End Get + End Property + + _ + Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable + Get + Return Me.tableTBDD_USER_GROUPS + End Get + End Property + + _ + Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable + Get + Return Me.tableTBDD_GROUPS_USER + End Get + End Property + + _ + Public ReadOnly Property VWGI_USER_GROUPS_RELATION() As VWGI_USER_GROUPS_RELATIONDataTable + Get + Return Me.tableVWGI_USER_GROUPS_RELATION + End Get + End Property + + _ + Public ReadOnly Property VWGI_DOCTYPE_GROUP() As VWGI_DOCTYPE_GROUPDataTable + Get + Return Me.tableVWGI_DOCTYPE_GROUP + End Get + End Property + + _ + Public ReadOnly Property TBHOTKEY_PROFILE() As TBHOTKEY_PROFILEDataTable + Get + Return Me.tableTBHOTKEY_PROFILE + End Get + End Property + + _ + Public ReadOnly Property TBHOTKEY_PATTERNS() As TBHOTKEY_PATTERNSDataTable + Get + Return Me.tableTBHOTKEY_PATTERNS + End Get + End Property + + _ + Public ReadOnly Property TBMYHOTKEYS() As TBMYHOTKEYSDataTable + Get + Return Me.tableTBMYHOTKEYS + End Get + End Property + + _ + Public ReadOnly Property TBHOTKEY_USER_PROFILE() As TBHOTKEY_USER_PROFILEDataTable + Get + Return Me.tableTBHOTKEY_USER_PROFILE + End Get + End Property + + _ + Public ReadOnly Property TBHOTKEY_PATTERNS_REWORK() As TBHOTKEY_PATTERNS_REWORKDataTable + Get + Return Me.tableTBHOTKEY_PATTERNS_REWORK + End Get + End Property + + _ + Public ReadOnly Property TBHOTKEY_WINDOW_HOOK() As TBHOTKEY_WINDOW_HOOKDataTable + Get + Return Me.tableTBHOTKEY_WINDOW_HOOK + End Get + End Property + + _ + Public ReadOnly Property TBTempFiles2Index() As TBTempFiles2IndexDataTable + Get + Return Me.tableTBTempFiles2Index + End Get + End Property + + _ + Public ReadOnly Property TBTEMP_INDEXRESULTS() As TBTEMP_INDEXRESULTSDataTable + Get + Return Me.tableTBTEMP_INDEXRESULTS + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If + If (Not (ds.Tables("TBDD_DOKUMENTART")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKUMENTARTDataTable(ds.Tables("TBDD_DOKUMENTART"))) + End If + If (Not (ds.Tables("TBDD_EINGANGSARTEN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EINGANGSARTENDataTable(ds.Tables("TBDD_EINGANGSARTEN"))) + End If + If (Not (ds.Tables("TBDD_DOKART_MODULE")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_DOKART_MODULEDataTable(ds.Tables("TBDD_DOKART_MODULE"))) + End If + If (Not (ds.Tables("TBDD_MODULES")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_MODULESDataTable(ds.Tables("TBDD_MODULES"))) + End If + If (Not (ds.Tables("TBDD_INDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_MANDataTable(ds.Tables("TBDD_INDEX_MAN"))) + End If + If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) + End If + If (Not (ds.Tables("VWDDINDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New VWDDINDEX_MANDataTable(ds.Tables("VWDDINDEX_MAN"))) + End If + If (Not (ds.Tables("VWDDINDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New VWDDINDEX_AUTOMDataTable(ds.Tables("VWDDINDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBDD_INDEX_AUTOM")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_AUTOMDataTable(ds.Tables("TBDD_INDEX_AUTOM"))) + End If + If (Not (ds.Tables("TBGI_CONFIGURATION")) Is Nothing) Then + MyBase.Tables.Add(New TBGI_CONFIGURATIONDataTable(ds.Tables("TBGI_CONFIGURATION"))) + End If + If (Not (ds.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX")) Is Nothing) Then + MyBase.Tables.Add(New TBGI_OBJECTTYPE_EMAIL_INDEXDataTable(ds.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX"))) + End If + If (Not (ds.Tables("TBDD_INDEX_MAN_POSTPROCESSING")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_INDEX_MAN_POSTPROCESSINGDataTable(ds.Tables("TBDD_INDEX_MAN_POSTPROCESSING"))) + End If + If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then + MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN"))) + End If + If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) + End If + If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) + End If + If (Not (ds.Tables("VWGI_USER_GROUPS_RELATION")) Is Nothing) Then + MyBase.Tables.Add(New VWGI_USER_GROUPS_RELATIONDataTable(ds.Tables("VWGI_USER_GROUPS_RELATION"))) + End If + If (Not (ds.Tables("VWGI_DOCTYPE_GROUP")) Is Nothing) Then + MyBase.Tables.Add(New VWGI_DOCTYPE_GROUPDataTable(ds.Tables("VWGI_DOCTYPE_GROUP"))) + End If + If (Not (ds.Tables("TBHOTKEY_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_PROFILEDataTable(ds.Tables("TBHOTKEY_PROFILE"))) + End If + If (Not (ds.Tables("TBHOTKEY_PATTERNS")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_PATTERNSDataTable(ds.Tables("TBHOTKEY_PATTERNS"))) + End If + If (Not (ds.Tables("TBMYHOTKEYS")) Is Nothing) Then + MyBase.Tables.Add(New TBMYHOTKEYSDataTable(ds.Tables("TBMYHOTKEYS"))) + End If + If (Not (ds.Tables("TBHOTKEY_USER_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_USER_PROFILEDataTable(ds.Tables("TBHOTKEY_USER_PROFILE"))) + End If + If (Not (ds.Tables("TBHOTKEY_PATTERNS_REWORK")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_PATTERNS_REWORKDataTable(ds.Tables("TBHOTKEY_PATTERNS_REWORK"))) + End If + If (Not (ds.Tables("TBHOTKEY_WINDOW_HOOK")) Is Nothing) Then + MyBase.Tables.Add(New TBHOTKEY_WINDOW_HOOKDataTable(ds.Tables("TBHOTKEY_WINDOW_HOOK"))) + End If + If (Not (ds.Tables("TBTempFiles2Index")) Is Nothing) Then + MyBase.Tables.Add(New TBTempFiles2IndexDataTable(ds.Tables("TBTempFiles2Index"))) + End If + If (Not (ds.Tables("TBTEMP_INDEXRESULTS")) Is Nothing) Then + MyBase.Tables.Add(New TBTEMP_INDEXRESULTSDataTable(ds.Tables("TBTEMP_INDEXRESULTS"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER) Is Nothing) Then + Me.tableTBDD_USER.InitVars + End If + End If + Me.tableTBDD_DOKUMENTART = CType(MyBase.Tables("TBDD_DOKUMENTART"),TBDD_DOKUMENTARTDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_DOKUMENTART) Is Nothing) Then + Me.tableTBDD_DOKUMENTART.InitVars + End If + End If + Me.tableTBDD_EINGANGSARTEN = CType(MyBase.Tables("TBDD_EINGANGSARTEN"),TBDD_EINGANGSARTENDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_EINGANGSARTEN) Is Nothing) Then + Me.tableTBDD_EINGANGSARTEN.InitVars + End If + End If + Me.tableTBDD_DOKART_MODULE = CType(MyBase.Tables("TBDD_DOKART_MODULE"),TBDD_DOKART_MODULEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_DOKART_MODULE) Is Nothing) Then + Me.tableTBDD_DOKART_MODULE.InitVars + End If + End If + Me.tableTBDD_MODULES = CType(MyBase.Tables("TBDD_MODULES"),TBDD_MODULESDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_MODULES) Is Nothing) Then + Me.tableTBDD_MODULES.InitVars + End If + End If + Me.tableTBDD_INDEX_MAN = CType(MyBase.Tables("TBDD_INDEX_MAN"),TBDD_INDEX_MANDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_MAN) Is Nothing) Then + Me.tableTBDD_INDEX_MAN.InitVars + End If + End If + Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then + Me.tableTBDD_CONNECTION.InitVars + End If + End If + Me.tableVWDDINDEX_MAN = CType(MyBase.Tables("VWDDINDEX_MAN"),VWDDINDEX_MANDataTable) + If (initTable = true) Then + If (Not (Me.tableVWDDINDEX_MAN) Is Nothing) Then + Me.tableVWDDINDEX_MAN.InitVars + End If + End If + Me.tableVWDDINDEX_AUTOM = CType(MyBase.Tables("VWDDINDEX_AUTOM"),VWDDINDEX_AUTOMDataTable) + If (initTable = true) Then + If (Not (Me.tableVWDDINDEX_AUTOM) Is Nothing) Then + Me.tableVWDDINDEX_AUTOM.InitVars + End If + End If + Me.tableTBDD_INDEX_AUTOM = CType(MyBase.Tables("TBDD_INDEX_AUTOM"),TBDD_INDEX_AUTOMDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_AUTOM) Is Nothing) Then + Me.tableTBDD_INDEX_AUTOM.InitVars + End If + End If + Me.tableTBGI_CONFIGURATION = CType(MyBase.Tables("TBGI_CONFIGURATION"),TBGI_CONFIGURATIONDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGI_CONFIGURATION) Is Nothing) Then + Me.tableTBGI_CONFIGURATION.InitVars + End If + End If + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(MyBase.Tables("TBGI_OBJECTTYPE_EMAIL_INDEX"),TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + If (initTable = true) Then + If (Not (Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX) Is Nothing) Then + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.InitVars + End If + End If + Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(MyBase.Tables("TBDD_INDEX_MAN_POSTPROCESSING"),TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_INDEX_MAN_POSTPROCESSING) Is Nothing) Then + Me.tableTBDD_INDEX_MAN_POSTPROCESSING.InitVars + End If + End If + Me.tableTBWHDD_INDEX_MAN = CType(MyBase.Tables("TBWHDD_INDEX_MAN"),TBWHDD_INDEX_MANDataTable) + If (initTable = true) Then + If (Not (Me.tableTBWHDD_INDEX_MAN) Is Nothing) Then + Me.tableTBWHDD_INDEX_MAN.InitVars + End If + End If + Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then + Me.tableTBDD_USER_GROUPS.InitVars + End If + End If + Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then + Me.tableTBDD_GROUPS_USER.InitVars + End If + End If + Me.tableVWGI_USER_GROUPS_RELATION = CType(MyBase.Tables("VWGI_USER_GROUPS_RELATION"),VWGI_USER_GROUPS_RELATIONDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGI_USER_GROUPS_RELATION) Is Nothing) Then + Me.tableVWGI_USER_GROUPS_RELATION.InitVars + End If + End If + Me.tableVWGI_DOCTYPE_GROUP = CType(MyBase.Tables("VWGI_DOCTYPE_GROUP"),VWGI_DOCTYPE_GROUPDataTable) + If (initTable = true) Then + If (Not (Me.tableVWGI_DOCTYPE_GROUP) Is Nothing) Then + Me.tableVWGI_DOCTYPE_GROUP.InitVars + End If + End If + Me.tableTBHOTKEY_PROFILE = CType(MyBase.Tables("TBHOTKEY_PROFILE"),TBHOTKEY_PROFILEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBHOTKEY_PROFILE) Is Nothing) Then + Me.tableTBHOTKEY_PROFILE.InitVars + End If + End If + Me.tableTBHOTKEY_PATTERNS = CType(MyBase.Tables("TBHOTKEY_PATTERNS"),TBHOTKEY_PATTERNSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBHOTKEY_PATTERNS) Is Nothing) Then + Me.tableTBHOTKEY_PATTERNS.InitVars + End If + End If + Me.tableTBMYHOTKEYS = CType(MyBase.Tables("TBMYHOTKEYS"),TBMYHOTKEYSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBMYHOTKEYS) Is Nothing) Then + Me.tableTBMYHOTKEYS.InitVars + End If + End If + Me.tableTBHOTKEY_USER_PROFILE = CType(MyBase.Tables("TBHOTKEY_USER_PROFILE"),TBHOTKEY_USER_PROFILEDataTable) + If (initTable = true) Then + If (Not (Me.tableTBHOTKEY_USER_PROFILE) Is Nothing) Then + Me.tableTBHOTKEY_USER_PROFILE.InitVars + End If + End If + Me.tableTBHOTKEY_PATTERNS_REWORK = CType(MyBase.Tables("TBHOTKEY_PATTERNS_REWORK"),TBHOTKEY_PATTERNS_REWORKDataTable) + If (initTable = true) Then + If (Not (Me.tableTBHOTKEY_PATTERNS_REWORK) Is Nothing) Then + Me.tableTBHOTKEY_PATTERNS_REWORK.InitVars + End If + End If + Me.tableTBHOTKEY_WINDOW_HOOK = CType(MyBase.Tables("TBHOTKEY_WINDOW_HOOK"),TBHOTKEY_WINDOW_HOOKDataTable) + If (initTable = true) Then + If (Not (Me.tableTBHOTKEY_WINDOW_HOOK) Is Nothing) Then + Me.tableTBHOTKEY_WINDOW_HOOK.InitVars + End If + End If + Me.tableTBTempFiles2Index = CType(MyBase.Tables("TBTempFiles2Index"),TBTempFiles2IndexDataTable) + If (initTable = true) Then + If (Not (Me.tableTBTempFiles2Index) Is Nothing) Then + Me.tableTBTempFiles2Index.InitVars + End If + End If + Me.tableTBTEMP_INDEXRESULTS = CType(MyBase.Tables("TBTEMP_INDEXRESULTS"),TBTEMP_INDEXRESULTSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBTEMP_INDEXRESULTS) Is Nothing) Then + Me.tableTBTEMP_INDEXRESULTS.InitVars + End If + End If + Me.relationFK_TBDD_DOKUMENTART_EINGID = Me.Relations("FK_TBDD_DOKUMENTART_EINGID") + Me.relationFK_TBDD_INDEX_MAN_CID = Me.Relations("FK_TBDD_INDEX_MAN_CID") + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = Me.Relations("FK_TBDD_INDEX_AUTOM_DOCID") + Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID = Me.Relations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID") + Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = Me.Relations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1") + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") + Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID") + Me.relationFK_TBDD_INDEX_MAN_DAID = Me.Relations("FK_TBDD_INDEX_MAN_DAID") + Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID = Me.Relations("FK_TBHOTKEY_PATTERNS_PROFILE_ID") + Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 = Me.Relations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1") + Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID = Me.Relations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID") + Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 = Me.Relations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1") + Me.relationFK_TBHOTKEY_USER_PROFILE_USER_ID = Me.Relations("FK_TBHOTKEY_USER_PROFILE_USER_ID") + Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID = Me.Relations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") + Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID = Me.Relations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "MyDataset" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/MyDataset.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBDD_USER = New TBDD_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER) + Me.tableTBDD_DOKUMENTART = New TBDD_DOKUMENTARTDataTable() + MyBase.Tables.Add(Me.tableTBDD_DOKUMENTART) + Me.tableTBDD_EINGANGSARTEN = New TBDD_EINGANGSARTENDataTable() + MyBase.Tables.Add(Me.tableTBDD_EINGANGSARTEN) + Me.tableTBDD_DOKART_MODULE = New TBDD_DOKART_MODULEDataTable() + MyBase.Tables.Add(Me.tableTBDD_DOKART_MODULE) + Me.tableTBDD_MODULES = New TBDD_MODULESDataTable() + MyBase.Tables.Add(Me.tableTBDD_MODULES) + Me.tableTBDD_INDEX_MAN = New TBDD_INDEX_MANDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN) + Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable() + MyBase.Tables.Add(Me.tableTBDD_CONNECTION) + Me.tableVWDDINDEX_MAN = New VWDDINDEX_MANDataTable() + MyBase.Tables.Add(Me.tableVWDDINDEX_MAN) + Me.tableVWDDINDEX_AUTOM = New VWDDINDEX_AUTOMDataTable() + MyBase.Tables.Add(Me.tableVWDDINDEX_AUTOM) + Me.tableTBDD_INDEX_AUTOM = New TBDD_INDEX_AUTOMDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_AUTOM) + Me.tableTBGI_CONFIGURATION = New TBGI_CONFIGURATIONDataTable() + MyBase.Tables.Add(Me.tableTBGI_CONFIGURATION) + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = New TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() + MyBase.Tables.Add(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX) + Me.tableTBDD_INDEX_MAN_POSTPROCESSING = New TBDD_INDEX_MAN_POSTPROCESSINGDataTable() + MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN_POSTPROCESSING) + Me.tableTBWHDD_INDEX_MAN = New TBWHDD_INDEX_MANDataTable() + MyBase.Tables.Add(Me.tableTBWHDD_INDEX_MAN) + Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS) + Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER) + Me.tableVWGI_USER_GROUPS_RELATION = New VWGI_USER_GROUPS_RELATIONDataTable() + MyBase.Tables.Add(Me.tableVWGI_USER_GROUPS_RELATION) + Me.tableVWGI_DOCTYPE_GROUP = New VWGI_DOCTYPE_GROUPDataTable() + MyBase.Tables.Add(Me.tableVWGI_DOCTYPE_GROUP) + Me.tableTBHOTKEY_PROFILE = New TBHOTKEY_PROFILEDataTable() + MyBase.Tables.Add(Me.tableTBHOTKEY_PROFILE) + Me.tableTBHOTKEY_PATTERNS = New TBHOTKEY_PATTERNSDataTable() + MyBase.Tables.Add(Me.tableTBHOTKEY_PATTERNS) + Me.tableTBMYHOTKEYS = New TBMYHOTKEYSDataTable() + MyBase.Tables.Add(Me.tableTBMYHOTKEYS) + Me.tableTBHOTKEY_USER_PROFILE = New TBHOTKEY_USER_PROFILEDataTable() + MyBase.Tables.Add(Me.tableTBHOTKEY_USER_PROFILE) + Me.tableTBHOTKEY_PATTERNS_REWORK = New TBHOTKEY_PATTERNS_REWORKDataTable() + MyBase.Tables.Add(Me.tableTBHOTKEY_PATTERNS_REWORK) + Me.tableTBHOTKEY_WINDOW_HOOK = New TBHOTKEY_WINDOW_HOOKDataTable() + MyBase.Tables.Add(Me.tableTBHOTKEY_WINDOW_HOOK) + Me.tableTBTempFiles2Index = New TBTempFiles2IndexDataTable() + MyBase.Tables.Add(Me.tableTBTempFiles2Index) + Me.tableTBTEMP_INDEXRESULTS = New TBTEMP_INDEXRESULTSDataTable() + MyBase.Tables.Add(Me.tableTBTEMP_INDEXRESULTS) + Me.relationFK_TBDD_DOKUMENTART_EINGID = New Global.System.Data.DataRelation("FK_TBDD_DOKUMENTART_EINGID", New Global.System.Data.DataColumn() {Me.tableTBDD_EINGANGSARTEN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_DOKUMENTART_EINGID) + Me.relationFK_TBDD_INDEX_MAN_CID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_CID", New Global.System.Data.DataColumn() {Me.tableTBDD_CONNECTION.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_MAN_CID) + Me.relationFK_TBDD_INDEX_AUTOM_DOCID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_AUTOM_DOCID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_AUTOM_DOCID) + Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID", New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false) + Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID) + Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1", New Global.System.Data.DataColumn() {Me.tableTBWHDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false) + Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1) + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) + Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) + Me.relationFK_TBDD_INDEX_MAN_DAID = New Global.System.Data.DataRelation("FK_TBDD_INDEX_MAN_DAID", New Global.System.Data.DataColumn() {Me.tableTBDD_DOKUMENTART.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN.DOK_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_INDEX_MAN_DAID) + Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID) + Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_PROFILE_ID1", New Global.System.Data.DataColumn() {Me.tableTBMYHOTKEYS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1) + Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID) + Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1", New Global.System.Data.DataColumn() {Me.tableTBMYHOTKEYS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1) + Me.relationFK_TBHOTKEY_USER_PROFILE_USER_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_USER_PROFILE_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_USER_PROFILE_USER_ID) + Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID) + Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID = New Global.System.Data.DataRelation("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID", New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID) + End Sub + + _ + Private Function ShouldSerializeTBDD_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_DOKUMENTART() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_EINGANGSARTEN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_DOKART_MODULE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_MODULES() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_MAN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_CONNECTION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWDDINDEX_MAN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWDDINDEX_AUTOM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_AUTOM() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGI_CONFIGURATION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBGI_OBJECTTYPE_EMAIL_INDEX() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_INDEX_MAN_POSTPROCESSING() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWHDD_INDEX_MAN() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGI_USER_GROUPS_RELATION() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeVWGI_DOCTYPE_GROUP() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBHOTKEY_PROFILE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBHOTKEY_PATTERNS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBMYHOTKEYS() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBHOTKEY_USER_PROFILE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBHOTKEY_PATTERNS_REWORK() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBHOTKEY_WINDOW_HOOK() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBTempFiles2Index() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBTEMP_INDEXRESULTS() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As MyDataset = New MyDataset() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) + + _ + Public Delegate Sub TBDD_DOKUMENTARTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKUMENTARTRowChangeEvent) + + _ + Public Delegate Sub TBDD_EINGANGSARTENRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EINGANGSARTENRowChangeEvent) + + _ + Public Delegate Sub TBDD_DOKART_MODULERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_DOKART_MODULERowChangeEvent) + + _ + Public Delegate Sub TBDD_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_MODULESRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MANRowChangeEvent) + + _ + Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) + + _ + Public Delegate Sub VWDDINDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_MANRowChangeEvent) + + _ + Public Delegate Sub VWDDINDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDDINDEX_AUTOMRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_AUTOMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_AUTOMRowChangeEvent) + + _ + Public Delegate Sub TBGI_CONFIGURATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_CONFIGURATIONRowChangeEvent) + + _ + Public Delegate Sub TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent) + + _ + Public Delegate Sub TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent) + + _ + Public Delegate Sub TBWHDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWHDD_INDEX_MANRowChangeEvent) + + _ + Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) + + _ + Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) + + _ + Public Delegate Sub VWGI_USER_GROUPS_RELATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_USER_GROUPS_RELATIONRowChangeEvent) + + _ + Public Delegate Sub VWGI_DOCTYPE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_DOCTYPE_GROUPRowChangeEvent) + + _ + Public Delegate Sub TBHOTKEY_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PROFILERowChangeEvent) + + _ + Public Delegate Sub TBHOTKEY_PATTERNSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNSRowChangeEvent) + + _ + Public Delegate Sub TBMYHOTKEYSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMYHOTKEYSRowChangeEvent) + + _ + Public Delegate Sub TBHOTKEY_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_USER_PROFILERowChangeEvent) + + _ + Public Delegate Sub TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNS_REWORKRowChangeEvent) + + _ + Public Delegate Sub TBHOTKEY_WINDOW_HOOKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_WINDOW_HOOKRowChangeEvent) + + _ + Public Delegate Sub TBTempFiles2IndexRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTempFiles2IndexRowChangeEvent) + + _ + Public Delegate Sub TBTEMP_INDEXRESULTSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBTEMP_INDEXRESULTSRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLOGGED_IN As Global.System.Data.DataColumn + + Private columnLOGGED_WHERE As Global.System.Data.DataColumn + + Private columnLOG_IN_WHEN As Global.System.Data.DataColumn + + Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn + + Private columnGI_ADMIN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL + End Get + End Property + + _ + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_IN + End Get + End Property + + _ + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_WHERE + End Get + End Property + + _ + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_IN_WHEN + End Get + End Property + + _ + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_OUT_WHEN + End Get + End Property + + _ + Public ReadOnly Property GI_ADMINColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGI_ADMIN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow + Get + Return CType(Me.Rows(index),TBDD_USERRow) + End Get + End Property + + _ + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal GI_ADMIN As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USERRow + Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") + Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") + Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") + Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") + Me.columnGI_ADMIN = MyBase.Columns("GI_ADMIN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRENAME) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL) + Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_IN) + Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_WHERE) + Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_IN_WHEN) + Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) + Me.columnGI_ADMIN = New Global.System.Data.DataColumn("GI_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGI_ADMIN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPRENAME.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnEMAIL.MaxLength = 100 + Me.columnLOGGED_IN.AllowDBNull = false + Me.columnLOGGED_IN.DefaultValue = CType(false,Boolean) + Me.columnLOGGED_WHERE.MaxLength = 50 + Me.columnGI_ADMIN.AllowDBNull = false + Me.columnGI_ADMIN.DefaultValue = CType(false,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_USERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnEINGANGSART_ID As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnZIEL_PFAD As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnNAMENKONVENTION As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnOBJEKTTYP As Global.System.Data.DataColumn + + Private columnWINDREAM_DIRECT As Global.System.Data.DataColumn + + Private columnFOLDER_FOR_INDEX As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_DOKUMENTART" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEINGANGSART_ID + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn + Get + Return Me.columnZIEL_PFAD + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAMENKONVENTION + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJEKTTYP + End Get + End Property + + _ + Public ReadOnly Property WINDREAM_DIRECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDREAM_DIRECT + End Get + End Property + + _ + Public ReadOnly Property FOLDER_FOR_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLDER_FOR_INDEX + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow + Get + Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + End Get + End Property + + _ + Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer) As TBDD_DOKUMENTARTRow + Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE} + If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) + End If + rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKUMENTARTRow) + Return rowTBDD_DOKUMENTARTRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_DOKUMENTARTDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") + Me.columnWINDREAM_DIRECT = MyBase.Columns("WINDREAM_DIRECT") + Me.columnFOLDER_FOR_INDEX = MyBase.Columns("FOLDER_FOR_INDEX") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINGANGSART_ID) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZIEL_PFAD) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMENKONVENTION) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJEKTTYP) + Me.columnWINDREAM_DIRECT = New Global.System.Data.DataColumn("WINDREAM_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_DIRECT) + Me.columnFOLDER_FOR_INDEX = New Global.System.Data.DataColumn("FOLDER_FOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLDER_FOR_INDEX) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnEINGANGSART_ID.AllowDBNull = false + Me.columnEINGANGSART_ID.DefaultValue = CType(2,Byte) + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnZIEL_PFAD.AllowDBNull = false + Me.columnZIEL_PFAD.MaxLength = 250 + Me.columnBESCHREIBUNG.MaxLength = 250 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnNAMENKONVENTION.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnOBJEKTTYP.MaxLength = 50 + Me.columnWINDREAM_DIRECT.AllowDBNull = false + Me.columnWINDREAM_DIRECT.DefaultValue = CType(false,Boolean) + Me.columnFOLDER_FOR_INDEX.DefaultValue = CType("",String) + Me.columnFOLDER_FOR_INDEX.MaxLength = 500 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Integer) + End Sub + + _ + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_DOKUMENTARTRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_DOKUMENTARTRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_DOKUMENTARTDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_EINGANGSARTENDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnBESCHREIBUNG As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_EINGANGSARTEN" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBESCHREIBUNG + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EINGANGSARTENRow + Get + Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) + End Get + End Property + + _ + Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow + Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EINGANGSARTENRow) + Return rowTBDD_EINGANGSARTENRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_EINGANGSARTENDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnBESCHREIBUNG.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EINGANGSARTENRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_EINGANGSARTENRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_EINGANGSARTENDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_DOKART_MODULEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKART_MODULERow) + + Private columnID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_DOKART_MODULE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKART_MODULERow + Get + Return CType(Me.Rows(index),TBDD_DOKART_MODULERow) + End Get + End Property + + _ + Public Event TBDD_DOKART_MODULERowChanging As TBDD_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBDD_DOKART_MODULERowChanged As TBDD_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBDD_DOKART_MODULERowDeleting As TBDD_DOKART_MODULERowChangeEventHandler + + _ + Public Event TBDD_DOKART_MODULERowDeleted As TBDD_DOKART_MODULERowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_DOKART_MODULERow(ByVal row As TBDD_DOKART_MODULERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_DOKART_MODULERow(ByVal NAME As String) As TBDD_DOKART_MODULERow + Dim rowTBDD_DOKART_MODULERow As TBDD_DOKART_MODULERow = CType(Me.NewRow,TBDD_DOKART_MODULERow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME} + rowTBDD_DOKART_MODULERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKART_MODULERow) + Return rowTBDD_DOKART_MODULERow + End Function + + _ + Public Function FindByID(ByVal ID As Integer) As TBDD_DOKART_MODULERow + Return CType(Me.Rows.Find(New Object() {ID}),TBDD_DOKART_MODULERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_DOKART_MODULEDataTable = CType(MyBase.Clone,TBDD_DOKART_MODULEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_DOKART_MODULEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnID = MyBase.Columns("ID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) + Me.columnID.AutoIncrement = true + Me.columnID.AutoIncrementSeed = -1 + Me.columnID.AutoIncrementStep = -1 + Me.columnID.AllowDBNull = false + Me.columnID.ReadOnly = true + Me.columnID.Unique = true + Me.columnNAME.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_DOKART_MODULERow() As TBDD_DOKART_MODULERow + Return CType(Me.NewRow,TBDD_DOKART_MODULERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_DOKART_MODULERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_DOKART_MODULERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_DOKART_MODULERowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKART_MODULERowChanged(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_DOKART_MODULERowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKART_MODULERowChanging(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_DOKART_MODULERowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKART_MODULERowDeleted(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_DOKART_MODULERowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKART_MODULERowDeleting(Me, New TBDD_DOKART_MODULERowChangeEvent(CType(e.Row,TBDD_DOKART_MODULERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_DOKART_MODULERow(ByVal row As TBDD_DOKART_MODULERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_DOKART_MODULEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_MODULESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_MODULESRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_MODULES" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_MODULESRow + Get + Return CType(Me.Rows(index),TBDD_MODULESRow) + End Get + End Property + + _ + Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler + + _ + Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler + + _ + Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler + + _ + Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_MODULESRow(ByVal NAME As String) As TBDD_MODULESRow + Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME} + rowTBDD_MODULESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_MODULESRow) + Return rowTBDD_MODULESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_MODULESDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow + Return CType(Me.NewRow,TBDD_MODULESRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_MODULESRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_MODULESRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_MODULESDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_INDEX_MANDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MANRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOK_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnWD_INDEX As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDATATYPE As Global.System.Data.DataColumn + + Private columnSUGGESTION As Global.System.Data.DataColumn + + Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_CHECK As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnOPTIONAL As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_MAN" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOK_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_INDEX + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATATYPE + End Get + End Property + + _ + Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUGGESTION + End Get + End Property + + _ + Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEFAULT_VALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_CHECK + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOPTIONAL + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MANRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_MANRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_MANRowChanging As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MANRowChanged As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MANRowDeleting As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MANRowDeleted As TBDD_INDEX_MANRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_MANRow( _ + ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID As TBDD_DOKUMENTARTRow, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal parentTBDD_CONNECTIONRowByFK_TBDD_INDEX_MAN_CID As TBDD_CONNECTIONRow, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal _OPTIONAL As Boolean) As TBDD_INDEX_MANRow + Dim rowTBDD_INDEX_MANRow As TBDD_INDEX_MANRow = CType(Me.NewRow,TBDD_INDEX_MANRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, Nothing, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _OPTIONAL} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_MAN_DAID(0) + End If + If (Not (parentTBDD_CONNECTIONRowByFK_TBDD_INDEX_MAN_CID) Is Nothing) Then + columnValuesArray(8) = parentTBDD_CONNECTIONRowByFK_TBDD_INDEX_MAN_CID(0) + End If + rowTBDD_INDEX_MANRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_MANRow) + Return rowTBDD_INDEX_MANRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MANRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MANRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_MANDataTable = CType(MyBase.Clone,TBDD_INDEX_MANDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_MANDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOK_ID = MyBase.Columns("DOK_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnWD_INDEX = MyBase.Columns("WD_INDEX") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDATATYPE = MyBase.Columns("DATATYPE") + Me.columnSUGGESTION = MyBase.Columns("SUGGESTION") + Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_CHECK = MyBase.Columns("SQL_CHECK") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOK_ID = New Global.System.Data.DataColumn("DOK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOK_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnWD_INDEX = New Global.System.Data.DataColumn("WD_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_INDEX) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDATATYPE = New Global.System.Data.DataColumn("DATATYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATATYPE) + Me.columnSUGGESTION = New Global.System.Data.DataColumn("SUGGESTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUGGESTION) + Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEFAULT_VALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_CHECK = New Global.System.Data.DataColumn("SQL_CHECK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_CHECK) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnOPTIONAL = New Global.System.Data.DataColumn("OPTIONAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "OPTIONALColumn") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL") + MyBase.Columns.Add(Me.columnOPTIONAL) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOK_ID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 50 + Me.columnWD_INDEX.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 150 + Me.columnDATATYPE.DefaultValue = CType("VARCHAR",String) + Me.columnDATATYPE.MaxLength = 50 + Me.columnSUGGESTION.AllowDBNull = false + Me.columnSUGGESTION.DefaultValue = CType(false,Boolean) + Me.columnDEFAULT_VALUE.AllowDBNull = false + Me.columnDEFAULT_VALUE.DefaultValue = CType("",String) + Me.columnDEFAULT_VALUE.MaxLength = 50 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Integer) + Me.columnSQL_RESULT.AllowDBNull = false + Me.columnSQL_RESULT.DefaultValue = CType("",String) + Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnSQL_CHECK.AllowDBNull = false + Me.columnSQL_CHECK.DefaultValue = CType("",String) + Me.columnSQL_CHECK.MaxLength = 2000 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnOPTIONAL.AllowDBNull = false + Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBDD_INDEX_MANRow() As TBDD_INDEX_MANRow + Return CType(Me.NewRow,TBDD_INDEX_MANRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_MANRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_MANRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_MANRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowChanged(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_MANRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowChanging(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_MANRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowDeleted(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_MANRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MANRowDeleting(Me, New TBDD_INDEX_MANRowChangeEvent(CType(e.Row,TBDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_MANRow(ByVal row As TBDD_INDEX_MANRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_INDEX_MANDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_CONNECTION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CONNECTIONRow) + Return rowTBDD_CONNECTIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_CONNECTIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 50 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(true,Boolean) + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Return CType(Me.NewRow,TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_CONNECTIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWDDINDEX_MANDataTable + Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_MANRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnWD_INDEX As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDATATYPE As Global.System.Data.DataColumn + + Private columnDOK_ID As Global.System.Data.DataColumn + + Private columnDOKUMENTART As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnSUGGESTION As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnCONNECTION As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_CHECK As Global.System.Data.DataColumn + + Private columnIndexiert As Global.System.Data.DataColumn + + Private columnIndexwert As Global.System.Data.DataColumn + + Private columnOPTIONAL As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWDDINDEX_MAN" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property WD_INDEXColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_INDEX + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DATATYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATATYPE + End Get + End Property + + _ + Public ReadOnly Property DOK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOK_ID + End Get + End Property + + _ + Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOKUMENTART + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property SUGGESTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSUGGESTION + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property CONNECTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_CHECKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_CHECK + End Get + End Property + + _ + Public ReadOnly Property IndexiertColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexiert + End Get + End Property + + _ + Public ReadOnly Property IndexwertColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexwert + End Get + End Property + + _ + Public ReadOnly Property OPTIONALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOPTIONAL + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_MANRow + Get + Return CType(Me.Rows(index),VWDDINDEX_MANRow) + End Get + End Property + + _ + Public Event VWDDINDEX_MANRowChanging As VWDDINDEX_MANRowChangeEventHandler + + _ + Public Event VWDDINDEX_MANRowChanged As VWDDINDEX_MANRowChangeEventHandler + + _ + Public Event VWDDINDEX_MANRowDeleting As VWDDINDEX_MANRowChangeEventHandler + + _ + Public Event VWDDINDEX_MANRowDeleted As VWDDINDEX_MANRowChangeEventHandler + + _ + Public Overloads Sub AddVWDDINDEX_MANRow(ByVal row As VWDDINDEX_MANRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWDDINDEX_MANRow( _ + ByVal GUID As Integer, _ + ByVal INDEXNAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal DOK_ID As Integer, _ + ByVal DOKUMENTART As String, _ + ByVal KURZNAME As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal CONNECTION_ID As Short, _ + ByVal CONNECTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATENBANK As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal Indexiert As Boolean, _ + ByVal Indexwert As String, _ + ByVal _OPTIONAL As Boolean) As VWDDINDEX_MANRow + Dim rowVWDDINDEX_MANRow As VWDDINDEX_MANRow = CType(Me.NewRow,VWDDINDEX_MANRow) + Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_CHECK, Indexiert, Indexwert, _OPTIONAL} + rowVWDDINDEX_MANRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWDDINDEX_MANRow) + Return rowVWDDINDEX_MANRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_MANRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_MANRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWDDINDEX_MANDataTable = CType(MyBase.Clone,VWDDINDEX_MANDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWDDINDEX_MANDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnWD_INDEX = MyBase.Columns("WD_INDEX") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDATATYPE = MyBase.Columns("DATATYPE") + Me.columnDOK_ID = MyBase.Columns("DOK_ID") + Me.columnDOKUMENTART = MyBase.Columns("DOKUMENTART") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnSUGGESTION = MyBase.Columns("SUGGESTION") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCONNECTION = MyBase.Columns("CONNECTION") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_CHECK = MyBase.Columns("SQL_CHECK") + Me.columnIndexiert = MyBase.Columns("Indexiert") + Me.columnIndexwert = MyBase.Columns("Indexwert") + Me.columnOPTIONAL = MyBase.Columns("OPTIONAL") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnWD_INDEX = New Global.System.Data.DataColumn("WD_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_INDEX) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDATATYPE = New Global.System.Data.DataColumn("DATATYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATATYPE) + Me.columnDOK_ID = New Global.System.Data.DataColumn("DOK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOK_ID) + Me.columnDOKUMENTART = New Global.System.Data.DataColumn("DOKUMENTART", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOKUMENTART) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnSUGGESTION = New Global.System.Data.DataColumn("SUGGESTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSUGGESTION) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnCONNECTION = New Global.System.Data.DataColumn("CONNECTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_CHECK = New Global.System.Data.DataColumn("SQL_CHECK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_CHECK) + Me.columnIndexiert = New Global.System.Data.DataColumn("Indexiert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexiert) + Me.columnIndexwert = New Global.System.Data.DataColumn("Indexwert", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexwert) + Me.columnOPTIONAL = New Global.System.Data.DataColumn("OPTIONAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "OPTIONALColumn") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnOPTIONAL") + Me.columnOPTIONAL.ExtendedProperties.Add("Generator_UserColumnName", "OPTIONAL") + MyBase.Columns.Add(Me.columnOPTIONAL) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 50 + Me.columnWD_INDEX.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 150 + Me.columnDATATYPE.MaxLength = 50 + Me.columnDOK_ID.AllowDBNull = false + Me.columnDOKUMENTART.AllowDBNull = false + Me.columnDOKUMENTART.MaxLength = 50 + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnSUGGESTION.AllowDBNull = false + Me.columnCONNECTION.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 50 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnSQL_RESULT.AllowDBNull = false + Me.columnSQL_RESULT.DefaultValue = CType("",String) + Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnSQL_CHECK.AllowDBNull = false + Me.columnSQL_CHECK.DefaultValue = CType("",String) + Me.columnSQL_CHECK.MaxLength = 2000 + Me.columnIndexiert.DefaultValue = CType(false,Boolean) + Me.columnIndexwert.DefaultValue = CType("",String) + Me.columnOPTIONAL.AllowDBNull = false + Me.columnOPTIONAL.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewVWDDINDEX_MANRow() As VWDDINDEX_MANRow + Return CType(Me.NewRow,VWDDINDEX_MANRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWDDINDEX_MANRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWDDINDEX_MANRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWDDINDEX_MANRowChangedEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_MANRowChanged(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWDDINDEX_MANRowChangingEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_MANRowChanging(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWDDINDEX_MANRowDeletedEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_MANRowDeleted(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWDDINDEX_MANRowDeletingEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_MANRowDeleting(Me, New VWDDINDEX_MANRowChangeEvent(CType(e.Row,VWDDINDEX_MANRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWDDINDEX_MANRow(ByVal row As VWDDINDEX_MANRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWDDINDEX_MANDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWDDINDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_AUTOMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnDOKUMENTART As Global.System.Data.DataColumn + + Private columnKURZNAME As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnCONNECTION As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnIndexiert As Global.System.Data.DataColumn + + Private columnIndexwert As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWDDINDEX_AUTOM" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOKUMENTART + End Get + End Property + + _ + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnKURZNAME + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property CONNECTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION + End Get + End Property + + _ + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PROVIDER + End Get + End Property + + _ + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSERVER + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property IndexiertColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexiert + End Get + End Property + + _ + Public ReadOnly Property IndexwertColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexwert + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_AUTOMRow + Get + Return CType(Me.Rows(index),VWDDINDEX_AUTOMRow) + End Get + End Property + + _ + Public Event VWDDINDEX_AUTOMRowChanging As VWDDINDEX_AUTOMRowChangeEventHandler + + _ + Public Event VWDDINDEX_AUTOMRowChanged As VWDDINDEX_AUTOMRowChangeEventHandler + + _ + Public Event VWDDINDEX_AUTOMRowDeleting As VWDDINDEX_AUTOMRowChangeEventHandler + + _ + Public Event VWDDINDEX_AUTOMRowDeleted As VWDDINDEX_AUTOMRowChangeEventHandler + + _ + Public Overloads Sub AddVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWDDINDEX_AUTOMRow( _ + ByVal GUID As Integer, _ + ByVal INDEXNAME As String, _ + ByVal COMMENT As String, _ + ByVal DOCTYPE_ID As Integer, _ + ByVal DOKUMENTART As String, _ + ByVal KURZNAME As String, _ + ByVal CONNECTION_ID As Short, _ + ByVal CONNECTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATENBANK As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal SQL_RESULT As String, _ + ByVal Indexiert As Boolean, _ + ByVal Indexwert As String, _ + ByVal VALUE As String) As VWDDINDEX_AUTOMRow + Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, Indexiert, Indexwert, VALUE} + rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWDDINDEX_AUTOMRow) + Return rowVWDDINDEX_AUTOMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_AUTOMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone,VWDDINDEX_AUTOMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWDDINDEX_AUTOMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnDOKUMENTART = MyBase.Columns("DOKUMENTART") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCONNECTION = MyBase.Columns("CONNECTION") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnIndexiert = MyBase.Columns("Indexiert") + Me.columnIndexwert = MyBase.Columns("Indexwert") + Me.columnVALUE = MyBase.Columns("VALUE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnDOKUMENTART = New Global.System.Data.DataColumn("DOKUMENTART", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOKUMENTART) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnCONNECTION = New Global.System.Data.DataColumn("CONNECTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnIndexiert = New Global.System.Data.DataColumn("Indexiert", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexiert) + Me.columnIndexwert = New Global.System.Data.DataColumn("Indexwert", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexwert) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 50 + Me.columnCOMMENT.MaxLength = 400 + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnDOKUMENTART.AllowDBNull = false + Me.columnDOKUMENTART.MaxLength = 50 + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnCONNECTION_ID.AllowDBNull = false + Me.columnCONNECTION.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 50 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnSQL_RESULT.AllowDBNull = false + Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnIndexiert.DefaultValue = CType(false,Boolean) + Me.columnIndexwert.DefaultValue = CType("",String) + Me.columnVALUE.MaxLength = 2000 + End Sub + + _ + Public Function NewVWDDINDEX_AUTOMRow() As VWDDINDEX_AUTOMRow + Return CType(Me.NewRow,VWDDINDEX_AUTOMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWDDINDEX_AUTOMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWDDINDEX_AUTOMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWDDINDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowChanged(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWDDINDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowChanging(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWDDINDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowDeleted(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWDDINDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowDeleting(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWDDINDEX_AUTOMDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_INDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_ACTIVE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_AUTOM" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As TBDD_INDEX_AUTOMRow + Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) + End If + rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) + Return rowTBDD_INDEX_AUTOMRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_AUTOMDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_ACTIVE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.DefaultValue = CType("Auto-Index wählen",String) + Me.columnINDEXNAME.MaxLength = 50 + Me.columnVALUE.MaxLength = 2000 + Me.columnCONNECTION_ID.DefaultValue = CType(0,Short) + Me.columnCOMMENT.MaxLength = 400 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSQL_RESULT.DefaultValue = CType("",String) + Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnSQL_ACTIVE.AllowDBNull = false + Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow + Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_AUTOMRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_AUTOMRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_INDEX_AUTOMDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGI_CONFIGURATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGI_CONFIGURATIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_ID As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_FROM As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_TO As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_SUBJECT As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_DATE_IN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGI_CONFIGURATION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_ID + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_FROMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_FROM + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_TOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_TO + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_SUBJECT + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_DATE_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_DATE_IN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_CONFIGURATIONRow + Get + Return CType(Me.Rows(index),TBGI_CONFIGURATIONRow) + End Get + End Property + + _ + Public Event TBGI_CONFIGURATIONRowChanging As TBGI_CONFIGURATIONRowChangeEventHandler + + _ + Public Event TBGI_CONFIGURATIONRowChanged As TBGI_CONFIGURATIONRowChangeEventHandler + + _ + Public Event TBGI_CONFIGURATIONRowDeleting As TBGI_CONFIGURATIONRowChangeEventHandler + + _ + Public Event TBGI_CONFIGURATIONRowDeleted As TBGI_CONFIGURATIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBGI_CONFIGURATIONRow(ByVal row As TBGI_CONFIGURATIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGI_CONFIGURATIONRow(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBGI_CONFIGURATIONRow + Dim rowTBGI_CONFIGURATIONRow As TBGI_CONFIGURATIONRow = CType(Me.NewRow,TBGI_CONFIGURATIONRow) + Dim columnValuesArray() As Object = New Object() {GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN} + rowTBGI_CONFIGURATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGI_CONFIGURATIONRow) + Return rowTBGI_CONFIGURATIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBGI_CONFIGURATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_CONFIGURATIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGI_CONFIGURATIONDataTable = CType(MyBase.Clone,TBGI_CONFIGURATIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGI_CONFIGURATIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnIDX_EMAIL_ID = MyBase.Columns("IDX_EMAIL_ID") + Me.columnIDX_EMAIL_FROM = MyBase.Columns("IDX_EMAIL_FROM") + Me.columnIDX_EMAIL_TO = MyBase.Columns("IDX_EMAIL_TO") + Me.columnIDX_EMAIL_SUBJECT = MyBase.Columns("IDX_EMAIL_SUBJECT") + Me.columnIDX_EMAIL_DATE_IN = MyBase.Columns("IDX_EMAIL_DATE_IN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnIDX_EMAIL_ID = New Global.System.Data.DataColumn("IDX_EMAIL_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_ID) + Me.columnIDX_EMAIL_FROM = New Global.System.Data.DataColumn("IDX_EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_FROM) + Me.columnIDX_EMAIL_TO = New Global.System.Data.DataColumn("IDX_EMAIL_TO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_TO) + Me.columnIDX_EMAIL_SUBJECT = New Global.System.Data.DataColumn("IDX_EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_SUBJECT) + Me.columnIDX_EMAIL_DATE_IN = New Global.System.Data.DataColumn("IDX_EMAIL_DATE_IN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_DATE_IN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnGUID.DefaultValue = CType(1,Byte) + Me.columnIDX_EMAIL_ID.AllowDBNull = false + Me.columnIDX_EMAIL_ID.MaxLength = 50 + Me.columnIDX_EMAIL_FROM.AllowDBNull = false + Me.columnIDX_EMAIL_FROM.MaxLength = 50 + Me.columnIDX_EMAIL_TO.AllowDBNull = false + Me.columnIDX_EMAIL_TO.MaxLength = 50 + Me.columnIDX_EMAIL_SUBJECT.AllowDBNull = false + Me.columnIDX_EMAIL_SUBJECT.MaxLength = 50 + Me.columnIDX_EMAIL_DATE_IN.AllowDBNull = false + Me.columnIDX_EMAIL_DATE_IN.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBGI_CONFIGURATIONRow() As TBGI_CONFIGURATIONRow + Return CType(Me.NewRow,TBGI_CONFIGURATIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGI_CONFIGURATIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGI_CONFIGURATIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGI_CONFIGURATIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBGI_CONFIGURATIONRowChanged(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGI_CONFIGURATIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBGI_CONFIGURATIONRowChanging(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGI_CONFIGURATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGI_CONFIGURATIONRowDeleted(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGI_CONFIGURATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGI_CONFIGURATIONRowDeleting(Me, New TBGI_CONFIGURATIONRowChangeEvent(CType(e.Row,TBGI_CONFIGURATIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGI_CONFIGURATIONRow(ByVal row As TBGI_CONFIGURATIONRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGI_CONFIGURATIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + Inherits Global.System.Data.TypedTableBase(Of TBGI_OBJECTTYPE_EMAIL_INDEXRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnOBJECTTYPE As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_ID As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_FROM As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_TO As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_SUBJECT As Global.System.Data.DataColumn + + Private columnIDX_EMAIL_DATE_IN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnIDX_CHECK_ATTACHMENT As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBGI_OBJECTTYPE_EMAIL_INDEX" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECTTYPE + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_ID + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_FROMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_FROM + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_TOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_TO + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_SUBJECT + End Get + End Property + + _ + Public ReadOnly Property IDX_EMAIL_DATE_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_EMAIL_DATE_IN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property IDX_CHECK_ATTACHMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_CHECK_ATTACHMENT + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBGI_OBJECTTYPE_EMAIL_INDEXRow + Get + Return CType(Me.Rows(index),TBGI_OBJECTTYPE_EMAIL_INDEXRow) + End Get + End Property + + _ + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler + + _ + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler + + _ + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler + + _ + Public Event TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted As TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEventHandler + + _ + Public Overloads Sub AddTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDX_CHECK_ATTACHMENT As String) As TBGI_OBJECTTYPE_EMAIL_INDEXRow + Dim rowTBGI_OBJECTTYPE_EMAIL_INDEXRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow = CType(Me.NewRow,TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Dim columnValuesArray() As Object = New Object() {Nothing, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDX_CHECK_ATTACHMENT} + rowTBGI_OBJECTTYPE_EMAIL_INDEXRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBGI_OBJECTTYPE_EMAIL_INDEXRow) + Return rowTBGI_OBJECTTYPE_EMAIL_INDEXRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBGI_OBJECTTYPE_EMAIL_INDEXRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBGI_OBJECTTYPE_EMAIL_INDEXRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = CType(MyBase.Clone,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnOBJECTTYPE = MyBase.Columns("OBJECTTYPE") + Me.columnIDX_EMAIL_ID = MyBase.Columns("IDX_EMAIL_ID") + Me.columnIDX_EMAIL_FROM = MyBase.Columns("IDX_EMAIL_FROM") + Me.columnIDX_EMAIL_TO = MyBase.Columns("IDX_EMAIL_TO") + Me.columnIDX_EMAIL_SUBJECT = MyBase.Columns("IDX_EMAIL_SUBJECT") + Me.columnIDX_EMAIL_DATE_IN = MyBase.Columns("IDX_EMAIL_DATE_IN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIDX_CHECK_ATTACHMENT = MyBase.Columns("IDX_CHECK_ATTACHMENT") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnOBJECTTYPE = New Global.System.Data.DataColumn("OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECTTYPE) + Me.columnIDX_EMAIL_ID = New Global.System.Data.DataColumn("IDX_EMAIL_ID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_ID) + Me.columnIDX_EMAIL_FROM = New Global.System.Data.DataColumn("IDX_EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_FROM) + Me.columnIDX_EMAIL_TO = New Global.System.Data.DataColumn("IDX_EMAIL_TO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_TO) + Me.columnIDX_EMAIL_SUBJECT = New Global.System.Data.DataColumn("IDX_EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_SUBJECT) + Me.columnIDX_EMAIL_DATE_IN = New Global.System.Data.DataColumn("IDX_EMAIL_DATE_IN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_EMAIL_DATE_IN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnIDX_CHECK_ATTACHMENT = New Global.System.Data.DataColumn("IDX_CHECK_ATTACHMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDX_CHECK_ATTACHMENT) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnOBJECTTYPE.AllowDBNull = false + Me.columnOBJECTTYPE.MaxLength = 100 + Me.columnIDX_EMAIL_ID.AllowDBNull = false + Me.columnIDX_EMAIL_ID.MaxLength = 50 + Me.columnIDX_EMAIL_FROM.AllowDBNull = false + Me.columnIDX_EMAIL_FROM.MaxLength = 50 + Me.columnIDX_EMAIL_TO.AllowDBNull = false + Me.columnIDX_EMAIL_TO.MaxLength = 50 + Me.columnIDX_EMAIL_SUBJECT.AllowDBNull = false + Me.columnIDX_EMAIL_SUBJECT.MaxLength = 50 + Me.columnIDX_EMAIL_DATE_IN.AllowDBNull = false + Me.columnIDX_EMAIL_DATE_IN.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIDX_CHECK_ATTACHMENT.AllowDBNull = false + Me.columnIDX_CHECK_ATTACHMENT.MaxLength = 50 + End Sub + + _ + Public Function NewTBGI_OBJECTTYPE_EMAIL_INDEXRow() As TBGI_OBJECTTYPE_EMAIL_INDEXRow + Return CType(Me.NewRow,TBGI_OBJECTTYPE_EMAIL_INDEXRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBGI_OBJECTTYPE_EMAIL_INDEXRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBGI_OBJECTTYPE_EMAIL_INDEXRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowChangedEvent) Is Nothing) Then + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowChanged(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowChangingEvent) Is Nothing) Then + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowChanging(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowDeletedEvent) Is Nothing) Then + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleted(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBGI_OBJECTTYPE_EMAIL_INDEXRowDeletingEvent) Is Nothing) Then + RaiseEvent TBGI_OBJECTTYPE_EMAIL_INDEXRowDeleting(Me, New TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent(CType(e.Row,TBGI_OBJECTTYPE_EMAIL_INDEXRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBGI_OBJECTTYPE_EMAIL_INDEXRow(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBGI_OBJECTTYPE_EMAIL_INDEXDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_MAN_POSTPROCESSINGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnIDXMAN_ID As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnTYPE As Global.System.Data.DataColumn + + Private columnFUNCTION1 As Global.System.Data.DataColumn + + Private columnFUNCTION2 As Global.System.Data.DataColumn + + Private columnTEXT1 As Global.System.Data.DataColumn + + Private columnTEXT2 As Global.System.Data.DataColumn + + Private columnTEXT3 As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_INDEX_MAN_POSTPROCESSING" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property IDXMAN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXMAN_ID + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE + End Get + End Property + + _ + Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn + Get + Return Me.columnFUNCTION1 + End Get + End Property + + _ + Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn + Get + Return Me.columnFUNCTION2 + End Get + End Property + + _ + Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTEXT1 + End Get + End Property + + _ + Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnTEXT2 + End Get + End Property + + _ + Public ReadOnly Property TEXT3Column() As Global.System.Data.DataColumn + Get + Return Me.columnTEXT3 + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_MAN_POSTPROCESSINGRow + Get + Return CType(Me.Rows(index),TBDD_INDEX_MAN_POSTPROCESSINGRow) + End Get + End Property + + _ + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowChanging As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowChanged As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler + + _ + Public Event TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted As TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID As TBDD_INDEX_MANRow, ByVal COMMENT As String, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal TEXT3 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_INDEX_MAN_POSTPROCESSINGRow + Dim rowTBDD_INDEX_MAN_POSTPROCESSINGRow As TBDD_INDEX_MAN_POSTPROCESSINGRow = CType(Me.NewRow,TBDD_INDEX_MAN_POSTPROCESSINGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_INDEX_MANRowByFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID(0) + End If + rowTBDD_INDEX_MAN_POSTPROCESSINGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_MAN_POSTPROCESSINGRow) + Return rowTBDD_INDEX_MAN_POSTPROCESSINGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_MAN_POSTPROCESSINGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_MAN_POSTPROCESSINGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_INDEX_MAN_POSTPROCESSINGDataTable = CType(MyBase.Clone,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_INDEX_MAN_POSTPROCESSINGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnIDXMAN_ID = MyBase.Columns("IDXMAN_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnTYPE = MyBase.Columns("TYPE") + Me.columnFUNCTION1 = MyBase.Columns("FUNCTION1") + Me.columnFUNCTION2 = MyBase.Columns("FUNCTION2") + Me.columnTEXT1 = MyBase.Columns("TEXT1") + Me.columnTEXT2 = MyBase.Columns("TEXT2") + Me.columnTEXT3 = MyBase.Columns("TEXT3") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnIDXMAN_ID = New Global.System.Data.DataColumn("IDXMAN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXMAN_ID) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnTYPE = New Global.System.Data.DataColumn("TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE) + Me.columnFUNCTION1 = New Global.System.Data.DataColumn("FUNCTION1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFUNCTION1) + Me.columnFUNCTION2 = New Global.System.Data.DataColumn("FUNCTION2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFUNCTION2) + Me.columnTEXT1 = New Global.System.Data.DataColumn("TEXT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTEXT1) + Me.columnTEXT2 = New Global.System.Data.DataColumn("TEXT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTEXT2) + Me.columnTEXT3 = New Global.System.Data.DataColumn("TEXT3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTEXT3) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnIDXMAN_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 250 + Me.columnTYPE.MaxLength = 50 + Me.columnFUNCTION1.MaxLength = 250 + Me.columnFUNCTION2.MaxLength = 250 + Me.columnTEXT1.MaxLength = 100 + Me.columnTEXT2.MaxLength = 100 + Me.columnTEXT3.MaxLength = 100 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_INDEX_MAN_POSTPROCESSINGRow() As TBDD_INDEX_MAN_POSTPROCESSINGRow + Return CType(Me.NewRow,TBDD_INDEX_MAN_POSTPROCESSINGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_INDEX_MAN_POSTPROCESSINGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_INDEX_MAN_POSTPROCESSINGRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowChanged(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_INDEX_MAN_POSTPROCESSINGRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowChanging(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_INDEX_MAN_POSTPROCESSINGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowDeleted(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_INDEX_MAN_POSTPROCESSINGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_MAN_POSTPROCESSINGRowDeleting(Me, New TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent(CType(e.Row,TBDD_INDEX_MAN_POSTPROCESSINGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_INDEX_MAN_POSTPROCESSINGRow(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_INDEX_MAN_POSTPROCESSINGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWHDD_INDEX_MANDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWHDD_INDEX_MANRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWHDD_INDEX_MAN" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWHDD_INDEX_MANRow + Get + Return CType(Me.Rows(index),TBWHDD_INDEX_MANRow) + End Get + End Property + + _ + Public Event TBWHDD_INDEX_MANRowChanging As TBWHDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBWHDD_INDEX_MANRowChanged As TBWHDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBWHDD_INDEX_MANRowDeleting As TBWHDD_INDEX_MANRowChangeEventHandler + + _ + Public Event TBWHDD_INDEX_MANRowDeleted As TBWHDD_INDEX_MANRowChangeEventHandler + + _ + Public Overloads Sub AddTBWHDD_INDEX_MANRow(ByVal row As TBWHDD_INDEX_MANRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBWHDD_INDEX_MANRow(ByVal NAME As String) As TBWHDD_INDEX_MANRow + Dim rowTBWHDD_INDEX_MANRow As TBWHDD_INDEX_MANRow = CType(Me.NewRow,TBWHDD_INDEX_MANRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME} + rowTBWHDD_INDEX_MANRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWHDD_INDEX_MANRow) + Return rowTBWHDD_INDEX_MANRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWHDD_INDEX_MANRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWHDD_INDEX_MANRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWHDD_INDEX_MANDataTable = CType(MyBase.Clone,TBWHDD_INDEX_MANDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWHDD_INDEX_MANDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 50 + End Sub + + _ + Public Function NewTBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow + Return CType(Me.NewRow,TBWHDD_INDEX_MANRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWHDD_INDEX_MANRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWHDD_INDEX_MANRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWHDD_INDEX_MANRowChangedEvent) Is Nothing) Then + RaiseEvent TBWHDD_INDEX_MANRowChanged(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWHDD_INDEX_MANRowChangingEvent) Is Nothing) Then + RaiseEvent TBWHDD_INDEX_MANRowChanging(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWHDD_INDEX_MANRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWHDD_INDEX_MANRowDeleted(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWHDD_INDEX_MANRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWHDD_INDEX_MANRowDeleting(Me, New TBWHDD_INDEX_MANRowChangeEvent(CType(e.Row,TBWHDD_INDEX_MANRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWHDD_INDEX_MANRow(ByVal row As TBWHDD_INDEX_MANRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWHDD_INDEX_MANDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_USER_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER_GROUPS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow + Get + Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) + End Get + End Property + + _ + Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow + Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_GROUPSRow) + Return rowTBDD_USER_GROUPSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USER_GROUPSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Return CType(Me.NewRow,TBDD_USER_GROUPSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USER_GROUPSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USER_GROUPSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_USER_GROUPSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_GROUPS_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_GROUPS_USER" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow + Get + Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + End Get + End Property + + _ + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow + Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) + End If + If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) + End If + rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_USERRow) + Return rowTBDD_GROUPS_USERRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_GROUPS_USERDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementStep = 2 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow + Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_GROUPS_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_GROUPS_USERRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGI_USER_GROUPS_RELATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGI_USER_GROUPS_RELATIONRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGI_USER_GROUPS_RELATION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGI_USER_GROUPS_RELATIONRow + Get + Return CType(Me.Rows(index),VWGI_USER_GROUPS_RELATIONRow) + End Get + End Property + + _ + Public Event VWGI_USER_GROUPS_RELATIONRowChanging As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler + + _ + Public Event VWGI_USER_GROUPS_RELATIONRowChanged As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler + + _ + Public Event VWGI_USER_GROUPS_RELATIONRowDeleting As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler + + _ + Public Event VWGI_USER_GROUPS_RELATIONRowDeleted As VWGI_USER_GROUPS_RELATIONRowChangeEventHandler + + _ + Public Overloads Sub AddVWGI_USER_GROUPS_RELATIONRow(ByVal row As VWGI_USER_GROUPS_RELATIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGI_USER_GROUPS_RELATIONRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal USERNAME As String, ByVal GROUP_ID As Integer, ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWGI_USER_GROUPS_RELATIONRow + Dim rowVWGI_USER_GROUPS_RELATIONRow As VWGI_USER_GROUPS_RELATIONRow = CType(Me.NewRow,VWGI_USER_GROUPS_RELATIONRow) + Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, USERNAME, GROUP_ID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowVWGI_USER_GROUPS_RELATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGI_USER_GROUPS_RELATIONRow) + Return rowVWGI_USER_GROUPS_RELATIONRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWGI_USER_GROUPS_RELATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWGI_USER_GROUPS_RELATIONRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGI_USER_GROUPS_RELATIONDataTable = CType(MyBase.Clone,VWGI_USER_GROUPS_RELATIONDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGI_USER_GROUPS_RELATIONDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnUSERNAME.AllowDBNull = false + Me.columnUSERNAME.MaxLength = 50 + Me.columnGROUP_ID.AllowDBNull = false + Me.columnNAME.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWGI_USER_GROUPS_RELATIONRow() As VWGI_USER_GROUPS_RELATIONRow + Return CType(Me.NewRow,VWGI_USER_GROUPS_RELATIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGI_USER_GROUPS_RELATIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGI_USER_GROUPS_RELATIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGI_USER_GROUPS_RELATIONRowChangedEvent) Is Nothing) Then + RaiseEvent VWGI_USER_GROUPS_RELATIONRowChanged(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGI_USER_GROUPS_RELATIONRowChangingEvent) Is Nothing) Then + RaiseEvent VWGI_USER_GROUPS_RELATIONRowChanging(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGI_USER_GROUPS_RELATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGI_USER_GROUPS_RELATIONRowDeleted(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGI_USER_GROUPS_RELATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGI_USER_GROUPS_RELATIONRowDeleting(Me, New VWGI_USER_GROUPS_RELATIONRowChangeEvent(CType(e.Row,VWGI_USER_GROUPS_RELATIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGI_USER_GROUPS_RELATIONRow(ByVal row As VWGI_USER_GROUPS_RELATIONRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGI_USER_GROUPS_RELATIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class VWGI_DOCTYPE_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of VWGI_DOCTYPE_GROUPRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnDOCTYPE_ID As Global.System.Data.DataColumn + + Private columnDOCTYPE As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn + + Private columnGROUP As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "VWGI_DOCTYPE_GROUP" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE_ID + End Get + End Property + + _ + Public ReadOnly Property DOCTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDOCTYPE + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID + End Get + End Property + + _ + Public ReadOnly Property GROUPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As VWGI_DOCTYPE_GROUPRow + Get + Return CType(Me.Rows(index),VWGI_DOCTYPE_GROUPRow) + End Get + End Property + + _ + Public Event VWGI_DOCTYPE_GROUPRowChanging As VWGI_DOCTYPE_GROUPRowChangeEventHandler + + _ + Public Event VWGI_DOCTYPE_GROUPRowChanged As VWGI_DOCTYPE_GROUPRowChangeEventHandler + + _ + Public Event VWGI_DOCTYPE_GROUPRowDeleting As VWGI_DOCTYPE_GROUPRowChangeEventHandler + + _ + Public Event VWGI_DOCTYPE_GROUPRowDeleted As VWGI_DOCTYPE_GROUPRowChangeEventHandler + + _ + Public Overloads Sub AddVWGI_DOCTYPE_GROUPRow(ByVal row As VWGI_DOCTYPE_GROUPRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddVWGI_DOCTYPE_GROUPRow(ByVal GUID As Integer, ByVal DOCTYPE_ID As Integer, ByVal DOCTYPE As String, ByVal GROUP_ID As Integer, ByVal GROUP As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As VWGI_DOCTYPE_GROUPRow + Dim rowVWGI_DOCTYPE_GROUPRow As VWGI_DOCTYPE_GROUPRow = CType(Me.NewRow,VWGI_DOCTYPE_GROUPRow) + Dim columnValuesArray() As Object = New Object() {GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, GROUP, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN} + rowVWGI_DOCTYPE_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWGI_DOCTYPE_GROUPRow) + Return rowVWGI_DOCTYPE_GROUPRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As VWGI_DOCTYPE_GROUPRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWGI_DOCTYPE_GROUPRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As VWGI_DOCTYPE_GROUPDataTable = CType(MyBase.Clone,VWGI_DOCTYPE_GROUPDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New VWGI_DOCTYPE_GROUPDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnDOCTYPE = MyBase.Columns("DOCTYPE") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnGROUP = MyBase.Columns("GROUP") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) + Me.columnDOCTYPE = New Global.System.Data.DataColumn("DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) + Me.columnGROUP = New Global.System.Data.DataColumn("GROUP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnDOCTYPE_ID.AllowDBNull = false + Me.columnDOCTYPE.AllowDBNull = false + Me.columnDOCTYPE.MaxLength = 50 + Me.columnGROUP_ID.AllowDBNull = false + Me.columnGROUP.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewVWGI_DOCTYPE_GROUPRow() As VWGI_DOCTYPE_GROUPRow + Return CType(Me.NewRow,VWGI_DOCTYPE_GROUPRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New VWGI_DOCTYPE_GROUPRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(VWGI_DOCTYPE_GROUPRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.VWGI_DOCTYPE_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent VWGI_DOCTYPE_GROUPRowChanged(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.VWGI_DOCTYPE_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent VWGI_DOCTYPE_GROUPRowChanging(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.VWGI_DOCTYPE_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent VWGI_DOCTYPE_GROUPRowDeleted(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.VWGI_DOCTYPE_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent VWGI_DOCTYPE_GROUPRowDeleting(Me, New VWGI_DOCTYPE_GROUPRowChangeEvent(CType(e.Row,VWGI_DOCTYPE_GROUPRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveVWGI_DOCTYPE_GROUPRow(ByVal row As VWGI_DOCTYPE_GROUPRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "VWGI_DOCTYPE_GROUPDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBHOTKEY_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnOBJECTTYPE As Global.System.Data.DataColumn + + Private columnWD_SEARCH As Global.System.Data.DataColumn + + Private columnHOTKEY1 As Global.System.Data.DataColumn + + Private columnHOTKEY2 As Global.System.Data.DataColumn + + Private columnWINDOW_NAME As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBHOTKEY_PROFILE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJECTTYPE + End Get + End Property + + _ + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_SEARCH + End Get + End Property + + _ + Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn + Get + Return Me.columnHOTKEY1 + End Get + End Property + + _ + Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn + Get + Return Me.columnHOTKEY2 + End Get + End Property + + _ + Public ReadOnly Property WINDOW_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDOW_NAME + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PROFILERow + Get + Return CType(Me.Rows(index),TBHOTKEY_PROFILERow) + End Get + End Property + + _ + Public Event TBHOTKEY_PROFILERowChanging As TBHOTKEY_PROFILERowChangeEventHandler + + _ + Public Event TBHOTKEY_PROFILERowChanged As TBHOTKEY_PROFILERowChangeEventHandler + + _ + Public Event TBHOTKEY_PROFILERowDeleting As TBHOTKEY_PROFILERowChangeEventHandler + + _ + Public Event TBHOTKEY_PROFILERowDeleted As TBHOTKEY_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBHOTKEY_PROFILERow(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _String As String) As TBHOTKEY_PROFILERow + Dim rowTBHOTKEY_PROFILERow As TBHOTKEY_PROFILERow = CType(Me.NewRow,TBHOTKEY_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _String} + rowTBHOTKEY_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBHOTKEY_PROFILERow) + Return rowTBHOTKEY_PROFILERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBHOTKEY_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_PROFILEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBHOTKEY_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnOBJECTTYPE = MyBase.Columns("OBJECTTYPE") + Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") + Me.columnHOTKEY1 = MyBase.Columns("HOTKEY1") + Me.columnHOTKEY2 = MyBase.Columns("HOTKEY2") + Me.columnWINDOW_NAME = MyBase.Columns("WINDOW_NAME") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnString = MyBase.Columns("String") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnOBJECTTYPE = New Global.System.Data.DataColumn("OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECTTYPE) + Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_SEARCH) + Me.columnHOTKEY1 = New Global.System.Data.DataColumn("HOTKEY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHOTKEY1) + Me.columnHOTKEY2 = New Global.System.Data.DataColumn("HOTKEY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHOTKEY2) + Me.columnWINDOW_NAME = New Global.System.Data.DataColumn("WINDOW_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDOW_NAME) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 50 + Me.columnOBJECTTYPE.AllowDBNull = false + Me.columnOBJECTTYPE.MaxLength = 100 + Me.columnWD_SEARCH.AllowDBNull = false + Me.columnWD_SEARCH.MaxLength = 250 + Me.columnHOTKEY1.AllowDBNull = false + Me.columnHOTKEY1.MaxLength = 10 + Me.columnHOTKEY2.AllowDBNull = false + Me.columnHOTKEY2.MaxLength = 5 + Me.columnWINDOW_NAME.AllowDBNull = false + Me.columnWINDOW_NAME.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 78 + End Sub + + _ + Public Function NewTBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow + Return CType(Me.NewRow,TBHOTKEY_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBHOTKEY_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBHOTKEY_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBHOTKEY_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PROFILERowChanged(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBHOTKEY_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PROFILERowChanging(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBHOTKEY_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PROFILERowDeleted(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBHOTKEY_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PROFILERowDeleting(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBHOTKEY_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBHOTKEY_PATTERNSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnHKPROFILE_ID As Global.System.Data.DataColumn + + Private columnPATTERN_WDSEARCH As Global.System.Data.DataColumn + + Private columnWINDOW_CONTROL As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBHOTKEY_PATTERNS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHKPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property PATTERN_WDSEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPATTERN_WDSEARCH + End Get + End Property + + _ + Public ReadOnly Property WINDOW_CONTROLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWINDOW_CONTROL + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE_NUMBER + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNSRow + Get + Return CType(Me.Rows(index),TBHOTKEY_PATTERNSRow) + End Get + End Property + + _ + Public Event TBHOTKEY_PATTERNSRowChanging As TBHOTKEY_PATTERNSRowChangeEventHandler + + _ + Public Event TBHOTKEY_PATTERNSRowChanged As TBHOTKEY_PATTERNSRowChangeEventHandler + + _ + Public Event TBHOTKEY_PATTERNSRowDeleting As TBHOTKEY_PATTERNSRowChangeEventHandler + + _ + Public Event TBHOTKEY_PATTERNSRowDeleted As TBHOTKEY_PATTERNSRowChangeEventHandler + + _ + Public Overloads Sub AddTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBHOTKEY_PATTERNSRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SEQUENCE_NUMBER As Integer) As TBHOTKEY_PATTERNSRow + Dim rowTBHOTKEY_PATTERNSRow As TBHOTKEY_PATTERNSRow = CType(Me.NewRow,TBHOTKEY_PATTERNSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER} + If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID) Is Nothing) Then + columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID(0) + End If + rowTBHOTKEY_PATTERNSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBHOTKEY_PATTERNSRow) + Return rowTBHOTKEY_PATTERNSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBHOTKEY_PATTERNSDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBHOTKEY_PATTERNSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") + Me.columnPATTERN_WDSEARCH = MyBase.Columns("PATTERN_WDSEARCH") + Me.columnWINDOW_CONTROL = MyBase.Columns("WINDOW_CONTROL") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHKPROFILE_ID) + Me.columnPATTERN_WDSEARCH = New Global.System.Data.DataColumn("PATTERN_WDSEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPATTERN_WDSEARCH) + Me.columnWINDOW_CONTROL = New Global.System.Data.DataColumn("WINDOW_CONTROL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDOW_CONTROL) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.columnSEQUENCE_NUMBER = New Global.System.Data.DataColumn("SEQUENCE_NUMBER", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE_NUMBER) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnHKPROFILE_ID.AllowDBNull = false + Me.columnPATTERN_WDSEARCH.AllowDBNull = false + Me.columnPATTERN_WDSEARCH.MaxLength = 50 + Me.columnWINDOW_CONTROL.AllowDBNull = false + Me.columnWINDOW_CONTROL.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSEQUENCE_NUMBER.AllowDBNull = false + End Sub + + _ + Public Function NewTBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow + Return CType(Me.NewRow,TBHOTKEY_PATTERNSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBHOTKEY_PATTERNSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBHOTKEY_PATTERNSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBHOTKEY_PATTERNSRowChangedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNSRowChanged(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBHOTKEY_PATTERNSRowChangingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNSRowChanging(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBHOTKEY_PATTERNSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNSRowDeleted(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBHOTKEY_PATTERNSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNSRowDeleting(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBHOTKEY_PATTERNSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBMYHOTKEYSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBMYHOTKEYSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBMYHOTKEYS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnString + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBMYHOTKEYSRow + Get + Return CType(Me.Rows(index),TBMYHOTKEYSRow) + End Get + End Property + + _ + Public Event TBMYHOTKEYSRowChanging As TBMYHOTKEYSRowChangeEventHandler + + _ + Public Event TBMYHOTKEYSRowChanged As TBMYHOTKEYSRowChangeEventHandler + + _ + Public Event TBMYHOTKEYSRowDeleting As TBMYHOTKEYSRowChangeEventHandler + + _ + Public Event TBMYHOTKEYSRowDeleted As TBMYHOTKEYSRowChangeEventHandler + + _ + Public Overloads Sub AddTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBMYHOTKEYSRow(ByVal _String As String) As TBMYHOTKEYSRow + Dim rowTBMYHOTKEYSRow As TBMYHOTKEYSRow = CType(Me.NewRow,TBMYHOTKEYSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, _String} + rowTBMYHOTKEYSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBMYHOTKEYSRow) + Return rowTBMYHOTKEYSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBMYHOTKEYSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBMYHOTKEYSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBMYHOTKEYSDataTable = CType(MyBase.Clone,TBMYHOTKEYSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBMYHOTKEYSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnString = MyBase.Columns("String") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 78 + End Sub + + _ + Public Function NewTBMYHOTKEYSRow() As TBMYHOTKEYSRow + Return CType(Me.NewRow,TBMYHOTKEYSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBMYHOTKEYSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBMYHOTKEYSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBMYHOTKEYSRowChangedEvent) Is Nothing) Then + RaiseEvent TBMYHOTKEYSRowChanged(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBMYHOTKEYSRowChangingEvent) Is Nothing) Then + RaiseEvent TBMYHOTKEYSRowChanging(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBMYHOTKEYSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBMYHOTKEYSRowDeleted(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBMYHOTKEYSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBMYHOTKEYSRowDeleting(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBMYHOTKEYSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBHOTKEY_USER_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_USER_PROFILERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnHKPROFILE_ID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnWD_SEARCH As Global.System.Data.DataColumn + + Private columnHOTKEY1 As Global.System.Data.DataColumn + + Private columnHOTKEY2 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBHOTKEY_USER_PROFILE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHKPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_SEARCH + End Get + End Property + + _ + Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn + Get + Return Me.columnHOTKEY1 + End Get + End Property + + _ + Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn + Get + Return Me.columnHOTKEY2 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_USER_PROFILERow + Get + Return CType(Me.Rows(index),TBHOTKEY_USER_PROFILERow) + End Get + End Property + + _ + Public Event TBHOTKEY_USER_PROFILERowChanging As TBHOTKEY_USER_PROFILERowChangeEventHandler + + _ + Public Event TBHOTKEY_USER_PROFILERowChanged As TBHOTKEY_USER_PROFILERowChangeEventHandler + + _ + Public Event TBHOTKEY_USER_PROFILERowDeleting As TBHOTKEY_USER_PROFILERowChangeEventHandler + + _ + Public Event TBHOTKEY_USER_PROFILERowDeleted As TBHOTKEY_USER_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBHOTKEY_USER_PROFILERow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID As TBDD_USERRow, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_USER_PROFILERow + Dim rowTBHOTKEY_USER_PROFILERow As TBHOTKEY_USER_PROFILERow = CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID) Is Nothing) Then + columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID(0) + End If + If (Not (parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID(0) + End If + rowTBHOTKEY_USER_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBHOTKEY_USER_PROFILERow) + Return rowTBHOTKEY_USER_PROFILERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_USER_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_USER_PROFILERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBHOTKEY_USER_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_USER_PROFILEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBHOTKEY_USER_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") + Me.columnHOTKEY1 = MyBase.Columns("HOTKEY1") + Me.columnHOTKEY2 = MyBase.Columns("HOTKEY2") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHKPROFILE_ID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_SEARCH) + Me.columnHOTKEY1 = New Global.System.Data.DataColumn("HOTKEY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHOTKEY1) + Me.columnHOTKEY2 = New Global.System.Data.DataColumn("HOTKEY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHOTKEY2) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnHKPROFILE_ID.AllowDBNull = false + Me.columnUSER_ID.AllowDBNull = false + Me.columnWD_SEARCH.AllowDBNull = false + Me.columnWD_SEARCH.DefaultValue = CType("",String) + Me.columnWD_SEARCH.MaxLength = 250 + Me.columnHOTKEY1.AllowDBNull = false + Me.columnHOTKEY1.DefaultValue = CType("",String) + Me.columnHOTKEY1.MaxLength = 10 + Me.columnHOTKEY2.AllowDBNull = false + Me.columnHOTKEY2.DefaultValue = CType("",String) + Me.columnHOTKEY2.MaxLength = 5 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBHOTKEY_USER_PROFILERow() As TBHOTKEY_USER_PROFILERow + Return CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBHOTKEY_USER_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBHOTKEY_USER_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBHOTKEY_USER_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_USER_PROFILERowChanged(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBHOTKEY_USER_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_USER_PROFILERowChanging(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBHOTKEY_USER_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_USER_PROFILERowDeleted(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBHOTKEY_USER_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_USER_PROFILERowDeleting(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBHOTKEY_USER_PROFILEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBHOTKEY_PATTERNS_REWORKDataTable + Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNS_REWORKRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnHKPATTERN_ID As Global.System.Data.DataColumn + + Private columnTYPE As Global.System.Data.DataColumn + + Private columnFUNCTION1 As Global.System.Data.DataColumn + + Private columnFUNCTION2 As Global.System.Data.DataColumn + + Private columnTEXT1 As Global.System.Data.DataColumn + + Private columnTEXT2 As Global.System.Data.DataColumn + + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBHOTKEY_PATTERNS_REWORK" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property HKPATTERN_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHKPATTERN_ID + End Get + End Property + + _ + Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE + End Get + End Property + + _ + Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn + Get + Return Me.columnFUNCTION1 + End Get + End Property + + _ + Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn + Get + Return Me.columnFUNCTION2 + End Get + End Property + + _ + Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnTEXT1 + End Get + End Property + + _ + Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnTEXT2 + End Get + End Property + + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNS_REWORKRow + Get + Return CType(Me.Rows(index),TBHOTKEY_PATTERNS_REWORKRow) + End Get + End Property + + _ + Public Event TBHOTKEY_PATTERNS_REWORKRowChanging As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler + + _ + Public Event TBHOTKEY_PATTERNS_REWORKRowChanged As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler + + _ + Public Event TBHOTKEY_PATTERNS_REWORKRowDeleting As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler + + _ + Public Event TBHOTKEY_PATTERNS_REWORKRowDeleted As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler + + _ + Public Overloads Sub AddTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBHOTKEY_PATTERNS_REWORKRow(ByVal parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As TBHOTKEY_PATTERNSRow, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_PATTERNS_REWORKRow + Dim rowTBHOTKEY_PATTERNS_REWORKRow As TBHOTKEY_PATTERNS_REWORKRow = CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID) Is Nothing) Then + columnValuesArray(1) = parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID(0) + End If + rowTBHOTKEY_PATTERNS_REWORKRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBHOTKEY_PATTERNS_REWORKRow) + Return rowTBHOTKEY_PATTERNS_REWORKRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNS_REWORKRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNS_REWORKRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBHOTKEY_PATTERNS_REWORKDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNS_REWORKDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBHOTKEY_PATTERNS_REWORKDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnHKPATTERN_ID = MyBase.Columns("HKPATTERN_ID") + Me.columnTYPE = MyBase.Columns("TYPE") + Me.columnFUNCTION1 = MyBase.Columns("FUNCTION1") + Me.columnFUNCTION2 = MyBase.Columns("FUNCTION2") + Me.columnTEXT1 = MyBase.Columns("TEXT1") + Me.columnTEXT2 = MyBase.Columns("TEXT2") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnHKPATTERN_ID = New Global.System.Data.DataColumn("HKPATTERN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHKPATTERN_ID) + Me.columnTYPE = New Global.System.Data.DataColumn("TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE) + Me.columnFUNCTION1 = New Global.System.Data.DataColumn("FUNCTION1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFUNCTION1) + Me.columnFUNCTION2 = New Global.System.Data.DataColumn("FUNCTION2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFUNCTION2) + Me.columnTEXT1 = New Global.System.Data.DataColumn("TEXT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTEXT1) + Me.columnTEXT2 = New Global.System.Data.DataColumn("TEXT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTEXT2) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnHKPATTERN_ID.AllowDBNull = false + Me.columnTYPE.AllowDBNull = false + Me.columnTYPE.MaxLength = 30 + Me.columnFUNCTION1.MaxLength = 250 + Me.columnFUNCTION2.MaxLength = 250 + Me.columnTEXT1.MaxLength = 100 + Me.columnTEXT2.MaxLength = 100 + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSEQUENCE.DefaultValue = CType(1,Integer) + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBHOTKEY_PATTERNS_REWORKRow() As TBHOTKEY_PATTERNS_REWORKRow + Return CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBHOTKEY_PATTERNS_REWORKRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBHOTKEY_PATTERNS_REWORKRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanged(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanging(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleted(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleting(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBHOTKEY_PATTERNS_REWORKDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBHOTKEY_WINDOW_HOOKDataTable + Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_WINDOW_HOOKRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnHKPROFILE_ID As Global.System.Data.DataColumn + + Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn + + Private columnCONTROL_VALUE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBHOTKEY_WINDOW_HOOK" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHKPROFILE_ID + End Get + End Property + + _ + Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE_NUMBER + End Get + End Property + + _ + Public ReadOnly Property CONTROL_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_VALUE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_WINDOW_HOOKRow + Get + Return CType(Me.Rows(index),TBHOTKEY_WINDOW_HOOKRow) + End Get + End Property + + _ + Public Event TBHOTKEY_WINDOW_HOOKRowChanging As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + + _ + Public Event TBHOTKEY_WINDOW_HOOKRowChanged As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + + _ + Public Event TBHOTKEY_WINDOW_HOOKRowDeleting As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + + _ + Public Event TBHOTKEY_WINDOW_HOOKRowDeleted As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler + + _ + Public Overloads Sub AddTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBHOTKEY_WINDOW_HOOKRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_WINDOW_HOOKRow + Dim rowTBHOTKEY_WINDOW_HOOKRow As TBHOTKEY_WINDOW_HOOKRow = CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID) Is Nothing) Then + columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID(0) + End If + rowTBHOTKEY_WINDOW_HOOKRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBHOTKEY_WINDOW_HOOKRow) + Return rowTBHOTKEY_WINDOW_HOOKRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_WINDOW_HOOKRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_WINDOW_HOOKRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBHOTKEY_WINDOW_HOOKDataTable = CType(MyBase.Clone,TBHOTKEY_WINDOW_HOOKDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBHOTKEY_WINDOW_HOOKDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") + Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") + Me.columnCONTROL_VALUE = MyBase.Columns("CONTROL_VALUE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHKPROFILE_ID) + Me.columnSEQUENCE_NUMBER = New Global.System.Data.DataColumn("SEQUENCE_NUMBER", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE_NUMBER) + Me.columnCONTROL_VALUE = New Global.System.Data.DataColumn("CONTROL_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_VALUE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnHKPROFILE_ID.AllowDBNull = false + Me.columnSEQUENCE_NUMBER.AllowDBNull = false + Me.columnCONTROL_VALUE.AllowDBNull = false + Me.columnCONTROL_VALUE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBHOTKEY_WINDOW_HOOKRow() As TBHOTKEY_WINDOW_HOOKRow + Return CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBHOTKEY_WINDOW_HOOKRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBHOTKEY_WINDOW_HOOKRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanged(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanging(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletedEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleted(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletingEvent) Is Nothing) Then + RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleting(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBHOTKEY_WINDOW_HOOKDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBTempFiles2IndexDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTempFiles2IndexRow) + + Private columnFilestring As Global.System.Data.DataColumn + + Private columnWorked As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBTempFiles2Index" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property FilestringColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFilestring + End Get + End Property + + _ + Public ReadOnly Property WorkedColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWorked + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTempFiles2IndexRow + Get + Return CType(Me.Rows(index),TBTempFiles2IndexRow) + End Get + End Property + + _ + Public Event TBTempFiles2IndexRowChanging As TBTempFiles2IndexRowChangeEventHandler + + _ + Public Event TBTempFiles2IndexRowChanged As TBTempFiles2IndexRowChangeEventHandler + + _ + Public Event TBTempFiles2IndexRowDeleting As TBTempFiles2IndexRowChangeEventHandler + + _ + Public Event TBTempFiles2IndexRowDeleted As TBTempFiles2IndexRowChangeEventHandler + + _ + Public Overloads Sub AddTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBTempFiles2IndexRow(ByVal Filestring As String, ByVal Worked As Boolean) As TBTempFiles2IndexRow + Dim rowTBTempFiles2IndexRow As TBTempFiles2IndexRow = CType(Me.NewRow,TBTempFiles2IndexRow) + Dim columnValuesArray() As Object = New Object() {Filestring, Worked} + rowTBTempFiles2IndexRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTempFiles2IndexRow) + Return rowTBTempFiles2IndexRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBTempFiles2IndexDataTable = CType(MyBase.Clone,TBTempFiles2IndexDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBTempFiles2IndexDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnFilestring = MyBase.Columns("Filestring") + Me.columnWorked = MyBase.Columns("Worked") + End Sub + + _ + Private Sub InitClass() + Me.columnFilestring = New Global.System.Data.DataColumn("Filestring", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFilestring) + Me.columnWorked = New Global.System.Data.DataColumn("Worked", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWorked) + Me.columnWorked.DefaultValue = CType(false,Boolean) + End Sub + + _ + Public Function NewTBTempFiles2IndexRow() As TBTempFiles2IndexRow + Return CType(Me.NewRow,TBTempFiles2IndexRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBTempFiles2IndexRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBTempFiles2IndexRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBTempFiles2IndexRowChangedEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowChanged(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBTempFiles2IndexRowChangingEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowChanging(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBTempFiles2IndexRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowDeleted(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBTempFiles2IndexRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTempFiles2IndexRowDeleting(Me, New TBTempFiles2IndexRowChangeEvent(CType(e.Row,TBTempFiles2IndexRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBTempFiles2IndexRow(ByVal row As TBTempFiles2IndexRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBTempFiles2IndexDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBTEMP_INDEXRESULTSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTEMP_INDEXRESULTSRow) + + Private columnIndexname As Global.System.Data.DataColumn + + Private columnValue As Global.System.Data.DataColumn + + Private columnDokumentart As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBTEMP_INDEXRESULTS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIndexname + End Get + End Property + + _ + Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn + Get + Return Me.columnValue + End Get + End Property + + _ + Public ReadOnly Property DokumentartColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDokumentart + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_INDEXRESULTSRow + Get + Return CType(Me.Rows(index),TBTEMP_INDEXRESULTSRow) + End Get + End Property + + _ + Public Event TBTEMP_INDEXRESULTSRowChanging As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowChanged As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleting As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Event TBTEMP_INDEXRESULTSRowDeleted As TBTEMP_INDEXRESULTSRowChangeEventHandler + + _ + Public Overloads Sub AddTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBTEMP_INDEXRESULTSRow(ByVal Indexname As String, ByVal Value As String, ByVal Dokumentart As String) As TBTEMP_INDEXRESULTSRow + Dim rowTBTEMP_INDEXRESULTSRow As TBTEMP_INDEXRESULTSRow = CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + Dim columnValuesArray() As Object = New Object() {Indexname, Value, Dokumentart} + rowTBTEMP_INDEXRESULTSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTEMP_INDEXRESULTSRow) + Return rowTBTEMP_INDEXRESULTSRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBTEMP_INDEXRESULTSDataTable = CType(MyBase.Clone,TBTEMP_INDEXRESULTSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBTEMP_INDEXRESULTSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnIndexname = MyBase.Columns("Indexname") + Me.columnValue = MyBase.Columns("Value") + Me.columnDokumentart = MyBase.Columns("Dokumentart") + End Sub + + _ + Private Sub InitClass() + Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIndexname) + Me.columnValue = New Global.System.Data.DataColumn("Value", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnValue) + Me.columnDokumentart = New Global.System.Data.DataColumn("Dokumentart", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDokumentart) + End Sub + + _ + Public Function NewTBTEMP_INDEXRESULTSRow() As TBTEMP_INDEXRESULTSRow + Return CType(Me.NewRow,TBTEMP_INDEXRESULTSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBTEMP_INDEXRESULTSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBTEMP_INDEXRESULTSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanged(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowChangingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowChanging(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleted(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBTEMP_INDEXRESULTSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTEMP_INDEXRESULTSRowDeleting(Me, New TBTEMP_INDEXRESULTSRowChangeEvent(CType(e.Row,TBTEMP_INDEXRESULTSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBTEMP_INDEXRESULTSRow(ByVal row As TBTEMP_INDEXRESULTSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As MyDataset = New MyDataset() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBTEMP_INDEXRESULTSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER As TBDD_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property PRENAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.NAMEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set + End Property + + _ + Public Property LOGGED_IN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_INColumn) = value + End Set + End Property + + _ + Public Property LOGGED_WHERE() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value + End Set + End Property + + _ + Public Property LOG_IN_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value + End Set + End Property + + _ + Public Property LOG_OUT_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value + End Set + End Property + + _ + Public Property GI_ADMIN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.GI_ADMINColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.GI_ADMINColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOGGED_WHERENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) + End Function + + _ + Public Sub SetLOGGED_WHERENull() + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_IN_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) + End Function + + _ + Public Sub SetLOG_IN_WHENNull() + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_OUT_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) + End Function + + _ + Public Sub SetLOG_OUT_WHENNull() + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + + _ + Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID") Is Nothing) Then + Return New TBHOTKEY_USER_PROFILERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBHOTKEY_USER_PROFILERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKUMENTARTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKUMENTART = CType(Me.Table,TBDD_DOKUMENTARTDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property EINGANGSART_ID() As Byte + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.EINGANGSART_IDColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property ZIEL_PFAD() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ZIEL_PFADColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.AKTIVColumn) = value + End Set + End Property + + _ + Public Property NAMENKONVENTION() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAMENKONVENTION in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property OBJEKTTYP() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte OBJEKTTYP in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = value + End Set + End Property + + _ + Public Property WINDREAM_DIRECT() As Boolean + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.WINDREAM_DIRECTColumn) = value + End Set + End Property + + _ + Public Property FOLDER_FOR_INDEX() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FOLDER_FOR_INDEX in Tabelle TBDD_DOKUMENTART ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKUMENTART.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property TBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_EINGANGSARTENRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_DOKUMENTART_EINGID")) + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_DOKUMENTART.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENKONVENTIONNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) + End Function + + _ + Public Sub SetNAMENKONVENTIONNull() + Me(Me.tableTBDD_DOKUMENTART.NAMENKONVENTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_DOKUMENTART.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_DOKUMENTART.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOBJEKTTYPNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) + End Function + + _ + Public Sub SetOBJEKTTYPNull() + Me(Me.tableTBDD_DOKUMENTART.OBJEKTTYPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFOLDER_FOR_INDEXNull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) + End Function + + _ + Public Sub SetFOLDER_FOR_INDEXNull() + Me(Me.tableTBDD_DOKUMENTART.FOLDER_FOR_INDEXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_AUTOMRows() As TBDD_INDEX_AUTOMRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID") Is Nothing) Then + Return New TBDD_INDEX_AUTOMRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_INDEX_AUTOMRow()) + End If + End Function + + _ + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID") Is Nothing) Then + Return New TBDD_INDEX_MANRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_INDEX_MANRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_EINGANGSARTENRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_EINGANGSARTEN As TBDD_EINGANGSARTENDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EINGANGSARTEN = CType(Me.Table,TBDD_EINGANGSARTENDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn),String) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property BESCHREIBUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BESCHREIBUNG in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_EINGANGSARTEN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBESCHREIBUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) + End Function + + _ + Public Sub SetBESCHREIBUNGNull() + Me(Me.tableTBDD_EINGANGSARTEN.BESCHREIBUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_EINGANGSARTEN.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_DOKUMENTARTRows() As TBDD_DOKUMENTARTRow() + If (Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID") Is Nothing) Then + Return New TBDD_DOKUMENTARTRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_DOKUMENTART_EINGID")),TBDD_DOKUMENTARTRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_DOKART_MODULERow + Inherits Global.System.Data.DataRow + + Private tableTBDD_DOKART_MODULE As TBDD_DOKART_MODULEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_DOKART_MODULE = CType(Me.Table,TBDD_DOKART_MODULEDataTable) + End Sub + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableTBDD_DOKART_MODULE.IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_DOKART_MODULE.IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_DOKART_MODULE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_DOKART_MODULE.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_DOKART_MODULE.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_MODULESRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_MODULES As TBDD_MODULESDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_MODULES.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_MODULES.NAMEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_MANRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_MAN As TBDD_INDEX_MANDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_MAN = CType(Me.Table,TBDD_INDEX_MANDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOK_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DOK_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.NAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.NAMEColumn) = value + End Set + End Property + + _ + Public Property WD_INDEX() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DATATYPE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = value + End Set + End Property + + _ + Public Property SUGGESTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SUGGESTIONColumn) = value + End Set + End Property + + _ + Public Property DEFAULT_VALUE() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.DEFAULT_VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_CHECK() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.SQL_CHECKColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property _OPTIONAL() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN.OPTIONALColumn) = value + End Set + End Property + + _ + Public Property TBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_CONNECTIONRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_CID")) + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_MAN_DAID")) + End Set + End Property + + _ + Public Function IsWD_INDEXNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) + End Function + + _ + Public Sub SetWD_INDEXNull() + Me(Me.tableTBDD_INDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATATYPENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) + End Function + + _ + Public Sub SetDATATYPENull() + Me(Me.tableTBDD_INDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBDD_INDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() + If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID") Is Nothing) Then + Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short + Get + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + End Get + Set + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value + End Set + End Property + + _ + Public Property BEZEICHNUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATENBANK() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property BEMERKUNG() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value + End Set + End Property + + _ + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + End Function + + _ + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_INDEX_MANRows() As TBDD_INDEX_MANRow() + If (Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID") Is Nothing) Then + Return New TBDD_INDEX_MANRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_INDEX_MAN_CID")),TBDD_INDEX_MANRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWDDINDEX_MANRow + Inherits Global.System.Data.DataRow + + Private tableVWDDINDEX_MAN As VWDDINDEX_MANDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWDDINDEX_MAN = CType(Me.Table,VWDDINDEX_MANDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.GUIDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property WD_INDEX() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WD_INDEX in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DATATYPE() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATATYPE in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = value + End Set + End Property + + _ + Public Property DOK_ID() As Integer + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn),Integer) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.DOK_IDColumn) = value + End Set + End Property + + _ + Public Property DOKUMENTART() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.DOKUMENTARTColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property SUGGESTION() As Boolean + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn),Boolean) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SUGGESTIONColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property CONNECTION() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATENBANK() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_CHECK() As String + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.SQL_CHECKColumn) = value + End Set + End Property + + _ + Public Property Indexiert() As Boolean + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.IndexiertColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = value + End Set + End Property + + _ + Public Property Indexwert() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_MAN.IndexwertColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_MAN ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = value + End Set + End Property + + _ + Public Property _OPTIONAL() As Boolean + Get + Return CType(Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn),Boolean) + End Get + Set + Me(Me.tableVWDDINDEX_MAN.OPTIONALColumn) = value + End Set + End Property + + _ + Public Function IsWD_INDEXNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) + End Function + + _ + Public Sub SetWD_INDEXNull() + Me(Me.tableVWDDINDEX_MAN.WD_INDEXColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWDDINDEX_MAN.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATATYPENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATATYPEColumn) + End Function + + _ + Public Sub SetDATATYPENull() + Me(Me.tableVWDDINDEX_MAN.DATATYPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableVWDDINDEX_MAN.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTIONNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) + End Function + + _ + Public Sub SetCONNECTIONNull() + Me(Me.tableVWDDINDEX_MAN.CONNECTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableVWDDINDEX_MAN.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableVWDDINDEX_MAN.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableVWDDINDEX_MAN.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWDDINDEX_MAN.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableVWDDINDEX_MAN.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexiertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexiertColumn) + End Function + + _ + Public Sub SetIndexiertNull() + Me(Me.tableVWDDINDEX_MAN.IndexiertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexwertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_MAN.IndexwertColumn) + End Function + + _ + Public Sub SetIndexwertNull() + Me(Me.tableVWDDINDEX_MAN.IndexwertColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWDDINDEX_AUTOMRow + Inherits Global.System.Data.DataRow + + Private tableVWDDINDEX_AUTOM As VWDDINDEX_AUTOMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWDDINDEX_AUTOM = CType(Me.Table,VWDDINDEX_AUTOMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.GUIDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property DOKUMENTART() As String + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.DOKUMENTARTColumn) = value + End Set + End Property + + _ + Public Property KURZNAME() As String + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.KURZNAMEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn),Short) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property CONNECTION() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = value + End Set + End Property + + _ + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = value + End Set + End Property + + _ + Public Property SERVER() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = value + End Set + End Property + + _ + Public Property DATENBANK() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property PASSWORD() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Return CType(Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn),String) + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property Indexiert() As Boolean + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexiert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = value + End Set + End Property + + _ + Public Property Indexwert() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexwert in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle VWDDINDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = value + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWDDINDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTIONNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) + End Function + + _ + Public Sub SetCONNECTIONNull() + Me(Me.tableVWDDINDEX_AUTOM.CONNECTIONColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableVWDDINDEX_AUTOM.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableVWDDINDEX_AUTOM.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableVWDDINDEX_AUTOM.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWDDINDEX_AUTOM.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableVWDDINDEX_AUTOM.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexiertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) + End Function + + _ + Public Sub SetIndexiertNull() + Me(Me.tableVWDDINDEX_AUTOM.IndexiertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsIndexwertNull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) + End Function + + _ + Public Sub SetIndexwertNull() + Me(Me.tableVWDDINDEX_AUTOM.IndexwertColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableVWDDINDEX_AUTOM.VALUEColumn) + End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableVWDDINDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_AUTOMRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_AUTOM As TBDD_INDEX_AUTOMDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_AUTOM = CType(Me.Table,TBDD_INDEX_AUTOMDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property SQL_RESULT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_RESULT in Tabelle TBDD_INDEX_AUTOM ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = value + End Set + End Property + + _ + Public Property SQL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_INDEX_AUTOM.SQL_ACTIVEColumn) = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")),TBDD_DOKUMENTARTRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_INDEX_AUTOM_DOCID")) + End Set + End Property + + _ + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) + End Function + + _ + Public Sub SetVALUENull() + Me(Me.tableTBDD_INDEX_AUTOM.VALUEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBDD_INDEX_AUTOM.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_AUTOM.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_AUTOM.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_RESULTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) + End Function + + _ + Public Sub SetSQL_RESULTNull() + Me(Me.tableTBDD_INDEX_AUTOM.SQL_RESULTColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGI_CONFIGURATIONRow + Inherits Global.System.Data.DataRow + + Private tableTBGI_CONFIGURATION As TBGI_CONFIGURATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGI_CONFIGURATION = CType(Me.Table,TBGI_CONFIGURATIONDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBGI_CONFIGURATION.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.GUIDColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_ID() As String + Get + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn),String) + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_IDColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_FROM() As String + Get + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn),String) + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_FROMColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_TO() As String + Get + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn),String) + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_TOColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_SUBJECT() As String + Get + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn),String) + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_SUBJECTColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_DATE_IN() As String + Get + Return CType(Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn),String) + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.IDX_EMAIL_DATE_INColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_CONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_CONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBGI_CONFIGURATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRow + Inherits Global.System.Data.DataRow + + Private tableTBGI_OBJECTTYPE_EMAIL_INDEX As TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX = CType(Me.Table,TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.GUIDColumn) = value + End Set + End Property + + _ + Public Property OBJECTTYPE() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_ID() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_IDColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_FROM() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_FROMColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_TO() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_TOColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_SUBJECT() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_SUBJECTColumn) = value + End Set + End Property + + _ + Public Property IDX_EMAIL_DATE_IN() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_EMAIL_DATE_INColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBGI_OBJECTTYPE_EMAIL_INDEX ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property IDX_CHECK_ATTACHMENT() As String + Get + Return CType(Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn),String) + End Get + Set + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.IDX_CHECK_ATTACHMENTColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBGI_OBJECTTYPE_EMAIL_INDEX.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_INDEX_MAN_POSTPROCESSING As TBDD_INDEX_MAN_POSTPROCESSINGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_INDEX_MAN_POSTPROCESSING = CType(Me.Table,TBDD_INDEX_MAN_POSTPROCESSINGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.GUIDColumn) = value + End Set + End Property + + _ + Public Property IDXMAN_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = value + End Set + End Property + + _ + Public Property TYPE() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = value + End Set + End Property + + _ + Public Property FUNCTION1() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = value + End Set + End Property + + _ + Public Property FUNCTION2() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = value + End Set + End Property + + _ + Public Property TEXT1() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = value + End Set + End Property + + _ + Public Property TEXT2() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = value + End Set + End Property + + _ + Public Property TEXT3() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT3 in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_INDEX_MAN_POSTPROCESSING ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_INDEX_MANRow() As TBDD_INDEX_MANRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")),TBDD_INDEX_MANRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID")) + End Set + End Property + + _ + Public Property TBWHDD_INDEX_MANRow() As TBWHDD_INDEX_MANRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBWHDD_INDEX_MANRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")) + End Set + End Property + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPENull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) + End Function + + _ + Public Sub SetTYPENull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TYPEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFUNCTION1Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) + End Function + + _ + Public Sub SetFUNCTION1Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFUNCTION2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) + End Function + + _ + Public Sub SetFUNCTION2Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTEXT1Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) + End Function + + _ + Public Sub SetTEXT1Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTEXT2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) + End Function + + _ + Public Sub SetTEXT2Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTEXT3Null() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) + End Function + + _ + Public Sub SetTEXT3Null() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.TEXT3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWHDD_INDEX_MANRow + Inherits Global.System.Data.DataRow + + Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWHDD_INDEX_MAN = CType(Me.Table,TBWHDD_INDEX_MANDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBWHDD_INDEX_MAN.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn),String) + End Get + Set + Me(Me.tableTBWHDD_INDEX_MAN.NAMEColumn) = value + End Set + End Property + + _ + Public Function GetTBDD_INDEX_MAN_POSTPROCESSINGRows() As TBDD_INDEX_MAN_POSTPROCESSINGRow() + If (Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1") Is Nothing) Then + Return New TBDD_INDEX_MAN_POSTPROCESSINGRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1")),TBDD_INDEX_MAN_POSTPROCESSINGRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_USER_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPS_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + End Set + End Property + + _ + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGI_USER_GROUPS_RELATIONRow + Inherits Global.System.Data.DataRow + + Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGI_USER_GROUPS_RELATION = CType(Me.Table,VWGI_USER_GROUPS_RELATIONDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.GUIDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.USER_IDColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn),String) + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_USER_GROUPS_RELATION ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWGI_USER_GROUPS_RELATION.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class VWGI_DOCTYPE_GROUPRow + Inherits Global.System.Data.DataRow + + Private tableVWGI_DOCTYPE_GROUP As VWGI_DOCTYPE_GROUPDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWGI_DOCTYPE_GROUP = CType(Me.Table,VWGI_DOCTYPE_GROUPDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GUIDColumn),Integer) + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.GUIDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE_ID() As Integer + Get + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPE_IDColumn) = value + End Set + End Property + + _ + Public Property DOCTYPE() As String + Get + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn),String) + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.DOCTYPEColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP() As String + Get + Try + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP in Tabelle VWGI_DOCTYPE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWGI_DOCTYPE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWGI_DOCTYPE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsGROUPNull() As Boolean + Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) + End Function + + _ + Public Sub SetGROUPNull() + Me(Me.tableVWGI_DOCTYPE_GROUP.GROUPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWGI_DOCTYPE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWGI_DOCTYPE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBHOTKEY_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBHOTKEY_PROFILE = CType(Me.Table,TBHOTKEY_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn) = value + End Set + End Property + + _ + Public Property OBJECTTYPE() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn) = value + End Set + End Property + + _ + Public Property WD_SEARCH() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn) = value + End Set + End Property + + _ + Public Property HOTKEY1() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column) = value + End Set + End Property + + _ + Public Property HOTKEY2() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column) = value + End Set + End Property + + _ + Public Property WINDOW_NAME() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PROFILE.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID") Is Nothing) Then + Return New TBHOTKEY_PATTERNSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PATTERNSRow()) + End If + End Function + + _ + Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID") Is Nothing) Then + Return New TBHOTKEY_USER_PROFILERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_USER_PROFILERow()) + End If + End Function + + _ + Public Function GetTBHOTKEY_WINDOW_HOOKRows() As TBHOTKEY_WINDOW_HOOKRow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") Is Nothing) Then + Return New TBHOTKEY_WINDOW_HOOKRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_WINDOW_HOOKRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBHOTKEY_PATTERNSRow + Inherits Global.System.Data.DataRow + + Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBHOTKEY_PATTERNS = CType(Me.Table,TBHOTKEY_PATTERNSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn) = value + End Set + End Property + + _ + Public Property HKPROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property PATTERN_WDSEARCH() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn) = value + End Set + End Property + + _ + Public Property WINDOW_CONTROL() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_NUMBER() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn) = value + End Set + End Property + + _ + Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PROFILERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")) + End Set + End Property + + _ + Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBMYHOTKEYSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBHOTKEY_PATTERNS_REWORKRows() As TBHOTKEY_PATTERNS_REWORKRow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") Is Nothing) Then + Return New TBHOTKEY_PATTERNS_REWORKRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNS_REWORKRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBMYHOTKEYSRow + Inherits Global.System.Data.DataRow + + Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBMYHOTKEYS = CType(Me.Table,TBMYHOTKEYSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBMYHOTKEYS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBMYHOTKEYS.GUIDColumn) = value + End Set + End Property + + _ + Public Property _String() As String + Get + Try + Return CType(Me(Me.tableTBMYHOTKEYS.StringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBMYHOTKEYS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBMYHOTKEYS.StringColumn) = value + End Set + End Property + + _ + Public Function Is_StringNull() As Boolean + Return Me.IsNull(Me.tableTBMYHOTKEYS.StringColumn) + End Function + + _ + Public Sub Set_StringNull() + Me(Me.tableTBMYHOTKEYS.StringColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1") Is Nothing) Then + Return New TBHOTKEY_PATTERNSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBHOTKEY_PATTERNSRow()) + End If + End Function + + _ + Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() + If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1") Is Nothing) Then + Return New TBHOTKEY_USER_PROFILERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBHOTKEY_USER_PROFILERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBHOTKEY_USER_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBHOTKEY_USER_PROFILE = CType(Me.Table,TBHOTKEY_USER_PROFILEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn) = value + End Set + End Property + + _ + Public Property HKPROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn) = value + End Set + End Property + + _ + Public Property WD_SEARCH() As String + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn) = value + End Set + End Property + + _ + Public Property HOTKEY1() As String + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column),String) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column) = value + End Set + End Property + + _ + Public Property HOTKEY2() As String + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column),String) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_PROFILERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")) + End Set + End Property + + _ + Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBMYHOTKEYSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")) + End Set + End Property + + _ + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBHOTKEY_PATTERNS_REWORKRow + Inherits Global.System.Data.DataRow + + Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBHOTKEY_PATTERNS_REWORK = CType(Me.Table,TBHOTKEY_PATTERNS_REWORKDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn) = value + End Set + End Property + + _ + Public Property HKPATTERN_ID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn) = value + End Set + End Property + + _ + Public Property TYPE() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn) = value + End Set + End Property + + _ + Public Property FUNCTION1() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = value + End Set + End Property + + _ + Public Property FUNCTION2() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = value + End Set + End Property + + _ + Public Property TEXT1() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = value + End Set + End Property + + _ + Public Property TEXT2() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")) + End Set + End Property + + _ + Public Function IsFUNCTION1Null() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) + End Function + + _ + Public Sub SetFUNCTION1Null() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsFUNCTION2Null() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) + End Function + + _ + Public Sub SetFUNCTION2Null() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTEXT1Null() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) + End Function + + _ + Public Sub SetTEXT1Null() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTEXT2Null() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) + End Function + + _ + Public Sub SetTEXT2Null() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBHOTKEY_WINDOW_HOOKRow + Inherits Global.System.Data.DataRow + + Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBHOTKEY_WINDOW_HOOK = CType(Me.Table,TBHOTKEY_WINDOW_HOOKDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn) = value + End Set + End Property + + _ + Public Property HKPROFILE_ID() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_NUMBER() As Integer + Get + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn),Integer) + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn) = value + End Set + End Property + + _ + Public Property CONTROL_VALUE() As String + Get + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_PROFILERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")) + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBTempFiles2IndexRow + Inherits Global.System.Data.DataRow + + Private tableTBTempFiles2Index As TBTempFiles2IndexDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTempFiles2Index = CType(Me.Table,TBTempFiles2IndexDataTable) + End Sub + + _ + Public Property Filestring() As String + Get + Try + Return CType(Me(Me.tableTBTempFiles2Index.FilestringColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Filestring in Tabelle TBTempFiles2Index ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTempFiles2Index.FilestringColumn) = value + End Set + End Property + + _ + Public Property Worked() As Boolean + Get + Try + Return CType(Me(Me.tableTBTempFiles2Index.WorkedColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Worked in Tabelle TBTempFiles2Index ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTempFiles2Index.WorkedColumn) = value + End Set + End Property + + _ + Public Function IsFilestringNull() As Boolean + Return Me.IsNull(Me.tableTBTempFiles2Index.FilestringColumn) + End Function + + _ + Public Sub SetFilestringNull() + Me(Me.tableTBTempFiles2Index.FilestringColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWorkedNull() As Boolean + Return Me.IsNull(Me.tableTBTempFiles2Index.WorkedColumn) + End Function + + _ + Public Sub SetWorkedNull() + Me(Me.tableTBTempFiles2Index.WorkedColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBTEMP_INDEXRESULTSRow + Inherits Global.System.Data.DataRow + + Private tableTBTEMP_INDEXRESULTS As TBTEMP_INDEXRESULTSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBTEMP_INDEXRESULTS = CType(Me.Table,TBTEMP_INDEXRESULTSDataTable) + End Sub + + _ + Public Property Indexname() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = value + End Set + End Property + + _ + Public Property Value() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = value + End Set + End Property + + _ + Public Property Dokumentart() As String + Get + Try + Return CType(Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Dokumentart in Tabelle TBTEMP_INDEXRESULTS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = value + End Set + End Property + + _ + Public Function IsIndexnameNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) + End Function + + _ + Public Sub SetIndexnameNull() + Me(Me.tableTBTEMP_INDEXRESULTS.IndexnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsValueNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) + End Function + + _ + Public Sub SetValueNull() + Me(Me.tableTBTEMP_INDEXRESULTS.ValueColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDokumentartNull() As Boolean + Return Me.IsNull(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) + End Function + + _ + Public Sub SetDokumentartNull() + Me(Me.tableTBTEMP_INDEXRESULTS.DokumentartColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKUMENTARTRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKUMENTARTRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_DOKUMENTARTRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_DOKUMENTARTRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EINGANGSARTENRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EINGANGSARTENRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EINGANGSARTENRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EINGANGSARTENRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_DOKART_MODULERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_DOKART_MODULERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_DOKART_MODULERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_DOKART_MODULERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_MODULESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_MODULESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_MODULESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_MODULESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_MANRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWDDINDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWDDINDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWDDINDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWDDINDEX_MANRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWDDINDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWDDINDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWDDINDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWDDINDEX_AUTOMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_AUTOMRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_AUTOMRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_AUTOMRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_AUTOMRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_CONFIGURATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGI_CONFIGURATIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGI_CONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGI_CONFIGURATIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBGI_OBJECTTYPE_EMAIL_INDEXRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBGI_OBJECTTYPE_EMAIL_INDEXRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBGI_OBJECTTYPE_EMAIL_INDEXRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBGI_OBJECTTYPE_EMAIL_INDEXRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_INDEX_MAN_POSTPROCESSINGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_INDEX_MAN_POSTPROCESSINGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_INDEX_MAN_POSTPROCESSINGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_INDEX_MAN_POSTPROCESSINGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWHDD_INDEX_MANRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWHDD_INDEX_MANRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWHDD_INDEX_MANRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWHDD_INDEX_MANRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USER_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USER_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USER_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GROUPS_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPS_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_GROUPS_USERRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGI_USER_GROUPS_RELATIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGI_USER_GROUPS_RELATIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGI_USER_GROUPS_RELATIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGI_USER_GROUPS_RELATIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWGI_DOCTYPE_GROUPRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWGI_DOCTYPE_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWGI_DOCTYPE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWGI_DOCTYPE_GROUPRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBHOTKEY_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBHOTKEY_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBHOTKEY_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBHOTKEY_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBHOTKEY_PATTERNSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBHOTKEY_PATTERNSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBHOTKEY_PATTERNSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBHOTKEY_PATTERNSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBMYHOTKEYSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBMYHOTKEYSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBMYHOTKEYSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBMYHOTKEYSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBHOTKEY_USER_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBHOTKEY_USER_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBHOTKEY_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBHOTKEY_USER_PROFILERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBHOTKEY_PATTERNS_REWORKRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBHOTKEY_PATTERNS_REWORKRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBHOTKEY_PATTERNS_REWORKRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBHOTKEY_PATTERNS_REWORKRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBHOTKEY_WINDOW_HOOKRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBHOTKEY_WINDOW_HOOKRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBHOTKEY_WINDOW_HOOKRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBHOTKEY_WINDOW_HOOKRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBTempFiles2IndexRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBTempFiles2IndexRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBTempFiles2IndexRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBTempFiles2IndexRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBTEMP_INDEXRESULTSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBTEMP_INDEXRESULTSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBTEMP_INDEXRESULTSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBTEMP_INDEXRESULTSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace MyDatasetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") + tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") + tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") + tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") + tableMapping.ColumnMappings.Add("GI_ADMIN", "GI_ADMIN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "GI_ADMIN, ADDED_WHO, MODULE_GI)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,"& _ + "@GI_ADMIN,@ADDED_WHO, 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED"& _ + "_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GI_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, GI_ADMIN = @GI_ADMIN, CHANGED_WHO = @CHANGED_W"& _ + "HO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAM"& _ + "E, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WH"& _ + "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GI_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ + "IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ + "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_GI = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ + "IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ + "N"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByAll(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByAll() As MyDataset.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Dim dataTable As MyDataset.TBDD_USERDataTable = New MyDataset.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal GI_ADMIN As Boolean, ByVal ADDED_WHO As String) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(GI_ADMIN,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal GI_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GI_ADMIN,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + tableMapping.ColumnMappings.Add("WINDREAM_DIRECT", "WINDREAM_DIRECT") + tableMapping.ColumnMappings.Add("FOLDER_FOR_INDEX", "FOLDER_FOR_INDEX") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJE"& _ + "KTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG"& _ + ",@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERS"& _ + "TELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ + "UID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAME"& _ + "NKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FR"& _ + "OM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVE"& _ + "NTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WI"& _ + "NDREAM_DIRECT = @WINDREAM_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FOLDER_FOR_INDEX = "& _ + "@FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG"& _ + ", AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN,"& _ + " OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAMENKONVENTION", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "NAMENKONVENTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ + "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ + "ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _ + "NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GEANDERTWER = @GEANDERTWER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _ + "= @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLDER_FOR_INDEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLDER_FOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_"& _ + "PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTW"& _ + "ER, GEAENDERTWANN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" OBJEKTTYP, FOLDER_FOR_INDEX, SEQUE"& _ + "NCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ + " TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (MODULE"& _ + "_ID = 1)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE, BEZEICHNUNG" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByModuleGI(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy1() As MyDataset.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Dim dataTable As MyDataset.TBDD_DOKUMENTARTDataTable = New MyDataset.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_DOKUMENTARTDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal WINDREAM_DIRECT As Boolean, ByVal FOLDER_FOR_INDEX As String, ByVal SEQUENCE As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (NAMENKONVENTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NAMENKONVENTION,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WINDREAM_DIRECT,Boolean) + If (FOLDER_FOR_INDEX Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(FOLDER_FOR_INDEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEQUENCE,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdUpdateFolderIndex(ByVal GEANDERTWER As String, ByVal FOLDER_FOR_INDEX As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (GEANDERTWER Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(GEANDERTWER,String) + End If + If (FOLDER_FOR_INDEX Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(FOLDER_FOR_INDEX,String) + End If + command.Parameters(2).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EINGANGSARTENTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EINGANGSARTEN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ + "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ + "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, B"& _ + "ESCHREIBUNG = @BESCHREIBUNG, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ + "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWA"& _ + "NN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_EINGANGSARTEN.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_EINGANGSARTENDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_EINGANGSARTENDataTable = New MyDataset.TBDD_EINGANGSARTENDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_EINGANGSARTENDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EINGANGSARTEN") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal GEANDERTWER As String, ByVal Original_GUID As Byte, ByVal GUID As Byte) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(GEANDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Byte) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKART_MODULETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKART_MODULE" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T.GUID AS ID, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTART_MODULE AS T"& _ + " INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUI"& _ + "D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.DOKART_ID = @DOKARTID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKARTID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID,ADDED_WHO) VALUES (@DOKA"& _ + "RT_ID,@MODUL_EID,@WHO)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOKART_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODUL_EID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_DOKART_MODULEDataTable, ByVal DOKARTID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOKARTID As Integer) As MyDataset.TBDD_DOKART_MODULEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOKARTID,Integer) + Dim dataTable As MyDataset.TBDD_DOKART_MODULEDataTable = New MyDataset.TBDD_DOKART_MODULEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdInsertDokartModule(ByVal DOKART_ID As Integer, ByVal MODUL_EID As Integer, ByVal WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(DOKART_ID,Integer) + command.Parameters(1).Value = CType(MODUL_EID,Integer) + If (WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("WHO") + Else + command.Parameters(2).Value = CType(WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_MODULESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_MODULES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_MODULESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_MODULESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_MODULESDataTable = New MyDataset.TBDD_MODULESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_MANTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_MAN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") + tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") + tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOK_ID, NAME, WD_INDEX, COM"& _ + "MENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, "& _ + "SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID,@NAME,@WD_INDEX,"& _ + "@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESU"& _ + "LT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOK_ID, NAME, WD_IND"& _ + "EX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_R"& _ + "ESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTI"& _ + "ONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOK_ID = @DOK_ID, NAME = @NAME, W"& _ + "D_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUG"& _ + "GESTION, DEFAULT_VALUE = @DEFAULT_VALUE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONNECTION_I"& _ + "D = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = "& _ + "@SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " OPTIONAL = @OPTIONAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ + "DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION"& _ + "_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ + ", CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATATYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DATATYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SUGGESTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SUGGESTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_CHECK", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_CHECK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OPTIONAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "OPTIONAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAUL"& _ + "T_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDE"& _ + "D_WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, OPTIONAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DOK_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Dim dataTable As MyDataset.TBDD_INDEX_MANDataTable = New MyDataset.TBDD_INDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MANDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DOK_ID As Integer, ByVal NAME As String, ByVal WD_INDEX As String, ByVal COMMENT As String, ByVal DATATYPE As String, ByVal SUGGESTION As Boolean, ByVal DEFAULT_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal SEQUENCE As Integer, ByVal SQL_RESULT As String, ByVal SQL_CHECK As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal _OPTIONAL As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (WD_INDEX Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_INDEX,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (DATATYPE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DATATYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SQL_RESULT,String) + End If + If (SQL_CHECK Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_CHECK") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(SQL_CHECK,String) + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DOK_ID As Integer, _ + ByVal NAME As String, _ + ByVal WD_INDEX As String, _ + ByVal COMMENT As String, _ + ByVal DATATYPE As String, _ + ByVal SUGGESTION As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_CHECK As String, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal _OPTIONAL As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (WD_INDEX Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_INDEX,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + End If + If (DATATYPE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DATATYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SUGGESTION,Boolean) + If (DEFAULT_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DEFAULT_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(DEFAULT_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SEQUENCE,Integer) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SQL_RESULT,String) + End If + If (SQL_CHECK Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_CHECK") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(SQL_CHECK,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(_OPTIONAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_CONNECTIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_CONNECTION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ + "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ + "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ + "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ + "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ + "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ + "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ + "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ + "OM TBDD_CONNECTION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_CONNECTIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_CONNECTIONDataTable = New MyDataset.TBDD_CONNECTIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWDDINDEX_MANTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWDDINDEX_MAN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("WD_INDEX", "WD_INDEX") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DATATYPE", "DATATYPE") + tableMapping.ColumnMappings.Add("DOK_ID", "DOK_ID") + tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("SUGGESTION", "SUGGESTION") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_CHECK", "SQL_CHECK") + tableMapping.ColumnMappings.Add("OPTIONAL", "OPTIONAL") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, "& _ + "KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK"& _ + ", USERNAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = @DokID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_MANDataTable, ByVal DokID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DokID As Integer) As MyDataset.VWDDINDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + Dim dataTable As MyDataset.VWDDINDEX_MANDataTable = New MyDataset.VWDDINDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWDDINDEX_AUTOMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWDDINDEX_AUTOM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ + "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ + "SULT,VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE"& _ + ")" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOCTYPE As Integer) As MyDataset.VWDDINDEX_AUTOMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE,Integer) + Dim dataTable As MyDataset.VWDDINDEX_AUTOMDataTable = New MyDataset.VWDDINDEX_AUTOMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_AUTOMTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ + "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ + ",@SQL_RESULT,@SQL_ACTIVE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECT"& _ + "ION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_R"& _ + "ESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ + "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ + "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + "SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ + "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, "& _ + "ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_I"& _ + "NDEX_AUTOM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.TBDD_INDEX_AUTOMDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Dim dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable = New MyDataset.TBDD_INDEX_AUTOMDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_AUTOMDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_AUTOM") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (SQL_RESULT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_RESULT,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Short), ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_RESULT As String, ByVal SQL_ACTIVE As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Short) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (SQL_RESULT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_RESULT,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGI_CONFIGURATIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGI_CONFIGURATION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("IDX_EMAIL_ID", "IDX_EMAIL_ID") + tableMapping.ColumnMappings.Add("IDX_EMAIL_FROM", "IDX_EMAIL_FROM") + tableMapping.ColumnMappings.Add("IDX_EMAIL_TO", "IDX_EMAIL_TO") + tableMapping.ColumnMappings.Add("IDX_EMAIL_SUBJECT", "IDX_EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("IDX_EMAIL_DATE_IN", "IDX_EMAIL_DATE_IN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_CONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET GUID = @GUID, IDX_EMAIL_ID = "& _ + "@IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, I"& _ + "DX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_EMAIL_DATE"& _ + "_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX"& _ + "_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_CONFIGURATION WHERE (GUID = "& _ + "@GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT"& _ + ", IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_CONFIGURATI"& _ + "ON"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = 1)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBGI_CONFIGURATIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBGI_CONFIGURATIONDataTable = New MyDataset.TBGI_CONFIGURATIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_CONFIGURATIONDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBGI_CONFIGURATION") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Update(ByVal GUID As Byte, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(GUID,Byte) + If (IDX_EMAIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + End If + If (IDX_EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + End If + If (IDX_EMAIL_TO Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + End If + If (IDX_EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + End If + If (IDX_EMAIL_DATE_IN Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBGI_OBJECTTYPE_EMAIL_INDEX" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("OBJECTTYPE", "OBJECTTYPE") + tableMapping.ColumnMappings.Add("IDX_EMAIL_ID", "IDX_EMAIL_ID") + tableMapping.ColumnMappings.Add("IDX_EMAIL_FROM", "IDX_EMAIL_FROM") + tableMapping.ColumnMappings.Add("IDX_EMAIL_TO", "IDX_EMAIL_TO") + tableMapping.ColumnMappings.Add("IDX_EMAIL_SUBJECT", "IDX_EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("IDX_EMAIL_DATE_IN", "IDX_EMAIL_DATE_IN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("IDX_CHECK_ATTACHMENT", "IDX_CHECK_ATTACHMENT") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECTTYPE, ID"& _ + "X_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, "& _ + "ADDED_WHO, CHANGED_WHO, IDX_CHECK_ATTACHMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@OBJECTTYPE,@IDX_E"& _ + "MAIL_ID,@IDX_EMAIL_FROM,@IDX_EMAIL_TO,@IDX_EMAIL_SUBJECT,@IDX_EMAIL_DATE_IN,@ADD"& _ + "ED_WHO,@CHANGED_WHO,@IDX_CHECK_ATTACHMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECTTYPE, IDX_E"& _ + "MAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADD"& _ + "ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX W"& _ + "HERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBGI_OBJECTTYPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECTTYPE = @OBJECT"& _ + "TYPE, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_"& _ + "TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO, IDX_C"& _ + "HECK_ATTACHMENT = @IDX_CHECK_ATTACHMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMA"& _ + "IL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_ID", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_TO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_TO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_EMAIL_DATE_IN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_EMAIL_DATE_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_CHECK_ATTACHMENT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_CHECK_ATTACHMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_E"& _ + "MAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE"& _ + "N, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_CHECK_ATTACHMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBGI_OBJECTT"& _ + "YPE_EMAIL_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (OBJECTTYPE = @Objecttype)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Objecttype", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable, ByVal Objecttype As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Objecttype Is Nothing) Then + Throw New Global.System.ArgumentNullException("Objecttype") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal Objecttype As String) As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Objecttype Is Nothing) Then + Throw New Global.System.ArgumentNullException("Objecttype") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Objecttype,String) + End If + Dim dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable = New MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEXDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBGI_OBJECTTYPE_EMAIL_INDEX") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String) As Integer + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECTTYPE,String) + End If + If (IDX_EMAIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + End If + If (IDX_EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + End If + If (IDX_EMAIL_TO Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + End If + If (IDX_EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + End If + If (IDX_EMAIL_DATE_IN Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (IDX_CHECK_ATTACHMENT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(IDX_CHECK_ATTACHMENT,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal OBJECTTYPE As String, ByVal IDX_EMAIL_ID As String, ByVal IDX_EMAIL_FROM As String, ByVal IDX_EMAIL_TO As String, ByVal IDX_EMAIL_SUBJECT As String, ByVal IDX_EMAIL_DATE_IN As String, ByVal CHANGED_WHO As String, ByVal IDX_CHECK_ATTACHMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECTTYPE,String) + End If + If (IDX_EMAIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_ID") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDX_EMAIL_ID,String) + End If + If (IDX_EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_FROM") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDX_EMAIL_FROM,String) + End If + If (IDX_EMAIL_TO Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_TO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(IDX_EMAIL_TO,String) + End If + If (IDX_EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDX_EMAIL_SUBJECT,String) + End If + If (IDX_EMAIL_DATE_IN Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_EMAIL_DATE_IN") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDX_EMAIL_DATE_IN,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (IDX_CHECK_ATTACHMENT Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDX_CHECK_ATTACHMENT") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(IDX_CHECK_ATTACHMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_INDEX_MAN_POSTPROCESSING" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("IDXMAN_ID", "IDXMAN_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("TYPE", "TYPE") + tableMapping.ColumnMappings.Add("FUNCTION1", "FUNCTION1") + tableMapping.ColumnMappings.Add("FUNCTION2", "FUNCTION2") + tableMapping.ColumnMappings.Add("TEXT1", "TEXT1") + tableMapping.ColumnMappings.Add("TEXT2", "TEXT2") + tableMapping.ColumnMappings.Add("TEXT3", "TEXT3") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (IDXMAN_ID, C"& _ + "OMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"V"& _ + "ALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEX"& _ + "T3,@SEQUENCE,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_MAN_POSTPROCESSING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET IDXMAN_ID = @IDXMA"& _ + "N_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUN"& _ + "CTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"& _ + "" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXMAN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXMAN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT3", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.I"& _ + "DXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.T"& _ + "YPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_IN"& _ + "DEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDE"& _ + "X_MAN_POSTPROCESSING.TEXT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCES"& _ + "SING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSIN"& _ + "G.ADDED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN"& _ + ", TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANG"& _ + "ED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_IND"& _ + "EX_MAN.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable, ByVal DOK_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Dim dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable = New MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_INDEX_MAN_POSTPROCESSINGDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_INDEX_MAN_POSTPROCESSING") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWHDD_INDEX_MANTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWHDD_INDEX_MAN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_INDEX_MAN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOK_ID = "& _ + "@DOK_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBWHDD_INDEX_MANDataTable, ByVal DOK_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOK_ID As Integer) As MyDataset.TBWHDD_INDEX_MANDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOK_ID,Integer) + Dim dataTable As MyDataset.TBWHDD_INDEX_MANDataTable = New MyDataset.TBWHDD_INDEX_MANDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USER_GROUPSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_USER_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAM"& _ + "E = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ADDED_WHO] = @Orig"& _ + "inal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDE"& _ + "D_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO]"& _ + " IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN"& _ + " = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _ + "HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ + "ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO,"& _ + " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _ + ")" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_USER_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBDD_USER_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBDD_USER_GROUPSDataTable = New MyDataset.TBDD_USER_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_GROUPS_USERTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ + "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GRO"& _ + "UP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WH"& _ + "ERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ + "@GROUP_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGE"& _ + "D_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ + "WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable, ByVal USER_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.TBDD_GROUPS_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As MyDataset.TBDD_GROUPS_USERDataTable = New MyDataset.TBDD_GROUPS_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPS_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdinsert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(USER_ID,Integer) + command.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGI_USER_GROUPS_RELATIONTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGI_USER_GROUPS_RELATION" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT VWGI_USER_GROUPS_RELATION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGI_USER_GROUPS_RELAT"& _ + "ION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID) ORDER BY NAME" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable, ByVal USER_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER_ID As Integer) As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As MyDataset.VWGI_USER_GROUPS_RELATIONDataTable = New MyDataset.VWGI_USER_GROUPS_RELATIONDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWGI_DOCTYPE_GROUPTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWGI_DOCTYPE_GROUP" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("DOCTYPE", "DOCTYPE") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("GROUP", "GROUP") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, [GROUP], ADDED_WHO, ADDED_WHEN"& _ + ", CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWGI_DOCTYPE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @"& _ + "DOCTYPE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DOCTYPE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBDD_USRGRP_DOKTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "INSERT INTO TBDD_USRGRP_DOKTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, GROUP_ID, "& _ + "ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOCTYPE_ID,@GROUP_ID,@ADDED_WHO)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.VWGI_DOCTYPE_GROUPDataTable, ByVal DOCTYPE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As MyDataset.VWGI_DOCTYPE_GROUPDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Dim dataTable As MyDataset.VWGI_DOCTYPE_GROUPDataTable = New MyDataset.VWGI_DOCTYPE_GROUPDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function cmdDelete(ByVal ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function cmdInsert(ByVal DOCTYPE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + command.Parameters(1).Value = CType(GROUP_ID,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(2).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBHOTKEY_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBHOTKEY_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("OBJECTTYPE", "OBJECTTYPE") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("HOTKEY1", "HOTKEY1") + tableMapping.ColumnMappings.Add("HOTKEY2", "HOTKEY2") + tableMapping.ColumnMappings.Add("WINDOW_NAME", "WINDOW_NAME") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("String", "String") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Or"& _ + "iginal_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Origi"& _ + "nal_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HO"& _ + "TKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_"& _ + "ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHE"& _ + "N] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ + "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ + "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, OBJECTTYPE, WD_SEAR"& _ + "CH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@OBJECTTYPE,"& _ + "@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME"& _ + " + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HO"& _ + "TKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ + "OM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEA"& _ + "RCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @"& _ + "WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO]"& _ + " = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID)"& _ + " AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([W"& _ + "D_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKE"& _ + "Y2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED"& _ + "_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ + "LL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND "& _ + "[CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull"& _ + "_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHA"& _ + "NGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY"& _ + "2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, AD"& _ + "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ + "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ + " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ + "PROFILE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, OBJECTTYPE = @OBJ"& _ + "ECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_"& _ + "NAME = @WINDOW_NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ + "E (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ + "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ + " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ + "PROFILE where GUID = @HK_ID" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBHOTKEY_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByID(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable, ByVal HK_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByID(ByVal HK_ID As Integer) As MyDataset.TBHOTKEY_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) + Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBHOTKEY_PROFILE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_OBJECTTYPE As String, ByVal Original_WD_SEARCH As String, ByVal Original_HOTKEY1 As String, ByVal Original_HOTKEY2 As String, ByVal Original_WINDOW_NAME As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + End If + If (Original_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_OBJECTTYPE,String) + End If + If (Original_WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_WD_SEARCH,String) + End If + If (Original_HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HOTKEY1") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HOTKEY1,String) + End If + If (Original_HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HOTKEY2") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_HOTKEY2,String) + End If + If (Original_WINDOW_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_WINDOW_NAME,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(OBJECTTYPE,String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY1") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) + End If + If (HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY2") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) + End If + If (WINDOW_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("WINDOW_NAME") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(WINDOW_NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal OBJECTTYPE As String, _ + ByVal WD_SEARCH As String, _ + ByVal HOTKEY1 As String, _ + ByVal HOTKEY2 As String, _ + ByVal WINDOW_NAME As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_OBJECTTYPE As String, _ + ByVal Original_WD_SEARCH As String, _ + ByVal Original_HOTKEY1 As String, _ + ByVal Original_HOTKEY2 As String, _ + ByVal Original_WINDOW_NAME As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OBJECTTYPE,String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY1") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) + End If + If (HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY2") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) + End If + If (WINDOW_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("WINDOW_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WINDOW_NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME,String) + End If + If (Original_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_OBJECTTYPE,String) + End If + If (Original_WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_WD_SEARCH,String) + End If + If (Original_HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HOTKEY1") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY1,String) + End If + If (Original_HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HOTKEY2") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HOTKEY2,String) + End If + If (Original_WINDOW_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_WINDOW_NAME,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal OBJECTTYPE As String, _ + ByVal WD_SEARCH As String, _ + ByVal HOTKEY1 As String, _ + ByVal HOTKEY2 As String, _ + ByVal WINDOW_NAME As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_OBJECTTYPE As String, _ + ByVal Original_WD_SEARCH As String, _ + ByVal Original_HOTKEY1 As String, _ + ByVal Original_HOTKEY2 As String, _ + ByVal Original_WINDOW_NAME As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_OBJECTTYPE, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_WINDOW_NAME, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdUpdate(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + command.Parameters(0).Value = CType(NAME,String) + End If + If (OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECTTYPE") + Else + command.Parameters(1).Value = CType(OBJECTTYPE,String) + End If + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + command.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY1") + Else + command.Parameters(3).Value = CType(HOTKEY1,String) + End If + If (HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY2") + Else + command.Parameters(4).Value = CType(HOTKEY2,String) + End If + If (WINDOW_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("WINDOW_NAME") + Else + command.Parameters(5).Value = CType(WINDOW_NAME,String) + End If + If (CHANGED_WHO Is Nothing) Then + command.Parameters(6).Value = Global.System.DBNull.Value + Else + command.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + command.Parameters(7).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBHOTKEY_PATTERNSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBHOTKEY_PATTERNS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") + tableMapping.ColumnMappings.Add("PATTERN_WDSEARCH", "PATTERN_WDSEARCH") + tableMapping.ColumnMappings.Add("WINDOW_CONTROL", "WINDOW_CONTROL") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SEQUENCE_NUMBER", "SEQUENCE_NUMBER") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, PATTERN_WD"& _ + "SEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_I"& _ + "D,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED"& _ + "_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_ID, "& _ + "PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WH"& _ + "O = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO"& _ + " = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ + "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_"& _ + "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = "& _ + "@GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, AD"& _ + "DED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_P"& _ + "ATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (HKPROFILE_ID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_PATTERNSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable = New MyDataset.TBHOTKEY_PATTERNSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal SEQUENCE_NUMBER As Integer) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + If (PATTERN_WDSEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) + End If + If (WINDOW_CONTROL Is Nothing) Then + Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE_NUMBER,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal SEQUENCE_NUMBER As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + If (PATTERN_WDSEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) + End If + If (WINDOW_CONTROL Is Nothing) Then + Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE_NUMBER,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBMYHOTKEYSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBMYHOTKEYS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("String", "String") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS"& _ + " String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUI"& _ + "D IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT HKPROFILE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (USER_ID = @USERID))) AND (T1.USER_ID = @USERID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMYHOTKEYSDataTable, ByVal USERID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USERID As Integer) As MyDataset.TBMYHOTKEYSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) + Dim dataTable As MyDataset.TBMYHOTKEYSDataTable = New MyDataset.TBMYHOTKEYSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBHOTKEY_USER_PROFILETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBHOTKEY_USER_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("HOTKEY1", "HOTKEY1") + tableMapping.ColumnMappings.Add("HOTKEY2", "HOTKEY2") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOT"& _ + "KEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALU"& _ + "ES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_"& _ + "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEAR"& _ + "CH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHO"& _ + "TKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @U"& _ + "SER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [A"& _ + "DDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO"& _ + ", [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFIL"& _ + "E_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEA"& _ + "RCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] ="& _ + " @Original_HOTKEY2) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_"& _ + "WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND"& _ + " ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Origi"& _ + "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ + "([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID"& _ + ", WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ + "FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TBHOTKEY_USER_PROFILE_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, USER_I"& _ + "D, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, @USER_ID AS Expr"& _ + "1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHO"& _ + "TKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @PROFILE_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTK"& _ + "EY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @US"& _ + "ER_ID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) + Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByUser(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal USER_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByUser(ByVal USER_ID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBHOTKEY_USER_PROFILE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY1") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) + End If + If (HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY2") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal HKPROFILE_ID As Integer, _ + ByVal USER_ID As Integer, _ + ByVal WD_SEARCH As String, _ + ByVal HOTKEY1 As String, _ + ByVal HOTKEY2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_HKPROFILE_ID As Integer, _ + ByVal Original_USER_ID As Integer, _ + ByVal Original_WD_SEARCH As String, _ + ByVal Original_HOTKEY1 As String, _ + ByVal Original_HOTKEY2 As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer) + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) + End If + If (HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY1") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) + End If + If (HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("HOTKEY2") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_HKPROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_USER_ID,Integer) + If (Original_WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_WD_SEARCH,String) + End If + If (Original_HOTKEY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HOTKEY1") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_HOTKEY1,String) + End If + If (Original_HOTKEY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HOTKEY2") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY2,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal HKPROFILE_ID As Integer, _ + ByVal USER_ID As Integer, _ + ByVal WD_SEARCH As String, _ + ByVal HOTKEY1 As String, _ + ByVal HOTKEY2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_HKPROFILE_ID As Integer, _ + ByVal Original_USER_ID As Integer, _ + ByVal Original_WD_SEARCH As String, _ + ByVal Original_HOTKEY1 As String, _ + ByVal Original_HOTKEY2 As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_HKPROFILE_ID, Original_USER_ID, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + + _ + Public Overloads Overridable Function cmdInsert(ByVal USER_ID As String, ByVal PROFILE_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (USER_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_ID") + Else + command.Parameters(0).Value = CType(USER_ID,String) + End If + command.Parameters(1).Value = CType(PROFILE_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBHOTKEY_PATTERNS_REWORKTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBHOTKEY_PATTERNS_REWORK" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("HKPATTERN_ID", "HKPATTERN_ID") + tableMapping.ColumnMappings.Add("TYPE", "TYPE") + tableMapping.ColumnMappings.Add("FUNCTION1", "FUNCTION1") + tableMapping.ColumnMappings.Add("FUNCTION2", "FUNCTION2") + tableMapping.ColumnMappings.Add("TEXT1", "TEXT1") + tableMapping.ColumnMappings.Add("TEXT2", "TEXT2") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKP"& _ + "ATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull"& _ + "_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) "& _ + "AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original"& _ + "_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Origina"& _ + "l_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_T"& _ + "EXT2)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_"& _ + "WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @"& _ + "Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) O"& _ + "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ + "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPATTERN_ID, TYP"& _ + "E, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKP"& _ + "ATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDE"& _ + "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE"& _ + " (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPATTERN_ID = @HKPATTE"& _ + "RN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TE"& _ + "XT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WH"& _ + "O = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPATTERN"& _ + "_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUE"& _ + "NCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ + "PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (HKPATTERN_ID = @HKPATTERN_ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable, ByVal HKPATTERN_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal HKPATTERN_ID As Integer) As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + Dim dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable = New MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS_REWORK") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_HKPATTERN_ID As Integer, ByVal Original_TYPE As String, ByVal Original_FUNCTION1 As String, ByVal Original_FUNCTION2 As String, ByVal Original_TEXT1 As String, ByVal Original_TEXT2 As String, ByVal Original_SEQUENCE As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HKPATTERN_ID,Integer) + If (Original_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TYPE,String) + End If + If (Original_FUNCTION1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_FUNCTION1,String) + End If + If (Original_FUNCTION2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FUNCTION2,String) + End If + If (Original_TEXT1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_TEXT1,String) + End If + If (Original_TEXT2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TEXT2,String) + End If + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + If (TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TYPE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYPE,String) + End If + If (FUNCTION1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FUNCTION1,String) + End If + If (FUNCTION2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(FUNCTION2,String) + End If + If (TEXT1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(TEXT1,String) + End If + If (TEXT2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(TEXT2,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE,Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) + If (TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYPE,String) + End If + If (FUNCTION1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FUNCTION1,String) + End If + If (FUNCTION2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FUNCTION2,String) + End If + If (TEXT1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TEXT1,String) + End If + If (TEXT2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TEXT2,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBHOTKEY_WINDOW_HOOKTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBHOTKEY_WINDOW_HOOK" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") + tableMapping.ColumnMappings.Add("SEQUENCE_NUMBER", "SEQUENCE_NUMBER") + tableMapping.ColumnMappings.Add("CONTROL_VALUE", "CONTROL_VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, SEQUENC"& _ + "E_NUMBER, CONTROL_VALUE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_ID,@SEQUENCE_NUMB"& _ + "ER,@CONTROL_VALUE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CON"& _ + "TROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDO"& _ + "W_HOOK WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_I"& _ + "D, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_W"& _ + "HO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFIL"& _ + "E_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDE"& _ + "D_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (HKPROFILE_ID = @ID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable = New MyDataset.TBHOTKEY_WINDOW_HOOKDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + Return Me.Adapter.Update(dataSet, "TBHOTKEY_WINDOW_HOOK") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) + If (CONTROL_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CONTROL_VALUE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) + If (CONTROL_VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CONTROL_VALUE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter + + Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter + + Private _tBDD_EINGANGSARTENTableAdapter As TBDD_EINGANGSARTENTableAdapter + + Private _tBDD_INDEX_MANTableAdapter As TBDD_INDEX_MANTableAdapter + + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter + + Private _tBDD_INDEX_AUTOMTableAdapter As TBDD_INDEX_AUTOMTableAdapter + + Private _tBGI_CONFIGURATIONTableAdapter As TBGI_CONFIGURATIONTableAdapter + + Private _tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter As TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + + Private _tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter As TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter + + Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter + + Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter + + Private _tBHOTKEY_PROFILETableAdapter As TBHOTKEY_PROFILETableAdapter + + Private _tBHOTKEY_PATTERNSTableAdapter As TBHOTKEY_PATTERNSTableAdapter + + Private _tBHOTKEY_USER_PROFILETableAdapter As TBHOTKEY_USER_PROFILETableAdapter + + Private _tBHOTKEY_PATTERNS_REWORKTableAdapter As TBHOTKEY_PATTERNS_REWORKTableAdapter + + Private _tBHOTKEY_WINDOW_HOOKTableAdapter As TBHOTKEY_WINDOW_HOOKTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter + Get + Return Me._tBDD_USERTableAdapter + End Get + Set + Me._tBDD_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_DOKUMENTARTTableAdapter() As TBDD_DOKUMENTARTTableAdapter + Get + Return Me._tBDD_DOKUMENTARTTableAdapter + End Get + Set + Me._tBDD_DOKUMENTARTTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_EINGANGSARTENTableAdapter() As TBDD_EINGANGSARTENTableAdapter + Get + Return Me._tBDD_EINGANGSARTENTableAdapter + End Get + Set + Me._tBDD_EINGANGSARTENTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_MANTableAdapter() As TBDD_INDEX_MANTableAdapter + Get + Return Me._tBDD_INDEX_MANTableAdapter + End Get + Set + Me._tBDD_INDEX_MANTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter + Get + Return Me._tBDD_CONNECTIONTableAdapter + End Get + Set + Me._tBDD_CONNECTIONTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_AUTOMTableAdapter() As TBDD_INDEX_AUTOMTableAdapter + Get + Return Me._tBDD_INDEX_AUTOMTableAdapter + End Get + Set + Me._tBDD_INDEX_AUTOMTableAdapter = value + End Set + End Property + + _ + Public Property TBGI_CONFIGURATIONTableAdapter() As TBGI_CONFIGURATIONTableAdapter + Get + Return Me._tBGI_CONFIGURATIONTableAdapter + End Get + Set + Me._tBGI_CONFIGURATIONTableAdapter = value + End Set + End Property + + _ + Public Property TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter() As TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + Get + Return Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + End Get + Set + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter() As TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter + Get + Return Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter + End Get + Set + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter + Get + Return Me._tBDD_USER_GROUPSTableAdapter + End Get + Set + Me._tBDD_USER_GROUPSTableAdapter = value + End Set + End Property + + _ + Public Property TBDD_GROUPS_USERTableAdapter() As TBDD_GROUPS_USERTableAdapter + Get + Return Me._tBDD_GROUPS_USERTableAdapter + End Get + Set + Me._tBDD_GROUPS_USERTableAdapter = value + End Set + End Property + + _ + Public Property TBHOTKEY_PROFILETableAdapter() As TBHOTKEY_PROFILETableAdapter + Get + Return Me._tBHOTKEY_PROFILETableAdapter + End Get + Set + Me._tBHOTKEY_PROFILETableAdapter = value + End Set + End Property + + _ + Public Property TBHOTKEY_PATTERNSTableAdapter() As TBHOTKEY_PATTERNSTableAdapter + Get + Return Me._tBHOTKEY_PATTERNSTableAdapter + End Get + Set + Me._tBHOTKEY_PATTERNSTableAdapter = value + End Set + End Property + + _ + Public Property TBHOTKEY_USER_PROFILETableAdapter() As TBHOTKEY_USER_PROFILETableAdapter + Get + Return Me._tBHOTKEY_USER_PROFILETableAdapter + End Get + Set + Me._tBHOTKEY_USER_PROFILETableAdapter = value + End Set + End Property + + _ + Public Property TBHOTKEY_PATTERNS_REWORKTableAdapter() As TBHOTKEY_PATTERNS_REWORKTableAdapter + Get + Return Me._tBHOTKEY_PATTERNS_REWORKTableAdapter + End Get + Set + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter = value + End Set + End Property + + _ + Public Property TBHOTKEY_WINDOW_HOOKTableAdapter() As TBHOTKEY_WINDOW_HOOKTableAdapter + Get + Return Me._tBHOTKEY_WINDOW_HOOKTableAdapter + End Get + Set + Me._tBHOTKEY_WINDOW_HOOKTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USERTableAdapter.Connection + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_DOKUMENTARTTableAdapter.Connection + End If + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_EINGANGSARTENTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_EINGANGSARTENTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_MANTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_MANTableAdapter.Connection + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_CONNECTIONTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_AUTOMTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_AUTOMTableAdapter.Connection + End If + If ((Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGI_CONFIGURATIONTableAdapter.Connection) Is Nothing)) Then + Return Me._tBGI_CONFIGURATIONTableAdapter.Connection + End If + If ((Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection) Is Nothing)) Then + Return Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection + End If + If ((Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection + End If + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USER_GROUPSTableAdapter.Connection + End If + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_GROUPS_USERTableAdapter.Connection + End If + If ((Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBHOTKEY_PROFILETableAdapter.Connection) Is Nothing)) Then + Return Me._tBHOTKEY_PROFILETableAdapter.Connection + End If + If ((Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBHOTKEY_PATTERNSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBHOTKEY_PATTERNSTableAdapter.Connection + End If + If ((Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBHOTKEY_USER_PROFILETableAdapter.Connection) Is Nothing)) Then + Return Me._tBHOTKEY_USER_PROFILETableAdapter.Connection + End If + If ((Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection) Is Nothing)) Then + Return Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection + End If + If ((Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection) Is Nothing)) Then + Return Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBHOTKEY_PATTERNSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBHOTKEY_USER_PROFILETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGI_OBJECTTYPE_EMAIL_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS_REWORK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBGI_CONFIGURATIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN_POSTPROCESSING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBHOTKEY_PATTERNSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBHOTKEY_USER_PROFILETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGI_OBJECTTYPE_EMAIL_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS_REWORK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBGI_CONFIGURATIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN_POSTPROCESSING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_WINDOW_HOOK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN_POSTPROCESSING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_CONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGI_CONFIGURATIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS_REWORK.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBGI_OBJECTTYPE_EMAIL_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBHOTKEY_USER_PROFILETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PATTERNS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBHOTKEY_PATTERNSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_MAN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_INDEX_MANTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBHOTKEY_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBHOTKEY_PROFILETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EINGANGSARTENTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_MANTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_AUTOMTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGI_CONFIGURATIONTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPS_USERTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBHOTKEY_PROFILETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBHOTKEY_PATTERNSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBHOTKEY_USER_PROFILETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + If ((Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) + Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_DOKUMENTARTTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_DOKUMENTARTTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_EINGANGSARTENTableAdapter, Me._tBDD_EINGANGSARTENTableAdapter.Connection) + Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EINGANGSARTENTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_EINGANGSARTENTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EINGANGSARTENTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_MANTableAdapter, Me._tBDD_INDEX_MANTableAdapter.Connection) + Me._tBDD_INDEX_MANTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MANTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_MANTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MANTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_AUTOMTableAdapter, Me._tBDD_INDEX_AUTOMTableAdapter.Connection) + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_AUTOMTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_AUTOMTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGI_CONFIGURATIONTableAdapter, Me._tBGI_CONFIGURATIONTableAdapter.Connection) + Me._tBGI_CONFIGURATIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGI_CONFIGURATIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGI_CONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGI_CONFIGURATIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGI_CONFIGURATIONTableAdapter.Adapter) + End If + End If + If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter, Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection) + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter, Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection) + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection) + Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USER_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USER_GROUPSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_GROUPS_USERTableAdapter, Me._tBDD_GROUPS_USERTableAdapter.Connection) + Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPS_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_GROUPS_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPS_USERTableAdapter.Adapter) + End If + End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBHOTKEY_PROFILETableAdapter, Me._tBHOTKEY_PROFILETableAdapter.Connection) + Me._tBHOTKEY_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBHOTKEY_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBHOTKEY_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBHOTKEY_PROFILETableAdapter.Adapter) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBHOTKEY_PATTERNSTableAdapter, Me._tBHOTKEY_PATTERNSTableAdapter.Connection) + Me._tBHOTKEY_PATTERNSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_PATTERNSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBHOTKEY_PATTERNSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBHOTKEY_PATTERNSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBHOTKEY_PATTERNSTableAdapter.Adapter) + End If + End If + If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBHOTKEY_USER_PROFILETableAdapter, Me._tBHOTKEY_USER_PROFILETableAdapter.Connection) + Me._tBHOTKEY_USER_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_USER_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBHOTKEY_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBHOTKEY_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBHOTKEY_USER_PROFILETableAdapter.Adapter) + End If + End If + If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBHOTKEY_PATTERNS_REWORKTableAdapter, Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection) + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Adapter) + End If + End If + If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBHOTKEY_WINDOW_HOOKTableAdapter, Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection) + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Me._tBDD_EINGANGSARTENTableAdapter.Connection = CType(revertConnections(Me._tBDD_EINGANGSARTENTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EINGANGSARTENTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_MANTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_MANTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MANTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MANTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_AUTOMTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_AUTOMTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_AUTOMTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGI_CONFIGURATIONTableAdapter) Is Nothing) Then + Me._tBGI_CONFIGURATIONTableAdapter.Connection = CType(revertConnections(Me._tBGI_CONFIGURATIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGI_CONFIGURATIONTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter) Is Nothing) Then + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection = CType(revertConnections(Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPS_USERTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBHOTKEY_PROFILETableAdapter) Is Nothing) Then + Me._tBHOTKEY_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBHOTKEY_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_PROFILETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBHOTKEY_PATTERNSTableAdapter) Is Nothing) Then + Me._tBHOTKEY_PATTERNSTableAdapter.Connection = CType(revertConnections(Me._tBHOTKEY_PATTERNSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_PATTERNSTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBHOTKEY_USER_PROFILETableAdapter) Is Nothing) Then + Me._tBHOTKEY_USER_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBHOTKEY_USER_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_USER_PROFILETableAdapter.Transaction = Nothing + End If + If (Not (Me._tBHOTKEY_PATTERNS_REWORKTableAdapter) Is Nothing) Then + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Connection = CType(revertConnections(Me._tBHOTKEY_PATTERNS_REWORKTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_PATTERNS_REWORKTableAdapter.Transaction = Nothing + End If + If (Not (Me._tBHOTKEY_WINDOW_HOOKTableAdapter) Is Nothing) Then + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Connection = CType(revertConnections(Me._tBHOTKEY_WINDOW_HOOKTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBHOTKEY_WINDOW_HOOKTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/Global_Indexer/MyDataset.vb b/Global_Indexer/MyDataset.vb new file mode 100644 index 0000000..c478753 --- /dev/null +++ b/Global_Indexer/MyDataset.vb @@ -0,0 +1,4 @@ + + +Partial Public Class MyDataset +End Class diff --git a/Global_Indexer/MyDataset.xsc b/Global_Indexer/MyDataset.xsc new file mode 100644 index 0000000..ed10432 --- /dev/null +++ b/Global_Indexer/MyDataset.xsc @@ -0,0 +1,346 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd new file mode 100644 index 0000000..26716b1 --- /dev/null +++ b/Global_Indexer/MyDataset.xsd @@ -0,0 +1,2980 @@ + + + + + + + + + + + + + + + DELETE FROM TBDD_USER +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_USER + (PRENAME, NAME, USERNAME, EMAIL, GI_ADMIN, ADDED_WHO, MODULE_GI) +VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@GI_ADMIN,@ADDED_WHO, 1); +SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_USER +WHERE (MODULE_GI = 1) + + + + + + UPDATE TBDD_USER +SET PRENAME = @PRENAME, NAME = @NAME, USERNAME = @USERNAME, EMAIL = @EMAIL, GI_ADMIN = @GI_ADMIN, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, GI_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_USER + + + + + + + + + + + + DELETE FROM TBDD_DOKUMENTART +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_DOKUMENTART + (BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, OBJEKTTYP, WINDREAM_DIRECT, FOLDER_FOR_INDEX, SEQUENCE) +VALUES (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@NAMENKONVENTION,@ERSTELLTWER,@OBJEKTTYP,@WINDREAM_DIRECT,@FOLDER_FOR_INDEX,@SEQUENCE); +SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, + OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE +FROM TBDD_DOKUMENTART +ORDER BY SEQUENCE, BEZEICHNUNG + + + + + + UPDATE TBDD_DOKUMENTART +SET BEZEICHNUNG = @BEZEICHNUNG, EINGANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BESCHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, + NAMENKONVENTION = @NAMENKONVENTION, GEANDERTWER = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP, WINDREAM_DIRECT = @WINDREAM_DIRECT, + FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX, SEQUENCE = @SEQUENCE +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP FROM TBDD_DOKUMENTART WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + UPDATE TBDD_DOKUMENTART +SET GEANDERTWER = @GEANDERTWER, + FOLDER_FOR_INDEX = @FOLDER_FOR_INDEX +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, WINDREAM_DIRECT, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, + OBJEKTTYP, FOLDER_FOR_INDEX, SEQUENCE +FROM TBDD_DOKUMENTART +WHERE (GUID IN + (SELECT DOKART_ID + FROM TBDD_DOKUMENTART_MODULE + WHERE (MODULE_ID = 1))) +ORDER BY SEQUENCE, BEZEICHNUNG + + + + + + + + + + + + DELETE FROM TBDD_EINGANGSARTEN +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_EINGANGSARTEN + (BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER) +VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); +SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT TBDD_EINGANGSARTEN.* +FROM TBDD_EINGANGSARTEN + + + + + + UPDATE TBDD_EINGANGSARTEN +SET BEZEICHNUNG = @BEZEICHNUNG, BESCHREIBUNG = @BESCHREIBUNG, GEANDERTWER = @GEANDERTWER +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT T.GUID AS ID, T1.NAME +FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN + TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID +WHERE (T.DOKART_ID = @DOKARTID) + + + + + + + + + + + + + + + + INSERT INTO TBDD_DOKUMENTART_MODULE (DOKART_ID,MODULE_ID,ADDED_WHO) VALUES (@DOKART_ID,@MODUL_EID,@WHO) + + + + + + + + + + + + + + + + SELECT GUID, NAME +FROM TBDD_MODULES + + + + + + + + + + + + + + + + + DELETE FROM TBDD_INDEX_MAN +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_INDEX_MAN + (DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL) +VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL); +SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, + CHANGED_WHEN, OPTIONAL +FROM TBDD_INDEX_MAN +WHERE (DOK_ID = @DOK_ID) + + + + + + + + UPDATE TBDD_INDEX_MAN +SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE, + CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, + OPTIONAL = @OPTIONAL +WHERE (GUID = @Original_GUID); +SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_CONNECTION +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_CONNECTION + (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER) +VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT TBDD_CONNECTION.* +FROM TBDD_CONNECTION + + + + + + UPDATE TBDD_CONNECTION +SET BEZEICHNUNG = @BEZEICHNUNG, SQL_PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @USERNAME, PASSWORD = @PASSWORD, + BEMERKUNG = @BEMERKUNG, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER +WHERE (GUID = @Original_GUID); +SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, INDEXNAME, WD_INDEX, COMMENT, DATATYPE, DOK_ID, DOKUMENTART, KURZNAME, SUGGESTION, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, + PASSWORD, SQL_RESULT, SQL_CHECK, OPTIONAL +FROM VWDDINDEX_MAN +WHERE (DOK_ID = @DokID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT,VALUE +FROM VWDDINDEX_AUTOM +WHERE (DOCTYPE_ID = @DOCTYPE) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_INDEX_AUTOM +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_INDEX_AUTOM + (DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_RESULT, SQL_ACTIVE) +VALUES (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO,@SQL_RESULT,@SQL_ACTIVE); +SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT, SQL_ACTIVE +FROM TBDD_INDEX_AUTOM +WHERE (DOCTYPE_ID = @DOCTYPE_ID) + + + + + + + + UPDATE TBDD_INDEX_AUTOM +SET DOCTYPE_ID = @DOCTYPE_ID, INDEXNAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @COMMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, + SQL_RESULT = @SQL_RESULT, SQL_ACTIVE = @SQL_ACTIVE +WHERE (GUID = @Original_GUID); +SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN +FROM TBGI_CONFIGURATION +WHERE (GUID = 1) + + + + + + UPDATE TBGI_CONFIGURATION +SET GUID = @GUID, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, + IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = 1); +SELECT GUID, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_CONFIGURATION WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBGI_OBJECTTYPE_EMAIL_INDEX +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBGI_OBJECTTYPE_EMAIL_INDEX + (OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, CHANGED_WHO, IDX_CHECK_ATTACHMENT) +VALUES (@OBJECTTYPE,@IDX_EMAIL_ID,@IDX_EMAIL_FROM,@IDX_EMAIL_TO,@IDX_EMAIL_SUBJECT,@IDX_EMAIL_DATE_IN,@ADDED_WHO,@CHANGED_WHO,@IDX_CHECK_ATTACHMENT); +SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, + IDX_CHECK_ATTACHMENT +FROM TBGI_OBJECTTYPE_EMAIL_INDEX +WHERE (OBJECTTYPE = @Objecttype) + + + + + + + + UPDATE TBGI_OBJECTTYPE_EMAIL_INDEX +SET OBJECTTYPE = @OBJECTTYPE, IDX_EMAIL_ID = @IDX_EMAIL_ID, IDX_EMAIL_FROM = @IDX_EMAIL_FROM, IDX_EMAIL_TO = @IDX_EMAIL_TO, IDX_EMAIL_SUBJECT = @IDX_EMAIL_SUBJECT, + IDX_EMAIL_DATE_IN = @IDX_EMAIL_DATE_IN, CHANGED_WHO = @CHANGED_WHO, IDX_CHECK_ATTACHMENT = @IDX_CHECK_ATTACHMENT +WHERE (GUID = @Original_GUID); +SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_SUBJECT, IDX_EMAIL_DATE_IN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING +WHERE (GUID = @GUID) + + + + + + + + INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING + (IDXMAN_ID, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO) +VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEXT3,@SEQUENCE,@ADDED_WHO) + + + + + + + + + + + + + + + + + SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.TYPE, + TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDEX_MAN_POSTPROCESSING.TEXT2, + TBDD_INDEX_MAN_POSTPROCESSING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHO, + TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHEN +FROM TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN + TBDD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID +WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID) + + + + + + + + UPDATE TBDD_INDEX_MAN_POSTPROCESSING +SET IDXMAN_ID = @IDXMAN_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, + SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, NAME +FROM TBDD_INDEX_MAN +WHERE (DOK_ID = @DOK_ID) +ORDER BY NAME + + + + + + + + + + + + + + + + + + + DELETE FROM [TBDD_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + INSERT INTO TBDD_USER_GROUPS + (NAME, ADDED_WHO) +VALUES (@NAME,@ADDED_WHO); +SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_USER_GROUPS + + + + + + UPDATE TBDD_USER_GROUPS +SET NAME = @NAME, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_GROUPS_USER +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_GROUPS_USER + (USER_ID, GROUP_ID, ADDED_WHO) +VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO); +SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_GROUPS_USER +WHERE (USER_ID = @USER_ID) + + + + + + + + UPDATE TBDD_GROUPS_USER +SET USER_ID = @USER_ID, GROUP_ID = @GROUP_ID, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, USER_ID, GROUP_ID, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBDD_GROUPS_USER + (USER_ID, GROUP_ID, ADDED_WHO) +VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO) + + + + + + + + + + + + + + + + SELECT VWGI_USER_GROUPS_RELATION.* +FROM VWGI_USER_GROUPS_RELATION +WHERE (USER_ID = @USER_ID) ORDER BY NAME + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, DOCTYPE_ID, DOCTYPE, GROUP_ID, [GROUP], ADDED_WHO, ADDED_WHEN, CHANGED_WHEN +FROM VWGI_DOCTYPE_GROUP +WHERE (DOCTYPE_ID = @DOCTYPE_ID) +ORDER BY DOCTYPE + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBDD_USRGRP_DOKTYPE +WHERE (GUID = @ID) + + + + + + + + + + INSERT INTO TBDD_USRGRP_DOKTYPE + (DOCTYPE_ID, GROUP_ID, ADDED_WHO) +VALUES (@DOCTYPE_ID,@GROUP_ID,@ADDED_WHO) + + + + + + + + + + + + + + + + DELETE FROM [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBHOTKEY_PROFILE + (NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO) +VALUES (@NAME,@OBJECTTYPE,@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); +SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, + CHANGED_WHEN +FROM TBHOTKEY_PROFILE + + + + + + UPDATE [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + UPDATE TBHOTKEY_PROFILE +SET NAME = @NAME, OBJECTTYPE = @OBJECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_NAME = @WINDOW_NAME, + CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID) + + + + + + + + + + + + + + + + + SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, + CHANGED_WHEN +FROM TBHOTKEY_PROFILE where GUID = @HK_ID + + + + + + + + + + + + + + DELETE FROM TBHOTKEY_PATTERNS +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBHOTKEY_PATTERNS + (HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER) +VALUES (@HKPROFILE_ID,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); +SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER +FROM TBHOTKEY_PATTERNS +WHERE (HKPROFILE_ID = @ID) + + + + + + + + UPDATE TBHOTKEY_PATTERNS +SET HKPROFILE_ID = @HKPROFILE_ID, PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, + CHANGED_WHO = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER +WHERE (GUID = @Original_GUID); +SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS String +FROM TBHOTKEY_PROFILE AS T INNER JOIN + TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID +WHERE (T.GUID IN + (SELECT HKPROFILE_ID + FROM TBHOTKEY_USER_PROFILE + WHERE (USER_ID = @USERID))) AND (T1.USER_ID = @USERID) + + + + + + + + + + + + + + + + + + + DELETE FROM TBHOTKEY_USER_PROFILE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOTKEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBHOTKEY_USER_PROFILE +WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID) + + + + + + + + UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @USER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFILE_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); +SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBHOTKEY_USER_PROFILE + (HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO) +SELECT GUID, @USER_ID AS Expr1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2 +FROM TBHOTKEY_PROFILE +WHERE (GUID = @PROFILE_ID) + + + + + + + + + + + SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTKEY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @USER_ID) + + + + + + + + + + + + + + DELETE FROM [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKPATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Original_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_TEXT2)) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBHOTKEY_PATTERNS_REWORK + (HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO) +VALUES (@HKPATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); +SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBHOTKEY_PATTERNS_REWORK +WHERE (HKPATTERN_ID = @HKPATTERN_ID) + + + + + + + + UPDATE TBHOTKEY_PATTERNS_REWORK +SET HKPATTERN_ID = @HKPATTERN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, + CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBHOTKEY_WINDOW_HOOK +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBHOTKEY_WINDOW_HOOK + (HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO) +VALUES (@HKPROFILE_ID,@SEQUENCE_NUMBER,@CONTROL_VALUE,@ADDED_WHO); +SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBHOTKEY_WINDOW_HOOK +WHERE (HKPROFILE_ID = @ID) + + + + + + + + UPDATE TBHOTKEY_WINDOW_HOOK +SET HKPROFILE_ID = @HKPROFILE_ID, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss new file mode 100644 index 0000000..f670d1a --- /dev/null +++ b/Global_Indexer/MyDataset.xss @@ -0,0 +1,253 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 431 + 344 + + + 397 + 344 + + + + + + + 543 + 386 + + + 543 + 656 + + + + + + + 397 + 618 + + + 668 + 618 + + + + + + + 605 + 656 + + + 605 + 148 + + + 743 + 148 + + + + + + + 959 + 682 + + + 959 + 374 + + + + + + + 1193 + 253 + + + 741 + 253 + + + 741 + 220 + + + + + + + 871 + 247 + + + 871 + 220 + + + + + + + 94 + 0 + + + 94 + -30 + + + 94 + -30 + + + 94 + 0 + + + + + + + 129 + 311 + + + 129 + 86 + + + 221 + 86 + + + + + + + 183 + 25 + + + 221 + 25 + + + + + + + 88 + 311 + + + 88 + -22 + + + 88 + -30 + + + 88 + 178 + + + + + + + 117 + -1 + + + 117 + -22 + + + 117 + -30 + + + 117 + 178 + + + + + + + 765 + 285 + + + 240 + 285 + + + 240 + 268 + + + + + + + 409 + -36 + + + 409 + -66 + + + 425 + -66 + + + 425 + -3 + + + + + \ No newline at end of file diff --git a/Global_Indexer/Resources/Benutzer.ico b/Global_Indexer/Resources/Benutzer.ico new file mode 100644 index 0000000000000000000000000000000000000000..1bdbe59abe56681e9025aa5c371cb8a1a4d3595b GIT binary patch literal 25214 zcmeHv2V9iL*7t!GL6>Sl!NRiG3j!8UqhfDh0~N%Ah>9o(qGERyJ67zm#om=@j0KHr z?21t_iPxwRjT%dgXsk)_eE&1cA{foR@Atd+d*AQ?e!Uii`f-y0oi-WwPx_`K(Zj?z-!7eJ@APJ3SfU7BHZ{s7gCh?;2kzWf2; zo8GTqKVw?`yaB4Aocr}lPfs`I3s8*;iYE+Fno6N2j9zanXz~R)kycU=qZe}0BqhMtiL`0^v}rKA$%o+W=j-e1W#Qt2s!dDNrY5JQd1-XE#-s!o zgA)v5N=>s#8|jU8^;#iMOcZ*Zjjx|@Wa9<@`iOluX_P;>he^~3eSMI7P1LFQ$wpG} zMO37(4`#e33cU`_T#hX3?;D-wWvHKu0)p{X@e4;DD21AuG+~oSlOQP&a$t!BU_h=T zvPnejfQ_G*rCtK$Ax}gAWZ6=$muf*XLNwN(O-%IlLi}%=tBPLuNr*%I62N5Ouh{WY z^eE9h{wSM-IQ*y*&F3%t6XKU5G8u_Sav<>=RFUTOmpX{^^CBBFxhe)z0O98^{s#vmDnWGu?D-#D1ue_EUDSDGB#BF8q3T?V4@2=^zFZv;CNwi|4C6FJBa zjJ3%kO^%JR+iVOu4@RQW@|a2ViP%|0W5j-CiaNg?uHM^{zoIXIftid%1tosi){>q9 zw!xIXwb6~lDE?t9{`1&o|9{Cg?ykE~#Vyi`uw-IRtRoVyxYpLtqeBy3v9_AOi=S zMoK3qM-ZUs^l)mD$iitJrDDJ__~_Cx%6Zu&On21o*4E#r(NSW;2#chtUV5$9ZY@S6 z^w=cwOOPSiOGYRRuND?ER@UEbL& zmFVr~iy?8JcApR2i3y2unyG3iOaeKEweg8@ens>iieDjrIUYRb_Bh|fxI~*oa3F?Y zeB(isGen77gZOOX)NA#gd|%o)<`j>-2Z1IrXUNeh53)(fq0e!XFUDYHOz-iV<2J>Z z$88=ROyu&b;&|))+b7lT-ncRUiROr|{R+*~h^C4Jq?bw$wJ_kvfK`u?;?N(n1dc|y z4O9~EN`s~>XdMv78W8&}40txc-w0#@Z{TJFntYCtcJ2u1fd6zm&uP=T`cfCR$NW<< z?@8;_YRSje2tHENG-Ms;lv00psxHxhCgYW=w@Hkn`e`-Mtm39>YWh&(_(U5^)O%tg zB}|k0Pt204Lf+%hhE(mybSU{z1F$^6pWTd_Hx3p~M(flxl&BA;TVL|GNiZ0-yN$F@ zW3Wg}Ah)EcE;H}K(xna{y5!Qi0PX2P9+-Dx9{f6$<4$;ozrdSA=6t+K}l#8P2;qDlpWobvImCH;p9p5b4Wva+@l3$59vIqydx>P>~)F??Qhj$58g{I6BwLoih71q0jpU(wmeaWb`je>l?XH zMt2|jF2a`{8baxH%3#{tq7)tPT9wj!)S$gxy=k0(MVj2wlkR^yiUxHKpqU-&(B+}c zDY{QD`fgfhifQdle0Uyh>syt6-8X|i4RIlUe1rJ>a^fo+=*Go^G&$UrvVTe?etD1P zjr77;`V{z+4qw?uhOPbS{H@~@x49R!n(Iq3$0BIdnZXpWv;{?P?ngD2RHwp|3zPE< zXL4QSN@eGiC6`1Os=U22dCc{oQc0`qUtGkso7?xW?PtAZf9z}lc`$D6RP(a(bRF&19y{MI>h-Q5chuV0*xK4TRMIU}Fa6fUGK;i|6{5*!#D9M~ZUrd_-CXnVmS!e-S}<3SCG;IbyMzS>_UaZE)}>45PMtcnZy$II0cz??IB0F`oSdCqT)ZpQ zZ&+XN>||F+>!5EF)+02aV`zBq9z7630t5~My|>=Mv5=ipQ5TmoE_%;~4I5T1h5$C8 z5AWSBrfFbAL`1j*KoWt9A&(MTTPH+b#=UHn`Y<(1xHvo6I_g{WjtFkpxJ^)0pFRj7 z0aW}*Kx_E9fiu){_vP`Z6v>-So}+ z_ixv<3CzHb0|rD!^zP9muwM?nRn^KBO6k4rbp;FByZicr-c9e{e?W9_BMX>DL2U-~ zkBkWKV2&P@;O(vVC~*0T{1vRA_pap8q7~=^F(|+^4ep5q0)lgzh%}4L`;U)Y`ZfdR z+?4_z9=hP}Add>JTeogQ{6`1(?H`aQcB|*~@+Hxw^I|eCTOxwsc73D!1~rUH#F&(L zwOL@tJmgvQ;^hmvaOqt7S(x`s z8#iuJX5+>U8@}IR0|(AY0K=wLt5z$sYSpHV>&*!~d-UkR z!zV}f?%lQP3o*NP?M*wS=s~+i89c07WlkUq@UMdhqPU_KT+v9Y;YKpGy3*gfhp>nZ0OXvbh58-M)SImUZTh8+V`l zOu!OZv^daD<=Z{50e^TzcbezzkQ3u3!D3Y0UK-*0-NM5_+rn_#rb#j2Sa_ z%BYd?LlP6?6U^~jJ%5Jif4qME8dCVt`r!*jjsT-Zfqd%J@#DvjjhkQ?n&S-%Dg1c- z+SThn-pIW5$V?9UF=IhKZv6PEV@4(BvZI1M&${*F)$5tJe|>THZ8Y%``}C<($Br2@ zDt_@>e^ZF(M9-yQ@|gIsh<%0x7&0=C_lF+VqjV)b{jU6uhWrO+`+nD2Twll>IdPp3U4SAJ{2l5|m zi*tlmi2oHqLD7h?mqsGvC4K8mldZ`Ve*@*(MiW04Z*9b5kZt*UZB359$u?4c8|kU{ zu#FNPVyH}s{}s6@`wcb9lJt23L;>Inh4QCJ17N?=m~2%}_<64_`&1p^4~QP-?~Fu{ zcb^*I-kv`0Q$OxgKkifi_wQ5xZd~|(^zQ9m?0pGlW_ndurdACfQ2vFasy=7ehW(gF zwHj|DlP6H)wIg<2MT*s|QW(3ZS|K699fLY_=+LfX@E{@3mvAhMJ()}8hBb@Z7IO6K z8Ws@LqenNjPwI&Gl^qIUQ&qaWZ$n?VqPE&P;k{cl>nYoi&YjxJ`zj80MP1x0)Wnvk zoJ*0yb^3H~+NcdSHsM`5tM^o;lym8dRqDZbmo8e&zkg`s#?3>q(Fp4-!C}gmDqY3X z-rl#icbSrvS`TR3#KK}=-vNDk2Xs`gF^*TVx^nrlWx;ag8nhY^-4>gzx^1E&d-cnC zef#Olf1Epi{+n+LSho$0jBfTx+{n0?mfg*-pS^f-;aK{aGiT0z`yD|J5^G4ApOQRy zP^KyP)925gA3G_#gp;Q)DzBAd<`1_v5j^|t$@8xd9X`DO@S#JeHWN+Qun`7}(_!j; z)|1DNjvPq)5^MUjw1beVE%{8DRhyFM2|?DczdZPD@8@6a-o5*aUHiVH_|s1W7u%88n#=1`BBPEU1vK$OcKgah>u}p8ipu{!yNeLE)d78#ivK zxju(3Q|AR!!$*1Im0Jm|Q!(#iu7d^zvih>pH)`6uJ0kt31jX%=jC*7 zBmVgGu>?Mr!2iY)ut27)fucZJpgd3wsPO@K!oM<54sZiX0!~07;GZizLG*7llAbIJ zy@Ad^3@`?m4$S!gX2L%Skl`~H=nZrN`~k_EfQQgJ})??aIHc0fTu!sat$Dq1$%R!8%E|0lL=^e@I|TDtMKftC4sCm+7m*^lpq zG~{2qH{<8wZTV$HJN~^-N9BId&7Z$&s-^j3a%Ic=om?%>A(0ip zSfD*1OaIb<9*}nF3p51+fl#2=-$35C0qOx2fqdn$wx(v=fd+Pbx#%x*K?*khgt z>*wlOH&>@ndUk1co#o2T$^YQHxR@lL4tewSn7GTXW)M^HNB! zsw#Ig@7euO<^xgI@!&f#oU=zoFwQe^_V|9B(YZPwi}YsxHI1*W9LT5IxS8k%A)g3m z&I8Uqsea@!u_Sx1_U5KvH08j4sosB zwYYj}buPcHJeS^Bnu{zf!WPkxsuxAw5lVxo2tZqFYrZ(%%vH5_X)}_x;ytFDsl0`6 z@SL4AfU~DW^PSkXyr+ph|9*8d^Sv+mdB!TmqspJukA%y~!`-f*@FDb(zANf+yTk1` z=x7kvUR|5Lk}9!oWGVJp?!%!cLOJ9_2zNf#nL8fo$N`4~R6ZK*Z^X5~sLh_Kp1FA_ zJgzX4A4%VmRjafi+FV-`d7yzk|J1pzYVWGeNI42G!u!N1&Yn7u-^?1!uct@zo=*z% z-K`^-Z|-2ewG&9?!(Bc2!Qgf#dX;QaHBvnGJk^uSPAxH$ian#BTm;)P&dXdy z8)|8scKT|bTZ{V;rOlXmpEii!%!%VS3x@Ks_B#G%s6X@7O(tAJ9RQccx8=({ z>zMK?;fC~3eO>zW!G?|;zqW<4i2-U)sC087X(+ebF$! z9Mymi2kZFvGmDwOU2VemYng#-b9?ZqPURK73Mb(akMJ+^NdNTy9D5;_+o!fi+o=ZL z?*k8!k8A80=fFX`f_V71!#Vz9JV%|2;@)R^t2{{GkUr6HUqklZ<;_-ut(e?tA(*ZV z|B%6j5-+Wef}{N~_n z#<@llzMju~Vxhvr^+Wh@YZpZ?b(TH0FFzj8j`!3r#D*=MS$LmtWdiFb>Cx^FfbUnp zYv6ZV3*7AUmpqtxmxI#dTG|nI3t)--I?o^31_nC&lXnEtg(qz5VxZ?ipK|l-%*|U zKvO5a8Q+?Z29)Kk{x&>efxqHm1q>i)Lyq_Io z?YR5i?mYJLSXBr8()+RB8b78!n7eAw0I)0VCSSYH$%3qlq(93#McUUwR~w6e1eUa6 z($r#0n;xR2B|8fQMM#fv*NoW4)B*x(ryz{^m)fb|UMsY$$0@wSjo{4uaj9P!s zyDi?=0X71^;Xo8?G#V~YpaA3iA~eXvgjtOjQ+gbY7 z8lXFMrFf*6Rdr5Pjy)aA(|?@KgT5Zb{*yd0-tOmBpQqw^En5v-%hoY653FaeF)Mk_ zh7CMtO<$FVvJ=ZPh0`N&)eUjVTKs+G4sW$@X#o3<@Qrg2Y;A4Lg$fl?d9ctFW}A}D z*`dZnE{emhI77JMQGtTfT{;llwCVp|qx-<@1m+5*)p={`3 z#+hX<8}gOOuggI$9ejXscA2$4bD3Nsr60@&Y62R-f?CCNa~QUdy%xP@pC#FhbJg#K zyb~JF`OnyG@@1w@qklzs*#`vyMS*vXp-(Q$ zkLU|rF6L5x49Zac`hMx`4mw@0<4hH#4ORUTiOAm2fm%j;YU8&le$o9I-JUT7FouA9 z5I=b*G?G8bi}&K!*tg7hiFiH*S_ALSU8khY=yW>9d2q(LaK`y?RR=aMHQ8gpdBrcz z#WT*wbH(A;xYCFpb0O{u30Js$-1l5g@)Gq87pOUf$)QRb(vp2^aSBO_bDx@_cx||j zxzT!NoYQA?`Fs#Rc_%cIH_40Sqxk5<_%ONV5yTY*$R0YcIqBl!qRPB-<;o1zIYThc z@@!@A%EC9!@^j^pH@M2U+g#Ofm#a;@$JLVVbJYnyD|eN#KdJW>hh0_qDCEC@scc{d z5(xvGsYmjP8Vm0#UNMX@zCXa+#@u4tTZmhLA&!Mc@@CFQrP(*|!NS1Xh-(5+8IUp4 zY`(++X;tPppU*x%K8&;aT(@prHFuSZK4#*1(gUtO^$~j}Kj9j)pXI`HMiy6}@{7uk zlJ;)qy?OKIjPE}fXYm=|bf6zp zz?xwh=BfRx3%|npzSp>X>@D`5`j~wezT|qVvQ<80%&RozEptAEp^aBeW7m>O%71F+Kh7_)l_haA1Fbe-_@`wr$Jp+qY+Y zQNSHLc4U0B!uTeIrJgi}UD>u=EElWyC6{P=0`pe}yY;-Bn zU8ew956av{Xg^avS#v{`b(e#$F|J?XDs$7h)P())xgY~={k7sz%3FBGRIchu+*p=y z)mg{6VDxg#D}LJ%TRlMJpzoRpS#P##)r#?r1>-v+4hae2$jC^=`-~Yg80T1c?b@}x zbm>wK4-Z#kt;~C}R+9Nc<_=j$A!3;;-2l@#*JnYKinC6D*K{s2d^5X^|D0>j{hAvr zKFwY;zhZ6dXY4%YFxrUZ>#mx&YA$`v6=vSxlB4&sYvOvWTbH6w>E|L&S!?DUKjF+Z zYos0Fv=fJgg(=?gU6kT~;>3wOfBt;N*>~Q*e?Q}V4o{srRnb^^!SVgbkQe$>-4e;D($r*0H{(J7c`5zp!=SS|nZE_?#URHgKuL z4eT@JbIdh6*fw?*TlAdu3{gb@vX=gkk#=+u-`8+xXedWTMJe8KFr24MnZnbiO;eCM z*tv5jo+NHOpQje;GwCTw8S5CiYD^#w}J};0_xubI6t}+$Z%K z;~PCrIr%eh{q`3=cs+|(ow>!sKR?d_iw|<82|L(f2+F_JK#_aOIy!&3z~dbwc~~QR z0O`BX?(*cxlNkr}RryOE#*Q7!adB~~Uv%r%O|>0_c>(kSL?-#yy+)q}?wSFgX8FxO zu6U39{F*BF!~-`O=QeqH`hDK}!(;yP$|Ih9@COcEdxq=HGh#g3#{~wU?U$_z>tEz2D|0ptaBgW(YvZob&mKE?{F;W+ifXo|D0BIwF zr@$Ft9w2LcsnZYhjhDG5a?u*QxHa5w`?s8Y><+K`<^iuh|3KN27imjTyRLKFHJ8|V z1U}U4GT{)y>H+KAIR3jIA{GQuza?39XYS=GhpwqMzvUmq=*IUffKUEP{3N1g2(j+k*xFo=kfhNqx3#<@v#I{ z37Dk77!;NHux*sqGUW#&ui4HLHzW*Z+bC{x zI?!|*#O)?Ocr@8Yr2!Wo(S(Zuy)y6GX352SY=Z=VKWsx@+nD3dBnzX&YqqmUquhUz zb*7~IhTO7*9~9Cn$PLB*Q)U|2Fdw!>sHFq^0SonnhmYoeatTQ5k^N_JpyYet3_n@J ziM+J{fY$wQGqO&Rbx?CaWJ|r?gYNJXSz`-8_TRFH6`ua}H4cbBVB9*oSj-&kVR?3- zyJZG&>0RI)%c%xME%p~FNS`5&IlyS32T&I%0|+l7!}0(s1D-&QJP@~Z3pv9iJzC08 zneDy>FCS@KT%GX{UGcq;M*Lf^HjMjJOnO(G@xXm3oPjeSa(-oX9sA#+be2Ep3R|Qi zf@wg1K=#GaKq8O?%mjo_GsHa+hyj`b!mp~sH0aoI{|e3t)MVV(!nn`Hbe;ry&g`K* z`EhhRzLeaR&xLt$cK^>Q;?^ zhd%$(lpx04G3xAv@c2tu6aF;Bg>jDxuG-j`&&}xD&La!$ljbiIhwO)#`5Jp_4wi5Nzh}Za@MhV zj5}#eI`HVOsvI^(R8Z#vLXU-MTP|tBLoW^G=x?Gq;!K3%Pk5;NWnFenLHh2r0Le;Qw3PJ4q&0N7 z_-ZiD5J{OQ$1?8L;nNXbCVhC0E}So{;LF2Xa`yB=oISb^|JJV^iyl^VstrGFfV7_~ z;C>wTTjIx~FOOEbec?gQ95meDkR1{nWRKDwko9-25gqqe%}ZXw9YFkg=0LPHPsSZS ze0W9@AD%ghf89Pq>9#M&H)Y%p#JD$z4+OX}?%q*)-N>zdkoKQ|$>1&=#yvSo?~Z$O zIP63id#>=rg)!=kfb3gx`yZaA92`CEEgDX*YPs)==4Bb*jxz3L;R1FEtkK3ZzAJ@3 zH;Zljy(aF3Vca9bxI;z(_sMWU=h0lfX!Dm&R%pNewA6Q* zFAuvgj8kr=uwiXDMyGQ)N6F8 z(lM5ra2_(v4CuMeLpHk~I>+Hmm26Lgek4#GcsG3=(!MXc7LhlLe$l>aG?#>s*9F2} zrJIAGPU+&{#$7v1&izFmB4<7P0Xx~xiH@^c3S{Q5fEy^bSOpEqbw{L-+qdg&o!-Oh-W4n=;Vro^*G2 z=ZY08=E`Hs4ZNsyLQ20fDw8XZzNz#m;ugIN?o47T9dHQ|^rGOg%NwqRP64ub+~K5T z+9KB$;Jzl4o&owR-0{TZ)%q;LL;*5SDg)W?mm=d9IhW{1L|29TnUvn6#;o7i8*+Kv z_rzW)uau5NbULN`7@2hKG7v$ihWvyuqk!@% zansKv(Tm|OC8gWI{V80mc6Y8Z>jitweXZ(K%20G}Qpcjxz}-?9!#kZr@D?Q!Q_q@p z7iJxRS=KLdT9GjeAEI|D61hm);WR+>jb`JHJDOP16&ZOzK!B(xgdBF1>#Jdd63T zj61K`)6-Mw)5zNPI0DQ1!CGV`r6=Ni3}my_XB<@WTdx@h*gfe8#-Vha8_3}DQ_pg_ z@jDsvlY0o$6(|b4Ya*l{^zPkT$&Mv`+{MNCEQW=LapT6RvO#~5I&2L{AF?3GYYIdy zdm{2z+@Ho>AU7ViKa+7M8m~yd$C2w#DtRmJU&Hypo_i6-8^}BU!D@%)!cz`R})+h`%*>ox+&0-$$cguej(8Zz}E=|}SXUI?AQ z2xM9qG+EY0YkWiIkT=ar2rP|S2mBK`g{&D00Wx-&_s1o2+_EPY9{$bHeVl zr0Ngd$GQLFG|=g1jh7T3^+))%D(t8TeuI6{waH!h`MG8MIIa`EIq1qMQ$OLLo$a~* zj_&GgW#^-v*>8^@JCAa{kMR9g`)E9F_Gt7Zd)h$0IkqGJesTfxrO)_IVh4UTG>qph z@4!>OHsIWECU@T1S)CD-eO$?5C9fd7?3L`gl(L9e9nj=)6OV4(w9W_)ZeCoOri`ALQ1Lrq!pCf&^@!H0(vEr3-ka}tj9p)oVK|6M+8n4!}a%Rxdq5H40 zAM>B6!qJtDYYRM)O)VUftTO%md{SeO7RNGx9A@zd!{ER=g zdveCaZS+?!5q2KntJCS8)UI8d%Qqj0b;%3UIi^LwvwK1Y*2CW0t4=xby?GsCUUPUa z#+s|J;|hdt0A21H(P1}f(uC`@=*y*=&t-kY2`=7pEK^DEDL!-0eG{b_~F45DlWm3SrJ=39|l0GK$-1oGnrv;aB--GOi* Z5{Lq-0a#}c&ME)~3SpiQgyE(M{~snmYGD8X literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/CheckOutforEdit_13187_32x.png b/Global_Indexer/Resources/CheckOutforEdit_13187_32x.png new file mode 100644 index 0000000000000000000000000000000000000000..021b95c32d986fd37ab83503eb2fcaf1a95c598d GIT binary patch literal 386 zcmV-|0e$|7P)Px#1ZP1_K>z@;j|==^1poj532;bRa{vGi!vFvd!vV){sAK>D0T)R`K~z{r?UpeP z!Y~X)djpQZ6*xn$z|7oBF|lwJZotUIoS{|MfTOzlHA$UHaV4Z6MWS`&|NN82X`0Ay z97k_8VtPOCti&nrCV;kWeW}4kRe9oXc6MNjw-07*GH;f7&2QEYB3=c{j~ zfz5{IeV<)+_tR{Fr3esf04Qz&Ko^xzSx6pn0OQ309?$pUrj!8iI8SpoE6x=kF1Ka! zhyx@}^EO>TGzzpFA*2H=PVdbCC^anMprD7R zi(^Pd+}+8JTnq{vEY-9B|L-onnf*}rMpsLKhr~A}X6~pk<^}f?c1JgM%;69T$u(B_ uP@>kjym(53b-mh#Gok{P+yDQmWuF(JzkUCb(`G<389ZJ6T-G@yGywn{CNUKN literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/Einstellungen5.ico b/Global_Indexer/Resources/Einstellungen5.ico new file mode 100644 index 0000000000000000000000000000000000000000..a0eee6f6218d1cc88abca1d9d66823dcfe99e95a GIT binary patch literal 2238 zcmZ{m30#b69LIkhnsi&aN@lV)M{6BxTZM^6C?>f^ie0HjW_L)5XlSOgNo_SmqD1MC zqS7H&vO3)NTGvwBhILljSkklqx3bIHedhCj=kq+@-}Aix>wRYc4f+TKpsOyjbb+1# z29ePc#*=aD+)!$_e|>nFoe0cMAlm}WBAXruxWoW+cK~y?V}SZLyeb$b6}<#p)zJL5 z1bXUvXa^hz#8IT(2-7tcm|oP3z%vZaM;OKyF*xpj2F%<9qlCvWPI&=?Z4J=&KL$+Q z0H*_u@UCQ-Q_e8{5QEJ@hH+{2Fp8_iN2#x1LS~rK0ysy&a?`Jve3-$$gkdzDJ2a1B z&;bUc;7ahb8O-*!!63N>`q6iRiK{V&G&Y3{BMKM>lD2;?Lm$%g$ZCWB?$_w5JP(Xp z3QSf~d`W5yfY_uMxv{+(F;$HuNGtOf%bHobU)d z^?h{R`2u>;wSc1nW%n2oZ!m;jWRM(Vm{CS?M4h6%$HF`?A13J(H^qR7YhV+1316LH z@Hoz36|fIjd=OAv16E%G0%_0J>EJ64!+c*Gy3_r-sD1`SLCC3L@TJ^i)j1&KCN;({ zz*_Rz{|w+$1jAIyQS5!dVHNx+CRsJZV$yq34`5yj5O5L*x{983CRUtn7 z7uDG-2ZjsjdG@1cHs}Jq7?ywd9#}d`5%J+_=ZdSB*Q(YxZ`uWi+phgvCu&u-4+ViN zRoJd;dG9O4uR8ea2&Ao0B}pXO?+e6-UXma~9i)i(Q>EG_kw|v^EwJE@631kmD|*uS zN1a5aYPnJULLzzVgUMq~u%*7p`-#ufI@4#W20>#*)AQy|?x0eISy(_^?|ri{_nztf zst3Q<(Rlc%gUdL-!X)C}=WA|ClZ*Ma?c>+F-|k%F1O`8I{Q7yxp&NuF`L{0KuJXNI z#sB4w_RhN`=*?mEnX~84Uy$yPB&u{q>SwIN!(6De>(CP(i*30Fd-*J4Iw~v&tz}H_Eup)5f zDp@;TL)bHzYc?Knsor8=w;@YpGV zf98>4^yYh4e0?RLKz8pH*cDUUb ztFhyRu($sQgEv?p7-IeD(9ebqA7N!>HS+UO??7&UKR#bz*}wnCT?Tw&HPFn=i2Hed zXYfAiZmQR#XRqGq(#Ooqyf3xu`-7*e(N#}ho7&OP$k?RY`>L@d2}8T$+9#{x|N literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/Einstellungen6.ico b/Global_Indexer/Resources/Einstellungen6.ico new file mode 100644 index 0000000000000000000000000000000000000000..66e5fa972a65bf5500cd276e8cdd1af152fa0d7c GIT binary patch literal 1406 zcmeH{&r4KM6vsdJz45(i%5j_~D|4EuX7WebG+F6rmT5$|kdT51f@ot9NuZk;tQi`x zNL*Blgn<^dXj4RxU|5M^*&?G{1VZ5=+O#MM!XUk!H%_(iKM2pe=idAMzH`3!-m^HM zKnW8C;!192?af z8PS9WJ`?B}qhnmtJE>`XqDc%&?1^E>e1yJPIQ5)B_ao@nRNb3{wj0o#gp&`UWk7V# z;LiSlnl3muLHe!axA$QtCm8&sNxsoUd&l7H3l0rywAR#RrwCn}g3Djw>Mz3WemE{?p8pP=A1F(`Ci70y@lv#IeIt5jj+*=P92lC1i$C#S`2yXdm(lny zyn=(0fAs0%+AJ|k75LvPVAx{F$eYnry}#LRY{?PIz^HH7(->~pyH5zUbCij1to{ZRJ^RSu2z>j6#7fM^A~4WtpaXnYnO52Z+fl za`#uVS1z-_$iK!(5&sMS(7AQC9A-@zm)@9i`eVLFrbpmX>K~R}?*FvJP8Y#U2KLZ*U+IBfRsybQWXdwQbLP>6pAqfylh#{fb6;Z(vMMVS~$e@S=j*ftg6;Uhf59&ghTmgWD0l;*T zI709Y^p6lP1rIRMx#05C~cW=H_Aw*bJ-5DT&Z2n+x)QHX^p z00esgV8|mQcmRZ%02D^@S3L16t`O%c004NIvOKvYIYoh62rY33S640`D9%Y2D-rV&neh&#Q1i z007~1e$oCcFS8neI|hJl{-P!B1ZZ9hpmq0)X0i`JwE&>$+E?>%_LC6RbVIkUx0b+_+BaR3cnT7Zv!AJxW zizFb)h!jyGOOZ85F;a?DAXP{m@;!0_IfqH8(HlgRxt7s3}k3K`kFu>>-2Q$QMFfPW!La{h336o>X zu_CMttHv6zR;&ZNiS=X8v3CR#fknUxHUxJ0uoBa_M6WNWeqIg~6QE69c9o#eyhGvpiOA@W-aonk<7r1(?fC{oI5N*U!4 zfg=2N-7=cNnjjOr{yriy6mMFgG#l znCF=fnQv8CDz++o6_Lscl}eQ+l^ZHARH>?_s@|##Rr6KLRFA1%Q+=*RRWnoLsR`7U zt5vFIcfW3@?wFpwUVxrVZ>QdQz32KIeJ}k~{cZZE^+ya? z2D1z#2HOnI7(B%_ac?{wFUQ;QQA1tBKtrWrm0_3Rgps+?Jfqb{jYbcQX~taRB;#$y zZN{S}1|}gUOHJxc?wV3fxuz+mJ4`!F$IZ;mqRrNsHJd##*D~ju=bP7?-?v~|cv>vB zsJ6IeNwVZxrdjT`yl#bBIa#GxRa#xMMy;K#CDyyGyQdMSxlWT#tDe?p!?5wT$+oGt z8L;Kp2HUQ-ZMJ=3XJQv;x5ci*?vuTfeY$;({XGW_huIFR9a(?@3)XSs8O^N5RyOM=TTmp(3=8^+zpz2r)C z^>JO{deZfso3oq3?Wo(Y?l$ge?uXo;%ru`Vo>?<<(8I_>;8Eq#KMS9gFl*neeosSB zfoHYnBQIkwkyowPu(zdms`p{<7e4kra-ZWq<2*OsGTvEV%s0Td$hXT+!*8Bnh2KMe zBmZRodjHV?r+_5^X9J0WL4jKW`}lf%A-|44I@@LTvf1rHjG(ze6+w@Jt%Bvjts!X0 z?2xS?_ve_-kiKB_KiJlZ$9G`c^=E@oNG)mWWaNo-3TIW8)$Hg0Ub-~8?KhvJ>$ z3*&nim@mj(aCxE5!t{lw7O5^0EIO7zOo&c6l<+|iDySBWCGrz@C5{St!X3hAA}`T4 z(TLbXTq+(;@<=L8dXnssyft|w#WSTW<++3>sgS%(4NTpeI-VAqb|7ssJvzNHgOZVu zaYCvgO_R1~>SyL=cFU|~g|hy|Zi}}s9+d~lYqOB71z9Z$wnC=pR9Yz4DhIM>Wmjgu z&56o6maCpC&F##y%G;1PobR9i?GnNg;gYtchD%p19a!eQtZF&3JaKv33gZ<8D~47E ztUS1iwkmDaPpj=$m#%)jCVEY4fnLGNg2A-`YwHVD3gv};>)hAvT~AmqS>Lr``i7kw zJ{5_It`yrBmlc25DBO7E8;5VoznR>Ww5hAaxn$2~(q`%A-YuS64wkBy=9dm`4cXeX z4c}I@?e+FW+b@^RDBHV(wnMq2zdX3SWv9u`%{xC-q*U}&`cyXV(%rRT*Z6MH?i+i& z_B8C(+grT%{XWUQ+f@NoP1R=AW&26{v-dx)iK^-Nmiuj8txj!m?Z*Ss1N{dh4z}01 z)YTo*JycSU)+_5r4#yw9{+;i4Ee$peRgIj+;v;ZGdF1K$3E%e~4LaI(jC-u%2h$&R z9cLXcYC@Xwnns&bn)_Q~Te?roKGD|d-g^8;+aC{{G(1^(O7m37Y1-+6)01cN&y1aw zoqc{T`P^XJqPBbIW6s}d4{z_f5Om?vMgNQEJG?v2T=KYd^0M3I6IZxbny)%vZR&LD zJpPl@Psh8QyPB@KTx+@RdcC!KX7}kEo;S|j^u2lU7XQ}Oo;f|;z4Ll+_r>@1-xl3| zawq-H%e&ckC+@AhPrP6BKT#_XdT7&;F71j}Joy zkC~6lh7E@6o;W@^IpRNZ{ptLtL(gQ-CY~4mqW;US7Zxvm_|@yz&e53Bp_lTPlfP|z zrTyx_>lv@x#=^!PzR7qqF<$gm`|ZJZ+;<)Cqu&ot2z=00004XF*Lt006O$eEU(80000WV@Og>004R=004l4008;_004mL004C` z008P>0026e000+nl3&F}00054Nkl;fWMNi-M>O@0=!5)>pv5wx|)z1`V8i+4F=Auc=~EX;hv zuzTj;-MXsqB@ZWLcsMRYay)kaewU8qD15Gwd};FVG`pvxBQuEu6qly2VO~YW zwvma(`zCLkxXHifsXLgB3UsrjszJP@hs;1#tiKcdNQ;4JEQvj@Qz2^Sf ze7%~`(0aOP+?`_WKr|VTMtAu5V}q5?&#PhfCl`)Fge8sAD84)Bpeg07*qoM6N<$ Ef@ZG+1poj5 literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/KeyDown_8461_12x.png b/Global_Indexer/Resources/KeyDown_8461_12x.png new file mode 100644 index 0000000000000000000000000000000000000000..9ebd4bb40de218f02b9b3c5c4ac334a668259b93 GIT binary patch literal 245 zcmeAS@N?(olHy`uVBq!ia0vp^JRr=$1|-8uW1a&k#^NA%Cx&(BWL^R}Ea{HEjtmSN z`?>!lvI6;>1s;*b3=DjSL74G){)!Z!V3((hV~9p@a)JX>{Jt8)AAf#+{+oY)-(U7b z0cn-CHEiep{rkI{Dd6JoKY#xG_w(~hhzSj4z4Sv)rG4Sc*Votco}RAHuKniqYxZQI zdbUZ2S0$dCW0~M8f3Kb;Sz!0twY=NeCgn8zWPFmh=nq4YvWAPpLgvd1+`0n2rb`@} mPDo8K6w@fb=Kkfy(iow&>&t;ucLK6U7+gkwu literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/Save_6530.png b/Global_Indexer/Resources/Save_6530.png new file mode 100644 index 0000000000000000000000000000000000000000..ba5776cf5523893ca67eb93daa5651c51f612d63 GIT binary patch literal 204 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!9-6N#}Etuj>Cm=q+x{!?h*bBVW}2`xf|nt)WhX}#N0@k$DZ{d#hky6~ zca&Jd5z7r(q{gnuTXv!_A)StQ#6sv;{6Mp0p%miH4%!)LU#@l^D*uu6l5q TVfSvJ6Bs;Q{an^LB{Ts5g(6Pb literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/Shortcut_8169_16x.png b/Global_Indexer/Resources/Shortcut_8169_16x.png new file mode 100644 index 0000000000000000000000000000000000000000..af435748606965880823ee6f7c44af7077be04f8 GIT binary patch literal 218 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`jKx9jP7LeL$-D$|SkfJR9T^xl z_H+M9WCij$3p^r=85sBugD~Uq{1quc!F*2_#}EtuUES2(v1nQzAN$(^l?f^fm?}o0xbB}+#Cq4R(P5JI1l4)|6_1+XY%?1lyA)pNmp00i_ I>zopr0AsB<7ytkO literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/add.png b/Global_Indexer/Resources/add.png new file mode 100644 index 0000000000000000000000000000000000000000..6332fefea4be19eeadf211b0b202b272e8564898 GIT binary patch literal 733 zcmV<30wVp1P)9VHk(~TedF+gQSL8D5xnVSSWAVY>J9b+m>@{iq7_KE}go~11+5s4;8hc+i0Xa zI1j@EX5!S+Me6HNqKzU5YQwL;-W5$p%ZMKMeR<%zp69-~?<4?8|C8S?bklXr4v&Ov zb&06v2|-x?qB`90yn>Qi%Sh2^G4n)$ZdyvTPf9}1)_buUT7>`e2G&2VU@~Bb(o+Mz zi4)>IxlSY${Dj4k={-9RzU^W5g9|2V5RZ2ZulL9s2xQbZ@r6eP9Ra5u(s|C0Nj#&4>wTSkb?%#=9?@ z^oxDy-O@tyN{L@by(WWvQ3%CyEu8x{+#Jb4-h&K9Owi)2pgg+heWDyked|3R$$kL@A z#sp1v-r+=G4B8D6DqsDH0@7OztA7aT9qc1Py{()w`m``?Y0&gi2=ROcc-9+nU^I6< zT=e_Y=vSnG@?3Ue{BW5ONFttcE!R-R_W4O01|0-|K-YNXLo2`4Qv z`r1LxR6#yf3FB%T95gJnaKKivA~Z}S9A(ZxEDK}O3T04USJ P00000NkvXXu0mjf^IS-S literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/arrow_Forward_16xMD.png b/Global_Indexer/Resources/arrow_Forward_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..42cc661f43a787d17b1619aaa724d6d21cef85c8 GIT binary patch literal 397 zcmV;80doF{P)8WR0Joq^B1$5Wq(Gu_TnCwyK7q?% zkv^Tf1Rnr}blidixVKxf4+%8OmW(tSyz~B_(aP)eeXo|pEyZ!13AkRbce-qK#xwS$ z^WeJf-^eoj20(~E&gXMe6h)jQiHf3VNWM9vr_~wkB zX4VWc3|L#cuXnqh5ZXZxMzc8@xxw~$JX+%HEmJ?=71c0-MKfL^5w~q?O)Njlq2Av= z7{6ijJddTpG@Xf7m?p5|5|@PB!1KJp`T6C^05-216-AG#X?~eLvepKtAPA`QOSHrU zEE;KWNYfN&>k`>WieX^UOa}ZtSF2UA-|sCGLW*Hv(Z~%jdG~$4D9ciXVF+vpIim*y rtK@?qFj4&(SwoN#n1U4$WO$#0dplM00000NkvXXu0mjfYE7&f literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/arrow_Up_16xLG.png b/Global_Indexer/Resources/arrow_Up_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..09b45f73579517de099c5c03683ba5826b2f36ea GIT binary patch literal 230 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP;iE) zi(^Pd+|tP#d7Tw`Tn;Wu(qr>9OAs;Ra1JmM*PR$BB>Zwm{GZ7>Iv=V{9z37(&hHRk z#ryvahR3|GOFS-a|K`n_#aoxL_Mbpvf#%Un!%l-8-`BaS9(v$EfrXoaN7d&;bFf$T z)_dnV4m8a9JpFo|XTTxRJ>CIN3?dHZxC%KofBU4ftNqBK1f_#b!e`Q$n4_}aX>H&C ZS=xjxVQ29F#~}AJc)I$ztaD0e0ssf^Ri6L= literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/arrow_back_16xMD.png b/Global_Indexer/Resources/arrow_back_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..e6bd9fe0a261416c5a2e9fce46c156771acb0a55 GIT binary patch literal 391 zcmV;20eJq2P)8lW)@!%0dh+O`$bG+7AWSVNDP z12(b-W^8gllx4|;ZlDK-*b_8-f@59RE3tf&;^(_TbxgoQ!ws^&?^oje{z-J*uh5^` znFK5}V0YY^ixH?u9xt!YmNgS>2sS|w1aLMZ-#r3j9fM08#~FSVf|;N=Cd6Jf{0Qfw zD7Z63IIklH0~Q)q$gGR5;6H z{Qv(y10{fofkH6I3@AO3$p*x`Nil#0jeqs;pT9Ds7{CaN1)$9r#n~kE{`~pF@bLXZ zhF?E_GyM7i!oL`P0x_8Wj$ni2F7#hzWPxfvDaI`!iy8(2_#ButL^3%VaH2WCpD^U)OZxp@C)2#hU)y+@T%ZNzJigNk%37 zz-WYJwT%teVfiEI+B*@v4ey@58(ld4VY_&5-ox`e@AKg+0U-I`y79bmuw_~y6+4rZ zBG5EdFDS+@M0OSE`>d7SUDOzKZ&h*4eB1iX7tOd9RiYtW2mQ--bUahxr1`i{RG@dM zL#}_X=DDO1{;UI$pFu=dLYT_=5d8WC-sLfjr7UO-HKMAwa=!>)kEhvuwre zuW3yF@ZxFCkI*+ad|5kOX%5zu8IQjhan)UqgSrFGA_0nQFn@Z08DSEUToCSz4Z1ls z&fDbq$T&7|6iq$_uDI$@q1_kQ@dfqk*0>{SDL6V)94@)ete)j++*>bIc9sj}Y;R1o z#OpH+Yt-^4wfv{nern^iVag8o>#A+qW*AYQLZl(!&BX$x7Ik;qO170ssEM z@$bKXf%rGW?|(r27bf-TSv zD}TdX0CM*JhkLO)8|Y^+n~Q^sK~hqR;q|N647YFGy>NTZJsWr!5CaSfwJm@a><8NX v2&h?|3@?;{2!fhnpdDVjACjRc9&&}_7G!fzd+)6QD z^js-e&7gSabE~uFe+JIvM-+_c8dsFa%V9nCP%1n`ZFBWufExnUQvL%p9uS{|rz9GS zB=!3FwxC?C>qzOkK(&;gR>D#|QwS&aKZYg&_8%qOwV#PcJgvI6HTU@27vKC>pjyg5 zVT6Z2i;vBcNZ*ECKSi+9#%s3_ElPTFnA)FPPXm7ks-=7e_$ZRT{odHfEPaN9effQq zW20OLJrYKI8_Xd_qvq6Z&b%<6pVke&3Vg;>lTT^MiAQiZzQDS&h_Y?`o`b#JCDbqU zn}P&_Wh=D@_>P=RPan#}M~@IVD|pQl=-xKsxpX!xyd4*>=V2x_FicdS*xpgCJ;1Z% zU}!Lnv(sSt+amq_iav=F0^*52YHJpT2!?3rgE!Obba7nyeizW~Yihn(`4!)H85o$N zUWwCe4REQpPWM`msav9$x?;29@%x8Av2x-&5=)J{%lDhF0%#(_;(G_aiDgoUr|vky zm#2ypjy{XM)#itCk(AM4$T#V(k1%u3lZ0}&VlS0Bx3~~oU9P;S?N)i=_<{5BeaRWr z45Qhb7|$iBpR4fsr$r84b-3&3aU!c{q46~&lC;e%Kb99S?!EE8W7Yhbx!mc&#PaNg z&CC3;Fd1+0$2@+uAOdTadTmC3hI^7`n$7^#kr*Hlal`IvegYu)Ek%Lu%lyrJD_ z&L6*!HC#uIc^=OXI}#n(XlWr&!hsYz&dqT~oxC<;gIOR^S%DIiX_Scdk}vgKP!L@}D(FJ>QuL4&2|W}( z1Vs^zWETnXMvxi>si`B5la80k%W*t&&OT@Fwt_;DMf+txto41Yz1Cg=V+{Xu`h8v> zQCXQ3(tSn82CHKJ3B2^WDBuzWj8eu<8AZ#!B%=d?AA|cB<9`+S8@=}-U@y~PBb1pf zCc7Byn_{4l)IMat;ah%nGRC*N{eAKxG+Pl#6B;5Ff`7 z7sJ4G21%xLMW89{o-?n|ZA~eMuJnV1?m{H9U_`}SSOSTtAW?!^vmFtQ;C!r(*$5q9 z5fF*x$0s_WM82c9!-u#yidbewJP%rJu?UPwFz~+;HLA#PuE*JtE>vi&b6FtD^Ryw< z^97owA|W9c!5%9@;|aK}#pCLvfCqLPYAw8Z_B`aL6(KX(i-+!LWyuYPc~KxN{=}AB zo_32nX?yP0ax~TXPTPsK_n%npu_(Toq=W=)l|pQ6pBy! zcf7ss=~I+f>)hUaga*gJgG=ymnD>Qh&?o`X3FZ_Dg_*^eCkx_-q1Ldt{Fc%hzjtD2 z`gvrg7X#gGTo8rEN0VyJLYg%jZkvaX)&!R&9bF@BXd7&uTu`xD_>9nsz6z^tMQy zJJHemUXnn!aJX-!iL0IZ6WIn;VKs!{_|5d7OJSl=IGs@P;?7*la?VfOO=or#Hn2Yc O0000C#5QQ<|d}62BjvZR2H60wE-%s@N{tu(Kvs0!a}YF0}=J!QSUY7M7z;-RJ$7n8*6-IkwdUVS%nn(+HZ=IM>KhySVgJojLZytKsQlJks9 zg>q@PUpbdv;&|+P!{NQ{65)mBh3B(*yP58!PISKz-O48F^~6K0e}RJHfr*NaZ|Z(M akrr=d7xdAvd!`9=1B0ilpUXO@geCyB6I2-h literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/database_connect.png b/Global_Indexer/Resources/database_connect.png new file mode 100644 index 0000000000000000000000000000000000000000..3a111977cd9dcd631ce1de85d5ce82b9ed477c27 GIT binary patch literal 763 zcmV-F$IpKw}ImgOJ; z7f9UkeLqXqGzqfxt7QF3)<-1d`T2Q|JMMspFO%GpXf%2y9*-j&4kHu_f!^zMI#5*= zjYb2lR%?Ug7ES=x*VkWXGMU+li3xBVcdBjIby2NWQLEKf0>=*tFc*u({#ko6nFJ|g z?nDoqo*3BN+=QlS$mjD227?eqk(Hq9I@;|vn$0FssT2kLZQ|-id%$+QRo569<9qv% zBnjnm8M$1JiK%TxQD9jX1VLcAK49g|FTrt~4?&Sj3z0ZJ?)<=HM1kjdtcg@W0W=PK zM#c1;^}sOgal>-cAqn6)AN*Jv@9IG$QdhCIwua^9WsnCLfUZ<{=zsybx}CIan}V?0 z(jf9aq{ui*&$pQ6>FH?{i$&Pv&LM~b`VLgXi0VYFk?86scD^Y%BLayFDZKrnV|#lW zi9~`4jsobO0XnL2(RM88rUON{plT*+du<%376#5=!^`(R3b$_eU!?$QpE}}O=L(Xl zTXHla@d^=2JO_a%GalgJ`5qcOEzISoaA`8ae&guqD6-iso5p&*t_ugM(H#y2M2}E4 z!@_QpjO%X=M%RSdwJ?@atIWY8Xx%dePiIz*;vQsHA#%EP6lrG0Mp{)++EaGtq_b;C96!L6rv t?W2=fDwT$aV2XrKn)Z2danU+@{s+9Sw^uGDfpq`?002ovPDHLkV1o6HVQ&Bc literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/database_go.png b/Global_Indexer/Resources/database_go.png new file mode 100644 index 0000000000000000000000000000000000000000..61a8556c403a1b56cb7719f4916d07ed82cd55ff GIT binary patch literal 698 zcmV;r0!96aP)U4c>+hFP*|&0tGt{!YG|5fRw@-UpUxK})gOY{KjH!sGG4?RHzSe!mY<6j86&kw_%0+>rt+UvTG zPNxG!QLHl_`>TN6lhf(69Pnfg>e~`ot!6OL_K}%<0mC@>2*2;ZcEFQ4iGwF{@R*{j z7!M|qd3hZgQye2(un7;}EWl(MRHj3v{mH--l93DO%KKRTaX^3MX`58z^<+{ z6<23&!!Q{PW`ItyBW>gC_$Bnz0p8cvrP&8U;E(_Zug)QpWlpZPzmjE&ksHm>&{4WL zcWMqjtuMUYDzy&;xOM)i=ubqW(I5dCx}hU{e1gb^CAKTo5EzT#!}bO?zL#36j`?8+ z3*~b8c`}*w$6_%IbOkHrWx4~^auW|u<6?Xs@2VxNZ5G?Ij>|hs<|oJSYs}?xlO%MH zkQM~t1b+*>9q#P0c*i_HG3Qv{e6_1E^9qr_9C}QDj%+r2jL4@6j4t)_BWY1InA104 gM*QcJxn<}50%n)c1HutrKL7v#07*qoM6N<$f)5Qpt^fc4 literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/database_refresh.png b/Global_Indexer/Resources/database_refresh.png new file mode 100644 index 0000000000000000000000000000000000000000..ff803be124ac5f1bd747490d2243f876eebdf5f6 GIT binary patch literal 770 zcmV+d1O5DoP)L1E-$)@F1-w)3&R|k zpe8{Z8<~c8GL+Q$?>DkG77MrB>ib*oIq``rr5B#_9^P}_=lwfJ$Ye4I1OislR|zeK zVbqYWCeYUSM0$zz3qqi|xmm|wBKZCO<8;X*Nm5-|Ss83L8wv^vz=$_CHjqpv5e|nD zi^V>Y?WWu9Ue99i`F!tXS!UrfyNRl*nP4!OdF<_2YxlP1Fme+XT27Rfmg0ZnbUKmN zQchLT0^98(MdnP?)6=lq?HnZ~C0I!=;+^~kYsqD3nhs6X;Vdi{?VA1UEzfmtU&~-q z7JwZi{gIM{t3{_E4UR1%)L*WJg$bH{MmVw30fE`e?I2IEj?l`hAghYH3 zt$W+>w6P28pTBBza%f!nsWhE`b~-<+1YOrT3B$cZ4>?gZ8b$I)lH1swJjJS$^EqF~ zm_fejtPITPCdn3|s^RUIA%3SpXiSi^{?8N`Oh=PY(SA|m3=BsGkWx0eT~QP?b~cPr zKhDrN8M!R7Nbz_a^b+|5(&_XcW=k#xvLap&a?YNRF|tvD>5s;|fF{5;0S zC%l5k;M1&07*qoM6N<$f3^_07cLZBR}_>&jXObH zw2it@svr%qE?kJ(Xuudu+DSW|WWK!jNvbU^UO02#+Tt zYOko4%Vx8c4Gh!M(=Qem7g;XcE?n0Qi^XD?&*vX7@xPFCIh;%;@xMr?(;$(vo9j9i z6;riZMJyIWG#Z6r7^-I5HtO{{DwPWQ`}>&y+Y;!yjz*&a$8prX=XtO!3$0d5J>%Mz z1f8>Jnx-7^X2#7Yb#zC2VYfZ>c17@L{s)8{OuWBa3WHFfVXfhLv2t?V0V~q5R2D*D z&315l_#iF}b>Zoo?-;+7*`WOJWsMw(x3WXv`@U*s@Y-&edFEYpz0skP)dFfu zZ4wIp&Vbb!+|0+3Qa}p<*AH-eY>3q8s6?RA)zqP8W39IT5HLFG9m1F);gE|P`L7@@ zctjKsn1rA6!ZZR%R^(SjU!r=2o$yGp<$KViK~{B;AIcgvN+J+&Nvur+W(Sw&=H?z} zGMRW^U!Nl3AvWzQ3~C%Z*G*(?qLfNCq;tpg2yRW4@yl9;p3CK)O-@c8Sy))OUMiKc zQp#QYFZe-*@LZDInR^#F=Bm=!vA2i6tkEJ#i0aggzp2D%3!>h~r~3uLt(-IMoyFA3^_07cLZBR}_>&jXObH zw2it@svr%qE?kJ(Xuudu+DSW|WWK!jNvbU^UO02#+Tt zYOko4%Vx8c4Gh!M(=Qem7g;XcE?n0Qi^XD?&*vX7@xPFCIh;%;@xMr?(;$(vo9j9i z6;riZMJyIWG#Z6r7^-I5HtO{{DwPWQ`}>&y+Y;!yjz*&a$8prX=XtO!3$0d5J>%Mz z1f8>Jnx-7^X2#7Yb#zC2VYfZ>c17@L{s)8{OuWBa3WHFfVXfhLv2t?V0V~q5R2D*D z&315l_#iF}b>Zoo?-;+7*`WOJWsMw(x3WXv`@U*s@Y-&edFEYpz0skP)dFfu zZ4wIp&Vbb!+|0+3Qa}p<*AH-eY>3q8s6?RA)zqP8W39IT5HLFG9m1F);gE|P`L7@@ zctjKsn1rA6!ZZR%R^(SjU!r=2o$yGp<$KViK~{B;AIcgvN+J+&Nvur+W(Sw&=H?z} zGMRW^U!Nl3AvWzQ3~C%Z*G*(?qLfNCq;tpg2yRW4@yl9;p3CK)O-@c8Sy))OUMiKc zQp#QYFZe-*@LZDInR^#F=Bm=!vA2i6tkEJ#i0aggzp2D%3!>h~r~3uLt(-IMoyFA3^_07cLZBR}_>&jXObH zw2it@svr%qE?kJ(Xuudu+DSW|WWK!jNvbU^UO02#+Tt zYOko4%Vx8c4Gh!M(=Qem7g;XcE?n0Qi^XD?&*vX7@xPFCIh;%;@xMr?(;$(vo9j9i z6;riZMJyIWG#Z6r7^-I5HtO{{DwPWQ`}>&y+Y;!yjz*&a$8prX=XtO!3$0d5J>%Mz z1f8>Jnx-7^X2#7Yb#zC2VYfZ>c17@L{s)8{OuWBa3WHFfVXfhLv2t?V0V~q5R2D*D z&315l_#iF}b>Zoo?-;+7*`WOJWsMw(x3WXv`@U*s@Y-&edFEYpz0skP)dFfu zZ4wIp&Vbb!+|0+3Qa}p<*AH-eY>3q8s6?RA)zqP8W39IT5HLFG9m1F);gE|P`L7@@ zctjKsn1rA6!ZZR%R^(SjU!r=2o$yGp<$KViK~{B;AIcgvN+J+&Nvur+W(Sw&=H?z} zGMRW^U!Nl3AvWzQ3~C%Z*G*(?qLfNCq;tpg2yRW4@yl9;p3CK)O-@c8Sy))OUMiKc zQp#QYFZe-*@LZDInR^#F=Bm=!vA2i6tkEJ#i0aggzp2D%3!>h~r~3uLt(-IMoyFAd8QGpywbnWKQmxqsjZd2a$wok6^}aA*6#$*Q%=GsRH6QKpu@tDbXLmt@X&n z^882~Nsf6>fosLeJ>b}omDR9GGhTu?;;EOQo~EqJrYUaKop1CrY|NKBpAf~_4bg2p yFy2{zfWjYv|G;jzP)KLZ*U+IBfRsybQWXdwQbLP>6pAqfylh#{fb6;Z(vMMVS~$e@S=j*ftg6;Uhf59&ghTmgWD0l;*T zI709Y^p6lP1rIRMx#05C~cW=H_Aw*bJ-5DT&Z2n+x)QHX^p z00esgV8|mQcmRZ%02D^@S3L16t`O%c004NIvOKvYIYoh62rY33S640`D9%Y2D-rV&neh&#Q1i z007~1e$oCcFS8neI|hJl{-P!B1ZZ9hpmq0)X0i`JwE&>$+E?>%_LC6RbVIkUx0b+_+BaR3cnT7Zv!AJxW zizFb)h!jyGOOZ85F;a?DAXP{m@;!0_IfqH8(HlgRxt7s3}k3K`kFu>>-2Q$QMFfPW!La{h336o>X zu_CMttHv6zR;&ZNiS=X8v3CR#fknUxHUxJ0uoBa_M6WNWeqIg~6QE69c9o#eyhGvpiOA@W-aonk<7r1(?fC{oI5N*U!4 zfg=2N-7=cNnjjOr{yriy6mMFgG#l znCF=fnQv8CDz++o6_Lscl}eQ+l^ZHARH>?_s@|##Rr6KLRFA1%Q+=*RRWnoLsR`7U zt5vFIcfW3@?wFpwUVxrVZ>QdQz32KIeJ}k~{cZZE^+ya? z2D1z#2HOnI7(B%_ac?{wFUQ;QQA1tBKtrWrm0_3Rgps+?Jfqb{jYbcQX~taRB;#$y zZN{S}1|}gUOHJxc?wV3fxuz+mJ4`!F$IZ;mqRrNsHJd##*D~ju=bP7?-?v~|cv>vB zsJ6IeNwVZxrdjT`yl#bBIa#GxRa#xMMy;K#CDyyGyQdMSxlWT#tDe?p!?5wT$+oGt z8L;Kp2HUQ-ZMJ=3XJQv;x5ci*?vuTfeY$;({XGW_huIFR9a(?@3)XSs8O^N5RyOM=TTmp(3=8^+zpz2r)C z^>JO{deZfso3oq3?Wo(Y?l$ge?uXo;%ru`Vo>?<<(8I_>;8Eq#KMS9gFl*neeosSB zfoHYnBQIkwkyowPu(zdms`p{<7e4kra-ZWq<2*OsGTvEV%s0Td$hXT+!*8Bnh2KMe zBmZRodjHV?r+_5^X9J0WL4jKW`}lf%A-|44I@@LTvf1rHjG(ze6+w@Jt%Bvjts!X0 z?2xS?_ve_-kiKB_KiJlZ$9G`c^=E@oNG)mWWaNo-3TIW8)$Hg0Ub-~8?KhvJ>$ z3*&nim@mj(aCxE5!t{lw7O5^0EIO7zOo&c6l<+|iDySBWCGrz@C5{St!X3hAA}`T4 z(TLbXTq+(;@<=L8dXnssyft|w#WSTW<++3>sgS%(4NTpeI-VAqb|7ssJvzNHgOZVu zaYCvgO_R1~>SyL=cFU|~g|hy|Zi}}s9+d~lYqOB71z9Z$wnC=pR9Yz4DhIM>Wmjgu z&56o6maCpC&F##y%G;1PobR9i?GnNg;gYtchD%p19a!eQtZF&3JaKv33gZ<8D~47E ztUS1iwkmDaPpj=$m#%)jCVEY4fnLGNg2A-`YwHVD3gv};>)hAvT~AmqS>Lr``i7kw zJ{5_It`yrBmlc25DBO7E8;5VoznR>Ww5hAaxn$2~(q`%A-YuS64wkBy=9dm`4cXeX z4c}I@?e+FW+b@^RDBHV(wnMq2zdX3SWv9u`%{xC-q*U}&`cyXV(%rRT*Z6MH?i+i& z_B8C(+grT%{XWUQ+f@NoP1R=AW&26{v-dx)iK^-Nmiuj8txj!m?Z*Ss1N{dh4z}01 z)YTo*JycSU)+_5r4#yw9{+;i4Ee$peRgIj+;v;ZGdF1K$3E%e~4LaI(jC-u%2h$&R z9cLXcYC@Xwnns&bn)_Q~Te?roKGD|d-g^8;+aC{{G(1^(O7m37Y1-+6)01cN&y1aw zoqc{T`P^XJqPBbIW6s}d4{z_f5Om?vMgNQEJG?v2T=KYd^0M3I6IZxbny)%vZR&LD zJpPl@Psh8QyPB@KTx+@RdcC!KX7}kEo;S|j^u2lU7XQ}Oo;f|;z4Ll+_r>@1-xl3| zawq-H%e&ckC+@AhPrP6BKT#_XdT7&;F71j}Joy zkC~6lh7E@6o;W@^IpRNZ{ptLtL(gQ-CY~4mqW;US7Zxvm_|@yz&e53Bp_lTPlfP|z zrTyx_>lv@x#=^!PzR7qqF<$gm`|ZJZ+;<)Cqu&ot2z=0000WV@Og>004R=004l4008;_004mL004C`008P>0026e000+nl3&F} z0006ZNklzB;qk8Bx9^@bNO?vkRK7JGnaty|G#P<+?D_MV6r{HfBw?<$PEU*Zk`tR)4T zY*rlcRYC;(^|;c~f@Yf;FJj*zLw)1bi!=TONSssczC6i@0Km*(2Iz7i05z9~rZbus z<2`FEV{~iY8q+Dl`z;_F1aS({qkKoQr!1FnllzG{WX9AFaXP62N+`|0ZQrV zo%TZjmStgp1M=o@2jqpAy8I?o>9kqfiubC!((?tpFE%{$#$!Sg(2!Kx~u0HO=N z?<))5ib5+uI@*B};(#~?=D@>sUF0~9l3?A`sBK%Vf5RMh58wdl*n5y16P=roUqnL4 nbc;y(IZhPjU0?tVfB|>`rG-;BPZc0f00000NkvXXu0mjfjX8(K literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/folder_go.png b/Global_Indexer/Resources/folder_go.png new file mode 100644 index 0000000000000000000000000000000000000000..34a736f70261338c9bca98c38b78193740fa83a0 GIT binary patch literal 694 zcmV;n0!jUeP)N@Zw27r|iugjyK_i?%mf=ZN1k*q&Uedp~2B7g_+fS`hk+Nr1A{hI)z0`VHB6Nndl zX$Di6C%-U4JXr@~z-vS-U`e(1B@n-FV+JTmdRsylL39C=TOrljOR~Cct>JYCvg#mK z1ulqf0!%<`#~!NMu5Ba=9u&fmP-Zhc6E?!yaAE01t20W#1|(JmqlC- zu^GHsMqCzbhR}vI*0gbTWQ<2wA~0LlNQ8*Dc(aJuEaI~Cy?zX0(B7i0rEb>&+G>xJ z3k&o-xX8WohAjXsqHu`)jo1ugGgz-V-_eT`kMj#kXL{&TC&D=t zDS)urCatsVt!&16hZE0Sc81**wR}pC@@4w{a?#MB{`E|khgw{yHQH-JtJz=E5u9kb zz}UaL6K`V-vR#JLK(X*jEKVNlbHxH0QOXN4CTjfvGt40I|M#Ku+)Yiq8d z;L28c;TGg(*&-*FfRgVFU3!q0bKn5y+w&YMOEeLrM3go2};w-m?^(jqeZAz2= zL*$E|+nBzw5`1~&d{HnejR`pp>Gc7meprxN9t68G0wK!~R}w-lLD(()XLo=+p9zi1 z=86KRES~3g$*>K{#fON0>%{i-Rcw831>-k@nY{~UrUN@)b%g6=XPXGQk0pwNVJV+w zqhRK2*zxsX)1w8u`H8F=|Ghf>#)>;2#|sV1xT0X_I4_<*pC+(CE+r1;*Z|TI8@M$i z*d-lO3zv}$G$5CpN9eh9kKmasBji}*;vbP^#=-v_K_>cy4EBLtz6Ex%6{+9_B)^|S z!hagM#0)}%dj*eV={z3?zdeTC)u(vt>V&z^2#3Rg-flhS-!~vKtwevfR?M0Edok2? zHY=CQ4-^D8DJSp@k{b>@wzk4zu^<|aA{-9Gfx%$lO768pBDvDi(!x+d zeSQ6SO-&82P$*DWS0_Sanxi!;puHu6!{kw^RP$!DnQ=Ou+itfTcDo&IZEa|8Zx>^l zqcz$?drJi6<>mXTtE;POYipO9nwpXtjfNv+)M|Aj;S`DEG)HT+hxYyg@Y?10VPWjL P00000NkvXXu0mjfBPD6B literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/gear_32xLG.png b/Global_Indexer/Resources/gear_32xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..eb7b43cd2a5807b88075375db79a8ea594b5481b GIT binary patch literal 870 zcmV-s1DX7ZP)y>_zLSHy=Irp6N-h0k> zPHs|?5SN#iPeh~@*j}5NnfWLQke1{qC*Mnc0B)L(WYN*x5|I_wl}bgHmzNRN0@%aG z@mVBRk^|rb$q-NF}K8B$D$;@;f^_((m`h zVrgkf>h-$Xf$UYjk+gerB|kVgAiV5B5iAK z$q~R!Yqc7|p6q{r+nP3*!+jzPmpFe$(Z(k1)*67#^-Cp-5 z!7gBcn0}X1sU$AuvUBqO-3KWa@5}7$tSDHcV-FhxFBTkjSfx1yU}TDS_+TiKI&gT6V%|3qfvCc~G(Ba(w(#wzgg)tZg>16$4^vE4vf3 zMFxKBZ0GbLP-lWG`S#mwvDkdIDGLktGz;?R@k0rLIPG@Zc7Yi3pp)Ovz}H=+Oi6!^ z{Q%QKI_askTrQZNiL+@BKusEr20iN?M(eJi*3^9d&OB|W^>=K2Qewja*Uf1|CQ~G< zB66EI9n%WKLZKiA1f=C4_$N6w*cuQ^$tQ5Y1t;A0$LQRS$-!VCE>0(>+)jqW@7{|D z9edaqc(LGs%e;vE*AO>ga7+{X`}>s9c@_C>_)H%V(*`juha&AfNb>p$nlfxmeQkRg zI7dS70a~cpZ1P1*2<%~ltpj3uJnoBVOnuZCQDW-Hi#M0c$@=>GUt19!KG zw0Uqe8kO^3=W=&@57^@~$>Cze@(hqerivTp{kAMmHK*OmOyxPJ) gCZ8@K6c7q{2A}%#>Q(&hc>n+a07*qoM6N<$f;Q|IVE_OC literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/handdrawn_arrow_left_green.png b/Global_Indexer/Resources/handdrawn_arrow_left_green.png new file mode 100644 index 0000000000000000000000000000000000000000..3ab0bea96f66bcb4f6cf621c746c53ed77c9e984 GIT binary patch literal 14241 zcmV;SH(tnzP)z)dml}&x16%~`>pfswRG1k#n_HzjqKT4-#Yi6d(ORA^XqM2 zWv#`;dhJ4EVofl>1SS|@0uu}{fe8kfzyt$K;I#!GHA^Xl*T`xRj0h}_@-=BTaPgOb zd_B-O4fyW4IOMX{zNR(6q?*Tb1u=;~v0f_-@GikL!D7Lm3r@vrYE3Xe;0XVA!7!h{ zmevFVED~HNc%9%8!2@_rtqBHb7ko>wMro{^aUxzrYk~njSZu*aaS|2<1^n43?m?7P zUhM)f!2n7CXY;?;Fa_6!4R~wE37Fh*A_iuih986LqzMLim8`J9V_hr5UcnN<=cb>8 z!oo{|$;Sd|8R*#zHcNimMvi@hbq+PkJ|S&ZkK5$_NlwGv+`lN1X!z{DolB1OpuXYi`p_sCWM> z8pAw()U^?fr@R+jZ+Z;*eNIo8YdXw=tIGUa4oI#@TbrI3Qw;1 zC1$?me*;7Nf&FWFkmTp+m23$SnDCHP?y z;j-TCz*!#$_N)Y=QQ%Eq0){$)GzM1+Bo&}q0`kp3p%q9CrUNJm_8dKt&;$d#MetXJ zMpTc#3_q(3;rO8gz`S#S)i*H=yzukDz#bqf1KQbsV}UdQMtcB10Bizi#{Vmw`kyhu z0OKE@5}Yge_m=tiy4d+81G{O{#qq=3Gl4hXKuGw4^`aZSryd}H!F%-*@2k}eE@OTG-8^j@H63lI%4+ozO3lkiamsE%f8 zAGsWmZv;Bmp##7HL3#W}0TT?+Ciu8uouFg(srdd0??hqMZ-D-tK=VxCif;fNuLHU^ z(#|WNHs3ndQ63XN+lGwFI4bB8;kM)7-Aftga=6y*OZH~EyCwzc$hOmh90Q@%Bfa@>6 z0iT(AoW|{6B=Il1t{xw~u?}GvqJNi$1z?=Y*Zx5$k0tb)&r^zrcbQvkpRe%OR7zt(`>%^}J?KI)1&gn1wkSP)$F z1-uYQVqm0)w!hpD>|I4ukZ(d%d-((dj34Y0V*SlY@5E&`QMm1k26b(~U*6YZ6=fN_9^sknOn zc{p1n6nA~qA~hBt{6PV;P7JYkT>>b;%UJ}s9$1K*pmbh$Uuv zBG@3953YiPb#n*J?(wK&lF2pc<{^jFotrMGbBwY|&@Wh%y~ee|5xm|p-{j|GDhp~p zw-!2v+;%iDz&o8c{$}y+|K{ZP0z03`Vs%{p^#G^5y#YO2HEf*H!PCfytKq>yAxR^o ziDHRY8Nh0UUQSefDNFs%I~!Q|CZK0K@YoON5Z1Q=9ZN7@80@P%pG0xE3tSe%CPmdH zhZ>!D8_a_DhHbafAKKzPiNzNe&6xW0H1JDQ)-)sPoF5Puw@w? zwWaU#aprp(FxsgRS5qhtP)Z|B6Bxt4agtP#CK}dQ`UDoxz5$HJmIr(c?oSZpc)l{o zd_eCGKHj|oEu4pB#1PhH=Nm{AW)q7o&_dw4$`I19fY8t5qVfQnOVSv#Y9#J|IO0YM zNL|fo*b%Q%Q+McfT41AlUT_u3h3;`67^K8!M4Tch0vU0)CK0-vuskQ&FE|DkCGDfx z3ou`KSZ*zD%QvE1zH|ThH3200M+KwJv+>=w+4w`D1?>ZSS+u$2vmxf4)<|92momZQ zh-GXFtrebPOS7gpe_b4wybx z0%)pJt>7gwn&N7fVlMhcAk6VQD(8gCi~*(|mqj9lupR~NQxc6qb9E3iC1Z)wFc6o3 z(OzKW03>|PAVkDk!R?aDzTX;5+wnvu^)nV-hP%5r;)=M6C#9$HcrjyF?0*h(@{LS; z?|l~7^$fP=>oK=F0{tH!%$OBoI?=u;^P{T50AB*|kYJ8us_yZ^0B1UCZC?68tZtc& zRgeEG<}CdXkXYb^OG2FS-ew%woMO1kKn1*7L&I1D3xg<1P^}nPi_GcE3stPP02uap zzQysE_=u8-g&_sBF9F()1)ljCaLHGJ^FIxAZ)WyT14tqg71kAyBEZBhpWxASBneR0 zLWP~A>@~<0d5uX(cY$vs1=XyY@pP0QAc;o-VywNVExpzN9zovNxkfy*f zXCbG6&aTZ^*kEWQ$0 zbScokgOaZ7*h~O52~_QKMiZ4`o(>8;msH6RPI17x?4wcy1b!YU_X4|D0y9qq+UAn+ z4y+}kMecpujuFfU#4o{tb^N@o4+AH@3lL$+7;@_))BsZ!u*>iwBZAIx@J85h?{^*1_R%`xduEB z2n!^bs9yL132AFWFlAYCws6cKh|)|gL!?=V$Ivs^#CiU`tH>}@7XalUVApbB`U${{ zlUV5t8|b$@_OHOPXUl6#0P&Y__t$}^ehQrVabVUdK>K1~#eV|N{svfhai+1Z1h9`d z@;<=HUWnnZt!wPP{j2ePHo?+?9U7+yXNN_DRloHyb4h?HODy)TPT+@>U>LwNUZ!40 zqhUl`BqVDX{%shz{PXMxHDP+GRi8vG=V8`gQ^B#{+9`r)iR02wry;=NYOcVCUn&=7#{8 zYC_9Q;Eay|D}Dt$@k2R(FL3hvfv7|WSNi}wtVe=<<0TW=@RtwPJ(^VPw>Cc%Ur-q_ zxZsmMY&C}iE9;<4fU`fEL)Yd6+9&aq5BQ;%5pFc;M;xV@bOk;gHh7Kz@Gxf4L9@pB z4qRRc40rRMu%1mKFM1hj9rhaVu{#ItzL)2Y${%A^5)!Co4iMy+pRkI=mXS3SnyDR5 zdKYc^=KFz_zajCXQ95|SxY+yvu=O!u(oEpY57P{!32^&$z`j*XbcyPR)-Yk+_=p19 z7o6`uWDMSP{gUD9PPo#;HUCn;(?2&@a!w2KepNhIjkK&`oF`^ez%xFKwHOiumn0@* z1Qj@Sp42)q9xTQ#l`+6U)6NH_UZBtj_#q|ng=Ez1*kXY*J0^ABzPnzz*OYPqHG{Rh z78bBEkSIXv91t%bj$>Z3hfZ~?=)S_e@%O8X?(AFU0N%0vyXkhtcc-FMERV=A6EpysHI0v(I97Io}; z5}1EJC4TQpVD1?ZfdHZk?`?k_Q0fNuucPzXI+tc-xC_{LAJD!KC^qu*tm1iV(P1(n zIdU3crr;fdPoMJkd~nI9oAB5zDSVy7NpC4&V1I-#@G}DD`~pxkh+>O!brhva3C4hu zpArW>7JBc2?;{9;jL=-Q4q!t6KpkuiPa=kY_3aGZyb!Rck#<$%v|0S|WeJ0trTCqV z$JcDib4f->hN4LsNS)tM8KGk+_Fq&#ojaQ_8!A)H80n@;Pb)xB#|GHW)zlnKGl1p- zFm(~!z$@z=(}Y=^f0JikqGr9qd4PWxy#LbAHRy}~vH_bP)M#$5!@~1(80t!(RS1I= zNgQRz*ijdAoLN(5vqbXt)LVQWo6xlx)8-efLs_N%y|Gaag;1)d&8gr@~s7Gq*yDB zIEibepHL)vsgEj}qD~yvWf=3J~>2L{TsfCchl0l9o0p63e!6!Qgy@;FU^ zD55i0EEb^@z5Lqcc{(!(NgP9KjHAUcZrT!H@&fiJw9KKSc3?9ww3q5#=jiNBp2x^w za6iOB=CxjUFdq=)St>8K0ViJr$czMZ2&})8pHpmQ$Ozzc!Sq*x0h$FL7Q9Jt+G+32 zAJ?_PoO##(9%^0ryDHxDSM8X2Vu1adsw~jt@-Q|*oK!O{02st+1mE|de1p_PPB0CO zu^F=%7ta^MB9tCWe5Q#lEGkhMR^iAmMK$l|4myI>VP^1@rV5{aGM}e0ojV{xA%cdJ-apea58`=IN#N^exqJ+eUQklIs)*><$Rs(6nYoy;p99Iy__1+Oz{gn7zJqh{Tt-!Gt zk}yG$TAk63oZh- z+)tto?gUo+Le9O3dH-jB4V-v2+u*l9oG}`s3b|Lx$Jp{9lU?;x{CforFQ*1*a236W z1YK^T=40B!SBp(bh+o0mzA_nCUpEz_g9;=`z`x@rD>L&2 zAWbcd0iP&l@1RpTpJettMTEr0NFxOkg~$iR>>880f{u>l2xJdy)NE=jJoxZEALDTu z$5<;uXlwB@bys1>Xt@yc0WBDF%xEVg<{ zfhTK>sSYvJljafhY$Bt`oCIYkptpbTH>q7j8?ZEPs1@qlurE!}L*MMbR}KzcXjc{7 zF2H-f)vv7aR zaK{(PXve=fVr;O!EYQPB6Z_LOca+bU z6Vq||pG?DnEeQq>q`3Sut(dm34)I6;t%A&PlY5|yKpCXA3hSjb56WbA-ZMEEV>6AB zW>qW&W72FxU#l!Utz9kPP)wj%`5O=7@4jEIo;`Zc{)(krDDF&>#>6pigh(mvdRk?1 zN;C#`J_Y%kG8&XcB+`wMJx;Cbet-(B#;!)=W zmhd8L0iMg~Ef72-s1_zEM5Ff1G{SEHbe!?7Noa1*47qEsEuY(7!|#^WegVmZnkv4Elj_Ws971Zz}w z9;$XjNG5+2RMr$4jg#!3HB8b#0UL$DrGCceVS(zqd3uee=x0gS3jx{X3`xwW!7q@o z1AEwaIDCL*-??WoQDhDMhP}^H+e9T`-%6&I=bXX!UjA>m$fbf;2%dd0wSanoaq6Qg zXip>iX|3^Su1_V4H5z1Ppdi5IotXLs+G?vyevx^`+td@tFNFB7n0io} zvA&5#Qr`m1eFJwb89u<*4yz?6)@!#xpnsNw4ZJgOB;DrlwY=)fXLB0(%5U5}LHo0N8411JqS^8_A~GB8rj+R$0R*+Ivyp`F>m zt_>{kG)|}8@7~O6;ZPR~J-yr5Cn&iB$@DS2n{_I%`&niht3zajj>R-Ho=+$8;qTY@ zZw%Y_zjP;%D&$k=e7M;9)~~c=rOBRZial$qsFWj2og3n0QTwAqDTg<-2dzT@9NvIY zNRt$CS`}1~Wcpn(nPW92Uh&IAfy>l%{y=2}_W}Sq$sEEcDj`avjQCo;VB#yhyo-H* zns&T5xbr(b=-HXT z8jUG)>TvG+I?ysRhy7bekyH(|W*bdv5)wSAWYo=hb=f^8weW3_sqZAI3L>b0+^hq7 zv~)7rW5?RR%_4yWa=of%VPl$-H{8b^v6Uut+!`j6fV)>Ptn>3VAz+P3h$|fCXkSRl zmLiTwHyys9j#Eog-^Z*oX#aaQQ|h(PW|CviXLe6ChY*@(A}R56a}A6j(wG`Yathk* zt}^)FVSu9GquNuyUvqoBdE>GYHas+fUC)hX*}I_N0Va_2rG_za7VcS_B2G$3P0UVR zSD#nLLzFNjoD1ua&ldo7aK6u3X_$nJ;QK7?CN@GGCz&tcX{JqejhcnU5nYvG67cnJ z2L^W1z7OrA`t}17hS4r1b)=gn!+HJK@OwIMb4~|lo=M8f;}wgbmq z0vvw@-(#eQ@7*+wwS}&A&ZH(;BguR>oqWejVSt>o9rp-Emiim;K@Z z9{l+(>|Qs5d{LoTAHYKq@C?fFNJcQ<^P!dRh@_xA4K46hE|YA7IGeC6hD}f$^n*=E zd=k`|g+OJ{frY1ixu*#2DOj(D@ao8ie8UG=vp@C%nt&narT6b5L!>b~bp0H!k4Cv+ zwWNqe+Ijz~n`qN#FJ*gpRA%>buAWRk)JfA(>7!E^7T7Lk0VEar57jbF4cJ|j1Mr|= z?@M6-ZgxPxp=+?yv}{}!?c1_^1Z$Ta!1CL=5Zf|>x(F~nRQ3<>{gC6^CT48!rg}m@ zK%jFliOLE>Uf>}YgfO6oUo*WU-~($?_@09DSpCTb1$oYXx>s_ssgn{4HI@k&iunc3 z@8#-AOfR6ymQYT{!AQ`sfgz$+jMsyLs}xRQKj4lhcz?$d_6aJ@2%veU+vIvHD~9D^ zU}z7SMFngLmq-Hxf~b^fhpv1R+5za7!T_lt7ML;Thms1e+WJIw)4f0FiKUOW< zi*h`Su))F_4;neZD%y3$#ttaU_AN!n&qod>v003-5U>eEvC5~QGu5vwP>riubr4EB zC(*zdgOWJ1O*aG94^G8 zRPSP!+2z|v2I<{QskbQ^K(c*qu#;xs*z;(w<1%~t_O4|vAXf)OWfFYho2Vr=-a`!$ zSAY$70oE|YJNezr6)gK6&A`-!bRK)0&(U!_iBv7YcmeJ@JX^%juDn_B_^MmtN&S2K z|Fv2&*PL=mM}7U2P;B5ZydcO3?R#M+*{Mn4t9(|{jgk^zU1BI2MK#Oy8`m-8x_dR9 zM+*{&27r+Jpp}=6gO@6DFD3BBFYOvOV-iiNgX3mnbzikarwoQFy=5*Lp?f0<)-;`s zna|!xr?6u&bN{nWW1IHA=a|Qr0ZvT4fDACwNq<3r!Xz?{F_d)C7&x$zVPHdt+`kSe z?qm1w`JZKfz`fsMqG|RSj6w$YAB?2@0DWN{Hsu+O5HE8}Sij(8LF=xk%{%V;_TUee z-+o}E5?4`}jI1-q*p#uqtwQ?>7Ky;ZC<7H3SZh%(m0*y-BoL@f{WEHySh@)sSb=*E z2+|~l_5*}r0ApXeT~8zT-Yhlqd3p#8nn`e@6J01bn-Uc_l z%o@Og^XZ^%eVEcM>R;}q&rmm+%_CjwSt1_krteT}I+ze^naw;y?^ZJ1lBH_>tOQ&dj$u=e9OzMnY6HYE4mN%`4z{TyP_6n_8kI@~Ns_*}Y@kO%o3Ycu z#%&f6^6}UO#r*{bcLQBpD3MaDN0gZbYJ+HmZC(J?wp8-CNtMU2aqkL-c{5JrfJ!_{ z%~R^9wlGg&vV;Y5$`3=v>E2V|^R#eszfEuzL$NlrUpYbr{zGxTltx zOMQoDE?|bBEFXOJ&;O!(#go4qM6sYyY%y7Tc9J=Q8abVVQU-yahld%N z+poWx^M`BiAkZurC6s;xN`nwvrt8v>YA!>Sb4vPA5A z3V~NdeQpwR`4Bot;QO{Vydx6?BwQMk5tKhx3(#+&$@t@rpA|s8z`$4^BJAkVHC56C0!%Gx(kctVZ5%L@q2q=hIBWOv>;qwNzd7*m>ULz{nVr zZvR_s9OUV-ljtrYsKS{72aiP?@vyOV86CF%-2eE$y=rD8Hr{q!p}F8A`vjEMKXYL=s|gs8W%z zCKALB5l6J=pT*g|-mUZ{`gSmlTkhj~X^%~vLNIxanLV45d7l0$Uw`)xnGm|=Gi>)7 z?IjbP|2f+ChyIa~!=#yP|EiX_L6p3P3$LS7Xks>!irL|?=*g7)ut-NS8pgg-FQ<}; zS9X7Z-wBRUz!~+e-d#6c-*sseML6#REf~-~qOykeZPxAul`>RJQv_ZP2!N`IfmoB+ z%1I|xJS&DF&r`2ixi==!)QgzwSIq6F5p(skPh*-E$m}{9&yaY$o_Y2pW;+(Qc5@74 zfc3v;Rj$qpYpmjEX$!z0&+(>fq6;$)Z7XHl5hP!G1HwhM8zzE?D9|7+E25{Tw zxe3(5OBflf{1vP)0bci3DCru)ivMsMMI6J1(Z1~rL5ppSPE3mENN*PXcNX|mQpJUB zbHd@9zdG1p0G#uI=8R*lM%K<B$U^%$Xq6(dX;v@-NOYxYH)CYEIF1s; zY$1li3vUazifXTM8mnxcPun@#=l*zx_T2Z}NVY5M4j-V+_dH)*-mECK~6IH#Cd#@2aQ zGfyT{HqT&0kW|?uB1|d7H1)f-R4YV(PI$_Qky<4`b*LD5c?hc}l*(?ZKBV zj)^&4Zqy5}3hIN$$|%dKl|jbWg%-xrBDvgIyq}#q{RXP;dhwHhJORzZEEIlcYkX>f26<@$)2n zQfBG4T4JhJTCUx&1(P+BZk0`%X=@+;9!I^V9#305e1MMF<3C`IKG(!>PE3GA1B?nP zgFJcxi5`zKWh?}f&n1&gJCWn$e{iw?30DJ`UC*xIRlgyFocJy}nY*3_HvED41CL{2 zs19QgzooHMSA_Vrz-G#h@@!z%e(qeDOr&c1#LYb)mhfiKq1g! z?M6>j-vQ)kP^pxWrZ1r!Y?*}d1lCejdzl($Ozr1b&llzpXO3o~do%0qJC`#@KV=~Y zHutY(2-rAjd2!DZNvd0NUgGRQfsower_YE9dHXt%QWA;}2N~<1r)n z)X#z2zCfSljUNM+{tw{c?*dQ$1X%J`{(N4(k$WblF-?{BVdXtL+~yFw1Ul_urUkcGQ z)yKg8%-drX(Z;Z;MXD4$M`*1L!h8-Y)`*fSo-fT$`%ZNm6iN8{$&@Oo<@bwS{;Z3c z+r)-$mf?(caqzx9=M16QS@h!jc2SMX`OLwqmdQ{_*`;W=GDDXdri&}w30z)dNLN3F zK0w#{O!KgX%u;g%0T8yzF=W0#Tlx;UdhQEoQiiNSk<351mnGw_^$brvkLO1YWF_Vj zfJR6Bu(pnRgnuxC@vcdLG~sdn8@yp{bM+5?zk-wA9*POj=-!s%E!Wp)ld=7K3_M>W zwv}wS6bY%XLQ0m<9cjgbH3o?(Bh?n3I)wDclvt54Av~*dkN$vV)M699ERx#p%G#ZR z4#Df(AFf^^1Jt)NQ4^P0e=iEsRnJ0s5gaAm+jk>(G!^ zvTOZn3BG8Lyf|;e+QT}*6jA@J)*zJgraXv5?vJcOXQ>CR!l(`MeN3(qdkYOPeLK-C z5ye25$DniwE%5_1&OIC75l8g1*1`vHk>F9mFzI}R8DP#?2eWy`WLdP1blBTB>r@|i zTwleai#4Xq3p15^)eUt}3Ze;sG>s5dqKp}=!NCck9Hl;qG+>cUBv~(oR)^lWY3oCj zo;2lSamt-2rC2#g6uJsX*YP|VN1(?)B_x5sDJJ4FYHZg`=Zu?hQLnhEbc3rAt#{^W{ahVO4 zecPDj8|W;o3a;OSIM`%^k znqL&OxN|vo?G(WxH@bhPz&K_(Ahu5%XxN;jWZM-J|* zYjg@vh0q9L0N268Fbh5lEhf&IIG(Zw6>z0EeCrXnui__h_}7Di-;dXyj^)%4CD?TW zJA{;&Cw^kSC0_9zr~glU`^g_;UVmqd)wcutH)ve-%{(2seU?3fAlS^oP{v_3-~1Pf8pe%{dd_SaK!4A}LalZiB6l0)9c^ z)OUHv)iD916yt6-lTw?+6+lBl7vk)7{$Mn(>D|S~4axK00fq0<`Fcgy3XHR*F+SI` zQX9V|tj7;ecsoyYZ8q4oBE`lB4ZNJr%tlmYcMfWP0K)e)s^t{JeGxT8z!GXuV8$+C zV)RB>3^HLd{?-Ho5G$lB=C6&xFBf0#OvaO`6kt-x*C!c43ylZs1AyB;*2E}P%ZMvX zzbcP|5n(-j0HuJp{vCemwBPm#1{lXnYwS=O?~O|MiS)>2Yt5~x)Y6UA!_!O)6k8RU zz;y_DTEq7b?lzW`IfUUHN6bDI8^ASRVDK7WKE~~$^sf3f0N{U0vBSuS^oLjc%Hr9Z z6D+>eLsW(|Yj_eODhzd5D9xI2AzwtfTyir7K)DAnG5hmmTKDOv{{wLG@+h8n(Xp&u z)=X%CS2R(?l~v?El54=lU? z_N+?KC+8Yk+4f~q1wUYt$fPtWt~k?yqjF6!K#ySh#(S|77EAI?K<9dc`~N9Ip+Td* zMN5&#qTHvTaxo07s~a#3td5`rpfaXidV&FtGCU)u;iTQqV7DAEEKFjN=yzYJ!oX%N zSSxQU!}>A8oa;ZR(*DbJj`$d4sdQp#9Gz>O`_ZcV%l)|8rsz*oi(9`~K_b*1>`t+7 z6;r|rY^91ufHXp}ray58j@mWB0DUg6ew^TU2-2YCF)KwUGW&yVwdbse1J zbEDk`z>|V4N3$O=!2rYtL9Es#VbFn5E#3`UMcaPB7{4 zWLGB`Kso8sJaV~&&aj|caIP~88_NUuz2NCWGZM-CA>Y73&cVIewZ{nF>Ii+j;8NF5 z_j*V0$n870ey&Lz1gUzezB;b3G?`%KdnQdwriE@9r^JBYe(j73C1RV^Y)b>AASNm zf{WeOwbuzgCAh+choRs=-!7~e+=I@BHty0<*9tgkg>wYAJ7NzCdYn{WE;!x!3JV2| zHQ&j1D7yyCQRj#*6`bWB7afyLac04DjFGSTEuUDR+_gdg&_yR*yIqXm>xj@O;opue52LkZJ_6|t zOh7_H#B z=Y0;oyLaf-W%xJ01cXXPD|n*MkrsIN)U&aN40vQ9E4JL1MJhTrFizCbYG2r$b@ z(meN`4J2S@`#bNs0W-Z29gaC7cW3je!c+N!$1xJKN z5}S6t=JBYz#=7$Z?wl6%xO@8@ku7RgjS27_;R`h(Wa1bpcBmeW3}D87@i8UX#|~j4 zR=mIj&|Jp=Pdkm#<%rPaG>qpof_17@yU*V5m@aYW8yo?vJV&!sqn+X!6`crdjasLa z^BC3;Fcpl}XgSZBBUPgf$^um*0O=v585(NZ;2wY)}!&Gp@OKYS|)$D>bEZA2Q z!|!&4jU1E2?wUbItg)*=LU9ljT!S^9dU@;yGh@F`jkHpg^D~WmjGFfuOITfF7IHPj zPKd*){-1v~@JPU`@ds+p<=y$TCUlBPG%|0E^jbXs(qleDA42kiF`=8q*j)&DjENV# z6u9gdhBCGJ4F~IvV~H{PQkmkg42OP)M$HW-Bg8_pRlC%fpkOra<6oh1fFhRnBFo+<;>?rXH z1PUOAMU)L27O(|HED{hB!Xl6eSt3TZ$$;BKjN2XeTwUFDyDp2``UmuIp3OP>w&z`Z zClp0tud^VZl0gvoC)l z%8_CR00wOkiKxIqd=+)jTJ!j0#4%)oNAVeMsHjotx_N19UowLL_Gvgp$_G03}C%!<}DW|&KbP=3ey)^USRq%dp^XT z`_1;&-Je#xgndO316Xg8cJA!Oe>zj`XXedL00LPrqhHXs>xiy=$@Z+rZ;BNMQH}wu zA8qU@m3=o!X*Fr*v|BVL2?=B0W9MO(=e@K3ZqIDH)7{vHY7Ag~*o`AA%i43-IuTrd zm12eY37RvEonYj{TsiGMx9;`y$A4z3w#jDfiUF)`0|-gUL|4DY)iadJ^ll+vBFUJ! zLQ>-Wk8t3Ny!>kirY`v7_B-{VfjeRVYulEB@rnO%!dpbpzMV8mNbSMqU|>9P0OSid7~3RzD$y!pjbgcsZ3+C^Y910#KS+KoN?_u zi_?7Y+xBnXpgbnz1zTxE1+ntoi zaX1FBI{cr!_l}zEs?NNB=iE@~&ADR^>Q)RbA%p@#fDq9JtTDkbV0&y2t(L3SNXqDg>(Ls48l8wd*{%Vqc6t+&3eIx-NO=K6L2bUw%(Tj36Ml3fTq&p`m7*b5J1}?%#DE0r1&sY_z$CiQlU(- zP^45WQ>sM7C5TE86+C$g$9HC&`Hmt#|G9|S5yvCfK-UUbem-xm^l=3zp@h7+YyuX5 z11<;eU$n)#7)XG5peE&U7SL!tk6tN;c3=)T3Zy^?bOIefLC;_uus{XKfk|LQ?@^UP z$$;a)nVRL}Aywg2^@>vnrXl0Od&gkg0M-U1lZRpTGFX^};v__6Xv{;oPaVRz7!n6X zyz_YDu#qPWWAM;O>o^l)ZAd!r7}*tY!TZ~&PRw!Z)fxNmhm{w=)FHl69cKo(5UxTb6A2i^kwCh*^ciTM@amw_%|KkyykAA!FI{u21I=J2=% z_#E&@z?XpU>t6mDxB<9d#=@zEHeOfm;sa5EPa4Dj1}>Ag^M`_9d=>b%p2_t#;O-#i z?`*{1cP{2Lr(D7BEjfq5N-sdxfR*gmu6Y{Y(x_1GQE(piLLcfIYw%&`^Y6rM#a3U=dK(#WJ7>cpwA{ zx}Z^$Uc3hzu)NfXZ&X>x8<=u8Wg{9F@8|^G7ndNJhsgslaexjalzY_(+J18j2Bs9fPRH(#(~!r+W77JzCe6z8;tFR#;m-<*d~#3c;yAG?_C9Z?^A>r zJe8?1;+7v@%S7LL+N|LRhaP2lTw%}hbLp(lF>>U`tOh;^tR2|EruG5oSPZ2uh2U}* zbS;6nO*zRp&Zz?%`0(g1er@I`zXSXi;3i<06ClrfNR%<=bYLT}d&!x+ zZTV~XbXo^;6-a%nVd!+VP0Ky%mroytxLyB8_N{>+KM-@zq$!bOYERF3RiEFRtjDy;GbBnwiI6B~yWF2@Fe)&Zz?^IXMh76 zLm0L2JLo&k3F{B6gYWz<%nqx|SEvXIV$i>-FhAkIBk|z9rO~L7JCCtYEXEWH5uq)B zH+URa8E&Z((6hpD$Cszbe8%iyc>23=@o#a*{s;Mur*GmMV4tEL553yk!6DBt+jK#m zu(8|)VM&Y^K=)E8b^{Kc`d3k>8{Z;DrYSt|CD?l}tiK%61x{b_8aU(KFt&>od+w#_ z39BxGLK_Tjl%n_E-~61FuZ5r>9PWLKigjM$UOJE=gi<8g0$^0hdk1r)w8ZN@i3H(! ztP$3aib@N8YhmWNTE5OfGHZ!r-7f)aExF5Zco~(4`a%L8Y$+tLksu^8y83+1n zez=>PKRd-T z4a%X<+zJnU1r}|D%YRql@#r?#cfY!3r(6Mjt6=5ppfLkSwn#y}Yhmh;$dvxIQhI$B zMt8!%CPk6@4B%P@0AP?fq&Pz>LfBAI175!7c@G)4etCbZ24zcd?sxEFyy(4s(ts0Pe1+V z;k0+k2qyNz6F0)tv(P@MetMy-XfnQE%AP(B{Tr0?Ym*A!n#iFgw&nF!7h$9*5?8=l zUYZ!ds`=C2uflI(3W693;FUH2OG`WkgE1|7SVbc&)DspO^SZ|bVi5z8OykdHY`hXW zy2|YOZkd7AA?Lj>=DZ8N3i5{*!WicyKfcrtkU$Y4PkytDWP+T zA^{$(6b=UE{1^f$ogkD~;q)p;ZN2wWB}?_cCrgAFf(W2hI69|L-x3ebV0@soBqJaU z!2tC}%0f0v6dA%Wzy>m;ATW#{$hiD}lxR#vOz&=kG~$X+giIfG?7AoaSeE#YeB!an zy(f(UxEy>=QtE^-Ruout8mxW2l$g|D%eT}CD|M-I&oUU>2?rli$X|OIl)B;I!^-!d z9(wzL3d(XP3~kV}oI^?vbg2o06ae^43Uey(P>96`Arhy{>w?zxg5q*TkV2^m(PRJ; zasS?7%yXlMAply>4vH!s1FMyz`NlLpH&`DatA?cNDOEyFyCR~0Rf+DNZVqoT{PMq) z@IlJer_5dB933mq5AFrJPY?_ghmA)Sc+PU~WaV+2D&$Hp9DkZ-_iJGsR$d4li(q^o zG!~%L4$IDiVjIj)LSq^hpRTDIYxVr&Ps!_hSHr@L49o z7?I~G#s-Y+%UOP2k%B2uEEX8u?K$+rc|QI05TCnnlH0CMA66Z})QK_xc^IGqhrwoE zZhD?PeeXRmwht=ZFtAn%9o;E~44o#$rwPoANHN_j^qnP}1+AWa1co-s02XEy*0Ct+ zTl9NrRnkcDSfigMx(BZd`{G5Pmodp8^Z-DLYwHzs&C*u*$AEJg-pBf()fU7UOBBYW zE|Gn>*2e}JL6T+6)h6kvbP@z1S)LNwm~G06$%@~FB-WAZlUXai`$Qn{+ zsY|)P(g(e(v~02D94Ja``W>VLJ#A6 zWWcVKHgFCKaoptooy(Dcia<-!sF69}N*xY7f~Z*Vh^MGj+9*T?ieWo(SjGe%?;t7| zDqS&;T{lPfnw&yUov;7KBzqoAb_0I_eB~A30bY~{q9r`qzmD^w5)5yL3x5Mnc@zBj zS}|pD8?1R9v@e3`L*fh42Bh;)=un<-AAqPLyuSD}z^e6XQ2xzxNakR61f~zG#t33X z9Xzj`7!a|eG*D<0`)3RiIe`qhP{BEeMDH0aSWmrP(=%edFQP)PGI4)wmY3Bd7j*zFmUn2_^Sn(RT?suknHr#R6HLP)p`X zsgtBBS(XtMVq7C)W+LJ2ceK$nSZ2qqIhTK|!fQWV9$R-wG~{wV0Sul99^fKiaA1Sr zUTq3?+$v+(^fox>7gb#C`GG3_xlt)GDk&YrWf3g{8=+$mMs}#-62vfZP(@=9i&?DC z!jdz^#?|LIsl*sa(-h|&##&l}-ZPd;xr9dso;!%+h+?rwU<2YPqEspphb8b18+dH! znw&vWZx9z^0vj=LEMdciF+Gb*-0-P62G)fAr(IFJ-)gM+ygHq%d^HWA2jr11 zSAO5{CXqbGi@u#a2vM65!Spdz^()SYx#KW<6xLiSICtQO3a>N6Fn$mK7Hv`yd3-xm zx}a;BrfZE+evZq+=-!=p1MnV_WC3f8LVru}~T2sBSBANIiX@LWX_Xj4NPE=NN}L&U?~;~6ygGT=18*~YruvE z6FM^A5Xu3Jv4nAi2{IbV9J%hL5XFq|cf9$RI{07TSw%;G#FlT@sZIFJeJg{H0(St{ z0ULlzUTFhp1Lo_qkk;hA+rI}`<@CWb6w2|i?)9+r9N7BLDtylWC_K9bjy?sAd3kr= zI_Oy~R&jI>?0*P_{Z)z%Hjt5E;n;TAahtp^F3NyTv>2d~q-1#mYXc;Jhdh%J;4P6Y z6NLq^o-ECAIfORA+mzJT38S!yDl(Un`<#Vzj)i0%Yb`-&n$hFXKF8|Q+xU|$YdGyK zF$cCLY`CO&QRh%_0O(S`fN|g|V9_gS0Q)Pw;_$2EYM+)mWdO&Y6oa?vttte6__ts~ zrGOuPrB&>8FO`9~Ops{efH3!p^TY+zCIuJ06_Oa+35Ork!3=9&uWg)@Km-{LBuPr< z8cl^Eo`*k|te3l(8vOAe|1px5Tz&P`NO&Vq z4vVZ_m?4S^8kmU6D&Qve!r8x|)bQBXHEq+kR(*l~wNh@mSC##)A3)oH!us$ISbdQS zN0&lS5C%`GDgdh!Y72KSN3e{OOI!{vcUT)>un0=Z2-LrD1lBfDLsW<`#*n93^L^7I zl<>yuyDr3rR_}R(F={puc;+X3bEe>et2!AwnDY3IRl0@(<|o{HfWyE%@CeYWAzAjm z5cw@#zqAMt0BeoqhTc_7b}Z6iO1tlZybiDXb+vWx|9{2ic|`P__6{|M@>GWK)OS@! z%p4Jexb|WZL*BvE5g2}2INareiHlE#&LQpG;W;TK3?i%#G$`tkSa8nZy~o=WZxr?7 zsL&*TTq7pWA#)iSDS4J_CCNJCP|Ozwa_5^D7`)9H-d81A@cj0d*6>UJ&r;?m9qoMq zz^?<#fOi84unl;Z-uv04fP+B8SjIaRGweO&4TbCTJ|yV&gFgcUJ(PPDK@M*f{_b6kx^WXQxB=P*<@o?s^#(RLIgCN0;z2VUy615; zYXEGsE0|>|27~uGL1YPi5u289xgkv(WG=;%<9vd1Ibj$zxr4YE5XC{0KDL3UV~OSd zf1Kdf>&AH3e_h0fzOam?r^TFkW!rhc$AJgB7KKA9+POpNfD3*W10gZ6b$ky8I~Fln zo0LVr{WJ3B+y7MIy)vLYzy6JI;6X)&fpuaFI|enPRh`tCyi-SEd<%Fd7-%d!`#2Qa zMKNa$p@ATh;++%fXde*E=yOiESYuz<8bt)*a!7mw8(NGrqzxwrcM)+I&`4@HyFj_v zMqmSs^~8lDfw6dU0J1E{;E8O&l1)W^^z9jX7R8+N_AbT`HhBEzX@34wgKvJ|8&lgZ z{!r&7aXB2n_7leet_LpD#REY0aw9+ouw!vQtXop&khFFjjK-=b4B{4n6|I+cbQ+_Hsppz4r+PEZZ!|h*fO>VhFc<14eeDC}21l zMAbg#d5c6;3p736c}J2ikUNh{40#R&IW9MZu7I@>-g`^{-sU)$5E!FoSgKw@U?Li` z5$i6f@W%hz&CzEPYLjr)r&e(8+xr+jn6UiJ(%>W4&hK)W|BPlH4ZuCXG1YMlygUQY z14eAf@~%a6FF#M1{_tZ`dbwXDQ0F4p_kffXS77IzQfk}|QBmG|c#Ar1>))Vsuh&r~)*#6nO(+;gMT&(AaahCzP#p_dyK#_>7j&`ZwrM8E6aL^2 zHnI6_eGINF)3++(+n*Z#ec)l2`}2w&24ENPpa>*-Urq{`1{S-FeETg5+uh6H-1iIq zB?~I@j%;ZSZ;b6x5tlWD|J(Xu&wYY?OU{IS55e$urHCbG>6!E6DjvO818MqM$Qw#2 zJuB5;$P+N;K9l@ z#WI>EA7H_GyoG`(f)AM7`5qBE`#^HV5^!jqtK^PRU1QfzH!m!w6 zAf5lWE2q1^KvMT?`Q8*JFw|!pmwvdPGO%;+1h@aq5w_e|-8XT-e+;<&r|AX`1IvS$ z6{o+Gc@-w=*=MQP!O`7dBjx&}4iEi}xbVL9f_R-vGzzxsP7Q;ebrocF{XBUHitVD0 zt%cEDV62Fws3POS&=Lc2MG*4n6KX<5wNsizH+q}C*PY~YlKeanV4 zh|-!%Fri*$AO@dVyf;mPDa{+renFP2)^I)(rEG)dH9eM*J2?NHJ@hS&s8v(;Z>=*i zpR;6bz*V2?WAl4TYqTCm_fNYTX7hv(uDXcn{SVWIlc$EEs`nrSYvskG&xr0_{u-f# zs3gM}+oOUpu4sVN=RyXH&Vbs43PHREMao_B`c_eeTB~g`xZ0FX=Q{S3$fPiaMuQV7 zfkjX__n08n58jgHftE!q;FKDoK*|@8(5+dPXb~lhus+1)9`B=OG;qd~rFAf^iR3V} z)Ms)gs|iasmFQbu!Dj(M2+!_p@Zb&OEIrGPp8odmFSp&2eO0HI@x;qr4!sqyjam9F zQuN49NNOtnKniQ?7YDHV;$~D(-cBKHXe6vUsZF6$2dsLnl)vwOEs%6A*1ka)weUY0 zrqHqnT1lH5)mVCUTuYooXD9`na51fj5JnIfLttW(G$kj+hE_F_W(y=vU(9`mv5s=N zL>!m#2GT6U+ECQ9Q%cVA25DATs=(t+LVHh$YebYg0_yV#2cMW{`(5)Kcx-{kuS*`c z0k?o=34rM3Mt~ia9v+O!TxdflT=w}VuEwBchB`_gA$jMxtJXP^&DN*SPng+A~ zsX3mw^Ek)%)Hu4$9he)>--~3QF4}*Y-ll{5`Jv0sp{ z)S+qLMok1!u^qe@;ZxA)7yIth`qjXCEr%@3poNSGjfZ9G7gQ%?OdSJiEjQ*=6!vWZ zmxzUYj`FQilgs337+y8W9TW z5E0r)&^LGFz9GmN7#eAcwISXI#2pFqRoHs-1iK!YV$UO0hIeLWo z^;%TkXZon}JcvgK3u+tJXJjmG14=#C{`)#TEP^%qY@sTI5=5^aYv>$Ap+>{J18bcY zSaVD6Qj$boZ3Dm|uLzyOypNi^f^&vAit+d+1sp~NJPzj*0t+_KLStwOIG0oC%$b?3 zvh%??e)Qd`{HfdObM;xj4|oU9mHekUAfgsT+?iI1K#DLP#`ox2dIr?1S_pL+Y<@p1 zJ4Y?tUALq5?>^=Gt|d~wN1h&+bs&@eWQ)*2-)cd|+Jv@_Z2)U7)|`NeAkXx?LRp-F zK@nr>s5*&V@ z6!k(|BrrkqJ%c4rQ^;lE5U5S;MM7124E2RNTW=rb`(GG+?9po%X6v*50WFs@@>A{w z$h#$=EgPQkPz5T+YJsBMuPXeR+qDIB#=Er>Se;ajP@mD#<*{u-2x~79)=z8T5-EIP z7OYWosdI@8WOTRo^@C7oqSUEkvfQHqlf#b*QREp+?bq|#hromyPa8Z{%wt-6Uge9W z%fSnWV?!kV<$1m_P%M^^G05}vJQ+sr(IFB(gES)uAjjYmuqL4ps|nu)@606}Gz;E36mW#TstE zS>xh;YeWR4HQl!`1G|5K22wUarC%IFR8~P)pMl|LwB*^dLeF@PnAXsS1biX|1@X)8 zG!_d5j0wo|9IcDDepl}FBl33Pf52s4P|s#8)N6FKcVNN{6^V}A zi3X1RSZHCfdK1*AUZD6h;L_&_{TX;+bI4y}-j70}C?XfOYi%Bx)`pYrh0rQ3IUO;B z@kXodaZYAykQInc85iU<+zi%sU&f$<0r%qP{2Y)D1 zXK1511km^A$Kk=hQ5~>svkK3ksE9GJP6s#dxf}9Kyh5=P7G7BSFT6r#looJ5c}?II z-kU|6I)knE(S--SIvI3O0FTm{%Vi*8(Kg@D@|1{DGZk3tn++iFgm1nqkI7Pv6K(5xB&zaeT52us{W_~?Y*%3F2TLk7YVxUx>vNW0Ur5#LA~=n zDB4zsFsavH?h~wg=KIR;r@Tp=f(=9{ZTqgiU+RMMKdi;lxU4nutOf@k7WC|1rAg#m z%O)?_EHawR0sq3OA+PIm%ui+jVH9DleGb2F0x8^Q2>W}bMdu+&Ww3#@gptKZRXiDi zD`Ty}1df1+fEcU_#IC`Jaxvlu|1iNn{pQF{;2dDDUg1?S0GDC3&;dAk_2dDyc9)!` z5I*uW^sSOn-19{-br*aTp1e^xeD#Iu@RhqX0(Rgb)`s zp)BPE5lkFZAqX%RH%4m<$12z$Sw(DvRhDj(naDS5+b?~=#IW!QbUAl{lw z1q*GcV(#IuYUS+w|E%NGYSX%}&<@#xkcIb36>S4jyfrPdsWzqi%01xn=P37QCf-39 zT8uT?6>JGMR5ZbX33LS!GA=K}v606{IdNR17*w!6R>T0D^J)`khW3G&ayj6hZ;o=! zuOC5AWn5vOxmWe5*h(*JNGXI`b0kTkSl@=w30BWFJFH8}O{suuv_iatNGRV?6|izms2boe(<#szV&-Y&`<}@0G9&CUhRV-N$ZTX^)hIi5Klb8(I=G8 zdsjkrOcnYW?-3%{@-NEY8{aJWH+2Ypbd9k7g}u9 z6U>itErwn^p9Bu@0`f}3z=fJl@gSKO=I&ey?fr@Zy=$ekG2PAdt~mtJ*{JhA{FBtiKGr6o*_^7yd=|1cA(@#6f^2cpLyukpQDhEnowY z1sgizFjAK=Pl@9IV<500Q5=ychVCItxy$jdpB>?Wf0(Cxad>@oEGu}=-vW=Gh-2ac zpqS@8UG8ROR1rL@O+o(#Vf3L*n)W@q4Hb49VB?id;>c{fQ3i7A+f?Q6`=Rcc+^6p^ zKTjchc!zclgGd#AvLMKqHQ7Ay2{G4xgzUili1^sWMzA#pHu zQ2YMtF4qYlBbxJL@tK%CcVlk98fK0O!*?zN1MI(FOx(IR>HNSfg+itI9Y%NQR524s zNk_Kok2sV%L_P(PP9fEb8RT_jKry5XnpIR?A{e>vei_XE2X&^QG2##URtti5EtN6u zx?9GD;U|$6wr`DCDeUJhOcvGPLWq0-YV}{cD~Nz2@5igJcA$q3ykg2kVv+mwerPhX+5mcrzVk&7VJwv3u?+Jd|MNcH#`JL zTEM}r8dsI2r+tiafQ zMTvd)$_P7#RwDmz!qcyAdliGm;d_e0YGg?R6h5A|N0~IyV<5KV;K^l=e z$Kq2%wti=pz4v=oo^QGPuVxwDn`OWu;4{F@C;FVgA>b%*yA9aUs8a1167Dueo-?*b z#&G)2DTMF%zRnDO>z@ke|LE`FzP}W9A6ySzO+!&Jw(AbCM&9W%d1zx6hIhm6d$f33 z?w032{tbBin~-Pf_#NM=ba4D>@dpDN;DTR;LZ^yMmqT?@{epd3R$OP(|1EzbQqY@Du@!7Yms!z={jxogGV*nlOT|){2}mMh5Uw#2UylPoq)CL{?re1Hx;43~M8t zhdg!QLaYhtUmI|IPs-nYXp&Rj6ftuoW9(pq-sR>A;M>3-oGgb$&jA5Ym>(voO)_8Z zVW2uGW%jStX3y(c^mY|>D_*N-Og^ig zexV{Sc3D$V+A-W9m^pbs2w~O5t-sxO>N^0$DHJFSS1nR#*Y7{PrFEQZWk4yQ zf2~qNRj7vcK}6u#pR6nBv=T1QkHOPQ12{)uBLb`Susny*Sq3(ROdd@5^1CNlb5TgL z;5o8AWy9-3?)>w{9|2DSoGb=Vlo5b)WLZKQmz0ASrschp2i562_kA$FUtx7(uL`$y zmkGx^FD2Kfb$V#mQia`)A-%sa35BwVodXXlESI~499$}x)~Ly#x|a(XOdgiO?6?)O zy6)4lw#efWDD{XN7~k8RMxGpbhDKwaHlVuVH4F`I(0xaq*52a4d)2eBFJTa*5XBTK zF~;V|?ZIWb!YCj|DS-@nSA~r1%K7VGoMhc40R)~c*Ckx_r6M=}UhTam;7RY`WHNvb zU<@eYDOih}KB`V24r((}V()q#0OgTU)F#Cgwht+!JJGfj+T~?&0lZf}KDJG-NmT1NU|e@r^Z?aK&R^ zXJetA@jPSS^lrMRo~7Kklj+(N#riah=SE2TH!yd62eU_>VA0$#VY!E>+>6JN?75S1 z3{zRg8MO)G$^f;vfU^;4r4O4eFgP) z<|f1xmbw)7XOD=q0#*ZGQFvt<7_3cmw~e@_G0%T5v_W9ezQKf0fzRc+_~*|51wJ6K zMeySA@rpt|13+g7M+W272k2R58Q<@@_5aMV;+%**4|)zf?6~YV3mo55-;LuVK9i%I zYzA-`2@A8F{^Sje&K_r5ROH!hH}d&Lm5ucoy5>j8M|bftpbS(;b}|6;0wrJ{@PLX* z5?}#10$d5S>u36{CGduZcTD1`05!k@i;@~MQ-@gLJ?(m*95^nx#4u1X0lCj{z~Y5z zYW@K8jX5TC4`pDDnkgLB@27iyj3vNFyOz*4srf`Ym*{e7Yi&!S)DrrLAc(<05ar~V zq72Aj3?itUF=Ph%Rt3xsJ8u8KRTghDJb6o%qfdF>^XEmjUSF>+KF4iXaWQCXShd96 zpFcVNW)S~gI3M_+LMYz=_5hI-NC|isuvWu~%mJYkP6|xxJ_>+JEGf?G8N_-e1L{&T zsg%YPa7+rP@q+t#q4K#zDWfr`qV7d%oCnH%Y+kfUl=h}8TSF^R5nN77`NV`a#*w4B z1EC`Clos*2oO8r+fuZ#U7N&D<{dBEa3+=oo;qX?+m46h`w?3Qw-lu%;#*Y~Az;op(eztNsF!mEQK+N+ramy7f4da$US*e`EU7T#O!eP z^w#VA879EB4zJd;@c&b}(QQvaxZF%_qr>a(UPgQr_y7$&(A02y=apt!YRgrIzn18{oLn;#aKHB1X zzG%$HZENHB&smyUS z!f$V_WRIWzVg5i+hGw|95%?sKH(9HIQM7Oi!AHm!IKw=TF+dbQH|$|<`jB0*%p5k# zH#UMn4?yO_D+NHH;O8~~CRaSS2oAXXo4?zK(!f&>57BEY<0q+8;P^N2!qO@In8Z9R z0*LIfb=;=b|FX~~i3F=>mEA1zfcw9Sws<~2D#~y3ea5)C3$VUe93SuEWh#H1 zNZKoSvbBt>egIr&rgN>Vz}HY(Bk2do67EQ9Yb#I+0F^JHS{QV4{OQLjBr?}L3c`vt zUyJqf+s&7-2H+ef5I$btnAgfIQGa9tOSi4TDwXSiQO4c&5LxVmd~qG45^L73G(6+X zdEumz$S5tIOd5bqr62e4-PRJGV@lTvL_vU!#vHuQoWOV1FPhLbvl*4_Fg^SLNaGxl zT;x0#z<^OdjRQ9O*UD)vZgN^&;uQRn-2>^Z+;@#J~{*D7_c({uAVb*G2!MlSAV3Z16Li$Bi**g%-} zDjosw#F$dr6$Ic5+iL<%)ax?!-zRd#L@DJ!67d9aF!bB#Uh{wq59^mSTFV;oAjje_ z6#yF~8~5=|KfnpI#t+EMe9{R};HtQwF~b)TccB z{`;x%2NV4~aCGhwmKrAbb><;lUU)NrW(sfQTvR!mS;m)2Ve<)iDr+cu}SJDbwd3q65o1 z#)5(Xm0Pf5{tl5HULQ?|Pz&$1F$x>6*f6x_%htO%-ht%c$5VijOysWdn|TWY9AwVh z0K22a-#56;Jj1f(5fW{PoagmfNm6xf*aKFdw~v99=Zw8S7AM!IlL)^6@Mn<=BKPom zj3`zCT`IN4=XS~QD-8HumHvkrpUVSY-$`ZX^fjDjxrE={Au`=s!cZcN5LE1;7gGy} zJC|`fjqoghe~DZc`8Y`vu#O=~@OADOG&YN~;2@)kGc}i6FyG3f0gY0Oqo&}PvLWRDC=jm=! z%B;_)bl7$*GDUyH>k@<#N7qd9%AP2{$+j+rN#YIgm4mZol+2K!UuFguK^LSj7KzjcpD1ZlFly2FbzD zdTddt3FTE9o$6Hh0g^*g7lV=aiGXdYy-0wXNJyzt>Dn3TJ$C%?2CI`9j?NN4H=IX8 zhn<_UGZmGTvW-P5hXlcWhBOReWZheA=gl0=Qz|nfyh)`b&MZ}PMk_dDY5sP|cF(h{ z=1fs$JwAyyOKHHO!fQnmfy(BLF!D0F2MLfm9k5L$xdlbY06U42 zlU&M~WjuCnon@<3(pi={!!|0cKcZrM)^!IzHHngN#Dk=|CQ@UW72Xdyy5pNkx<#_? zhHO7P0ud%)BF0qKv`K`zM14gQ7p&03<75sB-z=`6l4C?OyD^e}?)8+FDR97+Q0e-tQo0}B)cC{PffKtX^41px{a1Sn7tpg=)@ a0{;W9n@vF)qYJnmX^MrbE*gmZ6|p*GkKoxa?X?hD9M+@sRvFH{EqYA??u6x z2pu{uGnrwz*>rh zfvUA@7b#acN?M*mBG3rQV?e^+0R5m3YXWyRZL5Bt@3vAw{9JaEW$}=f4bXO52yBH{ z;G~ZN|GLn>k~{On3Swd-Sy(gFkOdyw-RP%&exwl01RJRp))TI*SsngruhZksQ*NT%!X?K0000P)jGlUfiHCke$)P}4*HwX@?mb` zzgiE#M5fLDxtj=lZ6q=+Lkt2$!wyVqxC~@X03De&Gn$t$kdWJig()R`(|L#ldNHNi zi?tK@-;xA1zab1r3XkO&T;m5wdrx2~XU8>fpl4v~7ZF1h+!NXGy*rQ6jw}?mrNKGI zL&zzIrIL-VTRiLE`+jy5wt-SCISiy4pO}x6>V>$`&V{7&3{GoOF)87oTao_ek0H|L zXxL5q?8f4p7$RLZL=Q4>?LH3$EqhS@^b{VAG@wL(0y*{DquI)BECvw!(ty8jr^s8DqzY3Mx|xw6AM%RhNVG>V(j48H=@2*+n87;k63kFsH&hc^Czx zU)p@TON5%2#gM-!LRIG_NS|MUrcZ`*_YPuLB^9Iro+W2D85SRofmAHM&xik`9B1#a z@o-oLow*L$!CJHqC_n){?E(&Zwhf|^V!qqZ#X+&c)jMMwsg3*W31W<{FoWOGV1 zuOTTStWS(&DYr&0v}HowTZPN*IY_RcCU%rj3Cs*;4T3Shy&sFSmGFOV!%!{P*`>;C zSiN43jAg&56(U(ojS};68^@7JE5sw#jpE*579S@TLkU(6yap1yN*Zuy>-hV%Q_v4Ar&!63c8OBr(ZRhFu z_kWs36-AmgZCT>x!RqM;Zu9tqvoHI~k@UmYo_g(*J3c%2{N8}7I+|qKPQzv}7t>%W zsu&9G)UmCzkDYSw{fBnuW4j;1fKV_nicw`$8C6D=F_qu`zUiK$2Oc?5UVY+D(`I@R zW`KlwqLftWHH3Z2_XVNfKn>VgT~k=@- z+N>c>0|@A_HbI9Jn`v0~7cfIF(TS69zaomDS1QtgvaBBfGEPLHccO2~3jc>n^6}^HAEh-2#VxC7YYcDXv!L9X= z-R*SOUvIs;n`8(LxP4~^2|JsiN^hq6cU}5dn4v1~Kl{eT7pm&f$PoY`hyVe%y8G*S bxB&kH@RuR86sIAS00000NkvXXu0mjfZBi!% literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/refresh_16xMD.png b/Global_Indexer/Resources/refresh_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..8612d8c374eae08ecbdf006e147df5d8d5d2bee6 GIT binary patch literal 376 zcmV-;0f+vHP)U>iJ1AK?ll33VhWu0S`HsHO@_ zHG(R1@g(gdG{KWvP&HubnN5d~c5l+;ihjvtM(m#X*;%!&E1kmyoynyHN-0{FrAC;N znK#&@Wm)V=DwhiQaykq{8pkn(VYnI4zAVebJkPIu?oQ>$cF|-}hiY2OiusO|)+he3%4Yf*@e854Ua06KB)$zCG}15_rP2 zC4)>`*s_n~NZ{s|0B;z2Kl0$D5_tsymt~muBA`E$tTOYxBo8onBhN^7lzadG8@~Wd WPJ}SuuQy`=0000Yhaa literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/save_16xLG.png b/Global_Indexer/Resources/save_16xLG.png new file mode 100644 index 0000000000000000000000000000000000000000..199d45b03a87d30da4d28391e1fa2cf85c9c4388 GIT binary patch literal 206 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP_V(% z#WAEJ?(Jklt_A}h*ZoIVPImvu^)B{G_gAG?mo`2Swdo4(wz^_v@?gONMs@ib4aqns zuT26>7Ed}V-p`MCHp9!yQueItDy^j&uQx4SBDHtxHP(iUmf=cD9|W>>Jv~0S32A1q zmw&n2V9g>C<9A_;sow_mAFT4Viw)WG6Xt*BV@@-?dQ41S9_SVZPgg&ebxsLQ0QP}L AfB*mh literal 0 HcmV?d00001 diff --git a/Global_Indexer/Resources/save_16xMD.png b/Global_Indexer/Resources/save_16xMD.png new file mode 100644 index 0000000000000000000000000000000000000000..c9ceec3b88522144f509edc9b37ca0c30ff8a047 GIT binary patch literal 193 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!61|;P_|4#%`oCO|{#S9F5M?jcysy3fAP_Wq3 z#WAEJ?(Jklt_A}h*VPtZb7HS>zv!)E-rKM%<;+f@D+?zbTvW1Btn}mI_LRy$Dk{b2 zR*F2;3OpKTP@FR*F8i+6Cxu4CW7RXmKd#(S3j3^P6 + ''' Diesem Event wird immer die zugewiesene HotKeyID übergeben wenn eine HotKey Kombination gedrückt wurde. + ''' + Public Event HotKeyPressed(ByVal HotKeyID As String) + + Public Enum MODKEY As Integer + MOD_ALT = 1 + MOD_CONTROL = 2 + MOD_SHIFT = 4 + MOD_WIN = 8 + End Enum + + Sub New(ByVal OwnerForm As Form) + mForm = OwnerForm + Application.AddMessageFilter(Me) + End Sub + + ''' + ''' Diese Funktion fügt einen Hotkey hinzu und registriert ihn auch sofort + ''' + ''' Den KeyCode für die Taste + ''' Die Zusatztasten wie z.B. Strg oder Alt, diese können auch mit OR kombiniert werden + ''' Die ID die der Hotkey bekommen soll um diesen zu identifizieren + Public Sub AddHotKey(ByVal KeyCode As Keys, ByVal Modifiers As MODKEY, ByVal HotKeyID As String) + If mHotKeyIDList.ContainsKey(HotKeyID) = True Then Exit Sub + Dim ID As Short = GlobalAddAtom(HotKeyID) + mHotKeyIDList.Add(HotKeyID, ID) + mHotKeyList.Add(ID, New HotKeyObject(KeyCode, Modifiers, HotKeyID)) + RegisterHotKey(mForm.Handle, ID, mHotKeyList(ID).Modifier, mHotKeyList(ID).HotKey) + End Sub + + ''' + ''' Diese Funktion entfernt einen Hotkey und deregistriert ihn auch sofort + ''' + ''' Gibt die HotkeyID an welche entfernt werden soll + Public Sub RemoveHotKey(ByVal HotKeyID As String) + If mHotKeyIDList.ContainsKey(HotKeyID) = False Then Exit Sub + Dim ID As Short = mHotKeyIDList(HotKeyID) + mHotKeyIDList.Remove(HotKeyID) + mHotKeyList.Remove(ID) + UnregisterHotKey(mForm.Handle, CInt(ID)) + GlobalDeleteAtom(ID) + End Sub + + Private Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage + If m.Msg = WM_HOTKEY Then + RaiseEvent HotKeyPressed(mHotKeyList(CShort(m.WParam)).HotKeyID) + End If + End Function +End Class diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb new file mode 100644 index 0000000..d85033b --- /dev/null +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -0,0 +1,4374 @@ + _ +Partial Class frmAdministration + 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 GUIDLabel As System.Windows.Forms.Label + Dim BEZEICHNUNGLabel As System.Windows.Forms.Label + Dim EINGANGSART_IDLabel As System.Windows.Forms.Label + Dim KURZNAMELabel As System.Windows.Forms.Label + Dim ZIEL_PFADLabel As System.Windows.Forms.Label + Dim BESCHREIBUNGLabel As System.Windows.Forms.Label + Dim NAMENKONVENTIONLabel As System.Windows.Forms.Label + Dim ERSTELLTWERLabel As System.Windows.Forms.Label + Dim ERSTELLTWANNLabel As System.Windows.Forms.Label + Dim GEANDERTWERLabel As System.Windows.Forms.Label + Dim GEAENDERTWANNLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim WD_INDEXLabel As System.Windows.Forms.Label + Dim COMMENTLabel As System.Windows.Forms.Label + Dim DATATYPELabel As System.Windows.Forms.Label + Dim DEFAULT_VALUELabel As System.Windows.Forms.Label + Dim SEQUENCELabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim GUIDLabel2 As System.Windows.Forms.Label + Dim PRENAMELabel As System.Windows.Forms.Label + Dim NAMELabel1 As System.Windows.Forms.Label + Dim USERNAMELabel As System.Windows.Forms.Label + Dim EMAILLabel As System.Windows.Forms.Label + Dim LOGGED_WHERELabel As System.Windows.Forms.Label + Dim LOG_IN_WHENLabel As System.Windows.Forms.Label + Dim LOG_OUT_WHENLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim GUIDLabel3 As System.Windows.Forms.Label + Dim OBJECTTYPELabel As System.Windows.Forms.Label + Dim IDX_EMAIL_IDLabel As System.Windows.Forms.Label + Dim IDX_EMAIL_FROMLabel As System.Windows.Forms.Label + Dim IDX_EMAIL_TOLabel As System.Windows.Forms.Label + Dim IDX_EMAIL_SUBJECTLabel As System.Windows.Forms.Label + Dim IDX_EMAIL_DATE_INLabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel2 As System.Windows.Forms.Label + Dim ADDED_WHENLabel2 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label + Dim IDX_CHECK_ATTACHMENTLabel As System.Windows.Forms.Label + Dim GUIDLabel4 As System.Windows.Forms.Label + Dim INDEXNAMELabel As System.Windows.Forms.Label + Dim COMMENTLabel1 As System.Windows.Forms.Label + Dim ADDED_WHOLabel3 As System.Windows.Forms.Label + Dim ADDED_WHENLabel3 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel3 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel3 As System.Windows.Forms.Label + Dim GUIDLabel5 As System.Windows.Forms.Label + Dim IDXMAN_IDLabel As System.Windows.Forms.Label + Dim COMMENTLabel2 As System.Windows.Forms.Label + Dim TYPELabel As System.Windows.Forms.Label + Dim SEQUENCELabel1 As System.Windows.Forms.Label + Dim ADDED_WHOLabel4 As System.Windows.Forms.Label + Dim ADDED_WHENLabel4 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel4 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel4 As System.Windows.Forms.Label + Dim GUIDLabel6 As System.Windows.Forms.Label + Dim NAMELabel2 As System.Windows.Forms.Label + Dim ADDED_WHOLabel5 As System.Windows.Forms.Label + Dim ADDED_WHENLabel5 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel5 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel5 As System.Windows.Forms.Label + Dim SEQUENCELabel3 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.SEQUENCENumericUpDown = New System.Windows.Forms.NumericUpDown() + Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New Global_Indexer.MyDataset() + Me.WINDREAM_DIRECTCheckBox = New System.Windows.Forms.CheckBox() + Me.btndeleteZuordnung = New System.Windows.Forms.Button() + Me.lblObjekttyp = New System.Windows.Forms.Label() + Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.OPTIONALCheckBox = New System.Windows.Forms.CheckBox() + Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.ListBox5 = New System.Windows.Forms.ListBox() + Me.btnSQLView = New System.Windows.Forms.Button() + Me.lblSaveIndexMan = New System.Windows.Forms.Label() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.SEQUENCETextBox = New System.Windows.Forms.TextBox() + Me.DEFAULT_VALUETextBox = New System.Windows.Forms.TextBox() + Me.SUGGESTIONCheckBox = New System.Windows.Forms.CheckBox() + Me.DATATYPEComboBox = New System.Windows.Forms.ComboBox() + Me.COMMENTTextBox = New System.Windows.Forms.TextBox() + Me.WD_INDEXComboBox = New System.Windows.Forms.ComboBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.TBDD_INDEX_MANBindingNav = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage() + Me.lblsavePostProcess = New System.Windows.Forms.Label() + Me.ComboBox2 = New System.Windows.Forms.ComboBox() + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Function2Label = New System.Windows.Forms.Label() + Me.Function1Label = New System.Windows.Forms.Label() + Me.Text3Label = New System.Windows.Forms.Label() + Me.Text2Label = New System.Windows.Forms.Label() + Me.Text1Label = New System.Windows.Forms.Label() + Me.CHANGED_WHENTextBox4 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox4 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox4 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox4 = New System.Windows.Forms.TextBox() + Me.SEQUENCETextBox1 = New System.Windows.Forms.TextBox() + Me.TEXT3TextBox = New System.Windows.Forms.TextBox() + Me.TEXT2TextBox = New System.Windows.Forms.TextBox() + Me.TEXT1TextBox = New System.Windows.Forms.TextBox() + Me.FUNCTION2TextBox = New System.Windows.Forms.TextBox() + Me.FUNCTION1TextBox = New System.Windows.Forms.TextBox() + Me.TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.COMMENTTextBox2 = New System.Windows.Forms.TextBox() + Me.GUIDTextBox4 = New System.Windows.Forms.TextBox() + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton24 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel4 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton25 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton26 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton27 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox4 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton28 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton29 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton31 = New System.Windows.Forms.ToolStripButton() + Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() + Me.ListBox6 = New System.Windows.Forms.ListBox() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.lblValue = New System.Windows.Forms.Label() + Me.INDEXNAME_AutoIndexCMB = New System.Windows.Forms.ComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.lblsaveAutoIndex = New System.Windows.Forms.Label() + Me.btnSQLViewAuto = New System.Windows.Forms.Button() + Me.SQL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() + Me.GUIDAUTO_INDEXTextbox = New System.Windows.Forms.TextBox() + Me.VALUETextBox = New System.Windows.Forms.TextBox() + Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox() + Me.ACTIVECheckBox1 = New System.Windows.Forms.CheckBox() + Me.ADDED_WHOTextBox3 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox3 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox3 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox3 = New System.Windows.Forms.TextBox() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton16 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton17 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton18 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton19 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox3 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton20 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton21 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton22 = New System.Windows.Forms.ToolStripButton() + Me.INDEXNAME_AutoIndexTXT = New System.Windows.Forms.TextBox() + Me.XtraTabPage9 = New DevExpress.XtraTab.XtraTabPage() + Me.Button2 = New System.Windows.Forms.Button() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.lblnewDokartZuordnung = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.cmbGroup2Dokart = New System.Windows.Forms.ComboBox() + Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.btnAddDokartGroupRelation = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.ListBoxDokartzuordnung = New System.Windows.Forms.ListBox() + Me.VWGI_DOCTYPE_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.XtraTabPage10 = New DevExpress.XtraTab.XtraTabPage() + Me.GroupBox4 = New System.Windows.Forms.GroupBox() + Me.FOLDER_FOR_INDEXTextBox = New System.Windows.Forms.TextBox() + Me.Label25 = New System.Windows.Forms.Label() + Me.btncrFolder_delete = New System.Windows.Forms.Button() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.cmbCrFolderDate = New System.Windows.Forms.ComboBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.btnaddcrFolderParameter = New System.Windows.Forms.Button() + Me.txtcrFoldermanuell = New System.Windows.Forms.TextBox() + Me.Label19 = New System.Windows.Forms.Label() + Me.Label18 = New System.Windows.Forms.Label() + Me.cmbCrFolderIndex = New System.Windows.Forms.ComboBox() + Me.Label17 = New System.Windows.Forms.Label() + Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.TBDD_EINGANGSARTENBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.btnadd = New System.Windows.Forms.Button() + Me.cmbWHModule = New System.Windows.Forms.ComboBox() + Me.TBDD_MODULESBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.ListBox2 = New System.Windows.Forms.ListBox() + Me.TBDD_DOKART_MODULEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.lblSaveDokart = New System.Windows.Forms.Label() + Me.btnNamenkonvention = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.NAMENKONVENTIONTextBox = New System.Windows.Forms.TextBox() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + 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.TBDD_DOKUMENTARTBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripComboBox1 = New System.Windows.Forms.ToolStripComboBox() + Me.ToolStripButton40 = New System.Windows.Forms.ToolStripButton() + Me.tsbtnCopyDoctype = New System.Windows.Forms.ToolStripButton() + Me.DOKART_GUIDTextBox = New System.Windows.Forms.TextBox() + Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox() + Me.KURZNAMETextBox = New System.Windows.Forms.TextBox() + Me.ZIEL_PFADTextBox = New System.Windows.Forms.TextBox() + Me.BESCHREIBUNGTextBox = New System.Windows.Forms.TextBox() + Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox() + Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.OBJEKTTYPComboBox = New System.Windows.Forms.ComboBox() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.lblsaveUSer = New System.Windows.Forms.Label() + Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage7 = New DevExpress.XtraTab.XtraTabPage() + Me.btnDeleteGroupRelation = New System.Windows.Forms.Button() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.lblnewUserZuordnung = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbGroup2User = New System.Windows.Forms.ComboBox() + Me.btnAddGroupRelation = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.ListBoxUserzuordnung = New System.Windows.Forms.ListBox() + Me.VWGI_USER_GROUPS_RELATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.XtraTabPage8 = New DevExpress.XtraTab.XtraTabPage() + Me.ListBox4 = New System.Windows.Forms.ListBox() + Me.lblsaveTBDD_USER_GROUPS = New System.Windows.Forms.Label() + Me.GUIDTextBox5 = New System.Windows.Forms.TextBox() + Me.NAMETextBox2 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox5 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox5 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox5 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox5 = New System.Windows.Forms.TextBox() + Me.TBDD_USER_GROUPSBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton32 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel5 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton33 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton34 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton35 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox5 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator14 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton36 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton37 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator15 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton38 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton39 = New System.Windows.Forms.ToolStripButton() + Me.ListBox3 = New System.Windows.Forms.ListBox() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.USER_GUIDTextBox = New System.Windows.Forms.TextBox() + Me.PRENAMETextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox1 = New System.Windows.Forms.TextBox() + Me.USERNAMETextBox = New System.Windows.Forms.TextBox() + Me.EMAILTextBox = New System.Windows.Forms.TextBox() + Me.LOGGED_INCheckBox = New System.Windows.Forms.CheckBox() + Me.LOGGED_WHERETextBox = New System.Windows.Forms.TextBox() + Me.LOG_IN_WHENTextBox = New System.Windows.Forms.TextBox() + Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox() + Me.GI_ADMINCheckBox = New System.Windows.Forms.CheckBox() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBoxUser = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton10 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton11 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox2 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton12 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton13 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton14 = New System.Windows.Forms.ToolStripButton() + Me.tscmbUser = New System.Windows.Forms.ToolStripComboBox() + Me.ToolStripButton15 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton23 = New System.Windows.Forms.ToolStripButton() + Me.XtraTabPage5 = New DevExpress.XtraTab.XtraTabPage() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.IDX_CHECK_ATTACHMENTComboBox = New System.Windows.Forms.ComboBox() + Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Label3 = New System.Windows.Forms.Label() + Me.lblsavezuordnungIndex = New System.Windows.Forms.Label() + Me.btnidxemail_delete = New System.Windows.Forms.Button() + Me.btnidxemail_Save = New System.Windows.Forms.Button() + Me.btnidxemail_add = New System.Windows.Forms.Button() + Me.GUIDTextBox3 = New System.Windows.Forms.TextBox() + Me.OBJECTTYPETextBox = New System.Windows.Forms.TextBox() + Me.IDX_EMAIL_IDComboBox = New System.Windows.Forms.ComboBox() + Me.IDX_EMAIL_FROMComboBox = New System.Windows.Forms.ComboBox() + Me.IDX_EMAIL_TOComboBox = New System.Windows.Forms.ComboBox() + Me.IDX_EMAIL_SUBJECTComboBox = New System.Windows.Forms.ComboBox() + Me.IDX_EMAIL_DATE_INComboBox = New System.Windows.Forms.ComboBox() + Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox() + Me.ListBoxObjekttypen = New System.Windows.Forms.ListBox() + Me.TBGI_CONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_DOKUMENTARTTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.TBDD_EINGANGSARTENTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_EINGANGSARTENTableAdapter() + Me.TBDD_DOKART_MODULETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_DOKART_MODULETableAdapter() + Me.TBDD_MODULESTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_MODULESTableAdapter() + Me.TBDD_INDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MANTableAdapter() + Me.TBDD_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter() + Me.TBGI_CONFIGURATIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_CONFIGURATIONTableAdapter() + Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter() + Me.TBDD_INDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter() + Me.TBWHDD_INDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBWHDD_INDEX_MANTableAdapter() + Me.TBDD_USER_GROUPSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_USER_GROUPSTableAdapter() + Me.VWGI_USER_GROUPS_RELATIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWGI_USER_GROUPS_RELATIONTableAdapter() + Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_GROUPS_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter() + Me.VWGI_DOCTYPE_GROUPTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWGI_DOCTYPE_GROUPTableAdapter() + GUIDLabel = New System.Windows.Forms.Label() + BEZEICHNUNGLabel = New System.Windows.Forms.Label() + EINGANGSART_IDLabel = New System.Windows.Forms.Label() + KURZNAMELabel = New System.Windows.Forms.Label() + ZIEL_PFADLabel = New System.Windows.Forms.Label() + BESCHREIBUNGLabel = New System.Windows.Forms.Label() + NAMENKONVENTIONLabel = New System.Windows.Forms.Label() + ERSTELLTWERLabel = New System.Windows.Forms.Label() + ERSTELLTWANNLabel = New System.Windows.Forms.Label() + GEANDERTWERLabel = New System.Windows.Forms.Label() + GEAENDERTWANNLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + WD_INDEXLabel = New System.Windows.Forms.Label() + COMMENTLabel = New System.Windows.Forms.Label() + DATATYPELabel = New System.Windows.Forms.Label() + DEFAULT_VALUELabel = New System.Windows.Forms.Label() + SEQUENCELabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + GUIDLabel2 = New System.Windows.Forms.Label() + PRENAMELabel = New System.Windows.Forms.Label() + NAMELabel1 = New System.Windows.Forms.Label() + USERNAMELabel = New System.Windows.Forms.Label() + EMAILLabel = New System.Windows.Forms.Label() + LOGGED_WHERELabel = New System.Windows.Forms.Label() + LOG_IN_WHENLabel = New System.Windows.Forms.Label() + LOG_OUT_WHENLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + GUIDLabel3 = New System.Windows.Forms.Label() + OBJECTTYPELabel = New System.Windows.Forms.Label() + IDX_EMAIL_IDLabel = New System.Windows.Forms.Label() + IDX_EMAIL_FROMLabel = New System.Windows.Forms.Label() + IDX_EMAIL_TOLabel = New System.Windows.Forms.Label() + IDX_EMAIL_SUBJECTLabel = New System.Windows.Forms.Label() + IDX_EMAIL_DATE_INLabel = New System.Windows.Forms.Label() + ADDED_WHOLabel2 = New System.Windows.Forms.Label() + ADDED_WHENLabel2 = New System.Windows.Forms.Label() + CHANGED_WHOLabel2 = New System.Windows.Forms.Label() + CHANGED_WHENLabel2 = New System.Windows.Forms.Label() + IDX_CHECK_ATTACHMENTLabel = New System.Windows.Forms.Label() + GUIDLabel4 = New System.Windows.Forms.Label() + INDEXNAMELabel = New System.Windows.Forms.Label() + COMMENTLabel1 = New System.Windows.Forms.Label() + ADDED_WHOLabel3 = New System.Windows.Forms.Label() + ADDED_WHENLabel3 = New System.Windows.Forms.Label() + CHANGED_WHOLabel3 = New System.Windows.Forms.Label() + CHANGED_WHENLabel3 = New System.Windows.Forms.Label() + GUIDLabel5 = New System.Windows.Forms.Label() + IDXMAN_IDLabel = New System.Windows.Forms.Label() + COMMENTLabel2 = New System.Windows.Forms.Label() + TYPELabel = New System.Windows.Forms.Label() + SEQUENCELabel1 = New System.Windows.Forms.Label() + ADDED_WHOLabel4 = New System.Windows.Forms.Label() + ADDED_WHENLabel4 = New System.Windows.Forms.Label() + CHANGED_WHOLabel4 = New System.Windows.Forms.Label() + CHANGED_WHENLabel4 = New System.Windows.Forms.Label() + GUIDLabel6 = New System.Windows.Forms.Label() + NAMELabel2 = New System.Windows.Forms.Label() + ADDED_WHOLabel5 = New System.Windows.Forms.Label() + ADDED_WHENLabel5 = New System.Windows.Forms.Label() + CHANGED_WHOLabel5 = New System.Windows.Forms.Label() + CHANGED_WHENLabel5 = New System.Windows.Forms.Label() + SEQUENCELabel3 = New System.Windows.Forms.Label() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl2.SuspendLayout() + Me.XtraTabPage3.SuspendLayout() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_MANBindingNav, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_INDEX_MANBindingNav.SuspendLayout() + Me.XtraTabPage6.SuspendLayout() + CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.SuspendLayout() + Me.XtraTabPage4.SuspendLayout() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + Me.XtraTabPage9.SuspendLayout() + Me.GroupBox3.SuspendLayout() + CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWGI_DOCTYPE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage10.SuspendLayout() + Me.GroupBox4.SuspendLayout() + Me.GroupBox5.SuspendLayout() + CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_MODULESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_DOKUMENTARTBindingNavigator.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl3.SuspendLayout() + Me.XtraTabPage7.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabPage8.SuspendLayout() + CType(Me.TBDD_USER_GROUPSBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_USER_GROUPSBindingNavigator.SuspendLayout() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + Me.XtraTabPage5.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel.Location = New System.Drawing.Point(263, 28) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(22, 15) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "ID:" + ' + 'BEZEICHNUNGLabel + ' + BEZEICHNUNGLabel.AutoSize = True + BEZEICHNUNGLabel.Location = New System.Drawing.Point(327, 28) + BEZEICHNUNGLabel.Name = "BEZEICHNUNGLabel" + BEZEICHNUNGLabel.Size = New System.Drawing.Size(78, 15) + BEZEICHNUNGLabel.TabIndex = 2 + BEZEICHNUNGLabel.Text = "Bezeichnung:" + ' + 'EINGANGSART_IDLabel + ' + EINGANGSART_IDLabel.AutoSize = True + EINGANGSART_IDLabel.Location = New System.Drawing.Point(620, 28) + EINGANGSART_IDLabel.Name = "EINGANGSART_IDLabel" + EINGANGSART_IDLabel.Size = New System.Drawing.Size(72, 15) + EINGANGSART_IDLabel.TabIndex = 4 + EINGANGSART_IDLabel.Text = "Eingangsart:" + ' + 'KURZNAMELabel + ' + KURZNAMELabel.AutoSize = True + KURZNAMELabel.Location = New System.Drawing.Point(264, 76) + KURZNAMELabel.Name = "KURZNAMELabel" + KURZNAMELabel.Size = New System.Drawing.Size(63, 15) + KURZNAMELabel.TabIndex = 6 + KURZNAMELabel.Text = "Kurzname:" + ' + 'ZIEL_PFADLabel + ' + ZIEL_PFADLabel.AutoSize = True + ZIEL_PFADLabel.Location = New System.Drawing.Point(264, 124) + ZIEL_PFADLabel.Name = "ZIEL_PFADLabel" + ZIEL_PFADLabel.Size = New System.Drawing.Size(53, 15) + ZIEL_PFADLabel.TabIndex = 8 + ZIEL_PFADLabel.Text = "Zielpfad:" + ' + 'BESCHREIBUNGLabel + ' + BESCHREIBUNGLabel.AutoSize = True + BESCHREIBUNGLabel.Location = New System.Drawing.Point(264, 168) + BESCHREIBUNGLabel.Name = "BESCHREIBUNGLabel" + BESCHREIBUNGLabel.Size = New System.Drawing.Size(82, 15) + BESCHREIBUNGLabel.TabIndex = 10 + BESCHREIBUNGLabel.Text = "Beschreibung:" + ' + 'NAMENKONVENTIONLabel + ' + NAMENKONVENTIONLabel.AutoSize = True + NAMENKONVENTIONLabel.Location = New System.Drawing.Point(264, 213) + NAMENKONVENTIONLabel.Name = "NAMENKONVENTIONLabel" + NAMENKONVENTIONLabel.Size = New System.Drawing.Size(109, 15) + NAMENKONVENTIONLabel.TabIndex = 14 + NAMENKONVENTIONLabel.Text = "Namenkonvention:" + ' + 'ERSTELLTWERLabel + ' + ERSTELLTWERLabel.AutoSize = True + ERSTELLTWERLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ERSTELLTWERLabel.Location = New System.Drawing.Point(265, 256) + ERSTELLTWERLabel.Name = "ERSTELLTWERLabel" + ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 15) + ERSTELLTWERLabel.TabIndex = 16 + ERSTELLTWERLabel.Text = "Erstellt wer:" + ' + 'ERSTELLTWANNLabel + ' + ERSTELLTWANNLabel.AutoSize = True + ERSTELLTWANNLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ERSTELLTWANNLabel.Location = New System.Drawing.Point(427, 258) + ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel" + ERSTELLTWANNLabel.Size = New System.Drawing.Size(78, 15) + ERSTELLTWANNLabel.TabIndex = 18 + ERSTELLTWANNLabel.Text = "Erstellt wann:" + ' + 'GEANDERTWERLabel + ' + GEANDERTWERLabel.AutoSize = True + GEANDERTWERLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GEANDERTWERLabel.Location = New System.Drawing.Point(672, 258) + GEANDERTWERLabel.Name = "GEANDERTWERLabel" + GEANDERTWERLabel.Size = New System.Drawing.Size(81, 15) + GEANDERTWERLabel.TabIndex = 20 + GEANDERTWERLabel.Text = "Geändert wer:" + ' + 'GEAENDERTWANNLabel + ' + GEAENDERTWANNLabel.AutoSize = True + GEAENDERTWANNLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GEAENDERTWANNLabel.Location = New System.Drawing.Point(842, 256) + GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" + GEAENDERTWANNLabel.Size = New System.Drawing.Size(92, 15) + GEAENDERTWANNLabel.TabIndex = 22 + GEAENDERTWANNLabel.Text = "Geändert wann:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel1.Location = New System.Drawing.Point(6, 30) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(22, 15) + GUIDLabel1.TabIndex = 0 + GUIDLabel1.Text = "ID:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Location = New System.Drawing.Point(159, 30) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(78, 15) + NAMELabel.TabIndex = 3 + NAMELabel.Text = "Bezeichnung:" + ' + 'WD_INDEXLabel + ' + WD_INDEXLabel.AutoSize = True + WD_INDEXLabel.Location = New System.Drawing.Point(395, 30) + WD_INDEXLabel.Name = "WD_INDEXLabel" + WD_INDEXLabel.Size = New System.Drawing.Size(62, 15) + WD_INDEXLabel.TabIndex = 5 + WD_INDEXLabel.Text = "WD-Index:" + ' + 'COMMENTLabel + ' + COMMENTLabel.AutoSize = True + COMMENTLabel.Location = New System.Drawing.Point(159, 74) + COMMENTLabel.Name = "COMMENTLabel" + COMMENTLabel.Size = New System.Drawing.Size(52, 15) + COMMENTLabel.TabIndex = 7 + COMMENTLabel.Text = "Hinweis:" + ' + 'DATATYPELabel + ' + DATATYPELabel.AutoSize = True + DATATYPELabel.Location = New System.Drawing.Point(159, 118) + DATATYPELabel.Name = "DATATYPELabel" + DATATYPELabel.Size = New System.Drawing.Size(58, 15) + DATATYPELabel.TabIndex = 9 + DATATYPELabel.Text = "Datentyp:" + ' + 'DEFAULT_VALUELabel + ' + DEFAULT_VALUELabel.AutoSize = True + DEFAULT_VALUELabel.Location = New System.Drawing.Point(159, 162) + DEFAULT_VALUELabel.Name = "DEFAULT_VALUELabel" + DEFAULT_VALUELabel.Size = New System.Drawing.Size(78, 15) + DEFAULT_VALUELabel.TabIndex = 12 + DEFAULT_VALUELabel.Text = "Default-Wert:" + ' + 'SEQUENCELabel + ' + SEQUENCELabel.AutoSize = True + SEQUENCELabel.Location = New System.Drawing.Point(635, 30) + SEQUENCELabel.Name = "SEQUENCELabel" + SEQUENCELabel.Size = New System.Drawing.Size(73, 15) + SEQUENCELabel.TabIndex = 16 + SEQUENCELabel.Text = "Reihenfolge:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel.Location = New System.Drawing.Point(159, 207) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 15) + ADDED_WHOLabel.TabIndex = 19 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel.Location = New System.Drawing.Point(321, 207) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(78, 15) + ADDED_WHENLabel.TabIndex = 21 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel.Location = New System.Drawing.Point(504, 207) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(81, 15) + CHANGED_WHOLabel.TabIndex = 23 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel.Location = New System.Drawing.Point(674, 207) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(92, 15) + CHANGED_WHENLabel.TabIndex = 25 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'GUIDLabel2 + ' + GUIDLabel2.AutoSize = True + GUIDLabel2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel2.Location = New System.Drawing.Point(11, 35) + GUIDLabel2.Name = "GUIDLabel2" + GUIDLabel2.Size = New System.Drawing.Size(20, 13) + GUIDLabel2.TabIndex = 3 + GUIDLabel2.Text = "ID:" + ' + 'PRENAMELabel + ' + PRENAMELabel.AutoSize = True + PRENAMELabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + PRENAMELabel.Location = New System.Drawing.Point(87, 35) + PRENAMELabel.Name = "PRENAMELabel" + PRENAMELabel.Size = New System.Drawing.Size(56, 13) + PRENAMELabel.TabIndex = 5 + PRENAMELabel.Text = "Vorname:" + ' + 'NAMELabel1 + ' + NAMELabel1.AutoSize = True + NAMELabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + NAMELabel1.Location = New System.Drawing.Point(296, 35) + NAMELabel1.Name = "NAMELabel1" + NAMELabel1.Size = New System.Drawing.Size(64, 13) + NAMELabel1.TabIndex = 7 + NAMELabel1.Text = "Nachname:" + ' + 'USERNAMELabel + ' + USERNAMELabel.AutoSize = True + USERNAMELabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + USERNAMELabel.Location = New System.Drawing.Point(559, 35) + USERNAMELabel.Name = "USERNAMELabel" + USERNAMELabel.Size = New System.Drawing.Size(61, 13) + USERNAMELabel.TabIndex = 9 + USERNAMELabel.Text = "Username:" + ' + 'EMAILLabel + ' + EMAILLabel.AutoSize = True + EMAILLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + EMAILLabel.Location = New System.Drawing.Point(87, 76) + EMAILLabel.Name = "EMAILLabel" + EMAILLabel.Size = New System.Drawing.Size(37, 13) + EMAILLabel.TabIndex = 11 + EMAILLabel.Text = "Email:" + ' + 'LOGGED_WHERELabel + ' + LOGGED_WHERELabel.AutoSize = True + LOGGED_WHERELabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LOGGED_WHERELabel.Location = New System.Drawing.Point(200, 117) + LOGGED_WHERELabel.Name = "LOGGED_WHERELabel" + LOGGED_WHERELabel.Size = New System.Drawing.Size(58, 13) + LOGGED_WHERELabel.TabIndex = 15 + LOGGED_WHERELabel.Text = "logged wo:" + ' + 'LOG_IN_WHENLabel + ' + LOG_IN_WHENLabel.AutoSize = True + LOG_IN_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LOG_IN_WHENLabel.Location = New System.Drawing.Point(362, 117) + LOG_IN_WHENLabel.Name = "LOG_IN_WHENLabel" + LOG_IN_WHENLabel.Size = New System.Drawing.Size(62, 13) + LOG_IN_WHENLabel.TabIndex = 17 + LOG_IN_WHENLabel.Text = "login wann:" + ' + 'LOG_OUT_WHENLabel + ' + LOG_OUT_WHENLabel.AutoSize = True + LOG_OUT_WHENLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + LOG_OUT_WHENLabel.Location = New System.Drawing.Point(559, 117) + LOG_OUT_WHENLabel.Name = "LOG_OUT_WHENLabel" + LOG_OUT_WHENLabel.Size = New System.Drawing.Size(69, 13) + LOG_OUT_WHENLabel.TabIndex = 19 + LOG_OUT_WHENLabel.Text = "logout wann:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel1.Location = New System.Drawing.Point(87, 158) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(61, 13) + ADDED_WHOLabel1.TabIndex = 23 + ADDED_WHOLabel1.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel1.Location = New System.Drawing.Point(200, 158) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(70, 13) + ADDED_WHENLabel1.TabIndex = 25 + ADDED_WHENLabel1.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel1.Location = New System.Drawing.Point(362, 158) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(73, 13) + CHANGED_WHOLabel1.TabIndex = 27 + CHANGED_WHOLabel1.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel1.Location = New System.Drawing.Point(559, 158) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(82, 13) + CHANGED_WHENLabel1.TabIndex = 29 + CHANGED_WHENLabel1.Text = "Geändert wann:" + ' + 'GUIDLabel3 + ' + GUIDLabel3.AutoSize = True + GUIDLabel3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel3.Location = New System.Drawing.Point(245, 44) + GUIDLabel3.Name = "GUIDLabel3" + GUIDLabel3.Size = New System.Drawing.Size(23, 17) + GUIDLabel3.TabIndex = 1 + GUIDLabel3.Text = "ID:" + ' + 'OBJECTTYPELabel + ' + OBJECTTYPELabel.AutoSize = True + OBJECTTYPELabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + OBJECTTYPELabel.Location = New System.Drawing.Point(336, 44) + OBJECTTYPELabel.Name = "OBJECTTYPELabel" + OBJECTTYPELabel.Size = New System.Drawing.Size(67, 17) + OBJECTTYPELabel.TabIndex = 3 + OBJECTTYPELabel.Text = "Objekttyp:" + ' + 'IDX_EMAIL_IDLabel + ' + IDX_EMAIL_IDLabel.AutoSize = True + IDX_EMAIL_IDLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + IDX_EMAIL_IDLabel.Location = New System.Drawing.Point(245, 92) + IDX_EMAIL_IDLabel.Name = "IDX_EMAIL_IDLabel" + IDX_EMAIL_IDLabel.Size = New System.Drawing.Size(136, 17) + IDX_EMAIL_IDLabel.TabIndex = 5 + IDX_EMAIL_IDLabel.Text = "Index für Message-ID:" + ' + 'IDX_EMAIL_FROMLabel + ' + IDX_EMAIL_FROMLabel.AutoSize = True + IDX_EMAIL_FROMLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + IDX_EMAIL_FROMLabel.Location = New System.Drawing.Point(442, 92) + IDX_EMAIL_FROMLabel.Name = "IDX_EMAIL_FROMLabel" + IDX_EMAIL_FROMLabel.Size = New System.Drawing.Size(135, 17) + IDX_EMAIL_FROMLabel.TabIndex = 7 + IDX_EMAIL_FROMLabel.Text = "Indexname Mail from:" + ' + 'IDX_EMAIL_TOLabel + ' + IDX_EMAIL_TOLabel.AutoSize = True + IDX_EMAIL_TOLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + IDX_EMAIL_TOLabel.Location = New System.Drawing.Point(245, 140) + IDX_EMAIL_TOLabel.Name = "IDX_EMAIL_TOLabel" + IDX_EMAIL_TOLabel.Size = New System.Drawing.Size(122, 17) + IDX_EMAIL_TOLabel.TabIndex = 9 + IDX_EMAIL_TOLabel.Text = "Indexname Mail To:" + ' + 'IDX_EMAIL_SUBJECTLabel + ' + IDX_EMAIL_SUBJECTLabel.AutoSize = True + IDX_EMAIL_SUBJECTLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + IDX_EMAIL_SUBJECTLabel.Location = New System.Drawing.Point(442, 140) + IDX_EMAIL_SUBJECTLabel.Name = "IDX_EMAIL_SUBJECTLabel" + IDX_EMAIL_SUBJECTLabel.Size = New System.Drawing.Size(149, 17) + IDX_EMAIL_SUBJECTLabel.TabIndex = 11 + IDX_EMAIL_SUBJECTLabel.Text = "Indexname Mail Subject:" + ' + 'IDX_EMAIL_DATE_INLabel + ' + IDX_EMAIL_DATE_INLabel.AutoSize = True + IDX_EMAIL_DATE_INLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + IDX_EMAIL_DATE_INLabel.Location = New System.Drawing.Point(245, 186) + IDX_EMAIL_DATE_INLabel.Name = "IDX_EMAIL_DATE_INLabel" + IDX_EMAIL_DATE_INLabel.Size = New System.Drawing.Size(119, 17) + IDX_EMAIL_DATE_INLabel.TabIndex = 13 + IDX_EMAIL_DATE_INLabel.Text = "Indexname Date In:" + ' + 'ADDED_WHOLabel2 + ' + ADDED_WHOLabel2.AutoSize = True + ADDED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel2.Location = New System.Drawing.Point(245, 234) + ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" + ADDED_WHOLabel2.Size = New System.Drawing.Size(74, 17) + ADDED_WHOLabel2.TabIndex = 15 + ADDED_WHOLabel2.Text = "Erstellt Wer:" + ' + 'ADDED_WHENLabel2 + ' + ADDED_WHENLabel2.AutoSize = True + ADDED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel2.Location = New System.Drawing.Point(442, 234) + ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" + ADDED_WHENLabel2.Size = New System.Drawing.Size(81, 17) + ADDED_WHENLabel2.TabIndex = 17 + ADDED_WHENLabel2.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel2 + ' + CHANGED_WHOLabel2.AutoSize = True + CHANGED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel2.Location = New System.Drawing.Point(245, 282) + CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" + CHANGED_WHOLabel2.Size = New System.Drawing.Size(89, 17) + CHANGED_WHOLabel2.TabIndex = 19 + CHANGED_WHOLabel2.Text = "Geändert Wer:" + ' + 'CHANGED_WHENLabel2 + ' + CHANGED_WHENLabel2.AutoSize = True + CHANGED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel2.Location = New System.Drawing.Point(442, 282) + CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" + CHANGED_WHENLabel2.Size = New System.Drawing.Size(96, 17) + CHANGED_WHENLabel2.TabIndex = 21 + CHANGED_WHENLabel2.Text = "Geändert wann:" + ' + 'IDX_CHECK_ATTACHMENTLabel + ' + IDX_CHECK_ATTACHMENTLabel.AutoSize = True + IDX_CHECK_ATTACHMENTLabel.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + IDX_CHECK_ATTACHMENTLabel.Location = New System.Drawing.Point(442, 186) + IDX_CHECK_ATTACHMENTLabel.Name = "IDX_CHECK_ATTACHMENTLabel" + IDX_CHECK_ATTACHMENTLabel.Size = New System.Drawing.Size(304, 17) + IDX_CHECK_ATTACHMENTLabel.TabIndex = 80 + IDX_CHECK_ATTACHMENTLabel.Text = "Indexname für die Markierung: Attachment Ja/Nein" + ' + 'GUIDLabel4 + ' + GUIDLabel4.AutoSize = True + GUIDLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel4.Location = New System.Drawing.Point(3, 47) + GUIDLabel4.Name = "GUIDLabel4" + GUIDLabel4.Size = New System.Drawing.Size(22, 15) + GUIDLabel4.TabIndex = 4 + GUIDLabel4.Text = "ID:" + ' + 'INDEXNAMELabel + ' + INDEXNAMELabel.AutoSize = True + INDEXNAMELabel.Location = New System.Drawing.Point(164, 47) + INDEXNAMELabel.Name = "INDEXNAMELabel" + INDEXNAMELabel.Size = New System.Drawing.Size(68, 15) + INDEXNAMELabel.TabIndex = 8 + INDEXNAMELabel.Text = "Indexname:" + ' + 'COMMENTLabel1 + ' + COMMENTLabel1.AutoSize = True + COMMENTLabel1.Location = New System.Drawing.Point(164, 93) + COMMENTLabel1.Name = "COMMENTLabel1" + COMMENTLabel1.Size = New System.Drawing.Size(81, 15) + COMMENTLabel1.TabIndex = 14 + COMMENTLabel1.Text = "Beschreibung:" + ' + 'ADDED_WHOLabel3 + ' + ADDED_WHOLabel3.AutoSize = True + ADDED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel3.Location = New System.Drawing.Point(164, 168) + ADDED_WHOLabel3.Name = "ADDED_WHOLabel3" + ADDED_WHOLabel3.Size = New System.Drawing.Size(67, 15) + ADDED_WHOLabel3.TabIndex = 18 + ADDED_WHOLabel3.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel3 + ' + ADDED_WHENLabel3.AutoSize = True + ADDED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel3.Location = New System.Drawing.Point(354, 168) + ADDED_WHENLabel3.Name = "ADDED_WHENLabel3" + ADDED_WHENLabel3.Size = New System.Drawing.Size(78, 15) + ADDED_WHENLabel3.TabIndex = 20 + ADDED_WHENLabel3.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel3 + ' + CHANGED_WHOLabel3.AutoSize = True + CHANGED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel3.Location = New System.Drawing.Point(164, 210) + CHANGED_WHOLabel3.Name = "CHANGED_WHOLabel3" + CHANGED_WHOLabel3.Size = New System.Drawing.Size(81, 15) + CHANGED_WHOLabel3.TabIndex = 22 + CHANGED_WHOLabel3.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel3 + ' + CHANGED_WHENLabel3.AutoSize = True + CHANGED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel3.Location = New System.Drawing.Point(354, 210) + CHANGED_WHENLabel3.Name = "CHANGED_WHENLabel3" + CHANGED_WHENLabel3.Size = New System.Drawing.Size(92, 15) + CHANGED_WHENLabel3.TabIndex = 24 + CHANGED_WHENLabel3.Text = "Geändert wann:" + ' + 'GUIDLabel5 + ' + GUIDLabel5.AutoSize = True + GUIDLabel5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel5.Location = New System.Drawing.Point(13, 36) + GUIDLabel5.Name = "GUIDLabel5" + GUIDLabel5.Size = New System.Drawing.Size(22, 15) + GUIDLabel5.TabIndex = 4 + GUIDLabel5.Text = "ID:" + ' + 'IDXMAN_IDLabel + ' + IDXMAN_IDLabel.AutoSize = True + IDXMAN_IDLabel.Location = New System.Drawing.Point(68, 36) + IDXMAN_IDLabel.Name = "IDXMAN_IDLabel" + IDXMAN_IDLabel.Size = New System.Drawing.Size(94, 15) + IDXMAN_IDLabel.TabIndex = 5 + IDXMAN_IDLabel.Text = "Manueller Index:" + ' + 'COMMENTLabel2 + ' + COMMENTLabel2.AutoSize = True + COMMENTLabel2.Location = New System.Drawing.Point(384, 36) + COMMENTLabel2.Name = "COMMENTLabel2" + COMMENTLabel2.Size = New System.Drawing.Size(73, 15) + COMMENTLabel2.TabIndex = 6 + COMMENTLabel2.Text = "Kommentar:" + ' + 'TYPELabel + ' + TYPELabel.AutoSize = True + TYPELabel.Location = New System.Drawing.Point(254, 35) + TYPELabel.Name = "TYPELabel" + TYPELabel.Size = New System.Drawing.Size(36, 15) + TYPELabel.TabIndex = 7 + TYPELabel.Text = "Type:" + ' + 'SEQUENCELabel1 + ' + SEQUENCELabel1.AutoSize = True + SEQUENCELabel1.Location = New System.Drawing.Point(13, 167) + SEQUENCELabel1.Name = "SEQUENCELabel1" + SEQUENCELabel1.Size = New System.Drawing.Size(73, 15) + SEQUENCELabel1.TabIndex = 19 + SEQUENCELabel1.Text = "Reihenfolge:" + ' + 'ADDED_WHOLabel4 + ' + ADDED_WHOLabel4.AutoSize = True + ADDED_WHOLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel4.Location = New System.Drawing.Point(13, 211) + ADDED_WHOLabel4.Name = "ADDED_WHOLabel4" + ADDED_WHOLabel4.Size = New System.Drawing.Size(67, 15) + ADDED_WHOLabel4.TabIndex = 21 + ADDED_WHOLabel4.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel4 + ' + ADDED_WHENLabel4.AutoSize = True + ADDED_WHENLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel4.Location = New System.Drawing.Point(184, 211) + ADDED_WHENLabel4.Name = "ADDED_WHENLabel4" + ADDED_WHENLabel4.Size = New System.Drawing.Size(78, 15) + ADDED_WHENLabel4.TabIndex = 23 + ADDED_WHENLabel4.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel4 + ' + CHANGED_WHOLabel4.AutoSize = True + CHANGED_WHOLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel4.Location = New System.Drawing.Point(384, 211) + CHANGED_WHOLabel4.Name = "CHANGED_WHOLabel4" + CHANGED_WHOLabel4.Size = New System.Drawing.Size(81, 15) + CHANGED_WHOLabel4.TabIndex = 25 + CHANGED_WHOLabel4.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel4 + ' + CHANGED_WHENLabel4.AutoSize = True + CHANGED_WHENLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel4.Location = New System.Drawing.Point(562, 211) + CHANGED_WHENLabel4.Name = "CHANGED_WHENLabel4" + CHANGED_WHENLabel4.Size = New System.Drawing.Size(92, 15) + CHANGED_WHENLabel4.TabIndex = 27 + CHANGED_WHENLabel4.Text = "Geändert wann:" + ' + 'GUIDLabel6 + ' + GUIDLabel6.AutoSize = True + GUIDLabel6.Enabled = False + GUIDLabel6.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel6.Location = New System.Drawing.Point(195, 32) + GUIDLabel6.Name = "GUIDLabel6" + GUIDLabel6.Size = New System.Drawing.Size(22, 15) + GUIDLabel6.TabIndex = 4 + GUIDLabel6.Text = "ID:" + ' + 'NAMELabel2 + ' + NAMELabel2.AutoSize = True + NAMELabel2.Location = New System.Drawing.Point(290, 32) + NAMELabel2.Name = "NAMELabel2" + NAMELabel2.Size = New System.Drawing.Size(94, 17) + NAMELabel2.TabIndex = 6 + NAMELabel2.Text = "Gruppenname:" + ' + 'ADDED_WHOLabel5 + ' + ADDED_WHOLabel5.AutoSize = True + ADDED_WHOLabel5.Enabled = False + ADDED_WHOLabel5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel5.Location = New System.Drawing.Point(195, 80) + ADDED_WHOLabel5.Name = "ADDED_WHOLabel5" + ADDED_WHOLabel5.Size = New System.Drawing.Size(67, 15) + ADDED_WHOLabel5.TabIndex = 8 + ADDED_WHOLabel5.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel5 + ' + ADDED_WHENLabel5.AutoSize = True + ADDED_WHENLabel5.Enabled = False + ADDED_WHENLabel5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel5.Location = New System.Drawing.Point(376, 80) + ADDED_WHENLabel5.Name = "ADDED_WHENLabel5" + ADDED_WHENLabel5.Size = New System.Drawing.Size(78, 15) + ADDED_WHENLabel5.TabIndex = 10 + ADDED_WHENLabel5.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel5 + ' + CHANGED_WHOLabel5.AutoSize = True + CHANGED_WHOLabel5.Enabled = False + CHANGED_WHOLabel5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel5.Location = New System.Drawing.Point(195, 124) + CHANGED_WHOLabel5.Name = "CHANGED_WHOLabel5" + CHANGED_WHOLabel5.Size = New System.Drawing.Size(81, 15) + CHANGED_WHOLabel5.TabIndex = 12 + CHANGED_WHOLabel5.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel5 + ' + CHANGED_WHENLabel5.AutoSize = True + CHANGED_WHENLabel5.Enabled = False + CHANGED_WHENLabel5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel5.Location = New System.Drawing.Point(376, 124) + CHANGED_WHENLabel5.Name = "CHANGED_WHENLabel5" + CHANGED_WHENLabel5.Size = New System.Drawing.Size(92, 15) + CHANGED_WHENLabel5.TabIndex = 14 + CHANGED_WHENLabel5.Text = "Geändert wann:" + ' + 'SEQUENCELabel3 + ' + SEQUENCELabel3.AutoSize = True + SEQUENCELabel3.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + SEQUENCELabel3.Location = New System.Drawing.Point(893, 28) + SEQUENCELabel3.Name = "SEQUENCELabel3" + SEQUENCELabel3.Size = New System.Drawing.Size(73, 15) + SEQUENCELabel3.TabIndex = 90 + SEQUENCELabel3.Text = "Reihenfolge:" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Location = New System.Drawing.Point(0, 632) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0) + Me.StatusStrip1.Size = New System.Drawing.Size(1141, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl1.AppearancePage.HeaderHotTracked.Options.UseFont = True + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 0) + Me.XtraTabControl1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(1141, 632) + Me.XtraTabControl1.TabIndex = 1 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage5}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Appearance.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabPage1.Appearance.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabPage1.Appearance.HeaderHotTracked.Font = New System.Drawing.Font("Tahoma", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabPage1.Appearance.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabPage1.Appearance.HeaderHotTracked.Options.UseFont = True + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(SEQUENCELabel3) + Me.XtraTabPage1.Controls.Add(Me.SEQUENCENumericUpDown) + Me.XtraTabPage1.Controls.Add(Me.WINDREAM_DIRECTCheckBox) + Me.XtraTabPage1.Controls.Add(Me.btndeleteZuordnung) + Me.XtraTabPage1.Controls.Add(Me.lblObjekttyp) + Me.XtraTabPage1.Controls.Add(Me.XtraTabControl2) + Me.XtraTabPage1.Controls.Add(Me.ComboBox1) + Me.XtraTabPage1.Controls.Add(Me.btnadd) + Me.XtraTabPage1.Controls.Add(Me.cmbWHModule) + Me.XtraTabPage1.Controls.Add(Me.Label2) + Me.XtraTabPage1.Controls.Add(Me.Label1) + Me.XtraTabPage1.Controls.Add(Me.ListBox2) + Me.XtraTabPage1.Controls.Add(Me.lblSaveDokart) + Me.XtraTabPage1.Controls.Add(Me.btnNamenkonvention) + Me.XtraTabPage1.Controls.Add(Me.Button1) + Me.XtraTabPage1.Controls.Add(Me.NAMENKONVENTIONTextBox) + Me.XtraTabPage1.Controls.Add(Me.ListBox1) + Me.XtraTabPage1.Controls.Add(Me.TBDD_DOKUMENTARTBindingNavigator) + Me.XtraTabPage1.Controls.Add(GUIDLabel) + Me.XtraTabPage1.Controls.Add(Me.DOKART_GUIDTextBox) + Me.XtraTabPage1.Controls.Add(BEZEICHNUNGLabel) + Me.XtraTabPage1.Controls.Add(Me.BEZEICHNUNGTextBox) + Me.XtraTabPage1.Controls.Add(EINGANGSART_IDLabel) + Me.XtraTabPage1.Controls.Add(KURZNAMELabel) + Me.XtraTabPage1.Controls.Add(Me.KURZNAMETextBox) + Me.XtraTabPage1.Controls.Add(ZIEL_PFADLabel) + Me.XtraTabPage1.Controls.Add(Me.ZIEL_PFADTextBox) + Me.XtraTabPage1.Controls.Add(BESCHREIBUNGLabel) + Me.XtraTabPage1.Controls.Add(Me.BESCHREIBUNGTextBox) + Me.XtraTabPage1.Controls.Add(Me.AKTIVCheckBox) + Me.XtraTabPage1.Controls.Add(NAMENKONVENTIONLabel) + Me.XtraTabPage1.Controls.Add(ERSTELLTWERLabel) + Me.XtraTabPage1.Controls.Add(Me.ERSTELLTWERTextBox) + Me.XtraTabPage1.Controls.Add(ERSTELLTWANNLabel) + Me.XtraTabPage1.Controls.Add(Me.ERSTELLTWANNTextBox) + Me.XtraTabPage1.Controls.Add(GEANDERTWERLabel) + Me.XtraTabPage1.Controls.Add(Me.GEANDERTWERTextBox) + Me.XtraTabPage1.Controls.Add(GEAENDERTWANNLabel) + Me.XtraTabPage1.Controls.Add(Me.GEAENDERTWANNTextBox) + Me.XtraTabPage1.Controls.Add(Me.OBJEKTTYPComboBox) + Me.XtraTabPage1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabPage1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(1135, 604) + Me.XtraTabPage1.Text = "Dokumentarten" + ' + 'SEQUENCENumericUpDown + ' + Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True)) + Me.SEQUENCENumericUpDown.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(896, 45) + Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" + Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(70, 24) + Me.SEQUENCENumericUpDown.TabIndex = 91 + ' + 'TBDD_DOKUMENTARTBindingSource + ' + Me.TBDD_DOKUMENTARTBindingSource.DataMember = "TBDD_DOKUMENTART" + Me.TBDD_DOKUMENTARTBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'WINDREAM_DIRECTCheckBox + ' + Me.WINDREAM_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "WINDREAM_DIRECT", True)) + Me.WINDREAM_DIRECTCheckBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.WINDREAM_DIRECTCheckBox.Location = New System.Drawing.Point(386, 93) + Me.WINDREAM_DIRECTCheckBox.Name = "WINDREAM_DIRECTCheckBox" + Me.WINDREAM_DIRECTCheckBox.Size = New System.Drawing.Size(130, 24) + Me.WINDREAM_DIRECTCheckBox.TabIndex = 89 + Me.WINDREAM_DIRECTCheckBox.Text = "Windream direkt" + Me.WINDREAM_DIRECTCheckBox.UseVisualStyleBackColor = True + ' + 'btndeleteZuordnung + ' + Me.btndeleteZuordnung.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.btndeleteZuordnung.Location = New System.Drawing.Point(212, 340) + Me.btndeleteZuordnung.Name = "btndeleteZuordnung" + Me.btndeleteZuordnung.Size = New System.Drawing.Size(28, 26) + Me.btndeleteZuordnung.TabIndex = 88 + Me.btndeleteZuordnung.UseVisualStyleBackColor = True + ' + 'lblObjekttyp + ' + Me.lblObjekttyp.AutoSize = True + Me.lblObjekttyp.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblObjekttyp.Location = New System.Drawing.Point(618, 76) + Me.lblObjekttyp.Name = "lblObjekttyp" + Me.lblObjekttyp.Size = New System.Drawing.Size(66, 15) + Me.lblObjekttyp.TabIndex = 87 + Me.lblObjekttyp.Text = "Objekttyp:" + ' + 'XtraTabControl2 + ' + Me.XtraTabControl2.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.XtraTabControl2.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabControl2.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl2.AppearancePage.HeaderHotTracked.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.XtraTabControl2.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl2.Location = New System.Drawing.Point(266, 315) + Me.XtraTabControl2.Name = "XtraTabControl2" + Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 + Me.XtraTabControl2.Size = New System.Drawing.Size(846, 281) + Me.XtraTabControl2.TabIndex = 86 + Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage6, Me.XtraTabPage4, Me.XtraTabPage9, Me.XtraTabPage10}) + ' + 'XtraTabPage3 + ' + Me.XtraTabPage3.AutoScroll = True + Me.XtraTabPage3.Controls.Add(Me.OPTIONALCheckBox) + Me.XtraTabPage3.Controls.Add(Me.ListBox5) + Me.XtraTabPage3.Controls.Add(Me.btnSQLView) + Me.XtraTabPage3.Controls.Add(Me.lblSaveIndexMan) + Me.XtraTabPage3.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPage3.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPage3.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPage3.Controls.Add(ADDED_WHOLabel) + Me.XtraTabPage3.Controls.Add(Me.ADDED_WHOTextBox) + Me.XtraTabPage3.Controls.Add(Me.ACTIVECheckBox) + Me.XtraTabPage3.Controls.Add(SEQUENCELabel) + Me.XtraTabPage3.Controls.Add(Me.SEQUENCETextBox) + Me.XtraTabPage3.Controls.Add(DEFAULT_VALUELabel) + Me.XtraTabPage3.Controls.Add(Me.DEFAULT_VALUETextBox) + Me.XtraTabPage3.Controls.Add(Me.SUGGESTIONCheckBox) + Me.XtraTabPage3.Controls.Add(DATATYPELabel) + Me.XtraTabPage3.Controls.Add(Me.DATATYPEComboBox) + Me.XtraTabPage3.Controls.Add(COMMENTLabel) + Me.XtraTabPage3.Controls.Add(Me.COMMENTTextBox) + Me.XtraTabPage3.Controls.Add(WD_INDEXLabel) + Me.XtraTabPage3.Controls.Add(Me.WD_INDEXComboBox) + Me.XtraTabPage3.Controls.Add(NAMELabel) + Me.XtraTabPage3.Controls.Add(Me.NAMETextBox) + Me.XtraTabPage3.Controls.Add(Me.TBDD_INDEX_MANBindingNav) + Me.XtraTabPage3.Controls.Add(GUIDLabel1) + Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1) + Me.XtraTabPage3.Name = "XtraTabPage3" + Me.XtraTabPage3.Size = New System.Drawing.Size(840, 253) + Me.XtraTabPage3.Text = "manuelle Indexe" + ' + 'OPTIONALCheckBox + ' + Me.OPTIONALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True)) + Me.OPTIONALCheckBox.Location = New System.Drawing.Point(638, 91) + Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox" + Me.OPTIONALCheckBox.Size = New System.Drawing.Size(77, 24) + Me.OPTIONALCheckBox.TabIndex = 90 + Me.OPTIONALCheckBox.Text = "Optional" + Me.OPTIONALCheckBox.UseVisualStyleBackColor = True + ' + 'TBDD_INDEX_MANBindingSource + ' + Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" + Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset + ' + 'ListBox5 + ' + Me.ListBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox5.DataSource = Me.TBDD_INDEX_MANBindingSource + Me.ListBox5.DisplayMember = "NAME" + Me.ListBox5.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox5.FormattingEnabled = True + Me.ListBox5.ItemHeight = 15 + Me.ListBox5.Location = New System.Drawing.Point(9, 92) + Me.ListBox5.Name = "ListBox5" + Me.ListBox5.Size = New System.Drawing.Size(146, 154) + Me.ListBox5.TabIndex = 81 + ' + 'btnSQLView + ' + Me.btnSQLView.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnSQLView.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSQLView.Location = New System.Drawing.Point(507, 135) + Me.btnSQLView.Name = "btnSQLView" + Me.btnSQLView.Size = New System.Drawing.Size(103, 23) + Me.btnSQLView.TabIndex = 80 + Me.btnSQLView.Text = "Show Config" + Me.btnSQLView.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSQLView.UseVisualStyleBackColor = True + Me.btnSQLView.Visible = False + ' + 'lblSaveIndexMan + ' + Me.lblSaveIndexMan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSaveIndexMan.AutoSize = True + Me.lblSaveIndexMan.BackColor = System.Drawing.Color.Yellow + Me.lblSaveIndexMan.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveIndexMan.Location = New System.Drawing.Point(504, 181) + Me.lblSaveIndexMan.Name = "lblSaveIndexMan" + Me.lblSaveIndexMan.Size = New System.Drawing.Size(192, 17) + Me.lblSaveIndexMan.TabIndex = 79 + Me.lblSaveIndexMan.Text = "Index erfolgreich gespeichert!" + Me.lblSaveIndexMan.Visible = False + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(677, 225) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(137, 23) + Me.CHANGED_WHENTextBox.TabIndex = 26 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(507, 225) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(148, 23) + Me.CHANGED_WHOTextBox.TabIndex = 24 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(324, 225) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(156, 23) + Me.ADDED_WHENTextBox.TabIndex = 22 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(162, 225) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(156, 23) + Me.ADDED_WHOTextBox.TabIndex = 20 + ' + 'ACTIVECheckBox + ' + Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox.Location = New System.Drawing.Point(723, 47) + Me.ACTIVECheckBox.Name = "ACTIVECheckBox" + Me.ACTIVECheckBox.Size = New System.Drawing.Size(61, 24) + Me.ACTIVECheckBox.TabIndex = 19 + Me.ACTIVECheckBox.Text = "Aktiv" + Me.ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'SEQUENCETextBox + ' + Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) + Me.SEQUENCETextBox.Location = New System.Drawing.Point(638, 48) + Me.SEQUENCETextBox.Name = "SEQUENCETextBox" + Me.SEQUENCETextBox.Size = New System.Drawing.Size(70, 23) + Me.SEQUENCETextBox.TabIndex = 17 + ' + 'DEFAULT_VALUETextBox + ' + Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True)) + Me.DEFAULT_VALUETextBox.Location = New System.Drawing.Point(162, 180) + Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox" + Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(318, 23) + Me.DEFAULT_VALUETextBox.TabIndex = 13 + ' + 'SUGGESTIONCheckBox + ' + Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True)) + Me.SUGGESTIONCheckBox.Location = New System.Drawing.Point(338, 136) + Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox" + Me.SUGGESTIONCheckBox.Size = New System.Drawing.Size(163, 24) + Me.SUGGESTIONCheckBox.TabIndex = 12 + Me.SUGGESTIONCheckBox.Text = "Vorschlagsliste per SQL" + Me.SUGGESTIONCheckBox.UseVisualStyleBackColor = True + ' + 'DATATYPEComboBox + ' + Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True)) + Me.DATATYPEComboBox.FormattingEnabled = True + Me.DATATYPEComboBox.Items.AddRange(New Object() {"DATE", "INTEGER", "VARCHAR"}) + Me.DATATYPEComboBox.Location = New System.Drawing.Point(162, 136) + Me.DATATYPEComboBox.Name = "DATATYPEComboBox" + Me.DATATYPEComboBox.Size = New System.Drawing.Size(145, 23) + Me.DATATYPEComboBox.TabIndex = 10 + ' + 'COMMENTTextBox + ' + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.Location = New System.Drawing.Point(162, 92) + Me.COMMENTTextBox.Name = "COMMENTTextBox" + Me.COMMENTTextBox.Size = New System.Drawing.Size(467, 23) + Me.COMMENTTextBox.TabIndex = 8 + ' + 'WD_INDEXComboBox + ' + Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True)) + Me.WD_INDEXComboBox.FormattingEnabled = True + Me.WD_INDEXComboBox.Location = New System.Drawing.Point(398, 48) + Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox" + Me.WD_INDEXComboBox.Size = New System.Drawing.Size(231, 23) + Me.WD_INDEXComboBox.TabIndex = 6 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(162, 48) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(230, 23) + Me.NAMETextBox.TabIndex = 4 + ' + 'TBDD_INDEX_MANBindingNav + ' + Me.TBDD_INDEX_MANBindingNav.AddNewItem = Me.ToolStripButton1 + Me.TBDD_INDEX_MANBindingNav.BindingSource = Me.TBDD_INDEX_MANBindingSource + Me.TBDD_INDEX_MANBindingNav.CountItem = Me.ToolStripLabel1 + Me.TBDD_INDEX_MANBindingNav.CountItemFormat = "von {0} manuellen Indexen" + Me.TBDD_INDEX_MANBindingNav.DeleteItem = Me.ToolStripButton2 + Me.TBDD_INDEX_MANBindingNav.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7}) + Me.TBDD_INDEX_MANBindingNav.Location = New System.Drawing.Point(0, 0) + Me.TBDD_INDEX_MANBindingNav.MoveFirstItem = Me.ToolStripButton3 + Me.TBDD_INDEX_MANBindingNav.MoveLastItem = Me.ToolStripButton6 + Me.TBDD_INDEX_MANBindingNav.MoveNextItem = Me.ToolStripButton5 + Me.TBDD_INDEX_MANBindingNav.MovePreviousItem = Me.ToolStripButton4 + Me.TBDD_INDEX_MANBindingNav.Name = "TBDD_INDEX_MANBindingNav" + Me.TBDD_INDEX_MANBindingNav.PositionItem = Me.ToolStripTextBox1 + Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(840, 25) + Me.TBDD_INDEX_MANBindingNav.TabIndex = 3 + Me.TBDD_INDEX_MANBindingNav.Text = "BindingNavigator1" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image) + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.RightToLeftAutoMirrorImage = True + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Neu hinzufügen" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(154, 22) + Me.ToolStripLabel1.Text = "von {0} manuellen Indexen" + Me.ToolStripLabel1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Löschen" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Erste verschieben" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton5.Text = "Nächste verschieben" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton6.Text = "Letzte verschieben" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton7 + ' + Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton7.Image = CType(resources.GetObject("ToolStripButton7.Image"), System.Drawing.Image) + Me.ToolStripButton7.Name = "ToolStripButton7" + Me.ToolStripButton7.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton7.Text = "Daten speichern" + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "GUID", True)) + Me.GUIDTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(9, 48) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.Size = New System.Drawing.Size(70, 23) + Me.GUIDTextBox1.TabIndex = 1 + ' + 'XtraTabPage6 + ' + Me.XtraTabPage6.AutoScroll = True + Me.XtraTabPage6.Controls.Add(Me.lblsavePostProcess) + Me.XtraTabPage6.Controls.Add(Me.ComboBox2) + Me.XtraTabPage6.Controls.Add(Me.Function2Label) + Me.XtraTabPage6.Controls.Add(Me.Function1Label) + Me.XtraTabPage6.Controls.Add(Me.Text3Label) + Me.XtraTabPage6.Controls.Add(Me.Text2Label) + Me.XtraTabPage6.Controls.Add(Me.Text1Label) + Me.XtraTabPage6.Controls.Add(CHANGED_WHENLabel4) + Me.XtraTabPage6.Controls.Add(Me.CHANGED_WHENTextBox4) + Me.XtraTabPage6.Controls.Add(CHANGED_WHOLabel4) + Me.XtraTabPage6.Controls.Add(Me.CHANGED_WHOTextBox4) + Me.XtraTabPage6.Controls.Add(ADDED_WHENLabel4) + Me.XtraTabPage6.Controls.Add(Me.ADDED_WHENTextBox4) + Me.XtraTabPage6.Controls.Add(ADDED_WHOLabel4) + Me.XtraTabPage6.Controls.Add(Me.ADDED_WHOTextBox4) + Me.XtraTabPage6.Controls.Add(SEQUENCELabel1) + Me.XtraTabPage6.Controls.Add(Me.SEQUENCETextBox1) + Me.XtraTabPage6.Controls.Add(Me.TEXT3TextBox) + Me.XtraTabPage6.Controls.Add(Me.TEXT2TextBox) + Me.XtraTabPage6.Controls.Add(Me.TEXT1TextBox) + Me.XtraTabPage6.Controls.Add(Me.FUNCTION2TextBox) + Me.XtraTabPage6.Controls.Add(Me.FUNCTION1TextBox) + Me.XtraTabPage6.Controls.Add(TYPELabel) + Me.XtraTabPage6.Controls.Add(Me.TYPEComboBox) + Me.XtraTabPage6.Controls.Add(COMMENTLabel2) + Me.XtraTabPage6.Controls.Add(Me.COMMENTTextBox2) + Me.XtraTabPage6.Controls.Add(IDXMAN_IDLabel) + Me.XtraTabPage6.Controls.Add(GUIDLabel5) + Me.XtraTabPage6.Controls.Add(Me.GUIDTextBox4) + Me.XtraTabPage6.Controls.Add(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator) + Me.XtraTabPage6.Name = "XtraTabPage6" + Me.XtraTabPage6.Size = New System.Drawing.Size(840, 253) + Me.XtraTabPage6.Text = "Nachbearbeitungsfunktionen manueller Index" + ' + 'lblsavePostProcess + ' + Me.lblsavePostProcess.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsavePostProcess.AutoSize = True + Me.lblsavePostProcess.BackColor = System.Drawing.Color.Yellow + Me.lblsavePostProcess.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 186) + Me.lblsavePostProcess.Name = "lblsavePostProcess" + Me.lblsavePostProcess.Size = New System.Drawing.Size(213, 17) + Me.lblsavePostProcess.TabIndex = 80 + Me.lblsavePostProcess.Text = "Funktion erfolgreich gespeichert!" + Me.lblsavePostProcess.Visible = False + ' + 'ComboBox2 + ' + Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "IDXMAN_ID", True)) + Me.ComboBox2.DataSource = Me.TBWHDD_INDEX_MANBindingSource + Me.ComboBox2.DisplayMember = "NAME" + Me.ComboBox2.FormattingEnabled = True + Me.ComboBox2.Location = New System.Drawing.Point(71, 53) + Me.ComboBox2.Name = "ComboBox2" + Me.ComboBox2.Size = New System.Drawing.Size(180, 23) + Me.ComboBox2.TabIndex = 34 + Me.ComboBox2.ValueMember = "GUID" + ' + 'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource + ' + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING" + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset + ' + 'TBWHDD_INDEX_MANBindingSource + ' + Me.TBWHDD_INDEX_MANBindingSource.DataMember = "TBWHDD_INDEX_MAN" + Me.TBWHDD_INDEX_MANBindingSource.DataSource = Me.MyDataset + ' + 'Function2Label + ' + Me.Function2Label.AutoSize = True + Me.Function2Label.Location = New System.Drawing.Point(388, 79) + Me.Function2Label.Name = "Function2Label" + Me.Function2Label.Size = New System.Drawing.Size(13, 15) + Me.Function2Label.TabIndex = 33 + Me.Function2Label.Text = "v" + ' + 'Function1Label + ' + Me.Function1Label.AutoSize = True + Me.Function1Label.Location = New System.Drawing.Point(13, 79) + Me.Function1Label.Name = "Function1Label" + Me.Function1Label.Size = New System.Drawing.Size(13, 15) + Me.Function1Label.TabIndex = 32 + Me.Function1Label.Text = "v" + ' + 'Text3Label + ' + Me.Text3Label.AutoSize = True + Me.Text3Label.Location = New System.Drawing.Point(384, 123) + Me.Text3Label.Name = "Text3Label" + Me.Text3Label.Size = New System.Drawing.Size(41, 15) + Me.Text3Label.TabIndex = 31 + Me.Text3Label.Text = "Label4" + ' + 'Text2Label + ' + Me.Text2Label.AutoSize = True + Me.Text2Label.Location = New System.Drawing.Point(184, 123) + Me.Text2Label.Name = "Text2Label" + Me.Text2Label.Size = New System.Drawing.Size(41, 15) + Me.Text2Label.TabIndex = 30 + Me.Text2Label.Text = "Label4" + ' + 'Text1Label + ' + Me.Text1Label.AutoSize = True + Me.Text1Label.Location = New System.Drawing.Point(16, 123) + Me.Text1Label.Name = "Text1Label" + Me.Text1Label.Size = New System.Drawing.Size(41, 15) + Me.Text1Label.TabIndex = 29 + Me.Text1Label.Text = "Label4" + ' + 'CHANGED_WHENTextBox4 + ' + Me.CHANGED_WHENTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox4.Location = New System.Drawing.Point(565, 227) + Me.CHANGED_WHENTextBox4.Name = "CHANGED_WHENTextBox4" + Me.CHANGED_WHENTextBox4.ReadOnly = True + Me.CHANGED_WHENTextBox4.Size = New System.Drawing.Size(194, 23) + Me.CHANGED_WHENTextBox4.TabIndex = 28 + ' + 'CHANGED_WHOTextBox4 + ' + Me.CHANGED_WHOTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox4.Location = New System.Drawing.Point(387, 227) + Me.CHANGED_WHOTextBox4.Name = "CHANGED_WHOTextBox4" + Me.CHANGED_WHOTextBox4.ReadOnly = True + Me.CHANGED_WHOTextBox4.Size = New System.Drawing.Size(172, 23) + Me.CHANGED_WHOTextBox4.TabIndex = 26 + ' + 'ADDED_WHENTextBox4 + ' + Me.ADDED_WHENTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox4.Location = New System.Drawing.Point(187, 227) + Me.ADDED_WHENTextBox4.Name = "ADDED_WHENTextBox4" + Me.ADDED_WHENTextBox4.ReadOnly = True + Me.ADDED_WHENTextBox4.Size = New System.Drawing.Size(152, 23) + Me.ADDED_WHENTextBox4.TabIndex = 24 + ' + 'ADDED_WHOTextBox4 + ' + Me.ADDED_WHOTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox4.Location = New System.Drawing.Point(16, 227) + Me.ADDED_WHOTextBox4.Name = "ADDED_WHOTextBox4" + Me.ADDED_WHOTextBox4.ReadOnly = True + Me.ADDED_WHOTextBox4.Size = New System.Drawing.Size(167, 23) + Me.ADDED_WHOTextBox4.TabIndex = 22 + ' + 'SEQUENCETextBox1 + ' + Me.SEQUENCETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "SEQUENCE", True)) + Me.SEQUENCETextBox1.Location = New System.Drawing.Point(16, 185) + Me.SEQUENCETextBox1.Name = "SEQUENCETextBox1" + Me.SEQUENCETextBox1.Size = New System.Drawing.Size(78, 23) + Me.SEQUENCETextBox1.TabIndex = 20 + ' + 'TEXT3TextBox + ' + Me.TEXT3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT3", True)) + Me.TEXT3TextBox.Location = New System.Drawing.Point(387, 141) + Me.TEXT3TextBox.Name = "TEXT3TextBox" + Me.TEXT3TextBox.Size = New System.Drawing.Size(169, 23) + Me.TEXT3TextBox.TabIndex = 18 + ' + 'TEXT2TextBox + ' + Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT2", True)) + Me.TEXT2TextBox.Location = New System.Drawing.Point(187, 141) + Me.TEXT2TextBox.Name = "TEXT2TextBox" + Me.TEXT2TextBox.Size = New System.Drawing.Size(191, 23) + Me.TEXT2TextBox.TabIndex = 16 + ' + 'TEXT1TextBox + ' + Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT1", True)) + Me.TEXT1TextBox.Location = New System.Drawing.Point(16, 141) + Me.TEXT1TextBox.Name = "TEXT1TextBox" + Me.TEXT1TextBox.Size = New System.Drawing.Size(167, 23) + Me.TEXT1TextBox.TabIndex = 14 + ' + 'FUNCTION2TextBox + ' + Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION2", True)) + Me.FUNCTION2TextBox.Location = New System.Drawing.Point(387, 97) + Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox" + Me.FUNCTION2TextBox.Size = New System.Drawing.Size(381, 23) + Me.FUNCTION2TextBox.TabIndex = 12 + ' + 'FUNCTION1TextBox + ' + Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION1", True)) + Me.FUNCTION1TextBox.Location = New System.Drawing.Point(16, 97) + Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox" + Me.FUNCTION1TextBox.Size = New System.Drawing.Size(362, 23) + Me.FUNCTION1TextBox.TabIndex = 10 + ' + 'TYPEComboBox + ' + Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TYPE", True)) + Me.TYPEComboBox.FormattingEnabled = True + Me.TYPEComboBox.Items.AddRange(New Object() {"VBREPLACE", "VBSPLIT"}) + Me.TYPEComboBox.Location = New System.Drawing.Point(257, 53) + Me.TYPEComboBox.Name = "TYPEComboBox" + Me.TYPEComboBox.Size = New System.Drawing.Size(121, 23) + Me.TYPEComboBox.TabIndex = 8 + ' + 'COMMENTTextBox2 + ' + Me.COMMENTTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "COMMENT", True)) + Me.COMMENTTextBox2.Location = New System.Drawing.Point(387, 54) + Me.COMMENTTextBox2.Name = "COMMENTTextBox2" + Me.COMMENTTextBox2.Size = New System.Drawing.Size(381, 23) + Me.COMMENTTextBox2.TabIndex = 7 + ' + 'GUIDTextBox4 + ' + Me.GUIDTextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "GUID", True)) + Me.GUIDTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox4.Location = New System.Drawing.Point(16, 53) + Me.GUIDTextBox4.Name = "GUIDTextBox4" + Me.GUIDTextBox4.ReadOnly = True + Me.GUIDTextBox4.Size = New System.Drawing.Size(49, 23) + Me.GUIDTextBox4.TabIndex = 5 + ' + 'TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator + ' + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.AddNewItem = Me.ToolStripButton24 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.BindingSource = Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.CountItem = Me.ToolStripLabel4 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.CountItemFormat = "von {0} Nachbearbeitungsfunktionen" + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.DeleteItem = Me.ToolStripButton25 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton26, Me.ToolStripButton27, Me.ToolStripSeparator10, Me.ToolStripTextBox4, Me.ToolStripLabel4, Me.ToolStripSeparator11, Me.ToolStripButton28, Me.ToolStripButton29, Me.ToolStripSeparator12, Me.ToolStripButton24, Me.ToolStripButton25, Me.ToolStripButton30, Me.ToolStripButton31}) + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MoveFirstItem = Me.ToolStripButton26 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MoveLastItem = Me.ToolStripButton29 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MoveNextItem = Me.ToolStripButton28 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MovePreviousItem = Me.ToolStripButton27 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Name = "TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator" + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.PositionItem = Me.ToolStripTextBox4 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(840, 25) + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TabIndex = 4 + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Text = "BindingNavigator1" + ' + 'ToolStripButton24 + ' + Me.ToolStripButton24.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton24.Image = CType(resources.GetObject("ToolStripButton24.Image"), System.Drawing.Image) + Me.ToolStripButton24.Name = "ToolStripButton24" + Me.ToolStripButton24.RightToLeftAutoMirrorImage = True + Me.ToolStripButton24.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton24.Text = "Neu hinzufügen" + ' + 'ToolStripLabel4 + ' + Me.ToolStripLabel4.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel4.Name = "ToolStripLabel4" + Me.ToolStripLabel4.Size = New System.Drawing.Size(213, 22) + Me.ToolStripLabel4.Text = "von {0} Nachbearbeitungsfunktionen" + Me.ToolStripLabel4.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton25 + ' + Me.ToolStripButton25.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton25.Image = CType(resources.GetObject("ToolStripButton25.Image"), System.Drawing.Image) + Me.ToolStripButton25.Name = "ToolStripButton25" + Me.ToolStripButton25.RightToLeftAutoMirrorImage = True + Me.ToolStripButton25.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton25.Text = "Löschen" + ' + 'ToolStripButton26 + ' + Me.ToolStripButton26.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton26.Image = CType(resources.GetObject("ToolStripButton26.Image"), System.Drawing.Image) + Me.ToolStripButton26.Name = "ToolStripButton26" + Me.ToolStripButton26.RightToLeftAutoMirrorImage = True + Me.ToolStripButton26.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton26.Text = "Erste verschieben" + ' + 'ToolStripButton27 + ' + Me.ToolStripButton27.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton27.Image = CType(resources.GetObject("ToolStripButton27.Image"), System.Drawing.Image) + Me.ToolStripButton27.Name = "ToolStripButton27" + Me.ToolStripButton27.RightToLeftAutoMirrorImage = True + Me.ToolStripButton27.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton27.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator10 + ' + Me.ToolStripSeparator10.Name = "ToolStripSeparator10" + Me.ToolStripSeparator10.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox4 + ' + Me.ToolStripTextBox4.AccessibleName = "Position" + Me.ToolStripTextBox4.AutoSize = False + Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripTextBox4.Name = "ToolStripTextBox4" + Me.ToolStripTextBox4.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox4.Text = "0" + Me.ToolStripTextBox4.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator11 + ' + Me.ToolStripSeparator11.Name = "ToolStripSeparator11" + Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton28 + ' + Me.ToolStripButton28.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton28.Image = CType(resources.GetObject("ToolStripButton28.Image"), System.Drawing.Image) + Me.ToolStripButton28.Name = "ToolStripButton28" + Me.ToolStripButton28.RightToLeftAutoMirrorImage = True + Me.ToolStripButton28.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton28.Text = "Nächste verschieben" + ' + 'ToolStripButton29 + ' + Me.ToolStripButton29.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton29.Image = CType(resources.GetObject("ToolStripButton29.Image"), System.Drawing.Image) + Me.ToolStripButton29.Name = "ToolStripButton29" + Me.ToolStripButton29.RightToLeftAutoMirrorImage = True + Me.ToolStripButton29.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton29.Text = "Letzte verschieben" + ' + 'ToolStripSeparator12 + ' + Me.ToolStripSeparator12.Name = "ToolStripSeparator12" + Me.ToolStripSeparator12.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton30 + ' + Me.ToolStripButton30.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton30.Image = CType(resources.GetObject("ToolStripButton30.Image"), System.Drawing.Image) + Me.ToolStripButton30.Name = "ToolStripButton30" + Me.ToolStripButton30.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton30.Text = "Daten speichern" + ' + 'ToolStripButton31 + ' + Me.ToolStripButton31.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton31.Image = Global.Global_Indexer.My.Resources.Resources.arrow_refresh + Me.ToolStripButton31.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton31.Name = "ToolStripButton31" + Me.ToolStripButton31.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton31.Text = "Refresh" + ' + 'XtraTabPage4 + ' + Me.XtraTabPage4.Appearance.Header.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.XtraTabPage4.Appearance.HeaderActive.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical + Me.XtraTabPage4.AutoScroll = True + Me.XtraTabPage4.Controls.Add(Me.ListBox6) + Me.XtraTabPage4.Controls.Add(Me.lblValue) + Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexCMB) + Me.XtraTabPage4.Controls.Add(Me.Label6) + Me.XtraTabPage4.Controls.Add(Me.lblsaveAutoIndex) + Me.XtraTabPage4.Controls.Add(Me.btnSQLViewAuto) + Me.XtraTabPage4.Controls.Add(Me.SQL_ACTIVECheckBox) + Me.XtraTabPage4.Controls.Add(GUIDLabel4) + Me.XtraTabPage4.Controls.Add(Me.GUIDAUTO_INDEXTextbox) + Me.XtraTabPage4.Controls.Add(INDEXNAMELabel) + Me.XtraTabPage4.Controls.Add(Me.VALUETextBox) + Me.XtraTabPage4.Controls.Add(COMMENTLabel1) + Me.XtraTabPage4.Controls.Add(Me.COMMENTTextBox1) + Me.XtraTabPage4.Controls.Add(Me.ACTIVECheckBox1) + Me.XtraTabPage4.Controls.Add(ADDED_WHOLabel3) + Me.XtraTabPage4.Controls.Add(Me.ADDED_WHOTextBox3) + Me.XtraTabPage4.Controls.Add(ADDED_WHENLabel3) + Me.XtraTabPage4.Controls.Add(Me.ADDED_WHENTextBox3) + Me.XtraTabPage4.Controls.Add(CHANGED_WHOLabel3) + Me.XtraTabPage4.Controls.Add(Me.CHANGED_WHOTextBox3) + Me.XtraTabPage4.Controls.Add(CHANGED_WHENLabel3) + Me.XtraTabPage4.Controls.Add(Me.CHANGED_WHENTextBox3) + Me.XtraTabPage4.Controls.Add(Me.BindingNavigator2) + Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexTXT) + Me.XtraTabPage4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabPage4.Name = "XtraTabPage4" + Me.XtraTabPage4.Size = New System.Drawing.Size(840, 253) + Me.XtraTabPage4.Text = "automatische Indexe" + ' + 'ListBox6 + ' + Me.ListBox6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.ListBox6.DataSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.ListBox6.DisplayMember = "INDEXNAME" + Me.ListBox6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox6.FormattingEnabled = True + Me.ListBox6.ItemHeight = 15 + Me.ListBox6.Location = New System.Drawing.Point(6, 94) + Me.ListBox6.Name = "ListBox6" + Me.ListBox6.Size = New System.Drawing.Size(146, 154) + Me.ListBox6.TabIndex = 86 + Me.ListBox6.ValueMember = "GUID" + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset + ' + 'lblValue + ' + Me.lblValue.AutoSize = True + Me.lblValue.Location = New System.Drawing.Point(353, 47) + Me.lblValue.Name = "lblValue" + Me.lblValue.Size = New System.Drawing.Size(69, 15) + Me.lblValue.TabIndex = 85 + Me.lblValue.Text = "Fester Wert:" + ' + 'INDEXNAME_AutoIndexCMB + ' + Me.INDEXNAME_AutoIndexCMB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) + Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True + Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 64) + Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB" + Me.INDEXNAME_AutoIndexCMB.Size = New System.Drawing.Size(183, 23) + Me.INDEXNAME_AutoIndexCMB.TabIndex = 84 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(3, 25) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(603, 15) + Me.Label6.TabIndex = 83 + Me.Label6.Text = "Automatische Indexe werden nach den manuellen Indizes durchlaufen und ergänzen be" & _ + "i Bedarf den Dateinamen." + ' + 'lblsaveAutoIndex + ' + Me.lblsaveAutoIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsaveAutoIndex.AutoSize = True + Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow + Me.lblsaveAutoIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsaveAutoIndex.Location = New System.Drawing.Point(601, 66) + Me.lblsaveAutoIndex.Name = "lblsaveAutoIndex" + Me.lblsaveAutoIndex.Size = New System.Drawing.Size(192, 17) + Me.lblsaveAutoIndex.TabIndex = 82 + Me.lblsaveAutoIndex.Text = "Index erfolgreich gespeichert!" + Me.lblsaveAutoIndex.Visible = False + ' + 'btnSQLViewAuto + ' + Me.btnSQLViewAuto.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnSQLViewAuto.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSQLViewAuto.Location = New System.Drawing.Point(377, 138) + Me.btnSQLViewAuto.Name = "btnSQLViewAuto" + Me.btnSQLViewAuto.Size = New System.Drawing.Size(148, 24) + Me.btnSQLViewAuto.TabIndex = 81 + Me.btnSQLViewAuto.Text = "Show SQL-Config" + Me.btnSQLViewAuto.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSQLViewAuto.UseVisualStyleBackColor = True + Me.btnSQLViewAuto.Visible = False + ' + 'SQL_ACTIVECheckBox + ' + Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True)) + Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(167, 141) + Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox" + Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(198, 24) + Me.SQL_ACTIVECheckBox.TabIndex = 29 + Me.SQL_ACTIVECheckBox.Text = "Automatischer Index per SQL?" + Me.SQL_ACTIVECheckBox.UseVisualStyleBackColor = True + ' + 'GUIDAUTO_INDEXTextbox + ' + Me.GUIDAUTO_INDEXTextbox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "GUID", True)) + Me.GUIDAUTO_INDEXTextbox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDAUTO_INDEXTextbox.Location = New System.Drawing.Point(6, 64) + Me.GUIDAUTO_INDEXTextbox.Name = "GUIDAUTO_INDEXTextbox" + Me.GUIDAUTO_INDEXTextbox.ReadOnly = True + Me.GUIDAUTO_INDEXTextbox.Size = New System.Drawing.Size(53, 23) + Me.GUIDAUTO_INDEXTextbox.TabIndex = 5 + ' + 'VALUETextBox + ' + Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True)) + Me.VALUETextBox.Location = New System.Drawing.Point(356, 65) + Me.VALUETextBox.Name = "VALUETextBox" + Me.VALUETextBox.Size = New System.Drawing.Size(171, 23) + Me.VALUETextBox.TabIndex = 11 + ' + 'COMMENTTextBox1 + ' + Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True)) + Me.COMMENTTextBox1.Location = New System.Drawing.Point(167, 111) + Me.COMMENTTextBox1.Name = "COMMENTTextBox1" + Me.COMMENTTextBox1.Size = New System.Drawing.Size(419, 23) + Me.COMMENTTextBox1.TabIndex = 15 + ' + 'ACTIVECheckBox1 + ' + Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True)) + Me.ACTIVECheckBox1.Location = New System.Drawing.Point(533, 64) + Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" + Me.ACTIVECheckBox1.Size = New System.Drawing.Size(63, 24) + Me.ACTIVECheckBox1.TabIndex = 17 + Me.ACTIVECheckBox1.Text = "Aktiv" + Me.ACTIVECheckBox1.UseVisualStyleBackColor = True + ' + 'ADDED_WHOTextBox3 + ' + Me.ADDED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(167, 184) + Me.ADDED_WHOTextBox3.Name = "ADDED_WHOTextBox3" + Me.ADDED_WHOTextBox3.ReadOnly = True + Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(172, 23) + Me.ADDED_WHOTextBox3.TabIndex = 19 + ' + 'ADDED_WHENTextBox3 + ' + Me.ADDED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(357, 184) + Me.ADDED_WHENTextBox3.Name = "ADDED_WHENTextBox3" + Me.ADDED_WHENTextBox3.ReadOnly = True + Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(168, 23) + Me.ADDED_WHENTextBox3.TabIndex = 21 + ' + 'CHANGED_WHOTextBox3 + ' + Me.CHANGED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox3.Location = New System.Drawing.Point(167, 228) + Me.CHANGED_WHOTextBox3.Name = "CHANGED_WHOTextBox3" + Me.CHANGED_WHOTextBox3.ReadOnly = True + Me.CHANGED_WHOTextBox3.Size = New System.Drawing.Size(172, 23) + Me.CHANGED_WHOTextBox3.TabIndex = 23 + ' + 'CHANGED_WHENTextBox3 + ' + Me.CHANGED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(357, 228) + Me.CHANGED_WHENTextBox3.Name = "CHANGED_WHENTextBox3" + Me.CHANGED_WHENTextBox3.ReadOnly = True + Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(168, 23) + Me.CHANGED_WHENTextBox3.TabIndex = 25 + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Me.ToolStripButton16 + Me.BindingNavigator2.BindingSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.BindingNavigator2.CountItem = Me.ToolStripLabel3 + Me.BindingNavigator2.CountItemFormat = "von {0} automatischen Indexen" + Me.BindingNavigator2.DeleteItem = Me.ToolStripButton17 + Me.BindingNavigator2.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton18, Me.ToolStripButton19, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton20, Me.ToolStripButton21, Me.ToolStripSeparator9, Me.ToolStripButton16, Me.ToolStripButton17, Me.ToolStripButton22}) + Me.BindingNavigator2.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton18 + Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton21 + Me.BindingNavigator2.MoveNextItem = Me.ToolStripButton20 + Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton19 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3 + Me.BindingNavigator2.Size = New System.Drawing.Size(840, 25) + Me.BindingNavigator2.TabIndex = 4 + Me.BindingNavigator2.Text = "BindingNavigator1" + ' + 'ToolStripButton16 + ' + Me.ToolStripButton16.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton16.Image = CType(resources.GetObject("ToolStripButton16.Image"), System.Drawing.Image) + Me.ToolStripButton16.Name = "ToolStripButton16" + Me.ToolStripButton16.RightToLeftAutoMirrorImage = True + Me.ToolStripButton16.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton16.Text = "Neu hinzufügen" + ' + 'ToolStripLabel3 + ' + Me.ToolStripLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel3.Name = "ToolStripLabel3" + Me.ToolStripLabel3.Size = New System.Drawing.Size(179, 22) + Me.ToolStripLabel3.Text = "von {0} automatischen Indexen" + Me.ToolStripLabel3.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton17 + ' + Me.ToolStripButton17.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton17.Image = CType(resources.GetObject("ToolStripButton17.Image"), System.Drawing.Image) + Me.ToolStripButton17.Name = "ToolStripButton17" + Me.ToolStripButton17.RightToLeftAutoMirrorImage = True + Me.ToolStripButton17.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton17.Text = "Löschen" + ' + 'ToolStripButton18 + ' + Me.ToolStripButton18.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton18.Image = CType(resources.GetObject("ToolStripButton18.Image"), System.Drawing.Image) + Me.ToolStripButton18.Name = "ToolStripButton18" + Me.ToolStripButton18.RightToLeftAutoMirrorImage = True + Me.ToolStripButton18.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton18.Text = "Erste verschieben" + ' + 'ToolStripButton19 + ' + Me.ToolStripButton19.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton19.Image = CType(resources.GetObject("ToolStripButton19.Image"), System.Drawing.Image) + Me.ToolStripButton19.Name = "ToolStripButton19" + Me.ToolStripButton19.RightToLeftAutoMirrorImage = True + Me.ToolStripButton19.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton19.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator7 + ' + Me.ToolStripSeparator7.Name = "ToolStripSeparator7" + Me.ToolStripSeparator7.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox3 + ' + Me.ToolStripTextBox3.AccessibleName = "Position" + Me.ToolStripTextBox3.AutoSize = False + Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripTextBox3.Name = "ToolStripTextBox3" + Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox3.Text = "0" + Me.ToolStripTextBox3.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator8 + ' + Me.ToolStripSeparator8.Name = "ToolStripSeparator8" + Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton20 + ' + Me.ToolStripButton20.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton20.Image = CType(resources.GetObject("ToolStripButton20.Image"), System.Drawing.Image) + Me.ToolStripButton20.Name = "ToolStripButton20" + Me.ToolStripButton20.RightToLeftAutoMirrorImage = True + Me.ToolStripButton20.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton20.Text = "Nächste verschieben" + ' + 'ToolStripButton21 + ' + Me.ToolStripButton21.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton21.Image = CType(resources.GetObject("ToolStripButton21.Image"), System.Drawing.Image) + Me.ToolStripButton21.Name = "ToolStripButton21" + Me.ToolStripButton21.RightToLeftAutoMirrorImage = True + Me.ToolStripButton21.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton21.Text = "Letzte verschieben" + ' + 'ToolStripSeparator9 + ' + Me.ToolStripSeparator9.Name = "ToolStripSeparator9" + Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton22 + ' + Me.ToolStripButton22.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton22.Image = CType(resources.GetObject("ToolStripButton22.Image"), System.Drawing.Image) + Me.ToolStripButton22.Name = "ToolStripButton22" + Me.ToolStripButton22.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton22.Text = "Daten speichern" + ' + 'INDEXNAME_AutoIndexTXT + ' + Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) + Me.INDEXNAME_AutoIndexTXT.Location = New System.Drawing.Point(167, 64) + Me.INDEXNAME_AutoIndexTXT.Name = "INDEXNAME_AutoIndexTXT" + Me.INDEXNAME_AutoIndexTXT.Size = New System.Drawing.Size(183, 23) + Me.INDEXNAME_AutoIndexTXT.TabIndex = 28 + ' + 'XtraTabPage9 + ' + Me.XtraTabPage9.Controls.Add(Me.Button2) + Me.XtraTabPage9.Controls.Add(Me.GroupBox3) + Me.XtraTabPage9.Controls.Add(Me.Label8) + Me.XtraTabPage9.Controls.Add(Me.ListBoxDokartzuordnung) + Me.XtraTabPage9.Name = "XtraTabPage9" + Me.XtraTabPage9.Size = New System.Drawing.Size(840, 253) + Me.XtraTabPage9.Text = "Zuordnung Dokumentenart-Gruppe" + ' + 'Button2 + ' + Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button2.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(275, 152) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 23) + Me.Button2.TabIndex = 15 + Me.Button2.Text = "Löschen" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.BackColor = System.Drawing.Color.WhiteSmoke + Me.GroupBox3.Controls.Add(Me.lblnewDokartZuordnung) + Me.GroupBox3.Controls.Add(Me.Label7) + Me.GroupBox3.Controls.Add(Me.cmbGroup2Dokart) + Me.GroupBox3.Controls.Add(Me.btnAddDokartGroupRelation) + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(275, 28) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(235, 118) + Me.GroupBox3.TabIndex = 14 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Neue Gruppenzuordnung:" + ' + 'lblnewDokartZuordnung + ' + Me.lblnewDokartZuordnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblnewDokartZuordnung.AutoSize = True + Me.lblnewDokartZuordnung.BackColor = System.Drawing.Color.Yellow + Me.lblnewDokartZuordnung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblnewDokartZuordnung.Location = New System.Drawing.Point(13, 92) + Me.lblnewDokartZuordnung.Name = "lblnewDokartZuordnung" + Me.lblnewDokartZuordnung.Size = New System.Drawing.Size(179, 13) + Me.lblnewDokartZuordnung.TabIndex = 80 + Me.lblnewDokartZuordnung.Text = "Zuordnung erfolgreich gespeichert!" + Me.lblnewDokartZuordnung.Visible = False + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(8, 19) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(108, 15) + Me.Label7.TabIndex = 11 + Me.Label7.Text = "Gruppe auswählen:" + ' + 'cmbGroup2Dokart + ' + Me.cmbGroup2Dokart.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.cmbGroup2Dokart.DisplayMember = "NAME" + Me.cmbGroup2Dokart.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbGroup2Dokart.FormattingEnabled = True + Me.cmbGroup2Dokart.Location = New System.Drawing.Point(11, 37) + Me.cmbGroup2Dokart.Name = "cmbGroup2Dokart" + Me.cmbGroup2Dokart.Size = New System.Drawing.Size(218, 23) + Me.cmbGroup2Dokart.TabIndex = 8 + Me.cmbGroup2Dokart.ValueMember = "GUID" + ' + 'TBDD_USER_GROUPSBindingSource + ' + Me.TBDD_USER_GROUPSBindingSource.DataMember = "TBDD_USER_GROUPS" + Me.TBDD_USER_GROUPSBindingSource.DataSource = Me.MyDataset + ' + 'btnAddDokartGroupRelation + ' + Me.btnAddDokartGroupRelation.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddDokartGroupRelation.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnAddDokartGroupRelation.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddDokartGroupRelation.Location = New System.Drawing.Point(11, 66) + Me.btnAddDokartGroupRelation.Name = "btnAddDokartGroupRelation" + Me.btnAddDokartGroupRelation.Size = New System.Drawing.Size(219, 23) + Me.btnAddDokartGroupRelation.TabIndex = 9 + Me.btnAddDokartGroupRelation.Text = "Dokumentart zu Gruppe hinzufügen" + Me.btnAddDokartGroupRelation.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddDokartGroupRelation.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(5, 8) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(299, 15) + Me.Label8.TabIndex = 13 + Me.Label8.Text = "Die Dokumentart ist zu folgenden Gruppen zugeordnet:" + ' + 'ListBoxDokartzuordnung + ' + Me.ListBoxDokartzuordnung.DataSource = Me.VWGI_DOCTYPE_GROUPBindingSource + Me.ListBoxDokartzuordnung.DisplayMember = "GROUP" + Me.ListBoxDokartzuordnung.FormattingEnabled = True + Me.ListBoxDokartzuordnung.ItemHeight = 15 + Me.ListBoxDokartzuordnung.Location = New System.Drawing.Point(8, 28) + Me.ListBoxDokartzuordnung.Name = "ListBoxDokartzuordnung" + Me.ListBoxDokartzuordnung.Size = New System.Drawing.Size(255, 169) + Me.ListBoxDokartzuordnung.TabIndex = 12 + Me.ListBoxDokartzuordnung.ValueMember = "GUID" + ' + 'VWGI_DOCTYPE_GROUPBindingSource + ' + Me.VWGI_DOCTYPE_GROUPBindingSource.DataMember = "VWGI_DOCTYPE_GROUP" + Me.VWGI_DOCTYPE_GROUPBindingSource.DataSource = Me.MyDataset + ' + 'XtraTabPage10 + ' + Me.XtraTabPage10.Controls.Add(Me.GroupBox4) + Me.XtraTabPage10.Name = "XtraTabPage10" + Me.XtraTabPage10.Size = New System.Drawing.Size(840, 253) + Me.XtraTabPage10.Text = "Create Folder for Index" + ' + 'GroupBox4 + ' + Me.GroupBox4.Controls.Add(Me.FOLDER_FOR_INDEXTextBox) + Me.GroupBox4.Controls.Add(Me.Label25) + Me.GroupBox4.Controls.Add(Me.btncrFolder_delete) + Me.GroupBox4.Controls.Add(Me.GroupBox5) + Me.GroupBox4.Controls.Add(Me.Label17) + Me.GroupBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox4.Location = New System.Drawing.Point(3, 3) + Me.GroupBox4.Name = "GroupBox4" + Me.GroupBox4.Size = New System.Drawing.Size(820, 228) + Me.GroupBox4.TabIndex = 81 + Me.GroupBox4.TabStop = False + Me.GroupBox4.Text = "Create Folder for Index" + ' + 'FOLDER_FOR_INDEXTextBox + ' + Me.FOLDER_FOR_INDEXTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "FOLDER_FOR_INDEX", True)) + Me.FOLDER_FOR_INDEXTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FOLDER_FOR_INDEXTextBox.Location = New System.Drawing.Point(12, 40) + Me.FOLDER_FOR_INDEXTextBox.Name = "FOLDER_FOR_INDEXTextBox" + Me.FOLDER_FOR_INDEXTextBox.Size = New System.Drawing.Size(493, 22) + Me.FOLDER_FOR_INDEXTextBox.TabIndex = 11 + ' + 'Label25 + ' + Me.Label25.AutoSize = True + Me.Label25.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label25.Location = New System.Drawing.Point(9, 66) + Me.Label25.Name = "Label25" + Me.Label25.Size = New System.Drawing.Size(346, 13) + Me.Label25.TabIndex = 10 + Me.Label25.Text = "Inhalte von Datum-Indizes werden automatisch YYYYMMDD konvertiert" + ' + 'btncrFolder_delete + ' + Me.btncrFolder_delete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.btncrFolder_delete.Location = New System.Drawing.Point(511, 38) + Me.btncrFolder_delete.Name = "btncrFolder_delete" + Me.btncrFolder_delete.Size = New System.Drawing.Size(31, 23) + Me.btncrFolder_delete.TabIndex = 9 + Me.btncrFolder_delete.UseVisualStyleBackColor = True + ' + 'GroupBox5 + ' + Me.GroupBox5.Controls.Add(Me.cmbCrFolderDate) + Me.GroupBox5.Controls.Add(Me.Label20) + Me.GroupBox5.Controls.Add(Me.btnaddcrFolderParameter) + Me.GroupBox5.Controls.Add(Me.txtcrFoldermanuell) + Me.GroupBox5.Controls.Add(Me.Label19) + Me.GroupBox5.Controls.Add(Me.Label18) + Me.GroupBox5.Controls.Add(Me.cmbCrFolderIndex) + Me.GroupBox5.Location = New System.Drawing.Point(12, 92) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.Size = New System.Drawing.Size(530, 130) + Me.GroupBox5.TabIndex = 8 + Me.GroupBox5.TabStop = False + Me.GroupBox5.Text = "Neuer Unterordner:" + ' + 'cmbCrFolderDate + ' + Me.cmbCrFolderDate.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbCrFolderDate.FormattingEnabled = True + Me.cmbCrFolderDate.Items.AddRange(New Object() {"YYYY/MM/DD", "YYYY/MM", "YYYY", "YYYY-MM"}) + Me.cmbCrFolderDate.Location = New System.Drawing.Point(9, 86) + Me.cmbCrFolderDate.Name = "cmbCrFolderDate" + Me.cmbCrFolderDate.Size = New System.Drawing.Size(188, 23) + Me.cmbCrFolderDate.TabIndex = 6 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label20.Location = New System.Drawing.Point(6, 68) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(97, 15) + Me.Label20.TabIndex = 5 + Me.Label20.Text = "Datum-Struktur:" + ' + 'btnaddcrFolderParameter + ' + Me.btnaddcrFolderParameter.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnaddcrFolderParameter.Image = Global.Global_Indexer.My.Resources.Resources.folder_link + Me.btnaddcrFolderParameter.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnaddcrFolderParameter.Location = New System.Drawing.Point(302, 38) + Me.btnaddcrFolderParameter.Name = "btnaddcrFolderParameter" + Me.btnaddcrFolderParameter.Size = New System.Drawing.Size(191, 28) + Me.btnaddcrFolderParameter.TabIndex = 4 + Me.btnaddcrFolderParameter.Text = "Ordner anhängen" + Me.btnaddcrFolderParameter.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnaddcrFolderParameter.UseVisualStyleBackColor = True + ' + 'txtcrFoldermanuell + ' + Me.txtcrFoldermanuell.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtcrFoldermanuell.Location = New System.Drawing.Point(208, 86) + Me.txtcrFoldermanuell.Name = "txtcrFoldermanuell" + Me.txtcrFoldermanuell.Size = New System.Drawing.Size(188, 23) + Me.txtcrFoldermanuell.TabIndex = 3 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(205, 68) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(82, 15) + Me.Label19.TabIndex = 2 + Me.Label19.Text = "oder manuell:" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label18.Location = New System.Drawing.Point(6, 24) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(204, 15) + Me.Label18.TabIndex = 1 + Me.Label18.Text = "aus Index-Wert (auto oder manuell):" + ' + 'cmbCrFolderIndex + ' + Me.cmbCrFolderIndex.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbCrFolderIndex.FormattingEnabled = True + Me.cmbCrFolderIndex.Location = New System.Drawing.Point(9, 42) + Me.cmbCrFolderIndex.Name = "cmbCrFolderIndex" + Me.cmbCrFolderIndex.Size = New System.Drawing.Size(188, 23) + Me.cmbCrFolderIndex.TabIndex = 0 + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(9, 22) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(124, 15) + Me.Label17.TabIndex = 7 + Me.Label17.Text = "Variabler Ordnerpfad" + ' + 'ComboBox1 + ' + Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "EINGANGSART_ID", True)) + Me.ComboBox1.DataSource = Me.TBDD_EINGANGSARTENBindingSource + Me.ComboBox1.DisplayMember = "BEZEICHNUNG" + Me.ComboBox1.FormattingEnabled = True + Me.ComboBox1.Location = New System.Drawing.Point(621, 46) + Me.ComboBox1.Name = "ComboBox1" + Me.ComboBox1.Size = New System.Drawing.Size(266, 23) + Me.ComboBox1.TabIndex = 85 + Me.ComboBox1.ValueMember = "GUID" + ' + 'TBDD_EINGANGSARTENBindingSource + ' + Me.TBDD_EINGANGSARTENBindingSource.DataMember = "TBDD_EINGANGSARTEN" + Me.TBDD_EINGANGSARTENBindingSource.DataSource = Me.MyDataset + ' + 'btnadd + ' + Me.btnadd.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnadd.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnadd.Location = New System.Drawing.Point(172, 475) + Me.btnadd.Name = "btnadd" + Me.btnadd.Size = New System.Drawing.Size(71, 23) + Me.btnadd.TabIndex = 84 + Me.btnadd.Text = "Add" + Me.btnadd.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnadd.UseVisualStyleBackColor = True + ' + 'cmbWHModule + ' + Me.cmbWHModule.DataSource = Me.TBDD_MODULESBindingSource + Me.cmbWHModule.DisplayMember = "NAME" + Me.cmbWHModule.FormattingEnabled = True + Me.cmbWHModule.Location = New System.Drawing.Point(3, 475) + Me.cmbWHModule.Name = "cmbWHModule" + Me.cmbWHModule.Size = New System.Drawing.Size(163, 23) + Me.cmbWHModule.TabIndex = 82 + Me.cmbWHModule.ValueMember = "GUID" + ' + 'TBDD_MODULESBindingSource + ' + Me.TBDD_MODULESBindingSource.DataMember = "TBDD_MODULES" + Me.TBDD_MODULESBindingSource.DataSource = Me.MyDataset + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(3, 457) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(125, 15) + Me.Label2.TabIndex = 81 + Me.Label2.Text = "Hinzufügen zu Modul:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(3, 315) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(146, 15) + Me.Label1.TabIndex = 80 + Me.Label1.Text = "Zugeordnet zu Modul(en):" + ' + 'ListBox2 + ' + Me.ListBox2.DataSource = Me.TBDD_DOKART_MODULEBindingSource + Me.ListBox2.DisplayMember = "NAME" + Me.ListBox2.FormattingEnabled = True + Me.ListBox2.ItemHeight = 15 + Me.ListBox2.Location = New System.Drawing.Point(3, 340) + Me.ListBox2.Name = "ListBox2" + Me.ListBox2.Size = New System.Drawing.Size(203, 109) + Me.ListBox2.TabIndex = 79 + Me.ListBox2.ValueMember = "ID" + ' + 'TBDD_DOKART_MODULEBindingSource + ' + Me.TBDD_DOKART_MODULEBindingSource.DataMember = "TBDD_DOKART_MODULE" + Me.TBDD_DOKART_MODULEBindingSource.DataSource = Me.MyDataset + ' + 'lblSaveDokart + ' + Me.lblSaveDokart.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSaveDokart.AutoSize = True + Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow + Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveDokart.Location = New System.Drawing.Point(845, 231) + Me.lblSaveDokart.Name = "lblSaveDokart" + Me.lblSaveDokart.Size = New System.Drawing.Size(240, 17) + Me.lblSaveDokart.TabIndex = 78 + Me.lblSaveDokart.Text = "Dokumentart erfolgreich gespeichert!" + Me.lblSaveDokart.Visible = False + ' + 'btnNamenkonvention + ' + Me.btnNamenkonvention.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnNamenkonvention.Location = New System.Drawing.Point(621, 230) + Me.btnNamenkonvention.Name = "btnNamenkonvention" + Me.btnNamenkonvention.Size = New System.Drawing.Size(38, 23) + Me.btnNamenkonvention.TabIndex = 29 + Me.btnNamenkonvention.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(858, 142) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(31, 23) + Me.Button1.TabIndex = 28 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' + 'NAMENKONVENTIONTextBox + ' + Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) + Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(267, 231) + Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox" + Me.NAMENKONVENTIONTextBox.Size = New System.Drawing.Size(339, 23) + Me.NAMENKONVENTIONTextBox.TabIndex = 27 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBDD_DOKUMENTARTBindingSource + Me.ListBox1.DisplayMember = "BEZEICHNUNG" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.ItemHeight = 15 + Me.ListBox1.Location = New System.Drawing.Point(3, 28) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(240, 259) + Me.ListBox1.TabIndex = 26 + Me.ListBox1.ValueMember = "GUID" + ' + 'TBDD_DOKUMENTARTBindingNavigator + ' + Me.TBDD_DOKUMENTARTBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBDD_DOKUMENTARTBindingNavigator.BindingSource = Me.TBDD_DOKUMENTARTBindingSource + Me.TBDD_DOKUMENTARTBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBDD_DOKUMENTARTBindingNavigator.CountItemFormat = "von {0} Dokumentarten" + Me.TBDD_DOKUMENTARTBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBDD_DOKUMENTARTBindingNavigator.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.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem, Me.ToolStripComboBox1, Me.ToolStripButton40, Me.tsbtnCopyDoctype}) + Me.TBDD_DOKUMENTARTBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_DOKUMENTARTBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBDD_DOKUMENTARTBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBDD_DOKUMENTARTBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBDD_DOKUMENTARTBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBDD_DOKUMENTARTBindingNavigator.Name = "TBDD_DOKUMENTARTBindingNavigator" + Me.TBDD_DOKUMENTARTBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBDD_DOKUMENTARTBindingNavigator.Size = New System.Drawing.Size(1135, 25) + Me.TBDD_DOKUMENTARTBindingNavigator.TabIndex = 2 + Me.TBDD_DOKUMENTARTBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(130, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Dokumentarten" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + '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) + ' + 'TBDD_DOKUMENTARTBindingNavigatorSaveItem + ' + Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBDD_DOKUMENTARTBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem.Name = "TBDD_DOKUMENTARTBindingNavigatorSaveItem" + Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'ToolStripComboBox1 + ' + Me.ToolStripComboBox1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripComboBox1.Items.AddRange(New Object() {"Global-Indexer Dokarten", "Alle Dokarten"}) + Me.ToolStripComboBox1.Name = "ToolStripComboBox1" + Me.ToolStripComboBox1.Size = New System.Drawing.Size(150, 25) + ' + 'ToolStripButton40 + ' + Me.ToolStripButton40.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton40.Image = Global.Global_Indexer.My.Resources.Resources.arrow_refresh + Me.ToolStripButton40.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton40.Name = "ToolStripButton40" + Me.ToolStripButton40.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton40.Text = "ToolStripButton40" + ' + 'tsbtnCopyDoctype + ' + Me.tsbtnCopyDoctype.Image = Global.Global_Indexer.My.Resources.Resources.Copy_6524 + Me.tsbtnCopyDoctype.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnCopyDoctype.Name = "tsbtnCopyDoctype" + Me.tsbtnCopyDoctype.Size = New System.Drawing.Size(74, 22) + Me.tsbtnCopyDoctype.Text = "Kopieren" + ' + 'DOKART_GUIDTextBox + ' + Me.DOKART_GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GUID", True)) + Me.DOKART_GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DOKART_GUIDTextBox.Location = New System.Drawing.Point(266, 46) + Me.DOKART_GUIDTextBox.Name = "DOKART_GUIDTextBox" + Me.DOKART_GUIDTextBox.ReadOnly = True + Me.DOKART_GUIDTextBox.Size = New System.Drawing.Size(51, 23) + Me.DOKART_GUIDTextBox.TabIndex = 1 + ' + 'BEZEICHNUNGTextBox + ' + Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) + Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(330, 46) + Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox" + Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(287, 23) + Me.BEZEICHNUNGTextBox.TabIndex = 3 + ' + 'KURZNAMETextBox + ' + Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) + Me.KURZNAMETextBox.Location = New System.Drawing.Point(267, 94) + Me.KURZNAMETextBox.Name = "KURZNAMETextBox" + Me.KURZNAMETextBox.Size = New System.Drawing.Size(94, 23) + Me.KURZNAMETextBox.TabIndex = 7 + ' + 'ZIEL_PFADTextBox + ' + Me.ZIEL_PFADTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ZIEL_PFAD", True)) + Me.ZIEL_PFADTextBox.Location = New System.Drawing.Point(267, 142) + Me.ZIEL_PFADTextBox.Name = "ZIEL_PFADTextBox" + Me.ZIEL_PFADTextBox.Size = New System.Drawing.Size(585, 23) + Me.ZIEL_PFADTextBox.TabIndex = 9 + ' + 'BESCHREIBUNGTextBox + ' + Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) + Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(267, 186) + Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox" + Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(622, 23) + Me.BESCHREIBUNGTextBox.TabIndex = 11 + ' + 'AKTIVCheckBox + ' + Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) + Me.AKTIVCheckBox.Location = New System.Drawing.Point(554, 93) + Me.AKTIVCheckBox.Name = "AKTIVCheckBox" + Me.AKTIVCheckBox.Size = New System.Drawing.Size(63, 24) + Me.AKTIVCheckBox.TabIndex = 13 + Me.AKTIVCheckBox.Text = "Aktiv" + Me.AKTIVCheckBox.UseVisualStyleBackColor = True + ' + 'ERSTELLTWERTextBox + ' + Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWER", True)) + Me.ERSTELLTWERTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(268, 274) + Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" + Me.ERSTELLTWERTextBox.ReadOnly = True + Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(156, 23) + Me.ERSTELLTWERTextBox.TabIndex = 17 + ' + 'ERSTELLTWANNTextBox + ' + Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ERSTELLTWANN", True)) + Me.ERSTELLTWANNTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(430, 274) + Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" + Me.ERSTELLTWANNTextBox.ReadOnly = True + Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(156, 23) + Me.ERSTELLTWANNTextBox.TabIndex = 19 + ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(675, 274) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.ReadOnly = True + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(164, 23) + Me.GEANDERTWERTextBox.TabIndex = 21 + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(845, 274) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(171, 23) + Me.GEAENDERTWANNTextBox.TabIndex = 23 + ' + 'OBJEKTTYPComboBox + ' + Me.OBJEKTTYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "OBJEKTTYP", True)) + Me.OBJEKTTYPComboBox.FormattingEnabled = True + Me.OBJEKTTYPComboBox.Location = New System.Drawing.Point(621, 94) + Me.OBJEKTTYPComboBox.Name = "OBJEKTTYPComboBox" + Me.OBJEKTTYPComboBox.Size = New System.Drawing.Size(345, 23) + Me.OBJEKTTYPComboBox.TabIndex = 25 + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.lblsaveUSer) + Me.XtraTabPage2.Controls.Add(Me.XtraTabControl3) + Me.XtraTabPage2.Controls.Add(Me.ListBox3) + Me.XtraTabPage2.Controls.Add(GUIDLabel2) + Me.XtraTabPage2.Controls.Add(Me.USER_GUIDTextBox) + Me.XtraTabPage2.Controls.Add(PRENAMELabel) + Me.XtraTabPage2.Controls.Add(Me.PRENAMETextBox) + Me.XtraTabPage2.Controls.Add(NAMELabel1) + Me.XtraTabPage2.Controls.Add(Me.NAMETextBox1) + Me.XtraTabPage2.Controls.Add(USERNAMELabel) + Me.XtraTabPage2.Controls.Add(Me.USERNAMETextBox) + Me.XtraTabPage2.Controls.Add(EMAILLabel) + Me.XtraTabPage2.Controls.Add(Me.EMAILTextBox) + Me.XtraTabPage2.Controls.Add(Me.LOGGED_INCheckBox) + Me.XtraTabPage2.Controls.Add(LOGGED_WHERELabel) + Me.XtraTabPage2.Controls.Add(Me.LOGGED_WHERETextBox) + Me.XtraTabPage2.Controls.Add(LOG_IN_WHENLabel) + Me.XtraTabPage2.Controls.Add(Me.LOG_IN_WHENTextBox) + Me.XtraTabPage2.Controls.Add(LOG_OUT_WHENLabel) + Me.XtraTabPage2.Controls.Add(Me.LOG_OUT_WHENTextBox) + Me.XtraTabPage2.Controls.Add(Me.GI_ADMINCheckBox) + Me.XtraTabPage2.Controls.Add(ADDED_WHOLabel1) + Me.XtraTabPage2.Controls.Add(Me.ADDED_WHOTextBox1) + Me.XtraTabPage2.Controls.Add(ADDED_WHENLabel1) + Me.XtraTabPage2.Controls.Add(Me.ADDED_WHENTextBox1) + Me.XtraTabPage2.Controls.Add(CHANGED_WHOLabel1) + Me.XtraTabPage2.Controls.Add(Me.CHANGED_WHOTextBoxUser) + Me.XtraTabPage2.Controls.Add(CHANGED_WHENLabel1) + Me.XtraTabPage2.Controls.Add(Me.CHANGED_WHENTextBox1) + Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1) + Me.XtraTabPage2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(1135, 604) + Me.XtraTabPage2.Text = "User-/Gruppenverwaltung" + ' + 'lblsaveUSer + ' + Me.lblsaveUSer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsaveUSer.AutoSize = True + Me.lblsaveUSer.BackColor = System.Drawing.Color.Yellow + Me.lblsaveUSer.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsaveUSer.Location = New System.Drawing.Point(559, 199) + Me.lblsaveUSer.Name = "lblsaveUSer" + Me.lblsaveUSer.Size = New System.Drawing.Size(186, 13) + Me.lblsaveUSer.TabIndex = 79 + Me.lblsaveUSer.Text = "Userdaten erfolgreich gespeichert!" + Me.lblsaveUSer.Visible = False + ' + 'XtraTabControl3 + ' + Me.XtraTabControl3.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.XtraTabControl3.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia + Me.XtraTabControl3.AppearancePage.HeaderHotTracked.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.XtraTabControl3.AppearancePage.HeaderHotTracked.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.XtraTabControl3.AppearancePage.HeaderHotTracked.Options.UseBackColor = True + Me.XtraTabControl3.AppearancePage.HeaderHotTracked.Options.UseFont = True + Me.XtraTabControl3.Location = New System.Drawing.Point(14, 215) + Me.XtraTabControl3.Name = "XtraTabControl3" + Me.XtraTabControl3.SelectedTabPage = Me.XtraTabPage7 + Me.XtraTabControl3.Size = New System.Drawing.Size(1045, 386) + Me.XtraTabControl3.TabIndex = 32 + Me.XtraTabControl3.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage7, Me.XtraTabPage8}) + ' + 'XtraTabPage7 + ' + Me.XtraTabPage7.Controls.Add(Me.btnDeleteGroupRelation) + Me.XtraTabPage7.Controls.Add(Me.GroupBox2) + Me.XtraTabPage7.Controls.Add(Me.Label4) + Me.XtraTabPage7.Controls.Add(Me.ListBoxUserzuordnung) + Me.XtraTabPage7.Name = "XtraTabPage7" + Me.XtraTabPage7.Size = New System.Drawing.Size(1039, 358) + Me.XtraTabPage7.Text = "Gruppenzuordnung User" + ' + 'btnDeleteGroupRelation + ' + Me.btnDeleteGroupRelation.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnDeleteGroupRelation.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.btnDeleteGroupRelation.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnDeleteGroupRelation.Location = New System.Drawing.Point(284, 157) + Me.btnDeleteGroupRelation.Name = "btnDeleteGroupRelation" + Me.btnDeleteGroupRelation.Size = New System.Drawing.Size(75, 23) + Me.btnDeleteGroupRelation.TabIndex = 11 + Me.btnDeleteGroupRelation.Text = "Löschen" + Me.btnDeleteGroupRelation.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnDeleteGroupRelation.UseVisualStyleBackColor = True + ' + 'GroupBox2 + ' + Me.GroupBox2.BackColor = System.Drawing.Color.WhiteSmoke + Me.GroupBox2.Controls.Add(Me.lblnewUserZuordnung) + Me.GroupBox2.Controls.Add(Me.Label5) + Me.GroupBox2.Controls.Add(Me.cmbGroup2User) + Me.GroupBox2.Controls.Add(Me.btnAddGroupRelation) + Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(284, 33) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(230, 118) + Me.GroupBox2.TabIndex = 10 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Neue Gruppenzuordnung:" + ' + 'lblnewUserZuordnung + ' + Me.lblnewUserZuordnung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblnewUserZuordnung.AutoSize = True + Me.lblnewUserZuordnung.BackColor = System.Drawing.Color.Yellow + Me.lblnewUserZuordnung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblnewUserZuordnung.Location = New System.Drawing.Point(8, 92) + Me.lblnewUserZuordnung.Name = "lblnewUserZuordnung" + Me.lblnewUserZuordnung.Size = New System.Drawing.Size(179, 13) + Me.lblnewUserZuordnung.TabIndex = 80 + Me.lblnewUserZuordnung.Text = "Zuordnung erfolgreich gespeichert!" + Me.lblnewUserZuordnung.Visible = False + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(8, 19) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(108, 15) + Me.Label5.TabIndex = 11 + Me.Label5.Text = "Gruppe auswählen:" + ' + 'cmbGroup2User + ' + Me.cmbGroup2User.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.cmbGroup2User.DisplayMember = "NAME" + Me.cmbGroup2User.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbGroup2User.FormattingEnabled = True + Me.cmbGroup2User.Location = New System.Drawing.Point(11, 37) + Me.cmbGroup2User.Name = "cmbGroup2User" + Me.cmbGroup2User.Size = New System.Drawing.Size(184, 23) + Me.cmbGroup2User.TabIndex = 8 + Me.cmbGroup2User.ValueMember = "GUID" + ' + 'btnAddGroupRelation + ' + Me.btnAddGroupRelation.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnAddGroupRelation.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnAddGroupRelation.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddGroupRelation.Location = New System.Drawing.Point(11, 66) + Me.btnAddGroupRelation.Name = "btnAddGroupRelation" + Me.btnAddGroupRelation.Size = New System.Drawing.Size(184, 23) + Me.btnAddGroupRelation.TabIndex = 9 + Me.btnAddGroupRelation.Text = "User zu Gruppe hinzufügen" + Me.btnAddGroupRelation.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddGroupRelation.UseVisualStyleBackColor = True + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(14, 13) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(261, 17) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "User ist zu folgenden Gruppen zugeordnet:" + ' + 'ListBoxUserzuordnung + ' + Me.ListBoxUserzuordnung.DataSource = Me.VWGI_USER_GROUPS_RELATIONBindingSource + Me.ListBoxUserzuordnung.DisplayMember = "NAME" + Me.ListBoxUserzuordnung.FormattingEnabled = True + Me.ListBoxUserzuordnung.ItemHeight = 17 + Me.ListBoxUserzuordnung.Location = New System.Drawing.Point(17, 33) + Me.ListBoxUserzuordnung.Name = "ListBoxUserzuordnung" + Me.ListBoxUserzuordnung.Size = New System.Drawing.Size(255, 174) + Me.ListBoxUserzuordnung.TabIndex = 6 + Me.ListBoxUserzuordnung.ValueMember = "GUID" + ' + 'VWGI_USER_GROUPS_RELATIONBindingSource + ' + Me.VWGI_USER_GROUPS_RELATIONBindingSource.DataMember = "VWGI_USER_GROUPS_RELATION" + Me.VWGI_USER_GROUPS_RELATIONBindingSource.DataSource = Me.MyDataset + ' + 'XtraTabPage8 + ' + Me.XtraTabPage8.Controls.Add(Me.ListBox4) + Me.XtraTabPage8.Controls.Add(Me.lblsaveTBDD_USER_GROUPS) + Me.XtraTabPage8.Controls.Add(GUIDLabel6) + Me.XtraTabPage8.Controls.Add(Me.GUIDTextBox5) + Me.XtraTabPage8.Controls.Add(NAMELabel2) + Me.XtraTabPage8.Controls.Add(Me.NAMETextBox2) + Me.XtraTabPage8.Controls.Add(ADDED_WHOLabel5) + Me.XtraTabPage8.Controls.Add(Me.ADDED_WHOTextBox5) + Me.XtraTabPage8.Controls.Add(ADDED_WHENLabel5) + Me.XtraTabPage8.Controls.Add(Me.ADDED_WHENTextBox5) + Me.XtraTabPage8.Controls.Add(CHANGED_WHOLabel5) + Me.XtraTabPage8.Controls.Add(Me.CHANGED_WHOTextBox5) + Me.XtraTabPage8.Controls.Add(CHANGED_WHENLabel5) + Me.XtraTabPage8.Controls.Add(Me.CHANGED_WHENTextBox5) + Me.XtraTabPage8.Controls.Add(Me.TBDD_USER_GROUPSBindingNavigator) + Me.XtraTabPage8.Name = "XtraTabPage8" + Me.XtraTabPage8.Size = New System.Drawing.Size(1039, 358) + Me.XtraTabPage8.Text = "Gruppenverwaltung" + ' + 'ListBox4 + ' + Me.ListBox4.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.ListBox4.DisplayMember = "NAME" + Me.ListBox4.FormattingEnabled = True + Me.ListBox4.ItemHeight = 17 + Me.ListBox4.Location = New System.Drawing.Point(8, 32) + Me.ListBox4.Name = "ListBox4" + Me.ListBox4.Size = New System.Drawing.Size(171, 140) + Me.ListBox4.TabIndex = 80 + Me.ListBox4.ValueMember = "GUID" + ' + 'lblsaveTBDD_USER_GROUPS + ' + Me.lblsaveTBDD_USER_GROUPS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsaveTBDD_USER_GROUPS.AutoSize = True + Me.lblsaveTBDD_USER_GROUPS.BackColor = System.Drawing.Color.Yellow + Me.lblsaveTBDD_USER_GROUPS.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsaveTBDD_USER_GROUPS.Location = New System.Drawing.Point(763, 53) + Me.lblsaveTBDD_USER_GROUPS.Name = "lblsaveTBDD_USER_GROUPS" + Me.lblsaveTBDD_USER_GROUPS.Size = New System.Drawing.Size(203, 17) + Me.lblsaveTBDD_USER_GROUPS.TabIndex = 79 + Me.lblsaveTBDD_USER_GROUPS.Text = "Gruppe erfolgreich gespeichert!" + Me.lblsaveTBDD_USER_GROUPS.Visible = False + ' + 'GUIDTextBox5 + ' + Me.GUIDTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "GUID", True)) + Me.GUIDTextBox5.Enabled = False + Me.GUIDTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox5.Location = New System.Drawing.Point(198, 52) + Me.GUIDTextBox5.Name = "GUIDTextBox5" + Me.GUIDTextBox5.Size = New System.Drawing.Size(77, 23) + Me.GUIDTextBox5.TabIndex = 5 + ' + 'NAMETextBox2 + ' + Me.NAMETextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "NAME", True)) + Me.NAMETextBox2.Location = New System.Drawing.Point(293, 50) + Me.NAMETextBox2.Name = "NAMETextBox2" + Me.NAMETextBox2.Size = New System.Drawing.Size(464, 25) + Me.NAMETextBox2.TabIndex = 7 + ' + 'ADDED_WHOTextBox5 + ' + Me.ADDED_WHOTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox5.Enabled = False + Me.ADDED_WHOTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox5.Location = New System.Drawing.Point(198, 98) + Me.ADDED_WHOTextBox5.Name = "ADDED_WHOTextBox5" + Me.ADDED_WHOTextBox5.Size = New System.Drawing.Size(172, 23) + Me.ADDED_WHOTextBox5.TabIndex = 9 + ' + 'ADDED_WHENTextBox5 + ' + Me.ADDED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox5.Enabled = False + Me.ADDED_WHENTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox5.Location = New System.Drawing.Point(379, 98) + Me.ADDED_WHENTextBox5.Name = "ADDED_WHENTextBox5" + Me.ADDED_WHENTextBox5.Size = New System.Drawing.Size(178, 23) + Me.ADDED_WHENTextBox5.TabIndex = 11 + ' + 'CHANGED_WHOTextBox5 + ' + Me.CHANGED_WHOTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox5.Enabled = False + Me.CHANGED_WHOTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox5.Location = New System.Drawing.Point(198, 142) + Me.CHANGED_WHOTextBox5.Name = "CHANGED_WHOTextBox5" + Me.CHANGED_WHOTextBox5.Size = New System.Drawing.Size(172, 23) + Me.CHANGED_WHOTextBox5.TabIndex = 13 + ' + 'CHANGED_WHENTextBox5 + ' + Me.CHANGED_WHENTextBox5.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox5.Enabled = False + Me.CHANGED_WHENTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox5.Location = New System.Drawing.Point(379, 142) + Me.CHANGED_WHENTextBox5.Name = "CHANGED_WHENTextBox5" + Me.CHANGED_WHENTextBox5.Size = New System.Drawing.Size(178, 23) + Me.CHANGED_WHENTextBox5.TabIndex = 15 + ' + 'TBDD_USER_GROUPSBindingNavigator + ' + Me.TBDD_USER_GROUPSBindingNavigator.AddNewItem = Me.ToolStripButton32 + Me.TBDD_USER_GROUPSBindingNavigator.BindingSource = Me.TBDD_USER_GROUPSBindingSource + Me.TBDD_USER_GROUPSBindingNavigator.CountItem = Me.ToolStripLabel5 + Me.TBDD_USER_GROUPSBindingNavigator.CountItemFormat = "von {0} Gruppen" + Me.TBDD_USER_GROUPSBindingNavigator.DeleteItem = Me.ToolStripButton33 + Me.TBDD_USER_GROUPSBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton34, Me.ToolStripButton35, Me.ToolStripSeparator13, Me.ToolStripTextBox5, Me.ToolStripLabel5, Me.ToolStripSeparator14, Me.ToolStripButton36, Me.ToolStripButton37, Me.ToolStripSeparator15, Me.ToolStripButton32, Me.ToolStripButton33, Me.ToolStripButton38, Me.ToolStripButton39}) + Me.TBDD_USER_GROUPSBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_USER_GROUPSBindingNavigator.MoveFirstItem = Me.ToolStripButton34 + Me.TBDD_USER_GROUPSBindingNavigator.MoveLastItem = Me.ToolStripButton37 + Me.TBDD_USER_GROUPSBindingNavigator.MoveNextItem = Me.ToolStripButton36 + Me.TBDD_USER_GROUPSBindingNavigator.MovePreviousItem = Me.ToolStripButton35 + Me.TBDD_USER_GROUPSBindingNavigator.Name = "TBDD_USER_GROUPSBindingNavigator" + Me.TBDD_USER_GROUPSBindingNavigator.PositionItem = Me.ToolStripTextBox5 + Me.TBDD_USER_GROUPSBindingNavigator.Size = New System.Drawing.Size(1039, 25) + Me.TBDD_USER_GROUPSBindingNavigator.TabIndex = 4 + Me.TBDD_USER_GROUPSBindingNavigator.Text = "BindingNavigator3" + ' + 'ToolStripButton32 + ' + Me.ToolStripButton32.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton32.Image = CType(resources.GetObject("ToolStripButton32.Image"), System.Drawing.Image) + Me.ToolStripButton32.Name = "ToolStripButton32" + Me.ToolStripButton32.RightToLeftAutoMirrorImage = True + Me.ToolStripButton32.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton32.Text = "Neu hinzufügen" + ' + 'ToolStripLabel5 + ' + Me.ToolStripLabel5.Name = "ToolStripLabel5" + Me.ToolStripLabel5.Size = New System.Drawing.Size(93, 22) + Me.ToolStripLabel5.Text = "von {0} Gruppen" + Me.ToolStripLabel5.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton33 + ' + Me.ToolStripButton33.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton33.Image = CType(resources.GetObject("ToolStripButton33.Image"), System.Drawing.Image) + Me.ToolStripButton33.Name = "ToolStripButton33" + Me.ToolStripButton33.RightToLeftAutoMirrorImage = True + Me.ToolStripButton33.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton33.Text = "Löschen" + ' + 'ToolStripButton34 + ' + Me.ToolStripButton34.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton34.Image = CType(resources.GetObject("ToolStripButton34.Image"), System.Drawing.Image) + Me.ToolStripButton34.Name = "ToolStripButton34" + Me.ToolStripButton34.RightToLeftAutoMirrorImage = True + Me.ToolStripButton34.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton34.Text = "Erste verschieben" + ' + 'ToolStripButton35 + ' + Me.ToolStripButton35.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton35.Image = CType(resources.GetObject("ToolStripButton35.Image"), System.Drawing.Image) + Me.ToolStripButton35.Name = "ToolStripButton35" + Me.ToolStripButton35.RightToLeftAutoMirrorImage = True + Me.ToolStripButton35.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton35.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator13 + ' + Me.ToolStripSeparator13.Name = "ToolStripSeparator13" + Me.ToolStripSeparator13.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox5 + ' + Me.ToolStripTextBox5.AccessibleName = "Position" + Me.ToolStripTextBox5.AutoSize = False + Me.ToolStripTextBox5.Name = "ToolStripTextBox5" + Me.ToolStripTextBox5.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox5.Text = "0" + Me.ToolStripTextBox5.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator14 + ' + Me.ToolStripSeparator14.Name = "ToolStripSeparator14" + Me.ToolStripSeparator14.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton36 + ' + Me.ToolStripButton36.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton36.Image = CType(resources.GetObject("ToolStripButton36.Image"), System.Drawing.Image) + Me.ToolStripButton36.Name = "ToolStripButton36" + Me.ToolStripButton36.RightToLeftAutoMirrorImage = True + Me.ToolStripButton36.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton36.Text = "Nächste verschieben" + ' + 'ToolStripButton37 + ' + Me.ToolStripButton37.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton37.Image = CType(resources.GetObject("ToolStripButton37.Image"), System.Drawing.Image) + Me.ToolStripButton37.Name = "ToolStripButton37" + Me.ToolStripButton37.RightToLeftAutoMirrorImage = True + Me.ToolStripButton37.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton37.Text = "Letzte verschieben" + ' + 'ToolStripSeparator15 + ' + Me.ToolStripSeparator15.Name = "ToolStripSeparator15" + Me.ToolStripSeparator15.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton38 + ' + Me.ToolStripButton38.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton38.Image = CType(resources.GetObject("ToolStripButton38.Image"), System.Drawing.Image) + Me.ToolStripButton38.Name = "ToolStripButton38" + Me.ToolStripButton38.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton38.Text = "Daten speichern" + ' + 'ToolStripButton39 + ' + Me.ToolStripButton39.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton39.Image = Global.Global_Indexer.My.Resources.Resources.arrow_refresh + Me.ToolStripButton39.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton39.Name = "ToolStripButton39" + Me.ToolStripButton39.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton39.Text = "ToolStripButton15" + ' + 'ListBox3 + ' + Me.ListBox3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.ListBox3.DataSource = Me.TBDD_USERBindingSource + Me.ListBox3.DisplayMember = "USERNAME" + Me.ListBox3.FormattingEnabled = True + Me.ListBox3.ItemHeight = 17 + Me.ListBox3.Location = New System.Drawing.Point(778, 51) + Me.ListBox3.Name = "ListBox3" + Me.ListBox3.Size = New System.Drawing.Size(281, 157) + Me.ListBox3.TabIndex = 31 + Me.ListBox3.ValueMember = "GUID" + ' + 'TBDD_USERBindingSource + ' + Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" + Me.TBDD_USERBindingSource.DataSource = Me.MyDataset + ' + 'USER_GUIDTextBox + ' + Me.USER_GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "GUID", True)) + Me.USER_GUIDTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.USER_GUIDTextBox.Location = New System.Drawing.Point(14, 51) + Me.USER_GUIDTextBox.Name = "USER_GUIDTextBox" + Me.USER_GUIDTextBox.ReadOnly = True + Me.USER_GUIDTextBox.Size = New System.Drawing.Size(64, 22) + Me.USER_GUIDTextBox.TabIndex = 4 + ' + 'PRENAMETextBox + ' + Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True)) + Me.PRENAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PRENAMETextBox.Location = New System.Drawing.Point(90, 51) + Me.PRENAMETextBox.Name = "PRENAMETextBox" + Me.PRENAMETextBox.Size = New System.Drawing.Size(200, 22) + Me.PRENAMETextBox.TabIndex = 6 + ' + 'NAMETextBox1 + ' + Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True)) + Me.NAMETextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.NAMETextBox1.Location = New System.Drawing.Point(299, 51) + Me.NAMETextBox1.Name = "NAMETextBox1" + Me.NAMETextBox1.Size = New System.Drawing.Size(256, 22) + Me.NAMETextBox1.TabIndex = 8 + ' + 'USERNAMETextBox + ' + Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True)) + Me.USERNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.USERNAMETextBox.Location = New System.Drawing.Point(562, 51) + Me.USERNAMETextBox.Name = "USERNAMETextBox" + Me.USERNAMETextBox.Size = New System.Drawing.Size(210, 22) + Me.USERNAMETextBox.TabIndex = 10 + ' + 'EMAILTextBox + ' + Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True)) + Me.EMAILTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.EMAILTextBox.Location = New System.Drawing.Point(90, 92) + Me.EMAILTextBox.Name = "EMAILTextBox" + Me.EMAILTextBox.Size = New System.Drawing.Size(465, 22) + Me.EMAILTextBox.TabIndex = 12 + ' + 'LOGGED_INCheckBox + ' + Me.LOGGED_INCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "LOGGED_IN", True)) + Me.LOGGED_INCheckBox.Enabled = False + Me.LOGGED_INCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOGGED_INCheckBox.Location = New System.Drawing.Point(90, 131) + Me.LOGGED_INCheckBox.Name = "LOGGED_INCheckBox" + Me.LOGGED_INCheckBox.Size = New System.Drawing.Size(92, 24) + Me.LOGGED_INCheckBox.TabIndex = 14 + Me.LOGGED_INCheckBox.Text = "logged in?" + Me.LOGGED_INCheckBox.UseVisualStyleBackColor = True + ' + 'LOGGED_WHERETextBox + ' + Me.LOGGED_WHERETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOGGED_WHERE", True)) + Me.LOGGED_WHERETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOGGED_WHERETextBox.Location = New System.Drawing.Point(203, 133) + Me.LOGGED_WHERETextBox.Name = "LOGGED_WHERETextBox" + Me.LOGGED_WHERETextBox.ReadOnly = True + Me.LOGGED_WHERETextBox.Size = New System.Drawing.Size(150, 22) + Me.LOGGED_WHERETextBox.TabIndex = 16 + ' + 'LOG_IN_WHENTextBox + ' + Me.LOG_IN_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_IN_WHEN", True)) + Me.LOG_IN_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOG_IN_WHENTextBox.Location = New System.Drawing.Point(365, 133) + Me.LOG_IN_WHENTextBox.Name = "LOG_IN_WHENTextBox" + Me.LOG_IN_WHENTextBox.ReadOnly = True + Me.LOG_IN_WHENTextBox.Size = New System.Drawing.Size(190, 22) + Me.LOG_IN_WHENTextBox.TabIndex = 18 + ' + 'LOG_OUT_WHENTextBox + ' + Me.LOG_OUT_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LOG_OUT_WHEN", True)) + Me.LOG_OUT_WHENTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.LOG_OUT_WHENTextBox.Location = New System.Drawing.Point(562, 133) + Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" + Me.LOG_OUT_WHENTextBox.ReadOnly = True + Me.LOG_OUT_WHENTextBox.Size = New System.Drawing.Size(210, 22) + Me.LOG_OUT_WHENTextBox.TabIndex = 20 + ' + 'GI_ADMINCheckBox + ' + Me.GI_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "GI_ADMIN", True)) + Me.GI_ADMINCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GI_ADMINCheckBox.Location = New System.Drawing.Point(562, 90) + Me.GI_ADMINCheckBox.Name = "GI_ADMINCheckBox" + Me.GI_ADMINCheckBox.Size = New System.Drawing.Size(90, 24) + Me.GI_ADMINCheckBox.TabIndex = 22 + Me.GI_ADMINCheckBox.Text = "Admin?" + Me.GI_ADMINCheckBox.UseVisualStyleBackColor = True + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(90, 174) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.ReadOnly = True + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(104, 22) + Me.ADDED_WHOTextBox1.TabIndex = 24 + ' + 'ADDED_WHENTextBox1 + ' + Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(203, 174) + Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" + Me.ADDED_WHENTextBox1.ReadOnly = True + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(150, 22) + Me.ADDED_WHENTextBox1.TabIndex = 26 + ' + 'CHANGED_WHOTextBoxUser + ' + Me.CHANGED_WHOTextBoxUser.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBoxUser.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBoxUser.Location = New System.Drawing.Point(365, 174) + Me.CHANGED_WHOTextBoxUser.Name = "CHANGED_WHOTextBoxUser" + Me.CHANGED_WHOTextBoxUser.ReadOnly = True + Me.CHANGED_WHOTextBoxUser.Size = New System.Drawing.Size(190, 22) + Me.CHANGED_WHOTextBoxUser.TabIndex = 28 + ' + 'CHANGED_WHENTextBox1 + ' + Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(562, 174) + Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" + Me.CHANGED_WHENTextBox1.ReadOnly = True + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(210, 22) + Me.CHANGED_WHENTextBox1.TabIndex = 30 + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.ToolStripButton8 + Me.BindingNavigator1.BindingSource = Me.TBDD_USERBindingSource + Me.BindingNavigator1.CountItem = Me.ToolStripLabel2 + Me.BindingNavigator1.CountItemFormat = "von {0} Usern" + Me.BindingNavigator1.DeleteItem = Me.ToolStripButton9 + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripSeparator4, Me.ToolStripTextBox2, Me.ToolStripLabel2, Me.ToolStripSeparator5, Me.ToolStripButton12, Me.ToolStripButton13, Me.ToolStripSeparator6, Me.ToolStripButton8, Me.ToolStripButton9, Me.ToolStripButton14, Me.tscmbUser, Me.ToolStripButton15, Me.ToolStripButton23}) + Me.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton10 + Me.BindingNavigator1.MoveLastItem = Me.ToolStripButton13 + Me.BindingNavigator1.MoveNextItem = Me.ToolStripButton12 + Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton11 + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.ToolStripTextBox2 + Me.BindingNavigator1.Size = New System.Drawing.Size(1135, 25) + Me.BindingNavigator1.TabIndex = 3 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'ToolStripButton8 + ' + Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image) + Me.ToolStripButton8.Name = "ToolStripButton8" + Me.ToolStripButton8.RightToLeftAutoMirrorImage = True + Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton8.Text = "Neu hinzufügen" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(77, 22) + Me.ToolStripLabel2.Text = "von {0} Usern" + Me.ToolStripLabel2.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton9 + ' + Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton9.Image = CType(resources.GetObject("ToolStripButton9.Image"), System.Drawing.Image) + Me.ToolStripButton9.Name = "ToolStripButton9" + Me.ToolStripButton9.RightToLeftAutoMirrorImage = True + Me.ToolStripButton9.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton9.Text = "Löschen" + ' + 'ToolStripButton10 + ' + Me.ToolStripButton10.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton10.Image = CType(resources.GetObject("ToolStripButton10.Image"), System.Drawing.Image) + Me.ToolStripButton10.Name = "ToolStripButton10" + Me.ToolStripButton10.RightToLeftAutoMirrorImage = True + Me.ToolStripButton10.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton10.Text = "Erste verschieben" + ' + 'ToolStripButton11 + ' + Me.ToolStripButton11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton11.Image = CType(resources.GetObject("ToolStripButton11.Image"), System.Drawing.Image) + Me.ToolStripButton11.Name = "ToolStripButton11" + Me.ToolStripButton11.RightToLeftAutoMirrorImage = True + Me.ToolStripButton11.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton11.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator4 + ' + Me.ToolStripSeparator4.Name = "ToolStripSeparator4" + Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox2 + ' + Me.ToolStripTextBox2.AccessibleName = "Position" + Me.ToolStripTextBox2.AutoSize = False + Me.ToolStripTextBox2.Name = "ToolStripTextBox2" + Me.ToolStripTextBox2.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox2.Text = "0" + Me.ToolStripTextBox2.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator5 + ' + Me.ToolStripSeparator5.Name = "ToolStripSeparator5" + Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton12 + ' + Me.ToolStripButton12.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton12.Image = CType(resources.GetObject("ToolStripButton12.Image"), System.Drawing.Image) + Me.ToolStripButton12.Name = "ToolStripButton12" + Me.ToolStripButton12.RightToLeftAutoMirrorImage = True + Me.ToolStripButton12.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton12.Text = "Nächste verschieben" + ' + 'ToolStripButton13 + ' + Me.ToolStripButton13.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton13.Image = CType(resources.GetObject("ToolStripButton13.Image"), System.Drawing.Image) + Me.ToolStripButton13.Name = "ToolStripButton13" + Me.ToolStripButton13.RightToLeftAutoMirrorImage = True + Me.ToolStripButton13.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton13.Text = "Letzte verschieben" + ' + 'ToolStripSeparator6 + ' + Me.ToolStripSeparator6.Name = "ToolStripSeparator6" + Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton14 + ' + Me.ToolStripButton14.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton14.Image = CType(resources.GetObject("ToolStripButton14.Image"), System.Drawing.Image) + Me.ToolStripButton14.Name = "ToolStripButton14" + Me.ToolStripButton14.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton14.Text = "Daten speichern" + ' + 'tscmbUser + ' + Me.tscmbUser.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tscmbUser.Items.AddRange(New Object() {"Global-Indexer User", "Alle User"}) + Me.tscmbUser.Name = "tscmbUser" + Me.tscmbUser.Size = New System.Drawing.Size(150, 25) + ' + 'ToolStripButton15 + ' + Me.ToolStripButton15.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton15.Image = Global.Global_Indexer.My.Resources.Resources.arrow_refresh + Me.ToolStripButton15.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton15.Name = "ToolStripButton15" + Me.ToolStripButton15.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton15.Text = "ToolStripButton15" + ' + 'ToolStripButton23 + ' + Me.ToolStripButton23.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton23.Image = Global.Global_Indexer.My.Resources.Resources.Benutzer + Me.ToolStripButton23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.ToolStripButton23.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton23.Name = "ToolStripButton23" + Me.ToolStripButton23.Size = New System.Drawing.Size(132, 22) + Me.ToolStripButton23.Text = "AD User hinzufügen" + Me.ToolStripButton23.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'XtraTabPage5 + ' + Me.XtraTabPage5.Controls.Add(Me.Button4) + Me.XtraTabPage5.Controls.Add(Me.Button3) + Me.XtraTabPage5.Controls.Add(Me.GroupBox1) + Me.XtraTabPage5.Name = "XtraTabPage5" + Me.XtraTabPage5.Size = New System.Drawing.Size(1135, 604) + Me.XtraTabPage5.Text = "Andere Einstellungen" + ' + 'Button4 + ' + Me.Button4.Image = Global.Global_Indexer.My.Resources.Resources.key_go + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(14, 403) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(202, 32) + Me.Button4.TabIndex = 4 + Me.Button4.Text = "LicenseManager" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button3 + ' + Me.Button3.Image = Global.Global_Indexer.My.Resources.Resources.database_connect + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(14, 365) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(202, 32) + Me.Button3.TabIndex = 3 + Me.Button3.Text = "SQL-Admin" + Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button3.UseVisualStyleBackColor = True + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.Color.WhiteSmoke + Me.GroupBox1.Controls.Add(Me.IDX_CHECK_ATTACHMENTComboBox) + Me.GroupBox1.Controls.Add(IDX_CHECK_ATTACHMENTLabel) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.lblsavezuordnungIndex) + Me.GroupBox1.Controls.Add(Me.btnidxemail_delete) + Me.GroupBox1.Controls.Add(Me.btnidxemail_Save) + Me.GroupBox1.Controls.Add(Me.btnidxemail_add) + Me.GroupBox1.Controls.Add(GUIDLabel3) + Me.GroupBox1.Controls.Add(Me.GUIDTextBox3) + Me.GroupBox1.Controls.Add(OBJECTTYPELabel) + Me.GroupBox1.Controls.Add(Me.OBJECTTYPETextBox) + Me.GroupBox1.Controls.Add(IDX_EMAIL_IDLabel) + Me.GroupBox1.Controls.Add(Me.IDX_EMAIL_IDComboBox) + Me.GroupBox1.Controls.Add(IDX_EMAIL_FROMLabel) + Me.GroupBox1.Controls.Add(Me.IDX_EMAIL_FROMComboBox) + Me.GroupBox1.Controls.Add(IDX_EMAIL_TOLabel) + Me.GroupBox1.Controls.Add(Me.IDX_EMAIL_TOComboBox) + Me.GroupBox1.Controls.Add(IDX_EMAIL_SUBJECTLabel) + Me.GroupBox1.Controls.Add(Me.IDX_EMAIL_SUBJECTComboBox) + Me.GroupBox1.Controls.Add(IDX_EMAIL_DATE_INLabel) + Me.GroupBox1.Controls.Add(Me.IDX_EMAIL_DATE_INComboBox) + Me.GroupBox1.Controls.Add(ADDED_WHOLabel2) + Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox2) + Me.GroupBox1.Controls.Add(ADDED_WHENLabel2) + Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox2) + Me.GroupBox1.Controls.Add(CHANGED_WHOLabel2) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox2) + Me.GroupBox1.Controls.Add(CHANGED_WHENLabel2) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox2) + Me.GroupBox1.Controls.Add(Me.ListBoxObjekttypen) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(3, 3) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(1056, 334) + Me.GroupBox1.TabIndex = 0 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Indexzuordnung für die Email-Indexierung:" + ' + 'IDX_CHECK_ATTACHMENTComboBox + ' + Me.IDX_CHECK_ATTACHMENTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_CHECK_ATTACHMENT", True)) + Me.IDX_CHECK_ATTACHMENTComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IDX_CHECK_ATTACHMENTComboBox.FormattingEnabled = True + Me.IDX_CHECK_ATTACHMENTComboBox.Location = New System.Drawing.Point(445, 206) + Me.IDX_CHECK_ATTACHMENTComboBox.Name = "IDX_CHECK_ATTACHMENTComboBox" + Me.IDX_CHECK_ATTACHMENTComboBox.Size = New System.Drawing.Size(189, 25) + Me.IDX_CHECK_ATTACHMENTComboBox.TabIndex = 81 + ' + 'TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource + ' + Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataMember = "TBGI_OBJECTTYPE_EMAIL_INDEX" + Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.DataSource = Me.MyDataset + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(8, 24) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(118, 17) + Me.Label3.TabIndex = 80 + Me.Label3.Text = "Objekttypauswahl:" + ' + 'lblsavezuordnungIndex + ' + Me.lblsavezuordnungIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsavezuordnungIndex.AutoSize = True + Me.lblsavezuordnungIndex.BackColor = System.Drawing.Color.Yellow + Me.lblsavezuordnungIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsavezuordnungIndex.Location = New System.Drawing.Point(682, 105) + Me.lblsavezuordnungIndex.Name = "lblsavezuordnungIndex" + Me.lblsavezuordnungIndex.Size = New System.Drawing.Size(227, 17) + Me.lblsavezuordnungIndex.TabIndex = 79 + Me.lblsavezuordnungIndex.Text = "Zuordnung erfolgreich gespeichert!" + Me.lblsavezuordnungIndex.Visible = False + ' + 'btnidxemail_delete + ' + Me.btnidxemail_delete.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnidxemail_delete.Image = Global.Global_Indexer.My.Resources.Resources.delete2 + Me.btnidxemail_delete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnidxemail_delete.Location = New System.Drawing.Point(925, 136) + Me.btnidxemail_delete.Name = "btnidxemail_delete" + Me.btnidxemail_delete.Size = New System.Drawing.Size(100, 33) + Me.btnidxemail_delete.TabIndex = 25 + Me.btnidxemail_delete.Text = "Löschen" + Me.btnidxemail_delete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnidxemail_delete.UseVisualStyleBackColor = True + ' + 'btnidxemail_Save + ' + Me.btnidxemail_Save.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnidxemail_Save.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.btnidxemail_Save.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnidxemail_Save.Location = New System.Drawing.Point(925, 97) + Me.btnidxemail_Save.Name = "btnidxemail_Save" + Me.btnidxemail_Save.Size = New System.Drawing.Size(100, 33) + Me.btnidxemail_Save.TabIndex = 24 + Me.btnidxemail_Save.Text = "Speichern" + Me.btnidxemail_Save.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnidxemail_Save.UseVisualStyleBackColor = True + ' + 'btnidxemail_add + ' + Me.btnidxemail_add.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnidxemail_add.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnidxemail_add.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnidxemail_add.Location = New System.Drawing.Point(925, 59) + Me.btnidxemail_add.Name = "btnidxemail_add" + Me.btnidxemail_add.Size = New System.Drawing.Size(100, 32) + Me.btnidxemail_add.TabIndex = 23 + Me.btnidxemail_add.Text = "Hinzufügen" + Me.btnidxemail_add.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnidxemail_add.UseVisualStyleBackColor = True + ' + 'GUIDTextBox3 + ' + Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "GUID", True)) + Me.GUIDTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox3.Location = New System.Drawing.Point(248, 64) + Me.GUIDTextBox3.Name = "GUIDTextBox3" + Me.GUIDTextBox3.ReadOnly = True + Me.GUIDTextBox3.Size = New System.Drawing.Size(71, 25) + Me.GUIDTextBox3.TabIndex = 2 + ' + 'OBJECTTYPETextBox + ' + Me.OBJECTTYPETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "OBJECTTYPE", True)) + Me.OBJECTTYPETextBox.Enabled = False + Me.OBJECTTYPETextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.OBJECTTYPETextBox.Location = New System.Drawing.Point(339, 64) + Me.OBJECTTYPETextBox.Name = "OBJECTTYPETextBox" + Me.OBJECTTYPETextBox.Size = New System.Drawing.Size(291, 25) + Me.OBJECTTYPETextBox.TabIndex = 4 + ' + 'IDX_EMAIL_IDComboBox + ' + Me.IDX_EMAIL_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_ID", True)) + Me.IDX_EMAIL_IDComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IDX_EMAIL_IDComboBox.FormattingEnabled = True + Me.IDX_EMAIL_IDComboBox.Location = New System.Drawing.Point(248, 112) + Me.IDX_EMAIL_IDComboBox.Name = "IDX_EMAIL_IDComboBox" + Me.IDX_EMAIL_IDComboBox.Size = New System.Drawing.Size(189, 25) + Me.IDX_EMAIL_IDComboBox.TabIndex = 6 + ' + 'IDX_EMAIL_FROMComboBox + ' + Me.IDX_EMAIL_FROMComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_FROM", True)) + Me.IDX_EMAIL_FROMComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IDX_EMAIL_FROMComboBox.FormattingEnabled = True + Me.IDX_EMAIL_FROMComboBox.Location = New System.Drawing.Point(445, 112) + Me.IDX_EMAIL_FROMComboBox.Name = "IDX_EMAIL_FROMComboBox" + Me.IDX_EMAIL_FROMComboBox.Size = New System.Drawing.Size(189, 25) + Me.IDX_EMAIL_FROMComboBox.TabIndex = 8 + ' + 'IDX_EMAIL_TOComboBox + ' + Me.IDX_EMAIL_TOComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_TO", True)) + Me.IDX_EMAIL_TOComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IDX_EMAIL_TOComboBox.FormattingEnabled = True + Me.IDX_EMAIL_TOComboBox.Location = New System.Drawing.Point(248, 158) + Me.IDX_EMAIL_TOComboBox.Name = "IDX_EMAIL_TOComboBox" + Me.IDX_EMAIL_TOComboBox.Size = New System.Drawing.Size(189, 25) + Me.IDX_EMAIL_TOComboBox.TabIndex = 10 + ' + 'IDX_EMAIL_SUBJECTComboBox + ' + Me.IDX_EMAIL_SUBJECTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_SUBJECT", True)) + Me.IDX_EMAIL_SUBJECTComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IDX_EMAIL_SUBJECTComboBox.FormattingEnabled = True + Me.IDX_EMAIL_SUBJECTComboBox.Location = New System.Drawing.Point(445, 158) + Me.IDX_EMAIL_SUBJECTComboBox.Name = "IDX_EMAIL_SUBJECTComboBox" + Me.IDX_EMAIL_SUBJECTComboBox.Size = New System.Drawing.Size(189, 25) + Me.IDX_EMAIL_SUBJECTComboBox.TabIndex = 12 + ' + 'IDX_EMAIL_DATE_INComboBox + ' + Me.IDX_EMAIL_DATE_INComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "IDX_EMAIL_DATE_IN", True)) + Me.IDX_EMAIL_DATE_INComboBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IDX_EMAIL_DATE_INComboBox.FormattingEnabled = True + Me.IDX_EMAIL_DATE_INComboBox.Location = New System.Drawing.Point(248, 206) + Me.IDX_EMAIL_DATE_INComboBox.Name = "IDX_EMAIL_DATE_INComboBox" + Me.IDX_EMAIL_DATE_INComboBox.Size = New System.Drawing.Size(189, 25) + Me.IDX_EMAIL_DATE_INComboBox.TabIndex = 14 + ' + 'ADDED_WHOTextBox2 + ' + Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(248, 254) + Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" + Me.ADDED_WHOTextBox2.ReadOnly = True + Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(189, 25) + Me.ADDED_WHOTextBox2.TabIndex = 16 + ' + 'ADDED_WHENTextBox2 + ' + Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(445, 254) + Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" + Me.ADDED_WHENTextBox2.ReadOnly = True + Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(189, 25) + Me.ADDED_WHENTextBox2.TabIndex = 18 + ' + 'CHANGED_WHOTextBox2 + ' + Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(248, 302) + Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" + Me.CHANGED_WHOTextBox2.ReadOnly = True + Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(189, 25) + Me.CHANGED_WHOTextBox2.TabIndex = 20 + ' + 'CHANGED_WHENTextBox2 + ' + Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(445, 302) + Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" + Me.CHANGED_WHENTextBox2.ReadOnly = True + Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(189, 25) + Me.CHANGED_WHENTextBox2.TabIndex = 22 + ' + 'ListBoxObjekttypen + ' + Me.ListBoxObjekttypen.FormattingEnabled = True + Me.ListBoxObjekttypen.ItemHeight = 17 + Me.ListBoxObjekttypen.Location = New System.Drawing.Point(8, 44) + Me.ListBoxObjekttypen.Name = "ListBoxObjekttypen" + Me.ListBoxObjekttypen.Size = New System.Drawing.Size(205, 276) + Me.ListBoxObjekttypen.TabIndex = 0 + ' + 'TBGI_CONFIGURATIONBindingSource + ' + Me.TBGI_CONFIGURATIONBindingSource.DataMember = "TBGI_CONFIGURATION" + Me.TBGI_CONFIGURATIONBindingSource.DataSource = Me.MyDataset + ' + 'TBDD_DOKUMENTARTTableAdapter + ' + Me.TBDD_DOKUMENTARTTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Me.TBDD_DOKUMENTARTTableAdapter + 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 + ' + 'TBDD_EINGANGSARTENTableAdapter + ' + Me.TBDD_EINGANGSARTENTableAdapter.ClearBeforeFill = True + ' + 'TBDD_DOKART_MODULETableAdapter + ' + Me.TBDD_DOKART_MODULETableAdapter.ClearBeforeFill = True + ' + 'TBDD_MODULESTableAdapter + ' + Me.TBDD_MODULESTableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_MANTableAdapter + ' + Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True + ' + 'TBDD_USERTableAdapter + ' + Me.TBDD_USERTableAdapter.ClearBeforeFill = True + ' + 'TBGI_CONFIGURATIONTableAdapter + ' + Me.TBGI_CONFIGURATIONTableAdapter.ClearBeforeFill = True + ' + 'TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + ' + Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter + ' + Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.ClearBeforeFill = True + ' + 'TBWHDD_INDEX_MANTableAdapter + ' + Me.TBWHDD_INDEX_MANTableAdapter.ClearBeforeFill = True + ' + 'TBDD_USER_GROUPSTableAdapter + ' + Me.TBDD_USER_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'VWGI_USER_GROUPS_RELATIONTableAdapter + ' + Me.VWGI_USER_GROUPS_RELATIONTableAdapter.ClearBeforeFill = True + ' + 'TBDD_GROUPS_USERBindingSource + ' + Me.TBDD_GROUPS_USERBindingSource.DataMember = "TBDD_GROUPS_USER" + Me.TBDD_GROUPS_USERBindingSource.DataSource = Me.MyDataset + ' + 'TBDD_GROUPS_USERTableAdapter + ' + Me.TBDD_GROUPS_USERTableAdapter.ClearBeforeFill = True + ' + 'VWGI_DOCTYPE_GROUPTableAdapter + ' + Me.VWGI_DOCTYPE_GROUPTableAdapter.ClearBeforeFill = True + ' + 'frmAdministration + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(1141, 654) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmAdministration" + Me.Text = "Administrationskonsole Global Indexer" + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.SEQUENCENumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_DOKUMENTARTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl2.ResumeLayout(False) + Me.XtraTabPage3.ResumeLayout(False) + Me.XtraTabPage3.PerformLayout() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_MANBindingNav, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_INDEX_MANBindingNav.ResumeLayout(False) + Me.TBDD_INDEX_MANBindingNav.PerformLayout() + Me.XtraTabPage6.ResumeLayout(False) + Me.XtraTabPage6.PerformLayout() + CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWHDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.ResumeLayout(False) + Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.PerformLayout() + Me.XtraTabPage4.ResumeLayout(False) + Me.XtraTabPage4.PerformLayout() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + Me.XtraTabPage9.ResumeLayout(False) + Me.XtraTabPage9.PerformLayout() + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWGI_DOCTYPE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage10.ResumeLayout(False) + Me.GroupBox4.ResumeLayout(False) + Me.GroupBox4.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() + CType(Me.TBDD_EINGANGSARTENBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_MODULESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_DOKART_MODULEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_DOKUMENTARTBindingNavigator.ResumeLayout(False) + Me.TBDD_DOKUMENTARTBindingNavigator.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl3.ResumeLayout(False) + Me.XtraTabPage7.ResumeLayout(False) + Me.XtraTabPage7.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + CType(Me.VWGI_USER_GROUPS_RELATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabPage8.ResumeLayout(False) + Me.XtraTabPage8.PerformLayout() + CType(Me.TBDD_USER_GROUPSBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.TBDD_USER_GROUPSBindingNavigator.ResumeLayout(False) + Me.TBDD_USER_GROUPSBindingNavigator.PerformLayout() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + Me.XtraTabPage5.ResumeLayout(False) + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBGI_CONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBDD_DOKUMENTARTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_DOKUMENTARTTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_DOKUMENTARTTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_DOKUMENTARTBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + 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 TBDD_DOKUMENTARTBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents NAMENKONVENTIONTextBox As System.Windows.Forms.TextBox + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents DOKART_GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents BEZEICHNUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents KURZNAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents ZIEL_PFADTextBox As System.Windows.Forms.TextBox + Friend WithEvents BESCHREIBUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents AKTIVCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents ERSTELLTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents ERSTELLTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEANDERTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents OBJEKTTYPComboBox As System.Windows.Forms.ComboBox + Friend WithEvents TBDD_EINGANGSARTENBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_EINGANGSARTENTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_EINGANGSARTENTableAdapter + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents btnNamenkonvention As System.Windows.Forms.Button + Friend WithEvents lblSaveDokart As System.Windows.Forms.Label + Friend WithEvents ToolStripComboBox1 As System.Windows.Forms.ToolStripComboBox + Friend WithEvents TBDD_DOKART_MODULEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_DOKART_MODULETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_DOKART_MODULETableAdapter + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents ListBox2 As System.Windows.Forms.ListBox + Friend WithEvents TBDD_MODULESBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_MODULESTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_MODULESTableAdapter + Friend WithEvents btnadd As System.Windows.Forms.Button + Friend WithEvents cmbWHModule As System.Windows.Forms.ComboBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox + Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage3 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage4 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents lblObjekttyp As System.Windows.Forms.Label + Friend WithEvents btndeleteZuordnung As System.Windows.Forms.Button + Friend WithEvents TBDD_INDEX_MANBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MANTableAdapter + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ACTIVECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents SEQUENCETextBox As System.Windows.Forms.TextBox + Friend WithEvents DEFAULT_VALUETextBox As System.Windows.Forms.TextBox + Friend WithEvents SUGGESTIONCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents DATATYPEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents COMMENTTextBox As System.Windows.Forms.TextBox + Friend WithEvents WD_INDEXComboBox As System.Windows.Forms.ComboBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents TBDD_INDEX_MANBindingNav As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton + Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents lblSaveIndexMan As System.Windows.Forms.Label + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton9 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton10 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton11 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox2 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton12 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton13 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator6 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton14 As System.Windows.Forms.ToolStripButton + Friend WithEvents tscmbUser As System.Windows.Forms.ToolStripComboBox + Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents USER_GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents PRENAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox1 As System.Windows.Forms.TextBox + Friend WithEvents USERNAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents EMAILTextBox As System.Windows.Forms.TextBox + Friend WithEvents LOGGED_INCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents LOGGED_WHERETextBox As System.Windows.Forms.TextBox + Friend WithEvents LOG_IN_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents LOG_OUT_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents GI_ADMINCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBoxUser As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ToolStripButton15 As System.Windows.Forms.ToolStripButton + Friend WithEvents btnSQLView As System.Windows.Forms.Button + Friend WithEvents WINDREAM_DIRECTCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents XtraTabPage5 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents TBGI_CONFIGURATIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGI_CONFIGURATIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_CONFIGURATIONTableAdapter + Friend WithEvents ListBoxObjekttypen As System.Windows.Forms.ListBox + Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter + Friend WithEvents GUIDTextBox3 As System.Windows.Forms.TextBox + Friend WithEvents OBJECTTYPETextBox As System.Windows.Forms.TextBox + Friend WithEvents IDX_EMAIL_IDComboBox As System.Windows.Forms.ComboBox + Friend WithEvents IDX_EMAIL_FROMComboBox As System.Windows.Forms.ComboBox + Friend WithEvents IDX_EMAIL_TOComboBox As System.Windows.Forms.ComboBox + Friend WithEvents IDX_EMAIL_SUBJECTComboBox As System.Windows.Forms.ComboBox + Friend WithEvents IDX_EMAIL_DATE_INComboBox As System.Windows.Forms.ComboBox + Friend WithEvents ADDED_WHOTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents btnidxemail_delete As System.Windows.Forms.Button + Friend WithEvents btnidxemail_Save As System.Windows.Forms.Button + Friend WithEvents btnidxemail_add As System.Windows.Forms.Button + Friend WithEvents lblsavezuordnungIndex As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents IDX_CHECK_ATTACHMENTComboBox As System.Windows.Forms.ComboBox + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton16 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel3 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton17 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton18 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton19 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator7 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox3 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator8 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton20 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton21 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator9 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton22 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents INDEXNAME_AutoIndexTXT As System.Windows.Forms.TextBox + Friend WithEvents GUIDAUTO_INDEXTextbox As System.Windows.Forms.TextBox + Friend WithEvents VALUETextBox As System.Windows.Forms.TextBox + Friend WithEvents COMMENTTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ACTIVECheckBox1 As System.Windows.Forms.CheckBox + Friend WithEvents ADDED_WHOTextBox3 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox3 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox3 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox3 As System.Windows.Forms.TextBox + Friend WithEvents SQL_ACTIVECheckBox As System.Windows.Forms.CheckBox + Friend WithEvents btnSQLViewAuto As System.Windows.Forms.Button + Friend WithEvents lblsaveAutoIndex As System.Windows.Forms.Label + Friend WithEvents XtraTabPage6 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents ToolStripButton23 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton24 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel4 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton25 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton26 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton27 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator10 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox4 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator11 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton28 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton29 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator12 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton30 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter + Friend WithEvents SEQUENCETextBox1 As System.Windows.Forms.TextBox + Friend WithEvents TEXT3TextBox As System.Windows.Forms.TextBox + Friend WithEvents TEXT2TextBox As System.Windows.Forms.TextBox + Friend WithEvents TEXT1TextBox As System.Windows.Forms.TextBox + Friend WithEvents FUNCTION2TextBox As System.Windows.Forms.TextBox + Friend WithEvents FUNCTION1TextBox As System.Windows.Forms.TextBox + Friend WithEvents TYPEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents COMMENTTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox4 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox4 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox4 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox4 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox4 As System.Windows.Forms.TextBox + Friend WithEvents Function2Label As System.Windows.Forms.Label + Friend WithEvents Function1Label As System.Windows.Forms.Label + Friend WithEvents Text3Label As System.Windows.Forms.Label + Friend WithEvents Text2Label As System.Windows.Forms.Label + Friend WithEvents Text1Label As System.Windows.Forms.Label + Friend WithEvents TBWHDD_INDEX_MANBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBWHDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBWHDD_INDEX_MANTableAdapter + Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox + Friend WithEvents lblsavePostProcess As System.Windows.Forms.Label + Friend WithEvents ToolStripButton31 As System.Windows.Forms.ToolStripButton + Friend WithEvents ListBox3 As System.Windows.Forms.ListBox + Friend WithEvents XtraTabControl3 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage7 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage8 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents TBDD_USER_GROUPSBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripButton32 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripLabel5 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton33 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton34 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton35 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox5 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator14 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton36 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton37 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator15 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton38 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton39 As System.Windows.Forms.ToolStripButton + Friend WithEvents TBDD_USER_GROUPSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_USER_GROUPSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USER_GROUPSTableAdapter + Friend WithEvents GUIDTextBox5 As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox2 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox5 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox5 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox5 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox5 As System.Windows.Forms.TextBox + Friend WithEvents lblsaveTBDD_USER_GROUPS As System.Windows.Forms.Label + Friend WithEvents ListBox4 As System.Windows.Forms.ListBox + Friend WithEvents VWGI_USER_GROUPS_RELATIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWGI_USER_GROUPS_RELATIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWGI_USER_GROUPS_RELATIONTableAdapter + Friend WithEvents TBDD_GROUPS_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_GROUPS_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents ListBoxUserzuordnung As System.Windows.Forms.ListBox + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents cmbGroup2User As System.Windows.Forms.ComboBox + Private WithEvents btnAddGroupRelation As System.Windows.Forms.Button + Friend WithEvents lblnewUserZuordnung As System.Windows.Forms.Label + Friend WithEvents btnDeleteGroupRelation As System.Windows.Forms.Button + Friend WithEvents XtraTabPage9 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents lblnewDokartZuordnung As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents cmbGroup2Dokart As System.Windows.Forms.ComboBox + Private WithEvents btnAddDokartGroupRelation As System.Windows.Forms.Button + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents ListBoxDokartzuordnung As System.Windows.Forms.ListBox + Friend WithEvents VWGI_DOCTYPE_GROUPBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWGI_DOCTYPE_GROUPTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWGI_DOCTYPE_GROUPTableAdapter + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents ToolStripButton40 As System.Windows.Forms.ToolStripButton + Friend WithEvents INDEXNAME_AutoIndexCMB As System.Windows.Forms.ComboBox + Friend WithEvents lblValue As System.Windows.Forms.Label + Friend WithEvents Button4 As System.Windows.Forms.Button + Friend WithEvents lblsaveUSer As System.Windows.Forms.Label + Friend WithEvents XtraTabPage10 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox + Friend WithEvents Label25 As System.Windows.Forms.Label + Friend WithEvents btncrFolder_delete As System.Windows.Forms.Button + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents cmbCrFolderDate As System.Windows.Forms.ComboBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents btnaddcrFolderParameter As System.Windows.Forms.Button + Friend WithEvents txtcrFoldermanuell As System.Windows.Forms.TextBox + Friend WithEvents Label19 As System.Windows.Forms.Label + Friend WithEvents Label18 As System.Windows.Forms.Label + Friend WithEvents cmbCrFolderIndex As System.Windows.Forms.ComboBox + Friend WithEvents Label17 As System.Windows.Forms.Label + Friend WithEvents FOLDER_FOR_INDEXTextBox As System.Windows.Forms.TextBox + Friend WithEvents ListBox5 As System.Windows.Forms.ListBox + Friend WithEvents OPTIONALCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents tsbtnCopyDoctype As System.Windows.Forms.ToolStripButton + Friend WithEvents SEQUENCENumericUpDown As System.Windows.Forms.NumericUpDown + Friend WithEvents ListBox6 As System.Windows.Forms.ListBox +End Class diff --git a/Global_Indexer/frmAdministration.resx b/Global_Indexer/frmAdministration.resx new file mode 100644 index 0000000..387cafc --- /dev/null +++ b/Global_Indexer/frmAdministration.resx @@ -0,0 +1,916 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 244, 17 + + + 134, 17 + + + 457, 95 + + + 538, 56 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 511, 212 + + + 17, 251 + + + 17, 173 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 17, 212 + + + 940, 173 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 521, 251 + + + 809, 290 + + + 17, 56 + + + 17, 95 + + + 757, 56 + + + 921, 17 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 1010, 251 + + + 374, 173 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 1075, 95 + + + 921, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 714, 134 + + + 206, 134 + + + 499, 17 + + + 748, 17 + + + 280, 56 + + + 1025, 56 + + + 240, 95 + + + 692, 95 + + + 17, 134 + + + 463, 134 + + + 638, 173 + + + 267, 212 + + + 852, 212 + + + 272, 251 + + + 768, 251 + + + 17, 290 + + + 320, 290 + + + 567, 290 + + + 17, 329 + + + 173 + + + + AAABAAEAICAAAAEACACoCAAAFgAAACgAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAFSZAABUlwAAVJUAAFOVAABPkAAATo4AAFebAABVmgAkkdwAY8T/AEa1+AAAUJEAAmy3AAqR + 5QAEc8EAAE2LAABOigAUesQAT7X0AHXL/wBKu/8APLX/AEWu7wAAUpIADpfsAA+f9wAMmPAABHK/AABL + iABJr/EAZMX/AFXA/wBAuP8ANrP/AD2j5QAOkOEAEqL6ABCi+gANn/YAAEqHACGS4gBHuv8AP7f/ADi1 + /wAtsP8AKK//AA57xQAfqv8AGqn+AAyd9gALjN8AAER5ADu1/wA2tP8AMbL/ACew/wAirf8AGan+ABWo + /gALofsACYDOAAA9bgAAR4AAAFWcAABWmQAATo0AAEiBACuV4wBJu/8ARLn/ADq3/wA1tP8AMLH/ACuw + /wAerP8AEaf/AABIggACa7YAB4DSAABGfwAAWJwAPK32AG/H/gA/qvIAHYfZAABkuQBDsfYATb3/AEO4 + /wA5q/EAMJveAByq/gAXqP4AFKf+AA+X6wAHkecACZ73AAqM4QAARXwAvub/AJnZ/wCC0P8AVr//AFG+ + /wAxi8kAAFCPABt1sQAQpf8ADqH7AABEegA2kNEAXsP/AFvB/wAmc6sAAGezAAB81gAAedEAAHXJAABf + pQAffLoAG6v+ABOn/gAFgdcAAEN4AKzg/wBoxf8AAHfNAAB/2gAAgN0AAH3ZAAByywAAZbUADaL7AAmP + 5wAAQncAcMf+AGrH/wBnxf8AYcT/AABZnwAAc8gAAHjUABan/gAAdMwAHZ30AEi2+wB7zf8Ab8j/AABK + hAAAZbMAAG3FAABovgAAV6AAAGa2AABBdgAAasIAec3/AABYogAAX7EAAFumAAyQ5AAAZbYAAEJ1AABu + xAAAXagACo/sACl7tgAAQXMAFab8AAiW7gAIgtgAAGKwAI/V/wBtyP8ASqHaAAA+bwAlrv8AIaz/AAxt + sgCa2P8AhdH/AHHK/wAxgbkAAFaXACmw/wAAP3IAIoPDAIHQ/wDf8/8AMrH/ABqq/QD///8AUafeAA1l + pwAXp/wAodz/AE69/wBUv/8AHY7hACGU5gAkmuoAK6b0AKLb/wCw4f8ASbn9AB2Q4QB9z/8AXMH/AFjA + /wBTv/8AUL3/AABhsQADfNcAAD9wAABotgAZm/IAL6XyAJvZ/wBgw/8AVsH/AEOt9AADbb8AAGGyAKzf + /wBox/8AZsb/AInT/wAjlOMAC3vQAHfN/wBzyv8ALaTyAHDJ/wA9tv8AKZnkAABntAC85v8Al9j/AAuC + 2gAOkOwAueX/AFu9+gAUhNkAAGG0ALfl/wADiegAB3TMAAJ/2wAAc80AAGOsAA1gmwAAcMEAAHjPAABA + cQAAAAAAAAAAAAAAAAAAAAAAAG40fIcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAUGNjd/z9/YcAAAAA + uv7WAAAAAAAAAAAAAAAAAAAAAEP8gYGBgYGBfAAAAKiBg6DWsAAAAAAAAAAAAAAAAAAATfqBgYGBgYH7 + hwCjdIGcVlYEsAAAAAAAAAAAAAAAAABNuPiBgYGmkXh8h/mBgZhWVlagsAAAAAAAAAAAHQAAAABNjqbN + te3x9eNWgYH22cf3VlbWAAAAAAAAABDsHQAAAJXltWTtZe7jFO+B8CDxxPLz9NYAAAAAAABCgYGDHR0A + TeVk2rSt5hTnxujp4+Pj4+rr1gAAAAAAaoGBgYGDVk0YzuDaZp22H+Hh4eHh4eLj5N7W1gAAAAzXgYGB + gdjOVrjZ2madiR/b0NzGaNzGH93eBJ7f1gAAGIGBgYGRy8zNzs9mrokfi9DR0sXFxsbTx5nUl9XWAAAY + gYGBkcS9tLRmk5SJilpbW1tbWsXGxjbHyMnKym26AAAYgZG1wGS0rZOdtsFyUGOjfD4+whY2vkm+vr45 + w7oAAAAYu7y9tK2Tnba3TUMAAAAAAD4+eL6+vr6/qaltugAAAAAYs2S0tZ22t7gAAAAAAAAAPgY+Wrmy + sqmpbWG6AAADBJylka2drq8HAAAAAAAAAACwmT5bsbJcqW1hYagBAqSOnKWmnZSJpwcAAAAAAAAAqJmg + fFs5XKltqquso0GBgY6ckZOdiR+MAAAAAAAAYzSen6B8W0s6oaIoKKMACIGBkZKTlH6Ki4wGQhEdlUNR + lpeYmUNaOjuFG5oGmwAACIhlZmaJiotwjHONgoCBgY6Dg4RDeDGPTG1tG5CHAAAHZX1mZn4KcHFpanN/ + gIGBgoOEanh5XXqFbW1hhocAAAdvZGVmCnBxIGhyanN0dXZ3amp4eV16em1tYWF7fAAAAAdkZWZmCmdo + WCppamoGQhFrW1xdXmxtbWFhYm4AAAAAUVJTVFVWV1hFWStaW1tbWjlcXV5fTmBhYWJjAAAAAAAAQAdB + QkNERUYrR0hJSjg5Szo7TBw+TU5PUAAAAAAAAAAAAAAHCCAgITU2Ny04OTA6OyY8PT4APz8AAAAAAAAA + AAAAAAcpICAqKywtLi8wMSYmJjIzNAAAAAAAAAAAAAAAAAAABx4fHyAhIiIjBSQlJicaGg4oAAAAAAAA + AAAAAAAAAAAHEhMUChUWFxgABRkaGhscHR0AAAAAAAAAAAAAAAAAAAAHCAEJCgsEAAAMDQ4PEBEAAAAA + AAAAAAAAAAAAAAAAAAAAAAECAwQAAAAFBgYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAP/4f///wDx//4A4H/+AEA//gAAH+8AAB/HAAAfgQAAHwAAAA4AAAAGAAAABgAAAAMAA + AADgAfAA8AfwAMAP8AAAD+AAAB+AAQAAAAGAAAABgAAAAYAAAAHAAAADwAAAB+AAAA/8AACf/AAA//wA + AP/8AQD//gMD///Dj/////// + + + \ No newline at end of file diff --git a/Global_Indexer/frmAdministration.vb b/Global_Indexer/frmAdministration.vb new file mode 100644 index 0000000..b54bea5 --- /dev/null +++ b/Global_Indexer/frmAdministration.vb @@ -0,0 +1,921 @@ +Public Class frmAdministration + Public Shared _Namenkonvention As String + Public Shared _aktDokart_Id As Integer + Private IsInsert As Boolean = False + Dim frmloaded As Boolean = False + Private Sub TBDD_DOKUMENTARTBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingNavigatorSaveItem.Click + Save_Dokumentart() + End Sub + + Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_USER_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen. + If ClassWindream.Init() = True Then + + End If + XtraTabControl1.SelectedTabPageIndex = 0 + ToolStripComboBox1.SelectedIndex = 0 + Try + Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN) + Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES) + If GI_withWindream = True Then + If ClassWindream.Init() = True Then + + End If + End If + Catch ex As Exception + MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Private Sub ObjektTypenEintragen() + Try + Dim oDokumentTyp As WINDREAMLib.WMObject + ' Combobox leeren + Me.OBJEKTTYPComboBox.Items.Clear() + ' alle Objekttypen durchlaufen + For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects + ' und in die Combobox eintragen + Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName) + Next + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + End Try + + End Sub + Sub Load_Dokart(Type As String) + Try + '* Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString + If Type = "Global-Indexer Dokarten" Then + Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART) + Else + Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART) + End If + If Me.DOKART_GUIDTextBox.Text <> "" Then + Load_TabData() + End If + Catch ex As Exception + MsgBox("Error in Load_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + Sub Load_TabData() + If frmloaded = False Then + Exit Sub + End If + Save_Dokumentart() + Select Case XtraTabControl2.SelectedTabPageIndex + Case 0 + If DOKART_GUIDTextBox.Text <> "" Then + Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) + End If + Case 1 + Load_PostProcessing(Me.DOKART_GUIDTextBox.Text) + Case 2 + Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text) + Case 3 + Load_UserGroups() + Load_DokartZuordnung(DOKART_GUIDTextBox.Text) + Case 4 + Try + Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME") + cmbCrFolderIndex.DataSource = Dt + cmbCrFolderIndex.DisplayMember = Dt.Columns(0).ColumnName + Catch ex As Exception + MsgBox("Error in Load Data TabData 4: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + + End Select + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + 'First create a FolderBrowserDialog object + Dim FolderBrowserDialog1 As New FolderBrowserDialog + ' Then use the following code to create the Dialog window + ' Change the .SelectedPath property to the default location + With FolderBrowserDialog1 + ' Desktop is the root folder in the dialog. + '.RootFolder = Environment.SpecialFolder.Desktop + ' Prompt the user with a custom message. + .Description = "Zielordner für Dokumentart wählen:" + If .ShowDialog = DialogResult.OK Then + Dim Path As String = .SelectedPath + ZIEL_PFADTextBox.Text = .SelectedPath + End If + End With + End Sub + Sub Save_Dokumentart() + Try + Try + Me.TBDD_DOKUMENTARTBindingSource.EndEdit() + Catch ex As Exception + If ex.Message.StartsWith("Der interne Datatable") Then + Save_Dokumentart() + Else + MsgBox("Error in EndEdit 1 documenttype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End If + End Try + + If MyDataset.TBDD_DOKUMENTART.GetChanges Is Nothing = False Then + Me.GEANDERTWERTextBox.Text = Environment.UserName + Try + Me.TBDD_DOKUMENTARTBindingSource.EndEdit() + Catch ex As Exception + If ex.Message.StartsWith("Der interne Datatable") Then + Save_Dokumentart() + Else + MsgBox("Error in EndEdit 2 documenttype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End If + End Try + TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART) + lblSaveDokart.Visible = True + If IsInsert = True Then + Add_Zuordnung(ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)) + End If + Else + lblSaveDokart.Visible = False + End If + IsInsert = False + Catch ex As Exception + MsgBox("Error in Save_Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + + End Sub + Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click + Save_Dokumentart() + Dim _temp As String + _temp = Me.NAMENKONVENTIONTextBox.Text + _Namenkonvention = Me.NAMENKONVENTIONTextBox.Text + _aktDokart_Id = DOKART_GUIDTextBox.Text + frmNamenkonvention.ShowDialog() + Me.NAMENKONVENTIONTextBox.Text = _Namenkonvention + If _temp <> NAMENKONVENTIONTextBox.Text Then + Save_Dokumentart() + End If + End Sub + + Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged + lblSaveDokart.Visible = False + End Sub + + Private Sub ToolStripComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ToolStripComboBox1.SelectedIndexChanged + Load_Dokart(ToolStripComboBox1.Text) + End Sub + + Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew + MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName + IsInsert = True + End Sub + + Private Sub Load_ZuordnungDokart_Module(Dokart As Integer) + Try + Me.TBDD_DOKART_MODULETableAdapter.Fill(Me.MyDataset.TBDD_DOKART_MODULE, Dokart) + Catch ex As System.Exception + MsgBox("Error in Load Zuordnung_Dokart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + + End Sub + Sub Add_Zuordnung(id As Integer) + If cmbWHModule.SelectedIndex <> -1 Then + TBDD_DOKART_MODULETableAdapter.cmdInsertDokartModule(id, cmbWHModule.SelectedValue, Environment.UserName) + Load_ZuordnungDokart_Module(id) + End If + End Sub + Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click + Add_Zuordnung(Me.DOKART_GUIDTextBox.Text) + End Sub + + Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged + load_WDIndices() + + End Sub + Sub load_WDIndices() + Try + If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then + Me.WD_INDEXComboBox.Items.Clear() + Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) + If indexe IsNot Nothing Then + For Each index As String In indexe + Me.WD_INDEXComboBox.Items.Add(index) + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices: ") + End Try + End Sub + Sub load_WDIndices2AutoIndizes() + Try + If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then + Me.INDEXNAME_AutoIndexCMB.Items.Clear() + Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) + If indexe IsNot Nothing Then + For Each index As String In indexe + Me.INDEXNAME_AutoIndexCMB.Items.Add(index) + Next + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ") + End Try + End Sub + Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged + If Not ListBox1.SelectedValue Is Nothing Then + Load_ZuordnungDokart_Module(ListBox1.SelectedValue) + Load_TabData() + End If + + End Sub + + Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown + If DOKART_GUIDTextBox.Text <> "" Then + Load_Dokart("Global-Indexer Dokarten") + 'Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) + Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text) + If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then + btnSQLView.Visible = True + Else + btnSQLView.Visible = False + End If + End If + frmloaded = True + tscmbUser.SelectedIndex = 0 + End Sub + + Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click + Try + If Not ListBox2.SelectedValue Is Nothing Then + Dim cmd As String = "Delete from TBDD_DOKUMENTART_MODULE where GUID = " & ListBox2.SelectedValue + ClassDatabase.Execute_non_Query(cmd, True) + Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete Zuordnung: ") + End Try + + End Sub + + Private Sub Load_INDEXMAN(DA_ID As Integer) + Try + Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") + End Try + + End Sub + Private Sub Load_INDEXE_AUTO(DA_ID As Integer) + Try + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID) + CheckIndexAutoWD() + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ") + End Try + + End Sub + Private Sub Load_PostProcessing(DA_ID As Integer) + Try + Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID) + Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID) + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ") + End Try + + End Sub + + + Sub CheckIndexAutoWD() + If WINDREAM_DIRECTCheckBox.Checked = True Then + INDEXNAME_AutoIndexTXT.Visible = False + load_WDIndices2AutoIndizes() + INDEXNAME_AutoIndexCMB.Visible = True + Else + INDEXNAME_AutoIndexTXT.Visible = True + INDEXNAME_AutoIndexCMB.Visible = False + End If + End Sub + Private Sub TBDD_INDEX_MANBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MANBindingSource.AddingNew + Try + IsInsert = True + MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text + If GI_withWindream = True Then + Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexMan: ") + End Try + + End Sub + + Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click + Save_IndexMan() + End Sub + Sub Save_IndexMan() + Try + Me.TBDD_INDEX_MANBindingSource.EndEdit() + If MyDataset.TBDD_INDEX_MAN.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox.Text = Environment.UserName + Me.TBDD_INDEX_MANBindingSource.EndEdit() + TBDD_INDEX_MANTableAdapter.Update(MyDataset.TBDD_INDEX_MAN) + lblSaveIndexMan.Visible = True + Else + lblSaveIndexMan.Visible = False + End If + IsInsert = False + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Man Index: ") + End Try + End Sub + Sub Save_IndexAuto() + Try + Me.TBDD_INDEX_AUTOMBindingSource.EndEdit() + If MyDataset.TBDD_INDEX_AUTOM.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox3.Text = Environment.UserName + Me.TBDD_INDEX_AUTOMBindingSource.EndEdit() + TBDD_INDEX_AUTOMTableAdapter.Update(MyDataset.TBDD_INDEX_AUTOM) + lblsaveAutoIndex.Visible = True + Else + lblsaveAutoIndex.Visible = False + End If + IsInsert = False + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Auto Index: ") + End Try + End Sub + + Private Sub TBDD_INDEX_MANBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_MANBindingSource.CurrentChanged + lblSaveIndexMan.Visible = False + End Sub + + Private Sub SUGGESTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SUGGESTIONCheckBox.CheckedChanged + If frmloaded = True Then + If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then + btnSQLView.Visible = True + Else + btnSQLView.Visible = False + End If + If IsInsert = False Then + Save_IndexMan() + End If + End If + End Sub + + Private Sub ToolStripButton15_Click(sender As Object, e As EventArgs) Handles ToolStripButton15.Click + If tscmbUser.SelectedIndex = 1 Then + Refresh_User(True) + Else + Refresh_User(False) + End If + + End Sub + Sub Refresh_User(All As Boolean) + Try + If All = True Then + Me.TBDD_USERTableAdapter.FillByAll(Me.MyDataset.TBDD_USER) + Else + Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER) + End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_User: ") + End Try + End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Select Case XtraTabControl1.SelectedTabPageIndex + Case 0 + If DOKART_GUIDTextBox.Text <> "" Then + Load_ZuordnungDokart_Module(DOKART_GUIDTextBox.Text) + End If + Case 1 + If tscmbUser.SelectedIndex = 1 Then + Refresh_User(True) + Else + Refresh_User(False) + End If + Load_UserRelation(USER_GUIDTextBox.Text) + Load_UserGroups() + Case 2 + ObjektTypenListBoxEintragen() + End Select + + End Sub + Sub load_WDIndicesemail(Otype As String) + Try + IDX_EMAIL_DATE_INComboBox.Items.Clear() + IDX_EMAIL_FROMComboBox.Items.Clear() + IDX_EMAIL_IDComboBox.Items.Clear() + IDX_EMAIL_SUBJECTComboBox.Items.Clear() + IDX_EMAIL_TOComboBox.Items.Clear() + IDX_CHECK_ATTACHMENTComboBox.Items.Clear() + Dim indexe = ClassWindream.GetIndicesByObjecttype(Otype) + If indexe IsNot Nothing Then + For Each index As String In indexe + Select Case ClassWindream.GetTypeOfIndexAsIntByName(index) + Case 4 'Boolean + Me.IDX_CHECK_ATTACHMENTComboBox.Items.Add(index) + Case Else + Me.IDX_EMAIL_DATE_INComboBox.Items.Add(index) + Me.IDX_EMAIL_FROMComboBox.Items.Add(index) + Me.IDX_EMAIL_IDComboBox.Items.Add(index) + Me.IDX_EMAIL_SUBJECTComboBox.Items.Add(index) + Me.IDX_EMAIL_TOComboBox.Items.Add(index) + End Select + + + Next + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndicesemail: ") + End Try + End Sub + Private Sub ObjektTypenListBoxEintragen() + Try + Dim oDokumentTyp As WINDREAMLib.WMObject + ' Combobox leeren + Me.ListBoxObjekttypen.Items.Clear() + ' alle Objekttypen durchlaufen + For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects + ' und in die Combobox eintragen + Me.ListBoxObjekttypen.Items.Add(oDokumentTyp.aName) + Next + Catch ex As Exception + MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add(">> ACHTUNG: Error in ObjektTypenListBoxEintragen - " & ex.Message, False) + End Try + + End Sub + + Private Sub btnSQLView_Click(sender As Object, e As EventArgs) Handles btnSQLView.Click + Save_IndexMan() + CURRENT_INDEXMAN = GUIDTextBox1.Text + frmSQLSuggestion.ShowDialog() + End Sub + + Private Sub WINDREAM_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles WINDREAM_DIRECTCheckBox.CheckedChanged + If WINDREAM_DIRECTCheckBox.Checked Then + OBJEKTTYPComboBox.Visible = True + lblObjekttyp.Visible = True + WD_INDEXComboBox.Visible = True + If ClassWindream.Init() = True Then + ObjektTypenEintragen() + End If + Else + OBJEKTTYPComboBox.Visible = False + lblObjekttyp.Visible = False + + WD_INDEXComboBox.Visible = False + End If + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) + ClassWindream.GetSystemIndices("") + End Sub + + Private Sub LoadIDXEmail(Otype As String) + Try + Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Fill(Me.MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX, Otype) + Catch ex As System.Exception + MsgBox("Error in LoadIDXEmail:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxObjekttypen.SelectedIndexChanged + If ListBoxObjekttypen.SelectedIndex <> -1 Then + LoadIDXEmail(ListBoxObjekttypen.SelectedItem) + load_WDIndicesemail(ListBoxObjekttypen.SelectedItem) + lblsavezuordnungIndex.Visible = False + End If + End Sub + + Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs) Handles btnidxemail_add.Click + Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew() + End Sub + + Private Sub TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddingNew + If ListBoxObjekttypen.SelectedIndex <> -1 Then + MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.OBJECTTYPEColumn.DefaultValue = ListBoxObjekttypen.SelectedItem + End If + End Sub + + Private Sub btnidxemail_Save_Click(sender As Object, e As EventArgs) Handles btnidxemail_Save.Click + Try + Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit() + If MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox2.Text = Environment.UserName + TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.EndEdit() + TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Update(MyDataset.TBGI_OBJECTTYPE_EMAIL_INDEX) + lblsavezuordnungIndex.Visible = True + Else + lblsavezuordnungIndex.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Index-Email:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged + Load_TabData() + End Sub + Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs) Handles ToolStripButton22.Click + Save_IndexAuto() + End Sub + + Private Sub TBDD_INDEX_AUTOMBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_AUTOMBindingSource.AddingNew + Try + MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text + IsInsert = True + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ") + End Try + + End Sub + + Private Sub TBDD_INDEX_AUTOMBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_INDEX_AUTOMBindingSource.CurrentChanged + CheckIndexAutoWD() + lblsaveAutoIndex.Visible = False + End Sub + + Private Sub SQL_ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SQL_ACTIVECheckBox.CheckedChanged + If frmloaded = True Then + If SQL_ACTIVECheckBox.CheckState = CheckState.Checked Then + btnSQLViewAuto.Visible = True + Me.lblValue.Visible = False + VALUETextBox.Visible = False + VALUETextBox.Text = "" + Else + Me.lblValue.Visible = True + VALUETextBox.Visible = True + VALUETextBox.Text = "" + btnSQLViewAuto.Visible = False + End If + If IsInsert = False Then + Save_IndexAuto() + End If + End If + End Sub + + Private Sub btnSQLViewAuto_Click(sender As Object, e As EventArgs) Handles btnSQLViewAuto.Click + Save_IndexAuto() + CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text + SQLConfigAutoIndex.ShowDialog() + End Sub + + Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles ToolStripButton23.Click + Dim frm As New frmUserKonfig_AddUsers + Cursor = Cursors.WaitCursor + frm.ShowDialog() + If tscmbUser.SelectedIndex = 1 Then + Refresh_User(True) + Else + Refresh_User(False) + End If + Cursor = Cursors.Default + End Sub + + Public Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Try + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_EINGANGSARTENTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_DOKART_MODULETableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWGI_DOCTYPE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load Connection-Strings: ") + End Try + + + End Sub + + Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged + If TYPEComboBox.SelectedIndex <> -1 Then + Select Case TYPEComboBox.Text + Case "VBREPLACE" + Me.Text1Label.Text = "Old Value:" + Me.TEXT1TextBox.Visible = True + Me.Text2Label.Text = "New Value:" + Me.TEXT2TextBox.Visible = True + Me.Text3Label.Visible = False + Me.TEXT3TextBox.Visible = False + Me.FUNCTION1TextBox.Visible = False + Me.FUNCTION2TextBox.Visible = False + Me.Function1Label.Visible = False + Me.Function2Label.Visible = False + + Me.Function1Label.Visible = False + Me.Function2Label.Visible = False + Me.FUNCTION1TextBox.Visible = False + Me.FUNCTION2TextBox.Visible = False + + Case "VBSPLIT" + Me.FUNCTION1TextBox.Visible = True + Me.FUNCTION2TextBox.Visible = True + Me.Function1Label.Visible = True + Me.Function2Label.Visible = True + + Me.TEXT1Label.Text = "Split-Zeichen:" + Me.TEXT1TextBox.Visible = True + Me.Text2Label.Text = "Wähle Vorkommen: (Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'" + Me.TEXT2TextBox.Visible = True + + Me.TEXT3TextBox.Visible = False + Me.Text3Label.Visible = False + + Me.Function1Label.Visible = False + Me.Function2Label.Visible = False + Me.FUNCTION1TextBox.Visible = False + Me.FUNCTION2TextBox.Visible = False + Case Else + + End Select + End If + + End Sub + Private Sub ToolStripButton30_Click(sender As Object, e As EventArgs) Handles ToolStripButton30.Click + + Save_PostProcessing() + End Sub + Sub Save_PostProcessing() + Try + TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit() + If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox4.Text = Environment.UserName + TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit() + Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Update(MyDataset.TBDD_INDEX_MAN_POSTPROCESSING) + lblsavePostProcess.Visible = True + Else + lblsavePostProcess.Visible = False + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save Post Processing: ") + End Try + End Sub + + Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew + MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1 + End Sub + + Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs) Handles ToolStripButton31.Click + Load_PostProcessing(Me.DOKART_GUIDTextBox.Text) + End Sub + + Private Sub ToolStripButton38_Click(sender As Object, e As EventArgs) Handles ToolStripButton38.Click + Save_UserGroups() + End Sub + Sub Save_UserGroups() + Try + TBDD_USER_GROUPSBindingSource.EndEdit() + If MyDataset.TBDD_USER_GROUPS.GetChanges Is Nothing = False Then + CHANGED_WHOTextBox5.Text = Environment.UserName + TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.EndEdit() + Me.TBDD_USER_GROUPSTableAdapter.Update(MyDataset.TBDD_USER_GROUPS) + lblsaveTBDD_USER_GROUPS.Visible = True + Else + lblsaveTBDD_USER_GROUPS.Visible = False + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save User-Groups: ") + End Try + End Sub + Sub Load_UserGroups() + Try + Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.MyDataset.TBDD_USER_GROUPS) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Groups: ") + End Try + End Sub + + Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged + Select Case XtraTabControl3.SelectedTabPageIndex + Case 0 + Load_UserRelation(ListBox3.SelectedValue) + Case 1 + Load_UserGroups() + End Select + End Sub + + Private Sub TBDD_USER_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USER_GROUPSBindingSource.AddingNew + Me.MyDataset.TBDD_USER_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub Load_UserRelation(UserID As Integer) + Try + Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Fill(Me.MyDataset.VWGI_USER_GROUPS_RELATION, UserID) + lblnewUserZuordnung.Visible = False + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load User-Relation: ") + End Try + End Sub + + Private Sub btnAddGroupRelation_Click(sender As Object, e As EventArgs) Handles btnAddGroupRelation.Click + If cmbGroup2User.SelectedIndex <> -1 And USER_GUIDTextBox.Text <> "" Then + Try + TBDD_GROUPS_USERTableAdapter.cmdinsert(USER_GUIDTextBox.Text, cmbGroup2User.SelectedValue, Environment.UserName) + Load_UserRelation(USER_GUIDTextBox.Text) + lblnewUserZuordnung.Visible = True + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add User-Relation: ") + End Try + + End If + End Sub + + Private Sub btnDeleteGroupRelation_Click(sender As Object, e As EventArgs) Handles btnDeleteGroupRelation.Click + If Not ListBoxUserzuordnung.SelectedValue Is Nothing Then + TBDD_GROUPS_USERTableAdapter.Delete(ListBoxUserzuordnung.SelectedValue) + Load_UserRelation(USER_GUIDTextBox.Text) + End If + End Sub + + Private Sub TBDD_USERBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.CurrentChanged + If USER_GUIDTextBox.Text <> "" Then + Load_UserRelation(USER_GUIDTextBox.Text) + End If + + End Sub + + Private Sub Load_DokartZuordnung(DokID As Integer) + Try + Me.VWGI_DOCTYPE_GROUPTableAdapter.Fill(Me.MyDataset.VWGI_DOCTYPE_GROUP, DokID) + lblnewDokartZuordnung.Visible = False + Catch ex As System.Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Doctype-Relation: ") + End Try + + End Sub + + Private Sub btnAddDokartGroupRelation_Click(sender As Object, e As EventArgs) Handles btnAddDokartGroupRelation.Click + If cmbGroup2Dokart.SelectedIndex <> -1 And DOKART_GUIDTextBox.Text <> "" Then + Try + VWGI_DOCTYPE_GROUPTableAdapter.cmdInsert(DOKART_GUIDTextBox.Text, cmbGroup2Dokart.SelectedValue, Environment.UserName) + Load_DokartZuordnung(DOKART_GUIDTextBox.Text) + lblnewDokartZuordnung.Visible = True + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Doctype-Relation: ") + End Try + + End If + End Sub + + Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click + If Not ListBoxDokartzuordnung.SelectedValue Is Nothing Then + VWGI_DOCTYPE_GROUPTableAdapter.cmdDelete(ListBoxDokartzuordnung.SelectedValue) + Load_DokartZuordnung(DOKART_GUIDTextBox.Text) + End If + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + frmSQL_Admin.ShowDialog() + End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Try + Dim del As String = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID IN (SELECT GUID FROM TBDD_INDEX_MAN WHERE DOK_ID = " & DOKART_GUIDTextBox.Text & ")" + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = " & DOKART_GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & DOKART_GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = " & DOKART_GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_DOKUMENTART_MODULE WHERE DOKART_ID = " & DOKART_GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBDD_DOKUMENTART WHERE GUID = " & DOKART_GUIDTextBox.Text + If ClassDatabase.Execute_non_Query(del, True) = True Then + ' Load_Dokart("Global-Indexer Dokarten") + MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information) + End If + End If + End If + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ") + End Try + End If + End Sub + + Private Sub ToolStripButton40_Click(sender As Object, e As EventArgs) Handles ToolStripButton40.Click + Dim str = "Global-Indexer Dokarten" + If ToolStripComboBox1.Text <> "" Then + str = ToolStripComboBox1.Text + End If + Load_Dokart(str) + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + frmLicense.ShowDialog() + End Sub + + Private Sub tscmbUser_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscmbUser.SelectedIndexChanged + If tscmbUser.SelectedIndex = 1 Then + Refresh_User(True) + Else + Refresh_User(False) + End If + End Sub + + Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) Handles ToolStripButton14.Click + Save_User + End Sub + Sub Save_User() + Try + TBDD_USERBindingSource.EndEdit() + If MyDataset.TBDD_USER.GetChanges Is Nothing = False Then + CHANGED_WHOTextBoxUser.Text = Environment.UserName + TBDD_USERBindingSource.EndEdit() + Me.TBDD_USERTableAdapter.Update(MyDataset.TBDD_USER) + lblsaveUSer.Visible = True + Else + lblsaveUSer.Visible = False + End If + If ClassDatabase.Execute_Scalar("SELECT MODULE_GI FROM TBDD_USER WHERE GUID = " & USER_GUIDTextBox.Text, MyConnectionString) = 0 Then + Dim sql As String = "UPDATE TBDD_USER SET MODULE_GI = 1 where GUID = " & USER_GUIDTextBox.Text + ClassDatabase.Execute_non_Query(Sql) + + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Save User: ") + End Try + End Sub + + Private Sub btncrFolder_delete_Click(sender As Object, e As EventArgs) Handles btncrFolder_delete.Click + Me.FOLDER_FOR_INDEXTextBox.Text = "" + Save_Dokumentart() + End Sub + + Private Sub btnaddcrFolderParameter_Click(sender As Object, e As EventArgs) Handles btnaddcrFolderParameter.Click + Dim str As String + If (FOLDER_FOR_INDEXTextBox.Text = "") = False Then + str = FOLDER_FOR_INDEXTextBox.Text & "\" + End If + If cmbCrFolderIndex.SelectedIndex <> -1 Then + Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%" & cmbCrFolderIndex.Text & "]" + cmbCrFolderIndex.SelectedIndex = -1 + ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then + Me.FOLDER_FOR_INDEXTextBox.Text = str & "[V%" & cmbCrFolderDate.Text & "]" + cmbCrFolderDate.SelectedIndex = -1 + ElseIf txtcrFoldermanuell.Text <> "" Then + Me.FOLDER_FOR_INDEXTextBox.Text = str & txtcrFoldermanuell.Text + txtcrFoldermanuell.Text = "" + End If + Me.TBDD_DOKUMENTARTTableAdapter.cmdUpdateFolderIndex(Environment.UserName, FOLDER_FOR_INDEXTextBox.Text, DOKART_GUIDTextBox.Text) + Me.lblSaveDokart.Visible = True + End Sub + Private Sub cmbCrFolderIndex_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderIndex.SelectedIndexChanged + cmbCrFolderDate.SelectedIndex = -1 + txtcrFoldermanuell.Text = "" + End Sub + + Private Sub cmbCrFolderDate_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCrFolderDate.SelectedIndexChanged + cmbCrFolderIndex.SelectedIndex = -1 + txtcrFoldermanuell.Text = "" + End Sub + + Private Sub txtcrFoldermanuell_TextChanged(sender As Object, e As EventArgs) Handles txtcrFoldermanuell.TextChanged + cmbCrFolderDate.SelectedIndex = -1 + cmbCrFolderIndex.SelectedIndex = -1 + End Sub + + Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging + + End Sub + + Private Sub tsbtnCopyDoctype_Click(sender As Object, e As EventArgs) Handles tsbtnCopyDoctype.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Try + Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1" + If ClassDatabase.Execute_non_Query(copy, True) Then + MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die manuelle Nachbearbeitung wurde nicht kopiert." _ + & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information) + Dim str = "Global-Indexer Dokarten" + If ToolStripComboBox1.Text <> "" Then + str = ToolStripComboBox1.Text + End If + Load_Dokart(str) + End If + Catch ex As Exception + MsgBox("Error in Copy Doctype:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmConfig_Basic.designer.vb b/Global_Indexer/frmConfig_Basic.designer.vb new file mode 100644 index 0000000..5e636c9 --- /dev/null +++ b/Global_Indexer/frmConfig_Basic.designer.vb @@ -0,0 +1,409 @@ + _ +Partial Class frmConfig_Basic + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic)) + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.chkbxUserAut = New System.Windows.Forms.CheckBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.cmbDatenbank = New System.Windows.Forms.ComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtActualConnection = New System.Windows.Forms.TextBox() + Me.txtServer = New System.Windows.Forms.TextBox() + Me.txtUser = New System.Windows.Forms.TextBox() + Me.txtPasswort = New System.Windows.Forms.TextBox() + Me.BtnConnect = New System.Windows.Forms.Button() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.btnApplicationFolder = New System.Windows.Forms.Button() + Me.btnopenlog = New System.Windows.Forms.Button() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtuniversalViewer = New System.Windows.Forms.TextBox() + Me.lblUniversalViewer = New System.Windows.Forms.Label() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.btnsetFW_Folder = New System.Windows.Forms.Button() + Me.btnFW_OwnFiles = New System.Windows.Forms.Button() + Me.btnFW_Desktop = New System.Windows.Forms.Button() + Me.txtFolderWatch = New System.Windows.Forms.TextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.btnstartstop1 = New System.Windows.Forms.Button() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.SuspendLayout() + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(695, 261) + Me.TabControl1.TabIndex = 0 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.chkbxUserAut) + Me.TabPage1.Controls.Add(Me.Label5) + Me.TabPage1.Controls.Add(Me.cmbDatenbank) + Me.TabPage1.Controls.Add(Me.Label4) + Me.TabPage1.Controls.Add(Me.Label1) + Me.TabPage1.Controls.Add(Me.Label2) + Me.TabPage1.Controls.Add(Me.Label3) + Me.TabPage1.Controls.Add(Me.txtActualConnection) + Me.TabPage1.Controls.Add(Me.txtServer) + Me.TabPage1.Controls.Add(Me.txtUser) + Me.TabPage1.Controls.Add(Me.txtPasswort) + Me.TabPage1.Controls.Add(Me.BtnConnect) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(687, 235) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Datenbank-Verbindung" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'chkbxUserAut + ' + Me.chkbxUserAut.AutoSize = True + Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36) + Me.chkbxUserAut.Name = "chkbxUserAut" + Me.chkbxUserAut.Size = New System.Drawing.Size(170, 17) + Me.chkbxUserAut.TabIndex = 47 + Me.chkbxUserAut.Text = "Windows-Authentifizierung" + Me.chkbxUserAut.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(5, 115) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(150, 13) + Me.Label5.TabIndex = 46 + Me.Label5.Text = "Aktueller ConnectionString:" + ' + 'cmbDatenbank + ' + Me.cmbDatenbank.FormattingEnabled = True + Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82) + Me.cmbDatenbank.Name = "cmbDatenbank" + Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21) + Me.cmbDatenbank.TabIndex = 39 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(5, 62) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 44 + Me.Label4.Text = "Datenbank:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(5, 14) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(74, 13) + Me.Label1.TabIndex = 41 + Me.Label1.Text = "Server-Name:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(299, 14) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(84, 13) + Me.Label2.TabIndex = 42 + Me.Label2.Text = "Benutzername:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(423, 14) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(56, 13) + Me.Label3.TabIndex = 43 + Me.Label3.Text = "Passwort:" + ' + 'txtActualConnection + ' + Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtActualConnection.Location = New System.Drawing.Point(8, 131) + Me.txtActualConnection.Name = "txtActualConnection" + Me.txtActualConnection.ReadOnly = True + Me.txtActualConnection.Size = New System.Drawing.Size(547, 22) + Me.txtActualConnection.TabIndex = 45 + ' + 'txtServer + ' + Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText + Me.txtServer.Location = New System.Drawing.Point(8, 34) + Me.txtServer.Name = "txtServer" + Me.txtServer.Size = New System.Drawing.Size(288, 22) + Me.txtServer.TabIndex = 36 + ' + 'txtUser + ' + Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText + Me.txtUser.Location = New System.Drawing.Point(302, 34) + Me.txtUser.Name = "txtUser" + Me.txtUser.Size = New System.Drawing.Size(118, 22) + Me.txtUser.TabIndex = 37 + ' + 'txtPasswort + ' + Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText + Me.txtPasswort.Location = New System.Drawing.Point(426, 34) + Me.txtPasswort.Name = "txtPasswort" + Me.txtPasswort.Size = New System.Drawing.Size(64, 22) + Me.txtPasswort.TabIndex = 38 + Me.txtPasswort.UseSystemPasswordChar = True + ' + 'BtnConnect + ' + Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.BtnConnect.Location = New System.Drawing.Point(302, 82) + Me.BtnConnect.Name = "BtnConnect" + Me.BtnConnect.Size = New System.Drawing.Size(253, 25) + Me.BtnConnect.TabIndex = 40 + Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen" + Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.BtnConnect.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.btnApplicationFolder) + Me.TabPage2.Controls.Add(Me.btnopenlog) + Me.TabPage2.Controls.Add(Me.CheckBox1) + Me.TabPage2.Controls.Add(Me.Button1) + Me.TabPage2.Controls.Add(Me.txtuniversalViewer) + Me.TabPage2.Controls.Add(Me.lblUniversalViewer) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(687, 235) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Diverse Einstellungen" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'btnApplicationFolder + ' + Me.btnApplicationFolder.Image = Global.Global_Indexer.My.Resources.Resources.folder_go + Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnApplicationFolder.Location = New System.Drawing.Point(11, 101) + Me.btnApplicationFolder.Name = "btnApplicationFolder" + Me.btnApplicationFolder.Size = New System.Drawing.Size(165, 23) + Me.btnApplicationFolder.TabIndex = 5 + Me.btnApplicationFolder.Text = "Öffne AppFolder User" + Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnApplicationFolder.UseVisualStyleBackColor = True + ' + 'btnopenlog + ' + Me.btnopenlog.Image = Global.Global_Indexer.My.Resources.Resources.folder_go + Me.btnopenlog.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnopenlog.Location = New System.Drawing.Point(11, 130) + Me.btnopenlog.Name = "btnopenlog" + Me.btnopenlog.Size = New System.Drawing.Size(165, 23) + Me.btnopenlog.TabIndex = 4 + Me.btnopenlog.Text = "Öffne Log-Verzeichnis" + Me.btnopenlog.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnopenlog.UseVisualStyleBackColor = True + ' + 'CheckBox1 + ' + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Location = New System.Drawing.Point(11, 65) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(99, 17) + Me.CheckBox1.TabIndex = 3 + Me.CheckBox1.Text = "LogErrorsOnly" + Me.CheckBox1.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(478, 26) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(30, 23) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtuniversalViewer + ' + Me.txtuniversalViewer.Location = New System.Drawing.Point(11, 28) + Me.txtuniversalViewer.Name = "txtuniversalViewer" + Me.txtuniversalViewer.Size = New System.Drawing.Size(461, 22) + Me.txtuniversalViewer.TabIndex = 1 + ' + 'lblUniversalViewer + ' + Me.lblUniversalViewer.AutoSize = True + Me.lblUniversalViewer.Location = New System.Drawing.Point(8, 12) + Me.lblUniversalViewer.Name = "lblUniversalViewer" + Me.lblUniversalViewer.Size = New System.Drawing.Size(95, 13) + Me.lblUniversalViewer.TabIndex = 0 + Me.lblUniversalViewer.Text = "Universal Viewer:" + ' + 'TabPage3 + ' + Me.TabPage3.Controls.Add(Me.btnsetFW_Folder) + Me.TabPage3.Controls.Add(Me.btnFW_OwnFiles) + Me.TabPage3.Controls.Add(Me.btnFW_Desktop) + Me.TabPage3.Controls.Add(Me.txtFolderWatch) + Me.TabPage3.Controls.Add(Me.Label6) + Me.TabPage3.Controls.Add(Me.btnstartstop1) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(687, 235) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "Überwachter Ordner/Folderwatch" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'btnsetFW_Folder + ' + Me.btnsetFW_Folder.Location = New System.Drawing.Point(616, 28) + Me.btnsetFW_Folder.Name = "btnsetFW_Folder" + Me.btnsetFW_Folder.Size = New System.Drawing.Size(49, 23) + Me.btnsetFW_Folder.TabIndex = 6 + Me.btnsetFW_Folder.Text = "..." + Me.btnsetFW_Folder.UseVisualStyleBackColor = True + ' + 'btnFW_OwnFiles + ' + Me.btnFW_OwnFiles.Location = New System.Drawing.Point(11, 87) + Me.btnFW_OwnFiles.Name = "btnFW_OwnFiles" + Me.btnFW_OwnFiles.Size = New System.Drawing.Size(298, 23) + Me.btnFW_OwnFiles.TabIndex = 3 + Me.btnFW_OwnFiles.Text = "Ordner 'SimpleIndexer' in Eigenen Dateien erzeugen" + Me.btnFW_OwnFiles.UseVisualStyleBackColor = True + ' + 'btnFW_Desktop + ' + Me.btnFW_Desktop.Location = New System.Drawing.Point(11, 58) + Me.btnFW_Desktop.Name = "btnFW_Desktop" + Me.btnFW_Desktop.Size = New System.Drawing.Size(298, 23) + Me.btnFW_Desktop.TabIndex = 2 + Me.btnFW_Desktop.Text = "Ordner 'SimpleIndexer' auf Desktop erzeugen" + Me.btnFW_Desktop.UseVisualStyleBackColor = True + ' + 'txtFolderWatch + ' + Me.txtFolderWatch.Location = New System.Drawing.Point(11, 30) + Me.txtFolderWatch.Name = "txtFolderWatch" + Me.txtFolderWatch.Size = New System.Drawing.Size(602, 22) + Me.txtFolderWatch.TabIndex = 1 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(8, 14) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(295, 13) + Me.Label6.TabIndex = 0 + Me.Label6.Text = "Definieren Sie hier den Ordner welcher überwacht wird:" + ' + 'btnstartstop1 + ' + Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go + Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnstartstop1.Location = New System.Drawing.Point(408, 57) + Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4) + Me.btnstartstop1.Name = "btnstartstop1" + Me.btnstartstop1.Size = New System.Drawing.Size(205, 25) + Me.btnstartstop1.TabIndex = 5 + Me.btnstartstop1.Text = "Überwachung starten" + Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnstartstop1.UseVisualStyleBackColor = True + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'frmConfig_Basic + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(695, 261) + Me.Controls.Add(Me.TabControl1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, 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 = "frmConfig_Basic" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Grundeinstellungen für User" + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents cmbDatenbank As System.Windows.Forms.ComboBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox + Friend WithEvents txtServer As System.Windows.Forms.TextBox + Friend WithEvents txtUser As System.Windows.Forms.TextBox + Friend WithEvents txtPasswort As System.Windows.Forms.TextBox + Friend WithEvents BtnConnect As System.Windows.Forms.Button + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents txtuniversalViewer As System.Windows.Forms.TextBox + Friend WithEvents lblUniversalViewer As System.Windows.Forms.Label + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtFolderWatch As System.Windows.Forms.TextBox + Friend WithEvents btnFW_OwnFiles As System.Windows.Forms.Button + Friend WithEvents btnFW_Desktop As System.Windows.Forms.Button + Friend WithEvents btnstartstop1 As System.Windows.Forms.Button + Friend WithEvents btnsetFW_Folder As System.Windows.Forms.Button + Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox + Friend WithEvents btnopenlog As System.Windows.Forms.Button + Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button +End Class diff --git a/Global_Indexer/frmConfig_Basic.resx b/Global_Indexer/frmConfig_Basic.resx new file mode 100644 index 0000000..e314df8 --- /dev/null +++ b/Global_Indexer/frmConfig_Basic.resx @@ -0,0 +1,152 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + + + AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAFKcAABKjAAIo/8AAYHTAA2o/wApsP8AADlzAAeY8QAEbrkAWML/AFTA/wAfmeYAFH3FAGfI + /wCH0/8ASr3/ADm2/wAAXbwAAITeAACM+AAAYsMAFHS1AACO/wAqrf0AAE6UAABCewAAYLIAAEOZAAA5 + awAInPYAADNzAABwzgCB0f8AAFKMAAN7zgC25P8Ae8//ACWHxQAAbcYASLz/AP///wA4nNoAH5LaAACI + 7wAAi/wATrr+AJPX/wB9z/8AUL//AAA6jgAAWrUAAHnzAABu3QAcgM0AhNL/AGfH/wAln/AAJaT9ADOu + /gBEuf4AAH/5ABKJ6wAAdNoAAIT/ABJ+yQAARo4AAFW+AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAACBwcHBwAHBwAAAAAAAAAAAkAtQUIHPUMHAAAAAAECAAI6Ozw9IDs+PwcAAAE0NQI2 + LyQvNzc4MTkHAAEsLS4OES8wDg4xMTEyMwABJygpJA4qHR0dHSsGBgYHAAEBJCUmHQAAABodBgYGBwAB + ICEKIgAAABocHQYGIwcBFxgKEBkCAhobHB0GHh8AAQ4PEBEBEhMUFQIWAwMDBwEKCwYGDAEBAgINAwMD + BAcAAQEBBgYGBgYDAwgJAwcAAAAAAQYGAwMDAwMCBwcAAAAAAAEDAwMBBAMFAgAAAAAAAAAAAQEBAAEB + AgAAAAAAAAAAAAAAAAAAAAAAAAAAAPgnAAD4AwAAyAEAAIABAAAAAQAAAAAAAIHAAACDgAAAAAEAAAAA + AAAAAAAAgAEAAOADAADgDwAA8R8AAP//AAA= + + + \ No newline at end of file diff --git a/Global_Indexer/frmConfig_Basic.vb b/Global_Indexer/frmConfig_Basic.vb new file mode 100644 index 0000000..db85227 --- /dev/null +++ b/Global_Indexer/frmConfig_Basic.vb @@ -0,0 +1,221 @@ +Imports System.IO + +Public Class frmConfig_Basic + Dim formloaded = False + Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click + Try + Dim constring As String + If chkbxUserAut.Checked Then + constring = "Data Source=" & Me.txtServer.Text & ";Initial Catalog=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;" + Else + constring = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" + End If + + + Dim connection As New SqlClient.SqlConnection(constring) 'csb.ConnectionString) + 'während Verbindungsaufbau Sanduhr-Mauszeiger + Cursor = Cursors.WaitCursor + connection.Open() + Cursor = Cursors.Default + 'DialogResult = Windows.Forms.DialogResult.OK + Dim result As MsgBoxResult + result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + 'Set the construction string + MyConnectionString = constring 'csb.ConnectionString + + If chkbxUserAut.Checked = False Then + 'Das Passwort verschlüsseln + Dim wrapper As New ClassEncryption("!35452didalog=") + Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text) + Dim pw As String = cipherText + constring = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";" + End If + SaveConfigValue("MyConnectionString", constring) + + Me.txtActualConnection.Text = constring + 'Me.TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = My.Settings.ConfigConnectionString + 'Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION) + End If + Catch ex As Exception + Cursor = Cursors.Default + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub cmbDatenbank_MouseClick(sender As Object, e As MouseEventArgs) Handles cmbDatenbank.MouseClick + Try + Me.Cursor = Cursors.WaitCursor + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.DataSource = Me.txtServer.Text + csb.IntegratedSecurity = False + csb.UserID = Me.txtUser.Text + csb.Password = Me.txtPasswort.Text + + Dim con As String + If chkbxUserAut.Checked Then + con = "Data Source=" & Me.txtServer.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" + End If + Dim connection As New SqlClient.SqlConnection(con) 'csb.ConnectionString) + connection.Open() + Dim cmd As New SqlClient.SqlCommand("sp_databases", connection) + cmd.CommandType = CommandType.StoredProcedure + ' Ausführen und Ergebnis in einer ListBox anzeigen + Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + Do While dr.Read + cmbDatenbank.Items.Add(dr("Database_Name")) + Loop + cmbDatenbank.DroppedDown = True + End If + connection.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:") + End Try + Cursor = Cursors.Default + End Sub + + Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + SaveConfigValue("UniversalViewer", txtuniversalViewer.Text) + End Sub + + Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load + If Not MyConnectionString = String.Empty Then + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = MyConnectionString + + Dim constr = MyConnectionString + constr = constr.Replace(csb.Password, "XXXXX") + Me.txtActualConnection.Text = constr + Me.txtuniversalViewer.Text = UniversalViewer + + 'Me.txtActualConnection.Text = MyConnectionString + CheckBox1.Checked = LogErrorsOnly + End If + If UniversalViewer = String.Empty Then + Me.TabControl1.SelectedIndex = 1 + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + With OpenFileDialog1 + ' Do + .Filter = "Viewer.Exe|*.exe" + .FilterIndex = 1 + .Title = "Pfad zu Universal Viewer.exe:" + If .ShowDialog() = DialogResult.OK Then + Me.txtuniversalViewer.Text = .FileName + SaveConfigValue("UniversalViewer", txtuniversalViewer.Text) + UniversalViewer = txtuniversalViewer.Text + End If + End With + End Sub + + Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click + + End Sub + + Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged + Select Case TabControl1.SelectedIndex + Case 2 + Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) + If Not folderwatch Is Nothing Then + CURRENT_FOLDERWATCH = folderwatch + End If + Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH + If Not ClassFolderWatcher.FolderWatcher Is Nothing Then + If ClassFolderWatcher.FolderWatcher.EnableRaisingEvents = True Then + btnstartstop1.Text = "Überwachung stoppen" + btnstartstop1.Image = My.Resources.bell_delete + Else + btnstartstop1.Text = "Überwachung starten" + btnstartstop1.Image = My.Resources.bell_go + End If + Else + btnstartstop1.Text = "Überwachung starten" + btnstartstop1.Image = My.Resources.bell_go + End If + + End Select + End Sub + + Private Sub btnFW_Desktop_Click(sender As Object, e As EventArgs) Handles btnFW_Desktop.Click + CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "SimpleIndexer") + CheckFolder(CURRENT_FOLDERWATCH) + End Sub + Sub CheckFolder(mypath As String) + Try + If (Not System.IO.Directory.Exists(mypath)) Then + System.IO.Directory.CreateDirectory(mypath) + End If + Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) + Dim sql As String + If folderwatch Is Nothing Then + sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, ADDED_WHO) VALUES (" & CURRENT_USERID & ",'" & mypath & "','" & Environment.UserName & "')" + Else + sql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch + End If + If ClassDatabase.Execute_non_Query(sql) Then + folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) + CURRENT_FOLDERWATCH = folderwatch + Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH + End If + If FW_started = True Then + ClassFolderWatcher.Restart_FolderWatch() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in CheckFolder:") + End Try + + End Sub + + Private Sub btnFW_OwnFiles_Click(sender As Object, e As EventArgs) Handles btnFW_OwnFiles.Click + CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "SimpleIndexer") + CheckFolder(CURRENT_FOLDERWATCH) + End Sub + + _ + Private Sub btnstartstop1_Click(sender As Object, e As EventArgs) Handles btnstartstop1.Click + If CURRENT_FOLDERWATCH <> "" Then + CheckFW_State() + End If + + End Sub + Sub CheckFW_State() + Select Case ClassFolderWatcher.StartStop_FolderWatch() + Case 1 + btnstartstop1.Text = "Überwachung stoppen" + btnstartstop1.Image = My.Resources.bell_delete + Case 0 + btnstartstop1.Text = "Überwachung starten" + btnstartstop1.Image = My.Resources.bell_go + End Select + End Sub + + Private Sub btnsetFW_Folder_Click(sender As Object, e As EventArgs) Handles btnsetFW_Folder.Click + Dim fbdialog As New FolderBrowserDialog + If fbdialog.ShowDialog() = DialogResult.OK Then + CheckFolder(fbdialog.SelectedPath) + End If + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged + If formloaded = True Then + SaveConfigValue("LogErrorsOnly", CheckBox1.Checked) + ClassLogger.Add(" >> LogErrorsOnly auf '" & CheckBox1.Checked & "' umgestellt", False) + LogErrorsOnly = CheckBox1.Checked + End If + End Sub + + Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown + formloaded = True + End Sub + Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click + Process.Start(ClassLogger.DateiSpeicherort) + End Sub + Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click + Process.Start(Application.UserAppDataPath()) + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmConnections.Designer.vb b/Global_Indexer/frmConnections.Designer.vb new file mode 100644 index 0000000..eff23ac --- /dev/null +++ b/Global_Indexer/frmConnections.Designer.vb @@ -0,0 +1,636 @@ + _ +Partial Class frmConnections + 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 GUIDLabel As System.Windows.Forms.Label + Dim BEZEICHNUNGLabel As System.Windows.Forms.Label + Dim SQL_PROVIDERLabel As System.Windows.Forms.Label + Dim BEMERKUNGLabel As System.Windows.Forms.Label + Dim ERSTELLTWERLabel As System.Windows.Forms.Label + Dim ERSTELLTWANNLabel As System.Windows.Forms.Label + Dim GEANDERTWERLabel As System.Windows.Forms.Label + Dim GEAENDERTWANNLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnections)) + Me.MyDataset = New Global_Indexer.MyDataset() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_CONNECTIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.TBDD_CONNECTIONBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + 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.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.BEZEICHNUNGTextBox = New System.Windows.Forms.TextBox() + Me.SERVERTextBox = New System.Windows.Forms.TextBox() + Me.DATENBANKTextBox = New System.Windows.Forms.TextBox() + Me.USERNAMETextBox = New System.Windows.Forms.TextBox() + Me.PASSWORDTextBox = New System.Windows.Forms.TextBox() + Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() + Me.AKTIVCheckBox = New System.Windows.Forms.CheckBox() + Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() + Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.SQL_PROVIDERComboBox = New System.Windows.Forms.ComboBox() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.lblDataSource = New System.Windows.Forms.Label() + Me.lblInitialCatalog = New System.Windows.Forms.Label() + Me.lblUserId = New System.Windows.Forms.Label() + Me.lblPassword = New System.Windows.Forms.Label() + Me.lblDatenbank = New System.Windows.Forms.Label() + Me.cmbInitialCatalog = New System.Windows.Forms.ComboBox() + Me.CheckBoxwin_aut = New System.Windows.Forms.CheckBox() + Me.btnCheck_Con = New System.Windows.Forms.Button() + Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox() + Me.lblSave = New System.Windows.Forms.Label() + GUIDLabel = New System.Windows.Forms.Label() + BEZEICHNUNGLabel = New System.Windows.Forms.Label() + SQL_PROVIDERLabel = New System.Windows.Forms.Label() + BEMERKUNGLabel = New System.Windows.Forms.Label() + ERSTELLTWERLabel = New System.Windows.Forms.Label() + ERSTELLTWANNLabel = New System.Windows.Forms.Label() + GEANDERTWERLabel = New System.Windows.Forms.Label() + GEAENDERTWANNLabel = New System.Windows.Forms.Label() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(186, 25) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(21, 13) + GUIDLabel.TabIndex = 1 + GUIDLabel.Text = "ID:" + ' + 'BEZEICHNUNGLabel + ' + BEZEICHNUNGLabel.AutoSize = True + BEZEICHNUNGLabel.Location = New System.Drawing.Point(249, 25) + BEZEICHNUNGLabel.Name = "BEZEICHNUNGLabel" + BEZEICHNUNGLabel.Size = New System.Drawing.Size(77, 13) + BEZEICHNUNGLabel.TabIndex = 3 + BEZEICHNUNGLabel.Text = "Bezeichnung:" + ' + 'SQL_PROVIDERLabel + ' + SQL_PROVIDERLabel.AutoSize = True + SQL_PROVIDERLabel.Location = New System.Drawing.Point(186, 66) + SQL_PROVIDERLabel.Name = "SQL_PROVIDERLabel" + SQL_PROVIDERLabel.Size = New System.Drawing.Size(52, 13) + SQL_PROVIDERLabel.TabIndex = 5 + SQL_PROVIDERLabel.Text = "Provider:" + ' + 'BEMERKUNGLabel + ' + BEMERKUNGLabel.AutoSize = True + BEMERKUNGLabel.Location = New System.Drawing.Point(186, 188) + BEMERKUNGLabel.Name = "BEMERKUNGLabel" + BEMERKUNGLabel.Size = New System.Drawing.Size(69, 13) + BEMERKUNGLabel.TabIndex = 15 + BEMERKUNGLabel.Text = "Bemerkung:" + ' + 'ERSTELLTWERLabel + ' + ERSTELLTWERLabel.AutoSize = True + ERSTELLTWERLabel.Location = New System.Drawing.Point(186, 227) + ERSTELLTWERLabel.Name = "ERSTELLTWERLabel" + ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 13) + ERSTELLTWERLabel.TabIndex = 19 + ERSTELLTWERLabel.Text = "Erstellt wer:" + ' + 'ERSTELLTWANNLabel + ' + ERSTELLTWANNLabel.AutoSize = True + ERSTELLTWANNLabel.Location = New System.Drawing.Point(185, 268) + ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel" + ERSTELLTWANNLabel.Size = New System.Drawing.Size(77, 13) + ERSTELLTWANNLabel.TabIndex = 21 + ERSTELLTWANNLabel.Text = "Erstellt wann:" + ' + 'GEANDERTWERLabel + ' + GEANDERTWERLabel.AutoSize = True + GEANDERTWERLabel.Location = New System.Drawing.Point(337, 227) + GEANDERTWERLabel.Name = "GEANDERTWERLabel" + GEANDERTWERLabel.Size = New System.Drawing.Size(80, 13) + GEANDERTWERLabel.TabIndex = 23 + GEANDERTWERLabel.Text = "Geändert wer:" + ' + 'GEAENDERTWANNLabel + ' + GEAENDERTWANNLabel.AutoSize = True + GEAENDERTWANNLabel.Location = New System.Drawing.Point(337, 268) + GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" + GEAENDERTWANNLabel.Size = New System.Drawing.Size(90, 13) + GEAENDERTWANNLabel.TabIndex = 25 + GEAENDERTWANNLabel.Text = "Geändert wann:" + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset + ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter + 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.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_CONNECTIONBindingNavigator + ' + Me.TBDD_CONNECTIONBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.TBDD_CONNECTIONBindingNavigator.BindingSource = Me.TBDD_CONNECTIONBindingSource + Me.TBDD_CONNECTIONBindingNavigator.CountItem = Me.BindingNavigatorCountItem + Me.TBDD_CONNECTIONBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.TBDD_CONNECTIONBindingNavigator.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.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_CONNECTIONBindingNavigatorSaveItem, Me.ToolStripButton1}) + Me.TBDD_CONNECTIONBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.TBDD_CONNECTIONBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.TBDD_CONNECTIONBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.TBDD_CONNECTIONBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.TBDD_CONNECTIONBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.TBDD_CONNECTIONBindingNavigator.Name = "TBDD_CONNECTIONBindingNavigator" + Me.TBDD_CONNECTIONBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem + Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(827, 25) + Me.TBDD_CONNECTIONBindingNavigator.TabIndex = 0 + Me.TBDD_CONNECTIONBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + '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) + ' + 'TBDD_CONNECTIONBindingNavigatorSaveItem + ' + Me.TBDD_CONNECTIONBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Image = CType(resources.GetObject("TBDD_CONNECTIONBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Name = "TBDD_CONNECTIONBindingNavigatorSaveItem" + Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.TBDD_CONNECTIONBindingNavigatorSaveItem.Text = "Daten speichern" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.arrow_refresh + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Refresh" + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(188, 41) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(46, 22) + Me.GUIDTextBox.TabIndex = 2 + ' + 'BEZEICHNUNGTextBox + ' + Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEZEICHNUNG", True)) + Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(252, 41) + Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox" + Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(222, 22) + Me.BEZEICHNUNGTextBox.TabIndex = 4 + ' + 'SERVERTextBox + ' + Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True)) + Me.SERVERTextBox.Location = New System.Drawing.Point(188, 122) + Me.SERVERTextBox.Name = "SERVERTextBox" + Me.SERVERTextBox.Size = New System.Drawing.Size(145, 22) + Me.SERVERTextBox.TabIndex = 8 + ' + 'DATENBANKTextBox + ' + Me.DATENBANKTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) + Me.DATENBANKTextBox.Location = New System.Drawing.Point(338, 122) + Me.DATENBANKTextBox.Name = "DATENBANKTextBox" + Me.DATENBANKTextBox.Size = New System.Drawing.Size(136, 22) + Me.DATENBANKTextBox.TabIndex = 10 + ' + 'USERNAMETextBox + ' + Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "USERNAME", True)) + Me.USERNAMETextBox.Location = New System.Drawing.Point(189, 163) + Me.USERNAMETextBox.Name = "USERNAMETextBox" + Me.USERNAMETextBox.Size = New System.Drawing.Size(145, 22) + Me.USERNAMETextBox.TabIndex = 12 + ' + 'PASSWORDTextBox + ' + Me.PASSWORDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "PASSWORD", True)) + Me.PASSWORDTextBox.Location = New System.Drawing.Point(340, 163) + Me.PASSWORDTextBox.Name = "PASSWORDTextBox" + Me.PASSWORDTextBox.Size = New System.Drawing.Size(134, 22) + Me.PASSWORDTextBox.TabIndex = 14 + Me.PASSWORDTextBox.UseSystemPasswordChar = True + ' + 'BEMERKUNGTextBox + ' + Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True)) + Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(188, 204) + Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" + Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(478, 22) + Me.BEMERKUNGTextBox.TabIndex = 16 + ' + 'AKTIVCheckBox + ' + Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_CONNECTIONBindingSource, "AKTIV", True)) + Me.AKTIVCheckBox.Location = New System.Drawing.Point(496, 39) + Me.AKTIVCheckBox.Name = "AKTIVCheckBox" + Me.AKTIVCheckBox.Size = New System.Drawing.Size(104, 24) + Me.AKTIVCheckBox.TabIndex = 18 + Me.AKTIVCheckBox.Text = "Aktiv" + Me.AKTIVCheckBox.UseVisualStyleBackColor = True + ' + 'ERSTELLTWERTextBox + ' + Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWER", True)) + Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(189, 243) + Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" + Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(144, 22) + Me.ERSTELLTWERTextBox.TabIndex = 20 + ' + 'ERSTELLTWANNTextBox + ' + Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "ERSTELLTWANN", True)) + Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(189, 284) + Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" + Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(144, 22) + Me.ERSTELLTWANNTextBox.TabIndex = 22 + ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(340, 243) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(134, 22) + Me.GEANDERTWERTextBox.TabIndex = 24 + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(340, 284) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(134, 22) + Me.GEAENDERTWANNTextBox.TabIndex = 26 + ' + 'SQL_PROVIDERComboBox + ' + Me.SQL_PROVIDERComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SQL_PROVIDER", True)) + Me.SQL_PROVIDERComboBox.FormattingEnabled = True + Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {"Oracle", "MS-SQLServer"}) + Me.SQL_PROVIDERComboBox.Location = New System.Drawing.Point(188, 82) + Me.SQL_PROVIDERComboBox.Name = "SQL_PROVIDERComboBox" + Me.SQL_PROVIDERComboBox.Size = New System.Drawing.Size(121, 21) + Me.SQL_PROVIDERComboBox.TabIndex = 27 + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.ListBox1.DisplayMember = "BEZEICHNUNG" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(0, 22) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(161, 290) + Me.ListBox1.TabIndex = 28 + Me.ListBox1.ValueMember = "GUID" + ' + 'lblDataSource + ' + Me.lblDataSource.AutoSize = True + Me.lblDataSource.Location = New System.Drawing.Point(185, 106) + Me.lblDataSource.Name = "lblDataSource" + Me.lblDataSource.Size = New System.Drawing.Size(74, 13) + Me.lblDataSource.TabIndex = 30 + Me.lblDataSource.Text = "DataSource*:" + Me.lblDataSource.Visible = False + ' + 'lblInitialCatalog + ' + Me.lblInitialCatalog.AutoSize = True + Me.lblInitialCatalog.Location = New System.Drawing.Point(337, 106) + Me.lblInitialCatalog.Name = "lblInitialCatalog" + Me.lblInitialCatalog.Size = New System.Drawing.Size(84, 13) + Me.lblInitialCatalog.TabIndex = 37 + Me.lblInitialCatalog.Text = "InitialCatalog*:" + Me.lblInitialCatalog.Visible = False + ' + 'lblUserId + ' + Me.lblUserId.AutoSize = True + Me.lblUserId.Location = New System.Drawing.Point(186, 147) + Me.lblUserId.Name = "lblUserId" + Me.lblUserId.Size = New System.Drawing.Size(48, 13) + Me.lblUserId.TabIndex = 38 + Me.lblUserId.Text = "UserId*:" + Me.lblUserId.Visible = False + ' + 'lblPassword + ' + Me.lblPassword.AutoSize = True + Me.lblPassword.Location = New System.Drawing.Point(337, 147) + Me.lblPassword.Name = "lblPassword" + Me.lblPassword.Size = New System.Drawing.Size(61, 13) + Me.lblPassword.TabIndex = 39 + Me.lblPassword.Text = "Passwort*:" + Me.lblPassword.Visible = False + ' + 'lblDatenbank + ' + Me.lblDatenbank.AutoSize = True + Me.lblDatenbank.Location = New System.Drawing.Point(337, 106) + Me.lblDatenbank.Name = "lblDatenbank" + Me.lblDatenbank.Size = New System.Drawing.Size(72, 13) + Me.lblDatenbank.TabIndex = 41 + Me.lblDatenbank.Text = "Datenbank*:" + Me.lblDatenbank.Visible = False + ' + 'cmbInitialCatalog + ' + Me.cmbInitialCatalog.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) + Me.cmbInitialCatalog.FormattingEnabled = True + Me.cmbInitialCatalog.Location = New System.Drawing.Point(339, 122) + Me.cmbInitialCatalog.Name = "cmbInitialCatalog" + Me.cmbInitialCatalog.Size = New System.Drawing.Size(136, 21) + Me.cmbInitialCatalog.TabIndex = 40 + Me.cmbInitialCatalog.Visible = False + ' + 'CheckBoxwin_aut + ' + Me.CheckBoxwin_aut.AutoSize = True + Me.CheckBoxwin_aut.Location = New System.Drawing.Point(496, 124) + Me.CheckBoxwin_aut.Name = "CheckBoxwin_aut" + Me.CheckBoxwin_aut.Size = New System.Drawing.Size(170, 17) + Me.CheckBoxwin_aut.TabIndex = 42 + Me.CheckBoxwin_aut.Text = "Windows-Authentifizierung" + Me.CheckBoxwin_aut.UseVisualStyleBackColor = True + Me.CheckBoxwin_aut.Visible = False + ' + 'btnCheck_Con + ' + Me.btnCheck_Con.Image = Global.Global_Indexer.My.Resources.Resources.database_refresh + Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnCheck_Con.Location = New System.Drawing.Point(338, 80) + Me.btnCheck_Con.Name = "btnCheck_Con" + Me.btnCheck_Con.Size = New System.Drawing.Size(136, 23) + Me.btnCheck_Con.TabIndex = 43 + Me.btnCheck_Con.Text = "Test DB-Verbindung" + Me.btnCheck_Con.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnCheck_Con.UseVisualStyleBackColor = True + Me.btnCheck_Con.Visible = False + ' + 'chkOR_ohne_TNS + ' + Me.chkOR_ohne_TNS.AutoSize = True + Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(496, 165) + Me.chkOR_ohne_TNS.Name = "chkOR_ohne_TNS" + Me.chkOR_ohne_TNS.Size = New System.Drawing.Size(127, 17) + Me.chkOR_ohne_TNS.TabIndex = 44 + Me.chkOR_ohne_TNS.Text = "Ohne tnsnames.ora" + Me.chkOR_ohne_TNS.UseVisualStyleBackColor = True + Me.chkOR_ohne_TNS.Visible = False + ' + 'lblSave + ' + Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(557, 41) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(228, 17) + Me.lblSave.TabIndex = 79 + Me.lblSave.Text = "Connection erfolgreich gespeichert!" + Me.lblSave.Visible = False + ' + 'frmConnections + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(827, 326) + Me.Controls.Add(Me.lblSave) + Me.Controls.Add(Me.chkOR_ohne_TNS) + Me.Controls.Add(Me.btnCheck_Con) + Me.Controls.Add(Me.CheckBoxwin_aut) + Me.Controls.Add(Me.cmbInitialCatalog) + Me.Controls.Add(Me.lblPassword) + Me.Controls.Add(Me.lblUserId) + Me.Controls.Add(Me.lblInitialCatalog) + Me.Controls.Add(Me.lblDataSource) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.SQL_PROVIDERComboBox) + Me.Controls.Add(GUIDLabel) + Me.Controls.Add(Me.GUIDTextBox) + Me.Controls.Add(BEZEICHNUNGLabel) + Me.Controls.Add(Me.BEZEICHNUNGTextBox) + Me.Controls.Add(SQL_PROVIDERLabel) + Me.Controls.Add(Me.SERVERTextBox) + Me.Controls.Add(Me.DATENBANKTextBox) + Me.Controls.Add(Me.USERNAMETextBox) + Me.Controls.Add(Me.PASSWORDTextBox) + Me.Controls.Add(BEMERKUNGLabel) + Me.Controls.Add(Me.BEMERKUNGTextBox) + Me.Controls.Add(Me.AKTIVCheckBox) + Me.Controls.Add(ERSTELLTWERLabel) + Me.Controls.Add(Me.ERSTELLTWERTextBox) + Me.Controls.Add(ERSTELLTWANNLabel) + Me.Controls.Add(Me.ERSTELLTWANNTextBox) + Me.Controls.Add(GEANDERTWERLabel) + Me.Controls.Add(Me.GEANDERTWERTextBox) + Me.Controls.Add(GEAENDERTWANNLabel) + Me.Controls.Add(Me.GEAENDERTWANNTextBox) + Me.Controls.Add(Me.TBDD_CONNECTIONBindingNavigator) + Me.Controls.Add(Me.lblDatenbank) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmConnections" + Me.Text = "Connections" + CType(Me.MyDataset,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBDD_CONNECTIONBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBDD_CONNECTIONBindingNavigator,System.ComponentModel.ISupportInitialize).EndInit + Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(false) + Me.TBDD_CONNECTIONBindingNavigator.PerformLayout + Me.ResumeLayout(false) + Me.PerformLayout + +End Sub + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_CONNECTIONBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + 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 TBDD_CONNECTIONBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents BEZEICHNUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents SERVERTextBox As System.Windows.Forms.TextBox + Friend WithEvents DATENBANKTextBox As System.Windows.Forms.TextBox + Friend WithEvents USERNAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents PASSWORDTextBox As System.Windows.Forms.TextBox + Friend WithEvents BEMERKUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents AKTIVCheckBox As System.Windows.Forms.CheckBox + Friend WithEvents ERSTELLTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents ERSTELLTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEANDERTWERTextBox As System.Windows.Forms.TextBox + Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox + Friend WithEvents SQL_PROVIDERComboBox As System.Windows.Forms.ComboBox + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents lblDataSource As System.Windows.Forms.Label + Friend WithEvents lblInitialCatalog As System.Windows.Forms.Label + Friend WithEvents lblUserId As System.Windows.Forms.Label + Friend WithEvents lblPassword As System.Windows.Forms.Label + Friend WithEvents lblDatenbank As System.Windows.Forms.Label + Friend WithEvents cmbInitialCatalog As System.Windows.Forms.ComboBox + Friend WithEvents CheckBoxwin_aut As System.Windows.Forms.CheckBox + Friend WithEvents btnCheck_Con As System.Windows.Forms.Button + Friend WithEvents chkOR_ohne_TNS As System.Windows.Forms.CheckBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents lblSave As System.Windows.Forms.Label +End Class diff --git a/Global_Indexer/frmConnections.resx b/Global_Indexer/frmConnections.resx new file mode 100644 index 0000000..e80de81 --- /dev/null +++ b/Global_Indexer/frmConnections.resx @@ -0,0 +1,231 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 127, 17 + + + 371, 17 + + + 609, 17 + + + 782, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Global_Indexer/frmConnections.vb b/Global_Indexer/frmConnections.vb new file mode 100644 index 0000000..2bbe360 --- /dev/null +++ b/Global_Indexer/frmConnections.vb @@ -0,0 +1,240 @@ +Imports Oracle.ManagedDataAccess.Client +Public Class frmConnections + + Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingNavigatorSaveItem.Click + Try + Me.Validate() + Me.TBDD_CONNECTIONBindingSource.EndEdit() + If Me.MyDataset.TBDD_CONNECTION.GetChanges Is Nothing = False Then + Me.GEANDERTWERTextBox.Text = Environment.UserName + Me.TBDD_CONNECTIONBindingSource.EndEdit() + TBDD_CONNECTIONTableAdapter.Update(MyDataset.TBDD_CONNECTION) + Me.lblSave.Visible = True + Else + Me.lblSave.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Connection:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub frmConnections_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + Load_Conns() + End Sub + Sub Load_Conns() + Try + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION) + Catch ex As Exception + MsgBox("Error in Laod Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub SQL_PROVIDERComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SQL_PROVIDERComboBox.SelectedIndexChanged + If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then + Me.btnCheck_Con.Visible = True + CheckBoxwin_aut.Visible = False + chkOR_ohne_TNS.Visible = False + Select Case Me.SQL_PROVIDERComboBox.SelectedItem + + Case "MS-SQLServer" + Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:" + Me.lblInitialCatalog.Text = "Datenbank-Name:" + Me.SERVERTextBox.ReadOnly = False + Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window + Me.SERVERTextBox.Text = "" + Me.lblUserId.Text = "UserId:" + Me.lblPassword.Text = "Passwort:" + Me.lblInitialCatalog.Visible = False + Me.DATENBANKTextBox.Visible = False + Me.cmbInitialCatalog.Visible = True + Me.lblDatenbank.Visible = True + CheckBoxwin_aut.Visible = True + Case "Oracle" + Me.cmbInitialCatalog.Visible = False + Me.lblDataSource.Text = "IP Oracle-Server:" + Me.lblInitialCatalog.Text = "Servicename:" + Me.SERVERTextBox.ReadOnly = False + Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window + Me.SERVERTextBox.Text = "" + Me.lblUserId.Text = "UserId:" + Me.lblPassword.Text = "Passwort:" + Me.lblInitialCatalog.Visible = True + + Me.DATENBANKTextBox.Visible = True + chkOR_ohne_TNS.Visible = True + End Select + + Me.lblDataSource.Visible = True + Me.lblUserId.Visible = True + Me.lblPassword.Visible = True + Me.SERVERTextBox.Visible = True + Me.USERNAMETextBox.Visible = True + Me.PASSWORDTextBox.Visible = True + Else + Me.lblDataSource.Visible = False + Me.lblUserId.Visible = False + Me.lblPassword.Visible = False + Me.SERVERTextBox.Visible = False + Me.USERNAMETextBox.Visible = False + Me.PASSWORDTextBox.Visible = False + End If + End Sub + + Private Sub CheckBoxwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxwin_aut.CheckedChanged + If CheckBoxwin_aut.Checked Then + Me.USERNAMETextBox.Enabled = False + Me.PASSWORDTextBox.Enabled = False + Me.USERNAMETextBox.Text = "WINAUTH" + Me.PASSWORDTextBox.Text = "" + Else + Me.USERNAMETextBox.Enabled = True + Me.PASSWORDTextBox.Enabled = True + Me.USERNAMETextBox.Text = "" + Me.PASSWORDTextBox.Text = "" + End If + End Sub + + Private Sub chkOR_ohne_TNS_CheckedChanged(sender As Object, e As EventArgs) Handles chkOR_ohne_TNS.CheckedChanged + If chkOR_ohne_TNS.Checked Then + Me.BEMERKUNGTextBox.Text = "without tnsnames" + Else + Me.BEMERKUNGTextBox.Text = "" + End If + End Sub + + Private Sub btnCheck_Con_Click(sender As Object, e As EventArgs) Handles btnCheck_Con.Click + Dim msg_string As String + Try + If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then + Cursor = Cursors.WaitCursor + + Select Case Me.SQL_PROVIDERComboBox.SelectedItem + Case "MS-SQLServer" + Dim con As String + If CheckBoxwin_aut.Checked Then + con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";" + End If + msg_string = con + Dim connection As New SqlClient.SqlConnection(con) + connection.Open() + Cursor = Cursors.Default + MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:") + My.Settings.Save() + 'DialogResult = Windows.Forms.DialogResult.OK + Case "Oracle" + My.Settings.Save() + Dim connstr As String + Try + Dim conn As New OracleConnectionStringBuilder + + If chkOR_ohne_TNS.Checked Then + connstr = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & SERVERTextBox.Text & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _ + DATENBANKTextBox.Text & ")));User Id=" & USERNAMETextBox.Text & ";Password=" & PASSWORDTextBox.Text & ";" + Else + conn.DataSource = DATENBANKTextBox.Text + conn.UserID = USERNAMETextBox.Text + conn.Password = PASSWORDTextBox.Text + conn.PersistSecurityInfo = True + conn.ConnectionTimeout = 120 + connstr = conn.ConnectionString + End If + + Dim connection As New OracleConnection(connstr) + connection.Open() + + MsgBox("Die Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:") + My.Settings.Save() + + Catch ex As Exception + MsgBox(ex.Message & vbNewLine & vbNewLine & connstr, MsgBoxStyle.Critical, "Fehler bei Verbindungsaufbau Oracle:") + End Try + + Case Else + MsgBox("Test zur Zeit nicht möglich", MsgBoxStyle.Information, "Achtung:") + End Select + End If + + + Catch ex As Exception + Dim template As String = ex.Message + Clipboard.SetDataObject(template) + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message & vbNewLine & "Connection-String: " & vbNewLine & msg_string, MsgBoxStyle.Critical) + End Try + Cursor = Cursors.Default + End Sub + + Private Sub cmbInitialCatalog_Click(sender As Object, e As EventArgs) Handles cmbInitialCatalog.Click + Get_MSSQL_Databases() + End Sub + Sub Get_MSSQL_Databases() + Try + ' Dim csb As New SqlClient.SqlConnectionStringBuilder + If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then + + Select Case Me.SQL_PROVIDERComboBox.SelectedItem + Case "MS-SQLServer" + Dim con As String + If CheckBoxwin_aut.Checked Then + con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;" + Else + con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";" + End If + 'csb.DataSource = Me.txtDataSource.Text + 'csb.IntegratedSecurity = False + 'csb.UserID = Me.txtUserId.Text + 'csb.Password = Me.txtPassword.Text + Dim connection As New SqlClient.SqlConnection(con) + 'während Verbindungsaufbau Sanduhr-Mauszeiger + Cursor = Cursors.WaitCursor + connection.Open() + Cursor = Cursors.Default + ' SQLCommand-Objekt über alle Datenbanken erstellen + Dim cmd As New SqlClient.SqlCommand("SELECT [name] FROM master.dbo.sysdatabases WHERE name NOT IN ('master', 'tempdb', 'model', 'msdb')", connection) + 'cmd.CommandType = CommandType. + ' Ausführen und Ergebnis in einer ListBox anzeigen + Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader + If dr.HasRows Then + cmbInitialCatalog.Items.Clear() + Do While dr.Read + cmbInitialCatalog.Items.Add(dr("name")) + Loop + cmbInitialCatalog.DroppedDown = True + End If + End Select + End If + + + Catch ex As Exception + Cursor = Cursors.Default + + Dim template As String = ex.Message + Clipboard.SetDataObject(template) + MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew + Me.MyDataset.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName + End Sub + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Load_Conns() + End Sub + + Private Sub TBDD_CONNECTIONBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.CurrentChanged + Me.lblSave.Visible = False + End Sub + + Private Sub BEMERKUNGTextBox_TextChanged(sender As Object, e As EventArgs) Handles BEMERKUNGTextBox.TextChanged + If BEMERKUNGTextBox.Text.Contains("without tnsnames") Then + Me.chkOR_ohne_TNS.Checked = True + Else + Me.chkOR_ohne_TNS.Checked = False + End If + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmHotKey_Add.Designer.vb b/Global_Indexer/frmHotKey_Add.Designer.vb new file mode 100644 index 0000000..1cb2e07 --- /dev/null +++ b/Global_Indexer/frmHotKey_Add.Designer.vb @@ -0,0 +1,2547 @@ + _ +Partial Class frmHotKey_Add + 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 GUIDLabel As System.Windows.Forms.Label + Dim NAMELabel As System.Windows.Forms.Label + Dim WD_SEARCHLabel As System.Windows.Forms.Label + Dim HOTKEY1Label As System.Windows.Forms.Label + Dim HOTKEY2Label As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim GUIDLabel1 As System.Windows.Forms.Label + Dim TYPELabel As System.Windows.Forms.Label + Dim SEQUENCELabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label + Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label + Dim ADDED_WHENLabel1 As System.Windows.Forms.Label + Dim GUIDLabel2 As System.Windows.Forms.Label + Dim WINDOW_NAMELabel As System.Windows.Forms.Label + Dim SEQUENCE_NUMBERLabel As System.Windows.Forms.Label + Dim PATTERN_WDSEARCHLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label + Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label + Dim ADDED_WHOLabel1 As System.Windows.Forms.Label + Dim Label15 As System.Windows.Forms.Label + Dim GUIDLabel3 As System.Windows.Forms.Label + Dim SEQUENCE_NUMBERLabel1 As System.Windows.Forms.Label + Dim CONTROL_VALUELabel As System.Windows.Forms.Label + Dim ADDED_WHOLabel2 As System.Windows.Forms.Label + Dim ADDED_WHENLabel2 As System.Windows.Forms.Label + Dim Label17 As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotKey_Add)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslbl_Hotkeywindow = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslbl_HotkeySequence = New System.Windows.Forms.ToolStripStatusLabel() + Me.ListBox_FormTitles = New System.Windows.Forms.ListBox() + Me.GroupBoxMainWindow = New System.Windows.Forms.GroupBox() + Me.chkboxshowfilledControlsOnly = New System.Windows.Forms.CheckBox() + Me.btnpnlStart_weiter = New System.Windows.Forms.Button() + Me.GroupBox2_Controls = New System.Windows.Forms.GroupBox() + Me.lblMatchadd = New System.Windows.Forms.Label() + Me.btnadd_WindowMatch = New System.Windows.Forms.Button() + Me.txtValueMatch = New System.Windows.Forms.TextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtControl_Match = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.ListViewControls = New System.Windows.Forms.ListView() + Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ControlID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ControlValue = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.lblLinkadd = New System.Windows.Forms.Label() + Me.btnadd_Pattern = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtPattern = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtControl = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btnnewProfile = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.lblSaveHotkey = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtKey = New System.Windows.Forms.TextBox() + Me.cmbFunktionstaste = New System.Windows.Forms.ComboBox() + Me.txtWDSearch = New System.Windows.Forms.TextBox() + Me.cmbObjekttyp = New System.Windows.Forms.ComboBox() + Me.txtProfilname = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnGB1 = New System.Windows.Forms.Button() + Me.MyDataset = New Global_Indexer.MyDataset() + Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.TBHOTKEY_PATTERNSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter() + Me.TBHOTKEY_PATTERNSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPageUebersicht = New System.Windows.Forms.TabPage() + Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.TBHOTKEY_WINDOW_HOOKBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TabControl3 = New System.Windows.Forms.TabControl() + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.lblSavePAttern = New System.Windows.Forms.Label() + Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.PATTERN_WDSEARCHTextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCE_NUMBERTextBox = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.tsbtnsave_pattern = New System.Windows.Forms.ToolStripButton() + Me.GUIDTextBox2 = New System.Windows.Forms.TextBox() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.lblHinweisRework1 = New System.Windows.Forms.Label() + Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() + Me.TBHOTKEY_PATTERNS_REWORKBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Text2Label = New System.Windows.Forms.Label() + Me.Text1Label = New System.Windows.Forms.Label() + Me.Function2Label = New System.Windows.Forms.Label() + Me.Function1Label = New System.Windows.Forms.Label() + Me.lblsavePatternsRework = New System.Windows.Forms.Label() + Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCETextBox = New System.Windows.Forms.TextBox() + Me.TEXT2TextBox = New System.Windows.Forms.TextBox() + Me.TEXT1TextBox = New System.Windows.Forms.TextBox() + Me.FUNCTION2TextBox = New System.Windows.Forms.TextBox() + Me.FUNCTION1TextBox = New System.Windows.Forms.TextBox() + Me.TYPEComboBox = New System.Windows.Forms.ComboBox() + Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + 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.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.btnRegexTest = New System.Windows.Forms.Button() + Me.TabPage5 = New System.Windows.Forms.TabPage() + Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() + Me.CONTROL_VALUETextBox = New System.Windows.Forms.TextBox() + Me.SEQUENCE_NUMBERTextBox1 = New System.Windows.Forms.TextBox() + Me.GUIDTextBox3 = New System.Windows.Forms.TextBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.BindingNavigator3 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() + Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() + Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() + Me.ListBoxPatterns = New System.Windows.Forms.ListBox() + Me.TabControl2 = New System.Windows.Forms.TabControl() + Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.WINDOW_NAMETextBox = New System.Windows.Forms.TextBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.lblSave = New System.Windows.Forms.Label() + Me.btnsave = New System.Windows.Forms.Button() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox() + Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox() + Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() + Me.NAMETextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.chklbUser = New System.Windows.Forms.CheckedListBox() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.AlleAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KeineAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.btnUserAdd_Profile = New System.Windows.Forms.Button() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.btndeleteUserProfile = New System.Windows.Forms.Button() + Me.chklbUserProfile = New System.Windows.Forms.CheckedListBox() + Me.btndelete = New System.Windows.Forms.Button() + Me.ListBox_Profiles = New System.Windows.Forms.ListBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.TabPage_Designer = New System.Windows.Forms.TabPage() + Me.TabPageTest = New System.Windows.Forms.TabPage() + Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.chkboxshowfilledControlsOnly_Test = New System.Windows.Forms.CheckBox() + Me.ListViewControls_Test = New System.Windows.Forms.ListView() + Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.ListBox_MainWindows_Test = New System.Windows.Forms.ListBox() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter() + Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() + Me.TBHOTKEY_PATTERNS_REWORKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter() + Me.TBHOTKEY_WINDOW_HOOKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter() + GUIDLabel = New System.Windows.Forms.Label() + NAMELabel = New System.Windows.Forms.Label() + WD_SEARCHLabel = New System.Windows.Forms.Label() + HOTKEY1Label = New System.Windows.Forms.Label() + HOTKEY2Label = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + GUIDLabel1 = New System.Windows.Forms.Label() + TYPELabel = New System.Windows.Forms.Label() + SEQUENCELabel = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel1 = New System.Windows.Forms.Label() + CHANGED_WHENLabel1 = New System.Windows.Forms.Label() + ADDED_WHENLabel1 = New System.Windows.Forms.Label() + GUIDLabel2 = New System.Windows.Forms.Label() + WINDOW_NAMELabel = New System.Windows.Forms.Label() + SEQUENCE_NUMBERLabel = New System.Windows.Forms.Label() + PATTERN_WDSEARCHLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel2 = New System.Windows.Forms.Label() + CHANGED_WHOLabel2 = New System.Windows.Forms.Label() + ADDED_WHOLabel1 = New System.Windows.Forms.Label() + Label15 = New System.Windows.Forms.Label() + GUIDLabel3 = New System.Windows.Forms.Label() + SEQUENCE_NUMBERLabel1 = New System.Windows.Forms.Label() + CONTROL_VALUELabel = New System.Windows.Forms.Label() + ADDED_WHOLabel2 = New System.Windows.Forms.Label() + ADDED_WHENLabel2 = New System.Windows.Forms.Label() + Label17 = New System.Windows.Forms.Label() + Me.StatusStrip1.SuspendLayout() + Me.GroupBoxMainWindow.SuspendLayout() + Me.GroupBox2_Controls.SuspendLayout() + Me.GroupBox1.SuspendLayout() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.TabPageUebersicht.SuspendLayout() + Me.GroupBoxPatterns.SuspendLayout() + CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl3.SuspendLayout() + Me.TabPage6.SuspendLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator2.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.TBHOTKEY_PATTERNS_REWORKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + Me.TabPage5.SuspendLayout() + CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator3.SuspendLayout() + Me.TabControl2.SuspendLayout() + Me.TabPage3.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.ContextMenuStrip1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.TabPage_Designer.SuspendLayout() + Me.TabPageTest.SuspendLayout() + Me.GroupBox3.SuspendLayout() + Me.GroupBox2.SuspendLayout() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(6, 12) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(21, 13) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "ID:" + ' + 'NAMELabel + ' + NAMELabel.AutoSize = True + NAMELabel.Location = New System.Drawing.Point(64, 12) + NAMELabel.Name = "NAMELabel" + NAMELabel.Size = New System.Drawing.Size(65, 13) + NAMELabel.TabIndex = 2 + NAMELabel.Text = "Profilname:" + ' + 'WD_SEARCHLabel + ' + WD_SEARCHLabel.AutoSize = True + WD_SEARCHLabel.Location = New System.Drawing.Point(6, 53) + WD_SEARCHLabel.Name = "WD_SEARCHLabel" + WD_SEARCHLabel.Size = New System.Drawing.Size(96, 13) + WD_SEARCHLabel.TabIndex = 4 + WD_SEARCHLabel.Text = "windream-Suche:" + ' + 'HOTKEY1Label + ' + HOTKEY1Label.AutoSize = True + HOTKEY1Label.Location = New System.Drawing.Point(6, 140) + HOTKEY1Label.Name = "HOTKEY1Label" + HOTKEY1Label.Size = New System.Drawing.Size(87, 13) + HOTKEY1Label.TabIndex = 6 + HOTKEY1Label.Text = "Funktionstaste:" + ' + 'HOTKEY2Label + ' + HOTKEY2Label.AutoSize = True + HOTKEY2Label.Location = New System.Drawing.Point(99, 140) + HOTKEY2Label.Name = "HOTKEY2Label" + HOTKEY2Label.Size = New System.Drawing.Size(55, 13) + HOTKEY2Label.TabIndex = 8 + HOTKEY2Label.Text = "Hotkey 2:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(171, 140) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel.TabIndex = 10 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(310, 140) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel.TabIndex = 12 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'GUIDLabel1 + ' + GUIDLabel1.AutoSize = True + GUIDLabel1.Location = New System.Drawing.Point(6, 28) + GUIDLabel1.Name = "GUIDLabel1" + GUIDLabel1.Size = New System.Drawing.Size(21, 13) + GUIDLabel1.TabIndex = 1 + GUIDLabel1.Text = "ID:" + ' + 'TYPELabel + ' + TYPELabel.AutoSize = True + TYPELabel.Location = New System.Drawing.Point(49, 28) + TYPELabel.Name = "TYPELabel" + TYPELabel.Size = New System.Drawing.Size(27, 13) + TYPELabel.TabIndex = 3 + TYPELabel.Text = "Typ:" + ' + 'SEQUENCELabel + ' + SEQUENCELabel.AutoSize = True + SEQUENCELabel.Location = New System.Drawing.Point(437, 28) + SEQUENCELabel.Name = "SEQUENCELabel" + SEQUENCELabel.Size = New System.Drawing.Size(73, 13) + SEQUENCELabel.TabIndex = 13 + SEQUENCELabel.Text = "Reihenfolge:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(6, 120) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(67, 13) + ADDED_WHOLabel.TabIndex = 15 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(115, 120) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(77, 13) + ADDED_WHENLabel.TabIndex = 17 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel1 + ' + CHANGED_WHOLabel1.AutoSize = True + CHANGED_WHOLabel1.Location = New System.Drawing.Point(225, 120) + CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" + CHANGED_WHOLabel1.Size = New System.Drawing.Size(80, 13) + CHANGED_WHOLabel1.TabIndex = 19 + CHANGED_WHOLabel1.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel1 + ' + CHANGED_WHENLabel1.AutoSize = True + CHANGED_WHENLabel1.Location = New System.Drawing.Point(336, 120) + CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" + CHANGED_WHENLabel1.Size = New System.Drawing.Size(90, 13) + CHANGED_WHENLabel1.TabIndex = 21 + CHANGED_WHENLabel1.Text = "Geändert wann:" + ' + 'ADDED_WHENLabel1 + ' + ADDED_WHENLabel1.AutoSize = True + ADDED_WHENLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel1.Location = New System.Drawing.Point(64, 108) + ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" + ADDED_WHENLabel1.Size = New System.Drawing.Size(70, 13) + ADDED_WHENLabel1.TabIndex = 4 + ADDED_WHENLabel1.Text = "Erstellt wann:" + ' + 'GUIDLabel2 + ' + GUIDLabel2.AutoSize = True + GUIDLabel2.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel2.Location = New System.Drawing.Point(6, 67) + GUIDLabel2.Name = "GUIDLabel2" + GUIDLabel2.Size = New System.Drawing.Size(21, 13) + GUIDLabel2.TabIndex = 6 + GUIDLabel2.Text = "ID:" + ' + 'WINDOW_NAMELabel + ' + WINDOW_NAMELabel.AutoSize = True + WINDOW_NAMELabel.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + WINDOW_NAMELabel.ForeColor = System.Drawing.Color.Firebrick + WINDOW_NAMELabel.Location = New System.Drawing.Point(6, 94) + WINDOW_NAMELabel.Name = "WINDOW_NAMELabel" + WINDOW_NAMELabel.Size = New System.Drawing.Size(93, 15) + WINDOW_NAMELabel.TabIndex = 81 + WINDOW_NAMELabel.Text = "Window-Name:" + ' + 'SEQUENCE_NUMBERLabel + ' + SEQUENCE_NUMBERLabel.AutoSize = True + SEQUENCE_NUMBERLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + SEQUENCE_NUMBERLabel.Location = New System.Drawing.Point(64, 67) + SEQUENCE_NUMBERLabel.Name = "SEQUENCE_NUMBERLabel" + SEQUENCE_NUMBERLabel.Size = New System.Drawing.Size(154, 13) + SEQUENCE_NUMBERLabel.TabIndex = 8 + SEQUENCE_NUMBERLabel.Text = "Control-Sequence/-Reihenfolge:" + ' + 'PATTERN_WDSEARCHLabel + ' + PATTERN_WDSEARCHLabel.AutoSize = True + PATTERN_WDSEARCHLabel.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + PATTERN_WDSEARCHLabel.Location = New System.Drawing.Point(224, 67) + PATTERN_WDSEARCHLabel.Name = "PATTERN_WDSEARCHLabel" + PATTERN_WDSEARCHLabel.Size = New System.Drawing.Size(198, 13) + PATTERN_WDSEARCHLabel.TabIndex = 83 + PATTERN_WDSEARCHLabel.Text = "Zu ersetzendes Pattern Windream-Suche:" + ' + 'CHANGED_WHENLabel2 + ' + CHANGED_WHENLabel2.AutoSize = True + CHANGED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHENLabel2.Location = New System.Drawing.Point(224, 108) + CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" + CHANGED_WHENLabel2.Size = New System.Drawing.Size(82, 13) + CHANGED_WHENLabel2.TabIndex = 85 + CHANGED_WHENLabel2.Text = "Geändert wann:" + ' + 'CHANGED_WHOLabel2 + ' + CHANGED_WHOLabel2.AutoSize = True + CHANGED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + CHANGED_WHOLabel2.Location = New System.Drawing.Point(224, 149) + CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" + CHANGED_WHOLabel2.Size = New System.Drawing.Size(73, 13) + CHANGED_WHOLabel2.TabIndex = 86 + CHANGED_WHOLabel2.Text = "Geändert wer:" + ' + 'ADDED_WHOLabel1 + ' + ADDED_WHOLabel1.AutoSize = True + ADDED_WHOLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel1.Location = New System.Drawing.Point(64, 149) + ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" + ADDED_WHOLabel1.Size = New System.Drawing.Size(61, 13) + ADDED_WHOLabel1.TabIndex = 87 + ADDED_WHOLabel1.Text = "Erstellt wer:" + ' + 'Label15 + ' + Label15.AutoSize = True + Label15.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Label15.Location = New System.Drawing.Point(6, 21) + Label15.Name = "Label15" + Label15.Size = New System.Drawing.Size(74, 13) + Label15.TabIndex = 7 + Label15.Text = "Suchpattern:" + ' + 'GUIDLabel3 + ' + GUIDLabel3.AutoSize = True + GUIDLabel3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + GUIDLabel3.Location = New System.Drawing.Point(6, 74) + GUIDLabel3.Name = "GUIDLabel3" + GUIDLabel3.Size = New System.Drawing.Size(20, 13) + GUIDLabel3.TabIndex = 86 + GUIDLabel3.Text = "ID:" + ' + 'SEQUENCE_NUMBERLabel1 + ' + SEQUENCE_NUMBERLabel1.AutoSize = True + SEQUENCE_NUMBERLabel1.Location = New System.Drawing.Point(64, 74) + SEQUENCE_NUMBERLabel1.Name = "SEQUENCE_NUMBERLabel1" + SEQUENCE_NUMBERLabel1.Size = New System.Drawing.Size(73, 13) + SEQUENCE_NUMBERLabel1.TabIndex = 87 + SEQUENCE_NUMBERLabel1.Text = "Reihenfolge:" + ' + 'CONTROL_VALUELabel + ' + CONTROL_VALUELabel.AutoSize = True + CONTROL_VALUELabel.Location = New System.Drawing.Point(209, 74) + CONTROL_VALUELabel.Name = "CONTROL_VALUELabel" + CONTROL_VALUELabel.Size = New System.Drawing.Size(83, 13) + CONTROL_VALUELabel.TabIndex = 88 + CONTROL_VALUELabel.Text = "Control-Inhalt:" + ' + 'ADDED_WHOLabel2 + ' + ADDED_WHOLabel2.AutoSize = True + ADDED_WHOLabel2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHOLabel2.Location = New System.Drawing.Point(64, 115) + ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" + ADDED_WHOLabel2.Size = New System.Drawing.Size(61, 13) + ADDED_WHOLabel2.TabIndex = 89 + ADDED_WHOLabel2.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel2 + ' + ADDED_WHENLabel2.AutoSize = True + ADDED_WHENLabel2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + ADDED_WHENLabel2.Location = New System.Drawing.Point(209, 115) + ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" + ADDED_WHENLabel2.Size = New System.Drawing.Size(70, 13) + ADDED_WHENLabel2.TabIndex = 90 + ADDED_WHENLabel2.Text = "Erstellt wann:" + ' + 'Label17 + ' + Label17.AutoSize = True + Label17.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Label17.Location = New System.Drawing.Point(6, 158) + Label17.Name = "Label17" + Label17.Size = New System.Drawing.Size(95, 13) + Label17.TabIndex = 9 + Label17.Text = "Control-Matches:" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbl_Hotkeywindow, Me.tslbl_HotkeySequence}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 613) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(972, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslbl_Hotkeywindow + ' + Me.tslbl_Hotkeywindow.Image = Global.Global_Indexer.My.Resources.Resources.WindowsForm_817_12x + Me.tslbl_Hotkeywindow.Name = "tslbl_Hotkeywindow" + Me.tslbl_Hotkeywindow.Size = New System.Drawing.Size(97, 17) + Me.tslbl_Hotkeywindow.Text = "Windowname" + ' + 'tslbl_HotkeySequence + ' + Me.tslbl_HotkeySequence.Image = Global.Global_Indexer.My.Resources.Resources.KeyDown_8461_12x + Me.tslbl_HotkeySequence.Name = "tslbl_HotkeySequence" + Me.tslbl_HotkeySequence.Size = New System.Drawing.Size(74, 17) + Me.tslbl_HotkeySequence.Text = "Sequence" + ' + 'ListBox_FormTitles + ' + Me.ListBox_FormTitles.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox_FormTitles.FormattingEnabled = True + Me.ListBox_FormTitles.ItemHeight = 15 + Me.ListBox_FormTitles.Location = New System.Drawing.Point(6, 21) + Me.ListBox_FormTitles.Name = "ListBox_FormTitles" + Me.ListBox_FormTitles.Size = New System.Drawing.Size(542, 214) + Me.ListBox_FormTitles.TabIndex = 8 + ' + 'GroupBoxMainWindow + ' + Me.GroupBoxMainWindow.BackColor = System.Drawing.SystemColors.GradientActiveCaption + Me.GroupBoxMainWindow.Controls.Add(Me.chkboxshowfilledControlsOnly) + Me.GroupBoxMainWindow.Controls.Add(Me.btnpnlStart_weiter) + Me.GroupBoxMainWindow.Controls.Add(Me.ListBox_FormTitles) + Me.GroupBoxMainWindow.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBoxMainWindow.Location = New System.Drawing.Point(403, 6) + Me.GroupBoxMainWindow.Name = "GroupBoxMainWindow" + Me.GroupBoxMainWindow.Size = New System.Drawing.Size(558, 274) + Me.GroupBoxMainWindow.TabIndex = 15 + Me.GroupBoxMainWindow.TabStop = False + Me.GroupBoxMainWindow.Text = "Schritt 2 - Wählen Sie das 'MainWindow' zur Auswahl der Inhalte" + Me.GroupBoxMainWindow.Visible = False + ' + 'chkboxshowfilledControlsOnly + ' + Me.chkboxshowfilledControlsOnly.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chkboxshowfilledControlsOnly.AutoSize = True + Me.chkboxshowfilledControlsOnly.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkboxshowfilledControlsOnly.ForeColor = System.Drawing.Color.DarkSlateGray + Me.chkboxshowfilledControlsOnly.Location = New System.Drawing.Point(6, 247) + Me.chkboxshowfilledControlsOnly.Name = "chkboxshowfilledControlsOnly" + Me.chkboxshowfilledControlsOnly.Size = New System.Drawing.Size(185, 19) + Me.chkboxshowfilledControlsOnly.TabIndex = 11 + Me.chkboxshowfilledControlsOnly.Text = "Nur gefüllte Felder anzeigen" + Me.chkboxshowfilledControlsOnly.UseVisualStyleBackColor = True + ' + 'btnpnlStart_weiter + ' + Me.btnpnlStart_weiter.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnpnlStart_weiter.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD + Me.btnpnlStart_weiter.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnpnlStart_weiter.Location = New System.Drawing.Point(473, 243) + Me.btnpnlStart_weiter.Name = "btnpnlStart_weiter" + Me.btnpnlStart_weiter.Size = New System.Drawing.Size(75, 25) + Me.btnpnlStart_weiter.TabIndex = 0 + Me.btnpnlStart_weiter.Text = "weiter" + Me.btnpnlStart_weiter.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnpnlStart_weiter.UseVisualStyleBackColor = True + ' + 'GroupBox2_Controls + ' + Me.GroupBox2_Controls.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.GroupBox2_Controls.BackColor = System.Drawing.SystemColors.ControlLight + Me.GroupBox2_Controls.Controls.Add(Me.lblMatchadd) + Me.GroupBox2_Controls.Controls.Add(Me.btnadd_WindowMatch) + Me.GroupBox2_Controls.Controls.Add(Me.txtValueMatch) + Me.GroupBox2_Controls.Controls.Add(Me.Label13) + Me.GroupBox2_Controls.Controls.Add(Me.Label11) + Me.GroupBox2_Controls.Controls.Add(Me.Label12) + Me.GroupBox2_Controls.Controls.Add(Me.txtControl_Match) + Me.GroupBox2_Controls.Controls.Add(Me.Label10) + Me.GroupBox2_Controls.Controls.Add(Me.ListViewControls) + Me.GroupBox2_Controls.Controls.Add(Me.lblLinkadd) + Me.GroupBox2_Controls.Controls.Add(Me.btnadd_Pattern) + Me.GroupBox2_Controls.Controls.Add(Me.Label8) + Me.GroupBox2_Controls.Controls.Add(Me.Label7) + Me.GroupBox2_Controls.Controls.Add(Me.txtPattern) + Me.GroupBox2_Controls.Controls.Add(Me.Label1) + Me.GroupBox2_Controls.Controls.Add(Me.txtControl) + Me.GroupBox2_Controls.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2_Controls.Location = New System.Drawing.Point(6, 286) + Me.GroupBox2_Controls.Name = "GroupBox2_Controls" + Me.GroupBox2_Controls.Size = New System.Drawing.Size(950, 295) + Me.GroupBox2_Controls.TabIndex = 9 + Me.GroupBox2_Controls.TabStop = False + Me.GroupBox2_Controls.Text = "Schritt 2 -Wählen Sie das Control mit dem zu übergebenden Wert" + ' + 'lblMatchadd + ' + Me.lblMatchadd.AutoSize = True + Me.lblMatchadd.BackColor = System.Drawing.Color.Yellow + Me.lblMatchadd.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblMatchadd.Location = New System.Drawing.Point(488, 265) + Me.lblMatchadd.Name = "lblMatchadd" + Me.lblMatchadd.Size = New System.Drawing.Size(238, 13) + Me.lblMatchadd.TabIndex = 89 + Me.lblMatchadd.Text = "Match Control-Window erfolgreich angelegt" + Me.lblMatchadd.Visible = False + ' + 'btnadd_WindowMatch + ' + Me.btnadd_WindowMatch.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnadd_WindowMatch.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnadd_WindowMatch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnadd_WindowMatch.Location = New System.Drawing.Point(833, 237) + Me.btnadd_WindowMatch.Name = "btnadd_WindowMatch" + Me.btnadd_WindowMatch.Size = New System.Drawing.Size(96, 24) + Me.btnadd_WindowMatch.TabIndex = 88 + Me.btnadd_WindowMatch.Text = "Hinzufügen" + Me.btnadd_WindowMatch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnadd_WindowMatch.UseVisualStyleBackColor = True + ' + 'txtValueMatch + ' + Me.txtValueMatch.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtValueMatch.Location = New System.Drawing.Point(694, 240) + Me.txtValueMatch.Name = "txtValueMatch" + Me.txtValueMatch.ReadOnly = True + Me.txtValueMatch.Size = New System.Drawing.Size(133, 22) + Me.txtValueMatch.TabIndex = 87 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(615, 243) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(79, 13) + Me.Label13.TabIndex = 86 + Me.Label13.Text = "enthält Value:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label11.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label11.Location = New System.Drawing.Point(491, 145) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(418, 54) + Me.Label11.TabIndex = 85 + Me.Label11.Text = "Bei Nicht-Eindeutigkeit des MainWindow" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "-Namens und der Control # muss " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "zusätzli" & _ + "ch eine Abhängigkeit zwischen Control-Inhalt und dem Windownamen" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "geschaffen wer" & _ + "den." + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label12.Location = New System.Drawing.Point(488, 224) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(125, 13) + Me.Label12.TabIndex = 84 + Me.Label12.Text = "Reihenfolge # Control:" + ' + 'txtControl_Match + ' + Me.txtControl_Match.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtControl_Match.ForeColor = System.Drawing.Color.Maroon + Me.txtControl_Match.Location = New System.Drawing.Point(491, 240) + Me.txtControl_Match.Name = "txtControl_Match" + Me.txtControl_Match.ReadOnly = True + Me.txtControl_Match.Size = New System.Drawing.Size(118, 22) + Me.txtControl_Match.TabIndex = 83 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(491, 19) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(436, 54) + Me.Label10.TabIndex = 82 + Me.Label10.Text = "Hier wird die Reihenfolge-Nummer in Abhängigkeit zum Titel des 'MainWindows' " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ge" & _ + "speichert." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Während der Laufzeit wird der Suchpattern der windream-Suche dann mi" & _ + "t " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "dem gelesenen Wert ersetzt." + ' + 'ListViewControls + ' + Me.ListViewControls.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.ListViewControls.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3, Me.ControlID, Me.ControlValue}) + Me.ListViewControls.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewControls.FullRowSelect = True + Me.ListViewControls.Location = New System.Drawing.Point(6, 19) + Me.ListViewControls.Name = "ListViewControls" + Me.ListViewControls.Size = New System.Drawing.Size(476, 270) + Me.ListViewControls.TabIndex = 81 + Me.ListViewControls.UseCompatibleStateImageBehavior = False + Me.ListViewControls.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader3 + ' + Me.ColumnHeader3.Text = "#" + ' + 'ControlID + ' + Me.ControlID.Text = "Control-ID:" + Me.ControlID.Width = 100 + ' + 'ControlValue + ' + Me.ControlValue.Text = "Gelesener Wert" + Me.ControlValue.Width = 305 + ' + 'lblLinkadd + ' + Me.lblLinkadd.AutoSize = True + Me.lblLinkadd.BackColor = System.Drawing.Color.Yellow + Me.lblLinkadd.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLinkadd.Location = New System.Drawing.Point(491, 121) + Me.lblLinkadd.Name = "lblLinkadd" + Me.lblLinkadd.Size = New System.Drawing.Size(179, 13) + Me.lblLinkadd.TabIndex = 80 + Me.lblLinkadd.Text = "Pattern-Link erfolgreich angelegt" + Me.lblLinkadd.Visible = False + ' + 'btnadd_Pattern + ' + Me.btnadd_Pattern.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnadd_Pattern.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnadd_Pattern.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnadd_Pattern.Location = New System.Drawing.Point(835, 93) + Me.btnadd_Pattern.Name = "btnadd_Pattern" + Me.btnadd_Pattern.Size = New System.Drawing.Size(96, 24) + Me.btnadd_Pattern.TabIndex = 14 + Me.btnadd_Pattern.Text = "Hinzufügen" + Me.btnadd_Pattern.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnadd_Pattern.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(693, 80) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(138, 13) + Me.Label8.TabIndex = 13 + Me.Label8.Text = "Windream-Suche Pattern:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(491, 80) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(125, 13) + Me.Label7.TabIndex = 12 + Me.Label7.Text = "Reihenfolge # Control:" + ' + 'txtPattern + ' + Me.txtPattern.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPattern.Location = New System.Drawing.Point(694, 96) + Me.txtPattern.Name = "txtPattern" + Me.txtPattern.Size = New System.Drawing.Size(135, 22) + Me.txtPattern.TabIndex = 11 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(615, 99) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(73, 13) + Me.Label1.TabIndex = 10 + Me.Label1.Text = "verlinken mit" + ' + 'txtControl + ' + Me.txtControl.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtControl.ForeColor = System.Drawing.Color.Maroon + Me.txtControl.Location = New System.Drawing.Point(491, 96) + Me.txtControl.Name = "txtControl" + Me.txtControl.ReadOnly = True + Me.txtControl.Size = New System.Drawing.Size(118, 22) + Me.txtControl.TabIndex = 9 + ' + 'GroupBox1 + ' + Me.GroupBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.GroupBox1.Controls.Add(Me.btnnewProfile) + Me.GroupBox1.Controls.Add(Me.Button1) + Me.GroupBox1.Controls.Add(Me.lblSaveHotkey) + Me.GroupBox1.Controls.Add(Me.Label6) + Me.GroupBox1.Controls.Add(Me.Label5) + Me.GroupBox1.Controls.Add(Me.txtKey) + Me.GroupBox1.Controls.Add(Me.cmbFunktionstaste) + Me.GroupBox1.Controls.Add(Me.txtWDSearch) + Me.GroupBox1.Controls.Add(Me.cmbObjekttyp) + Me.GroupBox1.Controls.Add(Me.txtProfilname) + Me.GroupBox1.Controls.Add(Me.Label4) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Controls.Add(Me.btnGB1) + Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox1.Location = New System.Drawing.Point(6, 6) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(391, 275) + Me.GroupBox1.TabIndex = 16 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Schritt 1 - Grundangaben" + ' + 'btnnewProfile + ' + Me.btnnewProfile.Font = New System.Drawing.Font("Segoe UI", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnnewProfile.Image = Global.Global_Indexer.My.Resources.Resources.action_add_16xLG + Me.btnnewProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnnewProfile.Location = New System.Drawing.Point(215, 12) + Me.btnnewProfile.Name = "btnnewProfile" + Me.btnnewProfile.Size = New System.Drawing.Size(170, 34) + Me.btnnewProfile.TabIndex = 81 + Me.btnnewProfile.Text = "Neues Profil erzeugen" + Me.btnnewProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnnewProfile.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.Location = New System.Drawing.Point(360, 113) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(25, 23) + Me.Button1.TabIndex = 80 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' + 'lblSaveHotkey + ' + Me.lblSaveHotkey.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSaveHotkey.AutoSize = True + Me.lblSaveHotkey.BackColor = System.Drawing.Color.Yellow + Me.lblSaveHotkey.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSaveHotkey.Location = New System.Drawing.Point(15, 192) + Me.lblSaveHotkey.Name = "lblSaveHotkey" + Me.lblSaveHotkey.Size = New System.Drawing.Size(198, 13) + Me.lblSaveHotkey.TabIndex = 79 + Me.lblSaveHotkey.Text = "Hotkey-Profil erfolgreich gespeichert" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) + Me.lblSaveHotkey.Visible = False + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(124, 139) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(109, 15) + Me.Label6.TabIndex = 11 + Me.Label6.Text = "Kombinationstaste:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(15, 139) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(87, 15) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "Funktionstaste:" + ' + 'txtKey + ' + Me.txtKey.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKey.Location = New System.Drawing.Point(127, 157) + Me.txtKey.Name = "txtKey" + Me.txtKey.Size = New System.Drawing.Size(53, 23) + Me.txtKey.TabIndex = 9 + ' + 'cmbFunktionstaste + ' + Me.cmbFunktionstaste.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbFunktionstaste.FormattingEnabled = True + Me.cmbFunktionstaste.Items.AddRange(New Object() {"Strg", "Shift", "Alt", "Win"}) + Me.cmbFunktionstaste.Location = New System.Drawing.Point(18, 157) + Me.cmbFunktionstaste.Name = "cmbFunktionstaste" + Me.cmbFunktionstaste.Size = New System.Drawing.Size(64, 21) + Me.cmbFunktionstaste.TabIndex = 8 + ' + 'txtWDSearch + ' + Me.txtWDSearch.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtWDSearch.Location = New System.Drawing.Point(18, 113) + Me.txtWDSearch.Name = "txtWDSearch" + Me.txtWDSearch.Size = New System.Drawing.Size(336, 23) + Me.txtWDSearch.TabIndex = 7 + ' + 'cmbObjekttyp + ' + Me.cmbObjekttyp.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbObjekttyp.FormattingEnabled = True + Me.cmbObjekttyp.Location = New System.Drawing.Point(18, 248) + Me.cmbObjekttyp.Name = "cmbObjekttyp" + Me.cmbObjekttyp.Size = New System.Drawing.Size(113, 21) + Me.cmbObjekttyp.TabIndex = 6 + Me.cmbObjekttyp.Visible = False + ' + 'txtProfilname + ' + Me.txtProfilname.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtProfilname.Location = New System.Drawing.Point(18, 69) + Me.txtProfilname.Name = "txtProfilname" + Me.txtProfilname.Size = New System.Drawing.Size(367, 23) + Me.txtProfilname.TabIndex = 5 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(15, 95) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(102, 15) + Me.Label4.TabIndex = 3 + Me.Label4.Text = "Windream-Suche:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(137, 251) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(61, 13) + Me.Label3.TabIndex = 2 + Me.Label3.Text = "Objekttyp:" + Me.Label3.Visible = False + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(15, 51) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(68, 15) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Profilname:" + ' + 'btnGB1 + ' + Me.btnGB1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnGB1.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD + Me.btnGB1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnGB1.Location = New System.Drawing.Point(316, 244) + Me.btnGB1.Name = "btnGB1" + Me.btnGB1.Size = New System.Drawing.Size(69, 25) + Me.btnGB1.TabIndex = 0 + Me.btnGB1.Text = "weiter" + Me.btnGB1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnGB1.UseVisualStyleBackColor = True + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBHOTKEY_PROFILEBindingSource + ' + Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE" + Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'TBHOTKEY_PROFILETableAdapter + ' + Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + 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 = Me.TBHOTKEY_PATTERNSTableAdapter + Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Me.TBHOTKEY_PROFILETableAdapter + Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBHOTKEY_PATTERNSTableAdapter + ' + Me.TBHOTKEY_PATTERNSTableAdapter.ClearBeforeFill = True + ' + 'TBHOTKEY_PATTERNSBindingSource + ' + Me.TBHOTKEY_PATTERNSBindingSource.DataMember = "TBHOTKEY_PATTERNS" + Me.TBHOTKEY_PATTERNSBindingSource.DataSource = Me.MyDataset + ' + 'OFDWindreamsuche + ' + Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*" + Me.OFDWindreamsuche.RestoreDirectory = True + Me.OFDWindreamsuche.Title = "windream-Suche wählen" + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPageUebersicht) + Me.TabControl1.Controls.Add(Me.TabPage_Designer) + Me.TabControl1.Controls.Add(Me.TabPageTest) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(972, 613) + Me.TabControl1.TabIndex = 17 + ' + 'TabPageUebersicht + ' + Me.TabPageUebersicht.AutoScroll = True + Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns) + Me.TabPageUebersicht.Controls.Add(Me.TabControl2) + Me.TabPageUebersicht.Controls.Add(Me.btndelete) + Me.TabPageUebersicht.Controls.Add(Me.ListBox_Profiles) + Me.TabPageUebersicht.Controls.Add(Me.Label9) + Me.TabPageUebersicht.Location = New System.Drawing.Point(4, 22) + Me.TabPageUebersicht.Name = "TabPageUebersicht" + Me.TabPageUebersicht.Padding = New System.Windows.Forms.Padding(3) + Me.TabPageUebersicht.Size = New System.Drawing.Size(964, 587) + Me.TabPageUebersicht.TabIndex = 2 + Me.TabPageUebersicht.Text = "Übersicht Hot Key-Profile" + Me.TabPageUebersicht.UseVisualStyleBackColor = True + ' + 'GroupBoxPatterns + ' + Me.GroupBoxPatterns.Controls.Add(Label17) + Me.GroupBoxPatterns.Controls.Add(Me.ListBox1) + Me.GroupBoxPatterns.Controls.Add(Label15) + Me.GroupBoxPatterns.Controls.Add(Me.TabControl3) + Me.GroupBoxPatterns.Controls.Add(Me.ListBoxPatterns) + Me.GroupBoxPatterns.Location = New System.Drawing.Point(8, 283) + Me.GroupBoxPatterns.Name = "GroupBoxPatterns" + Me.GroupBoxPatterns.Size = New System.Drawing.Size(920, 298) + Me.GroupBoxPatterns.TabIndex = 37 + Me.GroupBoxPatterns.TabStop = False + Me.GroupBoxPatterns.Text = "Suchpatterns und Control-Matches:" + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBHOTKEY_WINDOW_HOOKBindingSource + Me.ListBox1.DisplayMember = "CONTROL_VALUE" + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(9, 174) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(246, 108) + Me.ListBox1.TabIndex = 8 + Me.ListBox1.ValueMember = "GUID" + ' + 'TBHOTKEY_WINDOW_HOOKBindingSource + ' + Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataMember = "TBHOTKEY_WINDOW_HOOK" + Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataSource = Me.MyDataset + ' + 'TabControl3 + ' + Me.TabControl3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.TabControl3.Controls.Add(Me.TabPage6) + Me.TabControl3.Controls.Add(Me.TabPage4) + Me.TabControl3.Controls.Add(Me.TabPage5) + Me.TabControl3.Location = New System.Drawing.Point(261, 21) + Me.TabControl3.Name = "TabControl3" + Me.TabControl3.SelectedIndex = 0 + Me.TabControl3.Size = New System.Drawing.Size(639, 271) + Me.TabControl3.TabIndex = 1 + ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.lblSavePAttern) + Me.TabPage6.Controls.Add(ADDED_WHOLabel1) + Me.TabPage6.Controls.Add(Me.ADDED_WHOTextBox1) + Me.TabPage6.Controls.Add(CHANGED_WHOLabel2) + Me.TabPage6.Controls.Add(Me.CHANGED_WHOTextBox2) + Me.TabPage6.Controls.Add(CHANGED_WHENLabel2) + Me.TabPage6.Controls.Add(Me.CHANGED_WHENTextBox2) + Me.TabPage6.Controls.Add(Me.ADDED_WHENTextBox1) + Me.TabPage6.Controls.Add(ADDED_WHENLabel1) + Me.TabPage6.Controls.Add(PATTERN_WDSEARCHLabel) + Me.TabPage6.Controls.Add(Me.PATTERN_WDSEARCHTextBox) + Me.TabPage6.Controls.Add(Me.SEQUENCE_NUMBERTextBox) + Me.TabPage6.Controls.Add(Me.Label14) + Me.TabPage6.Controls.Add(SEQUENCE_NUMBERLabel) + Me.TabPage6.Controls.Add(Me.BindingNavigator2) + Me.TabPage6.Controls.Add(GUIDLabel2) + Me.TabPage6.Controls.Add(Me.GUIDTextBox2) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(631, 245) + Me.TabPage6.TabIndex = 2 + Me.TabPage6.Text = "Suchpatterns" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'lblSavePAttern + ' + Me.lblSavePAttern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSavePAttern.AutoSize = True + Me.lblSavePAttern.BackColor = System.Drawing.Color.Yellow + Me.lblSavePAttern.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSavePAttern.Location = New System.Drawing.Point(446, 127) + Me.lblSavePAttern.Name = "lblSavePAttern" + Me.lblSavePAttern.Size = New System.Drawing.Size(164, 13) + Me.lblSavePAttern.TabIndex = 89 + Me.lblSavePAttern.Text = "Daten erfolgreich gespeichert!" + Me.lblSavePAttern.Visible = False + ' + 'ADDED_WHOTextBox1 + ' + Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox1.Location = New System.Drawing.Point(67, 164) + Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" + Me.ADDED_WHOTextBox1.ReadOnly = True + Me.ADDED_WHOTextBox1.Size = New System.Drawing.Size(126, 22) + Me.ADDED_WHOTextBox1.TabIndex = 88 + Me.ADDED_WHOTextBox1.TabStop = False + ' + 'CHANGED_WHOTextBox2 + ' + Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHOTextBox2.Location = New System.Drawing.Point(227, 164) + Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" + Me.CHANGED_WHOTextBox2.ReadOnly = True + Me.CHANGED_WHOTextBox2.Size = New System.Drawing.Size(141, 22) + Me.CHANGED_WHOTextBox2.TabIndex = 87 + Me.CHANGED_WHOTextBox2.TabStop = False + ' + 'CHANGED_WHENTextBox2 + ' + Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CHANGED_WHENTextBox2.Location = New System.Drawing.Point(227, 124) + Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" + Me.CHANGED_WHENTextBox2.ReadOnly = True + Me.CHANGED_WHENTextBox2.Size = New System.Drawing.Size(141, 22) + Me.CHANGED_WHENTextBox2.TabIndex = 86 + Me.CHANGED_WHENTextBox2.TabStop = False + ' + 'ADDED_WHENTextBox1 + ' + Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox1.Location = New System.Drawing.Point(67, 124) + Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" + Me.ADDED_WHENTextBox1.ReadOnly = True + Me.ADDED_WHENTextBox1.Size = New System.Drawing.Size(126, 22) + Me.ADDED_WHENTextBox1.TabIndex = 5 + Me.ADDED_WHENTextBox1.TabStop = False + ' + 'PATTERN_WDSEARCHTextBox + ' + Me.PATTERN_WDSEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "PATTERN_WDSEARCH", True)) + Me.PATTERN_WDSEARCHTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.PATTERN_WDSEARCHTextBox.Location = New System.Drawing.Point(227, 83) + Me.PATTERN_WDSEARCHTextBox.Name = "PATTERN_WDSEARCHTextBox" + Me.PATTERN_WDSEARCHTextBox.Size = New System.Drawing.Size(195, 22) + Me.PATTERN_WDSEARCHTextBox.TabIndex = 84 + ' + 'SEQUENCE_NUMBERTextBox + ' + Me.SEQUENCE_NUMBERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "SEQUENCE_NUMBER", True)) + Me.SEQUENCE_NUMBERTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.SEQUENCE_NUMBERTextBox.Location = New System.Drawing.Point(67, 83) + Me.SEQUENCE_NUMBERTextBox.Name = "SEQUENCE_NUMBERTextBox" + Me.SEQUENCE_NUMBERTextBox.Size = New System.Drawing.Size(67, 22) + Me.SEQUENCE_NUMBERTextBox.TabIndex = 9 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label14.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label14.Location = New System.Drawing.Point(6, 30) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(548, 28) + Me.Label14.TabIndex = 83 + Me.Label14.Text = "Hier wird die Reihenfolge-Nummer in Abhängigkeit zum Titel des 'MainWindows' gesp" & _ + "eichert." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Während der Laufzeit wird der Suchpattern der windream-Suche dann mit " & _ + "dem gelesenen Wert ersetzt." + ' + 'BindingNavigator2 + ' + Me.BindingNavigator2.AddNewItem = Nothing + Me.BindingNavigator2.BindingSource = Me.TBHOTKEY_PATTERNSBindingSource + Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem1 + Me.BindingNavigator2.DeleteItem = Me.BindingNavigatorDeleteItem1 + Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorDeleteItem1, Me.tsbtnsave_pattern}) + Me.BindingNavigator2.Location = New System.Drawing.Point(3, 3) + Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 + Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem1 + Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem1 + Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 + Me.BindingNavigator2.Name = "BindingNavigator2" + Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem1 + Me.BindingNavigator2.Size = New System.Drawing.Size(625, 25) + Me.BindingNavigator2.TabIndex = 0 + Me.BindingNavigator2.Text = "BindingNavigator2" + ' + 'BindingNavigatorCountItem1 + ' + Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem1.Text = "von {0}" + Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem1 + ' + Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem1.Image = CType(resources.GetObject("BindingNavigatorDeleteItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" + Me.BindingNavigatorDeleteItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem1.Text = "Löschen" + ' + 'BindingNavigatorMoveFirstItem1 + ' + Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveFirstItem1.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" + Me.BindingNavigatorMoveFirstItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveFirstItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveFirstItem1.Text = "Erste verschieben" + ' + 'BindingNavigatorMovePreviousItem1 + ' + Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMovePreviousItem1.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" + Me.BindingNavigatorMovePreviousItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMovePreviousItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMovePreviousItem1.Text = "Vorherige verschieben" + ' + 'BindingNavigatorSeparator3 + ' + Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" + Me.BindingNavigatorSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorPositionItem1 + ' + Me.BindingNavigatorPositionItem1.AccessibleName = "Position" + Me.BindingNavigatorPositionItem1.AutoSize = False + Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" + Me.BindingNavigatorPositionItem1.Size = New System.Drawing.Size(50, 23) + Me.BindingNavigatorPositionItem1.Text = "0" + Me.BindingNavigatorPositionItem1.ToolTipText = "Aktuelle Position" + ' + 'BindingNavigatorSeparator4 + ' + Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" + Me.BindingNavigatorSeparator4.Size = New System.Drawing.Size(6, 25) + ' + 'BindingNavigatorMoveNextItem1 + ' + Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveNextItem1.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" + Me.BindingNavigatorMoveNextItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveNextItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveNextItem1.Text = "Nächste verschieben" + ' + 'BindingNavigatorMoveLastItem1 + ' + Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorMoveLastItem1.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" + Me.BindingNavigatorMoveLastItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorMoveLastItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorMoveLastItem1.Text = "Letzte verschieben" + ' + 'BindingNavigatorSeparator5 + ' + Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" + Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) + ' + 'tsbtnsave_pattern + ' + Me.tsbtnsave_pattern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.tsbtnsave_pattern.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.tsbtnsave_pattern.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tsbtnsave_pattern.Name = "tsbtnsave_pattern" + Me.tsbtnsave_pattern.Size = New System.Drawing.Size(23, 22) + Me.tsbtnsave_pattern.Text = "ToolStripButton2" + ' + 'GUIDTextBox2 + ' + Me.GUIDTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "GUID", True)) + Me.GUIDTextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox2.Location = New System.Drawing.Point(9, 83) + Me.GUIDTextBox2.Name = "GUIDTextBox2" + Me.GUIDTextBox2.ReadOnly = True + Me.GUIDTextBox2.Size = New System.Drawing.Size(43, 22) + Me.GUIDTextBox2.TabIndex = 7 + Me.GUIDTextBox2.TabStop = False + ' + 'TabPage4 + ' + Me.TabPage4.AutoScroll = True + Me.TabPage4.Controls.Add(Me.lblHinweisRework1) + Me.TabPage4.Controls.Add(Me.CHANGED_WHENTextBox1) + Me.TabPage4.Controls.Add(Me.Text2Label) + Me.TabPage4.Controls.Add(Me.Text1Label) + Me.TabPage4.Controls.Add(Me.Function2Label) + Me.TabPage4.Controls.Add(Me.Function1Label) + Me.TabPage4.Controls.Add(Me.lblsavePatternsRework) + Me.TabPage4.Controls.Add(CHANGED_WHENLabel1) + Me.TabPage4.Controls.Add(CHANGED_WHOLabel1) + Me.TabPage4.Controls.Add(Me.CHANGED_WHOTextBox1) + Me.TabPage4.Controls.Add(ADDED_WHENLabel) + Me.TabPage4.Controls.Add(Me.ADDED_WHENTextBox) + Me.TabPage4.Controls.Add(ADDED_WHOLabel) + Me.TabPage4.Controls.Add(Me.ADDED_WHOTextBox) + Me.TabPage4.Controls.Add(SEQUENCELabel) + Me.TabPage4.Controls.Add(Me.SEQUENCETextBox) + Me.TabPage4.Controls.Add(Me.TEXT2TextBox) + Me.TabPage4.Controls.Add(Me.TEXT1TextBox) + Me.TabPage4.Controls.Add(Me.FUNCTION2TextBox) + Me.TabPage4.Controls.Add(Me.FUNCTION1TextBox) + Me.TabPage4.Controls.Add(TYPELabel) + Me.TabPage4.Controls.Add(Me.TYPEComboBox) + Me.TabPage4.Controls.Add(GUIDLabel1) + Me.TabPage4.Controls.Add(Me.GUIDTextBox1) + Me.TabPage4.Controls.Add(Me.BindingNavigator1) + Me.TabPage4.Controls.Add(Me.btnRegexTest) + Me.TabPage4.Location = New System.Drawing.Point(4, 22) + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage4.Size = New System.Drawing.Size(631, 245) + Me.TabPage4.TabIndex = 0 + Me.TabPage4.Text = "Nachbearbeitungs-Schritte für Suchpattern" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'lblHinweisRework1 + ' + Me.lblHinweisRework1.AutoSize = True + Me.lblHinweisRework1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHinweisRework1.Location = New System.Drawing.Point(189, 89) + Me.lblHinweisRework1.Name = "lblHinweisRework1" + Me.lblHinweisRework1.Size = New System.Drawing.Size(44, 13) + Me.lblHinweisRework1.TabIndex = 87 + Me.lblHinweisRework1.Text = "Label10" + Me.lblHinweisRework1.Visible = False + ' + 'CHANGED_WHENTextBox1 + ' + Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox1.Location = New System.Drawing.Point(339, 136) + Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" + Me.CHANGED_WHENTextBox1.ReadOnly = True + Me.CHANGED_WHENTextBox1.Size = New System.Drawing.Size(129, 22) + Me.CHANGED_WHENTextBox1.TabIndex = 86 + ' + 'TBHOTKEY_PATTERNS_REWORKBindingSource + ' + Me.TBHOTKEY_PATTERNS_REWORKBindingSource.DataMember = "TBHOTKEY_PATTERNS_REWORK" + Me.TBHOTKEY_PATTERNS_REWORKBindingSource.DataSource = Me.MyDataset + ' + 'Text2Label + ' + Me.Text2Label.AutoSize = True + Me.Text2Label.Location = New System.Drawing.Point(142, 70) + Me.Text2Label.Name = "Text2Label" + Me.Text2Label.Size = New System.Drawing.Size(40, 13) + Me.Text2Label.TabIndex = 85 + Me.Text2Label.Text = "Label4" + ' + 'Text1Label + ' + Me.Text1Label.AutoSize = True + Me.Text1Label.Location = New System.Drawing.Point(6, 70) + Me.Text1Label.Name = "Text1Label" + Me.Text1Label.Size = New System.Drawing.Size(40, 13) + Me.Text1Label.TabIndex = 84 + Me.Text1Label.Text = "Label4" + ' + 'Function2Label + ' + Me.Function2Label.AutoSize = True + Me.Function2Label.Location = New System.Drawing.Point(306, 28) + Me.Function2Label.Name = "Function2Label" + Me.Function2Label.Size = New System.Drawing.Size(12, 13) + Me.Function2Label.TabIndex = 83 + Me.Function2Label.Text = "v" + ' + 'Function1Label + ' + Me.Function1Label.AutoSize = True + Me.Function1Label.Location = New System.Drawing.Point(189, 28) + Me.Function1Label.Name = "Function1Label" + Me.Function1Label.Size = New System.Drawing.Size(12, 13) + Me.Function1Label.TabIndex = 82 + Me.Function1Label.Text = "v" + ' + 'lblsavePatternsRework + ' + Me.lblsavePatternsRework.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblsavePatternsRework.AutoSize = True + Me.lblsavePatternsRework.BackColor = System.Drawing.Color.Yellow + Me.lblsavePatternsRework.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblsavePatternsRework.Location = New System.Drawing.Point(437, 89) + Me.lblsavePatternsRework.Name = "lblsavePatternsRework" + Me.lblsavePatternsRework.Size = New System.Drawing.Size(164, 13) + Me.lblsavePatternsRework.TabIndex = 81 + Me.lblsavePatternsRework.Text = "Daten erfolgreich gespeichert!" + Me.lblsavePatternsRework.Visible = False + ' + 'CHANGED_WHOTextBox1 + ' + Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox1.Location = New System.Drawing.Point(230, 136) + Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" + Me.CHANGED_WHOTextBox1.ReadOnly = True + Me.CHANGED_WHOTextBox1.Size = New System.Drawing.Size(100, 22) + Me.CHANGED_WHOTextBox1.TabIndex = 20 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(118, 136) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(100, 22) + Me.ADDED_WHENTextBox.TabIndex = 18 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(9, 136) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.ReadOnly = True + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(100, 22) + Me.ADDED_WHOTextBox.TabIndex = 16 + ' + 'SEQUENCETextBox + ' + Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "SEQUENCE", True)) + Me.SEQUENCETextBox.Location = New System.Drawing.Point(440, 44) + Me.SEQUENCETextBox.Name = "SEQUENCETextBox" + Me.SEQUENCETextBox.Size = New System.Drawing.Size(46, 22) + Me.SEQUENCETextBox.TabIndex = 14 + ' + 'TEXT2TextBox + ' + Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TEXT2", True)) + Me.TEXT2TextBox.Location = New System.Drawing.Point(145, 86) + Me.TEXT2TextBox.Name = "TEXT2TextBox" + Me.TEXT2TextBox.Size = New System.Drawing.Size(37, 22) + Me.TEXT2TextBox.TabIndex = 12 + ' + 'TEXT1TextBox + ' + Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TEXT1", True)) + Me.TEXT1TextBox.Location = New System.Drawing.Point(9, 86) + Me.TEXT1TextBox.Name = "TEXT1TextBox" + Me.TEXT1TextBox.Size = New System.Drawing.Size(55, 22) + Me.TEXT1TextBox.TabIndex = 10 + ' + 'FUNCTION2TextBox + ' + Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "FUNCTION2", True)) + Me.FUNCTION2TextBox.Location = New System.Drawing.Point(309, 44) + Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox" + Me.FUNCTION2TextBox.Size = New System.Drawing.Size(67, 22) + Me.FUNCTION2TextBox.TabIndex = 8 + ' + 'FUNCTION1TextBox + ' + Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "FUNCTION1", True)) + Me.FUNCTION1TextBox.Location = New System.Drawing.Point(192, 44) + Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox" + Me.FUNCTION1TextBox.Size = New System.Drawing.Size(111, 22) + Me.FUNCTION1TextBox.TabIndex = 6 + ' + 'TYPEComboBox + ' + Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TYPE", True)) + Me.TYPEComboBox.FormattingEnabled = True + Me.TYPEComboBox.Items.AddRange(New Object() {"VBREPLACE", "VBSPLIT", "Regular Expression"}) + Me.TYPEComboBox.Location = New System.Drawing.Point(52, 44) + Me.TYPEComboBox.Name = "TYPEComboBox" + Me.TYPEComboBox.Size = New System.Drawing.Size(130, 21) + Me.TYPEComboBox.TabIndex = 4 + ' + 'GUIDTextBox1 + ' + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "GUID", True)) + Me.GUIDTextBox1.Location = New System.Drawing.Point(9, 44) + Me.GUIDTextBox1.Name = "GUIDTextBox1" + Me.GUIDTextBox1.ReadOnly = True + Me.GUIDTextBox1.Size = New System.Drawing.Size(34, 22) + Me.GUIDTextBox1.TabIndex = 2 + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem + Me.BindingNavigator1.BindingSource = Me.TBHOTKEY_PATTERNS_REWORKBindingSource + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem + Me.BindingNavigator1.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.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton1}) + Me.BindingNavigator1.Location = New System.Drawing.Point(3, 3) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(625, 25) + Me.BindingNavigator1.TabIndex = 0 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Neu hinzufügen" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(44, 22) + Me.BindingNavigatorCountItem.Text = "von {0}" + Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Löschen" + ' + '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) + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton1.Text = "Speichern" + ' + 'btnRegexTest + ' + Me.btnRegexTest.Image = Global.Global_Indexer.My.Resources.Resources.bell_go + Me.btnRegexTest.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnRegexTest.Location = New System.Drawing.Point(338, 42) + Me.btnRegexTest.Name = "btnRegexTest" + Me.btnRegexTest.Size = New System.Drawing.Size(96, 23) + Me.btnRegexTest.TabIndex = 88 + Me.btnRegexTest.Text = "Teste RegEx" + Me.btnRegexTest.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnRegexTest.UseVisualStyleBackColor = True + Me.btnRegexTest.Visible = False + ' + 'TabPage5 + ' + Me.TabPage5.Controls.Add(ADDED_WHENLabel2) + Me.TabPage5.Controls.Add(Me.ADDED_WHENTextBox2) + Me.TabPage5.Controls.Add(ADDED_WHOLabel2) + Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox2) + Me.TabPage5.Controls.Add(CONTROL_VALUELabel) + Me.TabPage5.Controls.Add(Me.CONTROL_VALUETextBox) + Me.TabPage5.Controls.Add(SEQUENCE_NUMBERLabel1) + Me.TabPage5.Controls.Add(Me.SEQUENCE_NUMBERTextBox1) + Me.TabPage5.Controls.Add(GUIDLabel3) + Me.TabPage5.Controls.Add(Me.GUIDTextBox3) + Me.TabPage5.Controls.Add(Me.Label16) + Me.TabPage5.Controls.Add(Me.BindingNavigator3) + Me.TabPage5.Location = New System.Drawing.Point(4, 22) + Me.TabPage5.Name = "TabPage5" + Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage5.Size = New System.Drawing.Size(631, 245) + Me.TabPage5.TabIndex = 1 + Me.TabPage5.Text = "Control-Match für Window" + Me.TabPage5.UseVisualStyleBackColor = True + ' + 'ADDED_WHENTextBox2 + ' + Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHENTextBox2.Location = New System.Drawing.Point(212, 131) + Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" + Me.ADDED_WHENTextBox2.ReadOnly = True + Me.ADDED_WHENTextBox2.Size = New System.Drawing.Size(152, 22) + Me.ADDED_WHENTextBox2.TabIndex = 91 + Me.ADDED_WHENTextBox2.TabStop = False + ' + 'ADDED_WHOTextBox2 + ' + Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ADDED_WHOTextBox2.Location = New System.Drawing.Point(67, 131) + Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" + Me.ADDED_WHOTextBox2.ReadOnly = True + Me.ADDED_WHOTextBox2.Size = New System.Drawing.Size(136, 22) + Me.ADDED_WHOTextBox2.TabIndex = 90 + Me.ADDED_WHOTextBox2.TabStop = False + ' + 'CONTROL_VALUETextBox + ' + Me.CONTROL_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "CONTROL_VALUE", True)) + Me.CONTROL_VALUETextBox.Location = New System.Drawing.Point(212, 90) + Me.CONTROL_VALUETextBox.Name = "CONTROL_VALUETextBox" + Me.CONTROL_VALUETextBox.Size = New System.Drawing.Size(346, 22) + Me.CONTROL_VALUETextBox.TabIndex = 89 + ' + 'SEQUENCE_NUMBERTextBox1 + ' + Me.SEQUENCE_NUMBERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "SEQUENCE_NUMBER", True)) + Me.SEQUENCE_NUMBERTextBox1.Location = New System.Drawing.Point(67, 90) + Me.SEQUENCE_NUMBERTextBox1.Name = "SEQUENCE_NUMBERTextBox1" + Me.SEQUENCE_NUMBERTextBox1.Size = New System.Drawing.Size(46, 22) + Me.SEQUENCE_NUMBERTextBox1.TabIndex = 88 + ' + 'GUIDTextBox3 + ' + Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "GUID", True)) + Me.GUIDTextBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GUIDTextBox3.Location = New System.Drawing.Point(9, 90) + Me.GUIDTextBox3.Name = "GUIDTextBox3" + Me.GUIDTextBox3.ReadOnly = True + Me.GUIDTextBox3.Size = New System.Drawing.Size(49, 22) + Me.GUIDTextBox3.TabIndex = 87 + Me.GUIDTextBox3.TabStop = False + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Label16.Font = New System.Drawing.Font("Segoe UI", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label16.Location = New System.Drawing.Point(9, 37) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(550, 28) + Me.Label16.TabIndex = 86 + Me.Label16.Text = "Bei Nicht-Eindeutigkeit des MainWindow-Namens und der Control-Sequence/-Reihenfol" & _ + "ge muss " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "zusätzlich eine Abhängigkeit zwischen dem Control-Inhalt und dem Windo" & _ + "wnamen geschaffen werden." + ' + 'BindingNavigator3 + ' + Me.BindingNavigator3.AddNewItem = Nothing + Me.BindingNavigator3.BindingSource = Me.TBHOTKEY_WINDOW_HOOKBindingSource + Me.BindingNavigator3.CountItem = Me.ToolStripLabel1 + Me.BindingNavigator3.CountItemFormat = "von {0} Control-Matches" + Me.BindingNavigator3.DeleteItem = Me.ToolStripButton2 + Me.BindingNavigator3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton2}) + Me.BindingNavigator3.Location = New System.Drawing.Point(3, 3) + Me.BindingNavigator3.MoveFirstItem = Me.ToolStripButton3 + Me.BindingNavigator3.MoveLastItem = Me.ToolStripButton6 + Me.BindingNavigator3.MoveNextItem = Me.ToolStripButton5 + Me.BindingNavigator3.MovePreviousItem = Me.ToolStripButton4 + Me.BindingNavigator3.Name = "BindingNavigator3" + Me.BindingNavigator3.PositionItem = Me.ToolStripTextBox1 + Me.BindingNavigator3.Size = New System.Drawing.Size(625, 25) + Me.BindingNavigator3.TabIndex = 1 + Me.BindingNavigator3.Text = "BindingNavigator3" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(137, 22) + Me.ToolStripLabel1.Text = "von {0} Control-Matches" + Me.ToolStripLabel1.ToolTipText = "Die Gesamtanzahl der Elemente." + ' + 'ToolStripButton2 + ' + Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image) + Me.ToolStripButton2.Name = "ToolStripButton2" + Me.ToolStripButton2.RightToLeftAutoMirrorImage = True + Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton2.Text = "Löschen" + ' + 'ToolStripButton3 + ' + Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image) + Me.ToolStripButton3.Name = "ToolStripButton3" + Me.ToolStripButton3.RightToLeftAutoMirrorImage = True + Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton3.Text = "Erste verschieben" + ' + 'ToolStripButton4 + ' + Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image) + Me.ToolStripButton4.Name = "ToolStripButton4" + Me.ToolStripButton4.RightToLeftAutoMirrorImage = True + Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton4.Text = "Vorherige verschieben" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripTextBox1 + ' + Me.ToolStripTextBox1.AccessibleName = "Position" + Me.ToolStripTextBox1.AutoSize = False + Me.ToolStripTextBox1.Name = "ToolStripTextBox1" + Me.ToolStripTextBox1.Size = New System.Drawing.Size(50, 23) + Me.ToolStripTextBox1.Text = "0" + Me.ToolStripTextBox1.ToolTipText = "Aktuelle Position" + ' + 'ToolStripSeparator2 + ' + Me.ToolStripSeparator2.Name = "ToolStripSeparator2" + Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25) + ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton5.Image = CType(resources.GetObject("ToolStripButton5.Image"), System.Drawing.Image) + Me.ToolStripButton5.Name = "ToolStripButton5" + Me.ToolStripButton5.RightToLeftAutoMirrorImage = True + Me.ToolStripButton5.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton5.Text = "Nächste verschieben" + ' + 'ToolStripButton6 + ' + Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButton6.Image = CType(resources.GetObject("ToolStripButton6.Image"), System.Drawing.Image) + Me.ToolStripButton6.Name = "ToolStripButton6" + Me.ToolStripButton6.RightToLeftAutoMirrorImage = True + Me.ToolStripButton6.Size = New System.Drawing.Size(23, 22) + Me.ToolStripButton6.Text = "Letzte verschieben" + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25) + ' + 'ListBoxPatterns + ' + Me.ListBoxPatterns.DataSource = Me.TBHOTKEY_PATTERNSBindingSource + Me.ListBoxPatterns.DisplayMember = "PATTERN_WDSEARCH" + Me.ListBoxPatterns.FormattingEnabled = True + Me.ListBoxPatterns.Location = New System.Drawing.Point(9, 37) + Me.ListBoxPatterns.Name = "ListBoxPatterns" + Me.ListBoxPatterns.Size = New System.Drawing.Size(246, 108) + Me.ListBoxPatterns.TabIndex = 0 + Me.ListBoxPatterns.ValueMember = "GUID" + ' + 'TabControl2 + ' + Me.TabControl2.Controls.Add(Me.TabPage3) + Me.TabControl2.Controls.Add(Me.TabPage1) + Me.TabControl2.Controls.Add(Me.TabPage2) + Me.TabControl2.Location = New System.Drawing.Point(269, 62) + Me.TabControl2.Name = "TabControl2" + Me.TabControl2.SelectedIndex = 0 + Me.TabControl2.Size = New System.Drawing.Size(639, 215) + Me.TabControl2.TabIndex = 36 + ' + 'TabPage3 + ' + Me.TabPage3.AutoScroll = True + Me.TabPage3.Controls.Add(WINDOW_NAMELabel) + Me.TabPage3.Controls.Add(Me.WINDOW_NAMETextBox) + Me.TabPage3.Controls.Add(Me.Button2) + Me.TabPage3.Controls.Add(Me.lblSave) + Me.TabPage3.Controls.Add(Me.btnsave) + Me.TabPage3.Controls.Add(CHANGED_WHENLabel) + Me.TabPage3.Controls.Add(Me.CHANGED_WHENTextBox) + Me.TabPage3.Controls.Add(CHANGED_WHOLabel) + Me.TabPage3.Controls.Add(Me.CHANGED_WHOTextBox) + Me.TabPage3.Controls.Add(HOTKEY2Label) + Me.TabPage3.Controls.Add(Me.HOTKEY2TextBox) + Me.TabPage3.Controls.Add(HOTKEY1Label) + Me.TabPage3.Controls.Add(Me.HOTKEY1ComboBox) + Me.TabPage3.Controls.Add(WD_SEARCHLabel) + Me.TabPage3.Controls.Add(Me.WD_SEARCHTextBox) + Me.TabPage3.Controls.Add(NAMELabel) + Me.TabPage3.Controls.Add(Me.NAMETextBox) + Me.TabPage3.Controls.Add(GUIDLabel) + Me.TabPage3.Controls.Add(Me.GUIDTextBox) + Me.TabPage3.Location = New System.Drawing.Point(4, 22) + Me.TabPage3.Name = "TabPage3" + Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage3.Size = New System.Drawing.Size(631, 189) + Me.TabPage3.TabIndex = 2 + Me.TabPage3.Text = "Eigenschaften Hotkey-Profil:" + Me.TabPage3.UseVisualStyleBackColor = True + ' + 'WINDOW_NAMETextBox + ' + Me.WINDOW_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "WINDOW_NAME", True)) + Me.WINDOW_NAMETextBox.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.WINDOW_NAMETextBox.ForeColor = System.Drawing.Color.Firebrick + Me.WINDOW_NAMETextBox.Location = New System.Drawing.Point(9, 110) + Me.WINDOW_NAMETextBox.Name = "WINDOW_NAMETextBox" + Me.WINDOW_NAMETextBox.Size = New System.Drawing.Size(431, 24) + Me.WINDOW_NAMETextBox.TabIndex = 82 + Me.WINDOW_NAMETextBox.TabStop = False + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(479, 67) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(31, 23) + Me.Button2.TabIndex = 81 + Me.Button2.Text = "..." + Me.Button2.UseVisualStyleBackColor = True + ' + 'lblSave + ' + Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(446, 114) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(164, 13) + Me.lblSave.TabIndex = 80 + Me.lblSave.Text = "Daten erfolgreich gespeichert!" + Me.lblSave.Visible = False + ' + 'btnsave + ' + Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnsave.Location = New System.Drawing.Point(525, 12) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(85, 38) + Me.btnsave.TabIndex = 21 + Me.btnsave.Text = "Speichern" + Me.btnsave.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnsave.UseVisualStyleBackColor = True + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(313, 156) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(158, 22) + Me.CHANGED_WHENTextBox.TabIndex = 13 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(174, 156) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(130, 22) + Me.CHANGED_WHOTextBox.TabIndex = 11 + ' + 'HOTKEY2TextBox + ' + Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "HOTKEY2", True)) + Me.HOTKEY2TextBox.Location = New System.Drawing.Point(102, 156) + Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox" + Me.HOTKEY2TextBox.Size = New System.Drawing.Size(52, 22) + Me.HOTKEY2TextBox.TabIndex = 9 + ' + 'HOTKEY1ComboBox + ' + Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "HOTKEY1", True)) + Me.HOTKEY1ComboBox.FormattingEnabled = True + Me.HOTKEY1ComboBox.Items.AddRange(New Object() {"Strg", "Shift", "Alt", "Win"}) + Me.HOTKEY1ComboBox.Location = New System.Drawing.Point(9, 156) + Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox" + Me.HOTKEY1ComboBox.Size = New System.Drawing.Size(77, 21) + Me.HOTKEY1ComboBox.TabIndex = 7 + ' + 'WD_SEARCHTextBox + ' + Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "WD_SEARCH", True)) + Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(9, 69) + Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" + Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(462, 22) + Me.WD_SEARCHTextBox.TabIndex = 5 + ' + 'NAMETextBox + ' + Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "NAME", True)) + Me.NAMETextBox.Location = New System.Drawing.Point(67, 28) + Me.NAMETextBox.Name = "NAMETextBox" + Me.NAMETextBox.Size = New System.Drawing.Size(404, 22) + Me.NAMETextBox.TabIndex = 3 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(9, 28) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(49, 22) + Me.GUIDTextBox.TabIndex = 1 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.chklbUser) + Me.TabPage1.Controls.Add(Me.btnUserAdd_Profile) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(631, 189) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "User zu Profil zuordnen" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'chklbUser + ' + Me.chklbUser.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chklbUser.ContextMenuStrip = Me.ContextMenuStrip1 + Me.chklbUser.FormattingEnabled = True + Me.chklbUser.Location = New System.Drawing.Point(3, 6) + Me.chklbUser.Name = "chklbUser" + Me.chklbUser.Size = New System.Drawing.Size(290, 174) + Me.chklbUser.TabIndex = 35 + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleAuswählenToolStripMenuItem, Me.KeineAuswählenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(163, 48) + ' + 'AlleAuswählenToolStripMenuItem + ' + Me.AlleAuswählenToolStripMenuItem.Name = "AlleAuswählenToolStripMenuItem" + Me.AlleAuswählenToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.AlleAuswählenToolStripMenuItem.Text = "Alle auswählen" + ' + 'KeineAuswählenToolStripMenuItem + ' + Me.KeineAuswählenToolStripMenuItem.Name = "KeineAuswählenToolStripMenuItem" + Me.KeineAuswählenToolStripMenuItem.Size = New System.Drawing.Size(162, 22) + Me.KeineAuswählenToolStripMenuItem.Text = "Keine auswählen" + ' + 'btnUserAdd_Profile + ' + Me.btnUserAdd_Profile.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnUserAdd_Profile.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnUserAdd_Profile.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnUserAdd_Profile.Location = New System.Drawing.Point(300, 6) + Me.btnUserAdd_Profile.Name = "btnUserAdd_Profile" + Me.btnUserAdd_Profile.Size = New System.Drawing.Size(200, 36) + Me.btnUserAdd_Profile.TabIndex = 34 + Me.btnUserAdd_Profile.Text = "Gewählten Usern Profil zuweisen" + Me.btnUserAdd_Profile.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnUserAdd_Profile.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.btndeleteUserProfile) + Me.TabPage2.Controls.Add(Me.chklbUserProfile) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(631, 189) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Usern Profile entziehen" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'btndeleteUserProfile + ' + Me.btndeleteUserProfile.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.btndeleteUserProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndeleteUserProfile.Location = New System.Drawing.Point(303, 6) + Me.btndeleteUserProfile.Name = "btndeleteUserProfile" + Me.btndeleteUserProfile.Size = New System.Drawing.Size(197, 26) + Me.btndeleteUserProfile.TabIndex = 37 + Me.btndeleteUserProfile.Text = "Userprofile löschen" + Me.btndeleteUserProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndeleteUserProfile.UseVisualStyleBackColor = True + ' + 'chklbUserProfile + ' + Me.chklbUserProfile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chklbUserProfile.ContextMenuStrip = Me.ContextMenuStrip1 + Me.chklbUserProfile.FormattingEnabled = True + Me.chklbUserProfile.Location = New System.Drawing.Point(6, 6) + Me.chklbUserProfile.Name = "chklbUserProfile" + Me.chklbUserProfile.Size = New System.Drawing.Size(291, 174) + Me.chklbUserProfile.TabIndex = 36 + ' + 'btndelete + ' + Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btndelete.Location = New System.Drawing.Point(269, 30) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(197, 26) + Me.btndelete.TabIndex = 20 + Me.btndelete.Text = "Profil löschen (Global und User)" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btndelete.UseVisualStyleBackColor = True + ' + 'ListBox_Profiles + ' + Me.ListBox_Profiles.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.ListBox_Profiles.BackColor = System.Drawing.SystemColors.ControlLight + Me.ListBox_Profiles.DataSource = Me.TBHOTKEY_PROFILEBindingSource + Me.ListBox_Profiles.DisplayMember = "String" + Me.ListBox_Profiles.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox_Profiles.FormattingEnabled = True + Me.ListBox_Profiles.ItemHeight = 15 + Me.ListBox_Profiles.Location = New System.Drawing.Point(8, 30) + Me.ListBox_Profiles.Name = "ListBox_Profiles" + Me.ListBox_Profiles.Size = New System.Drawing.Size(255, 244) + Me.ListBox_Profiles.TabIndex = 4 + Me.ListBox_Profiles.ValueMember = "GUID" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(5, 12) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(142, 15) + Me.Label9.TabIndex = 3 + Me.Label9.Text = "Aktuelle globale Hotkeys:" + ' + 'TabPage_Designer + ' + Me.TabPage_Designer.AutoScroll = True + Me.TabPage_Designer.Controls.Add(Me.GroupBox1) + Me.TabPage_Designer.Controls.Add(Me.GroupBox2_Controls) + Me.TabPage_Designer.Controls.Add(Me.GroupBoxMainWindow) + Me.TabPage_Designer.Location = New System.Drawing.Point(4, 22) + Me.TabPage_Designer.Name = "TabPage_Designer" + Me.TabPage_Designer.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage_Designer.Size = New System.Drawing.Size(964, 587) + Me.TabPage_Designer.TabIndex = 0 + Me.TabPage_Designer.Text = "Hotkey-Profil definieren" + Me.TabPage_Designer.UseVisualStyleBackColor = True + ' + 'TabPageTest + ' + Me.TabPageTest.Controls.Add(Me.GroupBox3) + Me.TabPageTest.Controls.Add(Me.GroupBox2) + Me.TabPageTest.Location = New System.Drawing.Point(4, 22) + Me.TabPageTest.Name = "TabPageTest" + Me.TabPageTest.Padding = New System.Windows.Forms.Padding(3) + Me.TabPageTest.Size = New System.Drawing.Size(964, 587) + Me.TabPageTest.TabIndex = 1 + Me.TabPageTest.Text = "Test - Auswerten Window-Handle" + Me.TabPageTest.UseVisualStyleBackColor = True + ' + 'GroupBox3 + ' + Me.GroupBox3.Controls.Add(Me.chkboxshowfilledControlsOnly_Test) + Me.GroupBox3.Controls.Add(Me.ListViewControls_Test) + Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Fill + Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox3.Location = New System.Drawing.Point(538, 3) + Me.GroupBox3.Name = "GroupBox3" + Me.GroupBox3.Size = New System.Drawing.Size(423, 581) + Me.GroupBox3.TabIndex = 17 + Me.GroupBox3.TabStop = False + Me.GroupBox3.Text = "Auslesbare Controls für gewähltes 'MainWindow'" + ' + 'chkboxshowfilledControlsOnly_Test + ' + Me.chkboxshowfilledControlsOnly_Test.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chkboxshowfilledControlsOnly_Test.AutoSize = True + Me.chkboxshowfilledControlsOnly_Test.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkboxshowfilledControlsOnly_Test.ForeColor = System.Drawing.Color.DarkSlateGray + Me.chkboxshowfilledControlsOnly_Test.Location = New System.Drawing.Point(6, 555) + Me.chkboxshowfilledControlsOnly_Test.Name = "chkboxshowfilledControlsOnly_Test" + Me.chkboxshowfilledControlsOnly_Test.Size = New System.Drawing.Size(185, 19) + Me.chkboxshowfilledControlsOnly_Test.TabIndex = 10 + Me.chkboxshowfilledControlsOnly_Test.Text = "Nur gefüllte Felder anzeigen" + Me.chkboxshowfilledControlsOnly_Test.UseVisualStyleBackColor = True + ' + 'ListViewControls_Test + ' + Me.ListViewControls_Test.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.ListViewControls_Test.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader4, Me.ColumnHeader1, Me.ColumnHeader2}) + Me.ListViewControls_Test.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListViewControls_Test.FullRowSelect = True + Me.ListViewControls_Test.Location = New System.Drawing.Point(6, 27) + Me.ListViewControls_Test.Name = "ListViewControls_Test" + Me.ListViewControls_Test.Size = New System.Drawing.Size(414, 514) + Me.ListViewControls_Test.TabIndex = 82 + Me.ListViewControls_Test.UseCompatibleStateImageBehavior = False + Me.ListViewControls_Test.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader4 + ' + Me.ColumnHeader4.Text = "#" + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "Control-ID:" + Me.ColumnHeader1.Width = 80 + ' + 'ColumnHeader2 + ' + Me.ColumnHeader2.Text = "Gelesener Wert" + Me.ColumnHeader2.Width = 350 + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.ListBox_MainWindows_Test) + Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Left + Me.GroupBox2.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.GroupBox2.Location = New System.Drawing.Point(3, 3) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(535, 581) + Me.GroupBox2.TabIndex = 16 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Schritt 1 - Wählen Sie das 'MainWindow' zur Auswahl der Inhalte" + ' + 'Button3 + ' + Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button3.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xMD + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(6, 552) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(75, 23) + Me.Button3.TabIndex = 9 + Me.Button3.Text = "Refresh" + Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button3.UseVisualStyleBackColor = True + ' + 'ListBox_MainWindows_Test + ' + Me.ListBox_MainWindows_Test.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.ListBox_MainWindows_Test.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox_MainWindows_Test.FormattingEnabled = True + Me.ListBox_MainWindows_Test.ItemHeight = 15 + Me.ListBox_MainWindows_Test.Location = New System.Drawing.Point(6, 27) + Me.ListBox_MainWindows_Test.Name = "ListBox_MainWindows_Test" + Me.ListBox_MainWindows_Test.Size = New System.Drawing.Size(514, 514) + Me.ListBox_MainWindows_Test.TabIndex = 8 + ' + 'TBDD_USERBindingSource + ' + Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" + Me.TBDD_USERBindingSource.DataSource = Me.MyDataset + ' + 'TBDD_USERTableAdapter + ' + Me.TBDD_USERTableAdapter.ClearBeforeFill = True + ' + 'TBHOTKEY_USER_PROFILEBindingSource + ' + Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" + Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'TBHOTKEY_USER_PROFILETableAdapter + ' + Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True + ' + 'TBHOTKEY_PATTERNS_REWORKTableAdapter + ' + Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.ClearBeforeFill = True + ' + 'TBHOTKEY_WINDOW_HOOKTableAdapter + ' + Me.TBHOTKEY_WINDOW_HOOKTableAdapter.ClearBeforeFill = True + ' + 'frmHotKey_Add + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(972, 635) + Me.Controls.Add(Me.TabControl1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmHotKey_Add" + Me.Text = "HotKey - Administration" + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.GroupBoxMainWindow.ResumeLayout(False) + Me.GroupBoxMainWindow.PerformLayout() + Me.GroupBox2_Controls.ResumeLayout(False) + Me.GroupBox2_Controls.PerformLayout() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.TabPageUebersicht.ResumeLayout(False) + Me.TabPageUebersicht.PerformLayout() + Me.GroupBoxPatterns.ResumeLayout(False) + Me.GroupBoxPatterns.PerformLayout() + CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl3.ResumeLayout(False) + Me.TabPage6.ResumeLayout(False) + Me.TabPage6.PerformLayout() + CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator2.ResumeLayout(False) + Me.BindingNavigator2.PerformLayout() + Me.TabPage4.ResumeLayout(False) + Me.TabPage4.PerformLayout() + CType(Me.TBHOTKEY_PATTERNS_REWORKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + Me.TabPage5.ResumeLayout(False) + Me.TabPage5.PerformLayout() + CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator3.ResumeLayout(False) + Me.BindingNavigator3.PerformLayout() + Me.TabControl2.ResumeLayout(False) + Me.TabPage3.ResumeLayout(False) + Me.TabPage3.PerformLayout() + Me.TabPage1.ResumeLayout(False) + Me.ContextMenuStrip1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.TabPage_Designer.ResumeLayout(False) + Me.TabPageTest.ResumeLayout(False) + Me.GroupBox3.ResumeLayout(False) + Me.GroupBox3.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents btnpnlStart_weiter As System.Windows.Forms.Button + Friend WithEvents ListBox_FormTitles As System.Windows.Forms.ListBox + Friend WithEvents GroupBoxMainWindow As System.Windows.Forms.GroupBox + Friend WithEvents GroupBox2_Controls As System.Windows.Forms.GroupBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtControl As System.Windows.Forms.TextBox + Friend WithEvents txtPattern As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents btnGB1 As System.Windows.Forms.Button + Friend WithEvents txtKey As System.Windows.Forms.TextBox + Friend WithEvents cmbFunktionstaste As System.Windows.Forms.ComboBox + Friend WithEvents txtWDSearch As System.Windows.Forms.TextBox + Friend WithEvents cmbObjekttyp As System.Windows.Forms.ComboBox + Friend WithEvents txtProfilname As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents btnadd_Pattern As System.Windows.Forms.Button + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBHOTKEY_PATTERNSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter + Friend WithEvents TBHOTKEY_PATTERNSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents lblSaveHotkey As System.Windows.Forms.Label + Friend WithEvents lblLinkadd As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage_Designer As System.Windows.Forms.TabPage + Friend WithEvents TabPageTest As System.Windows.Forms.TabPage + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents ListBox_MainWindows_Test As System.Windows.Forms.ListBox + Friend WithEvents TabPageUebersicht As System.Windows.Forms.TabPage + Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox + Friend WithEvents ListBox_Profiles As System.Windows.Forms.ListBox + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents btnUserAdd_Profile As System.Windows.Forms.Button + Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter + Friend WithEvents chklbUser As System.Windows.Forms.CheckedListBox + Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip + Friend WithEvents AlleAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents KeineAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents TabControl2 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents chklbUserProfile As System.Windows.Forms.CheckedListBox + Friend WithEvents btndeleteUserProfile As System.Windows.Forms.Button + Friend WithEvents TabPage3 As System.Windows.Forms.TabPage + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox + Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents lblSave As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents GroupBoxPatterns As System.Windows.Forms.GroupBox + Friend WithEvents ListBoxPatterns As System.Windows.Forms.ListBox + Friend WithEvents TabControl3 As System.Windows.Forms.TabControl + Friend WithEvents TabPage4 As System.Windows.Forms.TabPage + Friend WithEvents TabPage5 As System.Windows.Forms.TabPage + Friend WithEvents TBHOTKEY_PATTERNS_REWORKBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_PATTERNS_REWORKTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + 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 GUIDTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents TYPEComboBox As System.Windows.Forms.ComboBox + Friend WithEvents FUNCTION1TextBox As System.Windows.Forms.TextBox + Friend WithEvents FUNCTION2TextBox As System.Windows.Forms.TextBox + Friend WithEvents TEXT1TextBox As System.Windows.Forms.TextBox + Friend WithEvents TEXT2TextBox As System.Windows.Forms.TextBox + Friend WithEvents SEQUENCETextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + Friend WithEvents lblsavePatternsRework As System.Windows.Forms.Label + Friend WithEvents Function2Label As System.Windows.Forms.Label + Friend WithEvents Function1Label As System.Windows.Forms.Label + Friend WithEvents Text2Label As System.Windows.Forms.Label + Friend WithEvents Text1Label As System.Windows.Forms.Label + Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents lblHinweisRework1 As System.Windows.Forms.Label + Friend WithEvents btnRegexTest As System.Windows.Forms.Button + Friend WithEvents ListViewControls As System.Windows.Forms.ListView + Friend WithEvents ControlID As System.Windows.Forms.ColumnHeader + Friend WithEvents ControlValue As System.Windows.Forms.ColumnHeader + Friend WithEvents ListViewControls_Test As System.Windows.Forms.ListView + Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader + Friend WithEvents chkboxshowfilledControlsOnly_Test As System.Windows.Forms.CheckBox + Friend WithEvents chkboxshowfilledControlsOnly As System.Windows.Forms.CheckBox + Friend WithEvents WINDOW_NAMETextBox As System.Windows.Forms.TextBox + Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader + Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader + Friend WithEvents SEQUENCE_NUMBERTextBox As System.Windows.Forms.TextBox + Friend WithEvents tslbl_Hotkeywindow As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tslbl_HotkeySequence As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents txtValueMatch As System.Windows.Forms.TextBox + Friend WithEvents Label13 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents txtControl_Match As System.Windows.Forms.TextBox + Friend WithEvents btnadd_WindowMatch As System.Windows.Forms.Button + Friend WithEvents TBHOTKEY_WINDOW_HOOKBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_WINDOW_HOOKTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter + Friend WithEvents lblMatchadd As System.Windows.Forms.Label + Friend WithEvents TabPage6 As System.Windows.Forms.TabPage + Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents PATTERN_WDSEARCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorCountItem1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator4 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents tsbtnsave_pattern As System.Windows.Forms.ToolStripButton + Friend WithEvents lblSavePAttern As System.Windows.Forms.Label + Friend WithEvents ADDED_WHENTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHOTextBox2 As System.Windows.Forms.TextBox + Friend WithEvents CONTROL_VALUETextBox As System.Windows.Forms.TextBox + Friend WithEvents SEQUENCE_NUMBERTextBox1 As System.Windows.Forms.TextBox + Friend WithEvents GUIDTextBox3 As System.Windows.Forms.TextBox + Friend WithEvents Label16 As System.Windows.Forms.Label + Friend WithEvents BindingNavigator3 As System.Windows.Forms.BindingNavigator + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox + Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton + Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents btnnewProfile As System.Windows.Forms.Button +End Class diff --git a/Global_Indexer/frmHotKey_Add.resx b/Global_Indexer/frmHotKey_Add.resx new file mode 100644 index 0000000..abc1b8f --- /dev/null +++ b/Global_Indexer/frmHotKey_Add.resx @@ -0,0 +1,603 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 134, 17 + + + 244, 17 + + + 483, 17 + + + 716, 17 + + + 1140, 17 + + + 889, 17 + + + 1386, 17 + + + 471, 95 + + + 471, 95 + + + 1040, 95 + + + 1040, 95 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 317, 95 + + + 1098, 56 + + + 1098, 56 + + + 317, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 1194, 95 + + + 1194, 95 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 941, 56 + + + 17, 56 + + + 212, 56 + + + 401, 56 + + + 674, 56 + + + 17, 95 + + + 758, 95 + + + + AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA + CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA + AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA + /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 + d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 + d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// + ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 + d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 + d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 + d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// + ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 + d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA + gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 + d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ + 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 + 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE + AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB + BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD + AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD + AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD + AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC + AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD + AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB + AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE + AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB + BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD + AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA + AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB + AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB + AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB + AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD + AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v + 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w + 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC + QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v + r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC + r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC + QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC + QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w + r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC + QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/Global_Indexer/frmHotKey_Add.vb b/Global_Indexer/frmHotKey_Add.vb new file mode 100644 index 0000000..5e102ea --- /dev/null +++ b/Global_Indexer/frmHotKey_Add.vb @@ -0,0 +1,721 @@ +Public Class frmHotKey_Add + Private Control_Sequence As Integer + Private Sub ObjektTypenEintragen() + Try + Dim oDokumentTyp As WINDREAMLib.WMObject + ' Combobox leeren + Me.cmbObjekttyp.Items.Clear() + ' alle Objekttypen durchlaufen + For Each oDokumentTyp In ClassWindream.GetObjecttypesAsObjects + ' und in die Combobox eintragen + Me.cmbObjekttyp.Items.Add(oDokumentTyp.aName) + Next + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen") + End Try + + End Sub + Private Sub btnpnlStart_weiter_Click(sender As Object, e As EventArgs) Handles btnpnlStart_weiter.Click + If ListBox_FormTitles.SelectedIndex <> -1 Then + GroupBox2_Controls.Visible = True + List_Controls(ListBox_FormTitles.SelectedItem, 1) + Else + GroupBox2_Controls.Visible = False + End If + End Sub + + Private Sub frmHotKey_Add_Load(sender As Object, e As EventArgs) Handles Me.Load + + Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_PATTERNSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString + Load_Profiles() + load_users() + GroupBox1.Visible = True + GroupBox2_Controls.Visible = False + GroupBoxMainWindow.Visible = False + If ClassWindream.Init() = True Then + ObjektTypenEintragen() + Else + MsgBox("Windream konnte nicht initiiert werden! Formular wird geschlossen - Check logfile", MsgBoxStyle.Information) + Me.Close() + End If + + End Sub + Sub load_users() + Try + Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER) + chklbUser.Items.Clear() + For Each row As DataRow In MyDataset.TBDD_USER.Rows + chklbUser.Items.Add(row.Item("USERNAME")) + Next + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Load_Users:") + End Try + End Sub + Sub Load_Profiles() + Try + Me.TBHOTKEY_PROFILETableAdapter.Fill(MyDataset.TBHOTKEY_PROFILE) + Catch ex As Exception + MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Load_Profiles:") + End Try + End Sub + Sub List_FormTitles(Tabindex As Integer) + + Try + Select Case Tabindex + Case 1 + ListBox_FormTitles.Items.Clear() + Case 2 + ListBox_MainWindows_Test.Items.Clear() + ListViewControls_Test.Items.Clear() + End Select + Dim enumerator As New ClassWindowAPI + For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() + If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then + Select Case Tabindex + Case 1 + ListBox_FormTitles.Items.Add(top.MainWindowTitle) + Case 2 + ListBox_MainWindows_Test.Items.Add(top.MainWindowTitle) + End Select + End If + Next top + + Catch ex As Exception + MsgBox("Error in List_FormTitles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Function CheckFormTitle_isOpen(windowname As String) + Dim isopen As Boolean = False + Try + Dim enumerator As New ClassWindowAPI + For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() + If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then + If top.MainWindowTitle = windowname Then + Return True + End If + End If + Next top + Return False + Catch ex As Exception + MsgBox("Error in CheckFormTitle_isOpen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + + Sub List_Controls(Title As String, Tabindex As Integer) + ' Try + Select Case Tabindex + Case 1 + If GroupBox2_Controls.Visible = False Then + GroupBox2_Controls.Visible = True + End If + ListViewControls.Items.Clear() + txtControl.Text = "" + Case 2 + ListViewControls_Test.Items.Clear() + End Select + + Dim enumerator As New ClassWindowAPI + 'Jedes Fenster durchlaufen + For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() + If top.MainWindowTitle.Contains(Title) Or top.MainWindowTitle.ToLower = Title.ToLower Then + Dim anz As Integer = 0 + Control_Sequence = 0 + 'Jedes Control durchlaufen + For Each child As ClassWindowAPI.ApiWindow In enumerator.GetChildWindows(top.hWnd) + Select Case Tabindex + Case 1 + If chkboxshowfilledControlsOnly.Checked Then + If child.MainWindowTitle <> "" Then + ListViewControls.Items.Add(Control_Sequence) + ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString) + ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle) + anz += 1 + End If + Else + ListViewControls.Items.Add(Control_Sequence) + ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString) + ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle) + anz += 1 + End If + Case 2 + If chkboxshowfilledControlsOnly_Test.Checked Then + If child.MainWindowTitle <> "" Then + ListViewControls_Test.Items.Add(Control_Sequence) + ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString) + ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle) + anz += 1 + End If + Else + ListViewControls_Test.Items.Add(Control_Sequence) + ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString) + ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle) + anz += 1 + End If + 'ListBox_Controls_Test.Items.Add("ID: " & child.hWnd.ToString & " || Aktueller Wert: " & child.MainWindowTitle) + End Select + Control_Sequence += 1 + Next child + End If + Next top + 'Catch ex As Exception + ' MsgBox("Error in List_Controls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + 'End Try + End Sub + + Private Sub ListBox_FormTitles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_FormTitles.SelectedIndexChanged + If ListBox_FormTitles.SelectedIndex <> -1 And GroupBox2_Controls.Visible = True Then + List_Controls(ListBox_FormTitles.SelectedItem, 1) + End If + End Sub + + Private Sub txtKey_KeyDown(sender As Object, e As KeyEventArgs) Handles txtKey.KeyDown + txtKey.Text = "" + End Sub + + Private Sub btnGB1_Click(sender As Object, e As EventArgs) Handles btnGB1.Click + If txtProfilname.Text <> "" And txtWDSearch.Text <> "" And txtKey.Text <> "" And cmbFunktionstaste.Text <> "" Then + Me.GroupBoxMainWindow.Visible = True + List_FormTitles(1) + Else + MsgBox("Eingabe fehlt!", MsgBoxStyle.Exclamation) + End If + End Sub + + Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBHOTKEY_PROFILEBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.MyDataset) + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnadd_Pattern.Click + Try + lblLinkadd.Visible = False + If txtPattern.Text = "" Then + Exit Sub + End If + Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" + Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If IsDBNull(kopf) Then + TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) + Else + TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf) + End If + lblSaveHotkey.Visible = True + sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" + Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If id > 0 Then + TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtPattern.Text, Control_ID, Environment.UserName, txtControl.Text) + lblLinkadd.Text = "Pattern-Link " & txtControl.Text & " || " & txtPattern.Text & " erfolgreich angelegt" + lblLinkadd.Visible = True + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Pattern or Profile:") + End Try + + End Sub + + Private Sub txtPattern_TextChanged(sender As Object, e As EventArgs) Handles txtPattern.TextChanged + + End Sub + + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + If Not Me.txtWDSearch.Text = "" Then + Me.OFDWindreamsuche.FileName = Me.txtWDSearch.Text + End If + + If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then + Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName + End If + End Sub + + Private Sub txtKey_KeyUp(sender As Object, e As KeyEventArgs) Handles txtKey.KeyUp + Console.WriteLine(e.KeyCode) + End Sub + + Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged + Select Case TabControl1.SelectedIndex + + Case 0 + TabControl2.SelectedIndex = 0 + TabControl3.SelectedIndex = 0 + Load_Profiles() + Case 1 + If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then + btnnewProfile.Visible = True + txtProfilname.Text = NAMETextBox.Text + txtWDSearch.Text = WD_SEARCHTextBox.Text + cmbFunktionstaste.SelectedIndex = cmbFunktionstaste.FindStringExact(HOTKEY1ComboBox.Text) + txtKey.Text = HOTKEY2TextBox.Text + Me.GroupBoxMainWindow.Visible = True + List_FormTitles(1) + ListBox_FormTitles.SelectedIndex = ListBox_FormTitles.FindStringExact(WINDOW_NAMETextBox.Text) + ListBox_FormTitles.SetSelected(ListBox_FormTitles.SelectedIndex, True) + GroupBox2_Controls.Visible = True + If Not IsNothing(ListBox_FormTitles.SelectedItem) Then + List_Controls(ListBox_FormTitles.SelectedItem, 1) + End If + Else + btnnewProfile.Visible = False + Me.GroupBoxMainWindow.Visible = False + GroupBox2_Controls.Visible = False + txtProfilname.Text = "" + txtWDSearch.Text = "" + cmbFunktionstaste.SelectedIndex = -1 + txtKey.Text = "" + End If + Case 2 + List_FormTitles(2) + End Select + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + List_FormTitles(2) + End Sub + + Private Sub ListBox_MainWindows_Test_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_MainWindows_Test.SelectedIndexChanged + If ListBox_MainWindows_Test.SelectedIndex <> -1 Then + List_Controls(ListBox_MainWindows_Test.SelectedItem, 2) + End If + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + If ListBox_Profiles.SelectedIndex <> -1 Then + Dim result As MsgBoxResult + result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Try + + Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue & ")" + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ListBox_Profiles.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ListBox_Profiles.SelectedValue + If ClassDatabase.Execute_non_Query(del, True) = True Then + ClassLogger.Add(">> Hotkey-Profil: " & ListBox_Profiles.SelectedValue & " wurde gelöscht!", False) + Load_Profiles() + Load_UserForProfiles() + MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") + End If + End If + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete Profiles: ") + End Try + End If + End If + End Sub + + Private Sub btnUserAdd_Profile_Click(sender As Object, e As EventArgs) Handles btnUserAdd_Profile.Click + Try + Dim added As Integer = 0 + Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems + If ListBox_Profiles.SelectedIndex <> -1 And items.Count > 0 Then + For Each item In items + Dim SQL + SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" + Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) + + SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue + Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) + If exists = 0 Then + TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ListBox_Profiles.SelectedValue) + added += 1 + End If + 'If Not UserExists(USERNAME) Then + ' SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('" & PRENAME & "', '" & Name & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & Environment.UserName & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = True Then + ' usersAdded = usersAdded + 1 + ' End If + 'Else + ' SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = True Then + ' usersAdded = usersAdded + 1 + ' End If + 'End If + Next + + Else + MsgBox("Keine Benutzer und/oder kein Profil ausgewählt") + Exit Sub + End If + + If added >= 1 Then + MsgBox(added & " neue Profil/User-Verknüpfungen angelegt!", MsgBoxStyle.Information) + Load_UserForProfiles() + Else + MsgBox("Keine Verknüpfungen angelegt!", MsgBoxStyle.Information) + End If + + Catch ex As Exception + MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click + For i = 0 To chklbUser.Items.Count - 1 + chklbUser.SetItemChecked(i, True) + Next + End Sub + + Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click + For i = 0 To chklbUser.Items.Count - 1 + chklbUser.SetItemChecked(i, False) + Next + End Sub + + Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged + GroupBoxPatterns.Visible = False + Select Case TabControl2.SelectedIndex + Case 0 + GroupBoxPatterns.Visible = True + Case 2 + Load_UserForProfiles() + End Select + End Sub + Sub Load_UserForProfiles() + Try + If ListBox_Profiles.SelectedIndex <> -1 Then + chklbUserProfile.Items.Clear() + Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ListBox_Profiles.SelectedValue + Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True) + If Not IsNothing(DT) Then + For Each dr As DataRow In DT.Rows + chklbUserProfile.Items.Add(dr.Item(0)) + Next + End If + End If + Catch ex As Exception + MsgBox("Error in LoadUserForProfiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Profiles.SelectedIndexChanged + + If ListBox_Profiles.SelectedIndex <> -1 Then + Select Case TabControl2.SelectedIndex + Case 1 + 'Try + ' TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue) + 'Catch ex As Exception + ' MsgBox("Error in Fillby Profile-ID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + 'End Try + Load_Patterns() + Load_MatchPatterns() + Case 2 + Load_UserForProfiles() + End Select + lblSave.Visible = False + End If + + + End Sub + Sub Load_Patterns() + Try + TBHOTKEY_PATTERNSTableAdapter.Fill(MyDataset.TBHOTKEY_PATTERNS, GUIDTextBox.Text) + tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text + tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text + Catch ex As Exception + MsgBox("Error in Fill Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Load_MatchPatterns() + Try + TBHOTKEY_WINDOW_HOOKTableAdapter.Fill(MyDataset.TBHOTKEY_WINDOW_HOOK, GUIDTextBox.Text) + Catch ex As Exception + MsgBox("Error in Fill Match-Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Private Sub btndeleteUserProfile_Click(sender As Object, e As EventArgs) Handles btndeleteUserProfile.Click + Try + Dim deleted As Integer = 0 + Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems + If ListBox_Profiles.SelectedIndex <> -1 And items.Count > 0 Then + For Each item In items + Dim SQL + SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" + Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) + If IsNothing(userid) Then + MsgBox("Unerwarteter Fehler beim Holen der User-ID!", MsgBoxStyle.Exclamation) + Exit Sub + End If + SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ListBox_Profiles.SelectedValue + Dim ID = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) + If ID > 0 Then + TBHOTKEY_USER_PROFILETableAdapter.Delete(ID) + deleted += 1 + End If + 'If Not UserExists(USERNAME) Then + ' SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('" & PRENAME & "', '" & Name & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & Environment.UserName & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = True Then + ' usersAdded = usersAdded + 1 + ' End If + 'Else + ' SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')" + ' If ClassDatabase.Execute_non_Query(SQL) = True Then + ' usersAdded = usersAdded + 1 + ' End If + 'End If + Next + + Else + MsgBox("Keine Benutzer und/oder kein Profil ausgewählt") + Exit Sub + End If + + If deleted >= 1 Then + MsgBox(deleted & " Profilbeziehungen wurden gelöscht!", MsgBoxStyle.Information) + Load_UserForProfiles() + End If + Catch ex As Exception + MsgBox("Error in Delete Profile for Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + Try + TBHOTKEY_PROFILEBindingSource.EndEdit() + If Me.MyDataset.TBHOTKEY_PROFILE.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + TBHOTKEY_PROFILEBindingSource.EndEdit() + TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE) + Me.lblSave.Visible = True + Else + Me.lblSave.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If Not Me.WD_SEARCHTextBox.Text = "" Then + Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text + End If + + If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then + Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName + End If + End Sub + + Private Sub Fill_Rework(PATT_ID As Integer) + Try + Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Fill(Me.MyDataset.TBHOTKEY_PATTERNS_REWORK, PATT_ID) + Catch ex As System.Exception + MsgBox("Error in Load Rework-Step:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + + Private Sub ListBoxPatterns_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxPatterns.SelectedIndexChanged + If ListBoxPatterns.SelectedIndex <> -1 Then + Fill_Rework(ListBoxPatterns.SelectedValue) + tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text + tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text + End If + End Sub + + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + Try + TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit() + If Me.MyDataset.TBHOTKEY_PATTERNS_REWORK.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox1.Text = Environment.UserName + TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit() + TBHOTKEY_PATTERNS_REWORKTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS_REWORK) + Me.lblsavePatternsRework.Visible = True + Else + Me.lblsavePatternsRework.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Reowrk Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TBHOTKEY_PATTERNSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNSBindingSource.AddingNew + MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub + Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged + If TYPEComboBox.SelectedIndex <> -1 Then + Me.TEXT1TextBox.Visible = True + Me.Text1Label.Visible = True + Me.TEXT2TextBox.Visible = True + Me.Text2Label.Visible = True + Me.btnRegexTest.Visible = False + + TEXT1TextBox.Size = New Size(50, 22) + lblHinweisRework1.Visible = False + + Me.FUNCTION1TextBox.Visible = False + Me.FUNCTION2TextBox.Visible = False + Me.Function1Label.Visible = False + Me.Function2Label.Visible = False + FUNCTION1TextBox.Size = New Size(111, 22) + + Select Case TYPEComboBox.Text + Case "VBREPLACE" + Me.Text1Label.Text = "Old Value:" + Me.Text2Label.Text = "New Value:" + + Case "VBSPLIT" + Me.Text1Label.Text = "Split-Zeichen:" + lblHinweisRework1.Text = "(Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'" + lblHinweisRework1.Visible = True + Me.Text2Label.Text = "Vorkommen:" + Case "Regular Expression" + Me.Text1Label.Text = "Regular Expression:" + TEXT1TextBox.Size = New Size(400, 22) + Me.Text2Label.Visible = False + Me.TEXT2TextBox.Visible = False + + Me.Function1Label.Text = "Test-String Regex:" + Me.FUNCTION1TextBox.Text = "" + FUNCTION1TextBox.Size = New Size(138, 22) + Me.FUNCTION1TextBox.Visible = True + Me.Function1Label.Visible = True + Me.btnRegexTest.Visible = True + End Select + End If + End Sub + Private Sub TBHOTKEY_PATTERNS_REWORKBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNS_REWORKBindingSource.AddingNew + If ListBoxPatterns.SelectedIndex <> -1 Then + MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName + MyDataset.TBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn.DefaultValue = ListBoxPatterns.SelectedValue + End If + + End Sub + + Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged + If GUIDTextBox.Text <> "" Then + Load_Patterns() + Load_MatchPatterns() + End If + End Sub + + Private Sub GUIDTextBox2_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox2.TextChanged + If GUIDTextBox2.Text <> "" Then + Fill_Rework(GUIDTextBox2.Text) + End If + End Sub + + Private Sub btnRegexTest_Click(sender As Object, e As EventArgs) Handles btnRegexTest.Click + If Me.TEXT1TextBox.Text <> "" And FUNCTION1TextBox.Text <> "" Then + Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) + Dim Regex As New System.Text.RegularExpressions.Regex(Me.TEXT1TextBox.Text, System.Text.RegularExpressions.RegexOptions.IgnoreCase) + + RegexList.Add(Regex) + + ' Email Absender und Empfänger + Dim result = ClassPostprocessing.extractFromStringviaRE(FUNCTION1TextBox.Text, RegexList) + If Not IsNothing(result) Then + MsgBox("Das Ergebnis der Regular-Expression: '" & result.ToString & "'!", MsgBoxStyle.Information) + Else + MsgBox("Es konnte kein Ergebnis ermittelt werden!", MsgBoxStyle.Exclamation) + End If + + End If + + + End Sub + Dim Control_ID As String + Private Sub ListViewControls_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewControls.SelectedIndexChanged + If Me.ListViewControls.SelectedItems.Count > 0 Then + Control_ID = Me.ListViewControls.SelectedItems(0).SubItems(1).Text + txtControl.Text = ListViewControls.SelectedItems(0).Text + txtControl_Match.Text = ListViewControls.SelectedItems(0).Text + txtValueMatch.Text = Me.ListViewControls.SelectedItems(0).SubItems(2).Text + txtPattern.Text = "" + If lblLinkadd.Visible Then + ListBox_FormTitles.Enabled = False + End If + End If + End Sub + + Private Sub chkboxshowfilledControlsOnly_Test_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly_Test.CheckedChanged + If ListBox_MainWindows_Test.SelectedIndex <> -1 Then + List_Controls(ListBox_MainWindows_Test.SelectedItem, 2) + End If + End Sub + + Private Sub chkboxshowfilledControlsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly.CheckedChanged + If ListBox_FormTitles.SelectedIndex <> -1 Then + List_Controls(ListBox_FormTitles.SelectedItem, 1) + End If + End Sub + + Private Sub btnadd_WindowMatch_Click(sender As Object, e As EventArgs) Handles btnadd_WindowMatch.Click + Try + Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" + Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If IsDBNull(kopf) Then + TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) + Else + TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf) + End If + lblSaveHotkey.Visible = True + sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" + Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If id > 0 Then + TBHOTKEY_WINDOW_HOOKTableAdapter.Insert(id, txtControl_Match.Text, txtValueMatch.Text, Environment.UserName) + lblMatchadd.Text = "Control-Matching " & txtControl_Match.Text & " || " & txtValueMatch.Text & " erfolgreich angelegt" + lblMatchadd.Visible = True + lblLinkadd.Visible = False + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Control-Match:") + End Try + End Sub + + Private Sub tsbtnsave_pattern_Click(sender As Object, e As EventArgs) Handles tsbtnsave_pattern.Click + Try + TBHOTKEY_PATTERNSBindingSource.EndEdit() + If Me.MyDataset.TBHOTKEY_PATTERNS.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox2.Text = Environment.UserName + TBHOTKEY_PATTERNSBindingSource.EndEdit() + TBHOTKEY_PATTERNSTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS) + Me.lblSavePAttern.Visible = True + Else + Me.lblSavePAttern.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click + Dim result As MsgBoxResult + result = MessageBox.Show("Sind Sie sicher dass Sie diesen Control-Match löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Try + TBHOTKEY_WINDOW_HOOKTableAdapter.Delete(GUIDTextBox3.Text) + Load_MatchPatterns() + Catch ex As Exception + MsgBox("Error in Delete Control-Match: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnnewProfile.Click + txtProfilname.Text = "" + txtWDSearch.Text = "" + cmbFunktionstaste.SelectedIndex = -1 + txtKey.Text = "" + GroupBoxMainWindow.Visible = False + GroupBox2_Controls.Visible = False + ListBox_FormTitles.Enabled = True + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.Designer.vb b/Global_Indexer/frmHotkey_User.Designer.vb new file mode 100644 index 0000000..e04e868 --- /dev/null +++ b/Global_Indexer/frmHotkey_User.Designer.vb @@ -0,0 +1,420 @@ + _ +Partial Class frmHotkey_User + 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 WD_SEARCHLabel As System.Windows.Forms.Label + Dim HOTKEY2Label As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim HOTKEY1Label As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotkey_User)) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.Label1 = New System.Windows.Forms.Label() + Me.MyDataset = New Global_Indexer.MyDataset() + Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.ListBox1 = New System.Windows.Forms.ListBox() + Me.ListBoxMyHK = New System.Windows.Forms.ListBox() + Me.TBMYHOTKEYSBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.lblmeinehotkeys = New System.Windows.Forms.Label() + Me.TBMYHOTKEYSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter() + Me.btnAddtomyHK = New System.Windows.Forms.Button() + Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() + Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() + Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.lblSave = New System.Windows.Forms.Label() + Me.btnsave = New System.Windows.Forms.Button() + Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox() + Me.btndelete = New System.Windows.Forms.Button() + Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() + WD_SEARCHLabel = New System.Windows.Forms.Label() + HOTKEY2Label = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + HOTKEY1Label = New System.Windows.Forms.Label() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox1.SuspendLayout() + Me.SuspendLayout() + ' + 'WD_SEARCHLabel + ' + WD_SEARCHLabel.AutoSize = True + WD_SEARCHLabel.Location = New System.Drawing.Point(6, 20) + WD_SEARCHLabel.Name = "WD_SEARCHLabel" + WD_SEARCHLabel.Size = New System.Drawing.Size(96, 13) + WD_SEARCHLabel.TabIndex = 6 + WD_SEARCHLabel.Text = "windream-Suche:" + ' + 'HOTKEY2Label + ' + HOTKEY2Label.AutoSize = True + HOTKEY2Label.Location = New System.Drawing.Point(99, 61) + HOTKEY2Label.Name = "HOTKEY2Label" + HOTKEY2Label.Size = New System.Drawing.Size(46, 13) + HOTKEY2Label.TabIndex = 8 + HOTKEY2Label.Text = "Hotkey:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(6, 99) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(76, 13) + ADDED_WHENLabel.TabIndex = 12 + ADDED_WHENLabel.Text = "Added when:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(146, 99) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(83, 13) + CHANGED_WHOLabel.TabIndex = 14 + CHANGED_WHOLabel.Text = "Changed who:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(289, 99) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(89, 13) + CHANGED_WHENLabel.TabIndex = 16 + CHANGED_WHENLabel.Text = "Changed when:" + ' + 'HOTKEY1Label + ' + HOTKEY1Label.AutoSize = True + HOTKEY1Label.Location = New System.Drawing.Point(6, 61) + HOTKEY1Label.Name = "HOTKEY1Label" + HOTKEY1Label.Size = New System.Drawing.Size(87, 13) + HOTKEY1Label.TabIndex = 18 + HOTKEY1Label.Text = "Funktionstaste:" + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Location = New System.Drawing.Point(0, 520) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(754, 22) + Me.StatusStrip1.TabIndex = 0 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(12, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(142, 15) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Aktuelle globale Hotkeys:" + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBHOTKEY_PROFILEBindingSource + ' + Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE" + Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'TBHOTKEY_PROFILETableAdapter + ' + Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + 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 = Me.TBHOTKEY_PROFILETableAdapter + Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'ListBox1 + ' + Me.ListBox1.DataSource = Me.TBHOTKEY_PROFILEBindingSource + Me.ListBox1.DisplayMember = "String" + Me.ListBox1.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ListBox1.FormattingEnabled = True + Me.ListBox1.Location = New System.Drawing.Point(15, 27) + Me.ListBox1.Name = "ListBox1" + Me.ListBox1.Size = New System.Drawing.Size(298, 251) + Me.ListBox1.TabIndex = 2 + Me.ListBox1.ValueMember = "GUID" + ' + 'ListBoxMyHK + ' + Me.ListBoxMyHK.DataSource = Me.TBMYHOTKEYSBindingSource + Me.ListBoxMyHK.DisplayMember = "String" + Me.ListBoxMyHK.FormattingEnabled = True + Me.ListBoxMyHK.Location = New System.Drawing.Point(408, 27) + Me.ListBoxMyHK.Name = "ListBoxMyHK" + Me.ListBoxMyHK.Size = New System.Drawing.Size(338, 251) + Me.ListBoxMyHK.TabIndex = 3 + Me.ListBoxMyHK.ValueMember = "GUID" + ' + 'TBMYHOTKEYSBindingSource + ' + Me.TBMYHOTKEYSBindingSource.DataMember = "TBMYHOTKEYS" + Me.TBMYHOTKEYSBindingSource.DataSource = Me.MyDataset + ' + 'lblmeinehotkeys + ' + Me.lblmeinehotkeys.AutoSize = True + Me.lblmeinehotkeys.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblmeinehotkeys.Location = New System.Drawing.Point(405, 9) + Me.lblmeinehotkeys.Name = "lblmeinehotkeys" + Me.lblmeinehotkeys.Size = New System.Drawing.Size(85, 15) + Me.lblmeinehotkeys.TabIndex = 4 + Me.lblmeinehotkeys.Text = "Meine Hotkeys" + ' + 'TBMYHOTKEYSTableAdapter + ' + Me.TBMYHOTKEYSTableAdapter.ClearBeforeFill = True + ' + 'btnAddtomyHK + ' + Me.btnAddtomyHK.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD + Me.btnAddtomyHK.ImageAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAddtomyHK.Location = New System.Drawing.Point(317, 72) + Me.btnAddtomyHK.Name = "btnAddtomyHK" + Me.btnAddtomyHK.Size = New System.Drawing.Size(85, 37) + Me.btnAddtomyHK.TabIndex = 5 + Me.btnAddtomyHK.Text = "Hinzufügen" + Me.btnAddtomyHK.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAddtomyHK.UseVisualStyleBackColor = True + ' + 'TBHOTKEY_USER_PROFILEBindingSource + ' + Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" + Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'TBHOTKEY_USER_PROFILETableAdapter + ' + Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True + ' + 'WD_SEARCHTextBox + ' + Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "WD_SEARCH", True)) + Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(9, 36) + Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" + Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(623, 22) + Me.WD_SEARCHTextBox.TabIndex = 7 + ' + 'HOTKEY2TextBox + ' + Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY2", True)) + Me.HOTKEY2TextBox.Location = New System.Drawing.Point(102, 75) + Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox" + Me.HOTKEY2TextBox.Size = New System.Drawing.Size(52, 22) + Me.HOTKEY2TextBox.TabIndex = 9 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(9, 115) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(131, 22) + Me.ADDED_WHENTextBox.TabIndex = 13 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(149, 115) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(137, 22) + Me.CHANGED_WHOTextBox.TabIndex = 15 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(292, 115) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(123, 22) + Me.CHANGED_WHENTextBox.TabIndex = 17 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.Button1) + Me.GroupBox1.Controls.Add(Me.lblSave) + Me.GroupBox1.Controls.Add(Me.btnsave) + Me.GroupBox1.Controls.Add(Me.HOTKEY1ComboBox) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) + Me.GroupBox1.Controls.Add(HOTKEY1Label) + Me.GroupBox1.Controls.Add(WD_SEARCHLabel) + Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) + Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox) + Me.GroupBox1.Controls.Add(HOTKEY2Label) + Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) + Me.GroupBox1.Controls.Add(ADDED_WHENLabel) + Me.GroupBox1.Controls.Add(Me.HOTKEY2TextBox) + Me.GroupBox1.Location = New System.Drawing.Point(15, 284) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(731, 147) + Me.GroupBox1.TabIndex = 18 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Bearbeitung Hotkey:" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(640, 36) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(31, 23) + Me.Button1.TabIndex = 80 + Me.Button1.Text = "..." + Me.Button1.UseVisualStyleBackColor = True + ' + 'lblSave + ' + Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(468, 118) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(164, 13) + Me.lblSave.TabIndex = 79 + Me.lblSave.Text = "Daten erfolgreich gespeichert!" + Me.lblSave.Visible = False + ' + 'btnsave + ' + Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnsave.Location = New System.Drawing.Point(640, 99) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(85, 38) + Me.btnsave.TabIndex = 20 + Me.btnsave.Text = "Speichern" + Me.btnsave.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnsave.UseVisualStyleBackColor = True + ' + 'HOTKEY1ComboBox + ' + Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY1", True)) + Me.HOTKEY1ComboBox.FormattingEnabled = True + Me.HOTKEY1ComboBox.Items.AddRange(New Object() {"Strg", "Shift", "Alt", "Win"}) + Me.HOTKEY1ComboBox.Location = New System.Drawing.Point(9, 75) + Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox" + Me.HOTKEY1ComboBox.Size = New System.Drawing.Size(70, 21) + Me.HOTKEY1ComboBox.TabIndex = 19 + ' + 'btndelete + ' + Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 + Me.btndelete.ImageAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btndelete.Location = New System.Drawing.Point(317, 115) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(85, 37) + Me.btndelete.TabIndex = 19 + Me.btndelete.Text = "Löschen" + Me.btndelete.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btndelete.UseVisualStyleBackColor = True + ' + 'OFDWindreamsuche + ' + Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*" + Me.OFDWindreamsuche.RestoreDirectory = True + Me.OFDWindreamsuche.Title = "windream-Suche wählen" + ' + 'frmHotkey_User + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(754, 542) + Me.Controls.Add(Me.btndelete) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.btnAddtomyHK) + Me.Controls.Add(Me.lblmeinehotkeys) + Me.Controls.Add(Me.ListBoxMyHK) + Me.Controls.Add(Me.ListBox1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmHotkey_User" + Me.Text = "Meine Hotkeys" + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents ListBox1 As System.Windows.Forms.ListBox + Friend WithEvents ListBoxMyHK As System.Windows.Forms.ListBox + Friend WithEvents lblmeinehotkeys As System.Windows.Forms.Label + Friend WithEvents TBMYHOTKEYSBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBMYHOTKEYSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter + Friend WithEvents btnAddtomyHK As System.Windows.Forms.Button + Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter + Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox + Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox + Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents lblSave As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog +End Class diff --git a/Global_Indexer/frmHotkey_User.resx b/Global_Indexer/frmHotkey_User.resx new file mode 100644 index 0000000..96a5ea7 --- /dev/null +++ b/Global_Indexer/frmHotkey_User.resx @@ -0,0 +1,321 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 134, 17 + + + 244, 17 + + + 483, 17 + + + 716, 17 + + + 889, 17 + + + 1102, 17 + + + 17, 56 + + + 290, 56 + + + 557, 56 + + + + + AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA + CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA + AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA + /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 + d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 + d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// + ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 + d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 + d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 + d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// + ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 + d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA + gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 + d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ + 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 + 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE + AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB + BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD + AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD + AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD + AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC + AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD + AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB + AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE + AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB + BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD + AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE + BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA + AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB + AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB + AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB + AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD + AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v + 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w + 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC + 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w + QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC + QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC + QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v + r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC + r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC + QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC + QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w + r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w + 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC + QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC + QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 + 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.vb b/Global_Indexer/frmHotkey_User.vb new file mode 100644 index 0000000..40fd321 --- /dev/null +++ b/Global_Indexer/frmHotkey_User.vb @@ -0,0 +1,100 @@ +Public Class frmHotkey_User + + Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBHOTKEY_PROFILEBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.MyDataset) + + End Sub + + Private Sub frmHotkey_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBHOTKEY_USER_PROFILE". Sie können sie bei Bedarf verschieben oder entfernen. + + Try + Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBMYHOTKEYSTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBHOTKEY_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_PROFILE) + Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:" + LoadMyHotkeys(CURRENT_USERID) + Catch ex As Exception + MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub LoadMyHotkeys(UserID As Integer) + Try + Me.TBMYHOTKEYSTableAdapter.Fill(Me.MyDataset.TBMYHOTKEYS, UserID) + Catch ex As System.Exception + MsgBox("Error in LoadMyHotkeys: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click + Try + If ListBox1.SelectedIndex <> -1 Then + TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(CURRENT_USERID, ListBox1.SelectedValue) + LoadMyHotkeys(CURRENT_USERID) + End If + Catch ex As Exception + MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + Sub Load_MyProfile(HKPROFILE_ID As Integer) + Try + Me.TBHOTKEY_USER_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_USER_PROFILE, HKPROFILE_ID) + Catch ex As Exception + MsgBox("Error in Load_MyProfile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + End Sub + + Private Sub ListBoxMyHK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxMyHK.SelectedIndexChanged + If ListBoxMyHK.SelectedIndex <> -1 Then + Console.WriteLine(ListBoxMyHK.SelectedValue) + Load_MyProfile(ListBoxMyHK.SelectedValue) + End If + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + If ListBoxMyHK.SelectedIndex <> -1 Then + Me.TBHOTKEY_USER_PROFILETableAdapter.Delete(ListBoxMyHK.SelectedValue) + LoadMyHotkeys(CURRENT_USERID) + Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear() + End If + End Sub + + Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click + Try + TBHOTKEY_USER_PROFILEBindingSource.EndEdit() + If Me.MyDataset.TBHOTKEY_USER_PROFILE.GetChanges Is Nothing = False Then + Me.CHANGED_WHOTextBox.Text = Environment.UserName + TBHOTKEY_USER_PROFILEBindingSource.EndEdit() + TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE) + Me.lblSave.Visible = True + LoadMyHotkeys(CURRENT_USERID) + Else + Me.lblSave.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + If Not Me.WD_SEARCHTextBox.Text = "" Then + Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text + End If + + If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then + Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName + End If + End Sub + + Private Sub HOTKEY2TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles HOTKEY2TextBox.KeyDown + HOTKEY2TextBox.Text = "" + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmIndex.designer.vb b/Global_Indexer/frmIndex.designer.vb new file mode 100644 index 0000000..65729fd --- /dev/null +++ b/Global_Indexer/frmIndex.designer.vb @@ -0,0 +1,742 @@ + _ +Partial Class frmIndex + 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() + Me.Label1 = New System.Windows.Forms.Label() + Me.cmbDokumentart = New System.Windows.Forms.ComboBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() + Me.lblerror = New System.Windows.Forms.Label() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.lblhinweis = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslblVorschau = New System.Windows.Forms.ToolStripStatusLabel() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.chkMultiIndexer = New System.Windows.Forms.CheckBox() + Me.chkdelete_origin = New System.Windows.Forms.CheckBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtIndexfilepath = New System.Windows.Forms.TextBox() + Me.OK_Button = New System.Windows.Forms.Button() + Me.MyDataset = New Global_Indexer.MyDataset() + Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWDDINDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.VWINDEX_AUTOMBindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.VWINDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.pnlIndex = New System.Windows.Forms.Panel() + Me.pnlWebbrowser = New System.Windows.Forms.Panel() + Me.WebBrowser = New System.Windows.Forms.WebBrowser() + Me.Label3 = New System.Windows.Forms.Label() + Me.StatusStrip3 = New System.Windows.Forms.StatusStrip() + Me.tslblWebbrowser = New System.Windows.Forms.ToolStripStatusLabel() + Me.pnlPDF = New System.Windows.Forms.Panel() + Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer() + Me.StatusStrip2 = New System.Windows.Forms.StatusStrip() + Me.pdfstatuslblPageNumber = New System.Windows.Forms.ToolStripStatusLabel() + Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.PdfFileOpenBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem() + Me.PdfFileSaveAsBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfFileSaveAsBarItem() + Me.PdfFilePrintBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfFilePrintBarItem() + Me.PdfPreviousPageBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfPreviousPageBarItem() + Me.PdfNextPageBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfNextPageBarItem() + Me.PdfFindTextBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfFindTextBarItem() + Me.PdfZoomOutBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoomOutBarItem() + Me.PdfZoomInBarItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoomInBarItem() + Me.PdfExactZoomListBarSubItem1 = New DevExpress.XtraPdfViewer.Bars.PdfExactZoomListBarSubItem() + Me.PdfZoom10CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom10CheckItem() + Me.PdfZoom25CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom25CheckItem() + Me.PdfZoom50CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom50CheckItem() + Me.PdfZoom75CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom75CheckItem() + Me.PdfZoom100CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom100CheckItem() + Me.PdfZoom125CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom125CheckItem() + Me.PdfZoom150CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom150CheckItem() + Me.PdfZoom200CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom200CheckItem() + Me.PdfZoom400CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom400CheckItem() + Me.PdfZoom500CheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfZoom500CheckItem() + Me.PdfSetActualSizeZoomModeCheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfSetActualSizeZoomModeCheckItem() + Me.PdfSetPageLevelZoomModeCheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfSetPageLevelZoomModeCheckItem() + Me.PdfSetFitWidthZoomModeCheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfSetFitWidthZoomModeCheckItem() + Me.PdfSetFitVisibleZoomModeCheckItem1 = New DevExpress.XtraPdfViewer.Bars.PdfSetFitVisibleZoomModeCheckItem() + Me.PdfRibbonPage1 = New DevExpress.XtraPdfViewer.Bars.PdfRibbonPage() + Me.PdfFileRibbonPageGroup1 = New DevExpress.XtraPdfViewer.Bars.PdfFileRibbonPageGroup() + Me.PdfNavigationRibbonPageGroup1 = New DevExpress.XtraPdfViewer.Bars.PdfNavigationRibbonPageGroup() + Me.PdfZoomRibbonPageGroup1 = New DevExpress.XtraPdfViewer.Bars.PdfZoomRibbonPageGroup() + Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController() + Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController() + Me.Panel1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.pnlWebbrowser.SuspendLayout() + Me.StatusStrip3.SuspendLayout() + Me.pnlPDF.SuspendLayout() + Me.StatusStrip2.SuspendLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(3, 25) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(208, 17) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Bitte wählen Sie eine Dokumentart:" + ' + 'cmbDokumentart + ' + Me.cmbDokumentart.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cmbDokumentart.DisplayMember = "DOKART_ID" + Me.cmbDokumentart.FormattingEnabled = True + Me.cmbDokumentart.Location = New System.Drawing.Point(5, 44) + Me.cmbDokumentart.Name = "cmbDokumentart" + Me.cmbDokumentart.Size = New System.Drawing.Size(387, 25) + Me.cmbDokumentart.TabIndex = 2 + Me.cmbDokumentart.ValueMember = "DOKART_ID" + ' + 'Panel1 + ' + Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.Panel1.Controls.Add(Me.ToolStrip1) + Me.Panel1.Controls.Add(Me.lblerror) + Me.Panel1.Controls.Add(Me.cmbDokumentart) + 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.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(526, 110) + Me.Panel1.TabIndex = 4 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(526, 25) + Me.ToolStrip1.TabIndex = 6 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripButton1 + ' + Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.ToolStripButton1.BackColor = System.Drawing.SystemColors.ButtonHighlight + Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.bullet_arrow_top + Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripButton1.Name = "ToolStripButton1" + Me.ToolStripButton1.Size = New System.Drawing.Size(118, 22) + Me.ToolStripButton1.Text = "Top Most = False" + ' + 'lblerror + ' + Me.lblerror.AutoSize = True + Me.lblerror.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblerror.Location = New System.Drawing.Point(4, 78) + Me.lblerror.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.lblerror.Name = "lblerror" + Me.lblerror.Size = New System.Drawing.Size(39, 16) + Me.lblerror.TabIndex = 3 + Me.lblerror.Text = "Error" + Me.lblerror.Visible = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblhinweis, Me.tslblVorschau}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 510) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 10, 0) + Me.StatusStrip1.Size = New System.Drawing.Size(813, 22) + Me.StatusStrip1.TabIndex = 6 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'lblhinweis + ' + Me.lblhinweis.Name = "lblhinweis" + Me.lblhinweis.Size = New System.Drawing.Size(0, 17) + Me.lblhinweis.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.lblhinweis.Visible = False + ' + 'tslblVorschau + ' + Me.tslblVorschau.Name = "tslblVorschau" + Me.tslblVorschau.Size = New System.Drawing.Size(99, 17) + Me.tslblVorschau.Text = "Vorschau ist aktiv" + Me.tslblVorschau.Visible = False + ' + 'Panel2 + ' + Me.Panel2.Controls.Add(Me.chkMultiIndexer) + Me.Panel2.Controls.Add(Me.chkdelete_origin) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Controls.Add(Me.txtIndexfilepath) + Me.Panel2.Controls.Add(Me.OK_Button) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel2.Location = New System.Drawing.Point(0, 397) + Me.Panel2.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(526, 113) + Me.Panel2.TabIndex = 7 + ' + 'chkMultiIndexer + ' + Me.chkMultiIndexer.AutoSize = True + Me.chkMultiIndexer.BackColor = System.Drawing.Color.Yellow + Me.chkMultiIndexer.Font = New System.Drawing.Font("Verdana", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkMultiIndexer.ForeColor = System.Drawing.Color.Maroon + Me.chkMultiIndexer.Location = New System.Drawing.Point(5, 43) + Me.chkMultiIndexer.Name = "chkMultiIndexer" + Me.chkMultiIndexer.Size = New System.Drawing.Size(520, 20) + Me.chkMultiIndexer.TabIndex = 10 + Me.chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (0) identisch indexieren" + Me.chkMultiIndexer.UseVisualStyleBackColor = False + ' + 'chkdelete_origin + ' + Me.chkdelete_origin.AutoSize = True + Me.chkdelete_origin.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.chkdelete_origin.Location = New System.Drawing.Point(5, 14) + Me.chkdelete_origin.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.chkdelete_origin.Name = "chkdelete_origin" + Me.chkdelete_origin.Size = New System.Drawing.Size(169, 20) + Me.chkdelete_origin.TabIndex = 3 + Me.chkdelete_origin.Text = "Lösche ""Dropped File""" + Me.chkdelete_origin.UseVisualStyleBackColor = True + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(2, 66) + Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(92, 13) + Me.Label2.TabIndex = 2 + Me.Label2.Text = "Aktuelle Datei;" + ' + 'txtIndexfilepath + ' + Me.txtIndexfilepath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtIndexfilepath.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtIndexfilepath.Location = New System.Drawing.Point(5, 82) + Me.txtIndexfilepath.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.txtIndexfilepath.Multiline = True + Me.txtIndexfilepath.Name = "txtIndexfilepath" + Me.txtIndexfilepath.ReadOnly = True + Me.txtIndexfilepath.Size = New System.Drawing.Size(519, 28) + Me.txtIndexfilepath.TabIndex = 1 + ' + 'OK_Button + ' + Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.OK_Button.Image = Global.Global_Indexer.My.Resources.Resources.Go + Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.OK_Button.Location = New System.Drawing.Point(383, 7) + Me.OK_Button.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.OK_Button.Name = "OK_Button" + Me.OK_Button.Size = New System.Drawing.Size(134, 30) + Me.OK_Button.TabIndex = 0 + Me.OK_Button.Text = "Indexiere Datei" + Me.OK_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'VWDDINDEX_MANBindingSource + ' + Me.VWDDINDEX_MANBindingSource.DataMember = "VWDDINDEX_MAN" + Me.VWDDINDEX_MANBindingSource.DataSource = Me.MyDataset + ' + 'VWDDINDEX_MANTableAdapter + ' + Me.VWDDINDEX_MANTableAdapter.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 + ' + 'VWINDEX_AUTOMBindingSource1 + ' + Me.VWINDEX_AUTOMBindingSource1.DataMember = "VWDDINDEX_AUTOM" + Me.VWINDEX_AUTOMBindingSource1.DataSource = Me.MyDataset + ' + 'VWINDEX_AUTOMTableAdapter + ' + Me.VWINDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.pnlIndex) + Me.SplitContainer1.Panel1.Controls.Add(Me.Panel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.Panel2) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.pnlWebbrowser) + Me.SplitContainer1.Panel2.Controls.Add(Me.pnlPDF) + Me.SplitContainer1.Size = New System.Drawing.Size(813, 510) + Me.SplitContainer1.SplitterDistance = 526 + Me.SplitContainer1.TabIndex = 8 + ' + 'pnlIndex + ' + Me.pnlIndex.BackColor = System.Drawing.SystemColors.ControlLight + Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlIndex.Location = New System.Drawing.Point(0, 110) + Me.pnlIndex.Name = "pnlIndex" + Me.pnlIndex.Size = New System.Drawing.Size(526, 287) + Me.pnlIndex.TabIndex = 8 + Me.pnlIndex.Visible = False + ' + 'pnlWebbrowser + ' + Me.pnlWebbrowser.Controls.Add(Me.WebBrowser) + Me.pnlWebbrowser.Controls.Add(Me.Label3) + Me.pnlWebbrowser.Controls.Add(Me.StatusStrip3) + Me.pnlWebbrowser.Location = New System.Drawing.Point(17, 216) + Me.pnlWebbrowser.Name = "pnlWebbrowser" + Me.pnlWebbrowser.Size = New System.Drawing.Size(200, 100) + Me.pnlWebbrowser.TabIndex = 2 + ' + 'WebBrowser + ' + Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill + Me.WebBrowser.Location = New System.Drawing.Point(0, 17) + Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebBrowser.Name = "WebBrowser" + Me.WebBrowser.Size = New System.Drawing.Size(200, 61) + Me.WebBrowser.TabIndex = 2 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Dock = System.Windows.Forms.DockStyle.Top + Me.Label3.Location = New System.Drawing.Point(0, 0) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(115, 17) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Ansicht Mail-Body:" + ' + 'StatusStrip3 + ' + Me.StatusStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWebbrowser}) + Me.StatusStrip3.Location = New System.Drawing.Point(0, 78) + Me.StatusStrip3.Name = "StatusStrip3" + Me.StatusStrip3.Size = New System.Drawing.Size(200, 22) + Me.StatusStrip3.TabIndex = 0 + Me.StatusStrip3.Text = "StatusStrip3" + ' + 'tslblWebbrowser + ' + Me.tslblWebbrowser.Name = "tslblWebbrowser" + Me.tslblWebbrowser.Size = New System.Drawing.Size(121, 17) + Me.tslblWebbrowser.Text = "ToolStripStatusLabel1" + ' + 'pnlPDF + ' + Me.pnlPDF.Controls.Add(Me.PdfViewer1) + Me.pnlPDF.Controls.Add(Me.StatusStrip2) + Me.pnlPDF.Controls.Add(Me.RibbonControl1) + Me.pnlPDF.Location = New System.Drawing.Point(67, 25) + Me.pnlPDF.Name = "pnlPDF" + Me.pnlPDF.Size = New System.Drawing.Size(200, 308) + Me.pnlPDF.TabIndex = 1 + ' + 'PdfViewer1 + ' + Me.PdfViewer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PdfViewer1.Location = New System.Drawing.Point(0, 142) + Me.PdfViewer1.Name = "PdfViewer1" + Me.PdfViewer1.Size = New System.Drawing.Size(200, 144) + Me.PdfViewer1.TabIndex = 4 + ' + 'StatusStrip2 + ' + Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.pdfstatuslblPageNumber, Me.ToolStripDropDownButton1}) + Me.StatusStrip2.Location = New System.Drawing.Point(0, 286) + Me.StatusStrip2.Name = "StatusStrip2" + Me.StatusStrip2.Size = New System.Drawing.Size(200, 22) + Me.StatusStrip2.TabIndex = 3 + Me.StatusStrip2.Text = "StatusStrip2" + ' + 'pdfstatuslblPageNumber + ' + Me.pdfstatuslblPageNumber.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.pdfstatuslblPageNumber.Image = Global.Global_Indexer.My.Resources.Resources.page_red + Me.pdfstatuslblPageNumber.Name = "pdfstatuslblPageNumber" + Me.pdfstatuslblPageNumber.Size = New System.Drawing.Size(139, 17) + Me.pdfstatuslblPageNumber.Text = "ToolStripStatusLabel1" + ' + 'ToolStripDropDownButton1 + ' + Me.ToolStripDropDownButton1.ImageTransparentColor = System.Drawing.Color.Magenta + Me.ToolStripDropDownButton1.Name = "ToolStripDropDownButton1" + Me.ToolStripDropDownButton1.Size = New System.Drawing.Size(137, 19) + Me.ToolStripDropDownButton1.Text = "Seitenansicht Minimal" + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.PdfFileOpenBarItem1, Me.PdfFileSaveAsBarItem1, Me.PdfFilePrintBarItem1, Me.PdfPreviousPageBarItem1, Me.PdfNextPageBarItem1, Me.PdfFindTextBarItem1, Me.PdfZoomOutBarItem1, Me.PdfZoomInBarItem1, Me.PdfExactZoomListBarSubItem1, Me.PdfZoom10CheckItem1, Me.PdfZoom25CheckItem1, Me.PdfZoom50CheckItem1, Me.PdfZoom75CheckItem1, Me.PdfZoom100CheckItem1, Me.PdfZoom125CheckItem1, Me.PdfZoom150CheckItem1, Me.PdfZoom200CheckItem1, Me.PdfZoom400CheckItem1, Me.PdfZoom500CheckItem1, Me.PdfSetActualSizeZoomModeCheckItem1, Me.PdfSetPageLevelZoomModeCheckItem1, Me.PdfSetFitWidthZoomModeCheckItem1, Me.PdfSetFitVisibleZoomModeCheckItem1}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 24 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.PdfRibbonPage1}) + Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2010 + Me.RibbonControl1.Size = New System.Drawing.Size(200, 142) + Me.RibbonControl1.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Above + ' + 'PdfFileOpenBarItem1 + ' + Me.PdfFileOpenBarItem1.Id = 1 + Me.PdfFileOpenBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O)) + Me.PdfFileOpenBarItem1.Name = "PdfFileOpenBarItem1" + ' + 'PdfFileSaveAsBarItem1 + ' + Me.PdfFileSaveAsBarItem1.Id = 2 + Me.PdfFileSaveAsBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S)) + Me.PdfFileSaveAsBarItem1.Name = "PdfFileSaveAsBarItem1" + ' + 'PdfFilePrintBarItem1 + ' + Me.PdfFilePrintBarItem1.Id = 3 + Me.PdfFilePrintBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.P)) + Me.PdfFilePrintBarItem1.Name = "PdfFilePrintBarItem1" + ' + 'PdfPreviousPageBarItem1 + ' + Me.PdfPreviousPageBarItem1.Id = 4 + Me.PdfPreviousPageBarItem1.Name = "PdfPreviousPageBarItem1" + ' + 'PdfNextPageBarItem1 + ' + Me.PdfNextPageBarItem1.Id = 5 + Me.PdfNextPageBarItem1.Name = "PdfNextPageBarItem1" + ' + 'PdfFindTextBarItem1 + ' + Me.PdfFindTextBarItem1.Id = 6 + Me.PdfFindTextBarItem1.ItemShortcut = New DevExpress.XtraBars.BarShortcut((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F)) + Me.PdfFindTextBarItem1.Name = "PdfFindTextBarItem1" + ' + 'PdfZoomOutBarItem1 + ' + Me.PdfZoomOutBarItem1.Id = 7 + Me.PdfZoomOutBarItem1.Name = "PdfZoomOutBarItem1" + ' + 'PdfZoomInBarItem1 + ' + Me.PdfZoomInBarItem1.Id = 8 + Me.PdfZoomInBarItem1.Name = "PdfZoomInBarItem1" + ' + 'PdfExactZoomListBarSubItem1 + ' + Me.PdfExactZoomListBarSubItem1.Id = 9 + Me.PdfExactZoomListBarSubItem1.LinksPersistInfo.AddRange(New DevExpress.XtraBars.LinkPersistInfo() {New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom10CheckItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom25CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom50CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom75CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom100CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom125CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom150CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom200CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom400CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfZoom500CheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetActualSizeZoomModeCheckItem1, True), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetPageLevelZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitWidthZoomModeCheckItem1), New DevExpress.XtraBars.LinkPersistInfo(Me.PdfSetFitVisibleZoomModeCheckItem1)}) + Me.PdfExactZoomListBarSubItem1.Name = "PdfExactZoomListBarSubItem1" + Me.PdfExactZoomListBarSubItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionInMenu + ' + 'PdfZoom10CheckItem1 + ' + Me.PdfZoom10CheckItem1.Id = 10 + Me.PdfZoom10CheckItem1.Name = "PdfZoom10CheckItem1" + ' + 'PdfZoom25CheckItem1 + ' + Me.PdfZoom25CheckItem1.Id = 11 + Me.PdfZoom25CheckItem1.Name = "PdfZoom25CheckItem1" + ' + 'PdfZoom50CheckItem1 + ' + Me.PdfZoom50CheckItem1.Id = 12 + Me.PdfZoom50CheckItem1.Name = "PdfZoom50CheckItem1" + ' + 'PdfZoom75CheckItem1 + ' + Me.PdfZoom75CheckItem1.Id = 13 + Me.PdfZoom75CheckItem1.Name = "PdfZoom75CheckItem1" + ' + 'PdfZoom100CheckItem1 + ' + Me.PdfZoom100CheckItem1.Id = 14 + Me.PdfZoom100CheckItem1.Name = "PdfZoom100CheckItem1" + ' + 'PdfZoom125CheckItem1 + ' + Me.PdfZoom125CheckItem1.Id = 15 + Me.PdfZoom125CheckItem1.Name = "PdfZoom125CheckItem1" + ' + 'PdfZoom150CheckItem1 + ' + Me.PdfZoom150CheckItem1.Id = 16 + Me.PdfZoom150CheckItem1.Name = "PdfZoom150CheckItem1" + ' + 'PdfZoom200CheckItem1 + ' + Me.PdfZoom200CheckItem1.Id = 17 + Me.PdfZoom200CheckItem1.Name = "PdfZoom200CheckItem1" + ' + 'PdfZoom400CheckItem1 + ' + Me.PdfZoom400CheckItem1.Id = 18 + Me.PdfZoom400CheckItem1.Name = "PdfZoom400CheckItem1" + ' + 'PdfZoom500CheckItem1 + ' + Me.PdfZoom500CheckItem1.Id = 19 + Me.PdfZoom500CheckItem1.Name = "PdfZoom500CheckItem1" + ' + 'PdfSetActualSizeZoomModeCheckItem1 + ' + Me.PdfSetActualSizeZoomModeCheckItem1.Id = 20 + Me.PdfSetActualSizeZoomModeCheckItem1.Name = "PdfSetActualSizeZoomModeCheckItem1" + ' + 'PdfSetPageLevelZoomModeCheckItem1 + ' + Me.PdfSetPageLevelZoomModeCheckItem1.Id = 21 + Me.PdfSetPageLevelZoomModeCheckItem1.Name = "PdfSetPageLevelZoomModeCheckItem1" + ' + 'PdfSetFitWidthZoomModeCheckItem1 + ' + Me.PdfSetFitWidthZoomModeCheckItem1.Id = 22 + Me.PdfSetFitWidthZoomModeCheckItem1.Name = "PdfSetFitWidthZoomModeCheckItem1" + ' + 'PdfSetFitVisibleZoomModeCheckItem1 + ' + Me.PdfSetFitVisibleZoomModeCheckItem1.Id = 23 + Me.PdfSetFitVisibleZoomModeCheckItem1.Name = "PdfSetFitVisibleZoomModeCheckItem1" + ' + 'PdfRibbonPage1 + ' + Me.PdfRibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.PdfFileRibbonPageGroup1, Me.PdfNavigationRibbonPageGroup1, Me.PdfZoomRibbonPageGroup1}) + Me.PdfRibbonPage1.Name = "PdfRibbonPage1" + ' + 'PdfFileRibbonPageGroup1 + ' + Me.PdfFileRibbonPageGroup1.ItemLinks.Add(Me.PdfFileOpenBarItem1) + Me.PdfFileRibbonPageGroup1.ItemLinks.Add(Me.PdfFileSaveAsBarItem1) + Me.PdfFileRibbonPageGroup1.ItemLinks.Add(Me.PdfFilePrintBarItem1) + Me.PdfFileRibbonPageGroup1.Name = "PdfFileRibbonPageGroup1" + ' + 'PdfNavigationRibbonPageGroup1 + ' + Me.PdfNavigationRibbonPageGroup1.ItemLinks.Add(Me.PdfPreviousPageBarItem1) + Me.PdfNavigationRibbonPageGroup1.ItemLinks.Add(Me.PdfNextPageBarItem1) + Me.PdfNavigationRibbonPageGroup1.ItemLinks.Add(Me.PdfFindTextBarItem1) + Me.PdfNavigationRibbonPageGroup1.Name = "PdfNavigationRibbonPageGroup1" + ' + 'PdfZoomRibbonPageGroup1 + ' + Me.PdfZoomRibbonPageGroup1.ItemLinks.Add(Me.PdfZoomOutBarItem1) + Me.PdfZoomRibbonPageGroup1.ItemLinks.Add(Me.PdfZoomInBarItem1) + Me.PdfZoomRibbonPageGroup1.ItemLinks.Add(Me.PdfExactZoomListBarSubItem1) + Me.PdfZoomRibbonPageGroup1.Name = "PdfZoomRibbonPageGroup1" + ' + 'PdfBarController2 + ' + Me.PdfBarController2.BarItems.Add(Me.PdfFileOpenBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfFileSaveAsBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfFilePrintBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfPreviousPageBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfNextPageBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfFindTextBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoomOutBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoomInBarItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfExactZoomListBarSubItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom10CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom25CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom50CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom75CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom100CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom125CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom150CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom200CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom400CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfZoom500CheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfSetActualSizeZoomModeCheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfSetPageLevelZoomModeCheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfSetFitWidthZoomModeCheckItem1) + Me.PdfBarController2.BarItems.Add(Me.PdfSetFitVisibleZoomModeCheckItem1) + Me.PdfBarController2.Control = Me.PdfViewer1 + ' + 'frmIndex + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(813, 532) + Me.Controls.Add(Me.SplitContainer1) + Me.Controls.Add(Me.StatusStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmIndex" + Me.Text = "Indexierung Drag 'n Drop File:" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWDDINDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWINDEX_AUTOMBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel2.ResumeLayout(False) + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.pnlWebbrowser.ResumeLayout(False) + Me.pnlWebbrowser.PerformLayout() + Me.StatusStrip3.ResumeLayout(False) + Me.StatusStrip3.PerformLayout() + Me.pnlPDF.ResumeLayout(False) + Me.pnlPDF.PerformLayout() + Me.StatusStrip2.ResumeLayout(False) + Me.StatusStrip2.PerformLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout + +End Sub + Friend WithEvents OK_Button As System.Windows.Forms.Button + + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox + Friend WithEvents VWINDEX_MANBindingSource As System.Windows.Forms.BindingSource + + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents TBCONNECTIONBindingSource As System.Windows.Forms.BindingSource + + Friend WithEvents lblerror As System.Windows.Forms.Label + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents lblhinweis As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents VWINDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource + + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents tslblVorschau As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents VWDMS_DOKUMENTARTZUORDNUNGBindingSource As System.Windows.Forms.BindingSource + + Friend WithEvents VWIORDNER_DOKARTBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtIndexfilepath As System.Windows.Forms.TextBox + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents VWDDINDEX_MANBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWDDINDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents VWINDEX_AUTOMBindingSource1 As System.Windows.Forms.BindingSource + Friend WithEvents VWINDEX_AUTOMTableAdapter As Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter + Friend WithEvents chkdelete_origin As System.Windows.Forms.CheckBox + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents pnlIndex As System.Windows.Forms.Panel + Friend WithEvents pnlPDF As System.Windows.Forms.Panel + Friend WithEvents PdfBarController1 As DevExpress.XtraPdfViewer.Bars.PdfBarController + Friend WithEvents PdfViewer1 As DevExpress.XtraPdfViewer.PdfViewer + Friend WithEvents StatusStrip2 As System.Windows.Forms.StatusStrip + Friend WithEvents pdfstatuslblPageNumber As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents PdfFileOpenBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFileOpenBarItem + Friend WithEvents PdfFileSaveAsBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFileSaveAsBarItem + Friend WithEvents PdfFilePrintBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFilePrintBarItem + Friend WithEvents PdfPreviousPageBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfPreviousPageBarItem + Friend WithEvents PdfNextPageBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfNextPageBarItem + Friend WithEvents PdfFindTextBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfFindTextBarItem + Friend WithEvents PdfZoomOutBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoomOutBarItem + Friend WithEvents PdfZoomInBarItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoomInBarItem + Friend WithEvents PdfExactZoomListBarSubItem1 As DevExpress.XtraPdfViewer.Bars.PdfExactZoomListBarSubItem + Friend WithEvents PdfZoom10CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom10CheckItem + Friend WithEvents PdfZoom25CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom25CheckItem + Friend WithEvents PdfZoom50CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom50CheckItem + Friend WithEvents PdfZoom75CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom75CheckItem + Friend WithEvents PdfZoom100CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom100CheckItem + Friend WithEvents PdfZoom125CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom125CheckItem + Friend WithEvents PdfZoom150CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom150CheckItem + Friend WithEvents PdfZoom200CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom200CheckItem + Friend WithEvents PdfZoom400CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom400CheckItem + Friend WithEvents PdfZoom500CheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfZoom500CheckItem + Friend WithEvents PdfSetActualSizeZoomModeCheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfSetActualSizeZoomModeCheckItem + Friend WithEvents PdfSetPageLevelZoomModeCheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfSetPageLevelZoomModeCheckItem + Friend WithEvents PdfSetFitWidthZoomModeCheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfSetFitWidthZoomModeCheckItem + Friend WithEvents PdfSetFitVisibleZoomModeCheckItem1 As DevExpress.XtraPdfViewer.Bars.PdfSetFitVisibleZoomModeCheckItem + Friend WithEvents PdfRibbonPage1 As DevExpress.XtraPdfViewer.Bars.PdfRibbonPage + Friend WithEvents PdfFileRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfFileRibbonPageGroup + Friend WithEvents PdfNavigationRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfNavigationRibbonPageGroup + Friend WithEvents PdfZoomRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfZoomRibbonPageGroup + Friend WithEvents PdfBarController2 As DevExpress.XtraPdfViewer.Bars.PdfBarController + Friend WithEvents pnlWebbrowser As System.Windows.Forms.Panel + Friend WithEvents StatusStrip3 As System.Windows.Forms.StatusStrip + Friend WithEvents tslblWebbrowser As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents WebBrowser As System.Windows.Forms.WebBrowser + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents chkMultiIndexer As System.Windows.Forms.CheckBox + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton + + + +End Class diff --git a/Global_Indexer/frmIndex.resx b/Global_Indexer/frmIndex.resx new file mode 100644 index 0000000..e7981cf --- /dev/null +++ b/Global_Indexer/frmIndex.resx @@ -0,0 +1,165 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 212 + + + 17, 212 + + + 17, 17 + + + 134, 17 + + + 244, 17 + + + 479, 17 + + + 708, 17 + + + 881, 17 + + + 17, 56 + + + 1477, 173 + + + 1212, 173 + + + 1212, 173 + + + 244, 56 + + + 1329, 173 + + + 160 + + \ No newline at end of file diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb new file mode 100644 index 0000000..87beb3a --- /dev/null +++ b/Global_Indexer/frmIndex.vb @@ -0,0 +1,2078 @@ +Imports System.Windows.Forms +Imports System.Data.SqlClient +Imports System.IO +Imports System.Text.RegularExpressions +Imports Independentsoft +Imports Oracle.ManagedDataAccess.Client +Imports System.Text + +Public Class frmIndex +#Region "+++++ Variablen ++++++" + Public vPathFile As String + Private MULTIFILES As Integer + Private akttxtbox As TextBox + Dim DT_INDEXEMAN As DataTable + Dim DT_DOKART As DataTable + Private formloaded As Boolean = False + Private Shared _Instance As frmIndex = Nothing + Dim DropType As String + Private Shared WDDirect As Boolean = False + + Dim sql_history_INSERT_INTO As String + Dim sql_history_Index_Values As String + Dim NewFileString As String + + Private Property viewer_string As String + + 'Dim DocView + 'Dim viewer_string As String + + Public Shared Function Instance() As frmIndex + If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then + _Instance = New frmIndex + End If + _Instance.BringToFront() + _Instance.TopMost = True + _Instance.Focus() + Return _Instance + End Function +#End Region + '#Region "+++++ Allgemeine Funktionen ++++++" + Sub ShowError(text As String) + lblerror.Visible = True + lblerror.Text = text + lblerror.ForeColor = Color.Red + End Sub + Sub showlblhinweis(text As String) + lblhinweis.Visible = True + lblhinweis.Text = text + End Sub + Sub addLabel(indexname As String, hinweis As String, ylbl As Integer, anz As String) + Dim lbl As New Label + lbl.Name = "lbl" & indexname + lbl.Size = New Size(CInt(hinweis.Length * 15), 18) 'CInt(hinweis.Length * 9) + lbl.Text = hinweis + + pnlIndex.Controls.Add(lbl) + lbl.Location = New Point(11, ylbl) + End Sub + Sub AddTextBox(indexname As String, y As Integer, text As String) + Dim txt As New TextBox + txt.Name = "txt" & indexname + + txt.Size = New Size(260, 27) + 'txt.AutoSize = True + + pnlIndex.Controls.Add(txt) + txt.Location = New Point(11, y) + + If text <> "" Then + txt.Text = text + txt.Size = New Size(CInt(text.Length * 15), 27) + txt.SelectAll() + End If + AddHandler txt.GotFocus, AddressOf OnTextBoxFocus + AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus + AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp + AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged + End Sub + Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs) + Dim box As TextBox = sender + box.BackColor = Color.Lime + box.SelectAll() + End Sub + Public Sub OnTextBoxTextChanged(sender As System.Object, e As System.EventArgs) + Dim box As TextBox = sender + 'If box.Text.Length > 15 Then + Dim g As Graphics = box.CreateGraphics + box.Width = g.MeasureString(box.Text, box.Font).Width + 15 + g.Dispose() + ' End If + + End Sub + + Public Sub OnTextBoxLostFocus(sender As System.Object, e As System.EventArgs) + Dim box As TextBox = sender + box.BackColor = Color.White + End Sub + Public Sub OnTextBoxKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) + Dim box As TextBox = sender + If (e.KeyCode = Keys.Return) Then + SendKeys.Send("{TAB}") + End If + End Sub + Sub AddDateTimePicker(indexname As String, y As Integer) + Dim dtp As New DateTimePicker + dtp.Name = "dtp" & indexname + dtp.Format = DateTimePickerFormat.Short + dtp.Size = New Size(133, 27) + pnlIndex.Controls.Add(dtp) + dtp.Location = New Point(11, y) + AddHandler dtp.ValueChanged, AddressOf OndtpChanged + End Sub + Sub OndtpChanged() + 'offen was hier zu tun ist + End Sub + + ' _ + Function addCombobox(indexname As String, y As Integer) + Dim cmb As New ComboBox + cmb.Name = "cmb" & indexname + cmb.AutoSize = True + cmb.Size = New Size(300, 27) + pnlIndex.Controls.Add(cmb) + cmb.Location = New Point(11, y) + 'cmb.AutoCompleteMode = AutoCompleteMode.SuggestAppend + 'cmb.AutoCompleteSource = AutoCompleteSource.ListItems + + 'AddHandler cmb.KeyUp, AddressOf AutoCompleteCombo_KeyUp + AddHandler cmb.SelectedIndexChanged, AddressOf OncmbSIndexChanged + AddHandler cmb.GotFocus, AddressOf OncmbGotFocus + AddHandler cmb.LostFocus, AddressOf OncmbLostFocus + Return cmb + End Function + ' _ + Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs) + Dim cmb As ComboBox = sender + cmb.BackColor = Color.Lime + End Sub + ' _ + Public Sub OncmbLostFocus(sender As System.Object, e As System.EventArgs) + Dim cmb As ComboBox = sender + cmb.BackColor = Color.White + End Sub + ' _ + Public Sub OncmbSIndexChanged(sender As System.Object, e As System.EventArgs) + If formloaded = False Then + Exit Sub + End If + + Dim cmb As ComboBox = sender + If cmb.SelectedIndex <> -1 Then + If cmb.Text.Length > 15 Then + Dim g As Graphics = cmb.CreateGraphics + cmb.Width = g.MeasureString(cmb.Text, cmb.Font).Width + 30 + g.Dispose() + End If + Try + Dim indexname = cmb.Name.Replace("cmb", "") + Dim sql = "SELECT GUID,NAME,SQL_RESULT FROM TBDD_INDEX_MAN where SUGGESTION = 1 AND SQL_RESULT like '%@" & indexname & "%' and DOK_ID = " & CURRENT_DOKART_ID & " ORDER BY SEQUENCE" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) + If Not IsNothing(DT) Then + If DT.Rows.Count > 0 Then + Dim cmbname = "cmb" & DT.Rows(0).Item("NAME") + Renew_ComboboxResults(DT.Rows(0).Item("GUID"), indexname, cmb.Text) + End If + + End If + Catch ex As Exception + MsgBox("Error in ComboBox - Get Patterns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + + SendKeys.Send("{TAB}") + End If + End Sub + ' 'Public Sub AutoCompleteCombo_KeyUp(ByVal cbo As ComboBox, ByVal e As KeyEventArgs) + ' ' System.Threading.Thread.Sleep(400) + ' ' Dim sTypedText As String + ' ' Dim iFoundIndex As Integer + ' ' Dim oFoundItem As Object + ' ' Dim sFoundText As String + ' ' Dim sAppendText As String + ' ' 'Allow select keys without Autocompleting + ' ' Select Case e.KeyCode + ' ' Case Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down, Keys.Enter, Keys.Tab + ' ' Return + ' ' Case Keys.Escape, Keys.Back + ' ' Return + ' ' End Select + ' ' 'Get the Typed Text and Find it in the list + ' ' sTypedText = cbo.Text + ' ' iFoundIndex = cbo.FindString(sTypedText) + ' ' 'If we found the Typed Text in the list then Autocomplete + ' ' If iFoundIndex >= 0 Then + ' ' 'Get the Item from the list (Return Type depends if Datasource was bound + ' ' ' or List Created) + ' ' oFoundItem = cbo.Items(iFoundIndex) + ' ' 'Use the ListControl.GetItemText to resolve the Name in case the Combo + ' ' ' was Data bound + ' ' sFoundText = cbo.GetItemText(oFoundItem) + ' ' 'Append then found text to the typed text to preserve case + ' ' sAppendText = sFoundText.Substring(sTypedText.Length) + ' ' cbo.Text = sTypedText & sAppendText + ' ' 'Select the Appended Text + ' ' cbo.SelectionStart = sTypedText.Length + ' ' cbo.SelectionLength = sAppendText.Length + ' ' cbo.DroppedDown = True + ' ' Else + ' ' cbo.DroppedDown = False + ' ' End If + ' ' Me.Cursor = Cursors.Default + ' 'End Sub + '#End Region + '#Region "+++++ Datenbankfunktionen (CS, GetValues, CheckValues) ++++++" + ' _ + + Function Indexwert_checkValueDB(indexname As String, wert As String) + Try + Dim DR As DataRow + 'DT = DD_DMSLiteDataSet.VWINDEX_MAN + For Each DR In DT_INDEXEMAN.Rows + If DR.Item("NAME") = indexname Then + If DR.Item("SQL_CHECK").ToString <> String.Empty Then + Dim connectionString As String + Dim sql As String + connectionString = ClassFormFunctions.GetConnectionString(DR.Item("CONNECTION_ID")) + If connectionString <> "" Then + Dim sqlscalar = DR.Item("SQL_CHECK") + Select Case DR.Item("DATENTYP") + Case "INTEGER" + sqlscalar = sqlscalar.ToString.Replace("@manValue", wert) + Case Else + sqlscalar = sqlscalar.ToString.Replace("@manValue", "'" & wert & "'") + End Select + + sql = sqlscalar + Dim ergebnis As Integer + If DR.Item("SQL_PROVIDER") = "Oracle" Then + ergebnis = ClassDatabase.OracleExecute_Scalar(sql, connectionString) + Else + 'MSQL + ergebnis = ClassDatabase.Execute_Scalar(sql, connectionString) + End If + + Select Case ergebnis + Case 1 + Return True + Case 2 + showlblhinweis("Indexwert nicht eindeutig: " & sql) + Return False + Case 99 + Return False + End Select + + End If + Else + Return True + End If + + End If + Next + Catch ex As Exception + MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Indexwert_checkValue:") + ClassLogger.Add(" - Unvorhergesehener Fehler bei Indexwert_checkValue - Fehler: " & vbNewLine & ex.Message) + Return False + End Try + End Function + + ' Function Execute_Scalar_SQLServer(vsql_statement As String, vconnectionString As String, check As Boolean) + ' Try + ' Dim cnn As SqlConnection + ' cnn = New SqlConnection(vconnectionString) + ' Dim cmd As SqlCommand + ' cnn.Open() + ' cmd = New SqlCommand(vsql_statement, cnn) + ' If check = True Then + ' 'ERgebnis muss immer 1 oder mehr ergeben + ' Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar()) + ' If count = 1 Then + ' cmd.Dispose() + ' cnn.Close() + ' Return 1 + ' Else + ' cmd.Dispose() + ' cnn.Close() + ' Return 2 + ' End If + ' Else + ' 'Ergebnis + ' Dim ergebnis As String = cmd.ExecuteScalar() + ' Return ergebnis + ' End If + + ' Catch ex As Exception + ' MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:") + ' ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) + ' ClassLogger.Add(" - SQL: " & vsql_statement, False) + ' ClassLogger.Add(" - Connection: " & vconnectionString, False) + ' Return 99 + ' End Try + ' End Function + ' Function Execute_Scalar_Oracle(vsql_statement As String, vconnectionString As String, check As Boolean) + ' Try + ' Dim cnn As OracleConnection + ' cnn = New OracleConnection(vconnectionString) + ' Dim cmd As OracleCommand + ' cnn.Open() + ' cmd = New OracleCommand(vsql_statement, cnn) + + ' If check = True Then + ' 'Ergebnis muss immer 1 oder mehr ergeben + ' Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar()) + ' If count = 1 Then + ' Return 1 + ' Else + ' Return 2 + ' End If + ' Else + ' 'Ergebnis + ' Dim ergebnis As String = cmd.ExecuteScalar() + ' Return ergebnis + ' End If + + ' cmd.Dispose() + ' cnn.Close() + ' Catch ex As Exception + ' MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:") + ' ClassLogger.Add(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) + ' ClassLogger.Add(" - SQL: " & vsql_statement, False) + ' ClassLogger.Add(" - Connection: " & vconnectionString, False) + ' Return 99 + ' End Try + ' End Function + Function GetManIndex_Value(indexname As String) + Try + Dim DT As DataTable + Dim DR As DataRow + DT = MyDataset.VWDDINDEX_MAN + For Each DR In DT.Rows + If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then + If DR.Item("Indexiert") = True Then + If DR.Item("Indexwert").ToString <> String.Empty Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index: " & indexname, False) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) + Return DR.Item("Indexwert") + Else + Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True) + If optional_index = False Then + ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False) + showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") + End If + Return "" + End If + Else + showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") + Return "" + End If + Exit For + End If + Next + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei GetManIndex_Value - Fehler: " & vbNewLine & ex.Message) + MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei GetManIndex_Value:") + Return "" + End Try + End Function + Function GetAutoIndex_Value(indexname As String) + Try + Dim DT As DataTable + Dim DR As DataRow + DT = MyDataset.VWDDINDEX_AUTOM + For Each DR In DT.Rows + If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then + If DR.Item("Indexiert") = True Then + If DR.Item("Indexwert").ToString <> String.Empty Then + Return DR.Item("Indexwert") + Else + showlblhinweis("Der Automatische Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert!") + Return "" + End If + Else + showlblhinweis("Der Automatische Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert!") + Return "" + End If + Exit For + End If + Next + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei GetAutoIndex_Value - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox("Indexname: " & indexname & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei GetAutoIndex_Value:") + Return "" + End Try + End Function + Function Get_AutomatischerIndex_SQL(vsqlstatement As String, vconnectionID As Integer, vProvider As String) + Try + Dim connectionString As String + connectionString = ClassFormFunctions.GetConnectionString(vconnectionID) + If connectionString <> "" Then + 'NEU + Dim ergebnis + 'Welcher Provider? + If vProvider.ToLower = "oracle" Then + ergebnis = ClassDatabase.OracleExecute_Scalar(vsqlstatement, connectionString) + Else 'im Moment nur SQL-Server + ergebnis = ClassDatabase.Execute_Scalar(vsqlstatement, connectionString) + End If + + If ergebnis Is Nothing Then + showlblhinweis("Kein Ergebnis für automatisches SQL: " & vsqlstatement) + Return "" + Else + Return ergebnis + End If + End If + + Catch ex As Exception + ClassLogger.Add(" - Fehler bei Get_AutomatischerIndex_SQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_AutomatischerIndex_SQL:") + Return "" + End Try + End Function + ' _ + Private Sub AddVorschlag_ComboBox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Optional Vorgabe As String = "") + Try + Dim connectionString As String + Dim sqlCnn As SqlConnection + Dim sqlCmd As SqlCommand + Dim adapter As New SqlDataAdapter + + Dim oracleConn As OracleConnection + Dim oracleCmd As OracleCommand + Dim oracleadapter As New OracleDataAdapter + + Dim NewDataset As New DataSet + Dim i As Integer + Dim sql As String + Dim runinLZ As Boolean = False + + connectionString = ClassFormFunctions.GetConnectionString(conid) + If connectionString Is Nothing = False Then + 'SQL Befehl füllt die Auswahlliste + sql = sql_Vorschlag + If Not sql.Contains("@") Then + If connectionString.Contains("Initial Catalog=") Then + sqlCnn = New SqlConnection(connectionString) + sqlCnn.Open() + sqlCmd = New SqlCommand(sql, sqlCnn) + adapter.SelectCommand = sqlCmd + adapter.Fill(NewDataset) + ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then + + oracleConn = New OracleConnection(connectionString) + ' Try + oracleConn.Open() + oracleCmd = New OracleCommand(sql_Vorschlag, oracleConn) + oracleadapter.SelectCommand = oracleCmd + oracleadapter.Fill(NewDataset) + End If + Else + runinLZ = True + If LogErrorsOnly = False Then ClassLogger.Add(" ...sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False) + End If + + + + Dim newCMB As ComboBox + If runinLZ = True Then + 'Die Standardcombobox anlegen + newCMB = addCombobox(indexname, y) + newCMB.Size = New Size(300, 27) + Else + If NewDataset.Tables(0).Rows.Count > 0 Then + 'Die Standardcombobox anlegen + newCMB = addCombobox(indexname, y) + 'Die Standargrösse definieren + Dim newWidth As Integer = 300 + For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + 'MsgBox(NewDataset.Tables(0).Rows(i).Item(0)) + AddComboBoxValue(newCMB, NewDataset.Tables(0).Rows(i).Item(0)) + Try + Dim text As String = NewDataset.Tables(0).Rows(i).Item(0) + If text.Length > 15 Then + Dim g As Graphics = newCMB.CreateGraphics + If g.MeasureString(text, newCMB.Font).Width + 30 > newWidth Then + newWidth = g.MeasureString(text, newCMB.Font).Width + 30 + End If + g.Dispose() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anpassung Breite ComboBox:") + End Try + + Next + newCMB.Size = New Size(newWidth, 27) + newCMB.AutoCompleteSource = AutoCompleteSource.ListItems + newCMB.AutoCompleteMode = AutoCompleteMode.SuggestAppend + newCMB.DropDownHeight = (newCMB.ItemHeight + 0.2) * 25 + If Vorgabe <> "" Then + newCMB.SelectedIndex = newCMB.FindStringExact(Vorgabe) + newCMB.Text = Vorgabe + End If + Else + + End If + If connectionString.Contains("Initial Catalog=") Then + Try + adapter.Dispose() + sqlCmd.Dispose() + sqlCnn.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + Else + Try + oracleadapter.Dispose() + oracleCmd.Dispose() + oracleConn.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical) + End Try + + End If + End If + + + + + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei AddVorschlag_ComboBox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddVorschlag_ComboBox:") + End Try + End Sub + Private Sub Renew_ComboboxResults(INDEX_GUID As Integer, SearchString As String, Resultvalue As String) + Try + + Dim connectionString As String + Dim sqlCnn As SqlConnection + Dim sqlCmd As SqlCommand + Dim adapter As New SqlDataAdapter + + Dim oracleConn As OracleConnection + Dim oracleCmd As OracleCommand + Dim oracleadapter As New OracleDataAdapter + + Dim NewDataset As New DataSet + Dim i As Integer + + Dim DT_INDEX As DataTable = ClassDatabase.Return_Datatable("select * FROM TBDD_INDEX_MAN WHERE GUID = " & INDEX_GUID, True) + If IsNothing(DT_INDEX) Then + Exit Sub + End If + + Dim conid = DT_INDEX.Rows(0).Item("CONNECTION_ID") + Dim sql_result = DT_INDEX.Rows(0).Item("SQL_RESULT") + Dim NAME = DT_INDEX.Rows(0).Item("NAME") + If Not IsNothing(conid) And Not IsNothing(sql_result) And Not IsNothing(NAME) Then + For Each ctrl As Control In Me.pnlIndex.Controls + If ctrl.Name = "cmb" & NAME.ToString Then + Dim cmb As ComboBox = ctrl + Dim sql As String = sql_result.ToString.ToUpper.Replace("@" & SearchString.ToUpper, Resultvalue) + + connectionString = ClassFormFunctions.GetConnectionString(conid) + If connectionString Is Nothing = False Then + 'SQL Befehl füllt die Auswahlliste + + If connectionString.Contains("Initial Catalog=") Then + sqlCnn = New SqlConnection(connectionString) + sqlCnn.Open() + sqlCmd = New SqlCommand(sql, sqlCnn) + adapter.SelectCommand = sqlCmd + adapter.Fill(NewDataset) + ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then + oracleConn = New OracleConnection(connectionString) + ' Try + oracleConn.Open() + oracleCmd = New OracleCommand(sql, oracleConn) + oracleadapter.SelectCommand = oracleCmd + oracleadapter.Fill(NewDataset) + End If + If NewDataset.Tables(0).Rows.Count > 0 Then + cmb.Items.Clear() + 'Die Standargrösse definieren + Dim newWidth As Integer = 300 + For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + 'MsgBox(NewDataset.Tables(0).Rows(i).Item(0)) + AddComboBoxValue(cmb, NewDataset.Tables(0).Rows(i).Item(0)) + Try + Dim text As String = NewDataset.Tables(0).Rows(i).Item(0) + If text.Length > 15 Then + Dim g As Graphics = cmb.CreateGraphics + If g.MeasureString(text, cmb.Font).Width + 30 > newWidth Then + newWidth = g.MeasureString(text, cmb.Font).Width + 30 + End If + g.Dispose() + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Anpassung Breite ComboBox:") + End Try + + Next + cmb.Size = New Size(newWidth, 27) + cmb.AutoCompleteSource = AutoCompleteSource.ListItems + cmb.AutoCompleteMode = AutoCompleteMode.SuggestAppend + End If + If connectionString.Contains("Initial Catalog=") Then + Try + adapter.Dispose() + sqlCmd.Dispose() + sqlCnn.Close() + Catch ex As Exception + + End Try + Else + Try + oracleadapter.Dispose() + oracleCmd.Dispose() + oracleConn.Close() + Catch ex As Exception + + End Try + + End If + + End If + + + End If + Next + End If + + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei Renew_ComboboxResults - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei Renew_ComboboxResults:") + End Try + End Sub + '#End Region + '#Region "+++++ Funktionen bei OK - schliessen ++++++" + Function CheckWrite_IndexeMan(dokartid As Integer) + '#### Zuerst manuelle Werte indexieren #### + Try + If LogErrorsOnly = False Then ClassLogger.Add(" ...In CheckWrite_IndexeMan", False) + Dim result As Boolean = False + For Each ctrl As Control In Me.pnlIndex.Controls + ' ' MsgBox(ctrl.Name) + If ctrl.Name.StartsWith("txt") Then + Dim box As TextBox = ctrl + If box.Text = "" Then + Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(box.Name, "txt", "") & "'", MyConnectionString, True) + If optional_index = False Then + MsgBox("Bitte geben Sie einen Indexwert ein!", MsgBoxStyle.Exclamation, "Fehlende Eingabe:") + box.Focus() + Return False + Else + Indexwert_Postprocessing(Replace(box.Name, "txt", ""), "") + result = True + End If + Else + If Indexwert_checkValueDB(Replace(box.Name, "txt", ""), box.Text) = False Then + ClassLogger.Add(" - Der eingegebene Wert wurde nicht in der Datenbank gefunden", False) + MsgBox("Der eingegebene Wert wurde nicht in der Datenbank gefunden!", MsgBoxStyle.Exclamation, "Fehlerhafte Indexierung:") + box.Focus() + Return False + Else + Indexwert_Postprocessing(Replace(box.Name, "txt", ""), box.Text) + result = True + End If + End If + End If + If ctrl.Name.StartsWith("cmb") Then + Dim cmb As ComboBox = ctrl + If cmb.Text = "" Then + Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & dokartid & " AND NAME = '" & Replace(cmb.Name, "cmb", "") & "'", MyConnectionString, True) + If optional_index = False Then + MsgBox("Bitte wählen Sie einen Wert aus der Combobox.", MsgBoxStyle.Exclamation) + cmb.Focus() + Return False + Else + Indexwert_Postprocessing(Replace(cmb.Name, "cmb", ""), "") + result = True + End If + Else + Indexwert_Postprocessing(Replace(cmb.Name, "cmb", ""), cmb.Text) + result = True + End If + End If + If ctrl.Name.StartsWith("dtp") Then + Dim dtp As DateTimePicker = ctrl + Indexwert_Postprocessing(Replace(dtp.Name, "dtp", ""), dtp.Text) + result = True + End If + If ctrl.Name.StartsWith("lbl") = False And result = False Then + ClassLogger.Add("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True) + Return False + End If + Next + + + Return True + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler in CheckWrite_IndexeMan - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unerwarteter Fehler bei CheckWrite_IndexeMan:") + Return False + End Try + + + End Function + + Sub Indexwert_Postprocessing(indexname As String, wert As String) + Try + Dim DT As DataTable + Dim DR As DataRow + DT = MyDataset.VWDDINDEX_MAN + For Each DR In DT.Rows + If DR.Item("INDEXNAME") = indexname Then + Dim idxid As Integer = DR.Item("GUID") + If idxid > 0 Then + 'Die Nachbearbeitungsschritte laden + Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " ORDER BY SEQUENCE") + If DTNB Is Nothing = False Then + If DTNB.Rows.Count > 0 Then + wert = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert, DTNB) + End If + End If + + End If + DR.Item("Indexwert") = wert + DR.Item("Indexiert") = True + End If + Next + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei Indexwert_Postprocessing - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Indexwert_Postprocessing:") + End Try + End Sub + ' 'Function Get_Nachbearbeitung_Wert(idxvalue As String, DTNB As DataTable) + ' ' Dim result As String = idxvalue + ' ' Try + ' ' For Each row As DataRow In DTNB.Rows + ' ' Select Case row.Item("TYP").ToString.ToUpper + ' ' Case "VBSPLIT" + ' ' ClassLogger.Add(" - Nachbearbeitung mit VBSPLIT", False) + ' ' Dim strSplit() As String + ' ' strSplit = result.Split(row.Item("TEXT1").ToString) + ' ' For i As Integer = 0 To strSplit.Length - 1 + ' ' If i = CInt(row.Item("TEXT2")) Then + ' ' ClassLogger.Add(" - Split-Ergebnis für Index (" & i.ToString & "): " & strSplit(i), False) + ' ' result = strSplit(i).ToString + ' ' End If + ' ' Next + ' ' Case "VBREPLACE" + ' ' result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) + ' ' End Select + ' ' Next + ' ' Return result + ' ' Catch ex As Exception + ' ' ClassLogger.Add(" - Unvorhergesehener Fehler bei Get_Nachbearbeitung_Wert - result: " & result & " - Fehler: " & vbNewLine & ex.Message) + ' ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Get_Nachbearbeitung_Wert:") + ' ' Return result + ' ' End Try + + ' 'End Function + ' Dim sql_history_INSERT_INTO As String + ' Dim sql_history_Index_Values As String + ' Dim _NewFileString As String + Function Name_Generieren() + Try + Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1" + Dim DT1 As DataTable = ClassDatabase.Return_Datatable(sql) + For Each row As DataRow In DT1.Rows + FILE_DELIMITER = row.Item("FILE_DELIMITER") + VERSION_DELIMITER = row.Item("VERSION_DELIMITER") + Next + + Dim err As Boolean = False + Dim folder_Created As Boolean = False + Dim Zielordner As String + Dim extension As String = Path.GetExtension(CURRENT_WORKFILE) + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKART_ID) + sql_history_INSERT_INTO = "INSERT INTO TBGI_HISTORY (FILENAME_ORIGINAL,FILENAME_NEW" + sql_history_Index_Values = "" + Dim AnzahlIndexe As Integer = 1 + CURR_DOKART_WD_DIRECT = DT.Rows(0).Item("WINDREAM_DIRECT") + CURR_DOKART_OBJECTTYPE = DT.Rows(0).Item("OBJEKTTYP") + CURR_WORKFILE_EXTENSION = extension + If folder_Created = False Then + ' Den Zielordner erstellen + Zielordner = DT.Rows(0).Item("ZIEL_PFAD") + If Directory.Exists(Zielordner) = False Then + 'Try to create the directory. + Directory.CreateDirectory(Zielordner) + End If + folder_Created = True + End If + '#### + ' Regulären Ausdruck zum Auslesen der Indexe definieren + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + 'schonmal den gesamten Pfad laden + Dim DATEINAME As String = Zielordner & "\" & DT.Rows(0).Item("NAMENKONVENTION") + + ' einen Regulären Ausdruck laden + Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + ' die Vorkommen im SQL-String auslesen + Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(DATEINAME) + '#### + ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen + For Each element As System.Text.RegularExpressions.Match In elemente + Console.WriteLine(element.Value) + Console.WriteLine(element.Value.Substring(2, 1).ToUpper) + Select Case element.Value.Substring(2, 1).ToUpper + 'Manueller Indexwert + Case "M" + If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index wird geprüft...", False) + Dim Indexname = element.Value.Substring(3, element.Value.Length - 4) + Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4)) + If value <> String.Empty Then + DATEINAME = DATEINAME.Replace(element.Value, value) + NewFileString = DATEINAME + sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString + AnzahlIndexe += 1 + sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'" + Else + Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & Indexname & "')", MyConnectionString, True) + If optional_index = True Then + Dim result As MsgBoxResult + result = MessageBox.Show("Achtung der optionale Index ist leer, wird aber für die Benennung der Datei benutzt." & vbNewLine & "Wollen Sie stattdessen den Originaldateinamen verwenden?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + DATEINAME = DATEINAME.Replace(element.Value, Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)) + NewFileString = DATEINAME + sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString + AnzahlIndexe += 1 + sql_history_Index_Values = sql_history_Index_Values & ", '" & Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) & "'" + Else + DATEINAME = DATEINAME.Replace(element.Value, value) + NewFileString = DATEINAME + sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString + AnzahlIndexe += 1 + sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'" + End If + + Else + ClassLogger.Add(" >> Der Indexvalue ist String.Empty", False) + err = True + End If + + End If + Case "A" + Dim value As String = GetAutoIndex_Value(element.Value.Substring(3, element.Value.Length - 4)) + If value <> String.Empty Then + DATEINAME = DATEINAME.Replace(element.Value, value) + NewFileString = DATEINAME + sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString + AnzahlIndexe += 1 + sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'" + Else + err = True + End If + Case "V" + Dim datetemp As String + Dim _Month As String = My.Computer.Clock.LocalTime.Month + If _Month.Length = 1 Then + _Month = "0" & _Month + End If + Dim _day As String = My.Computer.Clock.LocalTime.Day + If _day.Length = 1 Then + _day = "0" & _day + End If + Dim type = element.Value '.ToUpper.Replace("[v%", "") + type = type.Replace("[%v", "") + type = type.Replace("]", "") + Select Case type + Case "YY_MM_DD" + datetemp = My.Computer.Clock.LocalTime.Year.ToString.Substring(2) & "_" & _Month & "_" & _day + Case "YYYY_MM_DD" + datetemp = My.Computer.Clock.LocalTime.Year & "_" & _Month & "_" & _day + Case "DD_MM_YY" + datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year.ToString.Substring(2) + Case "DD_MM_YYYY" + datetemp = _day & "_" & _Month & "_" & My.Computer.Clock.LocalTime.Year + Case "OFilename" + DATEINAME = DATEINAME.Replace(element.Value, Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)) + End Select + If datetemp <> "" Then + DATEINAME = DATEINAME.Replace(element.Value, datetemp) + End If + NewFileString = DATEINAME + Case "[%Version]".ToUpper + Try + Dim version As Integer = 1 + Dim Stammname As String = DATEINAME.Replace(element.Value, "") + Dim _neuername As String = DATEINAME.Replace(element.Value, "") + Stammname = _neuername.Replace(VERSION_DELIMITER, "") + _neuername = _neuername.Replace(VERSION_DELIMITER, "") + 'Dim MoveFilename As String = DATEINAME.Replace(element.Value, "") + 'Überprüfen ob File existiert + If File.Exists(_neuername & extension) = False Then + NewFileString = _neuername + Else + Do While File.Exists(_neuername & extension) + version = version + 1 + _neuername = Stammname & VERSION_DELIMITER & version + NewFileString = _neuername + Loop + End If + Catch ex As Exception + ClassLogger.Add(" - Fehler bei Umbenennnen der Datei - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Umbenennnen der Datei:") + err = True + End Try + Case Else + ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper) + MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:") + End Select + Next + CURRENT_NEWFILENAME = NewFileString & extension + 'False oder True zurückgeben + If err = False Then + Return True + Else + Return False + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei Name_Generieren - Fehler: " & vbNewLine & ex.Message) + File.Delete(CURRENT_WORKFILE) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler bei Name_Generieren:") + Return False + End Try + + End Function + Private Function Write_Indizes() + Try + Dim indexierung_erfolgreich As Boolean = False + 'Manuelle Indexe Indexieren + Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN + If DTMan.Rows.Count > 0 Then + Dim Count As Integer = 0 + For Each row As DataRow In DTMan.Rows + If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then + 'Den Indexwert zwischenspeichern + Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS + Dim rowexists As Boolean = False + For Each rowTemp As DataRow In DTTemp.Rows + 'Wenn bereits ein Eintrag existiert..... + If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then + rowexists = True + '......überschreiben + rowTemp.Item("Value") = row.Item("Indexwert") + End If + Next + '.....ansonsten neu anlegen + If rowexists = False Then + Dim newRow As DataRow = DTTemp.NewRow() + newRow("Dokumentart") = row.Item("DOKUMENTART").ToString + newRow("Indexname") = row.Item("INDEXNAME").ToString + newRow("Value") = row.Item("Indexwert") + DTTemp.Rows.Add(newRow) + End If + + + Dim indexname = row.Item("WD_INDEX").ToString + Dim idxvalue = row.Item("Indexwert") + If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexvalue: " & idxvalue.ToString, False) + Count += 1 + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue) + If indexierung_erfolgreich = False Then + MsgBox("Error in Indexing file - See log", MsgBoxStyle.Critical) + Return False + Exit For + End If + End If + Next + + End If + 'Automatische Indexe Indexieren + Dim DTAut As DataTable = MyDataset.VWDDINDEX_AUTOM + If DTAut.Rows.Count > 0 Then + Dim Count As Integer = 0 + For Each row As DataRow In DTAut.Rows + Console.WriteLine(row.Item("Indexwert")) + Console.WriteLine(row.Item("Indexiert").ToString) + If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then + Dim indexname = row.Item("INDEXNAME").ToString + Dim idxvalue = row.Item("Indexwert") + If LogErrorsOnly = False Then ClassLogger.Add(" ...Auto Indexvalue: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexvalue: " & idxvalue.ToString, False) + Count += 1 + indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue) + If indexierung_erfolgreich = False Then + MsgBox("Error in indexing file - See log", MsgBoxStyle.Critical) + Return False + Exit For + End If + End If + Next + End If + If DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@" Then + indexierung_erfolgreich = SetEmailIndices() + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) + Return False + End If + ElseIf DropType = "@ATTMNTEXTRACTED@" Then + indexierung_erfolgreich = SetAttachmentIndices() + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) + Return False + End If + End If + + + Catch ex As Exception + ClassLogger.Add("Unvorhergesehener Fehler bei Write_Indizes - Fehler: " & vbNewLine & ex.Message) + MsgBox("Error in Write_Indizes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + Return True + End Function + Private Function WriteIndex2File(indexname As String, indexvalue As String) + Try + If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexvalue: " & indexvalue.ToString, False) + Return ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, indexvalue) + Catch ex As Exception + MsgBox("Error in WriteIndex2File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + End Function + + Private Function SetEmailIndices() + Dim indexierung_erfolgreich As Boolean = False + Try + Dim msg As New Msg.Message(CURRENT_NEWFILENAME) + 'Console.WriteLine("Subject: " + msg.Subject) + 'Console.WriteLine("MessageDeliveryTime:" & msg.MessageDeliveryTime) + 'Console.WriteLine("SenderName: " + msg.SenderName) + 'Console.WriteLine("SenderEmailAddress: " + msg.SenderEmailAddress) + 'Console.WriteLine("ReceivedByName: " + msg.ReceivedByName) + 'Console.WriteLine("ReceivedByEmailAddress: " + msg.ReceivedByEmailAddress) + 'Console.WriteLine("DisplayTo: " + msg.DisplayTo) + 'Console.WriteLine("DisplayCc: " + msg.DisplayCc) + 'Console.WriteLine("Body: " + msg.Body) + 'Console.WriteLine("-----------------------------------------------------------------------") + 'Console.WriteLine("BodyHtmlText: " + msg.BodyHtmlText) + + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'") + If DT.Rows.Count = 1 Then + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, msg.InternetMessageId) + 'Die aktuelle Message-ID zwischenspeichern + CURRENT_MESSAGEID = msg.InternetMessageId + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices-EmailID - See log", MsgBoxStyle.Critical) + Return False + End If + + ' Regular Expressions vorbereiten + Dim fromPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'FROM_EMAIL_HEADER'", MyConnectionString) + Dim toPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'TO_EMAIL_HEADER'", MyConnectionString) + + If fromPattern <> "" And toPattern <> "" Then + Dim FromRegexList As New List(Of Regex) + Dim ToRegexList As New List(Of Regex) + Dim fromRegex As New Regex(fromPattern, RegexOptions.IgnoreCase) + Dim toRegex As New Regex(toPattern, RegexOptions.IgnoreCase) + + FromRegexList.Add(fromRegex) + ToRegexList.Add(toRegex) + + ' Email Header auslesen + Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg) + + ' Email Absender und Empfänger + Dim emailFrom As String = ClassEmailHeaderExtractor.extractFromAddress(headers, FromRegexList) + Dim emailTo As String = ClassEmailHeaderExtractor.extractToAddress(headers, ToRegexList) + If LogErrorsOnly = False Then ClassLogger.Add(" ...emailFrom: " & emailFrom, False) + If LogErrorsOnly = False Then ClassLogger.Add(" ...emailTo: " & emailTo, False) + 'FROM + If Not IsNothing(emailFrom) Then + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, emailFrom) + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices-From - See log", MsgBoxStyle.Critical) + Return False + End If + End If + 'TO + If Not IsNothing(emailTo) Then + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_TO").ToString, emailTo) + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices-To - See log", MsgBoxStyle.Critical) + Return False + End If + End If + + Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject) + If LogErrorsOnly = False Then ClassLogger.Add(" ...subj: " & subj, False) + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, subj) + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices-Subject - See log", MsgBoxStyle.Critical) + Return False + End If + If LogErrorsOnly = False Then ClassLogger.Add(" ...MessageDeliveryTime: " & msg.MessageDeliveryTime, False) + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, msg.MessageDeliveryTime) + CURRENT_MESSAGEDATE = msg.MessageDeliveryTime + If indexierung_erfolgreich = False Then + MsgBox("Error in SetEmailIndices-Datein - See log", MsgBoxStyle.Critical) + Return False + End If + Else + indexierung_erfolgreich = False + End If + + Return indexierung_erfolgreich + End If + Catch ex As Exception + MsgBox("Error in SetEmailIndices:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + + + End Function + Private Function SetAttachmentIndices() + Dim indexierung_erfolgreich As Boolean = True + Try + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'") + If DT.Rows.Count = 1 Then + If CURRENT_MESSAGEID <> "" Then + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, CURRENT_MESSAGEID) + If indexierung_erfolgreich = False Then + MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) + Return False + End If + End If + 'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, msg.SenderEmailAddress) + 'If indexierung_erfolgreich = False Then + ' MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) + ' Return False + 'End If + 'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_TO").ToString, msg.ReceivedByEmailAddress) + 'If indexierung_erfolgreich = False Then + ' MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) + ' Return False + 'End If + 'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, msg.Subject) + 'If indexierung_erfolgreich = False Then + ' MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) + ' Return False + 'End If + If CURRENT_MESSAGEDATE <> "" Then + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_DATE_IN").ToString, CURRENT_MESSAGEDATE) + If indexierung_erfolgreich = False Then + MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) + Return False + End If + End If + indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_CHECK_ATTACHMENT").ToString, True) + If indexierung_erfolgreich = False Then + MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) + Return False + End If + Return indexierung_erfolgreich + End If + Catch ex As Exception + MsgBox("Error in SetAttachmentIndices:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + + + + End Function + + Private Function SINGLEFILE_2_WINDREAM(_Objekttyp As String) + Try + ClassWindream._WDObjekttyp = _Objekttyp + Dim streamresult = ClassWindream.Stream_File(CURRENT_WORKFILE, CURRENT_NEWFILENAME) + Return streamresult + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in SINGLEFILE_2_WINDREAM:") + Return False + End Try + End Function + Function Move_Rename_Only(Quelle As String, _NewFilename As String, extension As String, _versionTz As String) + 'Überprüfen ob File existiert + If File.Exists(_NewFilename & extension) = False Then + CURRENT_NEWFILENAME = _NewFilename & extension + Else + 'Versionieren + Dim version As Integer = 1 + Dim Stammname As String = _NewFilename + Dim neuername As String = _NewFilename + Do While File.Exists(neuername & extension) + version = version + 1 + neuername = Stammname & _versionTz & version + CURRENT_NEWFILENAME = neuername & extension + Loop + End If + 'Die Datei wird nun verschoben + My.Computer.FileSystem.MoveFile(CURRENT_WORKFILE, CURRENT_NEWFILENAME) + + Dim Insert_String As String + Try + Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO,ADDED_WHERE) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "','" & Environment.MachineName & "')" + ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString) + Return False + Catch ex As Exception + ClassLogger.Add(" - Fehler bei Move_Rename - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add(" - Fehler bei Move_Rename - Insert_String: " & Insert_String) + Return True + End Try + + End Function + '#End Region + Public Sub New() + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub frmIndex_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing + Try + ClassWindowLocation.SaveFormLocationSize(Me) + CloseUniversalViewer() + Catch ex As Exception + ClassLogger.Add(" - Fehler bei Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Schliessen des Formulares:") + End Try + + End Sub + Sub CloseUniversalViewer() + If Not CURRENT_WORKFILE.EndsWith("msg") Then + CURRENT_HTML_DOC = "" + If CURRENT_WORKFILE.EndsWith("pdf") Then + Me.PdfViewer1.DocumentFilePath = "" + My.Settings.SplitterDistance_Viewer = SplitContainer1.SplitterDistance + Else + Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("Viewer") + For Each p As Process In pProcess + p.Kill() + Next + End If + + Else + My.Settings.SplitterDistance_Viewer = SplitContainer1.SplitterDistance + End If + My.Settings.Save() + + 'If Not IsNothing(DocView) And viewer_string <> "" Then + ' DocView.CloseView(viewer_string, 0) + 'Else + + 'End If + End Sub + Private Sub frmIndex_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Try + DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True) + chkdelete_origin.Visible = False + If DropType = "@DROPFROMFSYSTEM@" Then + chkdelete_origin.Visible = True + chkdelete_origin.Checked = Delete_OriginFile + Me.Text = "Indexierung der gedroppten Datei:" + ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@" Then + Select Case DropType + Case "@FW_OUTLOOK_MESSAGE@""" + If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file from folderwatch", False) + Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:" + Case "@OUTLOOK_MESSAGE@" + If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file through dragdrop", False) + Me.Text = "Indexierung der msg-Datei (ohne Anhang):" + End Select + Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) & "_excl_att.msg") + Dim savestring = tempfile 'Path.GetDirectoryName(CURRENT_WORKFILE) & "\" & Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) & "_excl_att.msg" + If File.Exists(savestring) Then + File.Delete(savestring) + End If + Dim _msg As New Msg.Message(CURRENT_WORKFILE) + _msg.Attachments.Clear() + _msg.Save(savestring) + CURRENT_WORKFILE = savestring + ElseIf DropType = "@ATTMNTEXTRACTED@" Then + Me.Text = "Indexierung eines Email-Attachments:" + ElseIf DropType = "@FW_SIMPLEINDEXER@" Then + Me.Text = "Indexierung einer Folderwatch-Datei:" + End If + txtIndexfilepath.Text = CURRENT_WORKFILE + ClassWindowLocation.LoadFormLocationSize(Me) + If Preview = True Then + PreviewFile() + Me.tslblVorschau.Visible = True + Else + Me.tslblVorschau.Visible = False + End If + Load_String() + MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True) + If MULTIFILES > 0 Then + chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren" + chkMultiIndexer.Visible = True + Else + chkMultiIndexer.Visible = False + End If + Catch ex As Exception + ClassLogger.Add(" - Fehler bei Öffnen des Formulares - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Öffnen des Formulares:") + End Try + End Sub + Sub Load_String() + Try + Me.VWDDINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString + 'Me.VWIORDNER_DOKARTTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString + 'Me.VWDMS_DOKUMENTARTZUORDNUNGTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString + 'Me.TBCONNECTIONTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString + 'Me.VWINDEX_AUTOMTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString + 'Me.VWINDEX_MANTableAdapter.Connection.ConnectionString = My.Settings.MyConnectionString + Catch ex As Exception + ClassLogger.Add(" - Fehler beim Speichern der Verbindung - Fehler: " & vbNewLine & ex.Message) + MsgBox("Fehler beim Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + End Try + End Sub + + Private Sub frmIndex_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged + + End Sub + + Private Sub frmIndex_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus + + End Sub + Private Sub frmIndex_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown + Me.TopMost = True + Me.BringToFront() + Me.Focus() + Me.Cursor = Cursors.Default + Refresh_Dokart() + Me.pnlIndex.Controls.Clear() + formloaded = True + End Sub + Sub Refresh_Dokart() + Try + DT_DOKART = ClassDatabase.Return_Datatable("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('" & Environment.UserName & "') ORDER BY SEQUENCE") + cmbDokumentart.DataSource = DT_DOKART + cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName + cmbDokumentart.DisplayMember = DT_DOKART.Columns("DOCTYPE").ColumnName + cmbDokumentart.AutoCompleteMode = AutoCompleteMode.SuggestAppend + cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems + Me.cmbDokumentart.SelectedIndex = -1 + 'If CURRENT_LASTDOKART <> "" Then + ' cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_LASTDOKART) + 'End If + Catch ex As Exception + ClassLogger.Add(" - Fehler beim Laden der Dokumentarten - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Laden der Dokumentarten:") + End Try + End Sub + Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDokumentart.SelectedIndexChanged + If cmbDokumentart.SelectedIndex <> -1 And formloaded = True Then + If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then + CURRENT_DOKART_ID = cmbDokumentart.SelectedValue + lblhinweis.Visible = False + lblerror.Visible = False + Me.pnlIndex.Controls.Clear() + Dim sql As String = "Select WINDREAM_DIRECT from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue + WDDirect = ClassDatabase.Execute_Scalar(sql, MyConnectionString) + Refresh_IndexeMan(cmbDokumentart.SelectedValue) + End If + + End If + End Sub + ' _ + Private Sub Refresh_IndexeMan(dokartid As Integer) + Try + DT_INDEXEMAN = ClassDatabase.Return_Datatable("select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid) + pnlIndex.Visible = True + LoadIndexe_Man() + Catch ex As System.Exception + ClassLogger.Add(" - Fehler Refresh_IndexeMan: DOKART-ID: " & dokartid & " - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh_IndexeMan:") + End Try + End Sub + ' _ + Function Check_HistoryValues(Indexname As String, Dokart As String) + Try + Dim result = Nothing + Dim DT As DataTable = MyDataset.TBTEMP_INDEXRESULTS + If DT.Rows.Count > 0 Then + For Each row As DataRow In DT.Rows + If row.Item("Indexname") = Indexname And row.Item("Dokumentart") = Dokart Then + result = row.Item("Value") + Return result + End If + Next + Else + Return Nothing + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Check_HistoryValues:") + End Try + End Function + + Private Sub LoadIndexe_Man() + Try + Dim anz As Integer = 1 + Dim ylbl As Integer = 11 + Dim y As Integer = 33 + If DT_INDEXEMAN.Rows.Count = 0 Then + ShowError("Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") + ClassLogger.Add(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert") + End If + For Each DR In DT_INDEXEMAN.Rows + addLabel(DR.Item("NAME"), DR.Item("COMMENT").ToString, ylbl, anz) + Dim DefaultValue = Check_HistoryValues(DR.Item("NAME"), DR.Item("DOKUMENTART")) + If DefaultValue Is Nothing Then + DefaultValue = DR.Item("DEFAULT_VALUE") + End If + Select Case DR.Item("DATATYPE") + Case "INTEGER" + If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then + AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue) + Else + Dim VORBELGUNG As Integer = DefaultValue + 'nur eine Textbox + AddTextBox(DR.Item("NAME"), y, VORBELGUNG) + End If + Case "VARCHAR" + If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then + AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue) + Else + If DR.Item("NAME").ToString.ToLower = "dateiname" Then + 'Übergibt den Dateinamen um diesen Vorzuschlagen + AddTextBox(DR.Item("NAME"), y, System.IO.Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)) + Else + Dim VORBELGUNG As String = DefaultValue + 'nur eine Textbox + AddTextBox(DR.Item("NAME"), y, VORBELGUNG) + End If + End If + Case "DATE" + AddDateTimePicker(DR.Item("NAME"), y) + Case Else + MsgBox("Bitte überprüfen Sie den Datentyp des hinterlegten Indexwertes!", MsgBoxStyle.Critical, "Achtung:") + ClassLogger.Add(" - Datentyp nicht hinterlegt - LoadIndexe_Man") + End Select + + anz += 1 + ylbl += 60 + y += 60 + + Next + SendKeys.Send("{TAB}") + Catch ex As Exception + ClassLogger.Add(" - Fehler bei LoadIndexe_Man - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei LoadIndexe_Man:") + End Try + + End Sub + + Sub AddComboBoxValue(cmbName As ComboBox, Value As String) + cmbName.Items.Add(Value) + End Sub + + ' + + ' Private Sub lblhinweis_Click(sender As System.Object, e As System.EventArgs) Handles lblhinweis.Click + + ' End Sub + + Function FillIndexe_Autom(dokart_id As Integer) + Try + Me.VWINDEX_AUTOMTableAdapter.Fill(Me.MyDataset.VWDDINDEX_AUTOM, CURRENT_DOKART_ID) + Dim DT_INDEXAUTOM As DataTable = MyDataset.VWDDINDEX_AUTOM + If DT_INDEXAUTOM.Rows.Count > 0 Then + ' MsgBox(DT.Rows.Count.ToString) + For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows + If LogErrorsOnly = False Then ClassLogger.Add(" ...Build Automatischer Index '" & DR_AUTOINDEX.Item("INDEXNAME") & "'", False) + If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty Then + ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + ' SQL-String für aktuellen INdex laden + Dim SqlString As String = DR_AUTOINDEX.Item("SQL_RESULT") + ' einen Regulären Ausdruck laden + Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + ' die Vorkommen im SQL-String auslesen + Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(SqlString) + ' alle Vorkommen der Indexe im SQL-String durchlaufen + For Each element As System.Text.RegularExpressions.Match In elemente + ' MsgBox(element.Value.ToUpper) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Element: '" & element.Value & "'", False) + '' wenn es sich nicht um dedizeirte Werte handelt (es sollen ja nur die Indexe ausgelesen werden) + 'If Not element.Value.ToUpper = "[%SPALTE]" And Not element.Value.ToUpper = "[%VIEW]" Then + 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) + Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3) + If LogErrorsOnly = False Then ClassLogger.Add(" ...elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False) + 'den Platzhalter im SQL-String durch den Wert ersetzen + Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen) + If manIndexwert <> "" Then + SqlString = SqlString.Replace(element.Value, manIndexwert) + If LogErrorsOnly = False Then ClassLogger.Add(" ...zusammengesetzter SQL-String: " & SqlString, False) + Else + ClassLogger.Add(" - ACHTUNG: manIndexwert = String.Empty - Funktion: FillIndexe_Autom", False) + Return False + End If + Next + If LogErrorsOnly = False Then ClassLogger.Add(" ...Ausführen SQL....", False) + Dim automatischerValue As String = "" + automatischerValue = Get_AutomatischerIndex_SQL(SqlString, DR_AUTOINDEX.Item("CONNECTION_ID"), DR_AUTOINDEX.Item("SQL_PROVIDER")) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis SQL: '" & automatischerValue & "'", False) + If automatischerValue <> String.Empty Then + DR_AUTOINDEX.Item("Indexiert") = True + DR_AUTOINDEX.Item("Indexwert") = automatischerValue + Else + ClassLogger.Add(" - ACHTUNG: automatischerValue = String.Empty - Funktion: FillIndexe_Autom", False) + ClassLogger.Add(" - SqlString: " & SqlString, False) + Return False + End If + Else + If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then + If DR_AUTOINDEX.Item("VALUE") <> "" Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexwert wird gespeichert: " & DR_AUTOINDEX.Item("VALUE"), False) + Console.WriteLine(DR_AUTOINDEX.Item("VALUE")) + DR_AUTOINDEX.Item("Indexiert") = True + DR_AUTOINDEX.Item("Indexwert") = DR_AUTOINDEX.Item("VALUE") + End If + End If + End If + Next + 'MsgBox("Noch kein automatischer Index-SQL-String hinterlegt, dennoch wird das Dokument abgelegt!") + Return True + Else + Return True + End If + Catch ex As System.Exception + ClassLogger.Add(" - Fehler bei FillIndexe_Autom - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei FillIndexe_Autom") + Return False + End Try + + End Function + Private Sub btnVorschau_Click(sender As System.Object, e As System.EventArgs) + PreviewFile() + End Sub + + Sub PreviewFile() + Try + Dim Proc As New System.Diagnostics.Process + Me.pnlWebbrowser.Visible = False + Me.pnlPDF.Visible = False + CURRENT_HTML_DOC = "" + If Not CURRENT_WORKFILE.EndsWith("msg") Then + CURRENT_HTML_DOC = "" + If CURRENT_WORKFILE.EndsWith("pdf") Then + Me.SplitContainer1.Panel2Collapsed = False + PdfViewer1.LoadDocument(CURRENT_WORKFILE) + pnlPDF.Dock = DockStyle.Fill + SplitContainer1.SplitterDistance = My.Settings.SplitterDistance_Viewer + Me.pnlPDF.Visible = True + Else + Me.SplitContainer1.Panel2Collapsed = True + Select Case Path.GetExtension(CURRENT_WORKFILE) + Case ".docx" + Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("winword") + Dim filename As String = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) + For Each p As Process In pProcess + If p.MainWindowTitle.Contains(filename) Then + p.CloseMainWindow() + End If + Next + Case ".xlsx" + Console.WriteLine("xlsx file") + Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName("excel") + Dim filename As String = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) + For Each p As Process In pProcess + If p.MainWindowTitle.Contains(filename) Then + p.CloseMainWindow() + End If + Next + Case Else + Console.WriteLine(Path.GetExtension(CURRENT_WORKFILE)) + Dim psi As New ProcessStartInfo(UniversalViewer, """" & CURRENT_WORKFILE & """") + Proc.EnableRaisingEvents = True + Proc.StartInfo = psi + Proc.Start() + End Select + End If + + Else + Me.pnlWebbrowser.Dock = DockStyle.Fill + Dim msg_email As New Msg.Message(CURRENT_WORKFILE) + 'Eine tempfile generieren + Dim tempFilename = My.Computer.FileSystem.GetTempFileName() + Dim name = Path.GetFileNameWithoutExtension(tempFilename) + tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html") + 'tempfile löschen + If My.Computer.FileSystem.FileExists(tempFilename) Then + My.Computer.FileSystem.DeleteFile(tempFilename) + End If + + + 'Try + Dim wFile As System.IO.FileStream + Dim byteData() As Byte + byteData = msg_email.BodyHtml + + ' MsgBox(msg_email.InternetCodePage) + ' wFile = New FileStream(tempFilename, FileMode.Append) + ' wFile.Write(byteData, 0, byteData.Length) + ' wFile.Close() + 'Catch ex As IOException + ' MsgBox(ex.ToString) + 'End Try + + Dim vIn() As Byte = msg_email.BodyHtml + Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn) + File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8) + + CURRENT_HTML_DOC = tempFilename + Me.tslblWebbrowser.Text = CURRENT_HTML_DOC + WebBrowser.Navigate("file:///" & CURRENT_HTML_DOC) + Me.pnlWebbrowser.Visible = True + Me.SplitContainer1.Panel2Collapsed = False + SplitContainer1.SplitterDistance = My.Settings.SplitterDistance_Viewer + End If + ' Dim psi1 As New ProcessStartInfo("""" & CURRENT_WORKFILE & """") + ' Proc.EnableRaisingEvents = True + ' Proc.StartInfo = psi1 + ' Proc.Start() + ' Me.tslblVorschau.Visible = True + 'Else + + + ' End If + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in PreviewFile:") + End Try + + End Sub + Private Function UnicodeBytesToString(ByVal bytes() As Byte) As String + Return System.Text.Encoding.UTF8.GetString(bytes) + End Function + Public Function TextStringToByteArray(ByRef str As String) As Byte() + Dim enc As System.Text.Encoding = Encoding.GetEncoding(65001) + + Return enc.GetBytes(str) + End Function + Public Shared Function encode(ByVal str As String) As String + 'supply True as the construction parameter to indicate + 'that you wanted the class to emit BOM (Byte Order Mark) + 'NOTE: this BOM value is the indicator of a UTF-8 string + Dim utf8Encoding As New System.Text.UTF8Encoding(True) + Dim encodedString() As Byte + + encodedString = utf8Encoding.GetBytes(str) + + Return utf8Encoding.GetString(encodedString) + End Function + Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) + SaveConfigValue("Preview", True) + End Sub + Private Function WORK_FILE() + Try + Me.VWDDINDEX_MANTableAdapter.Fill(Me.MyDataset.VWDDINDEX_MAN, CURRENT_DOKART_ID) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Manuelle Indexe geladen", False) + + If MyDataset.VWDDINDEX_MAN.Rows.Count > 0 Then + CURRENT_DOKART_ID = Me.cmbDokumentart.SelectedValue + If CheckWrite_IndexeMan(Me.cmbDokumentart.SelectedValue) = True Then + '##### Manuelle Indexe indexiert ##### + If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei " & CURRENT_WORKFILE & " wird nun indexiert...", False) + If FillIndexe_Autom(Me.cmbDokumentart.SelectedValue) = True Then + 'Den Zielnamen zusammenbauen + If Name_Generieren() = True Then + + 'Die Datei verschieben + If Move_File2_Target() = True Then + CloseUniversalViewer() + 'Die Originaldatei löschen + If DropType = "@DROPFROMFSYSTEM@" Then + If chkdelete_origin.Checked = True Then + 'Die temporäre Datei löschen + File.Delete(CURRENT_WORKFILE) + End If + ElseIf DropType = "@ATTMNTEXTRACTED@" Then + 'Die temporäre Datei löschen + File.Delete(CURRENT_WORKFILE) + ElseIf (DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@") Then + 'Die temporäre Datei löschen + File.Delete(CURRENT_WORKFILE) + ElseIf DropType = "@FW_SIMPLEINDEXER@" Then + 'Die temporäre Datei löschen + File.Delete(CURRENT_WORKFILE) + End If + + CURRENT_LASTDOKART = cmbDokumentart.Text + ClassLogger.Add(" >> Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.", False) + Dim upd As String = "UPDATE TBGI_FILES_USER SET WORKED = 1 WHERE GUID = " & CURRENT_WORKFILE_GUID + ClassDatabase.Execute_non_Query(upd, True) + Return True + End If + + Else + MsgBox("Unerwarteter Fehler bei Name_Generieren - Bitte überprüfen sie die LogFile", MsgBoxStyle.Critical) + Return False + End If + Else + MsgBox("Unvorhergesesehene Ausnahme in FillIndexe_Autom - Bitte überprüfen Sie die LogFile", MsgBoxStyle.Critical) + Return False + End If + '#### Automatische Werte indexieren #### + End If + Else + MsgBox("Bitte überprüfen Sie die Konfiguration dieser Dokumentart." & vbNewLine & "Es sind KEINE manuellen Indizes konfiguriert oder aktiv geschaltet!", MsgBoxStyle.Exclamation) + Return False + End If + Catch ex As Exception + MsgBox("Unerwarteter Fehler in WORK_FILE:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function + Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles OK_Button.Click + lblhinweis.Visible = False + lblerror.Visible = False + Me.Cursor = Cursors.WaitCursor + If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then + + 'Die erste Datei indexieren + If WORK_FILE() = True Then + 'Und nun die folgenden + Dim DTFiles2Work As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") + If Not DTFiles2Work Is Nothing Then + Dim err = False + For Each filerow As DataRow In DTFiles2Work.Rows + CURRENT_WORKFILE_GUID = filerow.Item("GUID") + CURRENT_WORKFILE = filerow.Item("FILENAME2WORK") + + 'Dim HandleType As String = filerow.Item("HANDLE_TYPE") + 'If HandleType = "@DROPFROMFSYSTEM@" Then + ' DropType = "dragdrop file" + 'ElseIf HandleType = "@OUTLOOK_ATTMNT@" Then + ' DropType = "dragdrop attachment" + 'ElseIf HandleType = "@OUTLOOKMESSAGE@" Then + ' DropType = "dragdrop message" + 'End If + If WORK_FILE() = False Then + err = True + Exit For + End If + Next + Me.Cursor = Cursors.Default + If err = False Then + MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:") + Me.Close() + End If + End If + End If + Else + If WORK_FILE() = True Then + Me.Cursor = Cursors.Default + MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung") + Me.Close() + End If + End If + + + End Sub + Private Function Move_File2_Target() + Dim err As Boolean = False + Try + If CBool(CURR_DOKART_WD_DIRECT) = False Then + 'Datei verschieben + err = Move_Rename_Only(CURRENT_WORKFILE, NewFileString, CURR_WORKFILE_EXTENSION, VERSION_DELIMITER) + Else + Dim exp2WD As Boolean = False + If DropType = "@DROPFROMFSYSTEM@" Or DropType = "@OUTLOOK_ATTACHMENT@" Or DropType = "@ATTMNTEXTRACTED@" Or DropType = "@FW_SIMPLEINDEXER@" Then + exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE) + ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@" Then + exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE) + End If + If exp2WD = True Then + 'Prüfen ob Sessiond a ist - wenn nicht nochmal neu initiieren + If ClassWindream.oSession Is Nothing Then + ClassWindream.Init() + End If + 'Kein Fehler in Export2windream + err = False + If Write_Indizes() = True Then + Dim sql As String = "SELECT FOLDER_FOR_INDEX FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKART_ID + Dim Folder_for_index = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If Not IsDBNull(Folder_for_index) Then + If Folder_for_index <> String.Empty Then + CrFolderForIndex(CURRENT_NEWFILENAME, Folder_for_index) + End If + End If + + + 'Kein Fehler in Setzen der windream-Indizes + Dim Insert_String As String + Try + Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "')" + ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString) + Catch ex As Exception + MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add(" - Fehler bei Insert-History - Fehler: " & vbNewLine & ex.Message) + ClassLogger.Add(" - Fehler bei Insert-History - SQL: " & Insert_String) + err = True + End Try + Else + err = True + End If + Else + MsgBox("Der Export nach windream war nicht erfolgreich - Check LogFile", MsgBoxStyle.Exclamation) + err = True + End If + End If + 'False oder True zurückgeben + 'Kein Fehler aufgetreten + If err = False Then + Return True + Else + 'Fehler aufgetreten + Return False + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Allgemeiner Fehler in Move File2Target:") + err = True + End Try + End Function + + Private Sub PdfViewer1_ZoomChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) + If Not PdfViewer1.ZoomMode = DevExpress.XtraPdfViewer.PdfZoomMode.Custom Then + Console.WriteLine(PdfViewer1.ZoomMode) + 'SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomMode) + 'PDFViewer_ZoomMode = PdfViewer1.ZoomMode + End If + End Sub + + Private Sub PdfViewer1_DocumentChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfDocumentChangedEventArgs) Handles PdfViewer1.DocumentChanged + PDF_Pagenumber() + End Sub + + Private Sub PdfViewer1_CurrentPageChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfCurrentPageChangedEventArgs) Handles PdfViewer1.CurrentPageChanged + PDF_Pagenumber() + End Sub + Sub PDF_Pagenumber() + Try + pdfstatuslblPageNumber.Text = "Seite " & PdfViewer1.CurrentPageNumber & "/" & PdfViewer1.PageCount + Catch ex As Exception + + End Try + End Sub + Private Function CrFolderForIndex(ByVal fullfilename As String, folderindex As String) + Try + Dim RootFolder As String = Path.GetDirectoryName(fullfilename) + + '###### + + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + ' einen Regulären Ausdruck laden + Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + ' die Vorkommen im Folder-String auslesen + Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(folderindex) + '#### + ' alle Vorkommen innerhalb des Ordnerstrings durchlaufen + For Each element As System.Text.RegularExpressions.Match In elemente + If LogErrorsOnly = False Then ClassLogger.Add(" ...Elementname in FolderString: '" & element.ToString & "'", False) + Select Case element.Value.Substring(2, 1).ToUpper + 'Manueller Indexwert + Case "M" + Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False) + Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False) + If Not ManIndex_Value = String.Empty Then + If IsDate(ManIndex_Value) Then + ManIndex_Value = CDate(ManIndex_Value).ToString("yyyyMMdd") + End If + folderindex = folderindex.Replace(element.ToString, ManIndex_Value) + If LogErrorsOnly = False Then ClassLogger.Add(" ...FolderPattern: '" & folderindex & "'", False) + Else + Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & ManIndexname & "')", MyConnectionString, True) + If optional_index = True Then + If LogErrorsOnly = False Then ClassLogger.Add(" ...Optionaler Indexwert ist NICHT gefüllt", False) + Else + ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) + Return True + End If + End If + Case "A" + Dim AutoIndexname = element.Value.Substring(3, element.Value.Length - 4) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Auto-Indexwert aus '" & AutoIndexname & "' auszulesen.", False) + Dim AutoIndex_Value As String = GetAutoIndex_Value(AutoIndexname) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & AutoIndexname & "'", False) + If Not AutoIndex_Value = String.Empty Then + folderindex = folderindex.Replace(element.ToString, AutoIndex_Value) + If LogErrorsOnly = False Then ClassLogger.Add(" ...FolderPattern: '" & folderindex & "'", False) + Else + ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) + End If + Case "V" + Dim folder_temp As String + Dim _Month As String = My.Computer.Clock.LocalTime.Month + If _Month.Length = 1 Then + _Month = "0" & _Month + End If + Dim _day As String = My.Computer.Clock.LocalTime.Day + If _day.Length = 1 Then + _day = "0" & _day + End If + Dim type = element.Value.Substring(3, element.Value.Length - 4) + Select Case type + Case "YYYY/MM/DD" + folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day + Case "YYYY/MM" + folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month + Case "YYYY" + folder_temp = My.Computer.Clock.LocalTime.Year + Case "YYYY-MM" + folder_temp = My.Computer.Clock.LocalTime.Year & "-" & _Month + End Select + folderindex = folderindex.Replace(element.ToString, folder_temp) + If LogErrorsOnly = False Then ClassLogger.Add(" ...FolderPatter nach V-Element: '" & folderindex & "'", False) + Case Else + ClassLogger.Add(" - Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper) + MsgBox("Achtung - in der Namenkonvention wurde ein Element gefunden welches nicht zugeordnet werden kann!" & vbNewLine & "Elementname: " & element.Value.ToUpper, MsgBoxStyle.Exclamation, "Fehler bei Name generieren:") + End Select + Next + + + + 'Dim _folderArray As String() + '_folderArray = folderindex.Split("\") + + ''Für jeden Folder die maskierung entfernen + 'For Each _Uordner As String In _folderArray + ' Dim folder_temp + ' If _Uordner.StartsWith("[%") Then + ' Dim Indexwert As String + ' folder_temp = _Uordner.Replace("[%", "") + ' folder_temp = folder_temp.Replace("]", "") + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...CrFolder Ordner: '" & folder_temp & "'", False) + ' 'Den Indexwert auslesen + ' Try + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Indexwert aus '" & CStr(folder_temp) & "' auszulesen.", False) + + ' Indexwert = GetManIndex_Value(folder_temp) + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & CStr(Indexwert) & "'", False) + ' Catch ex As Exception + ' ClassLogger.Add("Der Index '" & folder_temp & "' ist nicht gefüllt oder es trat ein Fehler beim Auslesen der Indexwerte auf", True) + ' Return True + ' End Try + + ' If Not Indexwert = String.Empty Then + ' If IsDate(Indexwert) Then + ' Indexwert = CDate(Indexwert).ToString("yyyyMMdd") + ' End If + ' newFolder = newFolder & Indexwert & "\" + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...newFolder: '" & newFolder & "'", False) + ' Else + ' Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & CStr(folder_temp) & "')", MyConnectionString, True) + ' If optional_index = True Then + ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Optionaler Indexwert ist NICHT gefüllt", False) + ' Else + ' ClassLogger.Add(" - Achtung Ausnahme in 'CrFolderForIndex': der Index ist leer!", True) + ' Return True + ' End If + ' End If + ' End If + ' 'Überprüfen ob es ein Variable Ordneranlage sein soll (DATUM) + ' If _Uordner.StartsWith("[V%") Then + ' Dim _Month As String = My.Computer.Clock.LocalTime.Month + ' If _Month.Length = 1 Then + ' _Month = "0" & _Month + ' End If + ' Dim _day As String = My.Computer.Clock.LocalTime.Day + ' If _day.Length = 1 Then + ' _day = "0" & _day + ' End If + ' Dim type = _Uordner.Replace("[V%", "") + ' type = type.Replace("]", "") + ' Select Case type + ' Case "YYYY/MM/DD" + ' folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day + ' newFolder = newFolder & folder_temp & "\" + ' Case "YYYY/MM" + ' folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month + ' newFolder = newFolder & folder_temp & "\" + ' Case "YYYY" + ' folder_temp = My.Computer.Clock.LocalTime.Year + ' newFolder = newFolder & folder_temp & "\" + ' Case "YYYY-MM" + ' folder_temp = My.Computer.Clock.LocalTime.Year & "-" & _Month + ' newFolder = newFolder & folder_temp & "\" + ' End Select + ' End If + ' 'Überprüfen ob es ein manueller Ordner ist + ' If _Uordner.StartsWith("[MF%") Then + ' folder_temp = _Uordner.Replace("[MF%", "") + ' folder_temp = folder_temp.Replace("]", "") + ' newFolder = newFolder & folder_temp & "\" + ' End If + 'Next + + + If LogErrorsOnly = False Then ClassLogger.Add(" ...Den Root-Folder zusammenfügen...", False) + Dim fullpath As String = RootFolder & "\" & folderindex & "\" + fullpath.Replace("\\", "\") + If LogErrorsOnly = False Then ClassLogger.Add(" ...Fullpath (mit evtl. Sonderzeichen (SZ)) '" & fullpath & "'", False) + Dim invalidPathChars() As Char = Path.GetInvalidPathChars() + For Each sonderChar As Char In invalidPathChars + 'Sonderzeichen ausser Whitespace entfernen + If Char.IsWhiteSpace(sonderChar) = False Then + If fullpath.Contains(sonderChar) Then + fullpath = fullpath.Replace(sonderChar, "") + End If + End If + Next sonderChar + If LogErrorsOnly = False Then ClassLogger.Add(" ...Fullpath (ohne SZ) '" & fullpath & "'", False) + If Directory.Exists(fullpath) = False Then + Directory.CreateDirectory(fullpath) + If LogErrorsOnly = False Then ClassLogger.Add(" ...Folder '" & fullpath & "' wurde angelegt", False) + End If + + 'Die aktuelle Datei soll gleichzeitig verschoben werden + Dim extension As String = Path.GetExtension(fullfilename) + Dim Dateiname As String = Path.GetFileName(fullfilename) + Dim _Pfad, _WDLaufwerk, _Ziel As String + _Ziel = fullpath & Dateiname + If LogErrorsOnly = False Then ClassLogger.Add(" ...Ziel: " & _Ziel, False) + 'Nur verschieben und überprüfen wenn Pfad ungleich + If Path.GetDirectoryName(fullfilename) <> Path.GetDirectoryName(_Ziel) Then + Dim Stammname As String = _Ziel.Substring(0, _Ziel.LastIndexOf(".")) + Dim version As Integer = 2 + Do While File.Exists(_Ziel) = True + If LogErrorsOnly = False Then ClassLogger.Add(" ...Achtung: Datei ' " & Path.GetFileName(_Ziel) & "' existiert bereits!", False) + Dim neuername As String = Stammname & "~" & version & extension + _Ziel = neuername + version = version + 1 + Loop + My.Computer.FileSystem.MoveFile(fullfilename, _Ziel) + ClassLogger.Add(" >> Datei wurde nach CrFolderIndex-Methode erfolgreich verschoben", False) + CURRENT_NEWFILENAME = _Ziel + Else + ClassLogger.Add(" >> (CrFolderForIndex) Quell- und Zielordner identisch", False) + If Path.GetFileName(fullfilename) <> Path.GetFileName(_Ziel) And File.Exists(_Ziel) Then + ClassLogger.Add(" >> (CrFolderForIndex) Quell- und Zielname nicht identisch", False) + FileSystem.Rename(_Ziel, Path.GetDirectoryName(_Ziel) & Path.GetFileName(fullfilename)) + ClassLogger.Add(" >> Datei wurde nach CrFolderIndex-Methode umbenannt", False) + CURRENT_NEWFILENAME = _Ziel + End If + End If + + Return True + 'Else + 'ClassLogger.Add(" >> Es konnte kein dynamischer Pfad generiert werden", True) + 'Return False + 'End If + + Catch ex As Exception + ClassLogger.Add(" >> Fehler in CrFolderForIndex: " & ex.Message, True) + Return False + End Try + End Function + + Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click + If ToolStripButton1.Text = "Top Most = False" Then + ToolStripButton1.Text = "Top Most = True" + Me.TopMost = False + ToolStripButton1.Checked = True + Else + ToolStripButton1.Text = "Top Most = False" + Me.TopMost = True + ToolStripButton1.Checked = False + End If + End Sub + + Private Sub chkdelete_origin_CheckedChanged(sender As Object, e As EventArgs) Handles chkdelete_origin.CheckedChanged + Delete_OriginFile = chkdelete_origin.Checked + SaveConfigValue("Delete_OriginFile", Delete_OriginFile) + End Sub +End Class diff --git a/Global_Indexer/frmLicense.designer.vb b/Global_Indexer/frmLicense.designer.vb new file mode 100644 index 0000000..6b6bfea --- /dev/null +++ b/Global_Indexer/frmLicense.designer.vb @@ -0,0 +1,272 @@ + _ +Partial Class frmLicense + 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.btnPW_check = New System.Windows.Forms.Button() + Me.txtPW = New System.Windows.Forms.TextBox() + Me.lblPW = New System.Windows.Forms.Label() + Me.grbBoxlicense = New System.Windows.Forms.GroupBox() + Me.txtProfile = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtlicensekey = New System.Windows.Forms.TextBox() + Me.lblReadKey = New System.Windows.Forms.Label() + Me.btnnewLicenses = New System.Windows.Forms.Button() + Me.txtNewlicences = New System.Windows.Forms.TextBox() + Me.lblnewlicenses = New System.Windows.Forms.Label() + Me.lblAktuelleLizenzen = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtHotKey = New System.Windows.Forms.TextBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker() + Me.Label3 = New System.Windows.Forms.Label() + Me.dtpGueltig_HK = New System.Windows.Forms.DateTimePicker() + Me.grbBoxlicense.SuspendLayout() + Me.SuspendLayout() + ' + 'btnPW_check + ' + Me.btnPW_check.Location = New System.Drawing.Point(318, 2) + Me.btnPW_check.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.btnPW_check.Name = "btnPW_check" + Me.btnPW_check.Size = New System.Drawing.Size(193, 32) + Me.btnPW_check.TabIndex = 29 + Me.btnPW_check.Text = "Open License Manager" + Me.btnPW_check.UseVisualStyleBackColor = True + ' + 'txtPW + ' + Me.txtPW.Location = New System.Drawing.Point(120, 7) + Me.txtPW.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txtPW.Name = "txtPW" + Me.txtPW.Size = New System.Drawing.Size(192, 23) + Me.txtPW.TabIndex = 28 + Me.txtPW.UseSystemPasswordChar = True + ' + 'lblPW + ' + Me.lblPW.AutoSize = True + Me.lblPW.Location = New System.Drawing.Point(8, 10) + Me.lblPW.Name = "lblPW" + Me.lblPW.Size = New System.Drawing.Size(108, 16) + Me.lblPW.TabIndex = 27 + Me.lblPW.Text = "Master Passwort:" + ' + 'grbBoxlicense + ' + Me.grbBoxlicense.Controls.Add(Me.Label3) + Me.grbBoxlicense.Controls.Add(Me.dtpGueltig_HK) + Me.grbBoxlicense.Controls.Add(Me.Label5) + Me.grbBoxlicense.Controls.Add(Me.dtpGueltig_GI) + Me.grbBoxlicense.Controls.Add(Me.txtHotKey) + Me.grbBoxlicense.Controls.Add(Me.Label4) + Me.grbBoxlicense.Controls.Add(Me.txtProfile) + Me.grbBoxlicense.Controls.Add(Me.Label2) + Me.grbBoxlicense.Controls.Add(Me.txtlicensekey) + Me.grbBoxlicense.Controls.Add(Me.lblReadKey) + Me.grbBoxlicense.Controls.Add(Me.btnnewLicenses) + Me.grbBoxlicense.Controls.Add(Me.txtNewlicences) + Me.grbBoxlicense.Controls.Add(Me.lblnewlicenses) + Me.grbBoxlicense.Controls.Add(Me.lblAktuelleLizenzen) + Me.grbBoxlicense.Location = New System.Drawing.Point(11, 42) + Me.grbBoxlicense.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.grbBoxlicense.Name = "grbBoxlicense" + Me.grbBoxlicense.Padding = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.grbBoxlicense.Size = New System.Drawing.Size(520, 308) + Me.grbBoxlicense.TabIndex = 26 + Me.grbBoxlicense.TabStop = False + Me.grbBoxlicense.Text = "Lizenzanzahl ändern (nur Administrator):" + Me.grbBoxlicense.Visible = False + ' + 'txtProfile + ' + Me.txtProfile.Location = New System.Drawing.Point(194, 91) + Me.txtProfile.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txtProfile.Name = "txtProfile" + Me.txtProfile.Size = New System.Drawing.Size(31, 23) + Me.txtProfile.TabIndex = 11 + Me.txtProfile.Text = "5" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(7, 94) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(91, 16) + Me.Label2.TabIndex = 10 + Me.Label2.Text = "Anzahl Profile:" + ' + 'txtlicensekey + ' + Me.txtlicensekey.Location = New System.Drawing.Point(10, 221) + Me.txtlicensekey.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txtlicensekey.Multiline = True + Me.txtlicensekey.Name = "txtlicensekey" + Me.txtlicensekey.Size = New System.Drawing.Size(490, 67) + Me.txtlicensekey.TabIndex = 7 + ' + 'lblReadKey + ' + Me.lblReadKey.AutoSize = True + Me.lblReadKey.Location = New System.Drawing.Point(7, 201) + Me.lblReadKey.Name = "lblReadKey" + Me.lblReadKey.Size = New System.Drawing.Size(105, 16) + Me.lblReadKey.TabIndex = 6 + Me.lblReadKey.Text = "Neuer Lizenzkey:" + ' + 'btnnewLicenses + ' + Me.btnnewLicenses.Image = Global.Global_Indexer.My.Resources.Resources.key_go + Me.btnnewLicenses.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnnewLicenses.Location = New System.Drawing.Point(359, 175) + Me.btnnewLicenses.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.btnnewLicenses.Name = "btnnewLicenses" + Me.btnnewLicenses.Size = New System.Drawing.Size(141, 38) + Me.btnnewLicenses.TabIndex = 5 + Me.btnnewLicenses.Text = "Erzeuge Key" + Me.btnnewLicenses.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnnewLicenses.UseVisualStyleBackColor = True + ' + 'txtNewlicences + ' + Me.txtNewlicences.Location = New System.Drawing.Point(194, 62) + Me.txtNewlicences.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txtNewlicences.Name = "txtNewlicences" + Me.txtNewlicences.Size = New System.Drawing.Size(31, 23) + Me.txtNewlicences.TabIndex = 4 + Me.txtNewlicences.Text = "1" + ' + 'lblnewlicenses + ' + Me.lblnewlicenses.AutoSize = True + Me.lblnewlicenses.Location = New System.Drawing.Point(7, 65) + Me.lblnewlicenses.Name = "lblnewlicenses" + Me.lblnewlicenses.Size = New System.Drawing.Size(186, 16) + Me.lblnewlicenses.TabIndex = 3 + Me.lblnewlicenses.Text = "Anzahl GlobalIndexer Lizenzen:" + ' + 'lblAktuelleLizenzen + ' + Me.lblAktuelleLizenzen.AutoSize = True + Me.lblAktuelleLizenzen.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAktuelleLizenzen.Location = New System.Drawing.Point(7, 31) + Me.lblAktuelleLizenzen.Name = "lblAktuelleLizenzen" + Me.lblAktuelleLizenzen.Size = New System.Drawing.Size(65, 16) + Me.lblAktuelleLizenzen.TabIndex = 2 + Me.lblAktuelleLizenzen.Text = "Label13" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(7, 124) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(136, 16) + Me.Label4.TabIndex = 13 + Me.Label4.Text = "Anzahl HotKey-Option:" + ' + 'txtHotKey + ' + Me.txtHotKey.Location = New System.Drawing.Point(194, 121) + Me.txtHotKey.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.txtHotKey.Name = "txtHotKey" + Me.txtHotKey.Size = New System.Drawing.Size(31, 23) + Me.txtHotKey.TabIndex = 14 + Me.txtHotKey.Text = "0" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(325, 65) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(65, 16) + Me.Label5.TabIndex = 16 + Me.Label5.Text = "Gültigkeit:" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'dtpGueltig_GI + ' + Me.dtpGueltig_GI.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpGueltig_GI.Location = New System.Drawing.Point(396, 62) + Me.dtpGueltig_GI.Name = "dtpGueltig_GI" + Me.dtpGueltig_GI.Size = New System.Drawing.Size(104, 23) + Me.dtpGueltig_GI.TabIndex = 15 + Me.dtpGueltig_GI.Value = New Date(2099, 12, 31, 0, 0, 0, 0) + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(325, 124) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(65, 16) + Me.Label3.TabIndex = 18 + Me.Label3.Text = "Gültigkeit:" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'dtpGueltig_HK + ' + Me.dtpGueltig_HK.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpGueltig_HK.Location = New System.Drawing.Point(396, 121) + Me.dtpGueltig_HK.Name = "dtpGueltig_HK" + Me.dtpGueltig_HK.Size = New System.Drawing.Size(104, 23) + Me.dtpGueltig_HK.TabIndex = 17 + Me.dtpGueltig_HK.Value = New Date(2099, 12, 31, 0, 0, 0, 0) + ' + 'frmLicense + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(542, 363) + Me.Controls.Add(Me.btnPW_check) + Me.Controls.Add(Me.txtPW) + Me.Controls.Add(Me.lblPW) + Me.Controls.Add(Me.grbBoxlicense) + Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmLicense" + Me.Text = "Lizenzmanager" + Me.grbBoxlicense.ResumeLayout(False) + Me.grbBoxlicense.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents btnPW_check As System.Windows.Forms.Button + Friend WithEvents txtPW As System.Windows.Forms.TextBox + Friend WithEvents lblPW As System.Windows.Forms.Label + Friend WithEvents grbBoxlicense As System.Windows.Forms.GroupBox + Friend WithEvents txtlicensekey As System.Windows.Forms.TextBox + Friend WithEvents lblReadKey As System.Windows.Forms.Label + Friend WithEvents btnnewLicenses As System.Windows.Forms.Button + Friend WithEvents txtNewlicences As System.Windows.Forms.TextBox + Friend WithEvents lblnewlicenses As System.Windows.Forms.Label + Friend WithEvents lblAktuelleLizenzen As System.Windows.Forms.Label + + Friend WithEvents txtProfile As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtHotKey As System.Windows.Forms.TextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents dtpGueltig_HK As System.Windows.Forms.DateTimePicker + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents dtpGueltig_GI As System.Windows.Forms.DateTimePicker +End Class diff --git a/Global_Indexer/frmLicense.resx b/Global_Indexer/frmLicense.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Global_Indexer/frmLicense.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/Global_Indexer/frmLicense.vb b/Global_Indexer/frmLicense.vb new file mode 100644 index 0000000..a06b3a5 --- /dev/null +++ b/Global_Indexer/frmLicense.vb @@ -0,0 +1,91 @@ +Imports DLLLicenseManager +Public Class frmLicense + Public _lizenzManager As ClassLicenseManager + Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click + If Me.txtPW.Text <> "" Then + If Me.txtPW.Text = "35452dd!" Then + Me.grbBoxlicense.Visible = True + Refresh_Licence(False) + Me.lblPW.Visible = False + Me.txtPW.Visible = False + Me.btnPW_check.Visible = False + Else + Me.grbBoxlicense.Visible = False + MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:") + Me.txtPW.Text = "" + Me.txtPW.Focus() + End If + End If + End Sub + + Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click + Try + If Me.txtNewlicences.Text <> "" And txtProfile.Text <> "" Then + 'Encode the license + Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtProfile.Text & "#" & txtHotKey.Text, "#DigitalData35452!#") + txtlicensekey.Text = result + Dim sql As String = "UPDATE TBGI_CONFIGURATION SET LICENSEKEY = '" & result & "' where guid = 1" + If ClassDatabase.Execute_non_Query(sql, True) = True Then + Refresh_Licence(True) + End If + + 'MsgBox("Die Lizenzen wurden erfolgreich aktualisiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung:") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei New Licenses:") + End Try + End Sub + Sub Refresh_Licence(Neu As Boolean) + Dim lizenzzahl As Integer + Try + Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") + Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1" + + Dim lic As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString) + Dim licString = Me._lizenzManager.DecodeLicenseKey(lic) + + Dim split() = licString.ToString.Split("#") + + If lic <> "" Then + lizenzzahl = split(0) + License_Anzahl = lizenzzahl + Else + lizenzzahl = "0" + End If + txtNewlicences.Text = lizenzzahl + dtpGueltig_GI.Value = split(1) + If CDate(split(1)) < CDate(Now.ToShortDateString) Then + License_Expired = True + Else + License_Expired = False + End If + + txtProfile.Text = split(2) + Try + txtHotKey.Text = split(3) + Catch ex As Exception + txtHotKey.Text = 0 + End Try + + Me.lblAktuelleLizenzen.Text = "Aktuelle Anzahl Lizenzen: " & lizenzzahl + If Neu = True Then + If CInt(lizenzzahl) > 0 Then + MsgBox("Die Lizenz wurde aktualisiert!", MsgBoxStyle.Information, "Erfolgsmeldung:") + End If + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:") + End Try + End Sub + + Private Sub frmLicense_Load(sender As Object, e As System.EventArgs) Handles Me.Load + Try + grbBoxlicense.Visible = False + Me.lblPW.Visible = True + Me.txtPW.Visible = True + Me.btnPW_check.Visible = True + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Formular Load:") + End Try + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmNamenkonvention.designer.vb b/Global_Indexer/frmNamenkonvention.designer.vb new file mode 100644 index 0000000..efbff80 --- /dev/null +++ b/Global_Indexer/frmNamenkonvention.designer.vb @@ -0,0 +1,380 @@ + _ +Partial Class frmNamenkonvention + 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() + Me.Label1 = New System.Windows.Forms.Label() + Me.txtnamenKonv = New System.Windows.Forms.TextBox() + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btnAddIndexA = New System.Windows.Forms.Button() + Me.btnAddIndexM = New System.Windows.Forms.Button() + Me.cmbIndex_A = New System.Windows.Forms.ComboBox() + Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New Global_Indexer.MyDataset() + Me.cmbIndex_m = New System.Windows.Forms.ComboBox() + Me.TBDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Label3 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.btnVersionTZ = New System.Windows.Forms.Button() + Me.btnTrennzeichen = New System.Windows.Forms.Button() + Me.btnVersion = New System.Windows.Forms.Button() + Me.btndelete = New System.Windows.Forms.Button() + Me.btnOK = New System.Windows.Forms.Button() + Me.btnclose = New System.Windows.Forms.Button() + Me.TBKONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBDD_INDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MANTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.TBDD_INDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter() + Me.cmbDate = New System.Windows.Forms.ComboBox() + Me.Label20 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.GroupBox1.SuspendLayout() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.GroupBox2.SuspendLayout() + CType(Me.TBKONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(9, 20) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(438, 51) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben" & _ + " die Möglichkeit den Dateinamen aus den unten aufgeführten" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Indizes und Textbaus" & _ + "teinen zusammenzustellen." + ' + 'txtnamenKonv + ' + Me.txtnamenKonv.Location = New System.Drawing.Point(12, 74) + Me.txtnamenKonv.Name = "txtnamenKonv" + Me.txtnamenKonv.Size = New System.Drawing.Size(401, 25) + Me.txtnamenKonv.TabIndex = 1 + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.btnAddIndexA) + Me.GroupBox1.Controls.Add(Me.btnAddIndexM) + Me.GroupBox1.Controls.Add(Me.cmbIndex_A) + Me.GroupBox1.Controls.Add(Me.cmbIndex_m) + Me.GroupBox1.Controls.Add(Me.Label3) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Location = New System.Drawing.Point(12, 114) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(237, 122) + Me.GroupBox1.TabIndex = 2 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Indexe zur Auswahl:" + ' + 'btnAddIndexA + ' + Me.btnAddIndexA.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnAddIndexA.Location = New System.Drawing.Point(187, 89) + Me.btnAddIndexA.Name = "btnAddIndexA" + Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23) + Me.btnAddIndexA.TabIndex = 5 + Me.btnAddIndexA.UseVisualStyleBackColor = True + ' + 'btnAddIndexM + ' + Me.btnAddIndexM.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnAddIndexM.Location = New System.Drawing.Point(187, 41) + Me.btnAddIndexM.Name = "btnAddIndexM" + Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23) + Me.btnAddIndexM.TabIndex = 4 + Me.btnAddIndexM.UseVisualStyleBackColor = True + ' + 'cmbIndex_A + ' + Me.cmbIndex_A.DataSource = Me.TBDD_INDEX_AUTOMBindingSource + Me.cmbIndex_A.DisplayMember = "INDEXNAME" + Me.cmbIndex_A.FormattingEnabled = True + Me.cmbIndex_A.Location = New System.Drawing.Point(9, 89) + Me.cmbIndex_A.Name = "cmbIndex_A" + Me.cmbIndex_A.Size = New System.Drawing.Size(172, 25) + Me.cmbIndex_A.TabIndex = 3 + Me.cmbIndex_A.ValueMember = "GUID" + ' + 'TBDD_INDEX_AUTOMBindingSource + ' + Me.TBDD_INDEX_AUTOMBindingSource.DataMember = "TBDD_INDEX_AUTOM" + Me.TBDD_INDEX_AUTOMBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'cmbIndex_m + ' + Me.cmbIndex_m.DataSource = Me.TBDD_INDEX_MANBindingSource + Me.cmbIndex_m.DisplayMember = "NAME" + Me.cmbIndex_m.FormattingEnabled = True + Me.cmbIndex_m.Location = New System.Drawing.Point(9, 41) + Me.cmbIndex_m.Name = "cmbIndex_m" + Me.cmbIndex_m.Size = New System.Drawing.Size(172, 25) + Me.cmbIndex_m.TabIndex = 2 + Me.cmbIndex_m.ValueMember = "GUID" + ' + 'TBDD_INDEX_MANBindingSource + ' + Me.TBDD_INDEX_MANBindingSource.DataMember = "TBDD_INDEX_MAN" + Me.TBDD_INDEX_MANBindingSource.DataSource = Me.MyDataset + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(6, 69) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(129, 17) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Automatischer Index:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 21) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(104, 17) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Manueller Index:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Button2) + Me.GroupBox2.Controls.Add(Me.btnVersionTZ) + Me.GroupBox2.Controls.Add(Me.btnTrennzeichen) + Me.GroupBox2.Controls.Add(Me.btnVersion) + Me.GroupBox2.Location = New System.Drawing.Point(255, 114) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(192, 183) + Me.GroupBox2.TabIndex = 3 + Me.GroupBox2.TabStop = False + Me.GroupBox2.Text = "Variablen:" + ' + 'btnVersionTZ + ' + Me.btnVersionTZ.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnVersionTZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVersionTZ.Location = New System.Drawing.Point(6, 105) + Me.btnVersionTZ.Name = "btnVersionTZ" + Me.btnVersionTZ.Size = New System.Drawing.Size(163, 43) + Me.btnVersionTZ.TabIndex = 7 + Me.btnVersionTZ.Text = "Versionstrennzeichen einfügen" + Me.btnVersionTZ.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVersionTZ.UseVisualStyleBackColor = True + ' + 'btnTrennzeichen + ' + Me.btnTrennzeichen.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnTrennzeichen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTrennzeichen.Location = New System.Drawing.Point(6, 56) + Me.btnTrennzeichen.Name = "btnTrennzeichen" + Me.btnTrennzeichen.Size = New System.Drawing.Size(163, 43) + Me.btnTrennzeichen.TabIndex = 6 + Me.btnTrennzeichen.Text = "Dateitrennzeichen einfügen" + Me.btnTrennzeichen.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTrennzeichen.UseVisualStyleBackColor = True + ' + 'btnVersion + ' + Me.btnVersion.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnVersion.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVersion.Location = New System.Drawing.Point(6, 21) + Me.btnVersion.Name = "btnVersion" + Me.btnVersion.Size = New System.Drawing.Size(163, 29) + Me.btnVersion.TabIndex = 5 + Me.btnVersion.Text = "Versionstag einfügen" + Me.btnVersion.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVersion.UseVisualStyleBackColor = True + ' + 'btndelete + ' + Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete2 + Me.btndelete.Location = New System.Drawing.Point(419, 74) + Me.btndelete.Name = "btndelete" + Me.btndelete.Size = New System.Drawing.Size(28, 25) + Me.btndelete.TabIndex = 4 + Me.btndelete.UseVisualStyleBackColor = True + ' + 'btnOK + ' + Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.database_save1 + Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOK.Location = New System.Drawing.Point(261, 303) + Me.btnOK.Name = "btnOK" + Me.btnOK.Size = New System.Drawing.Size(94, 36) + Me.btnOK.TabIndex = 5 + Me.btnOK.Text = "Speichern" + Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnOK.UseVisualStyleBackColor = True + ' + 'btnclose + ' + Me.btnclose.Location = New System.Drawing.Point(361, 303) + Me.btnclose.Name = "btnclose" + Me.btnclose.Size = New System.Drawing.Size(86, 36) + Me.btnclose.TabIndex = 6 + Me.btnclose.Text = "Abbruch" + Me.btnclose.UseVisualStyleBackColor = True + ' + 'TBKONFIGURATIONBindingSource + ' + Me.TBKONFIGURATIONBindingSource.DataMember = "TBKONFIGURATION" + ' + 'TBDD_INDEX_MANTableAdapter + ' + Me.TBDD_INDEX_MANTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + 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 = Me.TBDD_INDEX_MANTableAdapter + 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.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_INDEX_AUTOMTableAdapter + ' + Me.TBDD_INDEX_AUTOMTableAdapter.ClearBeforeFill = True + ' + 'cmbDate + ' + Me.cmbDate.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cmbDate.FormattingEnabled = True + Me.cmbDate.Items.AddRange(New Object() {"YY_MM_DD", "YYYY_MM_DD", "DD_MM_YY", "DD_MM_YYYY"}) + Me.cmbDate.Location = New System.Drawing.Point(21, 267) + Me.cmbDate.Name = "cmbDate" + Me.cmbDate.Size = New System.Drawing.Size(172, 23) + Me.cmbDate.TabIndex = 8 + ' + 'Label20 + ' + Me.Label20.AutoSize = True + Me.Label20.Location = New System.Drawing.Point(18, 249) + Me.Label20.Name = "Label20" + Me.Label20.Size = New System.Drawing.Size(99, 17) + Me.Label20.TabIndex = 7 + Me.Label20.Text = "Datum-Struktur:" + ' + 'Button1 + ' + Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.Button1.Location = New System.Drawing.Point(199, 265) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(30, 23) + Me.Button1.TabIndex = 9 + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(6, 153) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(163, 29) + Me.Button2.TabIndex = 8 + Me.Button2.Text = "OriginalName" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'frmNamenkonvention + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(467, 359) + Me.ControlBox = False + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.cmbDate) + Me.Controls.Add(Me.Label20) + Me.Controls.Add(Me.btnclose) + Me.Controls.Add(Me.btnOK) + Me.Controls.Add(Me.btndelete) + Me.Controls.Add(Me.GroupBox2) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.txtnamenKonv) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmNamenkonvention" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Assistent zur Namenskonvention:" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_INDEX_MANBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.GroupBox2.ResumeLayout(False) + CType(Me.TBKONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtnamenKonv As System.Windows.Forms.TextBox + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + + + + + Friend WithEvents btnAddIndexM As System.Windows.Forms.Button + Friend WithEvents cmbIndex_A As System.Windows.Forms.ComboBox + Friend WithEvents cmbIndex_m As System.Windows.Forms.ComboBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents btnAddIndexA As System.Windows.Forms.Button + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents btnVersion As System.Windows.Forms.Button + Friend WithEvents btndelete As System.Windows.Forms.Button + Friend WithEvents btnOK As System.Windows.Forms.Button + Friend WithEvents btnclose As System.Windows.Forms.Button + Friend WithEvents btnTrennzeichen As System.Windows.Forms.Button + + Friend WithEvents TBKONFIGURATIONBindingSource As System.Windows.Forms.BindingSource + + Friend WithEvents btnVersionTZ As System.Windows.Forms.Button + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBDD_INDEX_MANBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_INDEX_MANTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_MANTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TBDD_INDEX_AUTOMBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_INDEX_AUTOMTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_INDEX_AUTOMTableAdapter + Friend WithEvents cmbDate As System.Windows.Forms.ComboBox + Friend WithEvents Label20 As System.Windows.Forms.Label + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button +End Class diff --git a/Global_Indexer/frmNamenkonvention.resx b/Global_Indexer/frmNamenkonvention.resx new file mode 100644 index 0000000..47d6699 --- /dev/null +++ b/Global_Indexer/frmNamenkonvention.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 1004, 17 + + + 1004, 17 + + + 257, 17 + + + 257, 17 + + + 367, 17 + + + 367, 17 + + + 17, 17 + + + 602, 17 + + + 831, 17 + + + 1254, 17 + + \ No newline at end of file diff --git a/Global_Indexer/frmNamenkonvention.vb b/Global_Indexer/frmNamenkonvention.vb new file mode 100644 index 0000000..993dbbd --- /dev/null +++ b/Global_Indexer/frmNamenkonvention.vb @@ -0,0 +1,107 @@ +Public Class frmNamenkonvention + Dim FILE_DELIMITER As String + Dim VERSION_DELIMITER As String + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAddIndexM.Click + If Not Me.cmbIndex_m.Text = "" Then + 'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version] + Dim text As String = "[%m" & Me.cmbIndex_m.Text.ToString.ToUpper & "]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End If + End Sub + + Private Sub btnAddIndexA_Click(sender As Object, e As EventArgs) Handles btnAddIndexA.Click + If Not Me.cmbIndex_A.Text = "" Then + 'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version] + Dim text As String = "[%a" & Me.cmbIndex_A.Text.ToString.ToUpper & "]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End If + End Sub + + Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + + End Sub + + Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + Dim sql As String = "select VERSION_DELIMITER, FILE_DELIMITER FROM TBDD_MODULES WHERE GUID = 1" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + For Each row As DataRow In DT.Rows + FILE_DELIMITER = row.Item("FILE_DELIMITER") + VERSION_DELIMITER = row.Item("VERSION_DELIMITER") + Next + TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, frmAdministration._aktDokart_Id) + Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, frmAdministration._aktDokart_Id) + txtnamenKonv.Text = frmAdministration._Namenkonvention + Catch ex As Exception + MsgBox("Fehler beim Laden der Grunddaten zur Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click + + End Sub + + Private Sub btnVersion_Click(sender As Object, e As EventArgs) Handles btnVersion.Click + If txtnamenKonv.Text.Contains("[%Version]") Then + MsgBox("Versionstag ist bereits enthalten!", MsgBoxStyle.Exclamation) + Exit Sub + End If + Dim text As String = "[%Version]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End Sub + + Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click + txtnamenKonv.Text = "" + End Sub + + Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + frmAdministration._Namenkonvention = txtnamenKonv.Text + Me.Close() + End Sub + + Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click + Me.Close() + End Sub + + Private Sub btnTrennzeichen_Click(sender As Object, e As EventArgs) Handles btnTrennzeichen.Click + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, FILE_DELIMITER) + Me.txtnamenKonv.SelectionStart = altePosition + FILE_DELIMITER.Length + End Sub + + Private Sub btnVersionTZ_Click(sender As Object, e As EventArgs) Handles btnVersionTZ.Click + + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, VERSION_DELIMITER) + Me.txtnamenKonv.SelectionStart = altePosition + VERSION_DELIMITER.Length + End Sub + + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click + If Not Me.cmbDate.Text = "" Then + 'AREANLAGE-[%mARENR]-[%aKurzname]-I[%Version] + Dim text As String = "[%v" & Me.cmbDate.Text.ToString.ToUpper & "]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End If + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + If Not txtnamenKonv.Text.Contains("[%vOFilename]") Then + Dim text As String = "[%vOFilename]" + Dim altePosition As Integer = Me.txtnamenKonv.SelectionStart() + Me.txtnamenKonv.Text = Me.txtnamenKonv.Text.Insert(altePosition, text) + Me.txtnamenKonv.SelectionStart = altePosition + text.Length + End If + + + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb b/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb new file mode 100644 index 0000000..201f93c --- /dev/null +++ b/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb @@ -0,0 +1,185 @@ + _ +Partial Class SQLConfigAutoIndex + 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 SQL_ERGEBNISLabel As System.Windows.Forms.Label + Me.btnVorschlag = New System.Windows.Forms.Button() + Me.SQL_ERGEBNISTextBox = New System.Windows.Forms.TextBox() + Me.cmbConnection = New System.Windows.Forms.ComboBox() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New Global_Indexer.MyDataset() + Me.TBDD_CONNECTIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnsave = New System.Windows.Forms.Button() + Me.lblSave = New System.Windows.Forms.Label() + SQL_ERGEBNISLabel = New System.Windows.Forms.Label() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SQL_ERGEBNISLabel + ' + SQL_ERGEBNISLabel.AutoSize = True + SQL_ERGEBNISLabel.Location = New System.Drawing.Point(12, 66) + SQL_ERGEBNISLabel.Name = "SQL_ERGEBNISLabel" + SQL_ERGEBNISLabel.Size = New System.Drawing.Size(157, 13) + SQL_ERGEBNISLabel.TabIndex = 50 + SQL_ERGEBNISLabel.Text = "SQL für automatischen Index:" + ' + 'btnVorschlag + ' + Me.btnVorschlag.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnVorschlag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVorschlag.Location = New System.Drawing.Point(675, 79) + Me.btnVorschlag.Name = "btnVorschlag" + Me.btnVorschlag.Size = New System.Drawing.Size(151, 25) + Me.btnVorschlag.TabIndex = 48 + Me.btnVorschlag.Text = "Teste Vorschlagsliste" + Me.btnVorschlag.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVorschlag.UseVisualStyleBackColor = True + ' + 'SQL_ERGEBNISTextBox + ' + Me.SQL_ERGEBNISTextBox.AcceptsReturn = True + Me.SQL_ERGEBNISTextBox.AcceptsTab = True + Me.SQL_ERGEBNISTextBox.Location = New System.Drawing.Point(15, 82) + Me.SQL_ERGEBNISTextBox.Multiline = True + Me.SQL_ERGEBNISTextBox.Name = "SQL_ERGEBNISTextBox" + Me.SQL_ERGEBNISTextBox.Size = New System.Drawing.Size(654, 136) + Me.SQL_ERGEBNISTextBox.TabIndex = 47 + ' + 'cmbConnection + ' + Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.cmbConnection.DisplayMember = "BEZEICHNUNG" + Me.cmbConnection.FormattingEnabled = True + Me.cmbConnection.Location = New System.Drawing.Point(15, 24) + Me.cmbConnection.Name = "cmbConnection" + Me.cmbConnection.Size = New System.Drawing.Size(268, 21) + Me.cmbConnection.TabIndex = 53 + Me.cmbConnection.ValueMember = "GUID" + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter + 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.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Button1 + ' + Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.database_connect + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(289, 22) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(122, 23) + Me.Button1.TabIndex = 54 + Me.Button1.Text = "SQL-Connections" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnsave + ' + Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.btnsave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnsave.Location = New System.Drawing.Point(736, 187) + Me.btnsave.Name = "btnsave" + Me.btnsave.Size = New System.Drawing.Size(90, 31) + Me.btnsave.TabIndex = 55 + Me.btnsave.Text = "Speichern" + Me.btnsave.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnsave.UseVisualStyleBackColor = True + ' + 'lblSave + ' + Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(445, 221) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(224, 17) + Me.lblSave.TabIndex = 79 + Me.lblSave.Text = "SQL-Daten erfolgreich gespeichert!" + Me.lblSave.Visible = False + ' + 'SQLConfigAutoIndex + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(833, 251) + Me.Controls.Add(Me.lblSave) + Me.Controls.Add(Me.btnsave) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.cmbConnection) + Me.Controls.Add(Me.btnVorschlag) + Me.Controls.Add(SQL_ERGEBNISLabel) + Me.Controls.Add(Me.SQL_ERGEBNISTextBox) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "SQLConfigAutoIndex" + Me.Text = "Konfiguration SQL" + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents btnVorschlag As System.Windows.Forms.Button + Friend WithEvents SQL_ERGEBNISTextBox As System.Windows.Forms.TextBox + Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents btnsave As System.Windows.Forms.Button + Friend WithEvents lblSave As System.Windows.Forms.Label +End Class diff --git a/Global_Indexer/frmSQLConfigAutoIndex.resx b/Global_Indexer/frmSQLConfigAutoIndex.resx new file mode 100644 index 0000000..7edc170 --- /dev/null +++ b/Global_Indexer/frmSQLConfigAutoIndex.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + 127, 17 + + + 17, 17 + + + 371, 17 + + + 609, 17 + + \ No newline at end of file diff --git a/Global_Indexer/frmSQLConfigAutoIndex.vb b/Global_Indexer/frmSQLConfigAutoIndex.vb new file mode 100644 index 0000000..ef149e3 --- /dev/null +++ b/Global_Indexer/frmSQLConfigAutoIndex.vb @@ -0,0 +1,113 @@ +Imports Oracle.ManagedDataAccess.Client +Public Class SQLConfigAutoIndex + + Private Sub btnVorschlag_Click(sender As Object, e As EventArgs) Handles btnVorschlag.Click + TestSQL(cmbConnection.SelectedValue, SQL_ERGEBNISTextBox.Text) + End Sub + Private Sub TestSQL(conid As Integer, sql_Vorschlag As String) + Try + Dim connectionString As String + + Dim i As Integer + + connectionString = ClassFormFunctions.GetConnectionString(conid) + If connectionString <> "" Then + If connectionString.Contains("Initial Catalog=") Then + Dim sqlCnn As SqlClient.SqlConnection + Dim sqlCmd As SqlClient.SqlCommand + Dim adapter As New SqlClient.SqlDataAdapter + Dim NewDataset As New DataSet + sqlCnn = New SqlClient.SqlConnection(connectionString) + sqlCnn.Open() + sqlCmd = New SqlClient.SqlCommand(sql_Vorschlag, sqlCnn) + adapter.SelectCommand = sqlCmd + adapter.Fill(NewDataset) + Dim msg As String + For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine + If i = 30 Then + Exit For + End If + Next + adapter.Dispose() + sqlCmd.Dispose() + sqlCnn.Close() + MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information) + + ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains(";Persist Security Info=True;User Id=") Then + Dim sqlCnn As OracleConnection + Dim sqlCmd As OracleCommand + Dim adapter As OracleDataAdapter + Dim NewDataset As DataSet + sqlCnn = New OracleConnection(connectionString) + ' Try + sqlCnn.Open() + sqlCmd = New OracleCommand(sql_Vorschlag, sqlCnn) + adapter.SelectCommand = sqlCmd + adapter.Fill(NewDataset) + Dim msg As String + For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine + If i = 30 Then + Exit For + End If + Next + adapter.Dispose() + sqlCmd.Dispose() + sqlCnn.Close() + MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information) + End If + Else + MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation) + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:") + End Try + End Sub + + Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION) + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO) + If DT.Rows.Count = 1 Then + Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID") + SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT") + End If + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + frmConnections.ShowDialog() + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION) + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnsave.Click + Try + Dim origresultstring = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO, MyConnectionString, True) + 'Dim origConnection = ClassDatabase.Execute_Scalar("SELECT CONNECTION_ID FROM TBDD_INDEX_AUTOM WHERE GUID = " & CURRENT_INDEXAUTO, True) + 'If origConnection Is DBNull Then + + 'End If + Dim insresultstring = SQL_ERGEBNISTextBox.Text.Replace("'", "''") + If insresultstring <> origresultstring Then + Dim cmd As String + cmd = "UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',CHANGED_WHO = '" & _ + Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXAUTO + If ClassDatabase.Execute_non_Query(cmd, True) = True Then + lblSave.Text = "SQL-Daten erfolgreich gespeichert - " & Now + Me.lblSave.Visible = True + Else + Me.lblSave.Visible = False + End If + + Else + Me.lblSave.Visible = True + lblSave.Text = "Keine Änderungen vorhanden" + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Save SQL IndexAuto:") + End Try + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmSQLSuggestion.Designer.vb b/Global_Indexer/frmSQLSuggestion.Designer.vb new file mode 100644 index 0000000..7f4bb1c --- /dev/null +++ b/Global_Indexer/frmSQLSuggestion.Designer.vb @@ -0,0 +1,252 @@ + _ +Partial Class frmSQLSuggestion + 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 SQL_ERGEBNISLabel As System.Windows.Forms.Label + Dim SQL_UEBERPRUEFUNGLabel As System.Windows.Forms.Label + Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.btnTestNachbearbeitung = New System.Windows.Forms.Button() + Me.txtTest_idxMan = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.btnVorschlag = New System.Windows.Forms.Button() + Me.SQL_ERGEBNISTextBox = New System.Windows.Forms.TextBox() + Me.SQL_UEBERPRUEFUNGTextBox = New System.Windows.Forms.TextBox() + Me.cmbConnection = New System.Windows.Forms.ComboBox() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.MyDataset = New Global_Indexer.MyDataset() + Me.TBDD_CONNECTIONTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.lblSave = New System.Windows.Forms.Label() + SQL_ERGEBNISLabel = New System.Windows.Forms.Label() + SQL_UEBERPRUEFUNGLabel = New System.Windows.Forms.Label() + Me.GroupBox1.SuspendLayout() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'SQL_ERGEBNISLabel + ' + SQL_ERGEBNISLabel.AutoSize = True + SQL_ERGEBNISLabel.Location = New System.Drawing.Point(12, 66) + SQL_ERGEBNISLabel.Name = "SQL_ERGEBNISLabel" + SQL_ERGEBNISLabel.Size = New System.Drawing.Size(127, 13) + SQL_ERGEBNISLabel.TabIndex = 50 + SQL_ERGEBNISLabel.Text = "SQL für Vorschlagsliste:" + ' + 'SQL_UEBERPRUEFUNGLabel + ' + SQL_UEBERPRUEFUNGLabel.AutoSize = True + SQL_UEBERPRUEFUNGLabel.Location = New System.Drawing.Point(533, 66) + SQL_UEBERPRUEFUNGLabel.Name = "SQL_UEBERPRUEFUNGLabel" + SQL_UEBERPRUEFUNGLabel.Size = New System.Drawing.Size(207, 13) + SQL_UEBERPRUEFUNGLabel.TabIndex = 51 + SQL_UEBERPRUEFUNGLabel.Text = "SQL-Überprüfung für manuellen Index:" + ' + 'GroupBox1 + ' + Me.GroupBox1.Controls.Add(Me.btnTestNachbearbeitung) + Me.GroupBox1.Controls.Add(Me.txtTest_idxMan) + Me.GroupBox1.Controls.Add(Me.Label2) + Me.GroupBox1.Location = New System.Drawing.Point(15, 229) + Me.GroupBox1.Name = "GroupBox1" + Me.GroupBox1.Size = New System.Drawing.Size(351, 77) + Me.GroupBox1.TabIndex = 52 + Me.GroupBox1.TabStop = False + Me.GroupBox1.Text = "Rückgabewert testen:" + ' + 'btnTestNachbearbeitung + ' + Me.btnTestNachbearbeitung.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnTestNachbearbeitung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnTestNachbearbeitung.Location = New System.Drawing.Point(227, 43) + Me.btnTestNachbearbeitung.Name = "btnTestNachbearbeitung" + Me.btnTestNachbearbeitung.Size = New System.Drawing.Size(103, 28) + Me.btnTestNachbearbeitung.TabIndex = 1 + Me.btnTestNachbearbeitung.Text = "Test" + Me.btnTestNachbearbeitung.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnTestNachbearbeitung.UseVisualStyleBackColor = True + ' + 'txtTest_idxMan + ' + Me.txtTest_idxMan.Location = New System.Drawing.Point(9, 46) + Me.txtTest_idxMan.Name = "txtTest_idxMan" + Me.txtTest_idxMan.Size = New System.Drawing.Size(212, 22) + Me.txtTest_idxMan.TabIndex = 0 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(6, 21) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(324, 13) + Me.Label2.TabIndex = 0 + Me.Label2.Text = "Geben Sie hier den Ausgangswert des manuellen Indexes ein:" + ' + 'btnVorschlag + ' + Me.btnVorschlag.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnVorschlag.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVorschlag.Location = New System.Drawing.Point(372, 82) + Me.btnVorschlag.Name = "btnVorschlag" + Me.btnVorschlag.Size = New System.Drawing.Size(151, 25) + Me.btnVorschlag.TabIndex = 48 + Me.btnVorschlag.Text = "Teste Vorschlagsliste" + Me.btnVorschlag.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnVorschlag.UseVisualStyleBackColor = True + ' + 'SQL_ERGEBNISTextBox + ' + Me.SQL_ERGEBNISTextBox.Location = New System.Drawing.Point(15, 82) + Me.SQL_ERGEBNISTextBox.Multiline = True + Me.SQL_ERGEBNISTextBox.Name = "SQL_ERGEBNISTextBox" + Me.SQL_ERGEBNISTextBox.Size = New System.Drawing.Size(351, 136) + Me.SQL_ERGEBNISTextBox.TabIndex = 47 + ' + 'SQL_UEBERPRUEFUNGTextBox + ' + Me.SQL_UEBERPRUEFUNGTextBox.Location = New System.Drawing.Point(536, 82) + Me.SQL_UEBERPRUEFUNGTextBox.Multiline = True + Me.SQL_UEBERPRUEFUNGTextBox.Name = "SQL_UEBERPRUEFUNGTextBox" + Me.SQL_UEBERPRUEFUNGTextBox.Size = New System.Drawing.Size(351, 137) + Me.SQL_UEBERPRUEFUNGTextBox.TabIndex = 49 + ' + 'cmbConnection + ' + Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource + Me.cmbConnection.DisplayMember = "BEZEICHNUNG" + Me.cmbConnection.FormattingEnabled = True + Me.cmbConnection.Location = New System.Drawing.Point(15, 24) + Me.cmbConnection.Name = "cmbConnection" + Me.cmbConnection.Size = New System.Drawing.Size(268, 21) + Me.cmbConnection.TabIndex = 53 + Me.cmbConnection.ValueMember = "GUID" + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.MyDataset + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBDD_CONNECTIONTableAdapter + ' + Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Me.TBDD_CONNECTIONTableAdapter + Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing + Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(289, 22) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(112, 23) + Me.Button1.TabIndex = 54 + Me.Button1.Text = "SQL-Connections" + Me.Button1.UseVisualStyleBackColor = True + ' + 'Button2 + ' + Me.Button2.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(797, 275) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(90, 31) + Me.Button2.TabIndex = 55 + Me.Button2.Text = "Speichern" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'lblSave + ' + Me.lblSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblSave.AutoSize = True + Me.lblSave.BackColor = System.Drawing.Color.Yellow + Me.lblSave.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblSave.Location = New System.Drawing.Point(533, 250) + Me.lblSave.Name = "lblSave" + Me.lblSave.Size = New System.Drawing.Size(195, 15) + Me.lblSave.TabIndex = 79 + Me.lblSave.Text = "SQL-Daten erfolgreich gespeichert!" + Me.lblSave.Visible = False + ' + 'frmSQLSuggestion + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(907, 326) + Me.Controls.Add(Me.lblSave) + Me.Controls.Add(Me.Button2) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.cmbConnection) + Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.btnVorschlag) + Me.Controls.Add(SQL_ERGEBNISLabel) + Me.Controls.Add(Me.SQL_ERGEBNISTextBox) + Me.Controls.Add(SQL_UEBERPRUEFUNGLabel) + Me.Controls.Add(Me.SQL_UEBERPRUEFUNGTextBox) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmSQLSuggestion" + Me.Text = "Konfiguration SQL" + Me.GroupBox1.ResumeLayout(False) + Me.GroupBox1.PerformLayout() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents btnTestNachbearbeitung As System.Windows.Forms.Button + Friend WithEvents txtTest_idxMan As System.Windows.Forms.TextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents btnVorschlag As System.Windows.Forms.Button + Friend WithEvents SQL_ERGEBNISTextBox As System.Windows.Forms.TextBox + Friend WithEvents SQL_UEBERPRUEFUNGTextBox As System.Windows.Forms.TextBox + Friend WithEvents cmbConnection As System.Windows.Forms.ComboBox + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBDD_CONNECTIONTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents lblSave As System.Windows.Forms.Label +End Class diff --git a/Global_Indexer/frmSQLSuggestion.resx b/Global_Indexer/frmSQLSuggestion.resx new file mode 100644 index 0000000..dc1a376 --- /dev/null +++ b/Global_Indexer/frmSQLSuggestion.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + False + + + False + + + 127, 17 + + + 17, 17 + + + 371, 17 + + + 609, 17 + + \ No newline at end of file diff --git a/Global_Indexer/frmSQLSuggestion.vb b/Global_Indexer/frmSQLSuggestion.vb new file mode 100644 index 0000000..973355e --- /dev/null +++ b/Global_Indexer/frmSQLSuggestion.vb @@ -0,0 +1,150 @@ +Imports Oracle.ManagedDataAccess.Client +Public Class frmSQLSuggestion + Dim isinsert As Boolean = False + Private Sub btnVorschlag_Click(sender As Object, e As EventArgs) Handles btnVorschlag.Click + TestSQL(cmbConnection.SelectedValue, SQL_ERGEBNISTextBox.Text) + End Sub + Private Sub TestSQL(conid As Integer, sql_Vorschlag As String) + Try + Dim connectionString As String + + Dim i As Integer + + connectionString = ClassFormFunctions.GetConnectionString(conid) + If connectionString <> "" Then + If connectionString.Contains("Initial Catalog=") Then + 'Dim DT As DataTable = ClassDatabase.Return_Datatable(sql_Vorschlag) + 'If DT Is Nothing = False Then + ' Dim y As Integer = 0 + ' For Each row As DataRow In DT.Rows + ' For Each item In row.ItemArray + ' Console.WriteLine(item) + ' Next + ' Next + 'End If + + Dim sqlCnn As SqlClient.SqlConnection + Dim sqlCmd As SqlClient.SqlCommand + Dim adapter As New SqlClient.SqlDataAdapter + Dim NewDataset As New DataSet + sqlCnn = New SqlClient.SqlConnection(connectionString) + sqlCnn.Open() + sqlCmd = New SqlClient.SqlCommand(sql_Vorschlag, sqlCnn) + adapter.SelectCommand = sqlCmd + adapter.Fill(NewDataset) + Dim msg As String + For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine + If i = 30 Then + Exit For + End If + Next + adapter.Dispose() + sqlCmd.Dispose() + sqlCnn.Close() + MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information) + + ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then + Dim sqlCnn As OracleConnection + Dim sqlCmd As OracleCommand + Dim adapter As New OracleDataAdapter + Dim NewDataset As New DataSet + sqlCnn = New OracleConnection(connectionString) + ' Try + sqlCnn.Open() + sqlCmd = New OracleCommand(sql_Vorschlag, sqlCnn) + adapter.SelectCommand = sqlCmd + adapter.Fill(NewDataset) + Dim msg As String + For i = 0 To NewDataset.Tables(0).Rows.Count - 1 + msg &= NewDataset.Tables(0).Rows(i).Item(0) & vbNewLine + If i = 30 Then + Exit For + End If + Next + adapter.Dispose() + sqlCmd.Dispose() + sqlCnn.Close() + MsgBox("Folgende Daten wurden erfolgreich abgerufen: " & vbNewLine & vbNewLine & msg & vbNewLine & vbNewLine & "Das Ergebnis wurd auf 30 Zeilen eingeschränkt!", MsgBoxStyle.Information) + End If + Else + MsgBox("Keine gültige ConnectionID", MsgBoxStyle.Exclamation) + End If + + Catch ex As Exception + ClassLogger.Add(" - Unvorhergesehener Fehler bei TestSQL - Fehler: " & vbNewLine & ex.Message) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei TestSQL:") + End Try + End Sub + + Private Sub frmSQLSuggestion_Load(sender As Object, e As EventArgs) Handles Me.Load + Try + 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_CONNECTION". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION) + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN) + If DT.Rows.Count = 1 Then + Me.cmbConnection.SelectedValue = DT.Rows(0).Item("CONNECTION_ID") + SQL_ERGEBNISTextBox.Text = DT.Rows(0).Item("SQL_RESULT") + SQL_UEBERPRUEFUNGTextBox.Text = DT.Rows(0).Item("SQL_CHECK") + Else + isinsert = True + End If + lblSave.Visible = True + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Open Form:") + End Try + + End Sub + + Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBDD_CONNECTIONBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.MyDataset) + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + frmConnections.ShowDialog() + Me.TBDD_CONNECTIONTableAdapter.Fill(Me.MyDataset.TBDD_CONNECTION) + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + Try + Dim origresultstring = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True) + Dim origcheckstring = ClassDatabase.Execute_Scalar("SELECT SQL_CHECK FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True) + Dim origConnection = ClassDatabase.Execute_Scalar("SELECT CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True) + Dim insresultstring = SQL_ERGEBNISTextBox.Text.Replace("'", "''") + Dim inscheckstring = SQL_UEBERPRUEFUNGTextBox.Text.Replace("'", "''") + If insresultstring <> origresultstring Or _ + inscheckstring <> origcheckstring Then + Dim cmd As String + cmd = "UPDATE TBDD_INDEX_MAN SET CONNECTION_ID = " & cmbConnection.SelectedValue & ",SQL_RESULT = '" & insresultstring & "',SQL_CHECK = '" & inscheckstring & "',CHANGED_WHO = '" & _ + Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXMAN + If ClassDatabase.Execute_non_Query(cmd, True) = True Then + lblSave.Text = "SQL-Daten erfolgreich gespeichert - " & Now + Me.lblSave.Visible = True + Else + Me.lblSave.Visible = False + End If + + Else + Me.lblSave.Visible = True + lblSave.Text = "Keine Änderungen vorhanden" + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Save SQl IndexMan:") + End Try + End Sub + + Private Sub btnTestNachbearbeitung_Click(sender As Object, e As EventArgs) Handles btnTestNachbearbeitung.Click + 'Die Nachbearbeitungsschritte laden + Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & CURRENT_INDEXMAN & " ORDER BY SEQUENCE") + If DTNB Is Nothing = False Then + If DTNB.Rows.Count > 0 Then + Dim value As String = ClassPostprocessing.Get_Nachbearbeitung_Wert(txtTest_idxMan.Text, DTNB) + MsgBox("Der Rückgabewert - nach Durchlaufen von (" & DTNB.Rows.Count.ToString & ") Nachbearbeitungsfunktionen lautet: '" & value & "'", MsgBoxStyle.Exclamation) + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmSQL_Admin.designer.vb b/Global_Indexer/frmSQL_Admin.designer.vb new file mode 100644 index 0000000..32f8796 --- /dev/null +++ b/Global_Indexer/frmSQL_Admin.designer.vb @@ -0,0 +1,314 @@ + _ +Partial Class frmSQL_Admin + 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(frmSQL_Admin)) + Me.Label1 = New System.Windows.Forms.Label() + Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.btnrunSQL = New System.Windows.Forms.Button() + Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtSQL = New System.Windows.Forms.TextBox() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + 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.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + Me.XtraTabPage2.SuspendLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() + CType(Me.BindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(14, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(122, 17) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Aktuelle Verbindung:" + ' + 'TextBox1 + ' + Me.TextBox1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBox1.Location = New System.Drawing.Point(17, 32) + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.ReadOnly = True + Me.TextBox1.Size = New System.Drawing.Size(727, 25) + Me.TextBox1.TabIndex = 1 + ' + 'btnrunSQL + ' + Me.btnrunSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnrunSQL.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnrunSQL.Image = Global.Global_Indexer.My.Resources.Resources.database_go + Me.btnrunSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnrunSQL.Location = New System.Drawing.Point(17, 474) + Me.btnrunSQL.Name = "btnrunSQL" + Me.btnrunSQL.Size = New System.Drawing.Size(125, 33) + Me.btnrunSQL.TabIndex = 4 + Me.btnrunSQL.Text = "SQL ausführen" + Me.btnrunSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnrunSQL.UseVisualStyleBackColor = True + ' + 'OpenFileDialog1 + ' + Me.OpenFileDialog1.FileName = "OpenFileDialog1" + ' + 'Button1 + ' + Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.folder_Open_32xSM + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.Location = New System.Drawing.Point(750, 86) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 43) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "Open SQL" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtSQL + ' + Me.txtSQL.AcceptsReturn = True + Me.txtSQL.AcceptsTab = True + Me.txtSQL.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.txtSQL.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSQL.Location = New System.Drawing.Point(3, 3) + Me.txtSQL.Multiline = True + Me.txtSQL.Name = "txtSQL" + Me.txtSQL.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.txtSQL.Size = New System.Drawing.Size(715, 371) + Me.txtSQL.TabIndex = 3 + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Location = New System.Drawing.Point(17, 63) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(727, 405) + Me.XtraTabControl1.TabIndex = 6 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.Controls.Add(Me.txtSQL) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(721, 377) + Me.XtraTabPage1.Text = "Auszuführender SQL-Befehl" + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Controls.Add(Me.GridControl1) + Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1) + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(721, 377) + Me.XtraTabPage2.Text = "Ergebnis:" + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Nothing + Me.BindingNavigator1.BindingSource = Me.BindingSource1 + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.CountItemFormat = "von {0} Datensätzen" + Me.BindingNavigator1.DeleteItem = Nothing + Me.BindingNavigator1.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.BindingNavigator1.Location = New System.Drawing.Point(0, 0) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + Me.BindingNavigator1.Size = New System.Drawing.Size(721, 25) + Me.BindingNavigator1.TabIndex = 0 + Me.BindingNavigator1.Text = "BindingNavigator1" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(111, 22) + Me.BindingNavigatorCountItem.Text = "von {0} Datensätzen" + 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) + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.BindingSource1 + 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(721, 352) + 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.Cyan + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Appearance.OddRow.BackColor = System.Drawing.Color.White + Me.GridView1.Appearance.OddRow.Options.UseBackColor = True + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.Editable = False + Me.GridView1.OptionsBehavior.ReadOnly = True + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + Me.GridView1.OptionsView.EnableAppearanceOddRow = True + Me.GridView1.OptionsView.ShowAutoFilterRow = True + ' + 'frmSQL_Admin + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(826, 519) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.btnrunSQL) + Me.Controls.Add(Me.TextBox1) + Me.Controls.Add(Me.Label1) + Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) + Me.Name = "frmSQL_Admin" + Me.Text = "SQL-Admin" + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + Me.XtraTabPage2.ResumeLayout(False) + Me.XtraTabPage2.PerformLayout() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() + CType(Me.BindingSource1, 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 Label1 As System.Windows.Forms.Label + Friend WithEvents TextBox1 As System.Windows.Forms.TextBox + Friend WithEvents btnrunSQL As System.Windows.Forms.Button + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog + Friend WithEvents txtSQL As System.Windows.Forms.TextBox + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingSource1 As System.Windows.Forms.BindingSource + 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 +End Class diff --git a/Global_Indexer/frmSQL_Admin.resx b/Global_Indexer/frmSQL_Admin.resx new file mode 100644 index 0000000..3614138 --- /dev/null +++ b/Global_Indexer/frmSQL_Admin.resx @@ -0,0 +1,301 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 159, 17 + + + 159, 17 + + + 313, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + AAABAAMAEBAAAAEACABoBQAANgAAACAgAAABAAgAqAgAAJ4FAAAwMAAAAQAIAKgOAABGDgAAKAAAABAA + AAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAADO3NEAvP+7AK/9rwCj+aMApvumAKT5 + pQCn+qcAmfqbAJ35ngCX8ZgAkfSTAJHzkwC1/7cAOCw4AK3/sACs4asApd6nAI/WjwCH1YcAd9J3AGfN + ZwBpzGkAac5oAGPLYwBYyVgAQsVCAAChAAC4/7gAsfuyAKffpwCg3KAAgNSBAIHVgQBqzmoA2/HbAJ/j + oQBQx1AAQ8VDAErFSgAdtRwAm9ieAKH5pACO148Af9OAANTv0wBw03EATsdPAM7uzQCP35AAG7cbAH/U + fwCJ2okAOL84ADG9MQCb2Z4AnvmgAIbVhQCA1YEAhteHAP///wBXylcAteW1AG3PbgBz1XIAILwgADq+ + OgAruywAnNudAJr2nQB00XMAas9qAFbIVwB303gAteS1ACy/LAAVuBUAze3OABK1EgAduR0AKMMoACW3 + JACc2p4AlPeXAF3KXQDI7sgAxO3EAJ/fngBJxUgAVctWAE/HUAALvQsAp+CoAKPtowCj4aMABK8EAJ/Z + oQCI8owAVcdVAKbhqACl4acAiNmKADrEOwBWylYAVsZVAADJAACE34UAheiHAILfgwAIuAcAn9ihAIj1 + jABMyEwAW8hbAELCQACO3I4A0O7QACi/KAAlyyUA7vHuACrNKgAN3g0AHeIdAAjACACg16IAgu+EAEPD + QgBJyEkAnN6dADPAMwDH6scAiNeIAD7PQAA12jYAJeIlAAy/CwCg16EAhO+HADXANQA6xDoAteS0AE3H + TAA8xT0AzO3LAIPhhgAqzCoASthMAG3abQAe4x4ADcAMAIXwhwAluSQARcVFADLAMgAswCwAxezFAIPg + hQAY3xgAIOIgAB/iHwAn5ScADLkMAJzWngCJ540AAJ4AABqwGAAftB4AIrUiACq7KQACrQAAALMAAB3C + HQAAvQAABMEDAAO+AwAAmAAAxf/GANfi2QCf76IAk9ibAJTYmwCS25kAkdyYAJPfmQCU3ZoAk9yZAJXc + mwCS2pkAvP++ADwyPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADw8PDw8PDw8PDw8PAAAALGys7S1 + tre4ubq6u7w8ADyjpKWmp6ipqqusra6vsDw8lpeYmRqaPJydnp+goaI8PImKizyNjjyQkZI8lJV8PDx9 + fn+APIE8g4Q8hYaHiDw8b3BxcnM8dXY8eHl6e3w8PGFiY2RlZmdoaWprbG1uPDxTVDw8PFhZWls8PDxf + YDw8RUZHSEk8S0w8Tk9QUVI8PDg5Ojs8PTw/QDxBQkNEPDwqKyw8Li88MTIzPDU2Nzw8HR4fICEiPCQV + JSYnKCk8PA8QERITFBUWFxgZGhscPAA8AgMEBQYHCAkKCwwNPAAAADw8PDw8PDw8PDw8PAAAwAMAAIAB + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAQAAwAMAACgA + AAAgAAAAQAAAAAEACAAAAAAAgAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAABAgEABQkFAAsZDAAOOxAADlYQAAxnDwAKcg4ACXkMAAh7DAAIfAwAB34LAAd/ + CgAHgQoABoIJAAaECAAFhQcABYgHAAaLBwAGkQcACJcIAAibCQAJogkACaUJAAinCAAIqQcACKwIAAiu + CAAIrwgACq8KAAyvDAAQrg8AEq0SABSrFAAWqBYAGKcXABioGAAarBkAG7AbABy1HAAbuBsAG7wbABq/ + GgAawhoAGcYZABjKGAAYzhgAGNEYABjTGAAZ1RkAGNgZABvZGwAd2h0AHtweAB/dHwAg3iAAId4hACHd + IQAj2yMAJNYlACfRJwAozSgAKcgpACrCKgAqwCoAKr4qACq8KgApuykAKbopACm3KQAqtCoAKrMqACu0 + KwAtti0AL7gvADG5MQAxuTIAMrkzADO6MwAzvDMAM780ADPBNAA0wTQANME0ADa/NgA3vjcAOL84ADnC + OQA6wzoAO8M7ADzBPAA8wDwAPL48ADy+PAA8vzwAPcA9AD7BPgA/wj8AP8M/AEDDQABBw0EAQsNCAEPE + RABFxEUARsRGAEfESABIxkgAScZJAErGSgBLxksAS8ZMAEzGTQBNxk0ATcZOAE7GTgBPxk8AUMVQAFHG + UQBSxlIAU8dTAFTHVQBVx1UAVsdWAFfHVwBYx1gAWcdZAFrIWgBbyFwAXMlcAF3JXQBfyl8AYMpgAGHL + YQBiy2EAY8tjAGTMZABkzGQAZs1lAGfNZwBozWgAaM1oAGnNaQBpzWkAas1qAGzObABtzm0Abs5uAG/O + bwBwz3EActByAHTQdAB20XYAeNJ5AHrSegB703sAfdN9AH/TfwCB1IEAg9SDAIXUhQCH1YcAidWKAIrV + igCL1YsAjNaNAI7WjgCO1o8Aj9aQAJDWkACR15IAk9eTAJTYlQCW2ZYAmNqYAJvbmwCe3Z4AoN6gAKPf + owCn4KgAq+GrAK7jrwCy5LIAs+S0ALXltgC25rcAuOe5ALzovQC/6b8AwevCAMPsxADE7cYAxe7HAMbw + yADH8soAyPXLAMj3zQDJ+c4AyfrOAMn6zwDK+c8Ay/fQAM330QDO99IAz/fTAND21ADR9tUA0/XWANT0 + 1gDU9NcA1vLYANjw2gDa8NsA2/DdANzw3gDd8uAA3/TiAOD35ADg+uYA4PznAOH96ADh/ukA4f7pAOL+ + 6ADi/ugA4/7oAOT+6ADl/ukA5v7pAOf+6QDo/uoA6v7rAOv+6wDs/u0A////AO/+7gDw/u8A8P7wAPH9 + 8QDy/fIA8/zzAPX89QD3/PcA+fz4APr9+gD8/fwA/f79AP7+/gD+/v4ACAgICAgICAgICAgICAgICAgI + CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICN7s5eXl5uXl5eXl + 5eXk5eXl5eXl5eTl6P8ICAgICAjfyk8UExERERMWFBgYFxcXFxcXFxcXFxcXafAICAgICNgqGSgrKysr + K09PT08sJiQtJiEhISEjJB8QfP8ICAgI0BknLU9NXVRSU1NKTSUxUmA+Nzc3PDQ1NR4X9ggICAjOHi9M + VF1kZGRhZkl717U4Oz9AQkJAPjgyKBPzCAgICM0jT1JnZ1xMXGNkWIn802FEO0A6Oj4/QDUqEvQICAgI + zSFTXmRqf5F0bnlhlPrDWWE+OltgOz0/OSoS9QgICAjNIVlebWCv/rdce2KU+tBEdUQ519dEPUA4KhL1 + CAgICM0hZG14YaX4/8FpXJf9yXo5Wf7/vD49QjgqEvUICAgIzSJkdHV/eaT+/7Voh9q3W3PH/8k4Oj9C + OCoS9QgICAjNJm9zgIWFaKH1/6JbYW8+vP++Rjo/PkI4KhL1CAgICM4vdX+Eg4OGbqi/l2tydluOwUU4 + Qj49QDcoEvUICAgIzimCiHZ7gnV7cVp9enV7azY6NDY3NzU2QysS9QgICAjOL4CG29/e3uCsdnt0dX1n + ZjK/3NXV3rgxKxT1CAgICM5NgJLy+PX4+rF4gHZ1dnFcNcX57/D6vDAsEvUICAgI0kyRlJmXl5iRfXx4 + d3RjZ1MyVlxEWVtbSSsU9QgICAjSV5WVkp2Nl3yTp4d0enFYe5dLS0xJSUlZTxL0CAgICNRVmKKZlZSA + kd7/nldLSybB/6kkL1hIXFIrFfQICAgI1F2joqOjiZnv/8WGe7unTJju/7slSlxTXVAU8wgICAjTaaOm + oJ+o2f/femOd/sdTMI3//6oxVVNVTxTzCAgICNNnorCplb//yYKJd537x2htKIn38FZSZF1PFPUICAgI + 1nmqrK6mpbmciJiAnfrJbWdvUoqSXWReZFAU9QgICAjYgLG5sbCml5+jmIWj+9N8hId8Y1xmZGRdLRT1 + CAgICNiNtLu6rbGooKKjm6X+yYqUjISGe3lyZFQrE/QICAgI1Yq7vbqura2noaCgn5WKlJSUiIODg25k + VCsX9ggICAjrcaa7urOqpKWkmZiZlpubjYqLi3p4bWNRGlH/CAgICN/KhG1ra0lTWEpLS0tKMTExLycp + JCQjIRxV3ggICAgICNz/8vLy7u/v7/Dw8PDr7Ozs6+zt6+ns5v8ICAgICAgICAgICAgICAgICAgICAgI + CAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICP//////////4AAAD8AA + AAfAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AA + AAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAADwAAAA8AAAAPAAAAH4AAAD///////////KAAAADAA + AABgAAAAAQAIAAAAAACACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAIAAAAhAAABSgEAAmcCAAJzAgADdQIAAncCAAJ5AgACewIAAX0BAAF/AQABgAEAAYIBAAKE + AgAFiAUACo0KAA+SDwAUlRMAE5cTABKZEgAQmxAADJwMAAefBwAGogYABaUFAASnBAAEqQQACKwHAAuv + CwAOsA4AELAQABOvEwATshMAErYSABG5EQARvREAD8QPAA7KDgAN0A0ADNUMABDVEAAU1hQAFtcWABfX + FwAZ2RkAGtoaABvcGwAc3RwAHdsdAB/YHwAg1SAAINIgACDMIAAgxiAAH7sfAB+3HwAesh4AHq0eAB6n + HgAeoR4AIKEgACGjIQAiqCIAJK0kACWxJQAmuCYAJ7onACe6JwAnuicAKLgoACu0KwAssi0ALLEtAC2y + LgAusy4ALrguAC66LwAvuy8AL7swAC+9MAAwvDEAM7kzADS3NAA0tjQANbg1ADa9NgA3wTcAOMY5ADrD + OgA6wTsAO8A7ADy/PAA9vj0APb49AD6/PgA/vz8AQMBAAEHAQQBBwEIAQsFCAEPCQwBDxEQARcRGAEbI + RwBGyEcAR8dIAEjESQBIw0kASL1KAEexSwBGpksARp9MAEeeTgBKnlEATZ5UAE6fVgBPo1YAT7lRAE/B + UABPwk8AUMNQAFDEUABQxlAAUcZRAFLJUgBTyVMAU8pUAFXJVQBWyFYAWMdYAFnHWgBbyFsAXMhdAF3J + XgBeyV4AX8pfAGDKYABhymEAYstjAGTMZABkyWUAZMdmAGbIZwBoy2gAactqAGrMawBszWwAbc5uAG/P + bwBwz3AAcc9xAHHPcgByz3MAc89zAHTPdAB10HUAddF2AHbUdwB41XkAetR6AHzSfAB90n0AftJ+AH/S + fwCA0oAAgdGCAIPRgwCE0YUAhdKGAIfShwCJ0okAitOKAIrUigCM1owAjtmOAJDakACS2pMAlNqVAJfa + mACa3JoAm92cAJ3enQCf3p8AoN6gAKPeowCl3aUAp96nAKnfqQCr36sAreCtAK7hrgCv4q8AsOOwALLl + sgCz5rMAtOe0ALfotgC56bkAv+q/AMXrxQDL7MoAzuzNANDtzwDT7dEA1O7SANbu0wDY79YA2vDYANvy + 2gDf9N4A4/bjAOf45wDp+ekA6vnrAOv57ADs+e4A7PnvAOz58QDr+fMA6/jzAOv48wDr+PQA6/j0AOr4 + 9ADq+PQA6vj0AOv59QDs+fQA7vr0APD69ADy+/QA8/v0APT79QD2+/YA9/v2APn79wD7+vgA/fn4AP75 + +AD++fgA/vn5AP37+wD9/f0A/v7+AP7+/gD+/v4A////AP7+/gAHBwcHBwcHBwcHBwcHBwcHBwcHBwcH + BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH + BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH + BwcHBwcHB+LV3+rq5uLi4urq5urm5urq6urm6urq6urq6ubm5ubm5urq7eIHBwcHBwcHBwcH4tW2fHd3 + eHd3d3h4eHh4d3d3d3d4eHh4eHh4eHh4eHh4eHd3lcbiBwcHBwcHBwfi15ZEFA4ODAwMDAwMEBAPEBIS + EhITFBMTExQUFBQUFBQUFBQREVvB4gcHBwcHBwfPrRgVGBgYGRkZGRkZQ0NDQ0NDQxsgICAdHR8fHx8f + Hx8fICAfFQ13yOIHBwcHBwfiQxgXGhpDQkdHR0dGREdHR0dHR0hMKT9XTCkkJiYmJiYmJSokHhUSmfYH + BwcHBwfiFRklJ0ZGQUhbUVFQTlZUTExMQCg/SVNXOjQ0NDQ0NDUzJjMzJB4Qe/gHBwcHBwfiHxwnQEBI + UFFbW1tbWF1ZWElYnse1VzM1NjY3Nzc3Nzc2MiwrKR0Pe/YHBwcHBwfiIiNBR0lVW1tZWVxZWVlZXU1d + w//ecTs5NzY2Nzg4NzY2NzIrKBsOe/YHBwcHBwfiIiRBSFNdXV1dTUlUXV1ZZ1hlxP/th2ZfNDM4Mi8v + MTg2NzcxKRoOe/gHBwcHBwfiIkFJT1tcXWJpZ2hjY2hnbV1uxf/ebWFfODMzMjQ1NDY2NTcyKRoOe/gH + BwcHBwfiIkFMU1tcYmKFu8SrYWdycl1yyf/ecDxfXzkvX7e3cS81NjcyKRoOe/gHBwcHBwfiIkFNV11i + a2GO7v/Wk2Vscl1uyP/hlTtfcDo5uf/trC80NjcyKRoOe/gHBwcHBwfiIkFTXGJsbl6M2v//3I9qgV1u + yP/gi4JfMV7O///boS80NjcyKRoOe/gHBwcHBwfiIlBbYmtubG5/ndT6/9uZVVVyyP/fX18zOMf7/9qc + NDI2NjcyKRoOe/gHBwcHBwfiIkhSYm1tboB+bKrS+v/Sq2Zmrc26cF+Evd7/2qU0Lzg2NjcyKRoOe/gH + BwcHBwfiIkxdY2xzf4CAfmmi1vr/zX5ecXFohDyl2v/esTsvNDg2NjcyKRoOe/gHBwcHBwfiJlRna3N/ + gICAhXNqnNn/zoVdZ2BiczGT3P2mO1c6NDY2NjcxKRwOe/gHBwcHBwfiJ1lncoCAgICAgIdzc6OxnYFr + a2xubGBfjqVfLzo5NDg2NjcxKRwOe/gHBwcHBwfiJ1NshYBpY2xzaGZoaWldbIBzaW1tbl88MzMsLS8v + Ly8vLDE4PhoOe/gHBwcHBwfiJ1l/foqjrqyxq6isp4pzc3NubG1tcztXXzxtkYeGhoaHk188SRsOe/gH + BwcHBwfiJ2aBY6HY//Dy8vP/2pdzf25sbW1ucl5dTT6///Hv7+/w/6o/QRsPe/gHBwcHBwfiJ2eAaKjY + //Pz8/r62pdzgHNubG1ubmRbSTy+//Py8vLz/6tJQBsOe/gHBwcHBwfiKGWDhZ7CzcbIx8jMvox+gHNu + bGtjZV1cTDyTv7m2t7m5v4hMPxsOe/gHBwcHBwfiP2iLlIyBf4F/f4FzZ3R+c25tbmhdWV1VTElAJiot + LCcpJj5MSBsPe/gHBwcHBwfiP3OMkY6QmpuOjpGKf39/gIBza21sXV1YTExMTExMTExMTExMVUQNe/YH + BwcHBwfiSX6Kl5mRj5KQkZJ/is/wwHJecWtdXD+Y1NmKJE1ISVdMTExMSBsPe/gHBwcHBwfiTXSQnaKa + l5SPj3ORzvP/zYFZXT8/WCiu3//SiyMnU0xMTFtQRxsPe/YHBwcHBwfiTX+aoqGhop2Pf5nL8v/fvnNi + kqycZj+Oz/r/0IkpKVVSTFJRUEQPe/YHBwcHBwfiTYmco6OioqKZl83w//O5iGdyv/HUc05Ji9L//9CI + Pk5bTU5SUUQPe/YHBwcHBwfiTYubqKujnZyqzvD/8L+AameFzP/ugVM/P4vR//rPiylSTFNRUEQPe/YH + BwcHBwfiTYmZq7Otope0+v/uwIF/imyHzP/eiF1lUyiK0f/vuCVMV1pRUEQPe/gHBwcHBwfiU4yeqrKz + q5ms1NnFf4mTj26Ay//fjmdjXV1AitTQo0JVXFRbW0QPe/gHBwcHBwfiYpmts7Kxsqyfo6iajo+Qkn+J + y//fjWZiYmliWWJlXVlcW1tbW0MPe/gHBwcHBwfiYpmtubqzsLKrmZeanZyUkYGPzf/glHRzf39zYllY + WVlZW1xbUEMPe/gHBwcHBwfiY6OtusG7s7Gyq6Geo6OamYqSzf/tnYCKi4B/cnJuZmJiXVxSRxsPe/gH + BwcHBwfiZa22usLCuK+zs6yjn5+ip5iYx+/Rn4yRkYmAh4Bzc3JuXVtRRxsOe/gHBwcHBwfiY6u9wcPB + uK+xsbOsoZ+hoqGho6OXkZCQkZCJgICAgH9sXVtRRxsOe/gHBwcHBwfiYqOzvMXDubGzqKeno6Oak5eX + lIuKj5SPiYmHgIBycmxdXVlNRxsXlfgHBwcHBwfip3KXs7q6ta6ooZ2fn5qRjo6Pj5GUlIyHg4OEh4Nt + Z2liWlNOGxVEuuIHBwcHBwfi2KWNiICAgXNkZGRkZFxZWVlZWVlUVE1JSUhASEAnJycmHyAeFlCv4gcH + BwcHBwcH4tW3koaGhoZxcXFxcXFxcXFxcXFfX19fX11ZXV1dWVhMWVdAdb7iBwcHBwcHBwcHB+L///// + /////////////////////////////////////////+IHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH + BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH + BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH + Bwf///////8AAP///////wAA////////AAD4AAAAAD8AAPAAAAAAHwAA4AAAAAAPAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAH + AADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAAcAAOAA + AAAABwAA4AAAAAAHAADgAAAAAAcAAOAAAAAABwAA4AAAAAAHAADgAAAAAA8AAPAAAAAAHwAA+AAAAAA/ + AAD///////8AAP///////wAA////////AAA= + + + \ No newline at end of file diff --git a/Global_Indexer/frmSQL_Admin.vb b/Global_Indexer/frmSQL_Admin.vb new file mode 100644 index 0000000..a6d3c79 --- /dev/null +++ b/Global_Indexer/frmSQL_Admin.vb @@ -0,0 +1,87 @@ +Imports System +Imports System.IO +Imports System.Collections + +Public Class frmSQL_Admin + + Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click + + If txtSQL.Text <> "" Then + If txtSQL.Text.ToLower.StartsWith("select") Then + Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, True) + If Not dt Is Nothing Then + If dt.Rows.Count > 0 Then + XtraTabControl1.SelectedTabPageIndex = 1 + BindingSource1.DataSource = dt + End If + End If + Else + Dim result As MsgBoxResult = MsgBox("Bitte bestätigen Sie das Ausführen des SQL-Befehls?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + ' wenn Speichern ja + If result = MsgBoxResult.Yes Then + Try + Me.Cursor = Cursors.WaitCursor + + Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString) + connection.Open() + Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection) + cmd.ExecuteNonQuery() + MsgBox("Der SQL-Befehl wurde erfolgreich ausgeführt!", MsgBoxStyle.Information, "Erfolgsmeldung:") + connection.Close() + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:") + End Try + Cursor = Cursors.Default + End If + End If + End If + + + End Sub + Sub Load_ConString(constr As String) + Dim csb As New SqlClient.SqlConnectionStringBuilder + csb.ConnectionString = MyConnectionString + constr = constr.Replace(csb.Password, "XXXXX") + Me.TextBox1.Text = constr + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Try + With OpenFileDialog1 + ' Do + + .Title = "Wählen Sie bitte die SQL-File:" + If .ShowDialog() = DialogResult.OK Then + Dim FILE_NAME As String = .FileName + Dim objReader As New System.IO.StreamReader(FILE_NAME) + txtSQL.Text = objReader.ReadToEnd + objReader.Close() + End If + End With + + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei open-File:") + End Try + + End Sub + + Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load + Load_ConString(MyConnectionString) + End Sub + + Private Sub txtSQL_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress + If e.KeyChar = Convert.ToChar(1) Then + DirectCast(sender, TextBox).SelectAll() + e.Handled = True + End If + End Sub + + Private Sub GridView1_KeyDown(sender As Object, e As KeyEventArgs) Handles GridView1.KeyDown + If e.Control AndAlso e.KeyCode = Keys.C Then + If GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn) IsNot Nothing AndAlso GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn).ToString() <> String.Empty Then + Clipboard.SetText(GridView1.GetRowCellValue(GridView1.FocusedRowHandle, GridView1.FocusedColumn).ToString()) + Else + MsgBox("The value in the selected cell is null or empty!", MsgBoxStyle.Information) + End If + End If + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmStart.Designer.vb b/Global_Indexer/frmStart.Designer.vb new file mode 100644 index 0000000..d6a61bd --- /dev/null +++ b/Global_Indexer/frmStart.Designer.vb @@ -0,0 +1,236 @@ + _ +Partial Class frmStart + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart)) + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.GlobalIndexerEinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.HotkeyEisntellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AApiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel() + Me.tslblFW = New System.Windows.Forms.ToolStripStatusLabel() + Me.MyDataset = New Global_Indexer.MyDataset() + Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() + Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() + Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components) + Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components) + Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) + Me.MenuStrip1.SuspendLayout() + Me.StatusStrip1.SuspendLayout() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'MenuStrip1 + ' + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem}) + Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(265, 24) + Me.MenuStrip1.TabIndex = 5 + Me.MenuStrip1.Text = "MenuStrip1" + ' + 'KonfigurationToolStripMenuItem + ' + Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.AApiToolStripMenuItem}) + Me.KonfigurationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG + Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" + Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(108, 20) + Me.KonfigurationToolStripMenuItem.Text = "Konfiguration" + ' + 'AdministrationToolStripMenuItem + ' + Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem}) + Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6 + Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" + Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.AdministrationToolStripMenuItem.Text = "Administration" + ' + 'GlobalIndexerEinstellungenToolStripMenuItem + ' + Me.GlobalIndexerEinstellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6 + Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem" + Me.GlobalIndexerEinstellungenToolStripMenuItem.Size = New System.Drawing.Size(231, 22) + Me.GlobalIndexerEinstellungenToolStripMenuItem.Text = "Global Indexer - Einstellungen" + ' + 'HotkeyEisntellungenToolStripMenuItem + ' + Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x + Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem" + Me.HotkeyEisntellungenToolStripMenuItem.Size = New System.Drawing.Size(231, 22) + Me.HotkeyEisntellungenToolStripMenuItem.Text = "Hotkey - Einstellungen" + ' + 'ToolStripSeparator1 + ' + Me.ToolStripSeparator1.Name = "ToolStripSeparator1" + Me.ToolStripSeparator1.Size = New System.Drawing.Size(201, 6) + ' + 'GrundeinstellungenToolStripMenuItem + ' + Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem" + Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen User" + ' + 'FrmHotkeyAddToolStripMenuItem + ' + Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x + Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem" + Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User" + ' + 'AApiToolStripMenuItem + ' + Me.AApiToolStripMenuItem.Name = "AApiToolStripMenuItem" + Me.AApiToolStripMenuItem.Size = New System.Drawing.Size(204, 22) + Me.AApiToolStripMenuItem.Text = "AApi" + Me.AApiToolStripMenuItem.Visible = False + ' + 'StatusStrip1 + ' + Me.StatusStrip1.AllowDrop = True + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblFW}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 111) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Size = New System.Drawing.Size(265, 22) + Me.StatusStrip1.TabIndex = 6 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'tslblstatus + ' + Me.tslblstatus.BackColor = System.Drawing.SystemColors.Control + Me.tslblstatus.Name = "tslblstatus" + Me.tslblstatus.Size = New System.Drawing.Size(121, 17) + Me.tslblstatus.Text = "ToolStripStatusLabel1" + Me.tslblstatus.Visible = False + ' + 'tslblFW + ' + Me.tslblFW.BackColor = System.Drawing.SystemColors.Control + Me.tslblFW.Image = Global.Global_Indexer.My.Resources.Resources.bell_go + Me.tslblFW.Name = "tslblFW" + Me.tslblFW.Size = New System.Drawing.Size(133, 17) + Me.tslblFW.Text = "FolderWatch ist aktiv" + Me.tslblFW.Visible = False + ' + 'MyDataset + ' + Me.MyDataset.DataSetName = "MyDataset" + Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBHOTKEY_USER_PROFILEBindingSource + ' + Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" + Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset + ' + 'TBHOTKEY_USER_PROFILETableAdapter + ' + Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + 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 = Me.TBHOTKEY_USER_PROFILETableAdapter + Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TimerFolderWatch + ' + Me.TimerFolderWatch.Interval = 2000 + ' + 'TimerClose3Minutes + ' + Me.TimerClose3Minutes.Interval = 180000 + ' + 'NotifyIcon1 + ' + Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon) + Me.NotifyIcon1.Text = "GlobalIndexer" + ' + 'frmStart + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ActiveCaption + Me.ClientSize = New System.Drawing.Size(265, 133) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.MenuStrip1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, 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.Name = "frmStart" + Me.Text = "Global Indexer" + Me.TopMost = True + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip + Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents GlobalIndexerEinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents HotkeyEisntellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents AApiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip + Friend WithEvents tslblstatus As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel + Friend WithEvents MyDataset As Global_Indexer.MyDataset + Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter + Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager + Friend WithEvents TimerFolderWatch As System.Windows.Forms.Timer + Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer + Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon +End Class diff --git a/Global_Indexer/frmStart.resx b/Global_Indexer/frmStart.resx new file mode 100644 index 0000000..ad049c1 --- /dev/null +++ b/Global_Indexer/frmStart.resx @@ -0,0 +1,722 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 132, 17 + + + 249, 17 + + + 359, 17 + + + 17, 56 + + + 284, 56 + + + 457, 56 + + + 608, 56 + + + 17, 95 + + + + + AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA + AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAFAAAABQAAAAQAAAAFAAAABAAAAAQAAAADAAAAAgAA + AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAEAAAAEAAAABQAAAAL///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAAAwAAAAUAAAADAAAAAf///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAAAwAAAAT///8A////AP///wD///8AAAAABgAAACEAAAA8AAAAUgAA + AF8AAABsAAAAcgAAAGUAAABbAAAASQAAADEAAAAYAAAAAv///wD///8A////AP///wAAAAAEAAAAA/// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wAAAAAEAAAAAv///wD///8AAAAABwAAAD4AAAB9AAAAtQAA + AN0AAAD3AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA8AAAANYAAACtAAAAdwAA + ADoAAAAH////AP///wAAAAABAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAMAAAAC////AP///wAAAAAzAAAAkQAA + AN4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP4AAAD8AAAA+wAAAPsAAAD7AAAA+wAAAPwAAAD9AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA3QAAAJYAAAA8////AP///wAAAAAEAAAAAv///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8A////AAAA + AEEAAAC5AAAA/wAAAP8AAAD/AAAA/gAAAPwAAAD6AAAA+QAAAPoAAAD7AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/gAAAPoAAAD5AAAA+QAAAPkAAAD7AAAA/gAAAP8AAAD/AAAA/wAAAMcAAABF////AP// + /wAAAAAD////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAgAA + AAL///8AAAAAIAAAAKwAAAD/AAAA/wAAAP4AAAD3AAAA/AAAAP8AAAD9AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD7AAAA/QAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP4AAAD9AAAA+wAA + AP4AAAD/AAAA/wAAAIgAAAAE////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8AAAAABP///wD///8AAAAAZgAAAPQAAAD/AAAA/gAAAPgAAAD/AAAA/wAAAP8AAAD8AAAA/wAA + ANgAAACXAAAAeAAAAGUAAABKAAAAJwAAAC8AAAAfAAAAsQAAAP8AAADTAAAAbAAAAJkAAACvAAAA1gAA + AP8AAAD+AAAA/wAAAP8AAAD/AAAA+wAAAP4AAAD/AAAAzwAAABD///8AAAAABP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAAAEAAAApAAAAP8AAAD/AAAA+gAAAPsAAAD/AAAA/wAA + AKMAAADQAAAA/wAAAP8AAAA5////AP///wD///8A////AP///wD///8A////AAAAALsAAAD/AAAApv// + /wD///8A////AP///wAAAAC+AAAA/wAAAPwAAAD/AAAA/QAAAP4AAAD+AAAA+QAAAP8AAADB////AP// + /wAAAAAC////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAAAVAAAAzAAAAP8AAAD8AAAA/AAA + AP8AAAD/AAAAwQAAAC////8AAAAA1AAAAP8AAADS////AAAAAAIAAAAEAAAABAAAAAMAAAAD////AAAA + AA0AAADiAAAA/wAAAJT///8AAAAABgAAAAf///8AAAAAXQAAAP8AAAD8AAAA/gAAAP8AAAD/AAAA/AAA + AP8AAAD6AAAA/wAAALH///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAA////wAAAAAhAAAA3gAA + AP8AAAD6AAAA/QAAAP8AAAD3AAAAaP///wD///8AAAAAOgAAAP8AAAD/AAAAkP///wAAAAAE////AP// + /wD///8AAAAAAf///wAAAAAMAAAA5gAAAP8AAACA////AAAAAAQAAAAC////AAAAABsAAADvAAAA/wAA + AP4AAACxAAAA8QAAAP8AAAD8AAAA/wAAAPsAAAD/AAAAcv///wAAAAAF////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAv// + /wAAAAAQAAAA4QAAAP8AAAD6AAAA/gAAAP0AAAD/AAAA2QAAAGIAAAA2////AAAAAHUAAAD/AAAA/wAA + AFT///8AAAAABwAAAAIAAAABAAAAAQAAAAL///8AAAAAEAAAAOcAAAD/AAAAcv///wAAAAAE////AAAA + AAL///8AAAAAtQAAAP8AAAD/AAAAfQAAABoAAADfAAAA/wAAAPwAAAD+AAAA/wAAAPkAAAAm////AAAA + AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAT///8AAAAAjgAAAP8AAAD5AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AM0AAADhAAAA/wAAAPIAAAAQ////AP///wD///8A////AP///wAAAAAC////AAAAACgAAAD2AAAA/wAA + AGn///8AAAAACAAAAAQAAAAJ////AAAAAHkAAAD/AAAA/wAAAMf///8AAAAACQAAAN8AAAD/AAAA/QAA + APsAAAD/AAAAtf///wAAAAAB////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAT///8AAAAAPwAAAP8AAAD/AAAA/gAAAP4AAAD/AAAAbAAA + ADgAAACpAAAA7QAAAP8AAAD/AAAA/wAAAP8AAAD5AAAAnwAAAGMAAAA4AAAAHAAAAAkAAAAF////AP// + /wAAAAAwAAAA/wAAAP8AAABU////AP///wD///8A////AP///wAAAAApAAAA/wAAAP8AAADrAAAAKgAA + AGEAAADpAAAA/wAAAP0AAAD/AAAA/AAAAP8AAABb////AAAAAAT///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAB////AAAAAMYAAAD/AAAA/AAA + APsAAAD/AAAAjP///wD///8A////AAAAABoAAABnAAAAyAAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAA + AO4AAADcAAAA1QAAAMQAAACuAAAAugAAAP8AAAD/AAAAqAAAAGsAAAB1AAAAdAAAAG4AAABfAAAAZAAA + APAAAAD/AAAA/gAAAPEAAAD/AAAA/wAAAP0AAAD/AAAA/gAAAPwAAAD/AAAAyP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA + AE8AAAD/AAAA/QAAAPsAAAD/AAAAyP///wD///8AAAAABQAAAAP///8A////AAAAAFIAAAD/AAAA/gAA + ANIAAADgAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA9wAAAP8AAAD+AAAA/gAA + AP8AAAA8////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wAAAADJAAAA/wAAAPsAAAD/AAAA/wAAADr///8AAAAABP///wD///8AAAAABv// + /wAAAACJAAAA/wAAAP0AAAAvAAAABQAAAEgAAAB1AAAAqgAAANoAAADvAAAA/QAAAP8AAAD/AAAA/gAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAC2AAAAOAAA + AFAAAAD/AAAA/gAAAPsAAAD/AAAAnP///wAAAAAE////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAABWAAAA/wAAAP0AAAD7AAAA/wAAAKT///8AAAAABP// + /wD///8A////AAAAAAH///8AAAAAtgAAAP8AAADrAAAAGP///wD///8A////AP///wAAAAAGAAAAGwAA + ADUAAABLAAAAwAAAAP8AAAD/AAAAvQAAALEAAADDAAAAzgAAANMAAADbAAAA2QAAAOcAAAD/AAAA/wAA + AOEAAAA1////AP///wD///8AAAAAxwAAAP8AAAD6AAAA/wAAAOIAAAAK////AAAAAAH///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAP///8AAAAAtgAAAP8AAAD7AAAA/wAA + AP8AAAA6////AAAAAAP///8A////AAAAAAH///8AAAAACQAAAN0AAAD/AAAA0P///wAAAAABAAAABAAA + AAUAAAAD////AP///wD///8A////AAAAAJAAAAD/AAAA+AAAABr///8A////AP///wD///8AAAAACf// + /wAAAABDAAAA/wAAAP8AAADN////AP///wAAAAAJ////AAAAAGMAAAD/AAAA+wAAAP0AAAD/AAAAS/// + /wAAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAACQAA + AOAAAAD/AAAA+gAAAP8AAADB////AAAAAAH///8A////AP///wAAAAAC////AAAAACUAAAD2AAAA/wAA + AKv///8AAAAAA////wD///8A////AAAAAAEAAAACAAAABv///wAAAACsAAAA/wAAAOQAAAAR////AAAA + AAL///8A////AP///wD///8AAAAAIwAAAPcAAAD/AAAA3QAAAAz///8AAAAAA////wAAAAAYAAAA7wAA + AP8AAAD6AAAA/wAAAJz///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wAAAAAD////AAAAADMAAAD/AAAA/wAAAPsAAAD/AAAAX////wAAAAAE////AP///wD///8AAAAAA/// + /wAAAABEAAAA/wAAAP8AAACD////AAAAAAX///8A////AP///wD///8A////AAAAAAL///8AAAAAvAAA + AP8AAADTAAAAA////wAAAAABAAAAAQAAAAEAAAAD////AAAAABwAAADyAAAA/wAAANsAAAAI////AAAA + AAIAAAAC////AAAAALMAAAD/AAAA+QAAAP8AAADVAAAAAf///wAAAAAB////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAABeAAAA/wAAAPoAAAD/AAAA7AAAABf///8AAAAAAv// + /wD///8A////AAAAAAT///8AAAAAYQAAAP8AAAD/AAAAX////wAAAAAHAAAAAgAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAQAAAMsAAAD/AAAAyP///wAAAAACAAAAAf///wD///8AAAAAAv///wAAAAAVAAAA6QAA + AP8AAADbAAAACf///wAAAAABAAAABP///wAAAAB1AAAA/wAAAPoAAAD/AAAA+AAAACP///8AAAAAAv// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8AAAAAfgAAAP8AAAD6AAAA/wAA + APgAAAAp////AAAAAAYAAAAEAAAAAwAAAAIAAAAE////AAAAAHIAAAD/AAAA/wAAADv///8A////AP// + /wD///8A////AP///wD///8A////AP///wAAAADZAAAA/wAAALn///8A////AAAAAAIAAAADAAAABAAA + AAX///8AAAAAFgAAAOkAAAD/AAAA0gAAAAX///8AAAAAAQAAAAP///8AAAAASAAAAP8AAAD9AAAA/QAA + AP8AAABP////AAAAAAT///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA + AKMAAAD/AAAA+AAAAP8AAACq////AP///wD///8A////AP///wD///8AAAAAAgAAAAEAAACOAAAA/wAA + APsAAABRAAAAJQAAADkAAAA3AAAAQwAAAEQAAABDAAAARAAAAEEAAABNAAAA6wAAAP8AAAC5AAAADAAA + AAn///8A////AP///wD///8A////AAAAABEAAADoAAAA/wAAAMz///8A////AAAAAAQAAAAG////AAAA + AC0AAAD/AAAA/wAAAPsAAAD/AAAAfP///wAAAAAF////AP///wD///8A////AP///wD///8A////AP// + /wD///8AAAAAAv///wAAAAC4AAAA/wAAAPoAAAD/AAAATAAAABQAAABLAAAAaQAAAIcAAACgAAAAuQAA + ANAAAADkAAAA+wAAAP8AAAD/AAAA+gAAAPwAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA+gAAAOwAAADaAAAAxAAAAKUAAACCAAAAXQAAAC4AAAAmAAAA6QAAAP8AAADVAAAADP// + /wD///8A////AP///wAAAAAFAAAAygAAAP8AAAD4AAAA/wAAAKP///8AAAAABP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAH///8AAAAAvgAAAP8AAAD9AAAA/gAAAOEAAAD1AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA6wAA + APsAAAD/AAAA+gAAANsAAADGAAAAmgAAAFQAAAAO////AAAAAKUAAAD/AAAA+AAAAP8AAADC////AAAA + AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAMkAAAD/AAAA/AAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAPIAAADpAAAA4AAAANQAAADxAAAA/wAAAP4AAAC3AAAAmQAA + AJMAAACKAAAAiwAAAIsAAACLAAAAjQAAAJEAAACgAAAA/QAAAP8AAADSAAAAuwAAAM4AAADcAAAA6wAA + APYAAAD/AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA4gAAAHUAAADAAAAA/wAA + APoAAAD/AAAA2P///wD///8AAAAAAf///wD///8A////AP///wD///8A////AP///wAAAAAB////AP// + /wAAAADYAAAA/wAAAPwAAAD/AAAA4QAAAKcAAAB3AAAATgAAADIAAAAeAAAAEAAAAAz///8AAAAAogAA + AP8AAADwAAAAEf///wD///8A////AP///wD///8A////AP///wD///8AAAAAKgAAAP8AAAD/AAAAVf// + /wAAAAADAAAABwAAABMAAAAlAAAAOQAAAEkAAABxAAAA9AAAAP8AAADrAAAArAAAAKoAAAC4AAAA+wAA + AP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAANkAAAAB////AAAAAAH///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAAywAAAP8AAAD8AAAA/wAAADX///8A////AP///wD///8A////AP// + /wD///8A////AAAAAJ0AAAD/AAAA6wAAABz///8AAAAABgAAAAQAAAAEAAAABAAAAAQAAAAI////AAAA + AE8AAAD/AAAA/wAAAFf///8AAAAABP///wD///8A////AP///wD///8AAAAABQAAAOcAAAD/AAAAvf// + /wD///8A////AAAAAC0AAACUAAAA8AAAAP8AAAD9AAAA/QAAAP8AAADaAAAAAv///wAAAAAB////AP// + /wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAKwAAAD/AAAA+wAAAP8AAAA/////AAAA + AAcAAAADAAAAAwAAAAIAAAABAAAABP///wAAAACSAAAA/wAAAOwAAAAZ////AAAAAAL///8A////AP// + /wD///8AAAAABP///wAAAABfAAAA/wAAAP8AAABH////AAAAAAQAAAABAAAAAQAAAAIAAAAF////AAAA + ABgAAADoAAAA/wAAAML///8AAAAAAwAAAAP///8A////AAAAABUAAADMAAAA/wAAAPoAAAD/AAAA2QAA + AAH///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACUAAAA/wAA + APcAAAD/AAAAbP///wAAAAAE////AP///wD///8A////AAAAAAP///8AAAAAhAAAAP8AAADsAAAAGv// + /wAAAAAC////AP///wD///8A////AAAAAAT///8AAAAAcQAAAP8AAAD/AAAAPP///wAAAAAD////AP// + /wD///8AAAAAAv///wAAAAAbAAAA7wAAAP8AAAC9////AAAAAAEAAAABAAAAAwAAAAb///8AAAAArAAA + AP8AAAD5AAAA/wAAANb///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AAAA + AAT///8AAAAAbQAAAP8AAAD4AAAA/wAAAKv///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAA + AHMAAAD/AAAA9AAAACH///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAAAIEAAAD/AAAA+gAA + ACz///8AAAAAAv///wD///8A////AAAAAAL///8AAAAAHwAAAPMAAAD/AAAAsv///wAAAAAC////AAAA + AAH///8A////AAAAAMcAAAD/AAAA+QAAAP8AAADI////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wAAAAAD////AAAAACYAAAD6AAAA/gAAAP8AAADeAAAABf///wAAAAAB////AP// + /wD///8AAAAABP///wAAAABgAAAA/wAAAPwAAAAx////AAAAAAP///8A////AP///wD///8AAAAABP// + /wAAAACPAAAA/wAAAPMAAAAc////AAAAAAL///8A////AP///wAAAAAD////AAAAACoAAAD3AAAA/wAA + AKH///8AAAAAA////wAAAAAB////AAAAAAoAAADgAAAA/wAAAPkAAAD/AAAAtf///wAAAAAC////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAxgAAAP8AAAD7AAAA/wAA + AE3///8AAAAAA////wD///8A////AAAAAAP///8AAAAASQAAAP8AAAD/AAAARf///wAAAAAEAAAAAQAA + AAEAAAACAAAAAgAAAAb///8AAAAAnAAAAP8AAADoAAAAFf///wAAAAAFAAAAAwAAAAMAAAABAAAABP// + /wAAAAA6AAAA/QAAAP8AAACM////AAAAAAP///8AAAAAAv///wAAAAAkAAAA+AAAAP8AAAD6AAAA/wAA + AJr///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAF////AAAA + AGEAAAD/AAAA9wAAAP8AAAC7////AAAAAAL///8A////AP///wAAAAAD////AAAAADIAAAD/AAAA/wAA + AFz///8AAAAABf///wD///8A////AP///wD///8A////AAAAAKEAAAD/AAAA1f///wD///8A////AP// + /wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD/AAAAc////wAAAAAE////AAAAAAP///8AAAAASwAA + AP8AAAD9AAAA+wAAAP8AAAB1////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8AAAAAAf///wAAAAAIAAAA3AAAAP8AAAD8AAAA/wAAAEj///8AAAAABP///wD///8AAAAABP// + /wAAAAAXAAAA6gAAAP8AAABt////AP///wD///8AAAAADAAAABgAAAAiAAAAMAAAADMAAADEAAAA/wAA + ANsAAABPAAAAUgAAAEgAAAA7AAAAJwAAABD///8A////AAAAAGYAAAD/AAAA/wAAAFn///8AAAAAA/// + /wAAAAAE////AAAAAIAAAAD/AAAA+gAAAP0AAAD/AAAASP///wAAAAAE////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wAAAAAF////AAAAAGIAAAD/AAAA+AAAAP8AAADYAAAAAf// + /wAAAAAFAAAAA////wD///8AAAAACQAAAN0AAAD/AAAAzAAAAKAAAADEAAAA1QAAAOEAAADsAAAA9wAA + AP0AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAPoAAADnAAAAygAAAH0AAAC0AAAA/wAA + AP8AAAAv////AAAAAAcAAAAB////AP///wAAAADHAAAA/wAAAPsAAAD/AAAA8gAAABv///8AAAAAAv// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAAwQAA + AP8AAAD2AAAA/wAAAJP///8A////AP///wAAAAAlAAAAhQAAANYAAAD8AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAU////wD///8AAAAAA////wAAAAAwAAAA/wAAAP8AAAD7AAAA/wAA + AMX///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wAAAAAD////AAAAACIAAADwAAAA/wAAAPsAAAD/AAAAaAAAACMAAACnAAAA9QAAAP8AAAD/AAAA/wAA + AP8AAAD9AAAA/wAAAP8AAAD/AAAA9wAAAPAAAADqAAAA4gAAANgAAAD6AAAA/wAAAOwAAADEAAAAxgAA + AMwAAADdAAAA7wAAAP8AAAD/AAAA/wAAAP0AAAD/AAAA/QAAAP8AAADBAAAATf///wD///8AAAAAhwAA + AP8AAAD7AAAA/AAAAP8AAAB9////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD9AAAA/wAAAPwAAAD3AAAA/wAA + AP8AAAD/AAAA9wAAAN4AAAD8AAAA/wAAAH0AAAA4AAAAMQAAACUAAAAdAAAAFgAAAAYAAAAXAAAA7QAA + AP8AAACZ////AAAAAAH///8AAAAABwAAABkAAAA4AAAAXwAAALsAAAD/AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAC/AAAAOAAAANAAAAD/AAAA/AAAAP8AAAD+AAAAKv///wAAAAAD////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACCAAAA/wAA + APoAAAD/AAAA/wAAAOkAAAC8AAAAdwAAACIAAAATAAAA4gAAAP8AAABN////AP///wD///8A////AP// + /wD///8AAAAAHgAAAPMAAAD/AAAAgv///wAAAAAE////AP///wD///8A////AP///wAAAAB2AAAA/wAA + APoAAADOAAAA+gAAAP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAAPoAAAD/AAAAr////wAAAAAC////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAA + AAL///8AAAAACQAAAOIAAAD/AAAA+QAAAP8AAADVAAAABP///wD///8A////AAAAALEAAAD/AAAAkf// + /wAAAAAHAAAAAgAAAAIAAAAE////AAAAAC4AAAD7AAAA/wAAAGv///8AAAAABQAAAAEAAAABAAAAAgAA + AAP///8AAAAAyQAAAP8AAADkAAAADAAAACgAAACbAAAA+AAAAP0AAAD/AAAA/wAAAP0AAAD/AAAA9wAA + ACb///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAABJAAAA/wAAAP4AAAD6AAAA/wAAALEAAAAFAAAABv// + /wAAAAByAAAA/wAAAMX///8A////AP///wD///8AAAAAA////wAAAAA8AAAA/wAAAP8AAABV////AAAA + AAT///8A////AAAAAAT///8AAAAAOQAAAP4AAAD/AAAAmv///wD///8A////AAAAAE0AAAD/AAAA/gAA + AP4AAAD8AAAA/wAAAGT///8AAAAABf///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAIgAAAD/AAAA+wAA + APoAAAD/AAAAqv///wD///8AAAAALgAAAP8AAAD4AAAAIP///wAAAAAC////AAAAAAP///8AAAAASwAA + AP8AAAD/AAAAQf///wAAAAAD////AP///wAAAAAE////AAAAAKQAAAD/AAAA/wAAADf///8A////AAAA + ACcAAADJAAAA/wAAAP0AAAD6AAAA/wAAAKD///8AAAAAAv///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAf// + /wD///8AAAAAlAAAAP8AAAD9AAAA+wAAAP8AAAB7////AP///wAAAADIAAAA/wAAAF////8AAAAABf// + /wAAAAAE////AAAAAFsAAAD/AAAA/gAAADL///8AAAAAA////wAAAAAD////AAAAACYAAAD3AAAA/wAA + ALb///8A////AAAAAEAAAADzAAAA/wAAAPwAAAD7AAAA/wAAAKP///8A////AAAAAAH///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wAAAAAC////AP///wAAAACFAAAA/wAAAP8AAAD5AAAA/wAAAIT///8AAAAAagAA + AP8AAACs////AAAAAAP///8AAAAABP///wAAAABkAAAA/wAAAPYAAAAj////AAAAAAL///8AAAAAA/// + /wAAAAClAAAA/wAAAPgAAAAcAAAAGwAAAKUAAAD/AAAA/wAAAPkAAAD+AAAA/wAAAKz///8A////AAAA + AAL///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAIAAAAB////AAAAAGQAAAD7AAAA/wAA + APoAAAD/AAAApwAAACkAAADvAAAA9wAAABf///8AAAAABAAAAAX///8AAAAAYwAAAP8AAADxAAAAGv// + /wAAAAAFAAAACP///wAAAABZAAAA/wAAAP8AAACXAAAAbwAAAPsAAAD/AAAA/wAAAPoAAAD/AAAA/wAA + AIb///8A////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAQAA + AAP///8AAAAAJgAAALYAAAD/AAAA/wAAAP8AAADYAAAA3AAAAP8AAABj////AP///wAAAAAD////AAAA + AGYAAAD/AAAA5gAAAAL///8A////AP///wAAAAAnAAAA+AAAAP8AAAD4AAAA5QAAAP8AAAD/AAAA+wAA + APoAAAD/AAAA/wAAAF////8A////AAAAAAL///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wD///8AAAAAYAAAAOwAAAD/AAAA/wAAAP8AAAD/AAAA2gAA + AFkAAAArAAAAA////wAAAABUAAAA/wAAAOoAAABZAAAATwAAAE8AAABeAAAA2wAAAP8AAAD8AAAA/wAA + AP8AAAD8AAAA/QAAAPsAAAD/AAAA8gAAAET///8AAAAABAAAAAH///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAADAAAAAv///wAAAAAWAAAAogAA + AP8AAAD/AAAA/QAAAP8AAAD/AAAA/AAAAMoAAACvAAAAwQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD8AAAA/wAAAP0AAAD7AAAA+wAAAPsAAAD/AAAA4AAAACb///8AAAAABf///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wAAAAAF////AP///wAAAABFAAAAxwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD7AAAA/AAA + APoAAAD6AAAA+gAAAPoAAAD8AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAxwAAABb///8AAAAABf// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAIAAAAD////AP///wAAAAA7AAAAngAAANIAAADxAAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD6AAAA5gAAANQAAACYAAAATwAA + AAH///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAQAAAAB////AP// + /wD///8AAAAAGwAAADgAAABCAAAAUQAAAGwAAAByAAAAagAAAGAAAABZAAAASwAAAEQAAABAAAAAJgAA + AA////8A////AP///wD///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAMAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAQAAAAEAAAAAf///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAEAAAABQAA + AAQAAAAFAAAABQAAAAQAAAAEAAAABAAAAAQAAAADAAAAAQAAAAH///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A/////////////////////////////////////////////////////////+AA///////+H/8P + //////ngAPP/////5gAADP////+YAAADP////2AAAADf///8gAAAAC////sAAAAAF///9AAfx4Ab///o + AiCEgA3//9AMLoSABf//oAQghUAC//+gAD6EQgL//0AAAYfAAX//QOAAAAAB//6BmAAAAAC//4FoAAAA + AL/9Auh4AADgX/0C0IeHoaBf+gXQuIXgoF/6BdC+hCCQL/oF0IAJoJAv+gQQ/4wgkC/6D8AAA+GQL/oA + AAAAAPAv+gAAAAAACC/+AAAAAAAAN/YAEP8IAAAX/g/wgQvhwBf6CBC9CCEwF/oL0L0LoQg3+gvQvQuh + WD/6BdC9C6FQL/8F0IEIIVAv/QXQvx+hUC/9AtDgAGFQL/6BMAAAATAv/0HAAAABoF//QAAAAABgX/+g + AAAUAABf/9AAfhfAAL//0BxCEEAAv//oBHoWhwF///QMKhaGAv//9gYqFQwG///7AioVAA3///yAEhIA + G////kAaHAA3////sAIAAE/////IAAAAv/////YAAAF/////+YAAAv/////+cAA9//////+f/+P///// + /+AAH/////////////////////////////////////////////8= + + + + + AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA + AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAFAAAABQAAAAQAAAAFAAAABAAAAAQAAAADAAAAAgAA + AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAEAAAAEAAAABQAAAAL///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAAAwAAAAUAAAADAAAAAf///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAAAwAAAAT///8A////AP///wD///8AAAAABgAAACEAAAA8AAAAUgAA + AF8AAABsAAAAcgAAAGUAAABbAAAASQAAADEAAAAYAAAAAv///wD///8A////AP///wAAAAAEAAAAA/// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wAAAAAEAAAAAv///wD///8AAAAABwAAAD4AAAB9AAAAtQAA + AN0AAAD3AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA8AAAANYAAACtAAAAdwAA + ADoAAAAH////AP///wAAAAABAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAMAAAAC////AP///wAAAAAzAAAAkQAA + AN4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP4AAAD8AAAA+wAAAPsAAAD7AAAA+wAAAPwAAAD9AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA3QAAAJYAAAA8////AP///wAAAAAEAAAAAv///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8A////AAAA + AEEAAAC5AAAA/wAAAP8AAAD/AAAA/gAAAPwAAAD6AAAA+QAAAPoAAAD7AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/gAAAPoAAAD5AAAA+QAAAPkAAAD7AAAA/gAAAP8AAAD/AAAA/wAAAMcAAABF////AP// + /wAAAAAD////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAgAA + AAL///8AAAAAIAAAAKwAAAD/AAAA/wAAAP4AAAD3AAAA/AAAAP8AAAD9AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD7AAAA/QAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP4AAAD9AAAA+wAA + AP4AAAD/AAAA/wAAAIgAAAAE////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8AAAAABP///wD///8AAAAAZgAAAPQAAAD/AAAA/gAAAPgAAAD/AAAA/wAAAP8AAAD8AAAA/wAA + ANgAAACXAAAAeAAAAGUAAABKAAAAJwAAAC8AAAAfAAAAsQAAAP8AAADTAAAAbAAAAJkAAACvAAAA1gAA + AP8AAAD+AAAA/wAAAP8AAAD/AAAA+wAAAP4AAAD/AAAAzwAAABD///8AAAAABP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAAAEAAAApAAAAP8AAAD/AAAA+gAAAPsAAAD/AAAA/wAA + AKMAAADQAAAA/wAAAP8AAAA5////AP///wD///8A////AP///wD///8A////AAAAALsAAAD/AAAApv// + /wD///8A////AP///wAAAAC+AAAA/wAAAPwAAAD/AAAA/QAAAP4AAAD+AAAA+QAAAP8AAADB////AP// + /wAAAAAC////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAAAVAAAAzAAAAP8AAAD8AAAA/AAA + AP8AAAD/AAAAwQAAAC////8AAAAA1AAAAP8AAADS////AAAAAAIAAAAEAAAABAAAAAMAAAAD////AAAA + AA0AAADiAAAA/wAAAJT///8AAAAABgAAAAf///8AAAAAXQAAAP8AAAD8AAAA/gAAAP8AAAD/AAAA/AAA + AP8AAAD6AAAA/wAAALH///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAA////wAAAAAhAAAA3gAA + AP8AAAD6AAAA/QAAAP8AAAD3AAAAaP///wD///8AAAAAOgAAAP8AAAD/AAAAkP///wAAAAAE////AP// + /wD///8AAAAAAf///wAAAAAMAAAA5gAAAP8AAACA////AAAAAAQAAAAC////AAAAABsAAADvAAAA/wAA + AP4AAACxAAAA8QAAAP8AAAD8AAAA/wAAAPsAAAD/AAAAcv///wAAAAAF////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAv// + /wAAAAAQAAAA4QAAAP8AAAD6AAAA/gAAAP0AAAD/AAAA2QAAAGIAAAA2////AAAAAHUAAAD/AAAA/wAA + AFT///8AAAAABwAAAAIAAAABAAAAAQAAAAL///8AAAAAEAAAAOcAAAD/AAAAcv///wAAAAAE////AAAA + AAL///8AAAAAtQAAAP8AAAD/AAAAfQAAABoAAADfAAAA/wAAAPwAAAD+AAAA/wAAAPkAAAAm////AAAA + AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAT///8AAAAAjgAAAP8AAAD5AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AM0AAADhAAAA/wAAAPIAAAAQ////AP///wD///8A////AP///wAAAAAC////AAAAACgAAAD2AAAA/wAA + AGn///8AAAAACAAAAAQAAAAJ////AAAAAHkAAAD/AAAA/wAAAMf///8AAAAACQAAAN8AAAD/AAAA/QAA + APsAAAD/AAAAtf///wAAAAAB////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAT///8AAAAAPwAAAP8AAAD/AAAA/gAAAP4AAAD/AAAAbAAA + ADgAAACpAAAA7QAAAP8AAAD/AAAA/wAAAP8AAAD5AAAAnwAAAGMAAAA4AAAAHAAAAAkAAAAF////AP// + /wAAAAAwAAAA/wAAAP8AAABU////AP///wD///8A////AP///wAAAAApAAAA/wAAAP8AAADrAAAAKgAA + AGEAAADpAAAA/wAAAP0AAAD/AAAA/AAAAP8AAABb////AAAAAAT///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAB////AAAAAMYAAAD/AAAA/AAA + APsAAAD/AAAAjP///wD///8A////AAAAABoAAABnAAAAyAAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAA + AO4AAADcAAAA1QAAAMQAAACuAAAAugAAAP8AAAD/AAAAqAAAAGsAAAB1AAAAdAAAAG4AAABfAAAAZAAA + APAAAAD/AAAA/gAAAPEAAAD/AAAA/wAAAP0AAAD/AAAA/gAAAPwAAAD/AAAAyP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA + AE8AAAD/AAAA/QAAAPsAAAD/AAAAyP///wD///8AAAAABQAAAAP///8A////AAAAAFIAAAD/AAAA/gAA + ANIAAADgAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA9wAAAP8AAAD+AAAA/gAA + AP8AAAA8////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wAAAADJAAAA/wAAAPsAAAD/AAAA/wAAADr///8AAAAABP///wD///8AAAAABv// + /wAAAACJAAAA/wAAAP0AAAAvAAAABQAAAEgAAAB1AAAAqgAAANoAAADvAAAA/QAAAP8AAAD/AAAA/gAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAC2AAAAOAAA + AFAAAAD/AAAA/gAAAPsAAAD/AAAAnP///wAAAAAE////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAABWAAAA/wAAAP0AAAD7AAAA/wAAAKT///8AAAAABP// + /wD///8A////AAAAAAH///8AAAAAtgAAAP8AAADrAAAAGP///wD///8A////AP///wAAAAAGAAAAGwAA + ADUAAABLAAAAwAAAAP8AAAD/AAAAvQAAALEAAADDAAAAzgAAANMAAADbAAAA2QAAAOcAAAD/AAAA/wAA + AOEAAAA1////AP///wD///8AAAAAxwAAAP8AAAD6AAAA/wAAAOIAAAAK////AAAAAAH///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAP///8AAAAAtgAAAP8AAAD7AAAA/wAA + AP8AAAA6////AAAAAAP///8A////AAAAAAH///8AAAAACQAAAN0AAAD/AAAA0P///wAAAAABAAAABAAA + AAUAAAAD////AP///wD///8A////AAAAAJAAAAD/AAAA+AAAABr///8A////AP///wD///8AAAAACf// + /wAAAABDAAAA/wAAAP8AAADN////AP///wAAAAAJ////AAAAAGMAAAD/AAAA+wAAAP0AAAD/AAAAS/// + /wAAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAACQAA + AOAAAAD/AAAA+gAAAP8AAADB////AAAAAAH///8A////AP///wAAAAAC////AAAAACUAAAD2AAAA/wAA + AKv///8AAAAAA////wD///8A////AAAAAAEAAAACAAAABv///wAAAACsAAAA/wAAAOQAAAAR////AAAA + AAL///8A////AP///wD///8AAAAAIwAAAPcAAAD/AAAA3QAAAAz///8AAAAAA////wAAAAAYAAAA7wAA + AP8AAAD6AAAA/wAAAJz///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wAAAAAD////AAAAADMAAAD/AAAA/wAAAPsAAAD/AAAAX////wAAAAAE////AP///wD///8AAAAAA/// + /wAAAABEAAAA/wAAAP8AAACD////AAAAAAX///8A////AP///wD///8A////AAAAAAL///8AAAAAvAAA + AP8AAADTAAAAA////wAAAAABAAAAAQAAAAEAAAAD////AAAAABwAAADyAAAA/wAAANsAAAAI////AAAA + AAIAAAAC////AAAAALMAAAD/AAAA+QAAAP8AAADVAAAAAf///wAAAAAB////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAABeAAAA/wAAAPoAAAD/AAAA7AAAABf///8AAAAAAv// + /wD///8A////AAAAAAT///8AAAAAYQAAAP8AAAD/AAAAX////wAAAAAHAAAAAgAAAAMAAAADAAAAAwAA + AAMAAAADAAAAAQAAAMsAAAD/AAAAyP///wAAAAACAAAAAf///wD///8AAAAAAv///wAAAAAVAAAA6QAA + AP8AAADbAAAACf///wAAAAABAAAABP///wAAAAB1AAAA/wAAAPoAAAD/AAAA+AAAACP///8AAAAAAv// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8AAAAAfgAAAP8AAAD6AAAA/wAA + APgAAAAp////AAAAAAYAAAAEAAAAAwAAAAIAAAAE////AAAAAHIAAAD/AAAA/wAAADv///8A////AP// + /wD///8A////AP///wD///8A////AP///wAAAADZAAAA/wAAALn///8A////AAAAAAIAAAADAAAABAAA + AAX///8AAAAAFgAAAOkAAAD/AAAA0gAAAAX///8AAAAAAQAAAAP///8AAAAASAAAAP8AAAD9AAAA/QAA + AP8AAABP////AAAAAAT///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA + AKMAAAD/AAAA+AAAAP8AAACq////AP///wD///8A////AP///wD///8AAAAAAgAAAAEAAACOAAAA/wAA + APsAAABRAAAAJQAAADkAAAA3AAAAQwAAAEQAAABDAAAARAAAAEEAAABNAAAA6wAAAP8AAAC5AAAADAAA + AAn///8A////AP///wD///8A////AAAAABEAAADoAAAA/wAAAMz///8A////AAAAAAQAAAAG////AAAA + AC0AAAD/AAAA/wAAAPsAAAD/AAAAfP///wAAAAAF////AP///wD///8A////AP///wD///8A////AP// + /wD///8AAAAAAv///wAAAAC4AAAA/wAAAPoAAAD/AAAATAAAABQAAABLAAAAaQAAAIcAAACgAAAAuQAA + ANAAAADkAAAA+wAAAP8AAAD/AAAA+gAAAPwAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA+gAAAOwAAADaAAAAxAAAAKUAAACCAAAAXQAAAC4AAAAmAAAA6QAAAP8AAADVAAAADP// + /wD///8A////AP///wAAAAAFAAAAygAAAP8AAAD4AAAA/wAAAKP///8AAAAABP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAH///8AAAAAvgAAAP8AAAD9AAAA/gAAAOEAAAD1AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA6wAA + APsAAAD/AAAA+gAAANsAAADGAAAAmgAAAFQAAAAO////AAAAAKUAAAD/AAAA+AAAAP8AAADC////AAAA + AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAMkAAAD/AAAA/AAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAPIAAADpAAAA4AAAANQAAADxAAAA/wAAAP4AAAC3AAAAmQAA + AJMAAACKAAAAiwAAAIsAAACLAAAAjQAAAJEAAACgAAAA/QAAAP8AAADSAAAAuwAAAM4AAADcAAAA6wAA + APYAAAD/AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA4gAAAHUAAADAAAAA/wAA + APoAAAD/AAAA2P///wD///8AAAAAAf///wD///8A////AP///wD///8A////AP///wAAAAAB////AP// + /wAAAADYAAAA/wAAAPwAAAD/AAAA4QAAAKcAAAB3AAAATgAAADIAAAAeAAAAEAAAAAz///8AAAAAogAA + AP8AAADwAAAAEf///wD///8A////AP///wD///8A////AP///wD///8AAAAAKgAAAP8AAAD/AAAAVf// + /wAAAAADAAAABwAAABMAAAAlAAAAOQAAAEkAAABxAAAA9AAAAP8AAADrAAAArAAAAKoAAAC4AAAA+wAA + AP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAANkAAAAB////AAAAAAH///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAAywAAAP8AAAD8AAAA/wAAADX///8A////AP///wD///8A////AP// + /wD///8A////AAAAAJ0AAAD/AAAA6wAAABz///8AAAAABgAAAAQAAAAEAAAABAAAAAQAAAAI////AAAA + AE8AAAD/AAAA/wAAAFf///8AAAAABP///wD///8A////AP///wD///8AAAAABQAAAOcAAAD/AAAAvf// + /wD///8A////AAAAAC0AAACUAAAA8AAAAP8AAAD9AAAA/QAAAP8AAADaAAAAAv///wAAAAAB////AP// + /wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAKwAAAD/AAAA+wAAAP8AAAA/////AAAA + AAcAAAADAAAAAwAAAAIAAAABAAAABP///wAAAACSAAAA/wAAAOwAAAAZ////AAAAAAL///8A////AP// + /wD///8AAAAABP///wAAAABfAAAA/wAAAP8AAABH////AAAAAAQAAAABAAAAAQAAAAIAAAAF////AAAA + ABgAAADoAAAA/wAAAML///8AAAAAAwAAAAP///8A////AAAAABUAAADMAAAA/wAAAPoAAAD/AAAA2QAA + AAH///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACUAAAA/wAA + APcAAAD/AAAAbP///wAAAAAE////AP///wD///8A////AAAAAAP///8AAAAAhAAAAP8AAADsAAAAGv// + /wAAAAAC////AP///wD///8A////AAAAAAT///8AAAAAcQAAAP8AAAD/AAAAPP///wAAAAAD////AP// + /wD///8AAAAAAv///wAAAAAbAAAA7wAAAP8AAAC9////AAAAAAEAAAABAAAAAwAAAAb///8AAAAArAAA + AP8AAAD5AAAA/wAAANb///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AAAA + AAT///8AAAAAbQAAAP8AAAD4AAAA/wAAAKv///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAA + AHMAAAD/AAAA9AAAACH///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAAAIEAAAD/AAAA+gAA + ACz///8AAAAAAv///wD///8A////AAAAAAL///8AAAAAHwAAAPMAAAD/AAAAsv///wAAAAAC////AAAA + AAH///8A////AAAAAMcAAAD/AAAA+QAAAP8AAADI////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wAAAAAD////AAAAACYAAAD6AAAA/gAAAP8AAADeAAAABf///wAAAAAB////AP// + /wD///8AAAAABP///wAAAABgAAAA/wAAAPwAAAAx////AAAAAAP///8A////AP///wD///8AAAAABP// + /wAAAACPAAAA/wAAAPMAAAAc////AAAAAAL///8A////AP///wAAAAAD////AAAAACoAAAD3AAAA/wAA + AKH///8AAAAAA////wAAAAAB////AAAAAAoAAADgAAAA/wAAAPkAAAD/AAAAtf///wAAAAAC////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAxgAAAP8AAAD7AAAA/wAA + AE3///8AAAAAA////wD///8A////AAAAAAP///8AAAAASQAAAP8AAAD/AAAARf///wAAAAAEAAAAAQAA + AAEAAAACAAAAAgAAAAb///8AAAAAnAAAAP8AAADoAAAAFf///wAAAAAFAAAAAwAAAAMAAAABAAAABP// + /wAAAAA6AAAA/QAAAP8AAACM////AAAAAAP///8AAAAAAv///wAAAAAkAAAA+AAAAP8AAAD6AAAA/wAA + AJr///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAF////AAAA + AGEAAAD/AAAA9wAAAP8AAAC7////AAAAAAL///8A////AP///wAAAAAD////AAAAADIAAAD/AAAA/wAA + AFz///8AAAAABf///wD///8A////AP///wD///8A////AAAAAKEAAAD/AAAA1f///wD///8A////AP// + /wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD/AAAAc////wAAAAAE////AAAAAAP///8AAAAASwAA + AP8AAAD9AAAA+wAAAP8AAAB1////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8AAAAAAf///wAAAAAIAAAA3AAAAP8AAAD8AAAA/wAAAEj///8AAAAABP///wD///8AAAAABP// + /wAAAAAXAAAA6gAAAP8AAABt////AP///wD///8AAAAADAAAABgAAAAiAAAAMAAAADMAAADEAAAA/wAA + ANsAAABPAAAAUgAAAEgAAAA7AAAAJwAAABD///8A////AAAAAGYAAAD/AAAA/wAAAFn///8AAAAAA/// + /wAAAAAE////AAAAAIAAAAD/AAAA+gAAAP0AAAD/AAAASP///wAAAAAE////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wAAAAAF////AAAAAGIAAAD/AAAA+AAAAP8AAADYAAAAAf// + /wAAAAAFAAAAA////wD///8AAAAACQAAAN0AAAD/AAAAzAAAAKAAAADEAAAA1QAAAOEAAADsAAAA9wAA + AP0AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAPoAAADnAAAAygAAAH0AAAC0AAAA/wAA + AP8AAAAv////AAAAAAcAAAAB////AP///wAAAADHAAAA/wAAAPsAAAD/AAAA8gAAABv///8AAAAAAv// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAAwQAA + AP8AAAD2AAAA/wAAAJP///8A////AP///wAAAAAlAAAAhQAAANYAAAD8AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAAU////wD///8AAAAAA////wAAAAAwAAAA/wAAAP8AAAD7AAAA/wAA + AMX///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wAAAAAD////AAAAACIAAADwAAAA/wAAAPsAAAD/AAAAaAAAACMAAACnAAAA9QAAAP8AAAD/AAAA/wAA + AP8AAAD9AAAA/wAAAP8AAAD/AAAA9wAAAPAAAADqAAAA4gAAANgAAAD6AAAA/wAAAOwAAADEAAAAxgAA + AMwAAADdAAAA7wAAAP8AAAD/AAAA/wAAAP0AAAD/AAAA/QAAAP8AAADBAAAATf///wD///8AAAAAhwAA + AP8AAAD7AAAA/AAAAP8AAAB9////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD9AAAA/wAAAPwAAAD3AAAA/wAA + AP8AAAD/AAAA9wAAAN4AAAD8AAAA/wAAAH0AAAA4AAAAMQAAACUAAAAdAAAAFgAAAAYAAAAXAAAA7QAA + AP8AAACZ////AAAAAAH///8AAAAABwAAABkAAAA4AAAAXwAAALsAAAD/AAAA/gAAAP8AAAD/AAAA/wAA + AP8AAAC/AAAAOAAAANAAAAD/AAAA/AAAAP8AAAD+AAAAKv///wAAAAAD////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACCAAAA/wAA + APoAAAD/AAAA/wAAAOkAAAC8AAAAdwAAACIAAAATAAAA4gAAAP8AAABN////AP///wD///8A////AP// + /wD///8AAAAAHgAAAPMAAAD/AAAAgv///wAAAAAE////AP///wD///8A////AP///wAAAAB2AAAA/wAA + APoAAADOAAAA+gAAAP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAAPoAAAD/AAAAr////wAAAAAC////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAA + AAL///8AAAAACQAAAOIAAAD/AAAA+QAAAP8AAADVAAAABP///wD///8A////AAAAALEAAAD/AAAAkf// + /wAAAAAHAAAAAgAAAAIAAAAE////AAAAAC4AAAD7AAAA/wAAAGv///8AAAAABQAAAAEAAAABAAAAAgAA + AAP///8AAAAAyQAAAP8AAADkAAAADAAAACgAAACbAAAA+AAAAP0AAAD/AAAA/wAAAP0AAAD/AAAA9wAA + ACb///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wAAAABJAAAA/wAAAP4AAAD6AAAA/wAAALEAAAAFAAAABv// + /wAAAAByAAAA/wAAAMX///8A////AP///wD///8AAAAAA////wAAAAA8AAAA/wAAAP8AAABV////AAAA + AAT///8A////AAAAAAT///8AAAAAOQAAAP4AAAD/AAAAmv///wD///8A////AAAAAE0AAAD/AAAA/gAA + AP4AAAD8AAAA/wAAAGT///8AAAAABf///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAIgAAAD/AAAA+wAA + APoAAAD/AAAAqv///wD///8AAAAALgAAAP8AAAD4AAAAIP///wAAAAAC////AAAAAAP///8AAAAASwAA + AP8AAAD/AAAAQf///wAAAAAD////AP///wAAAAAE////AAAAAKQAAAD/AAAA/wAAADf///8A////AAAA + ACcAAADJAAAA/wAAAP0AAAD6AAAA/wAAAKD///8AAAAAAv///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAf// + /wD///8AAAAAlAAAAP8AAAD9AAAA+wAAAP8AAAB7////AP///wAAAADIAAAA/wAAAF////8AAAAABf// + /wAAAAAE////AAAAAFsAAAD/AAAA/gAAADL///8AAAAAA////wAAAAAD////AAAAACYAAAD3AAAA/wAA + ALb///8A////AAAAAEAAAADzAAAA/wAAAPwAAAD7AAAA/wAAAKP///8A////AAAAAAH///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wAAAAAC////AP///wAAAACFAAAA/wAAAP8AAAD5AAAA/wAAAIT///8AAAAAagAA + AP8AAACs////AAAAAAP///8AAAAABP///wAAAABkAAAA/wAAAPYAAAAj////AAAAAAL///8AAAAAA/// + /wAAAAClAAAA/wAAAPgAAAAcAAAAGwAAAKUAAAD/AAAA/wAAAPkAAAD+AAAA/wAAAKz///8A////AAAA + AAL///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAIAAAAB////AAAAAGQAAAD7AAAA/wAA + APoAAAD/AAAApwAAACkAAADvAAAA9wAAABf///8AAAAABAAAAAX///8AAAAAYwAAAP8AAADxAAAAGv// + /wAAAAAFAAAACP///wAAAABZAAAA/wAAAP8AAACXAAAAbwAAAPsAAAD/AAAA/wAAAPoAAAD/AAAA/wAA + AIb///8A////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAQAA + AAP///8AAAAAJgAAALYAAAD/AAAA/wAAAP8AAADYAAAA3AAAAP8AAABj////AP///wAAAAAD////AAAA + AGYAAAD/AAAA5gAAAAL///8A////AP///wAAAAAnAAAA+AAAAP8AAAD4AAAA5QAAAP8AAAD/AAAA+wAA + APoAAAD/AAAA/wAAAF////8A////AAAAAAL///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8AAAAABP///wD///8AAAAAYAAAAOwAAAD/AAAA/wAAAP8AAAD/AAAA2gAA + AFkAAAArAAAAA////wAAAABUAAAA/wAAAOoAAABZAAAATwAAAE8AAABeAAAA2wAAAP8AAAD8AAAA/wAA + AP8AAAD8AAAA/QAAAPsAAAD/AAAA8gAAAET///8AAAAABAAAAAH///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAADAAAAAv///wAAAAAWAAAAogAA + AP8AAAD/AAAA/QAAAP8AAAD/AAAA/AAAAMoAAACvAAAAwQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA + AP8AAAD8AAAA/wAAAP0AAAD7AAAA+wAAAPsAAAD/AAAA4AAAACb///8AAAAABf///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wAAAAAF////AP///wAAAABFAAAAxwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD7AAAA/AAA + APoAAAD6AAAA+gAAAPoAAAD8AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAxwAAABb///8AAAAABf// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAIAAAAD////AP///wAAAAA7AAAAngAAANIAAADxAAAA/wAA + AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD6AAAA5gAAANQAAACYAAAATwAA + AAH///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAQAAAAB////AP// + /wD///8AAAAAGwAAADgAAABCAAAAUQAAAGwAAAByAAAAagAAAGAAAABZAAAASwAAAEQAAABAAAAAJgAA + AA////8A////AP///wD///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AAAAAAMAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AAAAAAQAAAAEAAAAAf///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAEAAAABQAA + AAQAAAAFAAAABQAAAAQAAAAEAAAABAAAAAQAAAADAAAAAQAAAAH///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP// + /wD///8A/////////////////////////////////////////////////////////+AA///////+H/8P + //////ngAPP/////5gAADP////+YAAADP////2AAAADf///8gAAAAC////sAAAAAF///9AAfx4Ab///o + AiCEgA3//9AMLoSABf//oAQghUAC//+gAD6EQgL//0AAAYfAAX//QOAAAAAB//6BmAAAAAC//4FoAAAA + AL/9Auh4AADgX/0C0IeHoaBf+gXQuIXgoF/6BdC+hCCQL/oF0IAJoJAv+gQQ/4wgkC/6D8AAA+GQL/oA + AAAAAPAv+gAAAAAACC/+AAAAAAAAN/YAEP8IAAAX/g/wgQvhwBf6CBC9CCEwF/oL0L0LoQg3+gvQvQuh + WD/6BdC9C6FQL/8F0IEIIVAv/QXQvx+hUC/9AtDgAGFQL/6BMAAAATAv/0HAAAABoF//QAAAAABgX/+g + AAAUAABf/9AAfhfAAL//0BxCEEAAv//oBHoWhwF///QMKhaGAv//9gYqFQwG///7AioVAA3///yAEhIA + G////kAaHAA3////sAIAAE/////IAAAAv/////YAAAF/////+YAAAv/////+cAA9//////+f/+P///// + /+AAH/////////////////////////////////////////////8= + + + \ No newline at end of file diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb new file mode 100644 index 0000000..eacefb7 --- /dev/null +++ b/Global_Indexer/frmStart.vb @@ -0,0 +1,530 @@ +Imports System.IO +Imports Microsoft.Office.Interop +Imports Independentsoft +Imports DLLLicenseManager +Imports System.Text +Public Class frmStart + Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))" + Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + Private USER_GUID + Private ISUserAdmin As Boolean = False + Public _lizenzManager As ClassLicenseManager + Dim loaded As Boolean = False + Dim WithEvents HotKey As New clsHotkey(Me) + + Private Sub frmMain_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop + ClassDragDrop.Drop_File(e) + Check_Dropped_Files() + End Sub + Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed + Me.Cursor = Cursors.WaitCursor + Me.NotifyIcon1.Visible = True + NotifyIcon1.ShowBalloonTip(2000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info) + Try + 'Die vorherige Tempfile löschen + If CURRENT_WD_TEMPSEARCH <> "" Then + If My.Computer.FileSystem.FileExists(CURRENT_WD_TEMPSEARCH) Then + Try + My.Computer.FileSystem.DeleteFile(CURRENT_WD_TEMPSEARCH) + Catch ex As Exception + + End Try + + End If + End If + Dim HK1 As String + Dim HK2 As String + 'Die Hotkeys definieren + Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID + Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True) + If Not IsNothing(DTHOTKEYSTEMP) Then + HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1") + HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2") + 'Alle Profile raussuchen die die Tastaturkombination enthalten + SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & CURRENT_USERID + Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True) + Dim Result As String = "" + If Not IsNothing(DTHOTKEY_PROFILES) Then + For Each row As DataRow In DTHOTKEY_PROFILES.Rows + Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID")) + Next + End If + + If Result = "" Then + Me.NotifyIcon1.Visible = False + Else + NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning) + End If + End If + Catch ex As Exception + MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical) + End Try + Me.Cursor = Cursors.Default + End Sub + Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter + Drag_Enter(sender, e) + End Sub + Sub Drag_Enter(sender As Object, e As DragEventArgs) + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.All + Console.WriteLine("DragEnter ...DragDrop") + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + 'handle a message dragged from Outlook + e.Effect = DragDropEffects.Copy + Console.WriteLine("DragEnter ...OutlookMessage") + ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then + e.Effect = DragDropEffects.Copy + Console.WriteLine("DragEnter ...Attachment from Outlook") + Else + 'otherwise, do not handle + e.Effect = DragDropEffects.None + End If + End Sub + Sub Check_Dropped_Files() + Try + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") + Dim i As Integer + For Each Str As Object In ClassDragDrop.files_dropped + If Not Str Is Nothing Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File:" & Str.ToString, False) + Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1) + Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1) + If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then + Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "')" + If ClassDatabase.Execute_non_Query(ins, True) = False Then + MsgBox("Unexpected Error in Create Record for dropped-file - Check logfile", MsgBoxStyle.Critical) + Exit Sub + End If + i += 1 + Else + Console.WriteLine("File gibt es bereits") + End If + + End If + Next + + Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" + Dim DTFiles As DataTable = ClassDatabase.Return_Datatable(sql, True) + For Each Filerow As DataRow In DTFiles.Rows + 'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "") + CURRENT_WORKFILE_GUID = Filerow.Item(0) + CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK") + Open_IndexDialog() + Next + + 'Prüfen ob alle Files abgearbeitet wurden + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE not like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") + If DT.Rows.Count > 0 Then + For Each row As DataRow In DT.Rows + Dim filestring As String = row.Item(1) + filestring = filestring.Substring(filestring.LastIndexOf("@") + 1) + Select Case CURRENT_ABBRUCH + Case 0 + CURRENT_ABBRUCH = 1 + Case 1 + CURRENT_ABBRUCH = 2 + Case 2 + CURRENT_ABBRUCH = 0 + End Select + If File.Exists(filestring) Then + If CURRENT_ABBRUCH = 2 Then + Dim result As MsgBoxResult + result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0)) + Exit Sub + End If + Else + MsgBox("Es sind noch Dateien zum Indexieren vorhanden:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation) + CURRENT_WORKFILE = row.Item(1) + CURRENT_FILENAME = row.Item(1) + CURRENT_WORKFILE_GUID = row.Item(0) + Open_IndexDialog() + End If + Else + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0)) + End If + Next + End If + + Catch ex As Exception + MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Open_IndexDialog() + Try + Me.Hide() + frmIndex.ShowDialog() + Me.Visible = True + Me.TopMost = True + Me.BringToFront() + If Not CURRENT_FILENAME.EndsWith("msg") Then + Dim workedsql = "select WORKED FROM TBGI_FILES_USER where guid = " & CURRENT_WORKFILE_GUID + If ClassDatabase.Execute_Scalar(workedsql, MyConnectionString, True) = 0 Then + Select Case CURRENT_ABBRUCH + Case 0 + CURRENT_ABBRUCH = 1 + Case 1 + CURRENT_ABBRUCH = 2 + Case 2 + CURRENT_ABBRUCH = 0 + End Select + If CURRENT_ABBRUCH = 2 Then + Dim result As MsgBoxResult + result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + Exit Sub + End If + Else + MsgBox("Datei wurde nicht vollständig indexiert:" & vbNewLine & "Bitte wiederholen Sie den Vorgang:", MsgBoxStyle.Exclamation) + Open_IndexDialog() + End If + End If + Else + 'Hier nun die Anhänge indexieren + Dim _msg As New Msg.Message(CURRENT_FILENAME) + 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 attachment.DisplayName Is Nothing Then + If Not attachment.LongFileName Is Nothing Then + If Not attachment.LongFileName.Contains("inline") Then + Dim tempfile As String = Path.Combine(Path.GetTempPath, attachment.LongFileName) + If File.Exists(tempfile) Then + File.Delete(tempfile) + End If + attachment.Save(tempfile) + Dim sql As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & tempfile & "','" & Environment.UserName & "','@ATTMNTEXTRACTED@')" + If ClassDatabase.Execute_non_Query(sql, True) = True Then + sql = "SELECT MAX(GUID) FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" + Dim GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) + If Not IsNothing(GUID) Then + If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False) + CURRENT_FILENAME = tempfile + CURRENT_WORKFILE = tempfile + CURRENT_WORKFILE_GUID = GUID + Open_IndexDialog() + i1 += 1 + End If + End If + End If + End If + End If + Next + End If + Catch ex As Exception + Me.Visible = True + End Try + End Sub + + Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + Dim sql = sql_User_Login + sql = sql.Replace("@LogInOut", 0) + sql = sql.Replace("@ANGEMELDETWO", "''") + sql = sql.Replace("@user", Environment.UserName) + ClassDatabase.Execute_non_Query(sql) + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Global-Indexer'" + ClassDatabase.Execute_non_Query(sql) + ClassWindowLocation.SaveFormLocationSize(Me) + Catch ex As Exception + + End Try + Unregister_Hotkeys() + + End Sub + Sub Refresh_Licence() + Try + Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") + Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1" + + Dim lic As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString) + Dim licString = Me._lizenzManager.DecodeLicenseKey(lic) + Dim split() = licString.ToString.Split("#") + + If lic <> "" Then + License_Anzahl = split(0) + Else + License_Anzahl = 0 + End If + If CDate(split(1)) < CDate(Now.ToShortDateString) Then + MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation) + License_Expired = True + License_Anzahl = 0 + End If + + 'tslblLicenses.Text = "Anzahl Lizenzen: " & licenseanzahl + LicenseProfiles = split(2) + Try + LicenseHotKey = split(3) + Catch ex As Exception + LicenseHotKey = 0 + End Try + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:") + End Try + End Sub + Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load + 'Me.TransparencyKey = Color.Transparent + ' Me.BackColor = Color.Transparent + Try + If Environment.UserName.ToLower = "schreiberm" Then + AApiToolStripMenuItem.Visible = True + Else + AApiToolStripMenuItem.Visible = False + End If + Me.Opacity = 30 + ClassWindowLocation.LoadFormLocationSize(Me) + Dim sql = sql_UserID + sql = sql.Replace("@user", Environment.UserName) + ClassLogger.Init("", "log_" & Environment.UserName) + ClassLogger.Add(">> Username: " & Environment.UserName, False) + LoadMyConfig() + + If MyConnectionString = String.Empty Then + frmConfig_Basic.ShowDialog() + End If + If ClassDatabase.Init() = False Then + MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Einstellungen und den Datenbankserver", MsgBoxStyle.Critical) + Me.Close() + End If + If UniversalViewer = String.Empty Then + frmConfig_Basic.ShowDialog() + End If + If MyConnectionString = String.Empty Then + Me.Close() + End If + Refresh_Licence() + USER_GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString) + If USER_GUID Is Nothing Then + ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False) + MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + Me.Close() + Else + CURRENT_USERID = USER_GUID + Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) + If Not folderwatch Is Nothing Then + CURRENT_FOLDERWATCH = folderwatch + If FW_started = True Then + tslblFW.Visible = True + ClassFolderWatcher.StartStop_FolderWatch() + End If + If CURRENT_FOLDERWATCH <> "" Then + TimerFolderWatch.Start() + End If + End If + sql = "SELECT MODULE_GI FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + sql = sql.Replace("@user", Environment.UserName) + If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then + ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) + MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + Me.Close() + Else + 'Am System anmelden + sql = sql_User_Login + sql = sql.Replace("@LogInOut", 1) + sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName) + sql = sql.Replace("@user", Environment.UserName) + If ClassDatabase.Execute_non_Query(sql, True) = False Then + Me.Close() + End If + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'" + ClassDatabase.Execute_non_Query(sql, True) + sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'Global-Indexer')" + ClassDatabase.Execute_non_Query(sql, True) + + sql = "SELECT GI_ADMIN FROM TBDD_USER WHERE GUID = " & USER_GUID + ISUserAdmin = ClassDatabase.Execute_Scalar(sql, MyConnectionString) + + If ISUserAdmin = True Then + ToolStripSeparator1.Visible = True + AdministrationToolStripMenuItem.Visible = True + Else + ToolStripSeparator1.Visible = False + AdministrationToolStripMenuItem.Visible = False + End If + 'Lizenz abgellaufen, überprüfen ob User Admin ist + If License_Expired And ISUserAdmin = False Then + ' wenn ja dann schliessen + Me.Close() + Else + 'ansonsten timer starten + TimerClose3Minutes.Start() + End If + 'Anzahl der eingeloggten User + UserLoggedin = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Global-Indexer'", MyConnectionString) + If License_Anzahl < UserLoggedin Then + MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & License_Anzahl.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + ClassLogger.Add(" - Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen für Process-Manager!", False) + If ISUserAdmin = False Then + Me.Close() + Else + 'ansonsten timer starten + If TimerClose3Minutes.Enabled = False Then + TimerClose3Minutes.Start() + End If + End If + End If + sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Global-Indexer'" + Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString) + ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) + If LogErrorsOnly = False Then ClassLogger.Add(" - Anzahl Angemeldete User: " & anzahl.ToString, False) + If Load_BasicConfig() = False Then + Me.Close() + End If + Unregister_Hotkeys() + Load_Hotkeys() + End If + End If + Catch ex As Exception + MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Unregister_Hotkeys() + Try + Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USERID + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) + If Not IsNothing(DT) Then + For Each row As DataRow In DT.Rows + HotKey.RemoveHotKey(row.Item("HOTKEY_ID")) + Next + sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USERID + ClassDatabase.Execute_non_Query(sql, True) + End If + + Catch ex As Exception + MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + Sub Load_Hotkeys() + Try + Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & CURRENT_USERID & " GROUP BY HOTKEY1, HOTKEY2", True) + If DT.Rows.Count > 0 Then + If LogErrorsOnly = False Then ClassLogger.Add(" ... " & DT.Rows.Count & " Hotkeys", False) + Dim i As Integer = 0 + For Each row As DataRow In DT.Rows + i += 1 + Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & CURRENT_USERID & ")" + ClassDatabase.Execute_non_Query(sql, True) + + Dim keyCode As Keys + Try + Dim kc As New KeysConverter + Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper) + keyCode = CType(obj, Keys) + Catch ex As Exception + MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Exit Sub + End Try + + Select Case row.Item("HOTKEY1") + Case "Strg" + If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False) + HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID")) + Case "Shift" + If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False) + HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID")) + Case "Alt" + If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False) + HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID")) + Case "win" + If LogErrorsOnly = False Then ClassLogger.Add(" ..." & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False) + HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID")) + End Select + Next + Else + If LogErrorsOnly = False Then ClassLogger.Add(" ... Keine Hotkeys!", False) + End If + Catch ex As Exception + MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + 'Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) + ' If loaded = True Then + ' If m.Msg = ClassHotkey.WM_HOTKEY Then + ' ' ' 'Me.Cursor = Cursors.WaitCursor + ' ' ' ' ClassHotkey_Windream.RUN_WD_SEARCH(m.WParam) + ' ' ' 'Me.NotifyIcon1.Visible = True + ' ' ' 'NotifyIcon1.ShowBalloonTip(2000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info) + ' ' ' 'Dim Result = + ' ' ' 'MyBase.WndProc(m) + ' ' ' 'If Result = "" Then + ' ' ' ' ' Me.NotifyIcon1.Visible = False + ' ' ' 'Else + ' ' ' ' ' NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning) + ' ' ' 'End If + ' ' ' End If + ' Else + ' Console.WriteLine("MESSAGE: " & m.ToString) + ' End If + ' End If + + 'End Sub 'System wide hotkey event handling + + Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click + Me.Hide() + Unregister_Hotkeys() + frmHotKey_Add.ShowDialog() + Load_Hotkeys() + Me.Visible = True + End Sub + + Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click + Me.Hide() + frmAdministration.ShowDialog() + Me.Visible = True + End Sub + + Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click + Me.TopMost = False + frmConfig_Basic.ShowDialog() + Me.TopMost = True + End Sub + + Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click + Me.TopMost = False + Unregister_Hotkeys() + frmHotkey_User.ShowDialog() + Load_Hotkeys() + Me.TopMost = True + End Sub + + Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick + Try + If FW_started = True Then + 'Prüfen ob alle Files abgearbeitet wurden + Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) + If DT.Rows.Count > 0 Then + ' Dim fil As String + Me.TimerFolderWatch.Stop() + For Each row As DataRow In DT.Rows + CURRENT_WORKFILE = row.Item(1) + CURRENT_FILENAME = row.Item(1) + CURRENT_WORKFILE_GUID = row.Item("GUID") + Open_IndexDialog() + Next + Me.TimerFolderWatch.Start() + End If + tslblFW.Visible = True + Else + tslblFW.Visible = False + End If + Catch ex As Exception + MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick + If License_Expired = True Or License_Anzahl < UserLoggedin Then + MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information) + Me.Close() + End If + End Sub + + Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown + loaded = True + Opacity = 0.65 + TimerFolderWatch.Start() + End Sub +End Class \ No newline at end of file diff --git a/Global_Indexer/frmTestvb.Designer.vb b/Global_Indexer/frmTestvb.Designer.vb new file mode 100644 index 0000000..f34922d --- /dev/null +++ b/Global_Indexer/frmTestvb.Designer.vb @@ -0,0 +1,29 @@ + _ +Partial Class frmTestvb + 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() + components = New System.ComponentModel.Container + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Text = "frmTestvb" + End Sub +End Class diff --git a/Global_Indexer/frmTestvb.vb b/Global_Indexer/frmTestvb.vb new file mode 100644 index 0000000..37f6bc0 --- /dev/null +++ b/Global_Indexer/frmTestvb.vb @@ -0,0 +1,3 @@ +Public Class frmTestvb + +End Class \ No newline at end of file diff --git a/Global_Indexer/frmUserKonfig_AddUsers.designer.vb b/Global_Indexer/frmUserKonfig_AddUsers.designer.vb new file mode 100644 index 0000000..f7aa781 --- /dev/null +++ b/Global_Indexer/frmUserKonfig_AddUsers.designer.vb @@ -0,0 +1,190 @@ + _ +Partial Class frmUserKonfig_AddUsers + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUserKonfig_AddUsers)) + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.lbGroups = New System.Windows.Forms.ListBox() + Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.clbUsers = New System.Windows.Forms.CheckedListBox() + Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() + Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() + Me.btnCancel = New System.Windows.Forms.Button() + Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton() + Me.tbSelectNone = New System.Windows.Forms.ToolStripButton() + Me.btnAddUsers = New System.Windows.Forms.Button() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.ToolStrip1.SuspendLayout() + Me.ToolStrip2.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.lbGroups) + Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip1) + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers) + Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2) + Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel) + Me.SplitContainer1.Panel2.Controls.Add(Me.btnAddUsers) + Me.SplitContainer1.Size = New System.Drawing.Size(618, 457) + Me.SplitContainer1.SplitterDistance = 206 + Me.SplitContainer1.TabIndex = 1 + ' + 'lbGroups + ' + Me.lbGroups.Dock = System.Windows.Forms.DockStyle.Fill + Me.lbGroups.FormattingEnabled = True + Me.lbGroups.Location = New System.Drawing.Point(0, 25) + Me.lbGroups.Name = "lbGroups" + Me.lbGroups.Size = New System.Drawing.Size(206, 432) + Me.lbGroups.TabIndex = 2 + ' + 'ToolStrip1 + ' + Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1}) + Me.ToolStrip1.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolStrip1.Size = New System.Drawing.Size(206, 25) + Me.ToolStrip1.TabIndex = 1 + Me.ToolStrip1.Text = "ToolStrip1" + ' + 'ToolStripLabel1 + ' + Me.ToolStripLabel1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel1.Name = "ToolStripLabel1" + Me.ToolStripLabel1.Size = New System.Drawing.Size(125, 22) + Me.ToolStripLabel1.Text = "Verfügbare Gruppen:" + ' + 'clbUsers + ' + Me.clbUsers.Dock = System.Windows.Forms.DockStyle.Top + Me.clbUsers.FormattingEnabled = True + Me.clbUsers.Location = New System.Drawing.Point(0, 25) + Me.clbUsers.Name = "clbUsers" + Me.clbUsers.Size = New System.Drawing.Size(408, 378) + Me.clbUsers.TabIndex = 6 + ' + 'ToolStrip2 + ' + Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tbSelectEverything, Me.tbSelectNone}) + Me.ToolStrip2.Location = New System.Drawing.Point(0, 0) + Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolStrip2.Size = New System.Drawing.Size(408, 25) + Me.ToolStrip2.TabIndex = 5 + Me.ToolStrip2.Text = "ToolStrip2" + ' + 'ToolStripLabel2 + ' + Me.ToolStripLabel2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ToolStripLabel2.Name = "ToolStripLabel2" + Me.ToolStripLabel2.Size = New System.Drawing.Size(128, 22) + Me.ToolStripLabel2.Text = "Verfügbare Benutzer:" + ' + 'btnCancel + ' + Me.btnCancel.Location = New System.Drawing.Point(220, 425) + Me.btnCancel.Name = "btnCancel" + Me.btnCancel.Size = New System.Drawing.Size(75, 23) + Me.btnCancel.TabIndex = 4 + Me.btnCancel.Text = "Abbrechen" + Me.btnCancel.UseVisualStyleBackColor = True + ' + 'tbSelectEverything + ' + Me.tbSelectEverything.Image = Global.Global_Indexer.My.Resources.Resources.CheckOutforEdit_13187_32x + Me.tbSelectEverything.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tbSelectEverything.Name = "tbSelectEverything" + Me.tbSelectEverything.Size = New System.Drawing.Size(106, 22) + Me.tbSelectEverything.Text = "Alle auswählen" + ' + 'tbSelectNone + ' + Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.tbSelectNone.Image = CType(resources.GetObject("tbSelectNone.Image"), System.Drawing.Image) + Me.tbSelectNone.ImageTransparentColor = System.Drawing.Color.Magenta + Me.tbSelectNone.Name = "tbSelectNone" + Me.tbSelectNone.Size = New System.Drawing.Size(104, 22) + Me.tbSelectNone.Text = "Nichts auswählen" + ' + 'btnAddUsers + ' + Me.btnAddUsers.Image = Global.Global_Indexer.My.Resources.Resources.add + Me.btnAddUsers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAddUsers.Location = New System.Drawing.Point(301, 425) + Me.btnAddUsers.Name = "btnAddUsers" + Me.btnAddUsers.Size = New System.Drawing.Size(95, 23) + Me.btnAddUsers.TabIndex = 3 + Me.btnAddUsers.Text = "Hinzufügen" + Me.btnAddUsers.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAddUsers.UseVisualStyleBackColor = True + ' + 'frmUserKonfig_AddUsers + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(618, 457) + Me.Controls.Add(Me.SplitContainer1) + Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmUserKonfig_AddUsers" + Me.Text = "Add Users from AD:" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.PerformLayout() + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.ToolStrip1.ResumeLayout(False) + Me.ToolStrip1.PerformLayout() + Me.ToolStrip2.ResumeLayout(False) + Me.ToolStrip2.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer + Friend WithEvents btnCancel As System.Windows.Forms.Button + Friend WithEvents btnAddUsers As System.Windows.Forms.Button + Friend WithEvents lbGroups As System.Windows.Forms.ListBox + Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip + Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel + Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip + Friend WithEvents tbSelectEverything As System.Windows.Forms.ToolStripButton + Friend WithEvents tbSelectNone As System.Windows.Forms.ToolStripButton + Friend WithEvents clbUsers As System.Windows.Forms.CheckedListBox + Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel +End Class diff --git a/Global_Indexer/frmUserKonfig_AddUsers.resx b/Global_Indexer/frmUserKonfig_AddUsers.resx new file mode 100644 index 0000000..9777f78 --- /dev/null +++ b/Global_Indexer/frmUserKonfig_AddUsers.resx @@ -0,0 +1,567 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 124, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG + YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 + 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw + bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc + VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 + c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 + Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo + mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ + kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D + TgDQASA1MVpwzwAAAABJRU5ErkJggg== + + + + + AAABAAkAMDAQAAEABABoBgAAlgAAACAgEAABAAQA6AIAAP4GAAAQEBAAAQAEACgBAADmCQAAMDAAAAEA + CACoDgAADgsAACAgAAABAAgAqAgAALYZAAAQEAAAAQAIAGgFAABeIgAAMDAAAAEAIACoJQAAxicAACAg + AAABACAAqBAAAG5NAAAQEAAAAQAgAGgEAAAWXgAAKAAAADAAAABgAAAAAQAEAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAIAAAAAAAACAgACAAAAAgACAAICAAADAwMAAgICAAAAA/wAA/wAAAP//AP8A + AAD/AP8A//8AAP///wAiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi + IiIiIiIiIiIiIiIiIiAAAyIiIiIiIiIiIiIiIiIiIiIiIiIiIgAAADIiIiIiIiIiIiIiIiIiIiIiIiIi + IAC7sAMiIiIiIiIiIiIiIiIiIiIiIiIiIAsHuwAyIiIiIiIiIiIiIiIiIiIiIiIiILuAe7ADIiIiIiIi + IiIiIiIiLMAAAAAAALO4B7sAMiIiIiIiIiIiIiLAAADMZmZmwLs7gHuwAyIiIiIiIiIiLAAAxmZmzMzM + wACzuAe7ADIiIiIiIiIsAAZmzMzMzMzMAAC7u4B7sAMzMzMzIiLABszMzMzMzMzAAAAAC7gHuwAAAAAA + MiIAbMzMzMAAAAwAAAAACzuAe7gzMzMwAyIGzMzMAAODcwAAABEAC7u4C7u7u7uzADIAzMwAODc3NzAB + GRkQAAC7uwuwi7u7MAMgDMCDc3Nzc4ARERERAAALsLsIu3i7swMiAMA3Nzc3NwABODg4AiILC7CLtxe7 + swMiIABzc3NzgwODg4OAIiILuwi7cHu7swMiIgA3Nzc3OAg4ODgCIiILsIu3F7u7swMiIiADc3OAAAAA + g4AiIiILCLtwe3d3swMiIiAINzg4Nzc3CDAiIiI7i7cXswADswMiIiADg3Nzc3N3A4AiIiI7u3B7MIIg + swMiIgAACDc3Nzc3AAAAACI7txe7MIIDswMiIAAAAHNzc3ODA4ODgwI7uHu7MIA7sDIiAAAAADc4Nzc3 + CDg4OAIju7u7MwO7AyIiAAAAA3ODc3NzAIODgwIiO7u7u7uwMiIgAAAIdzc3N3c3Nwg4MAIiI7u7u7sD + IiIAAAADc4Nzd3NzcwODgwIiIjMzMzMyIiIAAAAHdzc3d3c3MDg4OAAiIiIiIiIiIiIAAAADc3Nzc3Nz + cIODg4MCIiIiIiIiIiIAAAAANzg3NzA3MDg4ODgCIiIiIiIiIiIAAAAAAACDc3AAAIODg4AiIiIiIiIi + IiIAAAAAAAA4Nzc3ADg4ODAiIiIiIiIiIiIAAAAAAAADc3NzcIOAg4AiIiIiIiIiIiIAAAAAAAAANzc3 + cDgwAAgiIiIiIiIiIiIAAAAAAAAAA3NzcIODgwgiIiIiIiIiIiIAAAAAAAAAADc3MDg4OAgiIiIiIiIi + IiIgAAAAAAAAAAAAAIODg4AiIiIiIiIiIiIgAAAAAAAAAAAAADg4ODAiIiIiIiIiIiIiAAAAAAAAAAAA + AACDg4ACIiIiIiIiIiIiIAAAAAAAAAAAAAAAAAACIiIiIiIiIiIiIgAAAAAAAAAAAAAAAAACIiIiIiIi + IiIiIiIAAAAAAAAAAAAAAAACIiIiIiIiIiIiIiIiIiAAAAAAAAAAAAAiIiIiIiIiIiIiIiIiIiIAAAAA + AAAAACIiIiIiIiIiIiIiIiIiIiIiAAAAAAAAIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi + IiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiL///////8AAP///////wAA///+D///AAD///wH//8AAP// + +AP//wAA///4Af//AAD///gA//8AAP+AAAB//wAA/AAAAD//AADgAAAAH/8AAIAAAAAADwAAAAAAAAAH + AAAAAAAAAAMAAAAAAAAAAQAAAAAAAAAAAACAAAAAAAAAAMAAABwAAAAA4AAAPAAAAADwAAB8AAAAAPgA + APwAAAAA+AAA/AAAAAD4AAD8AGAAAPAAAAwAQAAA4AAABAABAADAAAAGAAMAAMAAAAcABwAAgAAAB4AP + AAAAAAAHwB8AAAAAAAP//wAAAAAAAf//AAAAAAAB//8AAAAAAAP//wAAAAAAA///AAAAAAAD//8AAAAA + AAP//wAAAAAAA///AAAAAAAD//8AAIAAAAP//wAAgAAAA///AADAAAAB//8AAOAAAAH//wAA8AAAAf// + AAD8AAAB//8AAP/gAAP//wAA//AAD///AAD//AA///8AAP///////wAA////////AAAoAAAAIAAAAEAA + AAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAICAAIAAAACAAIAAgIAAAMDA + wACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////ACIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIAAy + IiIiIiIiIiIiIiIiIgCIAyIiIiIiIiIiIiIiIiIHC4AyIiIiIiIiIiiAAAAAC3C4AyIiIiIiIoAAAAzM + zAC3C4AyIiIiIoAADMzMzMABAHC4AzMzMiIADMzAAMwAERC3C4AAAAMiDMzAA4MAARGRALC7u7uAMiDM + CDc3MAhziRALsws7uAMgAHdzeAGDhzAiCzCzC7sDIgA3N4MAOHMCIgsLMLu7AyIgA3MBAQOAIiI7swgA + iwMiIAc3g4dwMCIiOzCwggsDIgAAd3d38AAAIjt7sIC7gyAAAAd3dzE4NwIju7gLuDIgAAB3c3dwA4cC + Iju7u4MiAAAHdzd/d3A4EiIjMzMyIgAAB3d3938DgwAiIiIiIiIAAAA3d3B3CHdzAiIiIiIiAAAAADdx + AAd3MCIiIiIiIgAAAAADd3ADCHAiIiIiIiIAAAAAADf3CBADIiIiIiIiAAAAAAADdwN3CCIiIiIiIiAA + AAAAAAAIc3AiIiIiIiIgAAAAAAAAADcwAiIiIiIiIgAAAAAAAAAAAAIiIiIiIiIiAAAAAAAAAAACIiIi + IiIiIiIgAAAAAAAAIiIiIiIiIiIiIiAAAAAAIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIi + IiIiIiIi///////+H////A////wH//gAA//AAAH/AAAABwAAAAMAAAABgAAAAIAAMADAAHAA4ADwAOAA + 8BDAADAAgAAYAYAAHAMAAB4HAAAP/wAAB/8AAA//AAAP/wAAD/8AAA//gAAP/4AAB//AAAf/8AAH//4A + D///gD////////////8oAAAAEAAAACAAAAABAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + gAAAAAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////ACIi + IiIAMiIiIiIiIDsDIiIiDMRAsLAyIgzMzMwLCwAyDMAAABCwuwMAB3ARkjuzsCB3gAAiOzCwIgh3cAA7 + uzMgBzdwhwMzMgB3f3cIAiIiAHd3AHOIIiIAAHfwMAIiIgAAB3CHAiIiAAAAADgAIiIgAAAAAAAiIiIg + AAAAAiIi/x/AA/4PARHAB7C7AAGAMgAACDcAQAhzgMALs8AAuAOAAXdzAB+DhwAPCzAAH7sDAB83NwAP + OHOADwsL4B+7AygAAAAwAAAAYAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////ABEM + aQAAAAAANBpLAAAAAAB/TG4AYF5eAP1lVAD8ZFMA/WZVAPljUAD9alcA/WtYAL+LhADnWD4A711GAP1y + XAD9dV4A/XhgAPFoTgDzbVMA/XxkANxRMQD4e18A/YRpANJMJwDvdlYA/IttAP2OcADNSCEA4GZCALFl + TQD+knIAwEATAKU/GQDSXDIA1WI3AOuAWQD5km8At0YbAMVXKwDMXS8At1cxAH5AJwCFRy4A6Zp6AGxV + TACMUDYA13RFAGpjXwDViFUAbUkxAP+/kQCsZSsA7riKAJpYGQD/798A/8+cAP/ZpgDf0bwAhWAaAP3j + sAD/9+gAkXkwAP//8gD///wAv9msAICrZwDP4sUAcKlfAEiQNwBtxGIAespvAEyZRgBqqWYAL5gtAAqF + CgAWihYAGpYaAB6PHgAZdxkAKa0pACOQIwAbaBsAPLc8AEO7QwBAs0AAJWYlADmaOQBKvkoAT8FPAESm + RABSwlIATbNNAFC4UABWxFYAW8VbAGPKYwBpzWkAb9FvAGfAZwBFfkUAddJ1AHHLcQB813wAj+CPAICz + gAA1WTgAn7CkADd9VwACaHYAaZquABNyogAYdqYAF2OKACBggQAsWG8AE1+IACR+rgA5n9kAOou3AD+V + wwBHn9AAV6nXAGOr0gCezOYAo9DqAA1zswAkfbYAIm6dAD2i3wBNs/IAU7n5AHq74QCEwOQAlMjnAJfK + 6ACezekAFXm6ACOFxgBDqO0AUbf/AFW7/wBWvP8AWmBkABuBzQAfhdQAS7H/AE2z/wBOtP8AQnOZACeM + 4gAtkuYARKn/AESq/wBHrf8ASa//ACyS8QA6oP8APKH/AD2i/wBApv8AQ6j/ADKW/AAylfsAM5n/ADWb + /wA3nf8AEliiAC+M8wAxkfkANpT3AAkSHAAXY7oAKnziAC2C6gAndNoAJnHXACl64AAod90AIWK1ACNo + zgAkatAAFlOwAB5fwgAgYMYAImXLABBCngAcVrwAI2jdAB5awAAQLFsADhksABtRtwAaTbMADSloAB1W + 0gAWQZ4AGUiuAAUpgwAUP6QAFDyiABQ6oAASNZsADCV+AA8tkwAQL5UABQcOAAgdbAANJo0ABxVbAAYY + ewAuNFcAHyApAAQMcgABAhUAAQRqAKSkpACXl5cAj4+PAISEhAB+fn4AcXFxAG1tbQBmZmYAVFRUAE1N + TQBKSkoARkZGAD8/PwA4ODgANjY2AC8vLwAsLCwAKioqACgoKAAkJCQAISEhAB8fHwAcHBwAGhoaABgY + GAAXFxcAEhISAA0NDQAKCgoAAgICAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF4ODhMuEy4TIy4TLh4eDg + 4ODgBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQXg4SMsIiMiIyIjIiMjIywsNC/h4eAFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBeAoIiIeGhcPFxALCwkQDyIiIiIjIzTg4QUFBQUFBeDg4ODg4ODg4ODg + 4AUFBQUFBSsiIhoaFw8QCwgIDAwNDygiEAsPGiIjNODg4eEH4eJsWGxYbFhsWGxs4+HgBQUFBSseGhoP + DwsJDA0RERERIjcpDwoJCxcaIjRYVE1UVE1QU1NTU05OT01NTVRY4AUFBSsoGg8XCwkMERMWFhYaKz4z + HhENCAsPFyJRWVZbTU1fWltbVlZVUlJST09N4uAFBTMiFw8LCA0RFhYZGTEoOz47IhYRDQkLDyJKW11Z + TFFZYGFdXVtWVlJSUk9NbOAFBTEiDxAJDRETGRkdGSIuPj4+KxQWEQ0IDyJKYGFObUNNYmJiYF1bVlZV + UlJNWOAFBQUjFwsMERYZGR0hHio7Ozs7MxcZFhEMECJGYWJUPkFKU2hjY2JgXVZWVVJNbOAFBQUxIgsN + ExYZHSEqKTo7Ozs7MykZFhMNCyJiZF9TPz85UV5oZGNiYFtWVVJN4OAFBQUFKx4RFhkdJyYiNzU6OjU6 + Lh4dGRYRFzhkZ1lrQUFBbU1oaWdjYmFbVlJU4AUFBQUFBSIXFhkdJiImNzo3NTo6LiIdGRMfIkRnZ05D + QkJCQmtRaWlkYmFdVk1m4AUFBQUFBQUrKSYbIjEOIAYGDiE3NyIdGR8iQGdpalQ/AQEBAT9TSmlnZGJg + UFTgBQUFBQUFBQUFMTEiIwTX2dfZ19kGJiIxKCNGSGdpak0/Pz8/Pz9DVF5pZGJMVOEFBQUFBQUFBQUF + 4OnvwdPU0tLS0s3ZBCMjIFRcZ2lqaFQ5OTk+OTk+alRlZ0xU4AUFBQUFBQUFBQX1APf3AADTz8/Pz8/S + 1wIFBQVUTmVqZVM+bXdxcXF320RNUVTgBQUFBQUFBQUF8AD29/YA0NPNzMvLy8vMz9nVBQUFTVROWU13 + gJKSkpKSgHZUWOAFBQUFBQUFBQXw9/b19fatzMfHx8fHx8fHy87XBQUFBQUFZnaLk5iTmJOTmJJx4+AF + BQUFBQUFBQX39fX09ADOx8PDw8PDw8PDw8fU1QUFBQUFl5KYmZmenpmZmJiScePgBQUFBQUFBQD19PTw + 9K3Dw729vb25vb29vcPSxAUFBQUFgKWmpqampqampqWeknbgBQUFBQUFBfb08PDw9MC9vbm7u7u7u7u5 + ub3HyAUFBQWAnqenqKioqKiop6empot14AUFBQUFBfXw8O3t9NG6u7q3t7e3t7e3u7q6zcgFBQWAqJ+f + oaGhoaGhn5+op6V24AUFBQUFBfTt7err8cG3t7KytLS0tLSysre7yMgFBQWAoaGhoqKioqKioaGhn5+L + deAFBQUFBfDt6uvo6q2ytLSvsLCwsK+wtLKyvMgFBZeeoqObm5ycnJubo6OioaGYdeAFBQUFBfTq6+jo + 5/e7r7CqqqqqqqqwsLC0vHYFBXmNm5ydnZSUlJSdnZybo6KhduAFBQUFBfTo6Ojn5vHIqqqmpqanpqal + qrCwvMgFBZebnZWVlpaOjpaWlZWdnKOigOAFBQUFBfbo6ebl5ujQtLCqqqefn6inpqWeyAUFBXmUlY6O + j5CQkJCOjo6VlJybkuAFBQUFBfDq5ubl5OTxwcvDt7exsKunpqaYyAUFBZeWjo+QkJCQkJCQkI6OlpWd + kuAFBQUFBQX15uXk4uPi6vT2rdHJvcW3t7LA8gUFBXmNkJCQkJCQkJCQkJCPjpaVi+AFBQUFBQX16OTk + 5uIH4N/f5vHY08TUxK0A6AUFBZeDkJB4jIt4m5WWjo6OlpSMceAFBQUFBQUF9uTi4uLh393a2tsH6fD0 + 8Or3BQUFBXmMjHGLenqMcYuTmKekmItyduAFBQUFBQUF9fXiB+Hg393b2kNt3d8H5PTtBQUFBQVxcXKM + eHx8fYZ6eXFyd3dxc+AFBQUFBQUFBfX04uHf3t3d3Nra294H6/YFBQUFBQUFcXp6fHx9h4d/f399cIGA + dAUFBQUFBQUFBQX19eLe3dzb3d7f4OLt9gUFBQUFBQUFcXp8fX2Hh35/f4d8end24AUFBQUFBQUFBQUF + BfXw4t7b3eDk7vbmBQUFBQUFBQUFBXF8fYeHiYeHfXx8enGXBQUFBQUFBQUFBQUFBQUF9fUAAPXoBQUF + BQUFBQUFBQUFBQVxfYd+f4qHh318cnkFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + cXmHf39+fHdyBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBXmXeZd5l3kFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF + BQUFBQUFBQUFBQUFBQUFBQUF////////AAD///////8AAP///////wAA////////AAD///////8AAP// + /////wAA4AAH////AADAAAH///8AAIAAAH4AHwAAgAAAAAAHAACAAAAAAAMAAIAAAAAAAQAAgAAAAAAB + AACAAAAAAAEAAMAAAAAAAQAAwAAAAAABAADgAAAAAAMAAPAAAAAAAwAA+AAAAAAHAAD8AAAAAA8AAPwA + AAAAHwAA+AAOAAA/AADgAAcAAH8AAMAAB+AAfwAAwAAD4AA/AACAAAPgAD8AAIAAA8AAHwAAgAABwAAf + AACAAAHAAA8AAIAAAYAADwAAgAABgAAPAACAAAGAAA8AAIAAA4AADwAAgAADgAAPAADAAAOAAA8AAMAA + A4AADwAA4AAHgAAPAADgAAfAAA8AAPAAD+AAHwAA+AAf4AAfAAD+AD/wAD8AAP+B//gAfwAA/////AH/ + AAD////+A/8AAP///////wAA////////AAD///////8AAP///////wAAKAAAACAAAABAAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AEQxpAAAAAAA0GksATCFPAH9MbgBgXl4A/WVUAPxk + UwD9ZlUA+WNQAP1qVwD9a1gAv4uEAOdYPgDvXUYA/XJcAP11XgD9eGAA8WhOAPNtUwD9fGQA3FExAPh7 + XwD9hGkA0kwnAO92VgD8i20A/Y5wAM1IIQDgZkIAsWVNAP6ScgDAQBMApT8ZANJcMgDVYjcA64BZAPmS + bwC3RhsAxVcrAMxdLwC3VzEAfkAnAIVHLgDpmnoAbFVMAIxQNgDXdEUAamNfANWIVQBtSTEA/7+RAKxl + KwDuuIoAmlgZAP/v3wD/z5wA/9mmAN/RvACFYBoA/eOwAP/36ACReTAA///yAP///AC/2awAgKtnAM/i + xQBwqV8ASJA3AG3EYgB6ym8ATJlGAGqpZgAvmC0ACoUKABaKFgAalhoAHo8eABl3GQAprSkAI5AjABto + GwA8tzwAQ7tDAECzQAAlZiUAOZo5AEq+SgBPwU8ARKZEAFLCUgBNs00AULhQAFbEVgBbxVsAY8pjAGnN + aQBv0W8AZ8BnAEV+RQB10nUAcctxAHzXfACP4I8AgLOAADVZOACfsKQAN31XAAJodgBpmq4AE3KiABh2 + pgAXY4oAIGCBACxYbwATX4gAJH6uADmf2QA6i7cAP5XDAEef0ABXqdcAY6vSAJ7M5gCj0OoADXOzACR9 + tgAibp0APaLfAE2z8gBTufkAervhAITA5ACUyOcAl8roAJ7N6QAVeboAI4XGAEOo7QBRt/8AVbv/AFa8 + /wBaYGQAG4HNAB+F1ABLsf8ATbP/AE60/wBCc5kAJ4ziAC2S5gBEqf8ARKr/AEet/wBJr/8ALJLxADqg + /wA8of8APaL/AECm/wBDqP8AMpb8ADKV+wAzmf8ANZv/ADed/wASWKIAL4zzADGR+QA2lPcACRIcABdj + ugAqfOIALYLqACd02gAmcdcAKXrgACh33QAhYrUAI2jOACRq0AAWU7AAHl/CACBgxgAiZcsAEEKeABxW + vAAjaN0AHlrAABAsWwAOGSwAG1G3ABpNswANKWgAHVbSABZBngAZSK4ABSmDABQ/pAAUPKIAFDqgABI1 + mwAMJX4ADy2TABAvlQAFBw4ACB1sAA0mjQAHFVsABhh7AC40VwAfICkABAxyAAECFQABBGoApKSkAJeX + lwCPj48AhISEAH5+fgBxcXEAbW1tAGZmZgBUVFQATU1NAEpKSgBGRkYAPz8/ADg4OAA2NjYALy8vACws + LAAqKioAKCgoACQkJAAhISEAHx8fABwcHAAaGhoAGBgYABcXFwASEhIADQ0NAAoKCgACAgIAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAODg4ODg4ODg4OAAAAAAAAAAAAAAAAAA + AAAAAAAAAODgMC0tLS0tLTQvMuDg4AAAAAAAAAAAAAAAAAAAAAAAKyIaFw8QCwgIHhoaIywv4ODg4ODg + 4ODg4ODg4OAAAAAiGhcQCQwREhQzKgoLDyI0WFhUUVNQUFBOUVRs4OAAACIXEAoRExYZKT4zFQwJEDhX + W0xTXV1aVlVSUk1R4AAAKQ8JERMZHCU3PjcfEwwLNmBhRkReYmFdVlVST1HgAAAqDw0TGSEmMzs7OyQZ + Ego2Y1xDP0pnY2JgVlVPUeAAAAAqGxYcJyo6Ojo6MRwTFEBnWUFBRVlpZGJbVVHgAAAAAAAlGxwqLg4O + NzUxHRgoSWlLQgEBa2VpY2FMUQAAAAAAAAAgKAXZ19cCBiQkPUhpaks/Pzk5SmhkX2YAAAAAAAAA5PL3 + 2M3Pz87UBAdLWWRqRDxweXBtR1xmAAAAAAAAAPT29tDEzMrKysvU1QAASkpugJKTkotvbOAAAAAAAADy + 9fT1xMfHw8PDx8nRAAAAAACenp6enpN2B+AAAAAAAPTz8fXCvb+/ub+9vcipAACBpqenp6empph14AAA + AADw8e/twbq7tre3t7u7vHUAcZigoKCgoKCfqIuR4AAAAPDu7Orzt7G0s7OztLK41QBxoaOam5ubo6Kh + mXXgAAAA8Ovp6O21sKqrpauqr7l1AHGbnJSUlJSdnJqidOAAAADw6+fm5sCqq6efp6akrnUAcZSVjo6O + jpaVnZuC4AAAAADw5uXj6sDGxb6wrKupqQBxjo+QkJCQj46WlIvgAAAAAOvm5OQH4ePW09LMxK0AAHGQ + hYN4hI6QhY6NceAAAAAAAOvi4uHd29rf5enr5gAAcYtxjHp5jJKTjHdzAAAAAAAAAO4H393c2tre5PEA + AACLcXp7fIaJfn16cpcAAAAAAAAAAOzh3Nvd4OXpAAAAAABxeXyGh4p+fXpxAAAAAAAAAAAAAOzs7Ozs + 7AAAAAAAAABxe4h/iIZ8dwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABxcXFxcXEAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////+AH//+AAP//gAAAA4AA + AAGAAAABgAAAAYAAAAHAAAAD4AAAB/AAAA/gAAAfwAMAH4AD4A+AAYAPAAEABwABAAcAAQAHAAEAB4AB + AAeAAwAHwAMAD+AHAA/wD4Af+B/AP///4H////////////////8oAAAAEAAAACAAAAABAAgAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP///wARDGkAAAAAADQaSwBMIU8Af0xuAGBeXgD9ZVQA/GRTAP1m + VQD5Y1AA/WpXAP1rWAC/i4QA51g+AO9dRgD9clwA/XVeAP14YADxaE4A821TAP18ZADcUTEA+HtfAP2E + aQDSTCcA73ZWAPyLbQD9jnAAzUghAOBmQgCxZU0A/pJyAMBAEwClPxkA0lwyANViNwDrgFkA+ZJvALdG + GwDFVysAzF0vALdXMQB+QCcAhUcuAOmaegBsVUwAjFA2ANd0RQBqY18A1YhVAG1JMQD/v5EArGUrAO64 + igCaWBkA/+/fAP/PnAD/2aYA39G8AIVgGgD947AA//foAJF5MAD///IA///8AL/ZrACAq2cAz+LFAHCp + XwBIkDcAbcRiAHrKbwBMmUYAaqlmAC+YLQAKhQoAFooWABqWGgAejx4AGXcZACmtKQAjkCMAG2gbADy3 + PABDu0MAQLNAACVmJQA5mjkASr5KAE/BTwBEpkQAUsJSAE2zTQBQuFAAVsRWAFvFWwBjymMAac1pAG/R + bwBnwGcARX5FAHXSdQBxy3EAfNd8AI/gjwCAs4AANVk4AJ+wpAA3fVcAAmh2AGmargATcqIAGHamABdj + igAgYIEALFhvABNfiAAkfq4AOZ/ZADqLtwA/lcMAR5/QAFep1wBjq9IAnszmAKPQ6gANc7MAJH22ACJu + nQA9ot8ATbPyAFO5+QB6u+EAhMDkAJTI5wCXyugAns3pABV5ugAjhcYAQ6jtAFG3/wBVu/8AVrz/AFpg + ZAAbgc0AH4XUAEux/wBNs/8ATrT/AEJzmQAnjOIALZLmAESp/wBEqv8AR63/AEmv/wAskvEAOqD/ADyh + /wA9ov8AQKb/AEOo/wAylvwAMpX7ADOZ/wA1m/8AN53/ABJYogAvjPMAMZH5ADaU9wAJEhwAF2O6ACp8 + 4gAtguoAJ3TaACZx1wApeuAAKHfdACFitQAjaM4AJGrQABZTsAAeX8IAIGDGACJlywAQQp4AHFa8ACNo + 3QAeWsAAECxbAA4ZLAAbUbcAGk2zAA0paAAdVtIAFkGeABlIrgAFKYMAFD+kABQ8ogAUOqAAEjWbAAwl + fgAPLZMAEC+VAAUHDgAIHWwADSaNAAcVWwAGGHsALjRXAB8gKQAEDHIAAQIVAAEEagCkpKQAl5eXAI+P + jwCEhIQAfn5+AHFxcQBtbW0AZmZmAFRUVABNTU0ASkpKAEZGRgA/Pz8AODg4ADY2NgAvLy8ALCwsACoq + KgAoKCgAJCQkACEhIQAfHx8AHBwcABoaGgAYGBgAFxcXABISEgANDQ0ACgoKAAICAgAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA39/f4ODg4OAAAAAAAAAA4CAwMDAw + LzLf4ODg4N/f4B8XCxEUMRQabGxMR0xYbOAzCxYcMzoVDEBeS2JdVVPgAB8ZJjo6Gw1EazleZ1tH4AAA + IAXVBiBAaWo/Q2FcAAAA89DEy8/R4kuXi4Fu4wAA5vHAw73Cz+JwnqamnnXdAPTszrGysr+ReqKioqGM + 4ADq6HWrpqy3kXuUlJWdmeEA4OTm5cm6dt58hISPjo3gAADn4dza4+UAfYF8fXtxcAAAAOAHB+EAAAB5 + h397cAAAAAAAAAAAAAAAAHl5eQAAAAAAAAAAAAAAAAAAAAAAAAD//xcQgH8TFgAAPjMAAAkQAABbTIAA + XVrAA1JSgAPgAAABDwkAARkcAAE+NwABDAuBAWFGw4NiYf/HVVL//+AAKAAAADAAAABgAAAAAQAgAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAcAAAATAAAAHgAAACUAAAAsAAAALwAA + AC8AAAAvAAAALwAAAC8AAAAvAAAALgAAACkAAAAkAAAAHwAAABgAAAARAAAACQAAAAIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAEAAAADEAAABVAAAAbQAA + AHwAAACJAAAAjwAAAI8AAACPAAAAjwAAAI8AAACPAAAAjAAAAIMAAAB5AAAAbgAAAGEAAABSAAAAQAAA + AC4AAAAfAAAAEAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKA0BRm0i + ArWIKgLijy0C67A3A/+wNwP/sDcD/7A3A/+wNwP/sDcD/7A3A/+wNwP/nzID944sAu2FKgLnaSEC11Qa + AckwDwGyAAAAlwAAAIcAAABwAAAAUAAAAC0AAAARAAAABAAAAAAAAAAAAAAAAQAAAAQAAAAKAAAADwAA + ABUAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAFQAAAA0AAAAGAAAAAQAAAAAAAAAAAAAAAAAA + AAB8JwJErDYD9bk8DP/AQBT/ykcf/9RNKf/dUjL/4lU4/+hYPv/uXET/9WBL//diTv/6Y1H/7lxE/+pa + QP++PxH/uTwM/8VDGf+0OQf/qDQD+4UpAulSGgHNAAAAnQAAAH0AAABPAAAAKAAAABwAAAAiAAAALAAA + ADcAAABDAAAATQAAAFkAAABfAAAAXwAAAF8AAABfAAAAXwAAAF8AAABfAAAAWQAAAEoAAAA6AAAAJwAA + ABEAAAAEAAAAAAAAAACjMwOsuj0N/8lGHv/RSyb/104s/+FUNv/lVzv/8F1G//hiT//9ZVT//WZV//1p + V//9alj//WpY/+pdQv+1Qw//tToI//hiT//4Yk//6lk//9BKJf+2Owr/nzID90UWAcwAAACYAAAAdQAA + AGgAAAB2AAwAjwAmAK0AJACzAD8AzwA+ANIAPgDTAD4A0wA+ANMAPgDTAD4A0wA+ANMAPgDTACMAuwAT + AKkAAACSAAAAegAAAEkAAAAWAAAAAQAAAACoNQPIw0IX/9BLJf/XTiz/4VQ2/+hYPv/1YEv//GVT//1o + Vv/9bVn//XBc//1zXv/9dF//+HBZ/7o+Dv/muYb/v1sn/+BYOf/9aFb//GVT//VgS//oWD7/1k4s/7M5 + Bv9iLAHlADwA2ABTAOoAYgD6AGYA/wVsBf8KcQr/H4wf/yORI/8ikCL/IJAg/yCQIP8cjhz/Go0a/xaL + Fv8OgA7/CHcI/wJqAv8AXAD3ACgAzAAAAIUAAAA3AAAACAAAAACqNQPGx0Ub/9ZOK//hVDb/6Fg+//Vg + S//9ZlT//WtY//1xXP/9d2D//Xpi//18ZP/9f2b/0lUt/8RkMf//7rv/3J5r/8hKH//9cVz//WxZ//1m + VP/1YEv/6Fg+/9xRMf+wNwP/I4IY/zGhMf9DtEP/Tb9N/wVsBf8Odw7/UMFQ/0/AT/9Nv03/S75L/0e8 + R/9CukL/PLc8/zSzNP8tsC3/Jawl/xynHP8SlRL/AWoB/wATAK0AAABTAAAAEgAAAACrNQO0xUQa/91S + Mv/lVzv/9WBL//1mVP/9bVr//XNe//16Yv/9f2b//YNp//2Gav/lbkv/tUIO//rbqf//6Lb/9dKf/7A3 + A//9emL//XNe//1tWv/9ZlT/9WBL/+ZXPP+9PxH/ZZ06/06/Tv9Tw1P/NaE1/zCDKP8geRv/Mpwy/1nG + Wf9Yxlj/VcRV/1HBUf9Mv0z/R7xH/z+5P/81tDX/LrAu/yWsJf8cpxz/Cn4K/wA4AM0AAABcAAAAFgAA + AACpNQNkuj0O/+NVOf/wXUb//GVT//1sWf/9c17//Xpi//2CaP/9h2v//o1v//mJav+1PAr/5qt4///h + rv//4q///+Kw/79XI//qb07//Xpi//1zXv/9bVn//GVT//BdRv+9PxH/aqA//1jGWP9eyF7/HoUe/5/G + iv+/2ab/BmwG/2DGYP9ky2T/YMlg/1vHW/9WxFb/T8BP/0i9SP9BuUH/N7U3/y2wLf8kqyT/DoYO/wA+ + ANEAAABVAAAAEwAAAACmNAMRrzcD8dtRMP/4Yk///WhW//1xXP/9emL//YJo//2IbP/+j3D//pR0/8RP + IP/OdED//9uo///bqP//3Kn//9yp/9N/S//XXjb//YJo//16Yv/9cl3//WlX//hiT/+8PhD/caNG/2TL + ZP9ix2L/AGYA/+/11f///+T/YJ9W/ySIJP9v0G//a85r/2XMZf9fyV//WMZY/1HBUf9JvUn/P7k//zW0 + Nf8qrir/DoAO/wA6AMQAAABBAAAACgAAAAAAAAAArDYDg7w+EP/9ZVT//W5a//13YP/9f2b//Ydr//6P + cP/+lnX/12g9/79UIP/6ypf//9Sh///Uof//1qP//9aj/9yQXf/IUiX//Ydr//1/Zv/9d2D//W5a//hi + T/+wNwP/Z8xn/27Qbv9PsE//MIMs////6f///+v/7/Xc/xBwD/9TslP/dtR2/3HRcf9ozWj/Ycph/1jG + WP9PwE//R7xH/z64Pv8xsjH/BW8F/wAhAJUAAAApAAAAAgAAAAAAAAAAAAAAAK83A9HNSiL//XBc//16 + Yv/9g2n//o1v//6UdP/melL/tUAM//Cwff//zpv//86b///Om///z5z//8+c/+updv/ETR///o1v//2E + af/9emL//XFc/+BWN/+eXR3/cdFx/3fUd/83mDf/gLN4////8P////L////y/6/Pp/8IbQj/cMtw/3rW + ev9y0nL/aM1o/2DJYP9YxVj/Tr9O/0K6Qv8onSj/AF4A8wAAAFQAAAATAAAAAAAAAAAAAAAAAAAAAKY0 + AxGvNwPw11Yx//18ZP/9hmr//o9x/++GYP+1PQr/5o9h//68jv//v5H//7+R///Ck///xpX//8aV/+ul + cv+/SRn//o9x//2Ha//9fWX/72lO/7U7Cf+AqlX/d9R3/4HZgf8ihCL/v9m6////+P////n////6//// + +v9wqW//IoQi/4Lagv971nv/cdFx/2fMZ/9bx1v/U8NT/0i9SP8Mdgz/ADoAqgAAACoAAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAACpNQMyrTYD0shOIv/0f2D/74Bd/7U9Cv/hdEv/3ox5/59mdf9/U3P/f1l3/79/ + e//+p4D//qyE//6shP+wNwP//pJz//6Jbf/qbU3/tTsJ/5F5MP900nT/f9l//4jdiP8AZgD/7/Xv//// + ///////////////////v9e//MIMw/0WiRf+B2YH/dtR2/23Pbf9hymH/WMVY/yeTJ/8AWwDoAAAAQAAA + AA0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEUxoBIpkwA6W1PAr/tTwK/48tFv86HWD/AAFn/wEF + av8DCG7/Awhu/wABZ/8QC2j/f0xt/+p6Vf+6QxH/4XFJ/8NMHv+rQAj/gZRA/23Pbf951Xn/g9uD/43f + jf8AZgD///ny///58v//9+////Xs///17P//9Oj/z9e5/xBuDf9ct1z/fdd9/3HRcf9mzGb/OKI4/wBj + APcALwBpAAAAEwAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAAoAAAAoAAAAVAAAAJUaCAHYTRgI/wAD + NP8CCFP/Ch6D/w0njf8NJ43/DSeN/wwli/8IGn7/AQhr/yYUXP+lNAr/mzED6240ArMRaQb/RatF/3DR + cP99133/iN2I/3TJdP8gdhr//+zZ///o0v//6NL//+jS///lzP//48f//+LG/6+6hv8IbQj/aMNo/3PS + c/86oDr/AGMA9wAwAGYAAAATAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAABAAAADAAAADYAAACnAAAA8wEB + Af8DAwP/BAQE/wICAv8AAAD/CRlT/xAxl/8RMpj/ETKY/xEymP8QMJb/DSiN/wMQc/8MDFXzAAAAogAA + AFwAVwBxAGYA8CuPK/9uyW7/id6J/2zCbP9AhC7//9y5/5+xsP9AhKP/BWuj/wdtpv8GbKX/MHye/4+m + pv+PomX/CG0I/x6CHv8AYADtADYAWgAAABAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAAPQAA + AOUBAQH/BQUF/wcHB/8JCQn/AwMD/wEDCv8IGEX/Dy+C/xM6oP8UPKL/FD2j/xQ7of8TOqD/Ezie/w8v + lP8BEnD/AAlA3AAAAIcAAAA1AFQAJwBkAKMAZgD/Gn0a/0GdQf8AZgr/QIKe/wtxr/8Xfcb/GoDM/xqA + zP8agMz/GH7J/w1zs/8CaIn/AGEe+wA/ANAAEABlAAAAGQAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAEAAAAqAAAA4gMDA/8KCgr/DAwM/w4ODv8HBwf/BAwg/xQ7m/8WQqj/FkOp/xdFq/8XRav/F0Wr/xdF + q/8XRav/FkKo/xZBp/8MLY//ABNr+wACC6kAAABYAAAAFAAAAAAAYAARAGAAZgBeDb8AZnz/FXvC/yKI + 3P8iiN3/Iojd/yKI3f8iiN3/IYfb/yCG2f8Zf8v/AmOX+wAaJsAAAACEAAAAPAAAAAsAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAgAAACoBAQE/w0NDf8QEBD/EhIS/xQUFP8BAQH/EziL/xhIrv8aTLL/Gk2z/xpO + tP8bULb/G1C2/xtQtv8aTrT/Gk2z/xlLsf8YR63/Ax56/wANPNUAAAB5AAAAJAAAAAAAAAAAAAAADgBa + h8YZfsr/J43n/ymO6v8rkO7/LZLy/y2S8v8rkO7/KY7q/yeN5/8li+L/HILR/wJjl/sAEhu3AAAAcgAA + ACgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAADEAAAD/Dg4O/xMTE/8VFRX/GBgY/xQUFP8FDiL/Gk60/xtR + t/8cVbv/HVe9/x1Xvf8eWb//HlrA/x5Yvv8dV73/HVa8/xxUuv8bUbf/CzKQ/wAZZPMAAACOAAAAMwAA + AAMAAAABAEhtWg91uP8wlvn/Mpj9/zOZ//8zmf//M5n//zOZ//8zmf//M5n//zKY/f8wlvn/LpP0/x+F + 1/8AUnvuAAAAnQAAAFMAAAATAAAAAAAAAAAAAAAAAAAAAAAAAIAGBgb/FRUV/xgYGP8bGxv/Hx8f/xIS + Ev8LIEb/HVa8/x5awP8gXsT/IWHH/yFiyP8hYsj/IWLI/yFiyP8hYsj/IGDG/x9dw/8eWb//Fkqr/wAh + d/8AAACYAAAAQQAAAAkAAAAHAF6Ozi6U8v82nP//N53//zie//84nv//OJ7//zie//84nv//OJ7//zac + //81m///NJr//zOY/v8Teb7/AC9G0QAAAH0AAAArAAAAAwAAAAAAAAAAAAAAAAAAAKwNDQ3/Gxsb/x8f + H/8iIiL/JSUl/xMTE/8PLmH/IWHH/yFjyf8iZ83/I2rQ/yRt0/8kbdP/JG3T/yRt0/8kbNL/I2rQ/yJm + zP8hY8n/IF/F/wAmev8ADSu2AAAATQAAAA8AR2ouC3Gs/zie//86oP//O6H//zyi//89o///PaP//z2j + //89o///PKL//zuh//86oP//OJ7//zac//8xl/n/AFyK9wAAAJoAAABJAAAADQAAAAAAAAAAAAAAAAAA + AMgVFRX/ICAg/yQkJP8oKCj/Kioq/x8fH/8IGTP/I2nP/yRt0/8mcdf/J3Ta/yd23P8oeN7/KHje/yh4 + 3v8ndtz/JnPZ/yVw1v8kbNL/I2jO/wQzhv8ADyq7AAAAWQAAABUAWINwIYfS/z2j//8+pP//P6X//0Cm + //9Bp///Qaf//0Gn//9Bp///QKb//z+l//8+pP//PaP//zuh//84nv//FXu//wAiM8EAAABoAAAAHAAA + AAAAAAAAAAAAAAAAAMcZGRn/JSUl/ykpKf8tLS3/MDAw/ykpKf8FDhr/JnHX/yh33f8ped//Kn7k/yuA + 5v8sguj/LIPp/yuB5/8rgOb/Kn3j/yl53/8nddv/JXDW/wlAlP8AHk3SAAAAWwAAABYAXYudL5Xm/0Gn + //9CqP//RKr//0Wr//9GrP//Rqz//0as//9Fq///Rav//0Op//9CqP//Qaf//z6k//89o///KI7f/wBH + a+QAAACBAAAAKQAAAAEAAAAAAAAAAAAAALYWFhb/Kioq/y8vL/8yMjL/NjY2/zk5Of8EBAT/JGrE/yuA + 5v8shOr/LYft/y6L8f8vjvT/L470/y+O9P8uivD/LYbs/yyD6f8qfuT/KHnf/wpFmP8AIU/QAAAAUAAA + ABAAYpLIPqT5/0Wr//9Hrf//SK7//0mv//9KsP//SrD//0qw//9KsP//Sa///0iu//9GrP//Rav//0Ko + //9Apv//PaP//wRgkPcAAACRAAAANwAAAAQAAAAAAAAAAAAAAIUTExP/MDAw/zQ0NP83Nzf/Ozs7/z4+ + Pv8ZGRn/FkJ1/y2I7v8wkff/Mpf9/zOZ//8zmf//NZv//zOZ//8zmf//Mpb8/zCP9f8thuz/LILo/whG + lf8AGTm6AAAARAAAAAoAYpLIR63//0mv//9Msv//TbP//060//9Ptf//ULb//1C2//9Ptf//TrT//02z + //9Msv//Sa///0as//9Dqf//Qaf//xB2s/8AChCfAAAAQwAAAAoAAAAAAAAAAAAAADIGBgb/MzMz/zc3 + N/89PT3/QUFB/0RERP82Njb/AwkP/yl84f8thvL/LYfy/zOT+f83nP3/OqD//zqg//85n///N53//zOZ + //8xlPr/Lonv/wA/hf8AFzKrAAAANgAAAAQAYpLISrD//02z//9Qtv//Ubf//1K4//9Tuf//U7n//1O5 + //9Tuf//Urj//1G3//9Qtv//TbP//0qw//9Hrf//RKr//x2Dxv8AJDe0AAAARwAAAAwAAAAAAAAAAAAA + AAAAAADiKSkp/z09Pf9BQUH/RUVF/0pKSv9NTU3/Ghoa/wUOJv8UPJv/Gk25/yBg2f8iZdz/JW7i/zGH + 7/83lff/Op/9/zmf//80mv//KIbm/wBEiP8ACBCDAAAAJgAAAAEAYpPHTrT//1G3//9Tuf//Vrz//1e9 + //9Yvv//WL7//1i+//9Yvv//V73//1W7//9Tuf//Ubf//060//9Msv//R63//yOJzP8AJDe0AAAARwAA + AAwAAAAAAAAAAAAAAAAAAACDDw8P/0BAQP9FRUX/S0tL/09PT/9TU1P/UVFR/ywsLP8XFxf/BgYG/wMK + Gv8MJG7/FDq2/xdDxv8dV9L/H17X/yJl3P8lbuL/Di1T/wAKEu4AAABeAAAAFgAAAAAAYpO2SK7y/1W7 + //9Xvf//WsD//13D//9gxv//Ycf//2HH//9fxf//W8H//1m///9Xvf//Vbv//1K4//9Ptf//TbP//x5/ + uP8AJDezAAAARAAAAAoAAAAAAAAAAAAAAAAAAAARAAAA8DMzM/9KSkr/S0tL/0RERP9PT0//X19f/2tr + a/91dXX/c3Nz/0RERP8YGBj/AQIL/wUOQ/8IGHD/CyGA/wsiY/8DChr/AAAA/wAAAMgAAAA9AAAACQAA + AAAAYpKGPKLf/1i+//9WvPn/NpzZ/yqQzP8bgbn/LpTS/0mv+f9Ns///TrT//1K4//9Uuv//Ubf//060 + //9Lsf//K43F/wZqnP8AJjitAAAAOgAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAYgkJCf9ISEj/UlJS/1RU + VP9YWFj/ZGRk/3V1df+Kior/m5ub/6Ojo/+ZmZn/YGBg/y0tLf8bGxv/FBQU/yAgIP8oKCj/BAQE/wAA + AH0AAAAfAAAAAQAAAAAAY5RCJ43G/y6UzP8Sdqn/H3+x/zWQwv89l8n/MIy+/wtuoP8WfL//I4nZ/yqQ + 5v82nP//M5n5/yaM3/8Ye7f/Gnel/wBmmf8AFyKQAAAAKgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AKIPDw//UFBQ/1tbW/9kZGT/bW1t/3V1df+CgoL/k5OT/6qqqv+5ubn/s7Oz/4eHh/9zc3P/XV1d/0hI + SP8VFRX/AAAA2AAAADcAAAAJAAAAAAAAAAAAAAAAAGWY8QVqnf8bfK7/L4y+/z+Yyv9Ppdb/VanY/221 + 3v9hqtP/QZTB/ySBsf8Qc6b/G3em/zKGsf8sgq7/DG6f/wFejfQAAABiAAAAGQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAABEAAADRERER/1lZWf9oaGj/dXV1/39/f/+Ghob/iIiI/4iIiP+jo6P/r6+v/5SU + lP94eHj/XV1d/y8vL/8AAAD3AAAATwAAABAAAAABAAAAAAAAAAAAAAAAAGSVoxN1qP83ksT/Rp7Q/1Cm + 1/9Yqtn/Y7Dc/3q74f+Sx+f/q9Ts/7zd8P+fyuL/drHP/0yXvP8oga7/D3Kl/wBIa8wAAAA8AAAACQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAogwMDP9RUVH/eXl5/4WFhf+QkJD/k5OT/4iI + iP99fX3/cHBw/2tra/9aWlr/ICAg/wAAAPYAAABfAAAAEgAAAAIAAAAAAAAAAAAAAAAAAAAAAGOUIQNp + mvA4k8X/UKbX/2Sx3P9ttd7/d7rh/4TA5P+czOn/t9rv/7bZ7f+FvNr/WaPK/zqRwP8ohrj/BGmc/wAe + LG4AAAAZAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGIAAADwHx8f/1RU + VP99fX3/kZGR/4iIiP9ubm7/TU1N/yYmJv8GBgb/AAAAwgAAADwAAAAKAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAABklmIPcqX/WanX/2213v+Dv+P/icPl/43F5v+Jw+X/gb/j/2213v9erdv/T6XW/z2X + yf8SdKf/AERnpwAAACUAAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAARAAAAZAAAALQAAADxAAAA/wAAAP8AAADyAAAAygAAAJEAAAAzAAAACQAAAAEAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZJaiDXCi/2at1P+LxOX/n87q/6HP6v+fzur/icPl/3q7 + 4f9ost3/S6LT/xZ4qv8AVoG9AAAAIgAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGKUUwBmmPA5jLf/hr3c/7zd + 8P+o0+z/lMjn/1mjzP8og7P/BmeX6ABKb24AAAARAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABg + kBEAYpNkAGKUpQBilMYAYpLIAGKSyABdi50AVH5hAAAADQAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /////wAA////////AAD///////8AAP///////wAA////////AADAAAP///8AAIAAAH///wAAgAAAGAAH + AACAAAAAAAEAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAMAA + AAAAAAAA4AAAAAABAADgAAAAAAEAAPAAAAAAAwAA8AAAAAADAADAAAAAAAcAAIAAAAAADwAAgAAAAAAf + AAAAAACAAB8AAAAAAMAADwAAAAAAAAAPAAAAAAAAAAcAAAAAAAAABwAAAAAAAAAHAAAAAAAAAAMAAAAA + AAAAAwAAAAAAAAADAAAAAAAAAAMAAIAAAAAAAwAAgAAAgAADAACAAACAAAMAAMAAAIAAAwAA4AABwAAH + AADgAAHAAAcAAPAAA8AABwAA/AAH4AAPAAD+AB/wAB8AAP////gAPwAA/////AD/AAD///////8AAP// + /////wAA////////AAD///////8AACgAAAAgAAAAQAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAAMAAAAFQAAABgAAAAYAAAAGAAA + ABgAAAAYAAAAFgAAABIAAAALAAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAJQAAAEUAAABZAAAAXwAA + AF8AAABfAAAAXwAAAF8AAABcAAAAUwAAAEYAAAA2AAAAJgAAABYAAAAJAAAAAQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB9RGQGMbyMCy2sh + AtJrIQLTayEC02shAtNrIQLTayEC01QaAcg9EwG5EgYAoAAAAI8AAAB7AAAAXQAAADkAAAAdAAAAFgAA + ABwAAAAjAAAAKQAAAC4AAAAvAAAALwAAAC8AAAAuAAAAKAAAAB4AAAAPAAAABAAAAAAAAAAArTcG18FB + Ff/RSyb/21Ew/+hYP//zX0r/+WNQ//1lVP/9ZVT/zUgh/9JLJv/UTSn/oTYO82ggAtogCgGwAAAAiAAA + AGcAAABeAAAAagAAAHcAAACDAAAAjAAAAI8AAACPAAAAjwAAAIwAAACCAAAAbQAAAEQAAAAWAAAAAQAA + AAC7PQ7/0kwn/91SM//vXUb//GRT//1pV//9cVz//XRe/+9qTv/Ti1f/zVsw//1nVf/5Y1D/5lc8/7c+ + FPtCIwHXADcAzwRPBN0IXwjqFHQU9SKRIv8fjx//H48f/x2OHf8Wihb/C24L9wNVA+kAKQDHAAAAgQAA + ADMAAAAGAAAAAMNDF//bUTD/711G//1mVf/9clz//Xdg//19ZP/9g2j/yFos//rir//ThlP/821T//1r + WP/8ZFP/7FtC/5pYGf9As0D/T8FP/y+SLP8kjiT/UsJS/1LCUv9Kvkr/QLlA/zu3O/8try3/Iakh/wqF + Cv8AFACmAAAAQwAAAAoAAAAAuT0O4uhYP//8ZFP//XJc//15Yf/9hWr//Yxu/9djOv/rt4T//+Ow//DE + kf/gZkL//Xdg//1qV//5Y1D/p2Im/1bEVv9Zw1n/cKlf/4Czbf9Ns03/ZMtk/1zHXP9Tw1P/RbxF/zy3 + PP8try3/Gpka/wAlAK8AAAA9AAAABwAAAACsNgOD5Vc7//1rWP/9d2D//YZq//6Scv/rgFn/2IdU///Z + pv//2ab//9qn/9JaMf/9g2j//XVe//1mVf+wZy//Z81n/0SoRP+/2az////l/0eYQv9003T/as5q/2LK + Yv9WxFb/RbxF/zm2Of8akhr/ACEAlAAAACgAAAACAAAAAAAAAAC7Pg/R+G9X//19ZP/9i27/+ZJv/8li + MP//zpv//8+c///PnP//0J3/13ZH//2JbP/9e2P/82ZO/5F5MP921Hb/Ppo9////8v////L/z+LF/ziY + OP9713v/btBu/2LKYv9RwVH/Prk+/w9zD/IAAABPAAAAEQAAAAAAAAAAAAAAAKY0AxG+RRjT73ZW//mM + a//NWy7/6Zp6/7+Kg/+/jIT/7q2K//+/kf/XcUP//Y5w//h7X/+6TBr/espv/4HZgf9kq2P////8//// + ////////gLOA/2fAZ/961nr/ac1p/1vGW/8unS7/ADcAlQAAACIAAAAEAAAAAAAAAAAAAAACAAAAEC4O + AT6JKwK4tEUe/0whT/8BBGr/BA1z/wMLcf8RDGn/f0xu/9JgNP/SXjP/hWAa/23EYv961nr/jN+M/3Cm + af//9u3///Pn///y5f//79//WZdM/3HLcf9w0XD/ULhQ/wZaBsQAAAAoAAAABwAAAAAAAAAAAAAAAQAA + ABAAAABMAAAAtQAAAOcCAgL/AQIV/wwlfv8QL5X/EC+V/w8tk/8GFnv/LRNF9xEFAKYAQACZN5s3/3XQ + df+S4ZL/gKNg/9/RvP9wnq//RYuv/2GWrP+fsKT/SJA3/0OkQ/8IVAjAAAAAKQAAAAYAAAAAAAAAAAAA + AAAAAAAGAAAAVQICAu4ICAj/CwsL/wUHDv8MJGT/EziY/xQ8ov8UPKL/FDyi/xQ6oP8FGnr/AAcy0QAA + AHwAOwBTDm4OpDuWO/Iwe1n/DXOz/xuBz/8dg9L/HILP/xB2uf8CaHb/ACgMyQAAAHkAAAAtAAAABgAA + AAAAAAAAAAAAAAAAACACAgLpDQ0N/xMTE/8ODg7/Ditq/xhGrP8ZSa//Gk2z/xpNs/8aTbP/GUmv/xQ/ + pP8AFmf3AAAAlQAAAEAAAAANAEpvbhh+yf8skvD/LZPy/y2T8v8tk/L/K5Hv/x+F1/8CVIDuAAAAoAAA + AFsAAAAYAAAAAQAAAAAAAAAAAAAAchEREf8XFxf/Ghoa/wwMDP8bUbf/HFW7/x5Zv/8fXML/H17E/x5a + wP8dV73/HFW7/wUpg/8ACCCyAAAAUgAAAB8OcK/oM5n//zWb//81m///NZv//zWb//80mv//M5n//yWL + 5P8AO1ncAAAAhgAAADQAAAAGAAAAAAAAAAACAgK6GRkZ/x8fH/8jIyP/Dhks/yBgxv8iZcv/I2jO/yRq + 0P8katD/JGrQ/yJmzP8hY8n/EEKe/wATOsgAAABcAEltcCiN3/87of//PKH//zyh//88of//PKH//zyh + //86oP//N53//xN0ufsACg+lAAAAUQAAABAAAAAAAAAAAAoKCschISH/Jycn/ywsLP8XFxf/JGvR/yd0 + 2v8od93/KXrg/yl74f8ped//KHfd/yZx1/8WU7D/ABxM0wAAAF8AVH2cPqP//0Kn//9Eqf//RKr//0Sq + //9Eqv//Q6j//0Cm//89ov//LZLm/wAwScsAAABoAAAAHAAAAAAAAAAABgYGtikpKf8vLy//NjY2/yQk + JP8hYrX/LIPp/y+N8/8xk/n/MpX7/zCS+P8ui/H/Kn3j/xxjwP8AIE7SAAAAWRBvp81Eqv//R63//0qw + //9Lsf//S7H//0ux//9Jr///Rqz//0Sp//9Apf//BExy4wAAAHoAAAAlAAAAAAAAAAAAAACEKioq/zg4 + OP8+Pj7/Pz8//xQ1XP8vjfb/MJD5/zWb//86oP//Npz//zOZ//8ylvz/F2O6/wAlUs0AAABGF3ewy0yy + //9Ns///ULb//1G3//9Rt///ULb//060//9Ns///Sa///0Wr//8SZJbuAAAAiAAAACsAAAAAAAAAAAAA + ACEcHBz/Pz8//0VFRf9MTEz/LCws/wsiWf8WQZ7/HVbS/yNo3f8ugOr/NpT3/zGQ+f8SWKL/ABs1pAAA + AC4Ze7THULb//1W7//9WvP//V73//1e9//9WvP//Vbv//1K4//9OtP//S7H//xl+uv8AAACGAAAAKwAA + AAAAAAAAAAAAAAUFBcJAQED/S0tL/0lJSf9dXV3/ZmZm/01NTf8fICn/BxVb/w0mjf8RMp7/Ditp/wMM + F/kAAABhAAAAGQBilKVWvP//U7n5/z2i3/85n9n/TbPy/1W7//9WvP//U7n//1G3//9DqO3/EW6f+gAA + AHQAAAAiAAAAAAAAAAAAAAAAAAAAIR0dHfBRUVH/V1dX/2ZmZv+EhIT/m5ub/6Wlpf9xcXH/RkZG/y4u + Lv8qKir/AAcMxQAAADMAAAAHAGKTZByCuf8Qc6b/LYq8/z+Yyv8wirr/IYPB/x2DzP8ghtL/JYfL/yR/ + r/8AVH7oAAAAVwAAABMAAAAAAAAAAAAAAAAAAAAAAAAAYiEhIf9hYWH/c3Nz/4SEhP+Pj4//oqKi/6Wl + pf9+fn7/SUlJ/woKCu4AAABJAAAAEAAAAAEAYJARBGib8TeSxP9Hn9D/VqnY/3W54P+Xyuj/nczo/2Sl + x/9Ml7z/GHam/wA+XrcAAAAxAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQhsbG/BjY2P/jo6O/5OT + k/+Dg4P/bW1t/0dHR/8RERHeAAAAUgAAAA0AAAACAAAAAAAAAAAAZJWDLou9/2Gv2/96u+H/hMDk/5/O + 6v+ezOb/ZKzT/zmSwv8NbZ73ABUfTwAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEQAA + AHQWFhbELS0txykpKcgLCwusAAAAcQAAABAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAZJaiS5vG/5TI + 5/+j0Or/lMjn/3694v9XqNb/G3mr9QA0Tl4AAAASAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAZJWDJHyp01yhxP9PmsH/M4i18gplkq4AOlg4AAAACgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA////////////////wAH//4AAP/+AAAABgAAAAIAAAACAAAAAgAAAAIAA + AADAAAABwAAAAYAAAAMAAAAHAAAABwAAAAMAAAADAAAAAwAAAAMAAAADAAAAAwAAAAOAAAADgAAAA8AA + AAPgAYAD8AfAB///4A////////////////8oAAAAEAAAACAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAQAAAAkAAAATAAAAGAAAABgAAAAXAAAAEwAAAAsAAAADAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAsAAAAvAAAAUwAAAF8AAABfAAAAXgAAAFYAAABFAAAALQAAABwAAAAbAAAAIQAA + ACMAAAAiAAAAHAAAAA9mIAI3ii0Mr3wrEMyDLxvTgy8b02YiCM09EwG6AAAAmQAAAIIAAABoAAAAZwAA + AHMAAAB3AAAAdgAAAGcAAAA9tz0Pxd1SM//5Y1D//XBb//NsUv/SbkH/+GVR/8xKKfstMgfXElcS2yF5 + IeothC3rIX4h7BFrEecDMAPAAAAAZ7c9D6P5Y1D//Xpi//6Mbv/chVb/9c2b/+9wUv/9alf/koc8/1Ov + T/9nrlz/Ycph/1XDVf84tTj/FnoW6QAAAGahMgMj4V0/8f2Ia//hfVH/+seU///ToP/ld1D/+HRb/5Gc + UP+GwoD/7/Xg/1WvVf9z0nP/UsJS/xh1GNkAAAA9AAAADVYbAWKhTELvQiNa/0M2eP9gSHf/u1s4+5N6 + Nf+C2oL/pMaX///17P+6z6j/Y8Fj/0GjQfkAKQB3AAAAFwAAAEkEBATtAwYN/w8rcf8UOqD/EDGX/wIP + XO4AJQCvQJBAy0OIjv8Qdrn/IH27/xpxW/sAGwC0AAAAVwAAABMKCgrKGhoa/xIvaP8aTbP/HVe9/xtP + tf8NMpP/AAggrQU9XpQtk/L/M5n//zOZ//8rke//BCxEzAAAAHkAAAAlFRUV/ygoKP8YQoH/JnPZ/yZz + 2f8mc9n/G1y9/wAPLLMdc7DQP6X//0Cm//9Apv//PqT//x97vvcAAACRAAAANyAgIPE1NTX/JUVr/zCQ + 9v80mv//M5b6/yFz0v8AFjGtK4bG1kyy//9Ns///TbP//0mv//8xl+b/AAoQnQAAAD0UFBSiSkpK/0JC + Qv82RmX/G0WQ/yJixv8VR33/ABgxhjKQzc5MsvL/SrDs/1e9//9Qtv//QqXq/wAnO6YAAAAwAAAAES4u + LvBpaWn/jY2N/6SkpP9PT0//ER0m1wAAAC8LbJ2XKYe5/1Kk0v9hqNP/UZ/Q/xh1pP8AAABaAAAAGQAA + AAAAAAAhLCwsslxcXP9LS0vkISEhrgAAACcAAAAIAGCQIimDs/CLxOX/oc/q/1ekz/8NXomtAAAAIAAA + AAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAY5QhLoCqhEyRtYkAVoFfAAAADQAA + AAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAB/AAAAABf/AAAw/wAARv8AAFX/AABc/wAAYP8AAGT/AABo/wAALP8AAK//AABT/wAA + U/+AAFj//4FT////Qv8= + + + \ No newline at end of file diff --git a/Global_Indexer/frmUserKonfig_AddUsers.vb b/Global_Indexer/frmUserKonfig_AddUsers.vb new file mode 100644 index 0000000..be15f38 --- /dev/null +++ b/Global_Indexer/frmUserKonfig_AddUsers.vb @@ -0,0 +1,128 @@ +Imports System.DirectoryServices +Imports System.DirectoryServices.ActiveDirectory +Imports System.DirectoryServices.AccountManagement + +Public Class frmUserKonfig_AddUsers + Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Try + Dim groups As List(Of String) = GetActiveDirectoryGroups() + + For Each group In groups + lbGroups.Items.Add(group) + Next + + Catch ex As Exception + MsgBox("Error in Load Groups: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + Me.Cursor = Cursors.Default + End Sub + + Function GetActiveDirectoryGroups() As List(Of String) + Me.Cursor = Cursors.WaitCursor + Dim groups As List(Of String) = New List(Of String) + Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + Dim group As GroupPrincipal = New GroupPrincipal(ctx) + Dim srch As PrincipalSearcher = New PrincipalSearcher(group) + For Each g In srch.FindAll() + If GetUsersForGroup(g.ToString()).Count <> 0 Then + groups.Add(g.ToString) + End If + Next + + Return groups + End Function + + + Function GetUsersForGroup(g As String) As List(Of UserPrincipal) + Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal) + Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) + Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g) + + Dim u = group.GetMembers(True) + + For Each user In u + If user.GetType().Name = "UserPrincipal" Then + users.Add(user) + End If + Next + + Return users + End Function + + Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged + Dim group As String = lbGroups.SelectedItem + Dim users As List(Of UserPrincipal) = GetUsersForGroup(group) + + clbUsers.Items.Clear() + For Each user In users + clbUsers.Items.Add(user) + Next + End Sub + + Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click + Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems + Dim usersAdded As Integer = 0 + + If items.Count = 0 Then + MsgBox("Keine Benutzer ausgewählt") + Exit Sub + End If + + For Each item As UserPrincipal In items + Dim user As UserPrincipal = item + Dim PRENAME As String = user.GivenName + Dim NAME As String = user.Surname + Dim email As String = user.EmailAddress + Dim USERNAME As String = user.SamAccountName.ToLower() + Dim SQL + If Not UserExists(USERNAME) Then + SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & Environment.UserName & "')" + If ClassDatabase.Execute_non_Query(SQL) = True Then + usersAdded = usersAdded + 1 + End If + Else + SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')" + If ClassDatabase.Execute_non_Query(SQL) = True Then + usersAdded = usersAdded + 1 + End If + End If + Next + + If usersAdded = 1 Then + MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information) + Else + MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information) + End If + + End Sub + + Private Function UserExists(username As String) As Boolean + Try + Dim SQL = "SELECT GUID FROM TBDD_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')" + If ClassDatabase.Execute_Scalar(SQL, MyConnectionString) = Nothing Then + Return False + Else + Return True + End If + Catch ex As Exception + MsgBox("Error in UserExists: " & vbNewLine & ex.Message) + Return False + End Try + End Function + + Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click + Me.Close() + End Sub + + Private Sub tbSelectEverything_Click(sender As Object, e As EventArgs) Handles tbSelectEverything.Click + For i = 0 To clbUsers.Items.Count - 1 + clbUsers.SetItemChecked(i, True) + Next + End Sub + + Private Sub tbSelectNone_Click(sender As Object, e As EventArgs) Handles tbSelectNone.Click + For i = 0 To clbUsers.Items.Count - 1 + clbUsers.SetItemChecked(i, False) + Next + End Sub +End Class \ No newline at end of file diff --git a/Setup/Setup.isl b/Setup/Setup.isl new file mode 100644 index 0000000..ee780eb --- /dev/null +++ b/Setup/Setup.isl @@ -0,0 +1,5720 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +]> + + + + 1252 + Installation Database + Global Indexer + ##ID_STRING2## + Installer,MSI,Database + Contact: Your local administrator + + Administrator + {E3B0133C-D418-4731-9AE9-2D7F31AF0C84} + + 06/21/1999 14:00 + 07/14/2000 17:50 + 200 + 0 + + InstallShield Express + 1 + + + + Action + Description + Template + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Advertise##IDS_ACTIONTEXT_Advertising## + AllocateRegistrySpace##IDS_ACTIONTEXT_AllocatingRegistry####IDS_ACTIONTEXT_FreeSpace##AppSearch##IDS_ACTIONTEXT_SearchInstalled####IDS_ACTIONTEXT_PropertySignature##BindImage##IDS_ACTIONTEXT_BindingExes####IDS_ACTIONTEXT_File##CCPSearch##IDS_ACTIONTEXT_UnregisterModules## + CostFinalize##IDS_ACTIONTEXT_ComputingSpace3## + CostInitialize##IDS_ACTIONTEXT_ComputingSpace## + CreateFolders##IDS_ACTIONTEXT_CreatingFolders####IDS_ACTIONTEXT_Folder##CreateShortcuts##IDS_ACTIONTEXT_CreatingShortcuts####IDS_ACTIONTEXT_Shortcut##DeleteServices##IDS_ACTIONTEXT_DeletingServices####IDS_ACTIONTEXT_Service##DuplicateFiles##IDS_ACTIONTEXT_CreatingDuplicate####IDS_ACTIONTEXT_FileDirectorySize##FileCost##IDS_ACTIONTEXT_ComputingSpace2## + FindRelatedProducts##IDS_ACTIONTEXT_SearchForRelated####IDS_ACTIONTEXT_FoundApp##GenerateScript##IDS_ACTIONTEXT_GeneratingScript####IDS_ACTIONTEXT_1##ISLockPermissionsCost##IDS_ACTIONTEXT_ISLockPermissionsCost## + ISLockPermissionsInstall##IDS_ACTIONTEXT_ISLockPermissionsInstall## + InstallAdminPackage##IDS_ACTIONTEXT_CopyingNetworkFiles####IDS_ACTIONTEXT_FileDirSize##InstallFiles##IDS_ACTIONTEXT_CopyingNewFiles####IDS_ACTIONTEXT_FileDirSize2##InstallODBC##IDS_ACTIONTEXT_InstallODBC## + InstallSFPCatalogFile##IDS_ACTIONTEXT_InstallingSystemCatalog####IDS_ACTIONTEXT_FileDependencies##InstallServices##IDS_ACTIONTEXT_InstallServices####IDS_ACTIONTEXT_Service2##InstallValidate##IDS_ACTIONTEXT_Validating## + LaunchConditions##IDS_ACTIONTEXT_EvaluateLaunchConditions## + MigrateFeatureStates##IDS_ACTIONTEXT_MigratingFeatureStates####IDS_ACTIONTEXT_Application##MoveFiles##IDS_ACTIONTEXT_MovingFiles####IDS_ACTIONTEXT_FileDirSize3##PatchFiles##IDS_ACTIONTEXT_PatchingFiles####IDS_ACTIONTEXT_FileDirSize4##ProcessComponents##IDS_ACTIONTEXT_UpdateComponentRegistration## + PublishComponents##IDS_ACTIONTEXT_PublishingQualifiedComponents####IDS_ACTIONTEXT_ComponentIDQualifier##PublishFeatures##IDS_ACTIONTEXT_PublishProductFeatures####IDS_ACTIONTEXT_FeatureColon##PublishProduct##IDS_ACTIONTEXT_PublishProductInfo## + RMCCPSearch##IDS_ACTIONTEXT_SearchingQualifyingProducts## + RegisterClassInfo##IDS_ACTIONTEXT_RegisterClassServer####IDS_ACTIONTEXT_ClassId##RegisterComPlus##IDS_ACTIONTEXT_RegisteringComPlus####IDS_ACTIONTEXT_AppIdAppTypeRSN##RegisterExtensionInfo##IDS_ACTIONTEXT_RegisterExtensionServers####IDS_ACTIONTEXT_Extension2##RegisterFonts##IDS_ACTIONTEXT_RegisterFonts####IDS_ACTIONTEXT_Font##RegisterMIMEInfo##IDS_ACTIONTEXT_RegisterMimeInfo####IDS_ACTIONTEXT_ContentTypeExtension##RegisterProduct##IDS_ACTIONTEXT_RegisteringProduct####IDS_ACTIONTEXT_1b##RegisterProgIdInfo##IDS_ACTIONTEXT_RegisteringProgIdentifiers####IDS_ACTIONTEXT_ProgID2##RegisterTypeLibraries##IDS_ACTIONTEXT_RegisterTypeLibs####IDS_ACTIONTEXT_LibId##RegisterUser##IDS_ACTIONTEXT_RegUser####IDS_ACTIONTEXT_1c##RemoveDuplicateFiles##IDS_ACTIONTEXT_RemovingDuplicates####IDS_ACTIONTEXT_FileDir##RemoveEnvironmentStrings##IDS_ACTIONTEXT_UpdateEnvironmentStrings####IDS_ACTIONTEXT_NameValueAction2##RemoveExistingProducts##IDS_ACTIONTEXT_RemoveApps####IDS_ACTIONTEXT_AppCommandLine##RemoveFiles##IDS_ACTIONTEXT_RemovingFiles####IDS_ACTIONTEXT_FileDir2##RemoveFolders##IDS_ACTIONTEXT_RemovingFolders####IDS_ACTIONTEXT_Folder1##RemoveIniValues##IDS_ACTIONTEXT_RemovingIni####IDS_ACTIONTEXT_FileSectionKeyValue##RemoveODBC##IDS_ACTIONTEXT_RemovingODBC## + RemoveRegistryValues##IDS_ACTIONTEXT_RemovingRegistry####IDS_ACTIONTEXT_KeyName##RemoveShortcuts##IDS_ACTIONTEXT_RemovingShortcuts####IDS_ACTIONTEXT_Shortcut1##Rollback##IDS_ACTIONTEXT_RollingBack####IDS_ACTIONTEXT_1d##RollbackCleanup##IDS_ACTIONTEXT_RemovingBackup####IDS_ACTIONTEXT_File2##SelfRegModules##IDS_ACTIONTEXT_RegisteringModules####IDS_ACTIONTEXT_FileFolder##SelfUnregModules##IDS_ACTIONTEXT_UnregisterModules####IDS_ACTIONTEXT_FileFolder2##SetODBCFolders##IDS_ACTIONTEXT_InitializeODBCDirs## + StartServices##IDS_ACTIONTEXT_StartingServices####IDS_ACTIONTEXT_Service3##StopServices##IDS_ACTIONTEXT_StoppingServices####IDS_ACTIONTEXT_Service4##UnmoveFiles##IDS_ACTIONTEXT_RemovingMoved####IDS_ACTIONTEXT_FileDir3##UnpublishComponents##IDS_ACTIONTEXT_UnpublishQualified####IDS_ACTIONTEXT_ComponentIdQualifier2##UnpublishFeatures##IDS_ACTIONTEXT_UnpublishProductFeatures####IDS_ACTIONTEXT_Feature##UnpublishProduct##IDS_ACTIONTEXT_UnpublishingProductInfo## + UnregisterClassInfo##IDS_ACTIONTEXT_UnregisterClassServers####IDS_ACTIONTEXT_ClsID##UnregisterComPlus##IDS_ACTIONTEXT_UnregisteringComPlus####IDS_ACTIONTEXT_AppId##UnregisterExtensionInfo##IDS_ACTIONTEXT_UnregisterExtensionServers####IDS_ACTIONTEXT_Extension##UnregisterFonts##IDS_ACTIONTEXT_UnregisteringFonts####IDS_ACTIONTEXT_Font2##UnregisterMIMEInfo##IDS_ACTIONTEXT_UnregisteringMimeInfo####IDS_ACTIONTEXT_ContentTypeExtension2##UnregisterProgIdInfo##IDS_ACTIONTEXT_UnregisteringProgramIds####IDS_ACTIONTEXT_ProgID##UnregisterTypeLibraries##IDS_ACTIONTEXT_UnregTypeLibs####IDS_ACTIONTEXT_Libid2##WriteEnvironmentStrings##IDS_ACTIONTEXT_EnvironmentStrings####IDS_ACTIONTEXT_NameValueAction##WriteIniValues##IDS_ACTIONTEXT_WritingINI####IDS_ACTIONTEXT_FileSectionKeyValue2##WriteRegistryValues##IDS_ACTIONTEXT_WritingRegistry####IDS_ACTIONTEXT_KeyNameValue##
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
CostFinalize1000CostFinalize + CostInitialize800CostInitialize + FileCost900FileCost + InstallAdminPackage3900InstallAdminPackage + InstallFiles4000InstallFiles + InstallFinalize6600InstallFinalize + InstallInitialize1500InstallInitialize + InstallValidate1400InstallValidate + ScheduleRebootISSCHEDULEREBOOT4010ScheduleReboot +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
AdminWelcome1010AdminWelcome + CostFinalize1000CostFinalize + CostInitialize800CostInitialize + ExecuteAction1300ExecuteAction + FileCost900FileCost + SetupCompleteError-3SetupCompleteError + SetupCompleteSuccess-1SetupCompleteSuccess + SetupInitialization50SetupInitialization + SetupInterrupted-2SetupInterrupted + SetupProgress1020SetupProgress +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
CostFinalize1000CostFinalize + CostInitialize800CostInitialize + CreateShortcuts4500CreateShortcuts + InstallFinalize6600InstallFinalize + InstallInitialize1500InstallInitialize + InstallValidate1400InstallValidate + MsiPublishAssemblies6250MsiPublishAssemblies + PublishComponents6200PublishComponents + PublishFeatures6300PublishFeatures + PublishProduct6400PublishProduct + RegisterClassInfo4600RegisterClassInfo + RegisterExtensionInfo4700RegisterExtensionInfo + RegisterMIMEInfo4900RegisterMIMEInfo + RegisterProgIdInfo4800RegisterProgIdInfo + RegisterTypeLibraries4910RegisterTypeLibraries + ScheduleRebootISSCHEDULEREBOOT6410ScheduleReboot +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
+ + + AppId + RemoteServerName + LocalService + ServiceParameters + DllSurrogate + ActivateAtStorage + RunAsInteractiveUser +
+ + + Property + Signature_ + +
DOTNETVERSION45FULLDotNet45Full
+ + + Billboard_ + BBControl + Type + X + Y + Width + Height + Attributes + Text +
+ + + Billboard + Feature_ + Action + Ordering +
+ + + Name + Data + ISBuildSourcePath + + + + + + + + + + + + + + + + + + + + + +
ISExpHlp.dll<ISRedistPlatformDependentFolder>\ISExpHlp.dllISSELFREG.DLL<ISRedistPlatformDependentFolder>\isregsvr.dllNewBinary1<ISProductFolder>\Support\Themes\InstallShield Blue Theme\banner.jpgNewBinary10<ISProductFolder>\Redist\Language Independent\OS Independent\CompleteSetupIco.ibdNewBinary11<ISProductFolder>\Redist\Language Independent\OS Independent\CustomSetupIco.ibdNewBinary12<ISProductFolder>\Redist\Language Independent\OS Independent\DestIcon.ibdNewBinary13<ISProductFolder>\Redist\Language Independent\OS Independent\NetworkInstall.icoNewBinary14<ISProductFolder>\Redist\Language Independent\OS Independent\DontInstall.icoNewBinary15<ISProductFolder>\Redist\Language Independent\OS Independent\Install.icoNewBinary16<ISProductFolder>\Redist\Language Independent\OS Independent\InstallFirstUse.icoNewBinary17<ISProductFolder>\Redist\Language Independent\OS Independent\InstallPartial.icoNewBinary18<ISProductFolder>\Redist\Language Independent\OS Independent\InstallStateMenu.icoNewBinary2<ISProductFolder>\Redist\Language Independent\OS Independent\New.ibdNewBinary3<ISProductFolder>\Redist\Language Independent\OS Independent\Up.ibdNewBinary4<ISProductFolder>\Redist\Language Independent\OS Independent\WarningIcon.ibdNewBinary5<ISProductFolder>\Support\Themes\InstallShield Blue Theme\welcome.jpgNewBinary6<ISProductFolder>\Redist\Language Independent\OS Independent\CustomSetupIco.ibdNewBinary7<ISProductFolder>\Redist\Language Independent\OS Independent\ReinstIco.ibdNewBinary8<ISProductFolder>\Redist\Language Independent\OS Independent\RemoveIco.ibdNewBinary9<ISProductFolder>\Redist\Language Independent\OS Independent\SetupIcon.ibdSetAllUsers.dll<ISRedistPlatformDependentFolder>\SetAllUsers.dll
+ + + File_ + Path +
+ + + Signature_ +
+ + + Property + Value + + + +
ISCHECKFORPRODUCTUPDATES1LAUNCHPROGRAM1LAUNCHREADME1
+ + + CLSID + Context + Component_ + ProgId_Default + Description + AppId_ + FileTypeMask + Icon_ + IconIndex + DefInprocHandler + Argument + Feature_ + Attributes +
+ + + Property + Order + Value + Text +
+ + + Signature_ + ComponentId + Type +
+ + + Component_ + ExpType +
+ + + Component + ComponentId + Directory_ + Attributes + Condition + KeyPath + ISAttributes + ISComments + ISScanAtBuildFile + ISRegFileToMergeAtBuild + ISDotNetInstallerArgsInstall + ISDotNetInstallerArgsCommit + ISDotNetInstallerArgsUninstall + ISDotNetInstallerArgsRollback + +
Global_Indexer.Prim_re_Ausgabe{571525CF-2F1C-4372-A175-E5D7CD872FCD}INSTALLDIR2global_indexer.prim_re_ausga17/LogFile=/LogFile=/LogFile=/LogFile=
+ + + Feature_ + Level + Condition +
+ + + Dialog_ + Control + Type + X + Y + Width + Height + Attributes + Property + Text + Control_Next + Help + ISWindowStyle + ISControlId + ISBuildSourcePath + Binary_ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
AdminChangeFolderBannerBitmap003744410NewBinary1AdminChangeFolderBannerLineLine044374010 + AdminChangeFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + AdminChangeFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + AdminChangeFolderCancelPushButton30124366173##IDS_CANCEL##ComboText0 + AdminChangeFolderComboDirectoryCombo216427780458755TARGETDIR##IDS__IsAdminInstallBrowse_4##Up0 + AdminChangeFolderComboTextText215099143##IDS__IsAdminInstallBrowse_LookIn##Combo0 + AdminChangeFolderDlgDescText21232922565539##IDS__IsAdminInstallBrowse_BrowseDestination##0 + AdminChangeFolderDlgLineLine48234326010 + AdminChangeFolderDlgTitleText1362922565539##IDS__IsAdminInstallBrowse_ChangeDestination##0 + AdminChangeFolderListDirectoryList2190332977TARGETDIR##IDS__IsAdminInstallBrowse_8##TailText0 + AdminChangeFolderNewFolderPushButton3356619193670019List##IDS__IsAdminInstallBrowse_CreateFolder##0NewBinary2AdminChangeFolderOKPushButton23024366173##IDS_OK##Cancel0 + AdminChangeFolderTailPathEdit21207332173TARGETDIR##IDS__IsAdminInstallBrowse_11##OK0 + AdminChangeFolderTailTextText2119399133##IDS__IsAdminInstallBrowse_FolderName##Tail0 + AdminChangeFolderUpPushButton3106619193670019NewFolder##IDS__IsAdminInstallBrowse_UpOneLevel##0NewBinary3AdminNetworkLocationBackPushButton16424366173##IDS_BACK##InstallNow0 + AdminNetworkLocationBannerBitmap003744410NewBinary1AdminNetworkLocationBannerLineLine044374010 + AdminNetworkLocationBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + AdminNetworkLocationBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + AdminNetworkLocationBrowsePushButton28612466173##IDS__IsAdminInstallPoint_Change##Back0 + AdminNetworkLocationCancelPushButton30124366173##IDS_CANCEL##SetupPathEdit0 + AdminNetworkLocationDlgDescText21232922565539##IDS__IsAdminInstallPoint_SpecifyNetworkLocation##0 + AdminNetworkLocationDlgLineLine48234326010 + AdminNetworkLocationDlgTextText215132640131075##IDS__IsAdminInstallPoint_EnterNetworkLocation##0 + AdminNetworkLocationDlgTitleText1362922565539##IDS__IsAdminInstallPoint_NetworkLocationFormatted##0 + AdminNetworkLocationInstallNowPushButton23024366173##IDS__IsAdminInstallPoint_Install##Cancel0 + AdminNetworkLocationLBBrowseText2190100103##IDS__IsAdminInstallPoint_NetworkLocation##0 + AdminNetworkLocationSetupPathEditPathEdit21102330173TARGETDIRBrowse0 + AdminWelcomeBackPushButton16424366171##IDS_BACK##Next0 + AdminWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + AdminWelcomeDlgLineLine0234326010 + AdminWelcomeImageBitmap0037423410NewBinary5AdminWelcomeNextPushButton23024366173##IDS_NEXT##Cancel0 + AdminWelcomeTextLine1Text135822545196611##IDS__IsAdminInstallPointWelcome_Wizard##0 + AdminWelcomeTextLine2Text1355522845196611##IDS__IsAdminInstallPointWelcome_ServerImage##0 + CancelSetupIconIcon1515242452428810NewBinary4CancelSetupNoPushButton1355766173##IDS__IsCancelDlg_No##Yes0 + CancelSetupTextText481519430131075##IDS__IsCancelDlg_ConfirmCancel##0 + CancelSetupYesPushButton625766173##IDS__IsCancelDlg_Yes##No0 + CustomSetupBackPushButton16424366173##IDS_BACK##Next0 + CustomSetupBannerBitmap003744410NewBinary1CustomSetupBannerLineLine044374010 + CustomSetupBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + CustomSetupBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + CustomSetupCancelPushButton30124366173##IDS_CANCEL##Tree0 + CustomSetupChangeFolderPushButton30120366173##IDS__IsCustomSelectionDlg_Change##Help0 + CustomSetupDetailsPushButton9324366173##IDS__IsCustomSelectionDlg_Space##Back0 + CustomSetupDlgDescText17232922565539##IDS__IsCustomSelectionDlg_SelectFeatures##0 + CustomSetupDlgLineLine48234326010 + CustomSetupDlgTextText951360103##IDS__IsCustomSelectionDlg_ClickFeatureIcon##0 + CustomSetupDlgTitleText962922565539##IDS__IsCustomSelectionDlg_CustomSetup##0 + CustomSetupFeatureGroupGroupBox235671311201##IDS__IsCustomSelectionDlg_FeatureDescription##0 + CustomSetupHelpPushButton2224366173##IDS__IsCustomSelectionDlg_Help##Details0 + CustomSetupInstallLabelText8190360103##IDS__IsCustomSelectionDlg_InstallTo##0 + CustomSetupItemDescriptionText24180120503##IDS__IsCustomSelectionDlg_MultilineDescription##0 + CustomSetupLocationText8203291203##IDS__IsCustomSelectionDlg_FeaturePath##0 + CustomSetupNextPushButton23024366173##IDS_NEXT##Cancel0 + CustomSetupSizeText241133120503##IDS__IsCustomSelectionDlg_FeatureSize##0 + CustomSetupTreeSelectionTree8702201187_BrowsePropertyChangeFolder0 + CustomSetupTipsBannerBitmap003744410NewBinary1CustomSetupTipsBannerLineLine044374010 + CustomSetupTipsBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + CustomSetupTipsBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + CustomSetupTipsDlgDescText21232922565539##IDS_SetupTips_CustomSetupDescription##0 + CustomSetupTipsDlgLineLine48234326010 + CustomSetupTipsDlgTitleText1362922565539##IDS_SetupTips_CustomSetup##0 + CustomSetupTipsDontInstallIcon21155242452428810NewBinary14CustomSetupTipsDontInstallTextText60155300203##IDS_SetupTips_WillNotBeInstalled##0 + CustomSetupTipsFirstInstallTextText60180300203##IDS_SetupTips_Advertise##0 + CustomSetupTipsInstallIcon21105242452428810NewBinary15CustomSetupTipsInstallFirstUseIcon21180242452428810NewBinary16CustomSetupTipsInstallPartialIcon21130242452428810NewBinary17CustomSetupTipsInstallStateMenuIcon2152242452428810NewBinary18CustomSetupTipsInstallStateTextText2191300103##IDS_SetupTips_InstallState##00 + CustomSetupTipsInstallTextText60105300203##IDS_SetupTips_AllInstalledLocal##0 + CustomSetupTipsMenuTextText5052300363##IDS_SetupTips_IconInstallState##0 + CustomSetupTipsNetworkInstallIcon21205242452428810NewBinary13CustomSetupTipsNetworkInstallTextText60205300203##IDS_SetupTips_Network##0 + CustomSetupTipsOKPushButton30124366173##IDS_SetupTips_OK##0 + CustomSetupTipsPartialTextText60130300203##IDS_SetupTips_SubFeaturesInstalledLocal##0 + CustomerInformationBackPushButton16424366173##IDS_BACK##Next0 + CustomerInformationBannerBitmap003744410NewBinary1CustomerInformationBannerLineLine044374010 + CustomerInformationBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + CustomerInformationBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + CustomerInformationCancelPushButton30124366173##IDS_CANCEL##NameLabel0 + CustomerInformationCompanyEditEdit21100237173COMPANYNAME##IDS__IsRegisterUserDlg_Tahoma80##SerialLabel0 + CustomerInformationCompanyLabelText218975103##IDS__IsRegisterUserDlg_Organization##CompanyEdit0 + CustomerInformationDlgDescText21232922565539##IDS__IsRegisterUserDlg_PleaseEnterInfo##0 + CustomerInformationDlgLineLine48234326010 + CustomerInformationDlgRadioGroupTextText21161300142##IDS__IsRegisterUserDlg_InstallFor##0 + CustomerInformationDlgTitleText1362922565539##IDS__IsRegisterUserDlg_CustomerInformation##0 + CustomerInformationNameEditEdit2163237173USERNAME##IDS__IsRegisterUserDlg_Tahoma50##CompanyLabel0 + CustomerInformationNameLabelText215275103##IDS__IsRegisterUserDlg_UserName##NameEdit0 + CustomerInformationNextPushButton23024366173##IDS_NEXT##Cancel0 + CustomerInformationRadioGroupRadioButtonGroup63170300502ApplicationUsers##IDS__IsRegisterUserDlg_16##Back0 + CustomerInformationSerialLabelText21127109102##IDS__IsRegisterUserDlg_SerialNumber##SerialNumber0 + CustomerInformationSerialNumberMaskedEdit21138237172ISX_SERIALNUMRadioGroup0 + DatabaseFolderBackPushButton16424366173##IDS_BACK##Next0 + DatabaseFolderBannerBitmap003744410NewBinary1DatabaseFolderBannerLineLine044374010 + DatabaseFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + DatabaseFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + DatabaseFolderCancelPushButton30124366173##IDS_CANCEL##ChangeFolder0 + DatabaseFolderChangeFolderPushButton3016566173##IDS_CHANGE##Back0 + DatabaseFolderDatabaseFolderIcon2152242452428810NewBinary12DatabaseFolderDlgDescText21232922565539##IDS__DatabaseFolder_ChangeFolder##0 + DatabaseFolderDlgLineLine48234326010 + DatabaseFolderDlgTitleText1362922565539##IDS__DatabaseFolder_DatabaseFolder##0 + DatabaseFolderLocLabelText575229010131075##IDS_DatabaseFolder_InstallDatabaseTo##0 + DatabaseFolderLocationText5765240403_BrowseProperty##IDS__DatabaseFolder_DatabaseDir##0 + DatabaseFolderNextPushButton23024366173##IDS_NEXT##Cancel0 + DestinationFolderBackPushButton16424366173##IDS_BACK##Next0 + DestinationFolderBannerBitmap003744410NewBinary1DestinationFolderBannerLineLine044374010 + DestinationFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + DestinationFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + DestinationFolderCancelPushButton30124366173##IDS_CANCEL##ChangeFolder0 + DestinationFolderChangeFolderPushButton3016566173##IDS__DestinationFolder_Change##Back0 + DestinationFolderDestFolderIcon2152242452428810NewBinary12DestinationFolderDlgDescText21232922565539##IDS__DestinationFolder_ChangeFolder##0 + DestinationFolderDlgLineLine48234326010 + DestinationFolderDlgTitleText1362922565539##IDS__DestinationFolder_DestinationFolder##0 + DestinationFolderLocLabelText575229010131075##IDS__DestinationFolder_InstallTo##0 + DestinationFolderLocationText5765240403_BrowseProperty##IDS_INSTALLDIR##0 + DestinationFolderNextPushButton23024366173##IDS_NEXT##Cancel0 + DiskSpaceRequirementsBannerBitmap003744410NewBinary1DiskSpaceRequirementsBannerLineLine044374010 + DiskSpaceRequirementsBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + DiskSpaceRequirementsBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + DiskSpaceRequirementsDlgDescText17232922565539##IDS__IsFeatureDetailsDlg_SpaceRequired##0 + DiskSpaceRequirementsDlgLineLine48234326010 + DiskSpaceRequirementsDlgTextText10185358413##IDS__IsFeatureDetailsDlg_VolumesTooSmall##0 + DiskSpaceRequirementsDlgTitleText962922565539##IDS__IsFeatureDetailsDlg_DiskSpaceRequirements##0 + DiskSpaceRequirementsListVolumeCostList855358125393223##IDS__IsFeatureDetailsDlg_Numbers##0 + DiskSpaceRequirementsOKPushButton30124366173##IDS__IsFeatureDetailsDlg_OK##0 + FilesInUseBannerBitmap003744410NewBinary1FilesInUseBannerLineLine044374010 + FilesInUseBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + FilesInUseBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + FilesInUseDlgDescText21232922565539##IDS__IsFilesInUse_FilesInUseMessage##0 + FilesInUseDlgLineLine48234326010 + FilesInUseDlgTextText2151348333##IDS__IsFilesInUse_ApplicationsUsingFiles##0 + FilesInUseDlgTitleText1362922565539##IDS__IsFilesInUse_FilesInUse##0 + FilesInUseExitPushButton30124366173##IDS__IsFilesInUse_Exit##List0 + FilesInUseIgnorePushButton23024366173##IDS__IsFilesInUse_Ignore##Exit0 + FilesInUseListListBox21873311357FileInUseProcessRetry0 + FilesInUseRetryPushButton16424366173##IDS__IsFilesInUse_Retry##Ignore0 + InstallChangeFolderBannerBitmap003744410NewBinary1InstallChangeFolderBannerLineLine044374010 + InstallChangeFolderBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + InstallChangeFolderBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + InstallChangeFolderCancelPushButton30124366173##IDS_CANCEL##ComboText0 + InstallChangeFolderComboDirectoryCombo2164277804128779_BrowseProperty##IDS__IsBrowseFolderDlg_4##Up0 + InstallChangeFolderComboTextText215099143##IDS__IsBrowseFolderDlg_LookIn##Combo0 + InstallChangeFolderDlgDescText21232922565539##IDS__IsBrowseFolderDlg_BrowseDestFolder##0 + InstallChangeFolderDlgLineLine48234326010 + InstallChangeFolderDlgTitleText1362922565539##IDS__IsBrowseFolderDlg_ChangeCurrentFolder##0 + InstallChangeFolderListDirectoryList21903329715_BrowseProperty##IDS__IsBrowseFolderDlg_8##TailText0 + InstallChangeFolderNewFolderPushButton3356619193670019List##IDS__IsBrowseFolderDlg_CreateFolder##0NewBinary2InstallChangeFolderOKPushButton23024366173##IDS__IsBrowseFolderDlg_OK##Cancel0 + InstallChangeFolderTailPathEdit212073321715_BrowseProperty##IDS__IsBrowseFolderDlg_11##OK0 + InstallChangeFolderTailTextText2119399133##IDS__IsBrowseFolderDlg_FolderName##Tail0 + InstallChangeFolderUpPushButton3106619193670019NewFolder##IDS__IsBrowseFolderDlg_UpOneLevel##0NewBinary3InstallWelcomeBackPushButton16424366171##IDS_BACK##Copyright0 + InstallWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + InstallWelcomeCopyrightText1351442287365539##IDS__IsWelcomeDlg_WarningCopyright##Next0 + InstallWelcomeDlgLineLine0234374010 + InstallWelcomeImageBitmap0037423410NewBinary5InstallWelcomeNextPushButton23024366173##IDS_NEXT##Cancel0 + InstallWelcomeTextLine1Text135822545196611##IDS__IsWelcomeDlg_WelcomeProductName##0 + InstallWelcomeTextLine2Text1355522845196611##IDS__IsWelcomeDlg_InstallProductName##0 + LicenseAgreementAgreeRadioButtonGroup8190291403AgreeToLicenseBack0 + LicenseAgreementBackPushButton16424366173##IDS_BACK##Next0 + LicenseAgreementBannerBitmap003744410NewBinary1LicenseAgreementBannerLineLine044374010 + LicenseAgreementBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + LicenseAgreementBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + LicenseAgreementCancelPushButton30124366173##IDS_CANCEL##ISPrintButton0 + LicenseAgreementDlgDescText21232922565539##IDS__IsLicenseDlg_ReadLicenseAgreement##0 + LicenseAgreementDlgLineLine48234326010 + LicenseAgreementDlgTitleText1362922565539##IDS__IsLicenseDlg_LicenseAgreement##0 + LicenseAgreementISPrintButtonPushButton30118865173##IDS_PRINT_BUTTON##Agree0 + LicenseAgreementMemoScrollableText85535813070<ISProductFolder>\Redist\0409\Eula.rtf + LicenseAgreementNextPushButton23024366173##IDS_NEXT##Cancel0 + MaintenanceTypeBackPushButton16424366173##IDS_BACK##Next0 + MaintenanceTypeBannerBitmap003744410NewBinary1MaintenanceTypeBannerLineLine044374010 + MaintenanceTypeBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + MaintenanceTypeBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + MaintenanceTypeCancelPushButton30124366173##IDS_CANCEL##RadioGroup0 + MaintenanceTypeDlgDescText21232922565539##IDS__IsMaintenanceDlg_MaitenanceOptions##0 + MaintenanceTypeDlgLineLine48234326010 + MaintenanceTypeDlgTitleText1362922565539##IDS__IsMaintenanceDlg_ProgramMaintenance##0 + MaintenanceTypeIco1Icon3575242452428810NewBinary6MaintenanceTypeIco2Icon35135242452428810NewBinary7MaintenanceTypeIco3Icon35195242452428810NewBinary8MaintenanceTypeNextPushButton23024366173##IDS_NEXT##Cancel0 + MaintenanceTypeRadioGroupRadioButtonGroup21552901703_IsMaintenanceBack0 + MaintenanceTypeText1Text8072260353##IDS__IsMaintenanceDlg_ChangeFeatures##0 + MaintenanceTypeText2Text80135260353##IDS__IsMaintenanceDlg_RepairMessage##0 + MaintenanceTypeText3Text8019226035131075##IDS__IsMaintenanceDlg_RemoveProductName##0 + MaintenanceWelcomeBackPushButton16424366171##IDS_BACK##Next0 + MaintenanceWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + MaintenanceWelcomeDlgLineLine0234374010 + MaintenanceWelcomeImageBitmap0037423410NewBinary5MaintenanceWelcomeNextPushButton23024366173##IDS_NEXT##Cancel0 + MaintenanceWelcomeTextLine1Text135822545196611##IDS__IsMaintenanceWelcome_WizardWelcome##0 + MaintenanceWelcomeTextLine2Text1355522850196611##IDS__IsMaintenanceWelcome_MaintenanceOptionsDescription##0 + MsiRMFilesInUseBannerBitmap003744410NewBinary1MsiRMFilesInUseBannerLineLine044374010 + MsiRMFilesInUseBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + MsiRMFilesInUseBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + MsiRMFilesInUseCancelPushButton30124366173##IDS_CANCEL##Restart0 + MsiRMFilesInUseDlgDescText21232922565539##IDS__IsFilesInUse_FilesInUseMessage##0 + MsiRMFilesInUseDlgLineLine48234326010 + MsiRMFilesInUseDlgTextText2151348143##IDS__IsMsiRMFilesInUse_ApplicationsUsingFiles##0 + MsiRMFilesInUseDlgTitleText1362922565539##IDS__IsFilesInUse_FilesInUse##0 + MsiRMFilesInUseListListBox21663311303FileInUseProcessOK0 + MsiRMFilesInUseOKPushButton23024366173##IDS_OK##Cancel0 + MsiRMFilesInUseRestartRadioButtonGroup19187343403RestartManagerOptionList0 + OutOfSpaceBannerBitmap003744410NewBinary1OutOfSpaceBannerLineLine044374010 + OutOfSpaceBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + OutOfSpaceBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + OutOfSpaceDlgDescText21232922565539##IDS__IsDiskSpaceDlg_DiskSpace##0 + OutOfSpaceDlgLineLine48234326010 + OutOfSpaceDlgTextText2151326433##IDS__IsDiskSpaceDlg_HighlightedVolumes##0 + OutOfSpaceDlgTitleText1362922565539##IDS__IsDiskSpaceDlg_OutOfDiskSpace##0 + OutOfSpaceListVolumeCostList2195332120393223##IDS__IsDiskSpaceDlg_Numbers##0 + OutOfSpaceResumePushButton30124366173##IDS__IsDiskSpaceDlg_OK##0 + PatchWelcomeBackPushButton16424366171##IDS_BACK##Next0 + PatchWelcomeCancelPushButton30124366173##IDS_CANCEL##Back0 + PatchWelcomeDlgLineLine0234374010 + PatchWelcomeImageBitmap0037423410NewBinary5PatchWelcomeNextPushButton23024366173##IDS__IsPatchDlg_Update##Cancel0 + PatchWelcomeTextLine1Text135822545196611##IDS__IsPatchDlg_WelcomePatchWizard##0 + PatchWelcomeTextLine2Text1355422845196611##IDS__IsPatchDlg_PatchClickUpdate##0 + ReadmeInformationBackPushButton16424366171048579##IDS_BACK##Next0 + ReadmeInformationBannerBitmap00374443DlgTitle0NewBinary1ReadmeInformationBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##00 + ReadmeInformationBranding2Text3228501365537##IDS_INSTALLSHIELD##00 + ReadmeInformationCancelPushButton30124366171048579##IDS__IsReadmeDlg_Cancel##Readme0 + ReadmeInformationDlgDescText21232321665539##IDS__IsReadmeDlg_PleaseReadInfo##Back00 + ReadmeInformationDlgLineLine482343260300 + ReadmeInformationDlgTitleText1361931365539##IDS__IsReadmeDlg_ReadMeInfo##DlgDesc0 + ReadmeInformationNextPushButton23024366171048579##IDS_NEXT##Cancel0 + ReadmeInformationReadmeScrollableText10553531663Banner0<ISProductFolder>\Redist\0409\Readme.rtf + ReadyToInstallBackPushButton16424366173##IDS_BACK##GroupBox10 + ReadyToInstallBannerBitmap003744410NewBinary1ReadyToInstallBannerLineLine044374010 + ReadyToInstallBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + ReadyToInstallBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + ReadyToInstallCancelPushButton30124366173##IDS_CANCEL##Back0 + ReadyToInstallCompanyNameTextText3819821193##IDS__IsVerifyReadyDlg_Company##SerialNumberText0 + ReadyToInstallCurrentSettingsTextText198081103##IDS__IsVerifyReadyDlg_CurrentSettings##InstallNow0 + ReadyToInstallDlgDescText21232922565539##IDS__IsVerifyReadyDlg_WizardReady##0 + ReadyToInstallDlgLineLine482343260100 + ReadyToInstallDlgText1Text2154330243##IDS__IsVerifyReadyDlg_BackOrCancel##0 + ReadyToInstallDlgText2Text2199330202##IDS__IsRegisterUserDlg_InstallFor##0 + ReadyToInstallDlgTitleText1362922565538##IDS__IsVerifyReadyDlg_ModifyReady##0 + ReadyToInstallDlgTitle2Text1362922565538##IDS__IsVerifyReadyDlg_ReadyRepair##0 + ReadyToInstallDlgTitle3Text1362922565538##IDS__IsVerifyReadyDlg_ReadyInstall##0 + ReadyToInstallGroupBox1Text199233013365541SetupTypeText10 + ReadyToInstallInstallNowPushButton23024366178388611##IDS__IsVerifyReadyDlg_Install##InstallPerMachine0 + ReadyToInstallInstallPerMachinePushButton63123248178388610##IDS__IsRegisterUserDlg_Anyone##InstallPerUser0 + ReadyToInstallInstallPerUserPushButton63143248172##IDS__IsRegisterUserDlg_OnlyMe##Cancel0 + ReadyToInstallSerialNumberTextText3821130693##IDS__IsVerifyReadyDlg_Serial##CurrentSettingsText0 + ReadyToInstallSetupTypeText1Text2397306133##IDS__IsVerifyReadyDlg_SetupType##SetupTypeText20 + ReadyToInstallSetupTypeText2Text37114306143##IDS__IsVerifyReadyDlg_SelectedSetupType##TargetFolderText10 + ReadyToInstallTargetFolderText1Text24136306113##IDS__IsVerifyReadyDlg_DestFolder##TargetFolderText20 + ReadyToInstallTargetFolderText2Text37151306133##IDS__IsVerifyReadyDlg_Installdir##UserInformationText0 + ReadyToInstallUserInformationTextText23171306133##IDS__IsVerifyReadyDlg_UserInfo##UserNameText0 + ReadyToInstallUserNameTextText3818430693##IDS__IsVerifyReadyDlg_UserName##CompanyNameText0 + ReadyToRemoveBackPushButton16424366173##IDS_BACK##RemoveNow0 + ReadyToRemoveBannerBitmap003744410NewBinary1ReadyToRemoveBannerLineLine044374010 + ReadyToRemoveBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + ReadyToRemoveBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + ReadyToRemoveCancelPushButton30124366173##IDS_CANCEL##Back0 + ReadyToRemoveDlgDescText21232922565539##IDS__IsVerifyRemoveAllDlg_ChoseRemoveProgram##0 + ReadyToRemoveDlgLineLine48234326010 + ReadyToRemoveDlgTextText215132624131075##IDS__IsVerifyRemoveAllDlg_ClickRemove##0 + ReadyToRemoveDlgText1Text2179330233##IDS__IsVerifyRemoveAllDlg_ClickBack##0 + ReadyToRemoveDlgText2Text211023302430 + ReadyToRemoveDlgTitleText1362922565539##IDS__IsVerifyRemoveAllDlg_RemoveProgram##0 + ReadyToRemoveRemoveNowPushButton23024366178388611##IDS__IsVerifyRemoveAllDlg_Remove##Cancel0 + SetupCompleteErrorBackPushButton16424366171##IDS_BACK##Finish0 + SetupCompleteErrorCancelPushButton30124366171##IDS_CANCEL##Back0 + SetupCompleteErrorCheckShowMsiLogCheckBox1511721092ISSHOWMSILOGCancel0 + SetupCompleteErrorDlgLineLine0234374010 + SetupCompleteErrorFinishPushButton23024366173##IDS__IsFatalError_Finish##Image0 + SetupCompleteErrorFinishText1Text135802285065539##IDS__IsFatalError_NotModified##0 + SetupCompleteErrorFinishText2Text1351352282565539##IDS__IsFatalError_ClickFinish##0 + SetupCompleteErrorImageBitmap003742341CheckShowMsiLog0NewBinary5SetupCompleteErrorRestContText1Text135802285065539##IDS__IsFatalError_KeepOrRestore##0 + SetupCompleteErrorRestContText2Text1351352282565539##IDS__IsFatalError_RestoreOrContinueLater##0 + SetupCompleteErrorShowMsiLogTextText1641721981065538##IDS__IsSetupComplete_ShowMsiLog##0 + SetupCompleteErrorTextLine1Text13582254565539##IDS__IsFatalError_WizardCompleted##0 + SetupCompleteErrorTextLine2Text1355522825196611##IDS__IsFatalError_WizardInterrupted##0 + SetupCompleteSuccessBackPushButton16424366171##IDS_BACK##OK0 + SetupCompleteSuccessCancelPushButton30124366171##IDS_CANCEL##Image0 + SetupCompleteSuccessCheckBoxUpdatesCheckBox1351641092ISCHECKFORPRODUCTUPDATESCheckBox1CheckShowMsiLog0 + SetupCompleteSuccessCheckForUpdatesTextText1521621903065538##IDS__IsExitDialog_Update_YesCheckForUpdates##0 + SetupCompleteSuccessCheckLaunchProgramCheckBox1511141092LAUNCHPROGRAMCheckLaunchReadme0 + SetupCompleteSuccessCheckLaunchReadmeCheckBox1511481092LAUNCHREADMECheckBoxUpdates0 + SetupCompleteSuccessCheckShowMsiLogCheckBox1511821092ISSHOWMSILOGBack0 + SetupCompleteSuccessDlgLineLine0234374010 + SetupCompleteSuccessImageBitmap003742341CheckLaunchProgram0NewBinary5SetupCompleteSuccessLaunchProgramTextText164112981565538##IDS__IsExitDialog_LaunchProgram##00 + SetupCompleteSuccessLaunchReadmeTextText1641481201365538##IDS__IsExitDialog_ShowReadMe##00 + SetupCompleteSuccessOKPushButton23024366173##IDS__IsExitDialog_Finish##Cancel0 + SetupCompleteSuccessShowMsiLogTextText1641821981065538##IDS__IsSetupComplete_ShowMsiLog##0 + SetupCompleteSuccessTextLine1Text13582254565539##IDS__IsExitDialog_WizardCompleted##0 + SetupCompleteSuccessTextLine2Text1355522845196610##IDS__IsExitDialog_InstallSuccess##0 + SetupCompleteSuccessTextLine3Text1355522845196610##IDS__IsExitDialog_UninstallSuccess##0 + SetupCompleteSuccessUpdateTextLine1Text1353022845196610##IDS__IsExitDialog_Update_SetupFinished##0 + SetupCompleteSuccessUpdateTextLine2Text1358022845196610##IDS__IsExitDialog_Update_PossibleUpdates##0 + SetupCompleteSuccessUpdateTextLine3Text1351202284565538##IDS__IsExitDialog_Update_InternetConnection##0 + SetupErrorAPushButton1928066173##IDS__IsErrorDlg_Abort##0 + SetupErrorCPushButton1928066173##IDS_CANCEL2##0 + SetupErrorErrorIconIcon1515242452428810NewBinary4SetupErrorErrorTextText501520050131075##IDS__IsErrorDlg_ErrorText##0 + SetupErrorIPushButton1928066173##IDS__IsErrorDlg_Ignore##0 + SetupErrorNPushButton1928066173##IDS__IsErrorDlg_NO##0 + SetupErrorOPushButton1928066173##IDS__IsErrorDlg_OK##0 + SetupErrorRPushButton1928066173##IDS__IsErrorDlg_Retry##0 + SetupErrorYPushButton1928066173##IDS__IsErrorDlg_Yes##0 + SetupInitializationActionDataText1351252281265539##IDS__IsInitDlg_1##0 + SetupInitializationActionTextText1351092203665539##IDS__IsInitDlg_2##0 + SetupInitializationBackPushButton16424366171##IDS_BACK##0 + SetupInitializationCancelPushButton30124366173##IDS_CANCEL##0 + SetupInitializationDlgLineLine0234374010 + SetupInitializationImageBitmap0037423410NewBinary5SetupInitializationNextPushButton23024366171##IDS_NEXT##0 + SetupInitializationTextLine1Text135822545196611##IDS__IsInitDlg_WelcomeWizard##0 + SetupInitializationTextLine2Text1355522830196611##IDS__IsInitDlg_PreparingWizard##0 + SetupInterruptedBackPushButton16424366171##IDS_BACK##Finish0 + SetupInterruptedCancelPushButton30124366171##IDS_CANCEL##Image0 + SetupInterruptedCheckShowMsiLogCheckBox1511721092ISSHOWMSILOGBack0 + SetupInterruptedDlgLineLine0234374010 + SetupInterruptedFinishPushButton23024366173##IDS__IsUserExit_Finish##Cancel0 + SetupInterruptedFinishText1Text135802285065539##IDS__IsUserExit_NotModified##0 + SetupInterruptedFinishText2Text1351352282565539##IDS__IsUserExit_ClickFinish##0 + SetupInterruptedImageBitmap003742341CheckShowMsiLog0NewBinary5SetupInterruptedRestContText1Text135802285065539##IDS__IsUserExit_KeepOrRestore##0 + SetupInterruptedRestContText2Text1351352282565539##IDS__IsUserExit_RestoreOrContinue##0 + SetupInterruptedShowMsiLogTextText1641721981065538##IDS__IsSetupComplete_ShowMsiLog##0 + SetupInterruptedTextLine1Text13582254565539##IDS__IsUserExit_WizardCompleted##0 + SetupInterruptedTextLine2Text1355522825196611##IDS__IsUserExit_WizardInterrupted##0 + SetupProgressActionProgress95ProgressBar591132751265537##IDS__IsProgressDlg_ProgressDone##0 + SetupProgressActionTextText59100275123##IDS__IsProgressDlg_2##0 + SetupProgressBackPushButton16424366171##IDS_BACK##Next0 + SetupProgressBannerBitmap003744410NewBinary1SetupProgressBannerLineLine044374010 + SetupProgressBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + SetupProgressBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + SetupProgressCancelPushButton30124366173##IDS_CANCEL##Back0 + SetupProgressDlgDescText21232922565538##IDS__IsProgressDlg_UninstallingFeatures2##0 + SetupProgressDlgDesc2Text21232922565538##IDS__IsProgressDlg_UninstallingFeatures##0 + SetupProgressDlgLineLine48234326010 + SetupProgressDlgTextText595127530196610##IDS__IsProgressDlg_WaitUninstall2##0 + SetupProgressDlgText2Text595127530196610##IDS__IsProgressDlg_WaitUninstall##0 + SetupProgressDlgTitleText13629225196610##IDS__IsProgressDlg_InstallingProductName##0 + SetupProgressDlgTitle2Text13629225196610##IDS__IsProgressDlg_Uninstalling##0 + SetupProgressLbSecText19213932122##IDS__IsProgressDlg_SecHidden##0 + SetupProgressLbStatusText598570123##IDS__IsProgressDlg_Status##0 + SetupProgressNextPushButton23024366171##IDS_NEXT##Cancel0 + SetupProgressSetupIconIcon2151242452428810NewBinary9SetupProgressShowTimeText17013917122##IDS__IsProgressDlg_Hidden##0 + SetupProgressTextTimeText59139110122##IDS__IsProgressDlg_HiddenTimeRemaining##0 + SetupResumeBackPushButton16424366171##IDS_BACK##Next0 + SetupResumeCancelPushButton30124366173##IDS_CANCEL##Back0 + SetupResumeDlgLineLine0234374010 + SetupResumeImageBitmap0037423410NewBinary5SetupResumeNextPushButton23024366173##IDS_NEXT##Cancel0 + SetupResumePreselectedTextText1355522845196611##IDS__IsResumeDlg_WizardResume##0 + SetupResumeResumeTextText1354622845196611##IDS__IsResumeDlg_ResumeSuspended##0 + SetupResumeTextLine1Text135822545196611##IDS__IsResumeDlg_Resuming##0 + SetupTypeBackPushButton16424366173##IDS_BACK##Next0 + SetupTypeBannerBitmap003744410NewBinary1SetupTypeBannerLineLine044374010 + SetupTypeBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + SetupTypeBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + SetupTypeCancelPushButton30124366173##IDS_CANCEL##RadioGroup0 + SetupTypeCompTextText8080246303##IDS__IsSetupTypeMinDlg_AllFeatures##0 + SetupTypeCompleteIcoIcon3480242452428810NewBinary10SetupTypeCustTextText80171246302##IDS__IsSetupTypeMinDlg_ChooseFeatures##0 + SetupTypeCustomIcoIcon34171242452428800NewBinary11SetupTypeDlgDescText21232922565539##IDS__IsSetupTypeMinDlg_ChooseSetupType##0 + SetupTypeDlgLineLine48234326010 + SetupTypeDlgTextText2249326103##IDS__IsSetupTypeMinDlg_SelectSetupType##00 + SetupTypeDlgTitleText1362922565539##IDS__IsSetupTypeMinDlg_SetupType##0 + SetupTypeMinIcoIcon34125242452428800NewBinary11SetupTypeMinTextText80125246302##IDS__IsSetupTypeMinDlg_MinimumFeatures##0 + SetupTypeNextPushButton23024366173##IDS_NEXT##Cancel0 + SetupTypeRadioGroupRadioButtonGroup20592641391048579_IsSetupTypeMinBack00 + SplashBitmapBackPushButton16424366171##IDS_BACK##Next0 + SplashBitmapBranding1Text422950133##IDS_INSTALLSHIELD_FORMATTED##0 + SplashBitmapBranding2Text3228501365537##IDS_INSTALLSHIELD##0 + SplashBitmapCancelPushButton30124366173##IDS_CANCEL##Back0 + SplashBitmapDlgLineLine48234326010 + SplashBitmapImageBitmap131234921110NewBinary5SplashBitmapNextPushButton23024366173##IDS_NEXT##Cancel0 +
+ + + Dialog_ + Control_ + Action + Condition + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
CustomSetupChangeFolderHideInstalledCustomSetupDetailsHideInstalledCustomSetupInstallLabelHideInstalledCustomerInformationDlgRadioGroupTextHideNOT PrivilegedCustomerInformationDlgRadioGroupTextHideProductState > 0CustomerInformationDlgRadioGroupTextHideVersion9XCustomerInformationDlgRadioGroupTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledCustomerInformationRadioGroupHideNOT PrivilegedCustomerInformationRadioGroupHideProductState > 0CustomerInformationRadioGroupHideVersion9XCustomerInformationRadioGroupHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledCustomerInformationSerialLabelShowSERIALNUMSHOWCustomerInformationSerialNumberShowSERIALNUMSHOWInstallWelcomeCopyrightHideSHOWCOPYRIGHT="No"InstallWelcomeCopyrightShowSHOWCOPYRIGHT="Yes"LicenseAgreementNextDisableAgreeToLicense <> "Yes"LicenseAgreementNextEnableAgreeToLicense = "Yes"ReadyToInstallCompanyNameTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallCurrentSettingsTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallDlgText2HideVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallDlgText2ShowVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallDlgTitleShowProgressType0="Modify"ReadyToInstallDlgTitle2ShowProgressType0="Repair"ReadyToInstallDlgTitle3ShowProgressType0="install"ReadyToInstallGroupBox1HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallInstallNowDisableVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallInstallNowEnableVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallInstallPerMachineHideVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallInstallPerMachineShowVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallInstallPerUserHideVersionNT < "601" OR NOT ISSupportPerUser OR InstalledReadyToInstallInstallPerUserShowVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallSerialNumberTextHideNOT SERIALNUMSHOWReadyToInstallSerialNumberTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallSetupTypeText1HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallSetupTypeText2HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallTargetFolderText1HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallTargetFolderText2HideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallUserInformationTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledReadyToInstallUserNameTextHideVersionNT >= "601" AND ISSupportPerUser AND NOT InstalledSetupCompleteErrorBackDefaultUpdateStartedSetupCompleteErrorBackDisableNOT UpdateStartedSetupCompleteErrorBackEnableUpdateStartedSetupCompleteErrorCancelDisableNOT UpdateStartedSetupCompleteErrorCancelEnableUpdateStartedSetupCompleteErrorCheckShowMsiLogShowMsiLogFileLocationSetupCompleteErrorFinishDefaultNOT UpdateStartedSetupCompleteErrorFinishText1HideUpdateStartedSetupCompleteErrorFinishText1ShowNOT UpdateStartedSetupCompleteErrorFinishText2HideUpdateStartedSetupCompleteErrorFinishText2ShowNOT UpdateStartedSetupCompleteErrorRestContText1HideNOT UpdateStartedSetupCompleteErrorRestContText1ShowUpdateStartedSetupCompleteErrorRestContText2HideNOT UpdateStartedSetupCompleteErrorRestContText2ShowUpdateStartedSetupCompleteErrorShowMsiLogTextShowMsiLogFileLocationSetupCompleteSuccessCheckBoxUpdatesShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessCheckForUpdatesTextShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessCheckLaunchProgramShowSHOWLAUNCHPROGRAM="-1" And PROGRAMFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessCheckLaunchReadmeShowSHOWLAUNCHREADME="-1" And READMEFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessCheckShowMsiLogShowMsiLogFileLocation And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessLaunchProgramTextShowSHOWLAUNCHPROGRAM="-1" And PROGRAMFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessLaunchReadmeTextShowSHOWLAUNCHREADME="-1" And READMEFILETOLAUNCHATEND <> "" And NOT Installed And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessShowMsiLogTextShowMsiLogFileLocation And NOT ISENABLEDWUSFINISHDIALOGSetupCompleteSuccessTextLine2ShowProgressType2="installed" And ((ACTION<>"INSTALL") OR (NOT ISENABLEDWUSFINISHDIALOG) OR (ISENABLEDWUSFINISHDIALOG And Installed))SetupCompleteSuccessTextLine3ShowProgressType2="uninstalled" And ((ACTION<>"INSTALL") OR (NOT ISENABLEDWUSFINISHDIALOG) OR (ISENABLEDWUSFINISHDIALOG And Installed))SetupCompleteSuccessUpdateTextLine1ShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessUpdateTextLine2ShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupCompleteSuccessUpdateTextLine3ShowISENABLEDWUSFINISHDIALOG And NOT Installed And ACTION="INSTALL"SetupInterruptedBackDefaultUpdateStartedSetupInterruptedBackDisableNOT UpdateStartedSetupInterruptedBackEnableUpdateStartedSetupInterruptedCancelDisableNOT UpdateStartedSetupInterruptedCancelEnableUpdateStartedSetupInterruptedCheckShowMsiLogShowMsiLogFileLocationSetupInterruptedFinishDefaultNOT UpdateStartedSetupInterruptedFinishText1HideUpdateStartedSetupInterruptedFinishText1ShowNOT UpdateStartedSetupInterruptedFinishText2HideUpdateStartedSetupInterruptedFinishText2ShowNOT UpdateStartedSetupInterruptedRestContText1HideNOT UpdateStartedSetupInterruptedRestContText1ShowUpdateStartedSetupInterruptedRestContText2HideNOT UpdateStartedSetupInterruptedRestContText2ShowUpdateStartedSetupInterruptedShowMsiLogTextShowMsiLogFileLocationSetupProgressDlgDescShowProgressType2="installed"SetupProgressDlgDesc2ShowProgressType2="uninstalled"SetupProgressDlgTextShowProgressType3="installs"SetupProgressDlgText2ShowProgressType3="uninstalls"SetupProgressDlgTitleShowProgressType1="Installing"SetupProgressDlgTitle2ShowProgressType1="Uninstalling"SetupResumePreselectedTextHideRESUMESetupResumePreselectedTextShowNOT RESUMESetupResumeResumeTextHideNOT RESUMESetupResumeResumeTextShowRESUME
+ + + Dialog_ + Control_ + Event + Argument + Condition + Ordering + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
AdminChangeFolderCancelEndDialogReturn12AdminChangeFolderCancelReset011AdminChangeFolderNewFolderDirectoryListNew010AdminChangeFolderOKEndDialogReturn10AdminChangeFolderOKSetTargetPathTARGETDIR11AdminChangeFolderUpDirectoryListUp010AdminNetworkLocationBackNewDialogAdminWelcome10AdminNetworkLocationBrowseSpawnDialogAdminChangeFolder10AdminNetworkLocationCancelSpawnDialogCancelSetup10AdminNetworkLocationInstallNowEndDialogReturnOutOfNoRbDiskSpace <> 13AdminNetworkLocationInstallNowNewDialogOutOfSpaceOutOfNoRbDiskSpace = 12AdminNetworkLocationInstallNowSetTargetPathTARGETDIR11AdminWelcomeCancelSpawnDialogCancelSetup10AdminWelcomeNextNewDialogAdminNetworkLocation10CancelSetupNoEndDialogReturn10CancelSetupYesDoActionCleanUpISSCRIPTRUNNING="1"1CancelSetupYesEndDialogExit12CustomSetupBackNewDialogCustomerInformationNOT Installed0CustomSetupBackNewDialogMaintenanceTypeInstalled0CustomSetupCancelSpawnDialogCancelSetup10CustomSetupChangeFolderSelectionBrowseInstallChangeFolder10CustomSetupDetailsSelectionBrowseDiskSpaceRequirements11CustomSetupHelpSpawnDialogCustomSetupTips11CustomSetupNextNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10CustomSetupNextNewDialogReadyToInstallOutOfNoRbDiskSpace <> 10CustomSetupNext[_IsSetupTypeMin]Custom10CustomSetupTipsOKEndDialogReturn11CustomerInformationBackNewDialogInstallWelcomeNOT Installed1CustomerInformationCancelSpawnDialogCancelSetup10CustomerInformationNextEndDialogExit(SERIALNUMVALRETRYLIMIT) And (SERIALNUMVALRETRYLIMIT<0) And (SERIALNUMVALRETURN<>SERIALNUMVALSUCCESSRETVAL)2CustomerInformationNextNewDialogReadyToInstall(Not SERIALNUMVALRETURN) OR (SERIALNUMVALRETURN=SERIALNUMVALSUCCESSRETVAL)3CustomerInformationNext[ALLUSERS]1ApplicationUsers = "AllUsers" And Privileged1CustomerInformationNext[ALLUSERS]{}ApplicationUsers = "OnlyCurrentUser" And Privileged2DatabaseFolderBackNewDialogCustomerInformation11DatabaseFolderCancelSpawnDialogCancelSetup11DatabaseFolderChangeFolderSpawnDialogInstallChangeFolder11DatabaseFolderChangeFolder[_BrowseProperty]DATABASEDIR12DatabaseFolderNextNewDialogSetupType11DestinationFolderBackNewDialogInstallWelcomeNOT Installed0DestinationFolderCancelSpawnDialogCancelSetup11DestinationFolderChangeFolderSpawnDialogInstallChangeFolder11DestinationFolderChangeFolder[_BrowseProperty]INSTALLDIR12DestinationFolderNextNewDialogReadyToInstall10DiskSpaceRequirementsOKEndDialogReturn10FilesInUseExitEndDialogExit10FilesInUseIgnoreEndDialogIgnore10FilesInUseRetryEndDialogRetry10InstallChangeFolderCancelEndDialogReturn12InstallChangeFolderCancelReset011InstallChangeFolderNewFolderDirectoryListNew010InstallChangeFolderOKEndDialogReturn13InstallChangeFolderOKSetTargetPath[_BrowseProperty]12InstallChangeFolderUpDirectoryListUp010InstallWelcomeBackNewDialogSplashBitmapDisplay_IsBitmapDlg0InstallWelcomeCancelSpawnDialogCancelSetup10InstallWelcomeNextNewDialogDestinationFolder10LicenseAgreementBackNewDialogInstallWelcome10LicenseAgreementCancelSpawnDialogCancelSetup10LicenseAgreementISPrintButtonDoActionISPrint10LicenseAgreementNextNewDialogCustomerInformationAgreeToLicense = "Yes"0MaintenanceTypeBackNewDialogMaintenanceWelcome10MaintenanceTypeCancelSpawnDialogCancelSetup10MaintenanceTypeNextNewDialogCustomSetup_IsMaintenance = "Change"12MaintenanceTypeNextNewDialogReadyToInstall_IsMaintenance = "Reinstall"13MaintenanceTypeNextNewDialogReadyToRemove_IsMaintenance = "Remove"11MaintenanceTypeNextReinstallALL_IsMaintenance = "Reinstall"10MaintenanceTypeNextReinstallMode[ReinstallModeText]_IsMaintenance = "Reinstall"9MaintenanceTypeNext[ProgressType0]Modify_IsMaintenance = "Change"2MaintenanceTypeNext[ProgressType0]Repair_IsMaintenance = "Reinstall"1MaintenanceTypeNext[ProgressType1]Modifying_IsMaintenance = "Change"3MaintenanceTypeNext[ProgressType1]Repairing_IsMaintenance = "Reinstall"4MaintenanceTypeNext[ProgressType2]modified_IsMaintenance = "Change"6MaintenanceTypeNext[ProgressType2]repairs_IsMaintenance = "Reinstall"5MaintenanceTypeNext[ProgressType3]modifies_IsMaintenance = "Change"7MaintenanceTypeNext[ProgressType3]repairs_IsMaintenance = "Reinstall"8MaintenanceWelcomeCancelSpawnDialogCancelSetup10MaintenanceWelcomeNextNewDialogMaintenanceType10MsiRMFilesInUseCancelEndDialogExit11MsiRMFilesInUseOKEndDialogReturn11MsiRMFilesInUseOKRMShutdownAndRestart0RestartManagerOption="CloseRestart"2OutOfSpaceResumeNewDialogAdminNetworkLocationACTION = "ADMIN"0OutOfSpaceResumeNewDialogDestinationFolderACTION <> "ADMIN"0PatchWelcomeCancelSpawnDialogCancelSetup11PatchWelcomeNextEndDialogReturn13PatchWelcomeNextReinstallALLPATCH And REINSTALL=""1PatchWelcomeNextReinstallModeomusPATCH And REINSTALLMODE=""2ReadmeInformationBackNewDialogLicenseAgreement11ReadmeInformationCancelSpawnDialogCancelSetup11ReadmeInformationNextNewDialogCustomerInformation11ReadyToInstallBackNewDialogCustomSetupInstalled OR _IsSetupTypeMin = "Custom"2ReadyToInstallBackNewDialogDestinationFolderNOT Installed1ReadyToInstallBackNewDialogMaintenanceTypeInstalled AND _IsMaintenance = "Reinstall"3ReadyToInstallCancelSpawnDialogCancelSetup10ReadyToInstallInstallNowEndDialogReturnOutOfNoRbDiskSpace <> 10ReadyToInstallInstallNowNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10ReadyToInstallInstallNow[ProgressType1]Installing10ReadyToInstallInstallNow[ProgressType2]installed10ReadyToInstallInstallNow[ProgressType3]installs10ReadyToInstallInstallPerMachineEndDialogReturnOutOfNoRbDiskSpace <> 10ReadyToInstallInstallPerMachineNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10ReadyToInstallInstallPerMachine[ALLUSERS]110ReadyToInstallInstallPerMachine[MSIINSTALLPERUSER]{}10ReadyToInstallInstallPerMachine[ProgressType1]Installing10ReadyToInstallInstallPerMachine[ProgressType2]installed10ReadyToInstallInstallPerMachine[ProgressType3]installs10ReadyToInstallInstallPerUserEndDialogReturnOutOfNoRbDiskSpace <> 10ReadyToInstallInstallPerUserNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10ReadyToInstallInstallPerUser[ALLUSERS]210ReadyToInstallInstallPerUser[MSIINSTALLPERUSER]110ReadyToInstallInstallPerUser[ProgressType1]Installing10ReadyToInstallInstallPerUser[ProgressType2]installed10ReadyToInstallInstallPerUser[ProgressType3]installs10ReadyToRemoveBackNewDialogMaintenanceType10ReadyToRemoveCancelSpawnDialogCancelSetup10ReadyToRemoveRemoveNowEndDialogReturnOutOfNoRbDiskSpace <> 12ReadyToRemoveRemoveNowNewDialogOutOfSpaceOutOfNoRbDiskSpace = 12ReadyToRemoveRemoveNowRemoveALL11ReadyToRemoveRemoveNow[ProgressType1]Uninstalling10ReadyToRemoveRemoveNow[ProgressType2]uninstalled10ReadyToRemoveRemoveNow[ProgressType3]uninstalls10SetupCompleteErrorBackEndDialogReturn12SetupCompleteErrorBack[Suspend]{}11SetupCompleteErrorCancelEndDialogReturn12SetupCompleteErrorCancel[Suspend]111SetupCompleteErrorFinishDoActionCleanUpISSCRIPTRUNNING="1"1SetupCompleteErrorFinishDoActionShowMsiLogMsiLogFileLocation And (ISSHOWMSILOG="1")3SetupCompleteErrorFinishEndDialogExit12SetupCompleteSuccessOKDoActionCleanUpISSCRIPTRUNNING="1"1SetupCompleteSuccessOKDoActionShowMsiLogMsiLogFileLocation And (ISSHOWMSILOG="1") And NOT ISENABLEDWUSFINISHDIALOG6SetupCompleteSuccessOKEndDialogExit12SetupErrorAEndDialogErrorAbort10SetupErrorCEndDialogErrorCancel10SetupErrorIEndDialogErrorIgnore10SetupErrorNEndDialogErrorNo10SetupErrorOEndDialogErrorOk10SetupErrorREndDialogErrorRetry10SetupErrorYEndDialogErrorYes10SetupInitializationCancelSpawnDialogCancelSetup10SetupInterruptedBackEndDialogExit12SetupInterruptedBack[Suspend]{}11SetupInterruptedCancelEndDialogExit12SetupInterruptedCancel[Suspend]111SetupInterruptedFinishDoActionCleanUpISSCRIPTRUNNING="1"1SetupInterruptedFinishDoActionShowMsiLogMsiLogFileLocation And (ISSHOWMSILOG="1")3SetupInterruptedFinishEndDialogExit12SetupProgressCancelSpawnDialogCancelSetup10SetupResumeCancelSpawnDialogCancelSetup10SetupResumeNextEndDialogReturnOutOfNoRbDiskSpace <> 10SetupResumeNextNewDialogOutOfSpaceOutOfNoRbDiskSpace = 10SetupTypeBackNewDialogCustomerInformation11SetupTypeCancelSpawnDialogCancelSetup10SetupTypeNextNewDialogCustomSetup_IsSetupTypeMin = "Custom"2SetupTypeNextNewDialogReadyToInstall_IsSetupTypeMin <> "Custom"1SetupTypeNextSetInstallLevel100_IsSetupTypeMin="Minimal"0SetupTypeNextSetInstallLevel200_IsSetupTypeMin="Typical"0SetupTypeNextSetInstallLevel300_IsSetupTypeMin="Custom"0SetupTypeNext[ISRUNSETUPTYPEADDLOCALEVENT]110SetupTypeNext[SelectedSetupType][DisplayNameCustom]_IsSetupTypeMin = "Custom"0SetupTypeNext[SelectedSetupType][DisplayNameMinimal]_IsSetupTypeMin = "Minimal"0SetupTypeNext[SelectedSetupType][DisplayNameTypical]_IsSetupTypeMin = "Typical"0SplashBitmapCancelSpawnDialogCancelSetup10SplashBitmapNextNewDialogInstallWelcome10
+ + + Directory_ + Component_ +
+ + + Action + Type + Source + Target + ExtendedType + ISComments + + + + +
ISPreventDowngrade19[IS_PREVENT_DOWNGRADE_EXIT]Exits install when a newer version of this product is foundISPrint1SetAllUsers.dllPrintScrollableTextPrints the contents of a ScrollableText control on a dialog.ISRunSetupTypeAddLocalEvent1ISExpHlp.dllRunSetupTypeAddLocalEventRun the AddLocal events associated with the Next button on the Setup Type dialog.ISSelfRegisterCosting1ISSELFREG.DLLISSelfRegisterCosting + ISSelfRegisterFiles3073ISSELFREG.DLLISSelfRegisterFiles + ISSelfRegisterFinalize1ISSELFREG.DLLISSelfRegisterFinalize + ISUnSelfRegisterFiles3073ISSELFREG.DLLISUnSelfRegisterFiles + SetARPINSTALLLOCATION51ARPINSTALLLOCATION[INSTALLDIR] + SetAllUsersProfileNT51ALLUSERSPROFILE[%SystemRoot]\Profiles\All Users + ShowMsiLog226SystemFolder[SystemFolder]notepad.exe "[MsiLogFileLocation]"Shows Property-driven MSI LogsetAllUsersProfile2K51ALLUSERSPROFILE[%ALLUSERSPROFILE] + setUserProfileNT51USERPROFILE[%USERPROFILE] +
+ + + Dialog + HCentering + VCentering + Width + Height + Attributes + Title + Control_First + Control_Default + Control_Cancel + ISComments + TextStyle_ + ISWindowStyle + ISResourceId + +
AdminChangeFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##TailOKCancelInstall Point Browse0 + AdminNetworkLocation50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##InstallNowInstallNowCancelNetwork Location0 + AdminWelcome50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelAdministration Welcome0 + CancelSetup5050260853##IDS_PRODUCTNAME_INSTALLSHIELD##NoNoNoCancel0 + CustomSetup505037426635##IDS_PRODUCTNAME_INSTALLSHIELD##TreeNextCancelCustom Selection0 + CustomSetupTips50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKOKCustom Setup Tips0 + CustomerInformation50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NameEditNextCancelIdentification0 + DatabaseFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelDatabase Folder0 + DestinationFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelDestination Folder0 + DiskSpaceRequirements50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKOKFeature Details0 + FilesInUse505037426619##IDS_PRODUCTNAME_INSTALLSHIELD##RetryRetryExitFiles in Use0 + InstallChangeFolder50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##TailOKCancelBrowse0 + InstallWelcome50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelWelcome Panel0 + LicenseAgreement50503742662##IDS_PRODUCTNAME_INSTALLSHIELD##AgreeNextCancelLicense Agreement0 + MaintenanceType50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##RadioGroupNextCancelChange, Reinstall, Remove0 + MaintenanceWelcome50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelMaintenance Welcome0 + MsiRMFilesInUse505037426619##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKCancelRestartManager Files in Use0 + OutOfSpace50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##ResumeResumeResumeOut Of Disk Space0 + PatchWelcome50503742663##IDS__IsPatchDlg_PatchWizard##NextNextCancelPatch Panel0 + ReadmeInformation50503742667##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelReadme Information00ReadyToInstall505037426635##IDS_PRODUCTNAME_INSTALLSHIELD##InstallNowInstallNowCancelReady to Install0 + ReadyToRemove50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##RemoveNowRemoveNowCancelVerify Remove0 + SetupCompleteError50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##FinishFinishFinishFatal Error0 + SetupCompleteSuccess50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##OKOKOKExit0 + SetupError505027011065543##IDS__IsErrorDlg_InstallerInfo##ErrorTextOCError0 + SetupInitialization50503742665##IDS_PRODUCTNAME_INSTALLSHIELD##CancelCancelCancelSetup Initialization0 + SetupInterrupted50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##FinishFinishFinishUser Exit0 + SetupProgress50503742665##IDS_PRODUCTNAME_INSTALLSHIELD##CancelCancelCancelProgress0 + SetupResume50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelResume0 + SetupType50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##RadioGroupNextCancelSetup Type0 + SplashBitmap50503742663##IDS_PRODUCTNAME_INSTALLSHIELD##NextNextCancelWelcome Bitmap0 +
+ + + Directory + Directory_Parent + DefaultDir + ISDescription + ISAttributes + ISFolderName +
ALLUSERSPROFILETARGETDIR.:ALLUSE~1|All Users0 + AdminToolsFolderTARGETDIR.:Admint~1|AdminTools0 + AppDataFolderTARGETDIR.:APPLIC~1|Application Data0 + CommonAppDataFolderTARGETDIR.:Common~1|CommonAppData0 + CommonFiles64FolderTARGETDIR.:Common640 + CommonFilesFolderTARGETDIR.:Common0 + DATABASEDIRISYourDataBaseDir.0 + DIGITAL_DATAProgramFilesFolderDIGITA~1|Digital Data0 + DesktopFolderTARGETDIR.:Desktop3 + FavoritesFolderTARGETDIR.:FAVORI~1|Favorites0 + FontsFolderTARGETDIR.:Fonts0 + GLOBAL_INDEXERDIGITAL_DATAGLOBAL~1|Global Indexer0 + GlobalAssemblyCacheTARGETDIR.:Global~1|GlobalAssemblyCache0 + INSTALLDIRGLOBAL_INDEXER.0 + ISCommonFilesFolderCommonFilesFolderInstal~1|InstallShield0 + ISMyCompanyDirProgramFilesFolderMYCOMP~1|My Company Name0 + ISMyProductDirISMyCompanyDirMYPROD~1|My Product Name0 + ISYourDataBaseDirINSTALLDIRDatabase0 + LocalAppDataFolderTARGETDIR.:LocalA~1|LocalAppData0 + MY_PRODUCT_NAMEDIGITAL_DATAMYPROD~1|My Product Name0 + MyPicturesFolderTARGETDIR.:MyPict~1|MyPictures0 + NetHoodFolderTARGETDIR.:NetHood0 + PersonalFolderTARGETDIR.:Personal0 + PrimaryVolumePathTARGETDIR.:Primar~1|PrimaryVolumePath0 + PrintHoodFolderTARGETDIR.:PRINTH~1|PrintHood0 + ProgramFiles64FolderTARGETDIR.:Prog64~1|Program Files 640 + ProgramFilesFolderTARGETDIR.:PROGRA~1|program files0 + ProgramMenuFolderTARGETDIR.:Programs3 + RecentFolderTARGETDIR.:Recent0 + SendToFolderTARGETDIR.:SendTo3 + StartMenuFolderTARGETDIR.:STARTM~1|Start Menu3 + StartupFolderTARGETDIR.:StartUp3 + System16FolderTARGETDIR.:System0 + System64FolderTARGETDIR.:System640 + SystemFolderTARGETDIR.:System320 + TARGETDIRSourceDir0 + TempFolderTARGETDIR.:Temp0 + TemplateFolderTARGETDIR.:ShellNew0 + USERPROFILETARGETDIR.:USERPR~1|UserProfile0 + WindowsFolderTARGETDIR.:Windows0 + WindowsVolumeTARGETDIR.:WinRoot0 + digita_1_digital_dataProgramMenuFolderDIGITA~1|Digital Data1 + global_1_global_indexerdigita_1_digital_dataGLOBAL~1|Global Indexer1 +
+ + + Signature_ + Parent + Path + Depth +
+ + + FileKey + Component_ + File_ + DestName + DestFolder +
+ + + Environment + Name + Value + Component_ +
+ + + Error + Message + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
0##IDS_ERROR_0##1##IDS_ERROR_1##10##IDS_ERROR_8##11##IDS_ERROR_9##1101##IDS_ERROR_22##12##IDS_ERROR_10##13##IDS_ERROR_11##1301##IDS_ERROR_23##1302##IDS_ERROR_24##1303##IDS_ERROR_25##1304##IDS_ERROR_26##1305##IDS_ERROR_27##1306##IDS_ERROR_28##1307##IDS_ERROR_29##1308##IDS_ERROR_30##1309##IDS_ERROR_31##1310##IDS_ERROR_32##1311##IDS_ERROR_33##1312##IDS_ERROR_34##1313##IDS_ERROR_35##1314##IDS_ERROR_36##1315##IDS_ERROR_37##1316##IDS_ERROR_38##1317##IDS_ERROR_39##1318##IDS_ERROR_40##1319##IDS_ERROR_41##1320##IDS_ERROR_42##1321##IDS_ERROR_43##1322##IDS_ERROR_44##1323##IDS_ERROR_45##1324##IDS_ERROR_46##1325##IDS_ERROR_47##1326##IDS_ERROR_48##1327##IDS_ERROR_49##1328##IDS_ERROR_122##1329##IDS_ERROR_1329##1330##IDS_ERROR_1330##1331##IDS_ERROR_1331##1332##IDS_ERROR_1332##1333##IDS_ERROR_1333##1334##IDS_ERROR_1334##1335##IDS_ERROR_1335##1336##IDS_ERROR_1336##14##IDS_ERROR_12##1401##IDS_ERROR_50##1402##IDS_ERROR_51##1403##IDS_ERROR_52##1404##IDS_ERROR_53##1405##IDS_ERROR_54##1406##IDS_ERROR_55##1407##IDS_ERROR_56##1408##IDS_ERROR_57##1409##IDS_ERROR_58##1410##IDS_ERROR_59##15##IDS_ERROR_13##1500##IDS_ERROR_60##1501##IDS_ERROR_61##1502##IDS_ERROR_62##1503##IDS_ERROR_63##16##IDS_ERROR_14##1601##IDS_ERROR_64##1602##IDS_ERROR_65##1603##IDS_ERROR_66##1604##IDS_ERROR_67##1605##IDS_ERROR_68##1606##IDS_ERROR_69##1607##IDS_ERROR_70##1608##IDS_ERROR_71##1609##IDS_ERROR_1609##1651##IDS_ERROR_1651##17##IDS_ERROR_15##1701##IDS_ERROR_72##1702##IDS_ERROR_73##1703##IDS_ERROR_74##1704##IDS_ERROR_75##1705##IDS_ERROR_76##1706##IDS_ERROR_77##1707##IDS_ERROR_78##1708##IDS_ERROR_79##1709##IDS_ERROR_80##1710##IDS_ERROR_81##1711##IDS_ERROR_82##1712##IDS_ERROR_83##1713##IDS_ERROR_123##1714##IDS_ERROR_124##1715##IDS_ERROR_1715##1716##IDS_ERROR_1716##1717##IDS_ERROR_1717##1718##IDS_ERROR_1718##1719##IDS_ERROR_1719##1720##IDS_ERROR_1720##1721##IDS_ERROR_1721##1722##IDS_ERROR_1722##1723##IDS_ERROR_1723##1724##IDS_ERROR_1724##1725##IDS_ERROR_1725##1726##IDS_ERROR_1726##1727##IDS_ERROR_1727##1728##IDS_ERROR_1728##1729##IDS_ERROR_1729##1730##IDS_ERROR_1730##1731##IDS_ERROR_1731##1732##IDS_ERROR_1732##18##IDS_ERROR_16##1801##IDS_ERROR_84##1802##IDS_ERROR_85##1803##IDS_ERROR_86##1804##IDS_ERROR_87##1805##IDS_ERROR_88##1806##IDS_ERROR_89##1807##IDS_ERROR_90##19##IDS_ERROR_17##1901##IDS_ERROR_91##1902##IDS_ERROR_92##1903##IDS_ERROR_93##1904##IDS_ERROR_94##1905##IDS_ERROR_95##1906##IDS_ERROR_96##1907##IDS_ERROR_97##1908##IDS_ERROR_98##1909##IDS_ERROR_99##1910##IDS_ERROR_100##1911##IDS_ERROR_101##1912##IDS_ERROR_102##1913##IDS_ERROR_103##1914##IDS_ERROR_104##1915##IDS_ERROR_105##1916##IDS_ERROR_106##1917##IDS_ERROR_107##1918##IDS_ERROR_108##1919##IDS_ERROR_109##1920##IDS_ERROR_110##1921##IDS_ERROR_111##1922##IDS_ERROR_112##1923##IDS_ERROR_113##1924##IDS_ERROR_114##1925##IDS_ERROR_115##1926##IDS_ERROR_116##1927##IDS_ERROR_117##1928##IDS_ERROR_118##1929##IDS_ERROR_119##1930##IDS_ERROR_125##1931##IDS_ERROR_126##1932##IDS_ERROR_127##1933##IDS_ERROR_128##1934##IDS_ERROR_129##1935##IDS_ERROR_1935##1936##IDS_ERROR_1936##1937##IDS_ERROR_1937##1938##IDS_ERROR_1938##2##IDS_ERROR_2##20##IDS_ERROR_18##21##IDS_ERROR_19##2101##IDS_ERROR_2101##2102##IDS_ERROR_2102##2103##IDS_ERROR_2103##2104##IDS_ERROR_2104##2105##IDS_ERROR_2105##2106##IDS_ERROR_2106##2107##IDS_ERROR_2107##2108##IDS_ERROR_2108##2109##IDS_ERROR_2109##2110##IDS_ERROR_2110##2111##IDS_ERROR_2111##2112##IDS_ERROR_2112##2113##IDS_ERROR_2113##22##IDS_ERROR_120##2200##IDS_ERROR_2200##2201##IDS_ERROR_2201##2202##IDS_ERROR_2202##2203##IDS_ERROR_2203##2204##IDS_ERROR_2204##2205##IDS_ERROR_2205##2206##IDS_ERROR_2206##2207##IDS_ERROR_2207##2208##IDS_ERROR_2208##2209##IDS_ERROR_2209##2210##IDS_ERROR_2210##2211##IDS_ERROR_2211##2212##IDS_ERROR_2212##2213##IDS_ERROR_2213##2214##IDS_ERROR_2214##2215##IDS_ERROR_2215##2216##IDS_ERROR_2216##2217##IDS_ERROR_2217##2218##IDS_ERROR_2218##2219##IDS_ERROR_2219##2220##IDS_ERROR_2220##2221##IDS_ERROR_2221##2222##IDS_ERROR_2222##2223##IDS_ERROR_2223##2224##IDS_ERROR_2224##2225##IDS_ERROR_2225##2226##IDS_ERROR_2226##2227##IDS_ERROR_2227##2228##IDS_ERROR_2228##2229##IDS_ERROR_2229##2230##IDS_ERROR_2230##2231##IDS_ERROR_2231##2232##IDS_ERROR_2232##2233##IDS_ERROR_2233##2234##IDS_ERROR_2234##2235##IDS_ERROR_2235##2236##IDS_ERROR_2236##2237##IDS_ERROR_2237##2238##IDS_ERROR_2238##2239##IDS_ERROR_2239##2240##IDS_ERROR_2240##2241##IDS_ERROR_2241##2242##IDS_ERROR_2242##2243##IDS_ERROR_2243##2244##IDS_ERROR_2244##2245##IDS_ERROR_2245##2246##IDS_ERROR_2246##2247##IDS_ERROR_2247##2248##IDS_ERROR_2248##2249##IDS_ERROR_2249##2250##IDS_ERROR_2250##2251##IDS_ERROR_2251##2252##IDS_ERROR_2252##2253##IDS_ERROR_2253##2254##IDS_ERROR_2254##2255##IDS_ERROR_2255##2256##IDS_ERROR_2256##2257##IDS_ERROR_2257##2258##IDS_ERROR_2258##2259##IDS_ERROR_2259##2260##IDS_ERROR_2260##2261##IDS_ERROR_2261##2262##IDS_ERROR_2262##2263##IDS_ERROR_2263##2264##IDS_ERROR_2264##2265##IDS_ERROR_2265##2266##IDS_ERROR_2266##2267##IDS_ERROR_2267##2268##IDS_ERROR_2268##2269##IDS_ERROR_2269##2270##IDS_ERROR_2270##2271##IDS_ERROR_2271##2272##IDS_ERROR_2272##2273##IDS_ERROR_2273##2274##IDS_ERROR_2274##2275##IDS_ERROR_2275##2276##IDS_ERROR_2276##2277##IDS_ERROR_2277##2278##IDS_ERROR_2278##2279##IDS_ERROR_2279##2280##IDS_ERROR_2280##2281##IDS_ERROR_2281##2282##IDS_ERROR_2282##23##IDS_ERROR_121##2302##IDS_ERROR_2302##2303##IDS_ERROR_2303##2304##IDS_ERROR_2304##2305##IDS_ERROR_2305##2306##IDS_ERROR_2306##2307##IDS_ERROR_2307##2308##IDS_ERROR_2308##2309##IDS_ERROR_2309##2310##IDS_ERROR_2310##2315##IDS_ERROR_2315##2318##IDS_ERROR_2318##2319##IDS_ERROR_2319##2320##IDS_ERROR_2320##2321##IDS_ERROR_2321##2322##IDS_ERROR_2322##2323##IDS_ERROR_2323##2324##IDS_ERROR_2324##2325##IDS_ERROR_2325##2326##IDS_ERROR_2326##2327##IDS_ERROR_2327##2328##IDS_ERROR_2328##2329##IDS_ERROR_2329##2330##IDS_ERROR_2330##2331##IDS_ERROR_2331##2332##IDS_ERROR_2332##2333##IDS_ERROR_2333##2334##IDS_ERROR_2334##2335##IDS_ERROR_2335##2336##IDS_ERROR_2336##2337##IDS_ERROR_2337##2338##IDS_ERROR_2338##2339##IDS_ERROR_2339##2340##IDS_ERROR_2340##2341##IDS_ERROR_2341##2342##IDS_ERROR_2342##2343##IDS_ERROR_2343##2344##IDS_ERROR_2344##2345##IDS_ERROR_2345##2347##IDS_ERROR_2347##2348##IDS_ERROR_2348##2349##IDS_ERROR_2349##2350##IDS_ERROR_2350##2351##IDS_ERROR_2351##2352##IDS_ERROR_2352##2353##IDS_ERROR_2353##2354##IDS_ERROR_2354##2355##IDS_ERROR_2355##2356##IDS_ERROR_2356##2357##IDS_ERROR_2357##2358##IDS_ERROR_2358##2359##IDS_ERROR_2359##2360##IDS_ERROR_2360##2361##IDS_ERROR_2361##2362##IDS_ERROR_2362##2363##IDS_ERROR_2363##2364##IDS_ERROR_2364##2365##IDS_ERROR_2365##2366##IDS_ERROR_2366##2367##IDS_ERROR_2367##2368##IDS_ERROR_2368##2370##IDS_ERROR_2370##2371##IDS_ERROR_2371##2372##IDS_ERROR_2372##2373##IDS_ERROR_2373##2374##IDS_ERROR_2374##2375##IDS_ERROR_2375##2376##IDS_ERROR_2376##2379##IDS_ERROR_2379##2380##IDS_ERROR_2380##2381##IDS_ERROR_2381##2382##IDS_ERROR_2382##2401##IDS_ERROR_2401##2402##IDS_ERROR_2402##2501##IDS_ERROR_2501##2502##IDS_ERROR_2502##2503##IDS_ERROR_2503##2601##IDS_ERROR_2601##2602##IDS_ERROR_2602##2603##IDS_ERROR_2603##2604##IDS_ERROR_2604##2605##IDS_ERROR_2605##2606##IDS_ERROR_2606##2607##IDS_ERROR_2607##2608##IDS_ERROR_2608##2609##IDS_ERROR_2609##2611##IDS_ERROR_2611##2612##IDS_ERROR_2612##2613##IDS_ERROR_2613##2614##IDS_ERROR_2614##2615##IDS_ERROR_2615##2616##IDS_ERROR_2616##2617##IDS_ERROR_2617##2618##IDS_ERROR_2618##2619##IDS_ERROR_2619##2620##IDS_ERROR_2620##2621##IDS_ERROR_2621##2701##IDS_ERROR_2701##2702##IDS_ERROR_2702##2703##IDS_ERROR_2703##2704##IDS_ERROR_2704##2705##IDS_ERROR_2705##2706##IDS_ERROR_2706##2707##IDS_ERROR_2707##2708##IDS_ERROR_2708##2709##IDS_ERROR_2709##2710##IDS_ERROR_2710##2711##IDS_ERROR_2711##2712##IDS_ERROR_2712##2713##IDS_ERROR_2713##2714##IDS_ERROR_2714##2715##IDS_ERROR_2715##2716##IDS_ERROR_2716##2717##IDS_ERROR_2717##2718##IDS_ERROR_2718##2719##IDS_ERROR_2719##2720##IDS_ERROR_2720##2721##IDS_ERROR_2721##2722##IDS_ERROR_2722##2723##IDS_ERROR_2723##2724##IDS_ERROR_2724##2725##IDS_ERROR_2725##2726##IDS_ERROR_2726##2727##IDS_ERROR_2727##2728##IDS_ERROR_2728##2729##IDS_ERROR_2729##2730##IDS_ERROR_2730##2731##IDS_ERROR_2731##2732##IDS_ERROR_2732##2733##IDS_ERROR_2733##2734##IDS_ERROR_2734##2735##IDS_ERROR_2735##2736##IDS_ERROR_2736##2737##IDS_ERROR_2737##2738##IDS_ERROR_2738##2739##IDS_ERROR_2739##2740##IDS_ERROR_2740##2741##IDS_ERROR_2741##2742##IDS_ERROR_2742##2743##IDS_ERROR_2743##2744##IDS_ERROR_2744##2745##IDS_ERROR_2745##2746##IDS_ERROR_2746##2747##IDS_ERROR_2747##2748##IDS_ERROR_2748##2749##IDS_ERROR_2749##2750##IDS_ERROR_2750##27500##IDS_ERROR_130##27501##IDS_ERROR_131##27502##IDS_ERROR_27502##27503##IDS_ERROR_27503##27504##IDS_ERROR_27504##27505##IDS_ERROR_27505##27506##IDS_ERROR_27506##27507##IDS_ERROR_27507##27508##IDS_ERROR_27508##27509##IDS_ERROR_27509##2751##IDS_ERROR_2751##27510##IDS_ERROR_27510##27511##IDS_ERROR_27511##27512##IDS_ERROR_27512##27513##IDS_ERROR_27513##27514##IDS_ERROR_27514##27515##IDS_ERROR_27515##27516##IDS_ERROR_27516##27517##IDS_ERROR_27517##27518##IDS_ERROR_27518##27519##IDS_ERROR_27519##2752##IDS_ERROR_2752##27520##IDS_ERROR_27520##27521##IDS_ERROR_27521##27522##IDS_ERROR_27522##27523##IDS_ERROR_27523##27524##IDS_ERROR_27524##27525##IDS_ERROR_27525##27526##IDS_ERROR_27526##27527##IDS_ERROR_27527##27528##IDS_ERROR_27528##27529##IDS_ERROR_27529##2753##IDS_ERROR_2753##27530##IDS_ERROR_27530##27531##IDS_ERROR_27531##27532##IDS_ERROR_27532##27533##IDS_ERROR_27533##27534##IDS_ERROR_27534##27535##IDS_ERROR_27535##27536##IDS_ERROR_27536##27537##IDS_ERROR_27537##27538##IDS_ERROR_27538##27539##IDS_ERROR_27539##2754##IDS_ERROR_2754##27540##IDS_ERROR_27540##27541##IDS_ERROR_27541##27542##IDS_ERROR_27542##27543##IDS_ERROR_27543##27544##IDS_ERROR_27544##27545##IDS_ERROR_27545##27546##IDS_ERROR_27546##27547##IDS_ERROR_27547##27548##IDS_ERROR_27548##27549##IDS_ERROR_27549##2755##IDS_ERROR_2755##27550##IDS_ERROR_27550##27551##IDS_ERROR_27551##27552##IDS_ERROR_27552##27553##IDS_ERROR_27553##27554##IDS_ERROR_27554##27555##IDS_ERROR_27555##2756##IDS_ERROR_2756##2757##IDS_ERROR_2757##2758##IDS_ERROR_2758##2759##IDS_ERROR_2759##2760##IDS_ERROR_2760##2761##IDS_ERROR_2761##2762##IDS_ERROR_2762##2763##IDS_ERROR_2763##2765##IDS_ERROR_2765##2766##IDS_ERROR_2766##2767##IDS_ERROR_2767##2768##IDS_ERROR_2768##2769##IDS_ERROR_2769##2770##IDS_ERROR_2770##2771##IDS_ERROR_2771##2772##IDS_ERROR_2772##2801##IDS_ERROR_2801##2802##IDS_ERROR_2802##2803##IDS_ERROR_2803##2804##IDS_ERROR_2804##2806##IDS_ERROR_2806##2807##IDS_ERROR_2807##2808##IDS_ERROR_2808##2809##IDS_ERROR_2809##2810##IDS_ERROR_2810##2811##IDS_ERROR_2811##2812##IDS_ERROR_2812##2813##IDS_ERROR_2813##2814##IDS_ERROR_2814##2815##IDS_ERROR_2815##2816##IDS_ERROR_2816##2817##IDS_ERROR_2817##2818##IDS_ERROR_2818##2819##IDS_ERROR_2819##2820##IDS_ERROR_2820##2821##IDS_ERROR_2821##2822##IDS_ERROR_2822##2823##IDS_ERROR_2823##2824##IDS_ERROR_2824##2825##IDS_ERROR_2825##2826##IDS_ERROR_2826##2827##IDS_ERROR_2827##2828##IDS_ERROR_2828##2829##IDS_ERROR_2829##2830##IDS_ERROR_2830##2831##IDS_ERROR_2831##2832##IDS_ERROR_2832##2833##IDS_ERROR_2833##2834##IDS_ERROR_2834##2835##IDS_ERROR_2835##2836##IDS_ERROR_2836##2837##IDS_ERROR_2837##2838##IDS_ERROR_2838##2839##IDS_ERROR_2839##2840##IDS_ERROR_2840##2841##IDS_ERROR_2841##2842##IDS_ERROR_2842##2843##IDS_ERROR_2843##2844##IDS_ERROR_2844##2845##IDS_ERROR_2845##2846##IDS_ERROR_2846##2847##IDS_ERROR_2847##2848##IDS_ERROR_2848##2849##IDS_ERROR_2849##2850##IDS_ERROR_2850##2851##IDS_ERROR_2851##2852##IDS_ERROR_2852##2853##IDS_ERROR_2853##2854##IDS_ERROR_2854##2855##IDS_ERROR_2855##2856##IDS_ERROR_2856##2857##IDS_ERROR_2857##2858##IDS_ERROR_2858##2859##IDS_ERROR_2859##2860##IDS_ERROR_2860##2861##IDS_ERROR_2861##2862##IDS_ERROR_2862##2863##IDS_ERROR_2863##2864##IDS_ERROR_2864##2865##IDS_ERROR_2865##2866##IDS_ERROR_2866##2867##IDS_ERROR_2867##2868##IDS_ERROR_2868##2869##IDS_ERROR_2869##2870##IDS_ERROR_2870##2871##IDS_ERROR_2871##2872##IDS_ERROR_2872##2873##IDS_ERROR_2873##2874##IDS_ERROR_2874##2875##IDS_ERROR_2875##2876##IDS_ERROR_2876##2877##IDS_ERROR_2877##2878##IDS_ERROR_2878##2879##IDS_ERROR_2879##2880##IDS_ERROR_2880##2881##IDS_ERROR_2881##2882##IDS_ERROR_2882##2883##IDS_ERROR_2883##2884##IDS_ERROR_2884##2885##IDS_ERROR_2885##2886##IDS_ERROR_2886##2887##IDS_ERROR_2887##2888##IDS_ERROR_2888##2889##IDS_ERROR_2889##2890##IDS_ERROR_2890##2891##IDS_ERROR_2891##2892##IDS_ERROR_2892##2893##IDS_ERROR_2893##2894##IDS_ERROR_2894##2895##IDS_ERROR_2895##2896##IDS_ERROR_2896##2897##IDS_ERROR_2897##2898##IDS_ERROR_2898##2899##IDS_ERROR_2899##2901##IDS_ERROR_2901##2902##IDS_ERROR_2902##2903##IDS_ERROR_2903##2904##IDS_ERROR_2904##2905##IDS_ERROR_2905##2906##IDS_ERROR_2906##2907##IDS_ERROR_2907##2908##IDS_ERROR_2908##2909##IDS_ERROR_2909##2910##IDS_ERROR_2910##2911##IDS_ERROR_2911##2912##IDS_ERROR_2912##2919##IDS_ERROR_2919##2920##IDS_ERROR_2920##2924##IDS_ERROR_2924##2927##IDS_ERROR_2927##2928##IDS_ERROR_2928##2929##IDS_ERROR_2929##2932##IDS_ERROR_2932##2933##IDS_ERROR_2933##2934##IDS_ERROR_2934##2935##IDS_ERROR_2935##2936##IDS_ERROR_2936##2937##IDS_ERROR_2937##2938##IDS_ERROR_2938##2939##IDS_ERROR_2939##2940##IDS_ERROR_2940##2941##IDS_ERROR_2941##2942##IDS_ERROR_2942##2943##IDS_ERROR_2943##2944##IDS_ERROR_2944##2945##IDS_ERROR_2945##3001##IDS_ERROR_3001##3002##IDS_ERROR_3002##32##IDS_ERROR_20##33##IDS_ERROR_21##4##IDS_ERROR_3##5##IDS_ERROR_4##7##IDS_ERROR_5##8##IDS_ERROR_6##9##IDS_ERROR_7##
+ + + Dialog_ + Control_ + Event + Attribute + + + + + + + + + + + + + + + +
CustomSetupItemDescriptionSelectionDescriptionTextCustomSetupLocationSelectionPathTextCustomSetupSizeSelectionSizeTextSetupInitializationActionDataActionDataTextSetupInitializationActionTextActionTextTextSetupProgressActionProgress95AdminInstallFinalizeProgressSetupProgressActionProgress95InstallFilesProgressSetupProgressActionProgress95MoveFilesProgressSetupProgressActionProgress95RemoveFilesProgressSetupProgressActionProgress95RemoveRegistryValuesProgressSetupProgressActionProgress95SetProgressProgressSetupProgressActionProgress95UnmoveFilesProgressSetupProgressActionProgress95WriteIniValuesProgressSetupProgressActionProgress95WriteRegistryValuesProgressSetupProgressActionTextActionTextText
+ + + Extension + Component_ + ProgId_ + MIME_ + Feature_ +
+ + + Feature + Feature_Parent + Title + Description + Display + Level + Directory_ + Attributes + ISReleaseFlags + ISComments + ISFeatureCabName + ISProFeatureName +
AlwaysInstall##DN_AlwaysInstall##Enter the description for this feature here.01INSTALLDIR16Enter comments regarding this feature here. +
+ + + Feature_ + Component_ + +
AlwaysInstallGlobal_Indexer.Prim_re_Ausgabe
+ + + File + Component_ + FileName + FileSize + Version + Language + Attributes + Sequence + ISBuildSourcePath + ISAttributes + ISComponentSubFolder_ +
global_indexer.prim_re_ausgaGlobal_Indexer.Prim_re_AusgabeGlobal_Indexer.Primäre Ausgabe01<Global_Indexer>|Built3 +
+ + + File_ + SFPCatalog_ +
+ + + File_ + FontTitle +
+ + + Tag + Data + + +
PROJECT_ASSISTANT_DEFAULT_FEATUREAlwaysInstallPROJECT_ASSISTANT_FEATURESNonSelectable_Built +
+ + + ISBillboard + Duration + Origin + X + Y + Effect + Sequence + Target + Color + Style + Font + Title + DisplayName +
+ + + Package + SourcePath + ProductCode + Order + Options + InstallCondition + RemoveCondition + InstallProperties + RemoveProperties + ISReleaseFlags + DisplayName +
+ + + Package_ + File + FilePath + Options + Data + ISBuildSourcePath +
+ + + Action_ + Name + Value +
+ + + ISComCatalogObject_ + ItemName + ItemValue +
+ + + ISComCatalogCollection + ISComCatalogObject_ + CollectionName +
+ + + ISComCatalogCollection_ + ISComCatalogObject_ +
+ + + ISComCatalogObject + DisplayName +
+ + + ISComCatalogObject_ + ComputerName + Component_ + ISAttributes + DepFiles +
+ + + ISComPlusApplicationDLL + ISComPlusApplication_ + ISComCatalogObject_ + CLSID + ProgId + DLL + AlterDLL +
+ + + ISComPlusProxy + ISComPlusApplication_ + Component_ + ISAttributes + DepFiles +
+ + + ISComPlusApplication_ + File_ + ISPath +
+ + + File_ + ISComPlusApplicationDLL_ +
+ + + ISComPlusApplication_ + File_ + ISPath +
+ + + File_ + ISComPlusApplicationDLL_ +
+ + + Component_ + OS + Language + FilterProperty + Platforms + FTPLocation + HTTPLocation + Miscellaneous +
Global_Indexer.Prim_re_Ausgabe_BE6922CA_8513_47D0_AA99_64F1FA97C448_FILTER +
+ + + Action_ + Description + FileType + ISCAReferenceFilePath +
+ + + ISDIMReference_ + RequiredUUID + RequiredMajorVersion + RequiredMinorVersion + RequiredBuildVersion + RequiredRevisionVersion +
+ + + ISDIMReference + ISBuildSourcePath +
+ + + ISDIMReference_Parent + ISDIMDependency_ +
+ + + ISDIMVariable + ISDIMReference_ + Name + NewValue + Type +
+ + + EntryPoint + Type + Source + Target +
+ + + ISDRMFile + File_ + ISDRMLicense_ + Shell +
+ + + ISDRMFile_ + Property + Value +
+ + + ISDRMLicense + Description + ProjectVersion + Attributes + LicenseNumber + RequestCode + ResponseCode +
+ + + ISDependency + Exclude +
+ + + ISDisk1File + ISBuildSourcePath + Disk +
+ + + Component_ + SourceFolder + IncludeFlags + IncludeFiles + ExcludeFiles + ISAttributes +
+ + + Feature_ + ISDIMReference_ +
+ + + Feature_ + ModuleID + Language +
+ + + Feature_ + ISMergeModule_ + Language_ +
+ + + Feature_ + ISSetupPrerequisites_ +
+ + + File_ + Manifest_ +
+ + + ISIISItem + ISIISItem_Parent + DisplayName + Type + Component_ +
+ + + ISIISProperty + ISIISItem_ + Schema + FriendlyName + MetaDataProp + MetaDataType + MetaDataUserType + MetaDataAttributes + MetaDataValue + Order + ISAttributes +
+ + + EntryPoint + Type + Source + Target +
+ + + ISLanguage + Included + +
10331
+ + + ISLinkerLibrary + Library + Order + + +
isrt.oblisrt.obl2iswi.obliswi.obl1
+ + + Dialog_ + Control_ + ISLanguage_ + Attributes + X + Y + Width + Height + Binary_ + ISBuildSourcePath +
+ + + Dialog_ + ISLanguage_ + Attributes + TextStyle_ + Width + Height +
+ + + Property + Order + ISLanguage_ + X + Y + Width + Height +
+ + + LockObject + Table + Domain + User + Permission + Attributes +
+ + + DiskId + ISProductConfiguration_ + ISRelease_ + LastSequence + DiskPrompt + Cabinet + VolumeLabel + Source +
+ + + ISLogicalDisk_ + ISProductConfiguration_ + ISRelease_ + Feature_ + Sequence + ISAttributes +
+ + + ISMergeModule + Language + Name + Destination + ISAttributes +
+ + + ISMergeModule_ + Language_ + ModuleConfiguration_ + Value + Format + Type + ContextData + DefaultValue + Attributes + DisplayName + Description + HelpLocation + HelpKeyword +
+ + + ObjectName + Language +
+ + + ObjectName + Property + Value + IncludeInBuild +
+ + + PatchConfiguration_ + UpgradedImage_ +
+ + + Name + CanPCDiffer + CanPVDiffer + IncludeWholeFiles + LeaveDecompressed + OptimizeForSize + EnablePatchCache + PatchCacheDir + Flags + PatchGuidsToReplace + TargetProductCodes + PatchGuid + OutputPath + MinMsiVersion + Attributes +
+ + + ISPatchConfiguration_ + Property + Value +
+ + + Name + ISUpgradedImage_ + FileKey + FilePath +
+ + + UpgradedImage + FileKey + Component +
+ + + ISPathVariable + Value + TestValue + Type + + + + + + + + + +
CommonFilesFolder1Global_IndexerGlobal_Indexer\Global_Indexer.vbproj2ISPROJECTDIR1ISProductFolder1ISProjectDataFolder1ISProjectFolder1ProgramFilesFolder1SystemFolder1WindowsFolder1
+ + + Action_ + Name + Value +
+ + + ISProductConfiguration + ProductConfigurationFlags + GeneratePackageCode + +
Express1
+ + + ISProductConfiguration_ + InstanceId + Property + Value +
+ + + ISProductConfiguration_ + Property + Value +
+ + + ISRelease + ISProductConfiguration_ + BuildLocation + PackageName + Type + SupportedLanguagesUI + MsiSourceType + ReleaseType + Platforms + SupportedLanguagesData + DefaultLanguage + SupportedOSs + DiskSize + DiskSizeUnit + DiskClusterSize + ReleaseFlags + DiskSpanning + SynchMsi + MediaLocation + URLLocation + DigitalURL + DigitalPVK + DigitalSPC + Password + VersionCopyright + Attributes + CDBrowser + DotNetBuildConfiguration + MsiCommandLine + ISSetupPrerequisiteLocation + + + + + + + + +
CD_ROMExpress<ISProjectDataFolder>Default0103302Intel10330650020480MediaLocationhttp://758053CustomExpress<ISProjectDataFolder>Default2103302Intel10330100010240MediaLocationhttp://758053DVD-10Express<ISProjectDataFolder>Default3103302Intel103308.75120480MediaLocationhttp://758053DVD-18Express<ISProjectDataFolder>Default3103302Intel1033015.83120480MediaLocationhttp://758053DVD-5Express<ISProjectDataFolder>Default3103302Intel103304.38120480MediaLocationhttp://758053DVD-9Express<ISProjectDataFolder>Default3103302Intel103307.95120480MediaLocationhttp://758053SingleImageExpress<ISProjectDataFolder>PackageName1103301Intel103300000MediaLocationhttp://1085733WebDeploymentExpress<ISProjectDataFolder>PackageName4103321Intel103300000MediaLocationhttp://1249413
+ + + ISRelease_ + ISProductConfiguration_ + Property + Value +
+ + + ISRelease_ + ISProductConfiguration_ + WebType + WebURL + WebCabSize + OneClickCabName + OneClickHtmlName + WebLocalCachePath + EngineLocation + Win9xMsiUrl + WinNTMsiUrl + ISEngineLocation + ISEngineURL + OneClickTargetBrowser + DigitalCertificateIdNS + DigitalCertificateDBaseNS + DigitalCertificatePasswordNS + DotNetRedistLocation + DotNetRedistURL + DotNetVersion + DotNetBaseLanguage + DotNetLangaugePacks + DotNetFxCmdLine + DotNetLangPackCmdLine + JSharpCmdLine + Attributes + JSharpRedistLocation + MsiEngineVersion + WinMsi30Url + CertPassword +
CD_ROMExpress0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + CustomExpress0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-10Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-18Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-5Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + DVD-9Express0http://0installinstall[LocalAppDataFolder]Downloaded Installations0http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + SingleImageExpress0http://0installinstall[LocalAppDataFolder]Downloaded Installations1http://www.installengine.com/Msiengine20http://www.installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 + WebDeploymentExpress0http://0setupDefault[LocalAppDataFolder]Downloaded Installations2http://www.Installengine.com/Msiengine20http://www.Installengine.com/Msiengine200http://www.installengine.com/cert05/isengine03http://www.installengine.com/cert05/dotnetfx010333http://www.installengine.com/Msiengine30 +
+ + + ISRelease_ + ISProductConfiguration_ + Name + Value +
+ + + ISRelease_ + ISProductConfiguration_ + Repository + DisplayName + Publisher + Description + ISAttributes +
+ + + ISSQLConnection + Server + Database + UserName + Password + Authentication + Attributes + Order + Comments + CmdTimeout + BatchSeparator + ScriptVersion_Table + ScriptVersion_Column +
+ + + ISSQLConnectionDBServer + ISSQLConnection_ + ISSQLDBMetaData_ + Order +
+ + + ISSQLConnection_ + ISSQLScriptFile_ + Order +
+ + + ISSQLDBMetaData + DisplayName + AdoDriverName + AdoCxnDriver + AdoCxnServer + AdoCxnDatabase + AdoCxnUserID + AdoCxnPassword + AdoCxnWindowsSecurity + AdoCxnNetLibrary + TestDatabaseCmd + TestTableCmd + VersionInfoCmd + VersionBeginToken + VersionEndToken + LocalInstanceNames + CreateDbCmd + SwitchDbCmd + ISAttributes + TestTableCmd2 + WinAuthentUserId + DsnODBCName + AdoCxnPort + AdoCxnAdditional + QueryDatabasesCmd + CreateTableCmd + InsertRecordCmd + SelectTableCmd + ScriptVersion_Table + ScriptVersion_Column + ScriptVersion_ColumnType +
+ + + ISSQLRequirement + ISSQLConnection_ + MajorVersion + ServicePackLevel + Attributes + ISSQLConnectionDBServer_ +
+ + + ErrNumber + ISSQLScriptFile_ + ErrHandling + Message + Attributes +
+ + + ISSQLScriptFile + Component_ + Scheduling + InstallText + UninstallText + ISBuildSourcePath + Comments + ErrorHandling + Attributes + Version + Condition + DisplayName +
+ + + ISSQLScriptFile_ + Server + Database + UserName + Password + Authentication + IncludeTables + ExcludeTables + Attributes +
+ + + ISSQLScriptReplace + ISSQLScriptFile_ + Search + Replace + Attributes +
+ + + ISScriptFile +
+ + + FileKey + Cost + Order + CmdLine +
+ + + ISSetupFile + FileName + Stream + Language + Splash + Path +
+ + + ISSetupPrerequisites + ISBuildSourcePath + Order + ISSetupLocation + ISReleaseFlags +
+ + + ISSetupType + Description + Display_Name + Display + Comments +
Custom##IDS__IsSetupTypeMinDlg_ChooseFeatures####IDS__IsSetupTypeMinDlg_Custom##3 + Minimal##IDS__IsSetupTypeMinDlg_MinimumFeatures####IDS__IsSetupTypeMinDlg_Minimal##2 + Typical##IDS__IsSetupTypeMinDlg_AllFeatures####IDS__IsSetupTypeMinDlg_Typical##1 +
+ + + ISSetupType_ + Feature_ + + + +
CustomAlwaysInstallMinimalAlwaysInstallTypicalAlwaysInstall
+ + + Name + ISBuildSourcePath +
+ + + ISString + ISLanguage_ + Value + Encoded + Comment + TimeStamp + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
COMPANY_NAME1033Digital Data0-643589907DN_AlwaysInstall1033Always Install01503887530IDPROP_EXPRESS_LAUNCH_CONDITION_COLOR1033The color settings of your system are not adequate for running [ProductName].01503887530IDPROP_EXPRESS_LAUNCH_CONDITION_DOTNETVERSION45FULL1033Microsoft .NET Framework 4.5 Full package or greater needs to be installed for this installation to continue.01503865066IDPROP_EXPRESS_LAUNCH_CONDITION_OS1033The operating system is not adequate for running [ProductName].01503887530IDPROP_EXPRESS_LAUNCH_CONDITION_PROCESSOR1033The processor is not adequate for running [ProductName].01503887530IDPROP_EXPRESS_LAUNCH_CONDITION_RAM1033The amount of RAM is not adequate for running [ProductName].01503887530IDPROP_EXPRESS_LAUNCH_CONDITION_SCREEN1033The screen resolution is not adequate for running [ProductName].01503887530IDPROP_SETUPTYPE_COMPACT1033Compact01503887530IDPROP_SETUPTYPE_COMPACT_DESC1033Compact Description01503887530IDPROP_SETUPTYPE_COMPLETE1033Complete01503887530IDPROP_SETUPTYPE_COMPLETE_DESC1033Complete01503887530IDPROP_SETUPTYPE_CUSTOM1033Custom01503887530IDPROP_SETUPTYPE_CUSTOM_DESC1033Custom Description01503887530IDPROP_SETUPTYPE_CUSTOM_DESC_PRO1033Custom01503887530IDPROP_SETUPTYPE_TYPICAL1033Typical01503887530IDPROP_SETUPTYPE_TYPICAL_DESC1033Typical Description01503887530IDS_ACTIONTEXT_11033[1]01503887530IDS_ACTIONTEXT_1b1033[1]01503887530IDS_ACTIONTEXT_1c1033[1]01503887530IDS_ACTIONTEXT_1d1033[1]01503887530IDS_ACTIONTEXT_Advertising1033Advertising application01503887530IDS_ACTIONTEXT_AllocatingRegistry1033Allocating registry space01503887530IDS_ACTIONTEXT_AppCommandLine1033Application: [1], Command line: [2]01503887530IDS_ACTIONTEXT_AppId1033AppId: [1]{{, AppType: [2]}}01503887530IDS_ACTIONTEXT_AppIdAppTypeRSN1033AppId: [1]{{, AppType: [2], Users: [3], RSN: [4]}}01503887530IDS_ACTIONTEXT_Application1033Application: [1]01503887530IDS_ACTIONTEXT_BindingExes1033Binding executables01503887530IDS_ACTIONTEXT_ClassId1033Class ID: [1]01503887530IDS_ACTIONTEXT_ClsID1033Class ID: [1]01503887530IDS_ACTIONTEXT_ComponentIDQualifier1033Component ID: [1], Qualifier: [2]01503887530IDS_ACTIONTEXT_ComponentIdQualifier21033Component ID: [1], Qualifier: [2]01503887530IDS_ACTIONTEXT_ComputingSpace1033Computing space requirements01503887530IDS_ACTIONTEXT_ComputingSpace21033Computing space requirements01503887530IDS_ACTIONTEXT_ComputingSpace31033Computing space requirements01503887530IDS_ACTIONTEXT_ContentTypeExtension1033MIME Content Type: [1], Extension: [2]01503887530IDS_ACTIONTEXT_ContentTypeExtension21033MIME Content Type: [1], Extension: [2]01503887530IDS_ACTIONTEXT_CopyingNetworkFiles1033Copying files to the network01503887530IDS_ACTIONTEXT_CopyingNewFiles1033Copying new files01503887530IDS_ACTIONTEXT_CreatingDuplicate1033Creating duplicate files01503887530IDS_ACTIONTEXT_CreatingFolders1033Creating folders01503887530IDS_ACTIONTEXT_CreatingIISRoots1033Creating IIS Virtual Roots...01503887530IDS_ACTIONTEXT_CreatingShortcuts1033Creating shortcuts01503887530IDS_ACTIONTEXT_DeletingServices1033Deleting services01503887530IDS_ACTIONTEXT_EnvironmentStrings1033Updating environment strings01503887530IDS_ACTIONTEXT_EvaluateLaunchConditions1033Evaluating launch conditions01503887530IDS_ACTIONTEXT_Extension1033Extension: [1]01503887530IDS_ACTIONTEXT_Extension21033Extension: [1]01503887530IDS_ACTIONTEXT_Feature1033Feature: [1]01503887530IDS_ACTIONTEXT_FeatureColon1033Feature: [1]01503887530IDS_ACTIONTEXT_File1033File: [1]01503887530IDS_ACTIONTEXT_File21033File: [1]01503887530IDS_ACTIONTEXT_FileDependencies1033File: [1], Dependencies: [2]01503887530IDS_ACTIONTEXT_FileDir1033File: [1], Directory: [9]01503887530IDS_ACTIONTEXT_FileDir21033File: [1], Directory: [9]01503887530IDS_ACTIONTEXT_FileDir31033File: [1], Directory: [9]01503887530IDS_ACTIONTEXT_FileDirSize1033File: [1], Directory: [9], Size: [6]01503887530IDS_ACTIONTEXT_FileDirSize21033File: [1], Directory: [9], Size: [6]01503887530IDS_ACTIONTEXT_FileDirSize31033File: [1], Directory: [9], Size: [6]01503887530IDS_ACTIONTEXT_FileDirSize41033File: [1], Directory: [2], Size: [3]01503887530IDS_ACTIONTEXT_FileDirectorySize1033File: [1], Directory: [9], Size: [6]01503887530IDS_ACTIONTEXT_FileFolder1033File: [1], Folder: [2]01503887530IDS_ACTIONTEXT_FileFolder21033File: [1], Folder: [2]01503887530IDS_ACTIONTEXT_FileSectionKeyValue1033File: [1], Section: [2], Key: [3], Value: [4]01503887530IDS_ACTIONTEXT_FileSectionKeyValue21033File: [1], Section: [2], Key: [3], Value: [4]01503887530IDS_ACTIONTEXT_Folder1033Folder: [1]01503887530IDS_ACTIONTEXT_Folder11033Folder: [1]01503887530IDS_ACTIONTEXT_Font1033Font: [1]01503887530IDS_ACTIONTEXT_Font21033Font: [1]01503887530IDS_ACTIONTEXT_FoundApp1033Found application: [1]01503887530IDS_ACTIONTEXT_FreeSpace1033Free space: [1]01503887530IDS_ACTIONTEXT_GeneratingScript1033Generating script operations for action:01503887530IDS_ACTIONTEXT_ISLockPermissionsCost1033Gathering permissions information for objects...01503887530IDS_ACTIONTEXT_ISLockPermissionsInstall1033Applying permissions information for objects...01503887530IDS_ACTIONTEXT_InitializeODBCDirs1033Initializing ODBC directories01503887530IDS_ACTIONTEXT_InstallODBC1033Installing ODBC components01503887530IDS_ACTIONTEXT_InstallServices1033Installing new services01503887530IDS_ACTIONTEXT_InstallingSystemCatalog1033Installing system catalog01503887530IDS_ACTIONTEXT_KeyName1033Key: [1], Name: [2]01503887530IDS_ACTIONTEXT_KeyNameValue1033Key: [1], Name: [2], Value: [3]01503887530IDS_ACTIONTEXT_LibId1033LibID: [1]01503887530IDS_ACTIONTEXT_Libid21033LibID: [1]01503887530IDS_ACTIONTEXT_MigratingFeatureStates1033Migrating feature states from related applications01503887530IDS_ACTIONTEXT_MovingFiles1033Moving files01503887530IDS_ACTIONTEXT_NameValueAction1033Name: [1], Value: [2], Action [3]01503887530IDS_ACTIONTEXT_NameValueAction21033Name: [1], Value: [2], Action [3]01503887530IDS_ACTIONTEXT_PatchingFiles1033Patching files01503887530IDS_ACTIONTEXT_ProgID1033ProgID: [1]01503887530IDS_ACTIONTEXT_ProgID21033ProgID: [1]01503887530IDS_ACTIONTEXT_PropertySignature1033Property: [1], Signature: [2]01503887530IDS_ACTIONTEXT_PublishProductFeatures1033Publishing product features01503887530IDS_ACTIONTEXT_PublishProductInfo1033Publishing product information01503887530IDS_ACTIONTEXT_PublishingQualifiedComponents1033Publishing qualified components01503887530IDS_ACTIONTEXT_RegUser1033Registering user01503887530IDS_ACTIONTEXT_RegisterClassServer1033Registering class servers01503887530IDS_ACTIONTEXT_RegisterExtensionServers1033Registering extension servers01503887530IDS_ACTIONTEXT_RegisterFonts1033Registering fonts01503887530IDS_ACTIONTEXT_RegisterMimeInfo1033Registering MIME info01503887530IDS_ACTIONTEXT_RegisterTypeLibs1033Registering type libraries01503887530IDS_ACTIONTEXT_RegisteringComPlus1033Registering COM+ Applications and Components01503887530IDS_ACTIONTEXT_RegisteringModules1033Registering modules01503887530IDS_ACTIONTEXT_RegisteringProduct1033Registering product01503887530IDS_ACTIONTEXT_RegisteringProgIdentifiers1033Registering program identifiers01503887530IDS_ACTIONTEXT_RemoveApps1033Removing applications01503887530IDS_ACTIONTEXT_RemovingBackup1033Removing backup files01503887530IDS_ACTIONTEXT_RemovingDuplicates1033Removing duplicated files01503887530IDS_ACTIONTEXT_RemovingFiles1033Removing files01503887530IDS_ACTIONTEXT_RemovingFolders1033Removing folders01503887530IDS_ACTIONTEXT_RemovingIISRoots1033Removing IIS Virtual Roots...01503887530IDS_ACTIONTEXT_RemovingIni1033Removing INI file entries01503887530IDS_ACTIONTEXT_RemovingMoved1033Removing moved files01503887530IDS_ACTIONTEXT_RemovingODBC1033Removing ODBC components01503887530IDS_ACTIONTEXT_RemovingRegistry1033Removing system registry values01503887530IDS_ACTIONTEXT_RemovingShortcuts1033Removing shortcuts01503887530IDS_ACTIONTEXT_RollingBack1033Rolling back action:01503887530IDS_ACTIONTEXT_SearchForRelated1033Searching for related applications01503887530IDS_ACTIONTEXT_SearchInstalled1033Searching for installed applications01503887530IDS_ACTIONTEXT_SearchingQualifyingProducts1033Searching for qualifying products01503887530IDS_ACTIONTEXT_SearchingQualifyingProducts21033Searching for qualifying products01503887530IDS_ACTIONTEXT_Service1033Service: [1]01503887530IDS_ACTIONTEXT_Service21033Service: [2]01503887530IDS_ACTIONTEXT_Service31033Service: [1]01503887530IDS_ACTIONTEXT_Service41033Service: [1]01503887530IDS_ACTIONTEXT_Shortcut1033Shortcut: [1]01503887530IDS_ACTIONTEXT_Shortcut11033Shortcut: [1]01503887530IDS_ACTIONTEXT_StartingServices1033Starting services01503887530IDS_ACTIONTEXT_StoppingServices1033Stopping services01503887530IDS_ACTIONTEXT_UnpublishProductFeatures1033Unpublishing product features01503887530IDS_ACTIONTEXT_UnpublishQualified1033Unpublishing Qualified Components01503887530IDS_ACTIONTEXT_UnpublishingProductInfo1033Unpublishing product information01503887530IDS_ACTIONTEXT_UnregTypeLibs1033Unregistering type libraries01503887530IDS_ACTIONTEXT_UnregisterClassServers1033Unregister class servers01503887530IDS_ACTIONTEXT_UnregisterExtensionServers1033Unregistering extension servers01503887530IDS_ACTIONTEXT_UnregisterModules1033Unregistering modules01503887530IDS_ACTIONTEXT_UnregisteringComPlus1033Unregistering COM+ Applications and Components01503887530IDS_ACTIONTEXT_UnregisteringFonts1033Unregistering fonts01503887530IDS_ACTIONTEXT_UnregisteringMimeInfo1033Unregistering MIME info01503887530IDS_ACTIONTEXT_UnregisteringProgramIds1033Unregistering program identifiers01503887530IDS_ACTIONTEXT_UpdateComponentRegistration1033Updating component registration01503887530IDS_ACTIONTEXT_UpdateEnvironmentStrings1033Updating environment strings01503887530IDS_ACTIONTEXT_Validating1033Validating install01503887530IDS_ACTIONTEXT_WritingINI1033Writing INI file values01503887530IDS_ACTIONTEXT_WritingRegistry1033Writing system registry values01503887530IDS_BACK1033< &Back01503887530IDS_CANCEL1033Cancel01503887530IDS_CANCEL21033&Cancel01503887530IDS_CHANGE1033&Change...01503887530IDS_COMPLUS_PROGRESSTEXT_COST1033Costing COM+ application: [1]01503887530IDS_COMPLUS_PROGRESSTEXT_INSTALL1033Installing COM+ application: [1]01503887530IDS_COMPLUS_PROGRESSTEXT_UNINSTALL1033Uninstalling COM+ application: [1]01503887530IDS_DIALOG_TEXT2_DESCRIPTION1033Dialog Normal Description01503887530IDS_DIALOG_TEXT_DESCRIPTION_EXTERIOR1033{&TahomaBold10}Dialog Bold Title01503887530IDS_DIALOG_TEXT_DESCRIPTION_INTERIOR1033{&MSSansBold8}Dialog Bold Title01503887530IDS_DIFX_AMD641033[ProductName] requires an X64 processor. Click OK to exit the wizard.01503887530IDS_DIFX_IA641033[ProductName] requires an IA64 processor. Click OK to exit the wizard.01503887530IDS_DIFX_X861033[ProductName] requires an X86 processor. Click OK to exit the wizard.01503887530IDS_DatabaseFolder_InstallDatabaseTo1033Install [ProductName] database to:01503887530IDS_ERROR_01033{{Fatal error: }}01503887530IDS_ERROR_11033Error [1]. 01503887530IDS_ERROR_101033=== Logging started: [Date] [Time] ===01503887530IDS_ERROR_1001033Could not remove shortcut [2]. Verify that the shortcut file exists and that you can access it.01503887530IDS_ERROR_1011033Could not register type library for file [2]. Contact your support personnel.01503887530IDS_ERROR_1021033Could not unregister type library for file [2]. Contact your support personnel.01503887530IDS_ERROR_1031033Could not update the INI file [2][3]. Verify that the file exists and that you can access it.01503887530IDS_ERROR_1041033Could not schedule file [2] to replace file [3] on reboot. Verify that you have write permissions to file [3].01503887530IDS_ERROR_1051033Error removing ODBC driver manager, ODBC error [2]: [3]. Contact your support personnel.01503887530IDS_ERROR_1061033Error installing ODBC driver manager, ODBC error [2]: [3]. Contact your support personnel.01503887530IDS_ERROR_1071033Error removing ODBC driver [4], ODBC error [2]: [3]. Verify that you have sufficient privileges to remove ODBC drivers.01503887530IDS_ERROR_1081033Error installing ODBC driver [4], ODBC error [2]: [3]. Verify that the file [4] exists and that you can access it.01503887530IDS_ERROR_1091033Error configuring ODBC data source [4], ODBC error [2]: [3]. Verify that the file [4] exists and that you can access it.01503887530IDS_ERROR_111033=== Logging stopped: [Date] [Time] ===01503887530IDS_ERROR_1101033Service [2] ([3]) failed to start. Verify that you have sufficient privileges to start system services.01503887530IDS_ERROR_1111033Service [2] ([3]) could not be stopped. Verify that you have sufficient privileges to stop system services.01503887530IDS_ERROR_1121033Service [2] ([3]) could not be deleted. Verify that you have sufficient privileges to remove system services.01503887530IDS_ERROR_1131033Service [2] ([3]) could not be installed. Verify that you have sufficient privileges to install system services.01503887530IDS_ERROR_1141033Could not update environment variable [2]. Verify that you have sufficient privileges to modify environment variables.01503887530IDS_ERROR_1151033You do not have sufficient privileges to complete this installation for all users of the machine. Log on as an administrator and then retry this installation.01503887530IDS_ERROR_1161033Could not set file security for file [3]. Error: [2]. Verify that you have sufficient privileges to modify the security permissions for this file.01503887530IDS_ERROR_1171033Component Services (COM+ 1.0) are not installed on this computer. This installation requires Component Services in order to complete successfully. Component Services are available on Windows 2000.01503887530IDS_ERROR_1181033Error registering COM+ application. Contact your support personnel for more information.01503887530IDS_ERROR_1191033Error unregistering COM+ application. Contact your support personnel for more information.01503887530IDS_ERROR_121033Action start [Time]: [1].01503887530IDS_ERROR_1201033Removing older versions of this application01503887530IDS_ERROR_1211033Preparing to remove older versions of this application01503887530IDS_ERROR_1221033Error applying patch to file [2]. It has probably been updated by other means, and can no longer be modified by this patch. For more information contact your patch vendor. {{System Error: [3]}}01503887530IDS_ERROR_1231033[2] cannot install one of its required products. Contact your technical support group. {{System Error: [3].}}01503887530IDS_ERROR_1241033The older version of [2] cannot be removed. Contact your technical support group. {{System Error [3].}}01503887530IDS_ERROR_1251033The description for service '[2]' ([3]) could not be changed.01503887530IDS_ERROR_1261033The Windows Installer service cannot update the system file [2] because the file is protected by Windows. You may need to update your operating system for this program to work correctly. {{Package version: [3], OS Protected version: [4]}}01503887530IDS_ERROR_1271033The Windows Installer service cannot update the protected Windows file [2]. {{Package version: [3], OS Protected version: [4], SFP Error: [5]}}01503887530IDS_ERROR_1281033The Windows Installer service cannot update one or more protected Windows files. SFP Error: [2]. List of protected files: [3]01503887530IDS_ERROR_1291033User installations are disabled via policy on the machine.01503887530IDS_ERROR_131033Action ended [Time]: [1]. Return value [2].01503887530IDS_ERROR_1301033This setup requires Internet Information Server 4.0 or higher for configuring IIS Virtual Roots. Please make sure that you have IIS 4.0 or higher.01503887530IDS_ERROR_1311033This setup requires Administrator privileges for configuring IIS Virtual Roots.01503887530IDS_ERROR_13291033A file that is required cannot be installed because the cabinet file [2] is not digitally signed. This may indicate that the cabinet file is corrupt.01503887530IDS_ERROR_13301033A file that is required cannot be installed because the cabinet file [2] has an invalid digital signature. This may indicate that the cabinet file is corrupt.{ Error [3] was returned by WinVerifyTrust.}01503887530IDS_ERROR_13311033Failed to correctly copy [2] file: CRC error.01503887530IDS_ERROR_13321033Failed to correctly patch [2] file: CRC error.01503887530IDS_ERROR_13331033Failed to correctly patch [2] file: CRC error.01503887530IDS_ERROR_13341033The file '[2]' cannot be installed because the file cannot be found in cabinet file '[3]'. This could indicate a network error, an error reading from the CD-ROM, or a problem with this package.01503887530IDS_ERROR_13351033The cabinet file '[2]' required for this installation is corrupt and cannot be used. This could indicate a network error, an error reading from the CD-ROM, or a problem with this package.01503887530IDS_ERROR_13361033There was an error creating a temporary file that is needed to complete this installation. Folder: [3]. System error code: [2]01503887530IDS_ERROR_141033Time remaining: {[1] minutes }{[2] seconds}01503887530IDS_ERROR_151033Out of memory. Shut down other applications before retrying.01503887530IDS_ERROR_161033Installer is no longer responding.01503887530IDS_ERROR_16091033An error occurred while applying security settings. [2] is not a valid user or group. This could be a problem with the package, or a problem connecting to a domain controller on the network. Check your network connection and click Retry, or Cancel to end the install. Unable to locate the user's SID, system error [3]01503887530IDS_ERROR_16511033Admin user failed to apply patch for a per-user managed or a per-machine application which is in advertise state.01503887530IDS_ERROR_171033Installer terminated prematurely.01503887530IDS_ERROR_17151033Installed [2].01503887530IDS_ERROR_17161033Configured [2].01503887530IDS_ERROR_17171033Removed [2].01503887530IDS_ERROR_17181033File [2] was rejected by digital signature policy.01503887530IDS_ERROR_17191033Windows Installer service could not be accessed. Contact your support personnel to verify that it is properly registered and enabled.01503887530IDS_ERROR_17201033There is a problem with this Windows Installer package. A script required for this install to complete could not be run. Contact your support personnel or package vendor. Custom action [2] script error [3], [4]: [5] Line [6], Column [7], [8]01503887530IDS_ERROR_17211033There is a problem with this Windows Installer package. A program required for this install to complete could not be run. Contact your support personnel or package vendor. Action: [2], location: [3], command: [4]01503887530IDS_ERROR_17221033There is a problem with this Windows Installer package. A program run as part of the setup did not finish as expected. Contact your support personnel or package vendor. Action [2], location: [3], command: [4]01503887530IDS_ERROR_17231033There is a problem with this Windows Installer package. A DLL required for this install to complete could not be run. Contact your support personnel or package vendor. Action [2], entry: [3], library: [4]01503887530IDS_ERROR_17241033Removal completed successfully.01503887530IDS_ERROR_17251033Removal failed.01503887530IDS_ERROR_17261033Advertisement completed successfully.01503887530IDS_ERROR_17271033Advertisement failed.01503887530IDS_ERROR_17281033Configuration completed successfully.01503887530IDS_ERROR_17291033Configuration failed.01503887530IDS_ERROR_17301033You must be an Administrator to remove this application. To remove this application, you can log on as an administrator, or contact your technical support group for assistance.01503887530IDS_ERROR_17311033The source installation package for the product [2] is out of sync with the client package. Try the installation again using a valid copy of the installation package '[3]'.01503887530IDS_ERROR_17321033In order to complete the installation of [2], you must restart the computer. Other users are currently logged on to this computer, and restarting may cause them to lose their work. Do you want to restart now?01503887530IDS_ERROR_181033Please wait while Windows configures [ProductName]01503887530IDS_ERROR_191033Gathering required information...01503887530IDS_ERROR_19351033An error occurred during the installation of assembly component [2]. HRESULT: [3]. {{assembly interface: [4], function: [5], assembly name: [6]}}01503887530IDS_ERROR_19361033An error occurred during the installation of assembly '[6]'. The assembly is not strongly named or is not signed with the minimal key length. HRESULT: [3]. {{assembly interface: [4], function: [5], component: [2]}}01503887530IDS_ERROR_19371033An error occurred during the installation of assembly '[6]'. The signature or catalog could not be verified or is not valid. HRESULT: [3]. {{assembly interface: [4], function: [5], component: [2]}}01503887530IDS_ERROR_19381033An error occurred during the installation of assembly '[6]'. One or more modules of the assembly could not be found. HRESULT: [3]. {{assembly interface: [4], function: [5], component: [2]}}01503887530IDS_ERROR_21033Warning [1]. 01503887530IDS_ERROR_201033{[ProductName] }Setup completed successfully.01503887530IDS_ERROR_211033{[ProductName] }Setup failed.01503887530IDS_ERROR_21011033Shortcuts not supported by the operating system.01503887530IDS_ERROR_21021033Invalid .ini action: [2]01503887530IDS_ERROR_21031033Could not resolve path for shell folder [2].01503887530IDS_ERROR_21041033Writing .ini file: [3]: System error: [2].01503887530IDS_ERROR_21051033Shortcut Creation [3] Failed. System error: [2].01503887530IDS_ERROR_21061033Shortcut Deletion [3] Failed. System error: [2].01503887530IDS_ERROR_21071033Error [3] registering type library [2].01503887530IDS_ERROR_21081033Error [3] unregistering type library [2].01503887530IDS_ERROR_21091033Section missing for .ini action.01503887530IDS_ERROR_21101033Key missing for .ini action.01503887530IDS_ERROR_21111033Detection of running applications failed, could not get performance data. Registered operation returned : [2].01503887530IDS_ERROR_21121033Detection of running applications failed, could not get performance index. Registered operation returned : [2].01503887530IDS_ERROR_21131033Detection of running applications failed.01503887530IDS_ERROR_221033Error reading from file: [2]. {{ System error [3].}} Verify that the file exists and that you can access it.01503887530IDS_ERROR_22001033Database: [2]. Database object creation failed, mode = [3].01503887530IDS_ERROR_22011033Database: [2]. Initialization failed, out of memory.01503887530IDS_ERROR_22021033Database: [2]. Data access failed, out of memory.01503887530IDS_ERROR_22031033Database: [2]. Cannot open database file. System error [3].01503887530IDS_ERROR_22041033Database: [2]. Table already exists: [3].01503887530IDS_ERROR_22051033Database: [2]. Table does not exist: [3].01503887530IDS_ERROR_22061033Database: [2]. Table could not be dropped: [3].01503887530IDS_ERROR_22071033Database: [2]. Intent violation.01503887530IDS_ERROR_22081033Database: [2]. Insufficient parameters for Execute.01503887530IDS_ERROR_22091033Database: [2]. Cursor in invalid state.01503887530IDS_ERROR_22101033Database: [2]. Invalid update data type in column [3].01503887530IDS_ERROR_22111033Database: [2]. Could not create database table [3].01503887530IDS_ERROR_22121033Database: [2]. Database not in writable state.01503887530IDS_ERROR_22131033Database: [2]. Error saving database tables.01503887530IDS_ERROR_22141033Database: [2]. Error writing export file: [3].01503887530IDS_ERROR_22151033Database: [2]. Cannot open import file: [3].01503887530IDS_ERROR_22161033Database: [2]. Import file format error: [3], Line [4].01503887530IDS_ERROR_22171033Database: [2]. Wrong state to CreateOutputDatabase [3].01503887530IDS_ERROR_22181033Database: [2]. Table name not supplied.01503887530IDS_ERROR_22191033Database: [2]. Invalid Installer database format.01503887530IDS_ERROR_22201033Database: [2]. Invalid row/field data.01503887530IDS_ERROR_22211033Database: [2]. Code page conflict in import file: [3].01503887530IDS_ERROR_22221033Database: [2]. Transform or merge code page [3] differs from database code page [4].01503887530IDS_ERROR_22231033Database: [2]. Databases are the same. No transform generated.01503887530IDS_ERROR_22241033Database: [2]. GenerateTransform: Database corrupt. Table: [3].01503887530IDS_ERROR_22251033Database: [2]. Transform: Cannot transform a temporary table. Table: [3].01503887530IDS_ERROR_22261033Database: [2]. Transform failed.01503887530IDS_ERROR_22271033Database: [2]. Invalid identifier '[3]' in SQL query: [4].01503887530IDS_ERROR_22281033Database: [2]. Unknown table '[3]' in SQL query: [4].01503887530IDS_ERROR_22291033Database: [2]. Could not load table '[3]' in SQL query: [4].01503887530IDS_ERROR_22301033Database: [2]. Repeated table '[3]' in SQL query: [4].01503887530IDS_ERROR_22311033Database: [2]. Missing ')' in SQL query: [3].01503887530IDS_ERROR_22321033Database: [2]. Unexpected token '[3]' in SQL query: [4].01503887530IDS_ERROR_22331033Database: [2]. No columns in SELECT clause in SQL query: [3].01503887530IDS_ERROR_22341033Database: [2]. No columns in ORDER BY clause in SQL query: [3].01503887530IDS_ERROR_22351033Database: [2]. Column '[3]' not present or ambiguous in SQL query: [4].01503887530IDS_ERROR_22361033Database: [2]. Invalid operator '[3]' in SQL query: [4].01503887530IDS_ERROR_22371033Database: [2]. Invalid or missing query string: [3].01503887530IDS_ERROR_22381033Database: [2]. Missing FROM clause in SQL query: [3].01503887530IDS_ERROR_22391033Database: [2]. Insufficient values in INSERT SQL statement.01503887530IDS_ERROR_22401033Database: [2]. Missing update columns in UPDATE SQL statement.01503887530IDS_ERROR_22411033Database: [2]. Missing insert columns in INSERT SQL statement.01503887530IDS_ERROR_22421033Database: [2]. Column '[3]' repeated.01503887530IDS_ERROR_22431033Database: [2]. No primary columns defined for table creation.01503887530IDS_ERROR_22441033Database: [2]. Invalid type specifier '[3]' in SQL query [4].01503887530IDS_ERROR_22451033IStorage::Stat failed with error [3].01503887530IDS_ERROR_22461033Database: [2]. Invalid Installer transform format.01503887530IDS_ERROR_22471033Database: [2] Transform stream read/write failure.01503887530IDS_ERROR_22481033Database: [2] GenerateTransform/Merge: Column type in base table does not match reference table. Table: [3] Col #: [4].01503887530IDS_ERROR_22491033Database: [2] GenerateTransform: More columns in base table than in reference table. Table: [3].01503887530IDS_ERROR_22501033Database: [2] Transform: Cannot add existing row. Table: [3].01503887530IDS_ERROR_22511033Database: [2] Transform: Cannot delete row that does not exist. Table: [3].01503887530IDS_ERROR_22521033Database: [2] Transform: Cannot add existing table. Table: [3].01503887530IDS_ERROR_22531033Database: [2] Transform: Cannot delete table that does not exist. Table: [3].01503887530IDS_ERROR_22541033Database: [2] Transform: Cannot update row that does not exist. Table: [3].01503887530IDS_ERROR_22551033Database: [2] Transform: Column with this name already exists. Table: [3] Col: [4].01503887530IDS_ERROR_22561033Database: [2] GenerateTransform/Merge: Number of primary keys in base table does not match reference table. Table: [3].01503887530IDS_ERROR_22571033Database: [2]. Intent to modify read only table: [3].01503887530IDS_ERROR_22581033Database: [2]. Type mismatch in parameter: [3].01503887530IDS_ERROR_22591033Database: [2] Table(s) Update failed01503887530IDS_ERROR_22601033Storage CopyTo failed. System error: [3].01503887530IDS_ERROR_22611033Could not remove stream [2]. System error: [3].01503887530IDS_ERROR_22621033Stream does not exist: [2]. System error: [3].01503887530IDS_ERROR_22631033Could not open stream [2]. System error: [3].01503887530IDS_ERROR_22641033Could not remove stream [2]. System error: [3].01503887530IDS_ERROR_22651033Could not commit storage. System error: [3].01503887530IDS_ERROR_22661033Could not rollback storage. System error: [3].01503887530IDS_ERROR_22671033Could not delete storage [2]. System error: [3].01503887530IDS_ERROR_22681033Database: [2]. Merge: There were merge conflicts reported in [3] tables.01503887530IDS_ERROR_22691033Database: [2]. Merge: The column count differed in the '[3]' table of the two databases.01503887530IDS_ERROR_22701033Database: [2]. GenerateTransform/Merge: Column name in base table does not match reference table. Table: [3] Col #: [4].01503887530IDS_ERROR_22711033SummaryInformation write for transform failed.01503887530IDS_ERROR_22721033Database: [2]. MergeDatabase will not write any changes because the database is open read-only.01503887530IDS_ERROR_22731033Database: [2]. MergeDatabase: A reference to the base database was passed as the reference database.01503887530IDS_ERROR_22741033Database: [2]. MergeDatabase: Unable to write errors to Error table. Could be due to a non-nullable column in a predefined Error table.01503887530IDS_ERROR_22751033Database: [2]. Specified Modify [3] operation invalid for table joins.01503887530IDS_ERROR_22761033Database: [2]. Code page [3] not supported by the system.01503887530IDS_ERROR_22771033Database: [2]. Failed to save table [3].01503887530IDS_ERROR_22781033Database: [2]. Exceeded number of expressions limit of 32 in WHERE clause of SQL query: [3].01503887530IDS_ERROR_22791033Database: [2] Transform: Too many columns in base table [3].01503887530IDS_ERROR_22801033Database: [2]. Could not create column [3] for table [4].01503887530IDS_ERROR_22811033Could not rename stream [2]. System error: [3].01503887530IDS_ERROR_22821033Stream name invalid [2].01503887530IDS_ERROR_231033Cannot create the file [3]. A directory with this name already exists. Cancel the installation and try installing to a different location.01503887530IDS_ERROR_23021033Patch notify: [2] bytes patched to far.01503887530IDS_ERROR_23031033Error getting volume info. GetLastError: [2].01503887530IDS_ERROR_23041033Error getting disk free space. GetLastError: [2]. Volume: [3].01503887530IDS_ERROR_23051033Error waiting for patch thread. GetLastError: [2].01503887530IDS_ERROR_23061033Could not create thread for patch application. GetLastError: [2].01503887530IDS_ERROR_23071033Source file key name is null.01503887530IDS_ERROR_23081033Destination file name is null.01503887530IDS_ERROR_23091033Attempting to patch file [2] when patch already in progress.01503887530IDS_ERROR_23101033Attempting to continue patch when no patch is in progress.01503887530IDS_ERROR_23151033Missing path separator: [2].01503887530IDS_ERROR_23181033File does not exist: [2].01503887530IDS_ERROR_23191033Error setting file attribute: [3] GetLastError: [2].01503887530IDS_ERROR_23201033File not writable: [2].01503887530IDS_ERROR_23211033Error creating file: [2].01503887530IDS_ERROR_23221033User canceled.01503887530IDS_ERROR_23231033Invalid file attribute.01503887530IDS_ERROR_23241033Could not open file: [3] GetLastError: [2].01503887530IDS_ERROR_23251033Could not get file time for file: [3] GetLastError: [2].01503887530IDS_ERROR_23261033Error in FileToDosDateTime.01503887530IDS_ERROR_23271033Could not remove directory: [3] GetLastError: [2].01503887530IDS_ERROR_23281033Error getting file version info for file: [2].01503887530IDS_ERROR_23291033Error deleting file: [3]. GetLastError: [2].01503887530IDS_ERROR_23301033Error getting file attributes: [3]. GetLastError: [2].01503887530IDS_ERROR_23311033Error loading library [2] or finding entry point [3].01503887530IDS_ERROR_23321033Error getting file attributes. GetLastError: [2].01503887530IDS_ERROR_23331033Error setting file attributes. GetLastError: [2].01503887530IDS_ERROR_23341033Error converting file time to local time for file: [3]. GetLastError: [2].01503887530IDS_ERROR_23351033Path: [2] is not a parent of [3].01503887530IDS_ERROR_23361033Error creating temp file on path: [3]. GetLastError: [2].01503887530IDS_ERROR_23371033Could not close file: [3] GetLastError: [2].01503887530IDS_ERROR_23381033Could not update resource for file: [3] GetLastError: [2].01503887530IDS_ERROR_23391033Could not set file time for file: [3] GetLastError: [2].01503887530IDS_ERROR_23401033Could not update resource for file: [3], Missing resource.01503887530IDS_ERROR_23411033Could not update resource for file: [3], Resource too large.01503887530IDS_ERROR_23421033Could not update resource for file: [3] GetLastError: [2].01503887530IDS_ERROR_23431033Specified path is empty.01503887530IDS_ERROR_23441033Could not find required file IMAGEHLP.DLL to validate file:[2].01503887530IDS_ERROR_23451033[2]: File does not contain a valid checksum value.01503887530IDS_ERROR_23471033User ignore.01503887530IDS_ERROR_23481033Error attempting to read from cabinet stream.01503887530IDS_ERROR_23491033Copy resumed with different info.01503887530IDS_ERROR_23501033FDI server error01503887530IDS_ERROR_23511033File key '[2]' not found in cabinet '[3]'. The installation cannot continue.01503887530IDS_ERROR_23521033Could not initialize cabinet file server. The required file 'CABINET.DLL' may be missing.01503887530IDS_ERROR_23531033Not a cabinet.01503887530IDS_ERROR_23541033Cannot handle cabinet.01503887530IDS_ERROR_23551033Corrupt cabinet.01503887530IDS_ERROR_23561033Could not locate cabinet in stream: [2].01503887530IDS_ERROR_23571033Cannot set attributes.01503887530IDS_ERROR_23581033Error determining whether file is in-use: [3]. GetLastError: [2].01503887530IDS_ERROR_23591033Unable to create the target file - file may be in use.01503887530IDS_ERROR_23601033Progress tick.01503887530IDS_ERROR_23611033Need next cabinet.01503887530IDS_ERROR_23621033Folder not found: [2].01503887530IDS_ERROR_23631033Could not enumerate subfolders for folder: [2].01503887530IDS_ERROR_23641033Bad enumeration constant in CreateCopier call.01503887530IDS_ERROR_23651033Could not BindImage exe file [2].01503887530IDS_ERROR_23661033User failure.01503887530IDS_ERROR_23671033User abort.01503887530IDS_ERROR_23681033Failed to get network resource information. Error [2], network path [3]. Extended error: network provider [5], error code [4], error description [6].01503887530IDS_ERROR_23701033Invalid CRC checksum value for [2] file.{ Its header says [3] for checksum, its computed value is [4].}01503887530IDS_ERROR_23711033Could not apply patch to file [2]. GetLastError: [3].01503887530IDS_ERROR_23721033Patch file [2] is corrupt or of an invalid format. Attempting to patch file [3]. GetLastError: [4].01503887530IDS_ERROR_23731033File [2] is not a valid patch file.01503887530IDS_ERROR_23741033File [2] is not a valid destination file for patch file [3].01503887530IDS_ERROR_23751033Unknown patching error: [2].01503887530IDS_ERROR_23761033Cabinet not found.01503887530IDS_ERROR_23791033Error opening file for read: [3] GetLastError: [2].01503887530IDS_ERROR_23801033Error opening file for write: [3]. GetLastError: [2].01503887530IDS_ERROR_23811033Directory does not exist: [2].01503887530IDS_ERROR_23821033Drive not ready: [2].01503887530IDS_ERROR_241033Please insert the disk: [2]01503887530IDS_ERROR_2401103364-bit registry operation attempted on 32-bit operating system for key [2].01503887530IDS_ERROR_24021033Out of memory.01503887530IDS_ERROR_251033The installer has insufficient privileges to access this directory: [2]. The installation cannot continue. Log on as an administrator or contact your system administrator.01503887530IDS_ERROR_25011033Could not create rollback script enumerator.01503887530IDS_ERROR_25021033Called InstallFinalize when no install in progress.01503887530IDS_ERROR_25031033Called RunScript when not marked in progress.01503887530IDS_ERROR_261033Error writing to file [2]. Verify that you have access to that directory.01503887530IDS_ERROR_26011033Invalid value for property [2]: '[3]'01503887530IDS_ERROR_26021033The [2] table entry '[3]' has no associated entry in the Media table.01503887530IDS_ERROR_26031033Duplicate table name [2].01503887530IDS_ERROR_26041033[2] Property undefined.01503887530IDS_ERROR_26051033Could not find server [2] in [3] or [4].01503887530IDS_ERROR_26061033Value of property [2] is not a valid full path: '[3]'.01503887530IDS_ERROR_26071033Media table not found or empty (required for installation of files).01503887530IDS_ERROR_26081033Could not create security descriptor for object. Error: '[2]'.01503887530IDS_ERROR_26091033Attempt to migrate product settings before initialization.01503887530IDS_ERROR_26111033The file [2] is marked as compressed, but the associated media entry does not specify a cabinet.01503887530IDS_ERROR_26121033Stream not found in '[2]' column. Primary key: '[3]'.01503887530IDS_ERROR_26131033RemoveExistingProducts action sequenced incorrectly.01503887530IDS_ERROR_26141033Could not access IStorage object from installation package.01503887530IDS_ERROR_26151033Skipped unregistration of Module [2] due to source resolution failure.01503887530IDS_ERROR_26161033Companion file [2] parent missing.01503887530IDS_ERROR_26171033Shared component [2] not found in Component table.01503887530IDS_ERROR_26181033Isolated application component [2] not found in Component table.01503887530IDS_ERROR_26191033Isolated components [2], [3] not part of same feature.01503887530IDS_ERROR_26201033Key file of isolated application component [2] not in File table.01503887530IDS_ERROR_26211033Resource DLL or Resource ID information for shortcut [2] set incorrectly.01503887530IDS_ERROR_271033Error reading from file [2]. Verify that the file exists and that you can access it.01503887530IDS_ERROR_27011033The depth of a feature exceeds the acceptable tree depth of [2] levels.01503887530IDS_ERROR_27021033A Feature table record ([2]) references a non-existent parent in the Attributes field.01503887530IDS_ERROR_27031033Property name for root source path not defined: [2]01503887530IDS_ERROR_27041033Root directory property undefined: [2]01503887530IDS_ERROR_27051033Invalid table: [2]; Could not be linked as tree.01503887530IDS_ERROR_27061033Source paths not created. No path exists for entry [2] in Directory table.01503887530IDS_ERROR_27071033Target paths not created. No path exists for entry [2] in Directory table.01503887530IDS_ERROR_27081033No entries found in the file table.01503887530IDS_ERROR_27091033The specified Component name ('[2]') not found in Component table.01503887530IDS_ERROR_27101033The requested 'Select' state is illegal for this Component.01503887530IDS_ERROR_27111033The specified Feature name ('[2]') not found in Feature table.01503887530IDS_ERROR_27121033Invalid return from modeless dialog: [3], in action [2].01503887530IDS_ERROR_27131033Null value in a non-nullable column ('[2]' in '[3]' column of the '[4]' table.01503887530IDS_ERROR_27141033Invalid value for default folder name: [2].01503887530IDS_ERROR_27151033The specified File key ('[2]') not found in the File table.01503887530IDS_ERROR_27161033Could not create a random subcomponent name for component '[2]'.01503887530IDS_ERROR_27171033Bad action condition or error calling custom action '[2]'.01503887530IDS_ERROR_27181033Missing package name for product code '[2]'.01503887530IDS_ERROR_27191033Neither UNC nor drive letter path found in source '[2]'.01503887530IDS_ERROR_27201033Error opening source list key. Error: '[2]'01503887530IDS_ERROR_27211033Custom action [2] not found in Binary table stream.01503887530IDS_ERROR_27221033Custom action [2] not found in File table.01503887530IDS_ERROR_27231033Custom action [2] specifies unsupported type.01503887530IDS_ERROR_27241033The volume label '[2]' on the media you're running from does not match the label '[3]' given in the Media table. This is allowed only if you have only 1 entry in your Media table.01503887530IDS_ERROR_27251033Invalid database tables01503887530IDS_ERROR_27261033Action not found: [2].01503887530IDS_ERROR_27271033The directory entry '[2]' does not exist in the Directory table.01503887530IDS_ERROR_27281033Table definition error: [2]01503887530IDS_ERROR_27291033Install engine not initialized.01503887530IDS_ERROR_27301033Bad value in database. Table: '[2]'; Primary key: '[3]'; Column: '[4]'01503887530IDS_ERROR_27311033Selection Manager not initialized.01503887530IDS_ERROR_27321033Directory Manager not initialized.01503887530IDS_ERROR_27331033Bad foreign key ('[2]') in '[3]' column of the '[4]' table.01503887530IDS_ERROR_27341033Invalid reinstall mode character.01503887530IDS_ERROR_27351033Custom action '[2]' has caused an unhandled exception and has been stopped. This may be the result of an internal error in the custom action, such as an access violation.01503887530IDS_ERROR_27361033Generation of custom action temp file failed: [2].01503887530IDS_ERROR_27371033Could not access custom action [2], entry [3], library [4]01503887530IDS_ERROR_27381033Could not access VBScript run time for custom action [2].01503887530IDS_ERROR_27391033Could not access JavaScript run time for custom action [2].01503887530IDS_ERROR_27401033Custom action [2] script error [3], [4]: [5] Line [6], Column [7], [8].01503887530IDS_ERROR_27411033Configuration information for product [2] is corrupt. Invalid info: [2].01503887530IDS_ERROR_27421033Marshaling to Server failed: [2].01503887530IDS_ERROR_27431033Could not execute custom action [2], location: [3], command: [4].01503887530IDS_ERROR_27441033EXE failed called by custom action [2], location: [3], command: [4].01503887530IDS_ERROR_27451033Transform [2] invalid for package [3]. Expected language [4], found language [5].01503887530IDS_ERROR_27461033Transform [2] invalid for package [3]. Expected product [4], found product [5].01503887530IDS_ERROR_27471033Transform [2] invalid for package [3]. Expected product version < [4], found product version [5].01503887530IDS_ERROR_27481033Transform [2] invalid for package [3]. Expected product version <= [4], found product version [5].01503887530IDS_ERROR_27491033Transform [2] invalid for package [3]. Expected product version == [4], found product version [5].01503887530IDS_ERROR_27501033Transform [2] invalid for package [3]. Expected product version >= [4], found product version [5].01503887530IDS_ERROR_275021033Could not connect to [2] '[3]'. [4]01503887530IDS_ERROR_275031033Error retrieving version string from [2] '[3]'. [4]01503887530IDS_ERROR_275041033SQL version requirements not met: [3]. This installation requires [2] [4] or later.01503887530IDS_ERROR_275051033Could not open SQL script file [2].01503887530IDS_ERROR_275061033Error executing SQL script [2]. Line [3]. [4]01503887530IDS_ERROR_275071033Connection or browsing for database servers requires that MDAC be installed.01503887530IDS_ERROR_275081033Error installing COM+ application [2]. [3]01503887530IDS_ERROR_275091033Error uninstalling COM+ application [2]. [3]01503887530IDS_ERROR_27511033Transform [2] invalid for package [3]. Expected product version > [4], found product version [5].01503887530IDS_ERROR_275101033Error installing COM+ application [2]. Could not load Microsoft(R) .NET class libraries. Registering .NET serviced components requires that Microsoft(R) .NET Framework be installed.01503887530IDS_ERROR_275111033Could not execute SQL script file [2]. Connection not open: [3]01503887530IDS_ERROR_275121033Error beginning transactions for [2] '[3]'. Database [4]. [5]01503887530IDS_ERROR_275131033Error committing transactions for [2] '[3]'. Database [4]. [5]01503887530IDS_ERROR_275141033This installation requires a Microsoft SQL Server. The specified server '[3]' is a Microsoft SQL Server Desktop Engine or SQL Server Express.01503887530IDS_ERROR_275151033Error retrieving schema version from [2] '[3]'. Database: '[4]'. [5]01503887530IDS_ERROR_275161033Error writing schema version to [2] '[3]'. Database: '[4]'. [5]01503887530IDS_ERROR_275171033This installation requires Administrator privileges for installing COM+ applications. Log on as an administrator and then retry this installation.01503887530IDS_ERROR_275181033The COM+ application "[2]" is configured to run as an NT service; this requires COM+ 1.5 or later on the system. Since your system has COM+ 1.0, this application will not be installed.01503887530IDS_ERROR_275191033Error updating XML file [2]. [3]01503887530IDS_ERROR_27521033Could not open transform [2] stored as child storage of package [4].01503887530IDS_ERROR_275201033Error opening XML file [2]. [3]01503887530IDS_ERROR_275211033This setup requires MSXML 3.0 or higher for configuring XML files. Please make sure that you have version 3.0 or higher.01503887530IDS_ERROR_275221033Error creating XML file [2]. [3]01503887530IDS_ERROR_275231033Error loading servers.01503887530IDS_ERROR_275241033Error loading NetApi32.DLL. The ISNetApi.dll needs to have NetApi32.DLL properly loaded and requires an NT based operating system.01503887530IDS_ERROR_275251033Server not found. Verify that the specified server exists. The server name can not be empty.01503887530IDS_ERROR_275261033Unspecified error from ISNetApi.dll.01503887530IDS_ERROR_275271033The buffer is too small.01503887530IDS_ERROR_275281033Access denied. Check administrative rights.01503887530IDS_ERROR_275291033Invalid computer.01503887530IDS_ERROR_27531033The File '[2]' is not marked for installation.01503887530IDS_ERROR_275301033Unknown error returned from NetAPI. System error: [2]01503887530IDS_ERROR_275311033Unhandled exception.01503887530IDS_ERROR_275321033Invalid user name for this server or domain.01503887530IDS_ERROR_275331033The case-sensitive passwords do not match.01503887530IDS_ERROR_275341033The list is empty.01503887530IDS_ERROR_275351033Access violation.01503887530IDS_ERROR_275361033Error getting group.01503887530IDS_ERROR_275371033Error adding user to group. Verify that the group exists for this domain or server.01503887530IDS_ERROR_275381033Error creating user.01503887530IDS_ERROR_275391033ERROR_NETAPI_ERROR_NOT_PRIMARY returned from NetAPI.01503887530IDS_ERROR_27541033The File '[2]' is not a valid patch file.01503887530IDS_ERROR_275401033The specified user already exists.01503887530IDS_ERROR_275411033The specified group already exists.01503887530IDS_ERROR_275421033Invalid password. Verify that the password is in accordance with your network password policy.01503887530IDS_ERROR_275431033Invalid name.01503887530IDS_ERROR_275441033Invalid group.01503887530IDS_ERROR_275451033The user name can not be empty and must be in the format DOMAIN\Username.01503887530IDS_ERROR_275461033Error loading or creating INI file in the user TEMP directory.01503887530IDS_ERROR_275471033ISNetAPI.dll is not loaded or there was an error loading the dll. This dll needs to be loaded for this operation. Verify that the dll is in the SUPPORTDIR directory.01503887530IDS_ERROR_275481033Error deleting INI file containing new user information from the user's TEMP directory.01503887530IDS_ERROR_275491033Error getting the primary domain controller (PDC).01503887530IDS_ERROR_27551033Server returned unexpected error [2] attempting to install package [3].01503887530IDS_ERROR_275501033Every field must have a value in order to create a user.01503887530IDS_ERROR_275511033ODBC driver for [2] not found. This is required to connect to [2] database servers.01503887530IDS_ERROR_275521033Error creating database [4]. Server: [2] [3]. [5]01503887530IDS_ERROR_275531033Error connecting to database [4]. Server: [2] [3]. [5]01503887530IDS_ERROR_275541033Error attempting to open connection [2]. No valid database metadata associated with this connection.01503887530IDS_ERROR_275551033Error attempting to apply permissions to object '[2]'. System error: [3] ([4])01503887530IDS_ERROR_27561033The property '[2]' was used as a directory property in one or more tables, but no value was ever assigned.01503887530IDS_ERROR_27571033Could not create summary info for transform [2].01503887530IDS_ERROR_27581033Transform [2] does not contain an MSI version.01503887530IDS_ERROR_27591033Transform [2] version [3] incompatible with engine; Min: [4], Max: [5].01503887530IDS_ERROR_27601033Transform [2] invalid for package [3]. Expected upgrade code [4], found [5].01503887530IDS_ERROR_27611033Cannot begin transaction. Global mutex not properly initialized.01503887530IDS_ERROR_27621033Cannot write script record. Transaction not started.01503887530IDS_ERROR_27631033Cannot run script. Transaction not started.01503887530IDS_ERROR_27651033Assembly name missing from AssemblyName table : Component: [4].01503887530IDS_ERROR_27661033The file [2] is an invalid MSI storage file.01503887530IDS_ERROR_27671033No more data{ while enumerating [2]}.01503887530IDS_ERROR_27681033Transform in patch package is invalid.01503887530IDS_ERROR_27691033Custom Action [2] did not close [3] MSIHANDLEs.01503887530IDS_ERROR_27701033Cached folder [2] not defined in internal cache folder table.01503887530IDS_ERROR_27711033Upgrade of feature [2] has a missing component.01503887530IDS_ERROR_27721033New upgrade feature [2] must be a leaf feature.01503887530IDS_ERROR_281033Another application has exclusive access to the file [2]. Please shut down all other applications, then click Retry.01503887530IDS_ERROR_28011033Unknown Message -- Type [2]. No action is taken.01503887530IDS_ERROR_28021033No publisher is found for the event [2].01503887530IDS_ERROR_28031033Dialog View did not find a record for the dialog [2].01503887530IDS_ERROR_28041033On activation of the control [3] on dialog [2] CMsiDialog failed to evaluate the condition [3].01503887530IDS_ERROR_28061033The dialog [2] failed to evaluate the condition [3].01503887530IDS_ERROR_28071033The action [2] is not recognized.01503887530IDS_ERROR_28081033Default button is ill-defined on dialog [2].01503887530IDS_ERROR_28091033On the dialog [2] the next control pointers do not form a cycle. There is a pointer from [3] to [4], but there is no further pointer.01503887530IDS_ERROR_28101033On the dialog [2] the next control pointers do not form a cycle. There is a pointer from both [3] and [5] to [4].01503887530IDS_ERROR_28111033On dialog [2] control [3] has to take focus, but it is unable to do so.01503887530IDS_ERROR_28121033The event [2] is not recognized.01503887530IDS_ERROR_28131033The EndDialog event was called with the argument [2], but the dialog has a parent.01503887530IDS_ERROR_28141033On the dialog [2] the control [3] names a nonexistent control [4] as the next control.01503887530IDS_ERROR_28151033ControlCondition table has a row without condition for the dialog [2].01503887530IDS_ERROR_28161033The EventMapping table refers to an invalid control [4] on dialog [2] for the event [3].01503887530IDS_ERROR_28171033The event [2] failed to set the attribute for the control [4] on dialog [3].01503887530IDS_ERROR_28181033In the ControlEvent table EndDialog has an unrecognized argument [2].01503887530IDS_ERROR_28191033Control [3] on dialog [2] needs a property linked to it.01503887530IDS_ERROR_28201033Attempted to initialize an already initialized handler.01503887530IDS_ERROR_28211033Attempted to initialize an already initialized dialog: [2].01503887530IDS_ERROR_28221033No other method can be called on dialog [2] until all the controls are added.01503887530IDS_ERROR_28231033Attempted to initialize an already initialized control: [3] on dialog [2].01503887530IDS_ERROR_28241033The dialog attribute [3] needs a record of at least [2] field(s).01503887530IDS_ERROR_28251033The control attribute [3] needs a record of at least [2] field(s).01503887530IDS_ERROR_28261033Control [3] on dialog [2] extends beyond the boundaries of the dialog [4] by [5] pixels.01503887530IDS_ERROR_28271033The button [4] on the radio button group [3] on dialog [2] extends beyond the boundaries of the group [5] by [6] pixels.01503887530IDS_ERROR_28281033Tried to remove control [3] from dialog [2], but the control is not part of the dialog.01503887530IDS_ERROR_28291033Attempt to use an uninitialized dialog.01503887530IDS_ERROR_28301033Attempt to use an uninitialized control on dialog [2].01503887530IDS_ERROR_28311033The control [3] on dialog [2] does not support [5] the attribute [4].01503887530IDS_ERROR_28321033The dialog [2] does not support the attribute [3].01503887530IDS_ERROR_28331033Control [4] on dialog [3] ignored the message [2].01503887530IDS_ERROR_28341033The next pointers on the dialog [2] do not form a single loop.01503887530IDS_ERROR_28351033The control [2] was not found on dialog [3].01503887530IDS_ERROR_28361033The control [3] on the dialog [2] cannot take focus.01503887530IDS_ERROR_28371033The control [3] on dialog [2] wants the winproc to return [4].01503887530IDS_ERROR_28381033The item [2] in the selection table has itself as a parent.01503887530IDS_ERROR_28391033Setting the property [2] failed.01503887530IDS_ERROR_28401033Error dialog name mismatch.01503887530IDS_ERROR_28411033No OK button was found on the error dialog.01503887530IDS_ERROR_28421033No text field was found on the error dialog.01503887530IDS_ERROR_28431033The ErrorString attribute is not supported for standard dialogs.01503887530IDS_ERROR_28441033Cannot execute an error dialog if the Errorstring is not set.01503887530IDS_ERROR_28451033The total width of the buttons exceeds the size of the error dialog.01503887530IDS_ERROR_28461033SetFocus did not find the required control on the error dialog.01503887530IDS_ERROR_28471033The control [3] on dialog [2] has both the icon and the bitmap style set.01503887530IDS_ERROR_28481033Tried to set control [3] as the default button on dialog [2], but the control does not exist.01503887530IDS_ERROR_28491033The control [3] on dialog [2] is of a type, that cannot be integer valued.01503887530IDS_ERROR_28501033Unrecognized volume type.01503887530IDS_ERROR_28511033The data for the icon [2] is not valid.01503887530IDS_ERROR_28521033At least one control has to be added to dialog [2] before it is used.01503887530IDS_ERROR_28531033Dialog [2] is a modeless dialog. The execute method should not be called on it.01503887530IDS_ERROR_28541033On the dialog [2] the control [3] is designated as first active control, but there is no such control.01503887530IDS_ERROR_28551033The radio button group [3] on dialog [2] has fewer than 2 buttons.01503887530IDS_ERROR_28561033Creating a second copy of the dialog [2].01503887530IDS_ERROR_28571033The directory [2] is mentioned in the selection table but not found.01503887530IDS_ERROR_28581033The data for the bitmap [2] is not valid.01503887530IDS_ERROR_28591033Test error message.01503887530IDS_ERROR_28601033Cancel button is ill-defined on dialog [2].01503887530IDS_ERROR_28611033The next pointers for the radio buttons on dialog [2] control [3] do not form a cycle.01503887530IDS_ERROR_28621033The attributes for the control [3] on dialog [2] do not define a valid icon size. Setting the size to 16.01503887530IDS_ERROR_28631033The control [3] on dialog [2] needs the icon [4] in size [5]x[5], but that size is not available. Loading the first available size.01503887530IDS_ERROR_28641033The control [3] on dialog [2] received a browse event, but there is no configurable directory for the present selection. Likely cause: browse button is not authored correctly.01503887530IDS_ERROR_28651033Control [3] on billboard [2] extends beyond the boundaries of the billboard [4] by [5] pixels.01503887530IDS_ERROR_28661033The dialog [2] is not allowed to return the argument [3].01503887530IDS_ERROR_28671033The error dialog property is not set.01503887530IDS_ERROR_28681033The error dialog [2] does not have the error style bit set.01503887530IDS_ERROR_28691033The dialog [2] has the error style bit set, but is not an error dialog.01503887530IDS_ERROR_28701033The help string [4] for control [3] on dialog [2] does not contain the separator character.01503887530IDS_ERROR_28711033The [2] table is out of date: [3].01503887530IDS_ERROR_28721033The argument of the CheckPath control event on dialog [2] is invalid.01503887530IDS_ERROR_28731033On the dialog [2] the control [3] has an invalid string length limit: [4].01503887530IDS_ERROR_28741033Changing the text font to [2] failed.01503887530IDS_ERROR_28751033Changing the text color to [2] failed.01503887530IDS_ERROR_28761033The control [3] on dialog [2] had to truncate the string: [4].01503887530IDS_ERROR_28771033The binary data [2] was not found01503887530IDS_ERROR_28781033On the dialog [2] the control [3] has a possible value: [4]. This is an invalid or duplicate value.01503887530IDS_ERROR_28791033The control [3] on dialog [2] cannot parse the mask string: [4].01503887530IDS_ERROR_28801033Do not perform the remaining control events.01503887530IDS_ERROR_28811033CMsiHandler initialization failed.01503887530IDS_ERROR_28821033Dialog window class registration failed.01503887530IDS_ERROR_28831033CreateNewDialog failed for the dialog [2].01503887530IDS_ERROR_28841033Failed to create a window for the dialog [2].01503887530IDS_ERROR_28851033Failed to create the control [3] on the dialog [2].01503887530IDS_ERROR_28861033Creating the [2] table failed.01503887530IDS_ERROR_28871033Creating a cursor to the [2] table failed.01503887530IDS_ERROR_28881033Executing the [2] view failed.01503887530IDS_ERROR_28891033Creating the window for the control [3] on dialog [2] failed.01503887530IDS_ERROR_28901033The handler failed in creating an initialized dialog.01503887530IDS_ERROR_28911033Failed to destroy window for dialog [2].01503887530IDS_ERROR_28921033[2] is an integer only control, [3] is not a valid integer value.01503887530IDS_ERROR_28931033The control [3] on dialog [2] can accept property values that are at most [5] characters long. The value [4] exceeds this limit, and has been truncated.01503887530IDS_ERROR_28941033Loading RICHED20.DLL failed. GetLastError() returned: [2].01503887530IDS_ERROR_28951033Freeing RICHED20.DLL failed. GetLastError() returned: [2].01503887530IDS_ERROR_28961033Executing action [2] failed.01503887530IDS_ERROR_28971033Failed to create any [2] font on this system.01503887530IDS_ERROR_28981033For [2] textstyle, the system created a '[3]' font, in [4] character set.01503887530IDS_ERROR_28991033Failed to create [2] textstyle. GetLastError() returned: [3].01503887530IDS_ERROR_291033There is not enough disk space to install the file [2]. Free some disk space and click Retry, or click Cancel to exit.01503887530IDS_ERROR_29011033Invalid parameter to operation [2]: Parameter [3].01503887530IDS_ERROR_29021033Operation [2] called out of sequence.01503887530IDS_ERROR_29031033The file [2] is missing.01503887530IDS_ERROR_29041033Could not BindImage file [2].01503887530IDS_ERROR_29051033Could not read record from script file [2].01503887530IDS_ERROR_29061033Missing header in script file [2].01503887530IDS_ERROR_29071033Could not create secure security descriptor. Error: [2].01503887530IDS_ERROR_29081033Could not register component [2].01503887530IDS_ERROR_29091033Could not unregister component [2].01503887530IDS_ERROR_29101033Could not determine user's security ID.01503887530IDS_ERROR_29111033Could not remove the folder [2].01503887530IDS_ERROR_29121033Could not schedule file [2] for removal on restart.01503887530IDS_ERROR_29191033No cabinet specified for compressed file: [2].01503887530IDS_ERROR_29201033Source directory not specified for file [2].01503887530IDS_ERROR_29241033Script [2] version unsupported. Script version: [3], minimum version: [4], maximum version: [5].01503887530IDS_ERROR_29271033ShellFolder id [2] is invalid.01503887530IDS_ERROR_29281033Exceeded maximum number of sources. Skipping source '[2]'.01503887530IDS_ERROR_29291033Could not determine publishing root. Error: [2].01503887530IDS_ERROR_29321033Could not create file [2] from script data. Error: [3].01503887530IDS_ERROR_29331033Could not initialize rollback script [2].01503887530IDS_ERROR_29341033Could not secure transform [2]. Error [3].01503887530IDS_ERROR_29351033Could not unsecure transform [2]. Error [3].01503887530IDS_ERROR_29361033Could not find transform [2].01503887530IDS_ERROR_29371033Windows Installer cannot install a system file protection catalog. Catalog: [2], Error: [3].01503887530IDS_ERROR_29381033Windows Installer cannot retrieve a system file protection catalog from the cache. Catalog: [2], Error: [3].01503887530IDS_ERROR_29391033Windows Installer cannot delete a system file protection catalog from the cache. Catalog: [2], Error: [3].01503887530IDS_ERROR_29401033Directory Manager not supplied for source resolution.01503887530IDS_ERROR_29411033Unable to compute the CRC for file [2].01503887530IDS_ERROR_29421033BindImage action has not been executed on [2] file.01503887530IDS_ERROR_29431033This version of Windows does not support deploying 64-bit packages. The script [2] is for a 64-bit package.01503887530IDS_ERROR_29441033GetProductAssignmentType failed.01503887530IDS_ERROR_29451033Installation of ComPlus App [2] failed with error [3].01503887530IDS_ERROR_31033Info [1]. 01503887530IDS_ERROR_301033Source file not found: [2]. Verify that the file exists and that you can access it.01503887530IDS_ERROR_30011033The patches in this list contain incorrect sequencing information: [2][3][4][5][6][7][8][9][10][11][12][13][14][15][16].01503887530IDS_ERROR_30021033Patch [2] contains invalid sequencing information. 01503887530IDS_ERROR_311033Error reading from file: [3]. {{ System error [2].}} Verify that the file exists and that you can access it.01503887530IDS_ERROR_321033Error writing to file: [3]. {{ System error [2].}} Verify that you have access to that directory.01503887530IDS_ERROR_331033Source file not found{{(cabinet)}}: [2]. Verify that the file exists and that you can access it.01503887530IDS_ERROR_341033Cannot create the directory [2]. A file with this name already exists. Please rename or remove the file and click Retry, or click Cancel to exit.01503887530IDS_ERROR_351033The volume [2] is currently unavailable. Please select another.01503887530IDS_ERROR_361033The specified path [2] is unavailable.01503887530IDS_ERROR_371033Unable to write to the specified folder [2].01503887530IDS_ERROR_381033A network error occurred while attempting to read from the file [2]01503887530IDS_ERROR_391033An error occurred while attempting to create the directory [2]01503887530IDS_ERROR_41033Internal Error [1]. [2]{, [3]}{, [4]}01503887530IDS_ERROR_401033A network error occurred while attempting to create the directory [2]01503887530IDS_ERROR_411033A network error occurred while attempting to open the source file cabinet [2].01503887530IDS_ERROR_421033The specified path is too long [2].01503887530IDS_ERROR_431033The Installer has insufficient privileges to modify the file [2].01503887530IDS_ERROR_441033A portion of the path [2] exceeds the length allowed by the system.01503887530IDS_ERROR_451033The path [2] contains words that are not valid in folders.01503887530IDS_ERROR_461033The path [2] contains an invalid character.01503887530IDS_ERROR_471033[2] is not a valid short file name.01503887530IDS_ERROR_481033Error getting file security: [3] GetLastError: [2]01503887530IDS_ERROR_491033Invalid Drive: [2]01503887530IDS_ERROR_51033{{Disk full: }}01503887530IDS_ERROR_501033Could not create key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_511033Could not open key: [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_521033Could not delete value [2] from key [3]. {{ System error [4].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_531033Could not delete key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_541033Could not read value [2] from key [3]. {{ System error [4].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_551033Could not write value [2] to key [3]. {{ System error [4].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_561033Could not get value names for key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_571033Could not get sub key names for key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_581033Could not read security information for key [2]. {{ System error [3].}} Verify that you have sufficient access to that key, or contact your support personnel.01503887530IDS_ERROR_591033Could not increase the available registry space. [2] KB of free registry space is required for the installation of this application.01503887530IDS_ERROR_61033Action [Time]: [1]. [2]01503887530IDS_ERROR_601033Another installation is in progress. You must complete that installation before continuing this one.01503887530IDS_ERROR_611033Error accessing secured data. Please make sure the Windows Installer is configured properly and try the installation again.01503887530IDS_ERROR_621033User [2] has previously initiated an installation for product [3]. That user will need to run that installation again before using that product. Your current installation will now continue.01503887530IDS_ERROR_631033User [2] has previously initiated an installation for product [3]. That user will need to run that installation again before using that product.01503887530IDS_ERROR_641033Out of disk space -- Volume: '[2]'; required space: [3] KB; available space: [4] KB. Free some disk space and retry.01503887530IDS_ERROR_651033Are you sure you want to cancel?01503887530IDS_ERROR_661033The file [2][3] is being held in use{ by the following process: Name: [4], ID: [5], Window Title: [6]}. Close that application and retry.01503887530IDS_ERROR_671033The product [2] is already installed, preventing the installation of this product. The two products are incompatible.01503887530IDS_ERROR_681033Out of disk space -- Volume: [2]; required space: [3] KB; available space: [4] KB. If rollback is disabled, enough space is available. Click Cancel to quit, Retry to check available disk space again, or Ignore to continue without rollback.01503887530IDS_ERROR_691033Could not access network location [2].01503887530IDS_ERROR_71033[ProductName]01503887530IDS_ERROR_701033The following applications should be closed before continuing the installation:01503887530IDS_ERROR_711033Could not find any previously installed compliant products on the machine for installing this product.01503887530IDS_ERROR_721033The key [2] is not valid. Verify that you entered the correct key.01503887530IDS_ERROR_731033The installer must restart your system before configuration of [2] can continue. Click Yes to restart now or No if you plan to restart later.01503887530IDS_ERROR_741033You must restart your system for the configuration changes made to [2] to take effect. Click Yes to restart now or No if you plan to restart later.01503887530IDS_ERROR_751033An installation for [2] is currently suspended. You must undo the changes made by that installation to continue. Do you want to undo those changes?01503887530IDS_ERROR_761033A previous installation for this product is in progress. You must undo the changes made by that installation to continue. Do you want to undo those changes?01503887530IDS_ERROR_771033No valid source could be found for product [2]. The Windows Installer cannot continue.01503887530IDS_ERROR_781033Installation operation completed successfully.01503887530IDS_ERROR_791033Installation operation failed.01503887530IDS_ERROR_81033{[2]}{, [3]}{, [4]}01503887530IDS_ERROR_801033Product: [2] -- [3]01503887530IDS_ERROR_811033You may either restore your computer to its previous state or continue the installation later. Would you like to restore?01503887530IDS_ERROR_821033An error occurred while writing installation information to disk. Check to make sure enough disk space is available, and click Retry, or Cancel to end the installation.01503887530IDS_ERROR_831033One or more of the files required to restore your computer to its previous state could not be found. Restoration will not be possible.01503887530IDS_ERROR_841033The path [2] is not valid. Please specify a valid path.01503887530IDS_ERROR_851033Out of memory. Shut down other applications before retrying.01503887530IDS_ERROR_861033There is no disk in drive [2]. Please insert one and click Retry, or click Cancel to go back to the previously selected volume.01503887530IDS_ERROR_871033There is no disk in drive [2]. Please insert one and click Retry, or click Cancel to return to the browse dialog and select a different volume.01503887530IDS_ERROR_881033The folder [2] does not exist. Please enter a path to an existing folder.01503887530IDS_ERROR_891033You have insufficient privileges to read this folder.01503887530IDS_ERROR_91033Message type: [1], Argument: [2]01503887530IDS_ERROR_901033A valid destination folder for the installation could not be determined.01503887530IDS_ERROR_911033Error attempting to read from the source installation database: [2].01503887530IDS_ERROR_921033Scheduling reboot operation: Renaming file [2] to [3]. Must reboot to complete operation.01503887530IDS_ERROR_931033Scheduling reboot operation: Deleting file [2]. Must reboot to complete operation.01503887530IDS_ERROR_941033Module [2] failed to register. HRESULT [3]. Contact your support personnel.01503887530IDS_ERROR_951033Module [2] failed to unregister. HRESULT [3]. Contact your support personnel.01503887530IDS_ERROR_961033Failed to cache package [2]. Error: [3]. Contact your support personnel.01503887530IDS_ERROR_971033Could not register font [2]. Verify that you have sufficient permissions to install fonts, and that the system supports this font.01503887530IDS_ERROR_981033Could not unregister font [2]. Verify that you have sufficient permissions to remove fonts.01503887530IDS_ERROR_991033Could not create shortcut [2]. Verify that the destination folder exists and that you can access it.01503887530IDS_INSTALLDIR1033[INSTALLDIR]01503887530IDS_INSTALLSHIELD1033InstallShield01503887530IDS_INSTALLSHIELD_FORMATTED1033{&MSSWhiteSerif8}InstallShield01503887530IDS_ISSCRIPT_VERSION_MISSING1033The InstallScript engine is missing from this machine. If available, please run ISScript.msi, or contact your support personnel for further assistance.01503887530IDS_ISSCRIPT_VERSION_OLD1033The InstallScript engine on this machine is older than the version required to run this setup. If available, please install the latest version of ISScript.msi, or contact your support personnel for further assistance.01503887530IDS_NEXT1033&Next >01503887530IDS_OK1033OK01503887530IDS_PREREQUISITE_SETUP_BROWSE1033Open [ProductName]'s original [SETUPEXENAME]01503887530IDS_PREREQUISITE_SETUP_INVALID1033This executable file does not appear to be the original executable file for [ProductName]. Without using the original [SETUPEXENAME] to install additional dependencies, [ProductName] may not work correctly. Would you like to find the original [SETUPEXENAME]?01503887530IDS_PREREQUISITE_SETUP_SEARCH1033This installation may require additional dependencies. Without its dependencies, [ProductName] may not work correctly. Would you like to find the original [SETUPEXENAME]?01503887530IDS_PREVENT_DOWNGRADE_EXIT1033A newer version of this application is already installed on this computer. If you wish to install this version, please uninstall the newer version first. Click OK to exit the wizard.01503887530IDS_PRINT_BUTTON1033&Print01503887530IDS_PRODUCTNAME_INSTALLSHIELD1033[ProductName] - InstallShield Wizard01503887530IDS_PROGMSG_IIS_CREATEAPPPOOL1033Creating application pool %s01503887530IDS_PROGMSG_IIS_CREATEAPPPOOLS1033Creating application Pools...01503887530IDS_PROGMSG_IIS_CREATEVROOT1033Creating IIS virtual directory %s01503887530IDS_PROGMSG_IIS_CREATEVROOTS1033Creating IIS virtual directories...01503887530IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSION1033Creating web service extension01503887530IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSIONS1033Creating web service extensions...01503887530IDS_PROGMSG_IIS_CREATEWEBSITE1033Creating IIS website %s01503887530IDS_PROGMSG_IIS_CREATEWEBSITES1033Creating IIS websites...01503887530IDS_PROGMSG_IIS_EXTRACT1033Extracting information for IIS virtual directories...01503887530IDS_PROGMSG_IIS_EXTRACTDONE1033Extracted information for IIS virtual directories...01503887530IDS_PROGMSG_IIS_REMOVEAPPPOOL1033Removing application pool01503887530IDS_PROGMSG_IIS_REMOVEAPPPOOLS1033Removing application pools...01503887530IDS_PROGMSG_IIS_REMOVESITE1033Removing web site at port %d01503887530IDS_PROGMSG_IIS_REMOVEVROOT1033Removing IIS virtual directory %s01503887530IDS_PROGMSG_IIS_REMOVEVROOTS1033Removing IIS virtual directories...01503887530IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSION1033Removing web service extension01503887530IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSIONS1033Removing web service extensions...01503887530IDS_PROGMSG_IIS_REMOVEWEBSITES1033Removing IIS websites...01503887530IDS_PROGMSG_IIS_ROLLBACKAPPPOOLS1033Rolling back application pools...01503887530IDS_PROGMSG_IIS_ROLLBACKVROOTS1033Rolling back virtual directory and web site changes...01503887530IDS_PROGMSG_IIS_ROLLBACKWEBSERVICEEXTENSIONS1033Rolling back web service extensions...01503887530IDS_PROGMSG_TEXTFILECHANGS_REPLACE1033Replacing %s with %s in %s...01503887530IDS_PROGMSG_XML_COSTING1033Costing XML files...01503887530IDS_PROGMSG_XML_CREATE_FILE1033Creating XML file %s...01503887530IDS_PROGMSG_XML_FILES1033Performing XML file changes...01503887530IDS_PROGMSG_XML_REMOVE_FILE1033Removing XML file %s...01503887530IDS_PROGMSG_XML_ROLLBACK_FILES1033Rolling back XML file changes...01503887530IDS_PROGMSG_XML_UPDATE_FILE1033Updating XML file %s...01503887530IDS_SETUPEXE_EXPIRE_MSG1033This setup works until %s. The setup will now exit.01503887530IDS_SETUPEXE_LAUNCH_COND_E1033This setup was built with an evaluation version of InstallShield and can only be launched from setup.exe.01503887530IDS_SHORTCUT_DISPLAY_NAME11033Global Indexer01503895786IDS_SQLBROWSE_INTRO1033From the list of servers below, select the database server you would like to target.01503887530IDS_SQLBROWSE_INTRO_DB1033From the list of catalog names below, select the database catalog you would like to target.01503887530IDS_SQLBROWSE_INTRO_TEMPLATE1033[IS_SQLBROWSE_INTRO]01503887530IDS_SQLLOGIN_BROWSE1033B&rowse...01503887530IDS_SQLLOGIN_BROWSE_DB1033Br&owse...01503887530IDS_SQLLOGIN_CATALOG1033&Name of database catalog:01503887530IDS_SQLLOGIN_CONNECT1033Connect using:01503887530IDS_SQLLOGIN_DESC1033Select database server and authentication method01503887530IDS_SQLLOGIN_ID1033&Login ID:01503887530IDS_SQLLOGIN_INTRO1033Select the database server to install to from the list below or click Browse to see a list of all database servers. You can also specify the way to authenticate your login using your current credentials or a SQL Login ID and Password.01503887530IDS_SQLLOGIN_PSWD1033&Password:01503887530IDS_SQLLOGIN_SERVER1033&Database Server:01503887530IDS_SQLLOGIN_SERVER21033&Database server that you are installing to:01503887530IDS_SQLLOGIN_SQL1033S&erver authentication using the Login ID and password below01503887530IDS_SQLLOGIN_TITLE1033{&MSSansBold8}Database Server01503887530IDS_SQLLOGIN_WIN1033&Windows authentication credentials of current user01503887530IDS_SQLSCRIPT_INSTALLING1033Executing SQL Install Script...01503887530IDS_SQLSCRIPT_UNINSTALLING1033Executing SQL Uninstall Script...01503887530IDS_STANDARD_USE_SETUPEXE1033This installation cannot be run by directly launching the MSI package. You must run setup.exe.01503887530IDS_SetupTips_Advertise1033Will be installed on first use. (Available only if the feature supports this option.)01503887530IDS_SetupTips_AllInstalledLocal1033Will be completely installed to the local hard drive.01503887530IDS_SetupTips_CustomSetup1033{&MSSansBold8}Custom Setup Tips01503887530IDS_SetupTips_CustomSetupDescription1033Custom Setup allows you to selectively install program features.01503887530IDS_SetupTips_IconInstallState1033The icon next to the feature name indicates the install state of the feature. Click the icon to drop down the install state menu for each feature.01503887530IDS_SetupTips_InstallState1033This install state means the feature...01503887530IDS_SetupTips_Network1033Will be installed to run from the network. (Available only if the feature supports this option.)01503887530IDS_SetupTips_OK1033OK01503887530IDS_SetupTips_SubFeaturesInstalledLocal1033Will have some subfeatures installed to the local hard drive. (Available only if the feature has subfeatures.)01503887530IDS_SetupTips_WillNotBeInstalled1033Will not be installed.01503887530IDS_UITEXT_Available1033Available01503887530IDS_UITEXT_Bytes1033bytes01503887530IDS_UITEXT_CompilingFeaturesCost1033Compiling cost for this feature...01503887530IDS_UITEXT_Differences1033Differences01503887530IDS_UITEXT_DiskSize1033Disk Size01503887530IDS_UITEXT_FeatureCompletelyRemoved1033This feature will be completely removed.01503887530IDS_UITEXT_FeatureContinueNetwork1033This feature will continue to be run from the network01503887530IDS_UITEXT_FeatureFreeSpace1033This feature frees up [1] on your hard drive.01503887530IDS_UITEXT_FeatureInstalledCD1033This feature, and all subfeatures, will be installed to run from the CD.01503887530IDS_UITEXT_FeatureInstalledCD21033This feature will be installed to run from CD.01503887530IDS_UITEXT_FeatureInstalledLocal1033This feature, and all subfeatures, will be installed on local hard drive.01503887530IDS_UITEXT_FeatureInstalledLocal21033This feature will be installed on local hard drive.01503887530IDS_UITEXT_FeatureInstalledNetwork1033This feature, and all subfeatures, will be installed to run from the network.01503887530IDS_UITEXT_FeatureInstalledNetwork21033This feature will be installed to run from network.01503887530IDS_UITEXT_FeatureInstalledRequired1033Will be installed when required.01503887530IDS_UITEXT_FeatureInstalledWhenRequired1033This feature will be set to be installed when required.01503887530IDS_UITEXT_FeatureInstalledWhenRequired21033This feature will be installed when required.01503887530IDS_UITEXT_FeatureLocal1033This feature will be installed on the local hard drive.01503887530IDS_UITEXT_FeatureLocal21033This feature will be installed on your local hard drive.01503887530IDS_UITEXT_FeatureNetwork1033This feature will be installed to run from the network.01503887530IDS_UITEXT_FeatureNetwork21033This feature will be available to run from the network.01503887530IDS_UITEXT_FeatureNotAvailable1033This feature will not be available.01503887530IDS_UITEXT_FeatureOnCD1033This feature will be installed to run from CD.01503887530IDS_UITEXT_FeatureOnCD21033This feature will be available to run from CD.01503887530IDS_UITEXT_FeatureRemainLocal1033This feature will remain on your local hard drive.01503887530IDS_UITEXT_FeatureRemoveNetwork1033This feature will be removed from your local hard drive, but will be still available to run from the network.01503887530IDS_UITEXT_FeatureRemovedCD1033This feature will be removed from your local hard drive but will still be available to run from CD.01503887530IDS_UITEXT_FeatureRemovedUnlessRequired1033This feature will be removed from your local hard drive but will be set to be installed when required.01503887530IDS_UITEXT_FeatureRequiredSpace1033This feature requires [1] on your hard drive.01503887530IDS_UITEXT_FeatureRunFromCD1033This feature will continue to be run from the CD01503887530IDS_UITEXT_FeatureSpaceFree1033This feature frees up [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures free up [4] on your hard drive.01503887530IDS_UITEXT_FeatureSpaceFree21033This feature frees up [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures require [4] on your hard drive.01503887530IDS_UITEXT_FeatureSpaceFree31033This feature requires [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures free up [4] on your hard drive.01503887530IDS_UITEXT_FeatureSpaceFree41033This feature requires [1] on your hard drive. It has [2] of [3] subfeatures selected. The subfeatures require [4] on your hard drive.01503887530IDS_UITEXT_FeatureUnavailable1033This feature will become unavailable.01503887530IDS_UITEXT_FeatureUninstallNoNetwork1033This feature will be uninstalled completely, and you won't be able to run it from the network.01503887530IDS_UITEXT_FeatureWasCD1033This feature was run from the CD but will be set to be installed when required.01503887530IDS_UITEXT_FeatureWasCDLocal1033This feature was run from the CD but will be installed on the local hard drive.01503887530IDS_UITEXT_FeatureWasOnNetworkInstalled1033This feature was run from the network but will be installed when required.01503887530IDS_UITEXT_FeatureWasOnNetworkLocal1033This feature was run from the network but will be installed on the local hard drive.01503887530IDS_UITEXT_FeatureWillBeUninstalled1033This feature will be uninstalled completely, and you won't be able to run it from CD.01503887530IDS_UITEXT_Folder1033Fldr|New Folder01503887530IDS_UITEXT_GB1033GB01503887530IDS_UITEXT_KB1033KB01503887530IDS_UITEXT_MB1033MB01503887530IDS_UITEXT_Required1033Required01503887530IDS_UITEXT_TimeRemaining1033Time remaining: {[1] min }{[2] sec}01503887530IDS_UITEXT_Volume1033Volume01503887530IDS__AgreeToLicense_01033I &do not accept the terms in the license agreement01503887530IDS__AgreeToLicense_11033I &accept the terms in the license agreement01503887530IDS__DatabaseFolder_ChangeFolder1033Click Next to install to this folder, or click Change to install to a different folder.01503887530IDS__DatabaseFolder_DatabaseDir1033[DATABASEDIR]01503887530IDS__DatabaseFolder_DatabaseFolder1033{&MSSansBold8}Database Folder01503887530IDS__DestinationFolder_Change1033&Change...01503887530IDS__DestinationFolder_ChangeFolder1033Click Next to install to this folder, or click Change to install to a different folder.01503887530IDS__DestinationFolder_DestinationFolder1033{&MSSansBold8}Destination Folder01503887530IDS__DestinationFolder_InstallTo1033Install [ProductName] to:01503887530IDS__DisplayName_Custom1033Custom01503887530IDS__DisplayName_Minimal1033Minimal01503887530IDS__DisplayName_Typical1033Typical01503887530IDS__IsAdminInstallBrowse_11103301503887530IDS__IsAdminInstallBrowse_4103301503887530IDS__IsAdminInstallBrowse_8103301503887530IDS__IsAdminInstallBrowse_BrowseDestination1033Browse to the destination folder.01503887530IDS__IsAdminInstallBrowse_ChangeDestination1033{&MSSansBold8}Change Current Destination Folder01503887530IDS__IsAdminInstallBrowse_CreateFolder1033Create new folder|01503887530IDS__IsAdminInstallBrowse_FolderName1033&Folder name:01503887530IDS__IsAdminInstallBrowse_LookIn1033&Look in:01503887530IDS__IsAdminInstallBrowse_UpOneLevel1033Up one level|01503887530IDS__IsAdminInstallPointWelcome_ServerImage1033The InstallShield(R) Wizard will create a server image of [ProductName] at a specified network location. To continue, click Next.01503887530IDS__IsAdminInstallPointWelcome_Wizard1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]01503887530IDS__IsAdminInstallPoint_Change1033&Change...01503887530IDS__IsAdminInstallPoint_EnterNetworkLocation1033Enter the network location or click Change to browse to a location. Click Install to create a server image of [ProductName] at the specified network location or click Cancel to exit the wizard.01503887530IDS__IsAdminInstallPoint_Install1033&Install01503887530IDS__IsAdminInstallPoint_NetworkLocation1033&Network location:01503887530IDS__IsAdminInstallPoint_NetworkLocationFormatted1033{&MSSansBold8}Network Location01503887530IDS__IsAdminInstallPoint_SpecifyNetworkLocation1033Specify a network location for the server image of the product.01503887530IDS__IsBrowseButton1033&Browse...01503887530IDS__IsBrowseFolderDlg_11103301503887530IDS__IsBrowseFolderDlg_4103301503887530IDS__IsBrowseFolderDlg_8103301503887530IDS__IsBrowseFolderDlg_BrowseDestFolder1033Browse to the destination folder.01503887530IDS__IsBrowseFolderDlg_ChangeCurrentFolder1033{&MSSansBold8}Change Current Destination Folder01503887530IDS__IsBrowseFolderDlg_CreateFolder1033Create New Folder|01503887530IDS__IsBrowseFolderDlg_FolderName1033&Folder name:01503887530IDS__IsBrowseFolderDlg_LookIn1033&Look in:01503887530IDS__IsBrowseFolderDlg_OK1033OK01503887530IDS__IsBrowseFolderDlg_UpOneLevel1033Up One Level|01503887530IDS__IsBrowseForAccount1033Browse for a User Account01503887530IDS__IsBrowseGroup1033Select a Group01503887530IDS__IsBrowseUsernameTitle1033Select a User Name01503887530IDS__IsCancelDlg_ConfirmCancel1033Are you sure you want to cancel [ProductName] installation?01503887530IDS__IsCancelDlg_No1033&No01503887530IDS__IsCancelDlg_Yes1033&Yes01503887530IDS__IsConfirmPassword1033Con&firm password:01503887530IDS__IsCreateNewUserTitle1033New User Information01503887530IDS__IsCreateUserBrowse1033N&ew User Information...01503887530IDS__IsCustomSelectionDlg_Change1033&Change...01503887530IDS__IsCustomSelectionDlg_ClickFeatureIcon1033Click on an icon in the list below to change how a feature is installed.01503887530IDS__IsCustomSelectionDlg_CustomSetup1033{&MSSansBold8}Custom Setup01503887530IDS__IsCustomSelectionDlg_FeatureDescription1033Feature Description01503887530IDS__IsCustomSelectionDlg_FeaturePath1033<selected feature path>01503887530IDS__IsCustomSelectionDlg_FeatureSize1033Feature size01503887530IDS__IsCustomSelectionDlg_Help1033&Help01503887530IDS__IsCustomSelectionDlg_InstallTo1033Install to:01503887530IDS__IsCustomSelectionDlg_MultilineDescription1033Multiline description of the currently selected item01503887530IDS__IsCustomSelectionDlg_SelectFeatures1033Select the program features you want installed.01503887530IDS__IsCustomSelectionDlg_Space1033&Space01503887530IDS__IsDiskSpaceDlg_DiskSpace1033Disk space required for the installation exceeds available disk space.01503887530IDS__IsDiskSpaceDlg_HighlightedVolumes1033The highlighted volumes do not have enough disk space available for the currently selected features. You can remove files from the highlighted volumes, choose to install fewer features onto local drives, or select different destination drives.01503887530IDS__IsDiskSpaceDlg_Numbers1033{120}{70}{70}{70}{70}01503887530IDS__IsDiskSpaceDlg_OK1033OK01503887530IDS__IsDiskSpaceDlg_OutOfDiskSpace1033{&MSSansBold8}Out of Disk Space01503887530IDS__IsDomainOrServer1033&Domain or server:01503887530IDS__IsErrorDlg_Abort1033&Abort01503887530IDS__IsErrorDlg_ErrorText1033<error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here><error text goes here>01503887530IDS__IsErrorDlg_Ignore1033&Ignore01503887530IDS__IsErrorDlg_InstallerInfo1033[ProductName] Installer Information01503887530IDS__IsErrorDlg_NO1033&No01503887530IDS__IsErrorDlg_OK1033&OK01503887530IDS__IsErrorDlg_Retry1033&Retry01503887530IDS__IsErrorDlg_Yes1033&Yes01503887530IDS__IsExitDialog_Finish1033&Finish01503887530IDS__IsExitDialog_InstallSuccess1033The InstallShield Wizard has successfully installed [ProductName]. Click Finish to exit the wizard.01503887530IDS__IsExitDialog_LaunchProgram1033Launch the program01503887530IDS__IsExitDialog_ShowReadMe1033Show the readme file01503887530IDS__IsExitDialog_UninstallSuccess1033The InstallShield Wizard has successfully uninstalled [ProductName]. Click Finish to exit the wizard.01503887530IDS__IsExitDialog_Update_InternetConnection1033Your Internet connection can be used to make sure that you have the latest updates.01503887530IDS__IsExitDialog_Update_PossibleUpdates1033Some program files might have been updated since you purchased your copy of [ProductName].01503887530IDS__IsExitDialog_Update_SetupFinished1033Setup has finished installing [ProductName].01503887530IDS__IsExitDialog_Update_YesCheckForUpdates1033&Yes, check for program updates (Recommended) after the setup completes.01503887530IDS__IsExitDialog_WizardCompleted1033{&TahomaBold10}InstallShield Wizard Completed01503887530IDS__IsFatalError_ClickFinish1033Click Finish to exit the wizard.01503887530IDS__IsFatalError_Finish1033&Finish01503887530IDS__IsFatalError_KeepOrRestore1033You can either keep any existing installed elements on your system to continue this installation at a later time or you can restore your system to its original state prior to the installation.01503887530IDS__IsFatalError_NotModified1033Your system has not been modified. To complete installation at another time, please run setup again.01503887530IDS__IsFatalError_RestoreOrContinueLater1033Click Restore or Continue Later to exit the wizard.01503887530IDS__IsFatalError_WizardCompleted1033{&TahomaBold10}InstallShield Wizard Completed01503887530IDS__IsFatalError_WizardInterrupted1033The wizard was interrupted before [ProductName] could be completely installed.01503887530IDS__IsFeatureDetailsDlg_DiskSpaceRequirements1033{&MSSansBold8}Disk Space Requirements01503887530IDS__IsFeatureDetailsDlg_Numbers1033{120}{70}{70}{70}{70}01503887530IDS__IsFeatureDetailsDlg_OK1033OK01503887530IDS__IsFeatureDetailsDlg_SpaceRequired1033The disk space required for the installation of the selected features.01503887530IDS__IsFeatureDetailsDlg_VolumesTooSmall1033The highlighted volumes do not have enough disk space available for the currently selected features. You can remove files from the highlighted volumes, choose to install fewer features onto local drives, or select different destination drives.01503887530IDS__IsFilesInUse_ApplicationsUsingFiles1033The following applications are using files that need to be updated by this setup. Close these applications and click Retry to continue.01503887530IDS__IsFilesInUse_Exit1033&Exit01503887530IDS__IsFilesInUse_FilesInUse1033{&MSSansBold8}Files in Use01503887530IDS__IsFilesInUse_FilesInUseMessage1033Some files that need to be updated are currently in use.01503887530IDS__IsFilesInUse_Ignore1033&Ignore01503887530IDS__IsFilesInUse_Retry1033&Retry01503887530IDS__IsGroup1033&Group:01503887530IDS__IsGroupLabel1033Gr&oup:01503887530IDS__IsInitDlg_1103301503887530IDS__IsInitDlg_2103301503887530IDS__IsInitDlg_PreparingWizard1033[ProductName] Setup is preparing the InstallShield Wizard which will guide you through the program setup process. Please wait.01503887530IDS__IsInitDlg_WelcomeWizard1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]01503887530IDS__IsLicenseDlg_LicenseAgreement1033{&MSSansBold8}License Agreement01503887530IDS__IsLicenseDlg_ReadLicenseAgreement1033Please read the following license agreement carefully.01503887530IDS__IsLogonInfoDescription1033Specify the user name and password of the user account that will logon to use this application. The user account must be in the form DOMAIN\Username.01503887530IDS__IsLogonInfoTitle1033{&MSSansBold8}Logon Information01503887530IDS__IsLogonInfoTitleDescription1033Specify a user name and password01503887530IDS__IsLogonNewUserDescription1033Select the button below to specify information about a new user that will be created during the installation.01503887530IDS__IsMaintenanceDlg_ChangeFeatures1033Change which program features are installed. This option displays the Custom Selection dialog in which you can change the way features are installed.01503887530IDS__IsMaintenanceDlg_MaitenanceOptions1033Modify, repair, or remove the program.01503887530IDS__IsMaintenanceDlg_Modify1033{&MSSansBold8}&Modify01503887530IDS__IsMaintenanceDlg_ProgramMaintenance1033{&MSSansBold8}Program Maintenance01503887530IDS__IsMaintenanceDlg_Remove1033{&MSSansBold8}&Remove01503887530IDS__IsMaintenanceDlg_RemoveProductName1033Remove [ProductName] from your computer.01503887530IDS__IsMaintenanceDlg_Repair1033{&MSSansBold8}Re&pair01503887530IDS__IsMaintenanceDlg_RepairMessage1033Repair installation errors in the program. This option fixes missing or corrupt files, shortcuts, and registry entries.01503887530IDS__IsMaintenanceWelcome_MaintenanceOptionsDescription1033The InstallShield(R) Wizard will allow you to modify, repair, or remove [ProductName]. To continue, click Next.01503887530IDS__IsMaintenanceWelcome_WizardWelcome1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]01503887530IDS__IsMsiRMFilesInUse_ApplicationsUsingFiles1033The following applications are using files that need to be updated by this setup.01503887530IDS__IsMsiRMFilesInUse_CloseRestart1033Automatically close and attempt to restart applications.01503887530IDS__IsMsiRMFilesInUse_RebootAfter1033Do not close applications. (A reboot will be required.)01503887530IDS__IsPatchDlg_PatchClickUpdate1033The InstallShield(R) Wizard will install the Patch for [ProductName] on your computer. To continue, click Update.01503887530IDS__IsPatchDlg_PatchWizard1033[ProductName] Patch - InstallShield Wizard01503887530IDS__IsPatchDlg_Update1033&Update >01503887530IDS__IsPatchDlg_WelcomePatchWizard1033{&TahomaBold10}Welcome to the Patch for [ProductName]01503887530IDS__IsProgressDlg_2103301503887530IDS__IsProgressDlg_Hidden1033(Hidden for now)01503887530IDS__IsProgressDlg_HiddenTimeRemaining1033)Hidden for now)Estimated time remaining:01503887530IDS__IsProgressDlg_InstallingProductName1033{&MSSansBold8}Installing [ProductName]01503887530IDS__IsProgressDlg_ProgressDone1033Progress done01503887530IDS__IsProgressDlg_SecHidden1033(Hidden for now)Sec.01503887530IDS__IsProgressDlg_Status1033Status:01503887530IDS__IsProgressDlg_Uninstalling1033{&MSSansBold8}Uninstalling [ProductName]01503887530IDS__IsProgressDlg_UninstallingFeatures1033The program features you selected are being uninstalled.01503887530IDS__IsProgressDlg_UninstallingFeatures21033The program features you selected are being installed.01503887530IDS__IsProgressDlg_WaitUninstall1033Please wait while the InstallShield Wizard uninstalls [ProductName]. This may take several minutes.01503887530IDS__IsProgressDlg_WaitUninstall21033Please wait while the InstallShield Wizard installs [ProductName]. This may take several minutes.01503887530IDS__IsReadmeDlg_Cancel1033&Cancel01503887530IDS__IsReadmeDlg_PleaseReadInfo1033Please read the following readme information carefully.01503887530IDS__IsReadmeDlg_ReadMeInfo1033{&MSSansBold8}Readme Information01503887530IDS__IsRegisterUserDlg_16103301503887530IDS__IsRegisterUserDlg_Anyone1033&Anyone who uses this computer (all users)01503887530IDS__IsRegisterUserDlg_CustomerInformation1033{&MSSansBold8}Customer Information01503887530IDS__IsRegisterUserDlg_InstallFor1033Install this application for:01503887530IDS__IsRegisterUserDlg_OnlyMe1033Only for &me ([USERNAME])01503887530IDS__IsRegisterUserDlg_Organization1033&Organization:01503887530IDS__IsRegisterUserDlg_PleaseEnterInfo1033Please enter your information.01503887530IDS__IsRegisterUserDlg_SerialNumber1033&Serial Number:01503887530IDS__IsRegisterUserDlg_Tahoma501033{\Tahoma8}{50}01503887530IDS__IsRegisterUserDlg_Tahoma801033{\Tahoma8}{80}01503887530IDS__IsRegisterUserDlg_UserName1033&User Name:01503887530IDS__IsResumeDlg_ResumeSuspended1033The InstallShield(R) Wizard will complete the suspended installation of [ProductName] on your computer. To continue, click Next.01503887530IDS__IsResumeDlg_Resuming1033{&TahomaBold10}Resuming the InstallShield Wizard for [ProductName]01503887530IDS__IsResumeDlg_WizardResume1033The InstallShield(R) Wizard will complete the installation of [ProductName] on your computer. To continue, click Next.01503887530IDS__IsSelectDomainOrServer1033Select a Domain or Server01503887530IDS__IsSelectDomainUserInstructions1033Use the browse buttons to select a domain\server and a user name.01503887530IDS__IsSetupComplete_ShowMsiLog1033Show the Windows Installer log01503887530IDS__IsSetupTypeMinDlg_13103301503887530IDS__IsSetupTypeMinDlg_AllFeatures1033All program features will be installed. (Requires the most disk space.)01503887530IDS__IsSetupTypeMinDlg_ChooseFeatures1033Choose which program features you want installed and where they will be installed. Recommended for advanced users.01503887530IDS__IsSetupTypeMinDlg_ChooseSetupType1033Choose the setup type that best suits your needs.01503887530IDS__IsSetupTypeMinDlg_Complete1033{&MSSansBold8}&Complete01503887530IDS__IsSetupTypeMinDlg_Custom1033{&MSSansBold8}Cu&stom01503887530IDS__IsSetupTypeMinDlg_Minimal1033{&MSSansBold8}&Minimal01503887530IDS__IsSetupTypeMinDlg_MinimumFeatures1033Minimum required features will be installed.01503887530IDS__IsSetupTypeMinDlg_SelectSetupType1033Please select a setup type.01503887530IDS__IsSetupTypeMinDlg_SetupType1033{&MSSansBold8}Setup Type01503887530IDS__IsSetupTypeMinDlg_Typical1033{&MSSansBold8}&Typical01503887530IDS__IsUserExit_ClickFinish1033Click Finish to exit the wizard.01503887530IDS__IsUserExit_Finish1033&Finish01503887530IDS__IsUserExit_KeepOrRestore1033You can either keep any existing installed elements on your system to continue this installation at a later time or you can restore your system to its original state prior to the installation.01503887530IDS__IsUserExit_NotModified1033Your system has not been modified. To install this program at a later time, please run the installation again.01503887530IDS__IsUserExit_RestoreOrContinue1033Click Restore or Continue Later to exit the wizard.01503887530IDS__IsUserExit_WizardCompleted1033{&TahomaBold10}InstallShield Wizard Completed01503887530IDS__IsUserExit_WizardInterrupted1033The wizard was interrupted before [ProductName] could be completely installed.01503887530IDS__IsUserNameLabel1033&User name:01503887530IDS__IsVerifyReadyDlg_BackOrCancel1033If you want to review or change any of your installation settings, click Back. Click Cancel to exit the wizard.01503887530IDS__IsVerifyReadyDlg_ClickInstall1033Click Install to begin the installation.01503887530IDS__IsVerifyReadyDlg_Company1033Company: [COMPANYNAME]01503887530IDS__IsVerifyReadyDlg_CurrentSettings1033Current Settings:01503887530IDS__IsVerifyReadyDlg_DestFolder1033Destination Folder:01503887530IDS__IsVerifyReadyDlg_Install1033&Install01503887530IDS__IsVerifyReadyDlg_Installdir1033[INSTALLDIR]01503887530IDS__IsVerifyReadyDlg_ModifyReady1033{&MSSansBold8}Ready to Modify the Program01503887530IDS__IsVerifyReadyDlg_ReadyInstall1033{&MSSansBold8}Ready to Install the Program01503887530IDS__IsVerifyReadyDlg_ReadyRepair1033{&MSSansBold8}Ready to Repair the Program01503887530IDS__IsVerifyReadyDlg_SelectedSetupType1033[SelectedSetupType]01503887530IDS__IsVerifyReadyDlg_Serial1033Serial: [ISX_SERIALNUM]01503887530IDS__IsVerifyReadyDlg_SetupType1033Setup Type:01503887530IDS__IsVerifyReadyDlg_UserInfo1033User Information:01503887530IDS__IsVerifyReadyDlg_UserName1033Name: [USERNAME]01503887530IDS__IsVerifyReadyDlg_WizardReady1033The wizard is ready to begin installation.01503887530IDS__IsVerifyRemoveAllDlg_ChoseRemoveProgram1033You have chosen to remove the program from your system.01503887530IDS__IsVerifyRemoveAllDlg_ClickBack1033If you want to review or change any settings, click Back.01503887530IDS__IsVerifyRemoveAllDlg_ClickRemove1033Click Remove to remove [ProductName] from your computer. After removal, this program will no longer be available for use.01503887530IDS__IsVerifyRemoveAllDlg_Remove1033&Remove01503887530IDS__IsVerifyRemoveAllDlg_RemoveProgram1033{&MSSansBold8}Remove the Program01503887530IDS__IsWelcomeDlg_InstallProductName1033The InstallShield(R) Wizard will install [ProductName] on your computer. To continue, click Next.01503887530IDS__IsWelcomeDlg_WarningCopyright1033WARNING: This program is protected by copyright law and international treaties.01503887530IDS__IsWelcomeDlg_WelcomeProductName1033{&TahomaBold10}Welcome to the InstallShield Wizard for [ProductName]01503887530IDS__TargetReq_DESC_COLOR1033The color settings of your system are not adequate for running [ProductName].01503887530IDS__TargetReq_DESC_OS1033The operating system is not adequate for running [ProductName].01503887530IDS__TargetReq_DESC_PROCESSOR1033The processor is not adequate for running [ProductName].01503887530IDS__TargetReq_DESC_RAM1033The amount of RAM is not adequate for running [ProductName].01503887530IDS__TargetReq_DESC_RESOLUTION1033The screen resolution is not adequate for running [ProductName].01503887530ID_STRING11033http://www.DigitalData.com0-643589907ID_STRING21033Digital Data0-643589907ID_STRING31033Global Indexer01503869226IIDS_UITEXT_FeatureUninstalled1033This feature will remain uninstalled.01503887530
+ + + Name + Value + +
UniqueIdC1E97F35-922B-4FEE-99D6-6141DCB3175C
+ + + UpgradedImage_ + Name + MsiPath + Order + Flags + IgnoreMissingFiles +
+ + + UpgradeItem + ObjectSetupPath + ISReleaseFlags + ISAttributes +
+ + + Name + MsiPath + Family +
+ + + Directory_ + Name + Value +
+ + + File_ + Name + Value +
+ + + Name + Value +
+ + + Registry_ + Name + Value +
+ + + ISRelease_ + ISProductConfiguration_ + Name + Value +
+ + + Shortcut_ + Name + Value +
+ + + ISXmlElement + ISXmlFile_ + ISXmlElement_Parent + XPath + Content + ISAttributes +
+ + + ISXmlElementAttrib + ISXmlElement_ + Name + Value + ISAttributes +
+ + + ISXmlFile + FileName + Component_ + Directory + ISAttributes + SelectionNamespaces + Encoding +
+ + + Signature_ + Parent + Element + Attribute + ISAttributes +
+ + + Name + Data + ISBuildSourcePath + ISIconIndex + + + +
ARPPRODUCTICON.exeS:\DIGITAL DATA\DIGITAL DATA - Logo und Schilder\Grafiken zu Themen\DMS\globe_handdrawn.ico0_Built1_D00A8BA3069842D2BAD315B6149443C5.exeS:\DIGITAL DATA\DIGITAL DATA - Logo und Schilder\Grafiken zu Themen\DMS\globe_handdrawn.ico0_Built_1195A8677AA24668B2A558A6E71A494A.exeS:\DIGITAL DATA\DIGITAL DATA - Logo und Schilder\Grafiken zu Themen\DMS\globe_handdrawn.ico0
+ + + IniFile + FileName + DirProperty + Section + Key + Value + Action + Component_ +
+ + + Signature_ + FileName + Section + Key + Field + Type +
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
AllocateRegistrySpaceNOT Installed1550AllocateRegistrySpace + AppSearch400AppSearch + BindImage4300BindImage + CCPSearchCCP_TEST500CCPSearch + CostFinalize1000CostFinalize + CostInitialize800CostInitialize + CreateFolders3700CreateFolders + CreateShortcuts4500CreateShortcuts + DeleteServicesVersionNT2000DeleteServices + DuplicateFiles4210DuplicateFiles + FileCost900FileCost + FindRelatedProductsNOT ISSETUPDRIVEN420FindRelatedProducts + ISPreventDowngradeISFOUNDNEWERPRODUCTVERSION450ISPreventDowngrade + ISRunSetupTypeAddLocalEventNot Installed And Not ISRUNSETUPTYPEADDLOCALEVENT1050ISRunSetupTypeAddLocalEvent + ISSelfRegisterCosting2201 + ISSelfRegisterFiles5601 + ISSelfRegisterFinalize6601 + ISUnSelfRegisterFiles2202 + InstallFiles4000InstallFiles + InstallFinalize6600InstallFinalize + InstallInitialize1501InstallInitialize + InstallODBC5400InstallODBC + InstallServicesVersionNT5800InstallServices + InstallValidate1400InstallValidate + IsolateComponents950IsolateComponents + LaunchConditionsNot Installed410LaunchConditions + MigrateFeatureStates1010MigrateFeatureStates + MoveFiles3800MoveFiles + MsiConfigureServicesVersionMsi >= "5.00"5850MSI5 MsiConfigureServices + MsiPublishAssemblies6250MsiPublishAssemblies + MsiUnpublishAssemblies1750MsiUnpublishAssemblies + PatchFiles4090PatchFiles + ProcessComponents1600ProcessComponents + PublishComponents6200PublishComponents + PublishFeatures6300PublishFeatures + PublishProduct6400PublishProduct + RMCCPSearchNot CCP_SUCCESS And CCP_TEST600RMCCPSearch + RegisterClassInfo4600RegisterClassInfo + RegisterComPlus5700RegisterComPlus + RegisterExtensionInfo4700RegisterExtensionInfo + RegisterFonts5300RegisterFonts + RegisterMIMEInfo4900RegisterMIMEInfo + RegisterProduct6100RegisterProduct + RegisterProgIdInfo4800RegisterProgIdInfo + RegisterTypeLibraries5500RegisterTypeLibraries + RegisterUser6000RegisterUser + RemoveDuplicateFiles3400RemoveDuplicateFiles + RemoveEnvironmentStrings3300RemoveEnvironmentStrings + RemoveExistingProducts1410RemoveExistingProducts + RemoveFiles3500RemoveFiles + RemoveFolders3600RemoveFolders + RemoveIniValues3100RemoveIniValues + RemoveODBC2400RemoveODBC + RemoveRegistryValues2600RemoveRegistryValues + RemoveShortcuts3200RemoveShortcuts + ResolveSourceNot Installed850ResolveSource + ScheduleRebootISSCHEDULEREBOOT6410ScheduleReboot + SelfRegModules5600SelfRegModules + SelfUnregModules2200SelfUnregModules + SetARPINSTALLLOCATION1100SetARPINSTALLLOCATION + SetAllUsersProfileNTVersionNT = 400970 + SetODBCFolders1200SetODBCFolders + StartServicesVersionNT5900StartServices + StopServicesVersionNT1900StopServices + UnpublishComponents1700UnpublishComponents + UnpublishFeatures1800UnpublishFeatures + UnregisterClassInfo2700UnregisterClassInfo + UnregisterComPlus2100UnregisterComPlus + UnregisterExtensionInfo2800UnregisterExtensionInfo + UnregisterFonts2500UnregisterFonts + UnregisterMIMEInfo3000UnregisterMIMEInfo + UnregisterProgIdInfo2900UnregisterProgIdInfo + UnregisterTypeLibraries2300UnregisterTypeLibraries + ValidateProductID700ValidateProductID + WriteEnvironmentStrings5200WriteEnvironmentStrings + WriteIniValues5100WriteIniValues + WriteRegistryValues5000WriteRegistryValues + setAllUsersProfile2KVersionNT >= 500980 + setUserProfileNTVersionNT960 +
+ + + Property + Value + + + + + + + + + + + + + + + + + + + + + + + + +
ActiveLanguage1033Comments + CurrentMedia +UwBpAG4AZwBsAGUASQBtAGEAZwBlAAEARQB4AHAAcgBlAHMAcwA= + DefaultProductConfigurationExpressEnableSwidtag1ISCompilerOption_CompileBeforeBuild1ISCompilerOption_Debug0ISCompilerOption_IncludePath + ISCompilerOption_LibraryPath + ISCompilerOption_MaxErrors50ISCompilerOption_MaxWarnings50ISCompilerOption_OutputPath<ISProjectDataFolder>\Script FilesISCompilerOption_PreProcessor_ISSCRIPT_NEW_STYLE_DLG_DEFSISCompilerOption_WarningLevel3ISCompilerOption_WarningsAsErrors1ISThemeInstallShield Blue.themeISUSLock{78C17D9E-D6DB-4DD5-9137-1F1D373E6742}ISUSSignature{4B314A6D-A9A4-44E7-ABFB-6D6A1E735FA1}ISVisitedViewsviewAssistantLimited1LockPermissionMode1MsiExecCmdLineOptions + MsiLogFile + OnUpgrade0Owner + PatchFamilyMyPatchFamily1PatchSequence1.0.0SaveAsSchema + SccEnabled0SccPath + SchemaVersion774TypeMSIE
+ + + Action + Condition + Sequence + ISComments + ISAttributes +
AppSearch400AppSearch + CCPSearchCCP_TEST500CCPSearch + CostFinalize1000CostFinalize + CostInitialize800CostInitialize + ExecuteAction1300ExecuteAction + FileCost900FileCost + FindRelatedProducts430FindRelatedProducts + ISPreventDowngradeISFOUNDNEWERPRODUCTVERSION450ISPreventDowngrade + InstallWelcomeNot Installed1210InstallWelcome + IsolateComponents950IsolateComponents + LaunchConditionsNot Installed410LaunchConditions + MaintenanceWelcomeInstalled And Not RESUME And Not Preselected And Not PATCH1230MaintenanceWelcome + MigrateFeatureStates1200MigrateFeatureStates + PatchWelcomeInstalled And PATCH And Not IS_MAJOR_UPGRADE1205Patch Panel + RMCCPSearchNot CCP_SUCCESS And CCP_TEST600RMCCPSearch + ResolveSourceNot Installed990ResolveSource + SetAllUsersProfileNTVersionNT = 400970 + SetupCompleteError-3SetupCompleteError + SetupCompleteSuccess-1SetupCompleteSuccess + SetupInitialization420SetupInitialization + SetupInterrupted-2SetupInterrupted + SetupProgress1240SetupProgress + SetupResumeInstalled And (RESUME Or Preselected) And Not PATCH1220SetupResume + ValidateProductID700ValidateProductID + setAllUsersProfile2KVersionNT >= 500980 + setUserProfileNTVersionNT960 +
+ + + Component_Shared + Component_Application +
+ + + Condition + Description + +
DOTNETVERSION45FULL>="#1"##IDPROP_EXPRESS_LAUNCH_CONDITION_DOTNETVERSION45FULL##
+ + + Property + Order + Value + Text +
+ + + Property + Order + Value + Text + Binary_ +
+ + + LockObject + Table + Domain + User + Permission +
+ + + ContentType + Extension_ + CLSID +
+ + + DiskId + LastSequence + DiskPrompt + Cabinet + VolumeLabel + Source +
+ + + FileKey + Component_ + SourceName + DestName + SourceFolder + DestFolder + Options +
+ + + Component_ + Feature_ + File_Manifest + File_Application + Attributes +
+ + + Component_ + Name + Value +
+ + + DigitalCertificate + CertData +
+ + + Table + SignObject + DigitalCertificate_ + Hash +
+ + + Component + Flags + Sequence + ReferenceComponents +
+ + + MsiEmbeddedChainer + Condition + CommandLine + Source + Type +
+ + + MsiEmbeddedUI + FileName + Attributes + MessageFilter + Data + ISBuildSourcePath +
+ + + File_ + Options + HashPart1 + HashPart2 + HashPart3 + HashPart4 +
+ + + MsiLockPermissionsEx + LockObject + Table + SDDLText + Condition +
+ + + PackageCertificate + DigitalCertificate_ +
+ + + PatchCertificate + DigitalCertificate_ +
+ + + PatchConfiguration_ + Company + Property + Value +
+ + + File_ + Assembly_ +
+ + + Assembly + Name + Value +
+ + + PatchConfiguration_ + PatchFamily + Target + Sequence + Supersede +
+ + + MsiServiceConfig + Name + Event + ConfigType + Argument + Component_ +
+ + + MsiServiceConfigFailureActions + Name + Event + ResetPeriod + RebootMessage + Command + Actions + DelayActions + Component_ +
+ + + MsiShortcutProperty + Shortcut_ + PropertyKey + PropVariantValue +
+ + + Driver_ + Attribute + Value +
+ + + DataSource + Component_ + Description + DriverDescription + Registration +
+ + + Driver + Component_ + Description + File_ + File_Setup +
+ + + DataSource_ + Attribute + Value +
+ + + Translator + Component_ + Description + File_ + File_Setup +
+ + + File_ + Sequence + PatchSize + Attributes + Header + StreamRef_ + ISBuildSourcePath +
+ + + PatchId + Media_ +
+ + + ProgId + ProgId_Parent + Class_ + Description + Icon_ + IconIndex + ISAttributes +
+ + + Property + Value + ISComments +
ALLUSERS1 + ARPINSTALLLOCATION + ARPPRODUCTICONARPPRODUCTICON.exe + ARPSIZE + ARPURLINFOABOUT##ID_STRING1## + AgreeToLicenseNo + ApplicationUsersAllUsers + DWUSINTERVAL30 + DWUSLINKCE9C3088CE9CC77FDEACC77F9ECB978FC9BCB78F499BC0D8CEDCB7FF9E8CB0CFA99C80D8FEAC + DefaultUIFontExpressDefault + DialogCaptionInstallShield for Windows Installer + DiskPrompt[1] + DiskSerial1234-5678 + DisplayNameCustom##IDS__DisplayName_Custom## + DisplayNameMinimal##IDS__DisplayName_Minimal## + DisplayNameTypical##IDS__DisplayName_Typical## + Display_IsBitmapDlg1 + ErrorDialogSetupError + INSTALLLEVEL200 + ISCHECKFORPRODUCTUPDATES1 + ISENABLEDWUSFINISHDIALOG + ISSHOWMSILOG + ISVROOT_PORT_NO0 + IS_COMPLUS_PROGRESSTEXT_COST##IDS_COMPLUS_PROGRESSTEXT_COST## + IS_COMPLUS_PROGRESSTEXT_INSTALL##IDS_COMPLUS_PROGRESSTEXT_INSTALL## + IS_COMPLUS_PROGRESSTEXT_UNINSTALL##IDS_COMPLUS_PROGRESSTEXT_UNINSTALL## + IS_PREVENT_DOWNGRADE_EXIT##IDS_PREVENT_DOWNGRADE_EXIT## + IS_PROGMSG_TEXTFILECHANGS_REPLACE##IDS_PROGMSG_TEXTFILECHANGS_REPLACE## + IS_PROGMSG_XML_COSTING##IDS_PROGMSG_XML_COSTING## + IS_PROGMSG_XML_CREATE_FILE##IDS_PROGMSG_XML_CREATE_FILE## + IS_PROGMSG_XML_FILES##IDS_PROGMSG_XML_FILES## + IS_PROGMSG_XML_REMOVE_FILE##IDS_PROGMSG_XML_REMOVE_FILE## + IS_PROGMSG_XML_ROLLBACK_FILES##IDS_PROGMSG_XML_ROLLBACK_FILES## + IS_PROGMSG_XML_UPDATE_FILE##IDS_PROGMSG_XML_UPDATE_FILE## + IS_SQLSERVER_AUTHENTICATION0 + IS_SQLSERVER_DATABASE + IS_SQLSERVER_PASSWORD + IS_SQLSERVER_SERVER + IS_SQLSERVER_USERNAMEsa + InstallChoiceAR + LAUNCHPROGRAM1 + LAUNCHREADME1 + Manufacturer##COMPANY_NAME## + PIDKEY + PIDTemplate12345<###-%%%%%%%>@@@@@ + PROGMSG_IIS_CREATEAPPPOOL##IDS_PROGMSG_IIS_CREATEAPPPOOL## + PROGMSG_IIS_CREATEAPPPOOLS##IDS_PROGMSG_IIS_CREATEAPPPOOLS## + PROGMSG_IIS_CREATEVROOT##IDS_PROGMSG_IIS_CREATEVROOT## + PROGMSG_IIS_CREATEVROOTS##IDS_PROGMSG_IIS_CREATEVROOTS## + PROGMSG_IIS_CREATEWEBSERVICEEXTENSION##IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSION## + PROGMSG_IIS_CREATEWEBSERVICEEXTENSIONS##IDS_PROGMSG_IIS_CREATEWEBSERVICEEXTENSIONS## + PROGMSG_IIS_CREATEWEBSITE##IDS_PROGMSG_IIS_CREATEWEBSITE## + PROGMSG_IIS_CREATEWEBSITES##IDS_PROGMSG_IIS_CREATEWEBSITES## + PROGMSG_IIS_EXTRACT##IDS_PROGMSG_IIS_EXTRACT## + PROGMSG_IIS_EXTRACTDONE##IDS_PROGMSG_IIS_EXTRACTDONE## + PROGMSG_IIS_EXTRACTDONEz##IDS_PROGMSG_IIS_EXTRACTDONE## + PROGMSG_IIS_EXTRACTzDONE##IDS_PROGMSG_IIS_EXTRACTDONE## + PROGMSG_IIS_REMOVEAPPPOOL##IDS_PROGMSG_IIS_REMOVEAPPPOOL## + PROGMSG_IIS_REMOVEAPPPOOLS##IDS_PROGMSG_IIS_REMOVEAPPPOOLS## + PROGMSG_IIS_REMOVESITE##IDS_PROGMSG_IIS_REMOVESITE## + PROGMSG_IIS_REMOVEVROOT##IDS_PROGMSG_IIS_REMOVEVROOT## + PROGMSG_IIS_REMOVEVROOTS##IDS_PROGMSG_IIS_REMOVEVROOTS## + PROGMSG_IIS_REMOVEWEBSERVICEEXTENSION##IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSION## + PROGMSG_IIS_REMOVEWEBSERVICEEXTENSIONS##IDS_PROGMSG_IIS_REMOVEWEBSERVICEEXTENSIONS## + PROGMSG_IIS_REMOVEWEBSITES##IDS_PROGMSG_IIS_REMOVEWEBSITES## + PROGMSG_IIS_ROLLBACKAPPPOOLS##IDS_PROGMSG_IIS_ROLLBACKAPPPOOLS## + PROGMSG_IIS_ROLLBACKVROOTS##IDS_PROGMSG_IIS_ROLLBACKVROOTS## + PROGMSG_IIS_ROLLBACKWEBSERVICEEXTENSIONS##IDS_PROGMSG_IIS_ROLLBACKWEBSERVICEEXTENSIONS## + ProductCode{5C6FE794-7B9A-4AAD-8C42-E7F4DD188785} + ProductNameGlobal Indexer + ProductVersion1.00.0000 + ProgressType0install + ProgressType1Installing + ProgressType2installed + ProgressType3installs + RebootYesNoYes + ReinstallFileVersiono + ReinstallModeTextomus + ReinstallRepairr + RestartManagerOptionCloseRestart + SERIALNUMBER + SERIALNUMVALSUCCESSRETVAL1 + SecureCustomPropertiesISFOUNDNEWERPRODUCTVERSION;USERNAME;COMPANYNAME;ISX_SERIALNUM;SUPPORTDIR;DOTNETVERSION45FULL + SelectedSetupType##IDS__DisplayName_Typical## + SetupTypeTypical + UpgradeCode{D87437ED-1FE0-4186-B1D7-94A9ACCE32F3} + _IsMaintenanceChange + _IsSetupTypeMinTypical +
+ + + ComponentId + Qualifier + Component_ + AppData + Feature_ +
+ + + Property + Order + Value + X + Y + Width + Height + Text + Help + ISControlId +
AgreeToLicense1No01529115##IDS__AgreeToLicense_0## + AgreeToLicense2Yes0029115##IDS__AgreeToLicense_1## + ApplicationUsers1AllUsers1729014##IDS__IsRegisterUserDlg_Anyone## + ApplicationUsers2OnlyCurrentUser12329014##IDS__IsRegisterUserDlg_OnlyMe## + RestartManagerOption1CloseRestart6933114##IDS__IsMsiRMFilesInUse_CloseRestart## + RestartManagerOption2Reboot62133114##IDS__IsMsiRMFilesInUse_RebootAfter## + _IsMaintenance1Change0029014##IDS__IsMaintenanceDlg_Modify## + _IsMaintenance2Reinstall06029014##IDS__IsMaintenanceDlg_Repair## + _IsMaintenance3Remove012029014##IDS__IsMaintenanceDlg_Remove## + _IsSetupTypeMin1Typical1626414##IDS__IsSetupTypeMinDlg_Typical## +
+ + + Signature_ + Root + Key + Name + Type + +
DotNet45Full2SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\FullVersion2
+ + + Registry + Root + Key + Name + Value + Component_ + ISAttributes +
+ + + FileKey + Component_ + FileName + DirProperty + InstallMode + + + +
FileKey1Global_Indexer.Prim_re_Ausgabedigita_1_digital_data2FileKey2Global_Indexer.Prim_re_Ausgabeglobal_1_global_indexer2_BuiltGlobal_Indexer.Prim_re_Ausgabeglobal_1_global_indexer2
+ + + RemoveIniFile + FileName + DirProperty + Section + Key + Value + Action + Component_ +
+ + + RemoveRegistry + Root + Key + Name + Component_ +
+ + + ReserveKey + Component_ + ReserveFolder + ReserveLocal + ReserveSource +
+ + + SFPCatalog + Catalog + Dependency +
+ + + File_ + Cost +
+ + + ServiceControl + Name + Event + Arguments + Wait + Component_ +
+ + + ServiceInstall + Name + DisplayName + ServiceType + StartType + ErrorControl + LoadOrderGroup + Dependencies + StartName + Password + Arguments + Component_ + Description +
+ + + Shortcut + Directory_ + Name + Component_ + Target + Arguments + Description + Hotkey + Icon_ + IconIndex + ShowCmd + WkDir + DisplayResourceDLL + DisplayResourceId + DescriptionResourceDLL + DescriptionResourceId + ISComments + ISShortcutName + ISAttributes +
_Builtglobal_1_global_indexer##IDS_SHORTCUT_DISPLAY_NAME1##Global_Indexer.Prim_re_AusgabeAlwaysInstall_Built_1195A8677AA24668B2A558A6E71A494A.exe01 + _Built1DesktopFolder##IDS_SHORTCUT_DISPLAY_NAME1##Global_Indexer.Prim_re_AusgabeAlwaysInstall_Built1_D00A8BA3069842D2BAD315B6149443C5.exe01 +
+ + + Signature + FileName + MinVersion + MaxVersion + MinSize + MaxSize + MinDate + MaxDate + Languages +
+ + + TextStyle + FaceName + Size + Color + StyleBits + + + + + + + +
Arial8Arial8 + Arial9Arial9 + ArialBlue10Arial1016711680 + ArialBlueStrike10Arial10167116808CourierNew8Courier New8 + CourierNew9Courier New9 + ExpressDefaultTahoma8 + MSGothic9MS Gothic9 + MSSGreySerif8MS Sans Serif88421504 + MSSWhiteSerif8Tahoma816777215 + MSSansBold8Tahoma81MSSansSerif8MS Sans Serif8 + MSSansSerif9MS Sans Serif9 + Tahoma10Tahoma10 + Tahoma8Tahoma8 + Tahoma9Tahoma9 + TahomaBold10Tahoma101TahomaBold8Tahoma81Times8Times New Roman8 + Times9Times New Roman9 + TimesItalic12Times New Roman122TimesItalicBlue10Times New Roman10167116802TimesRed16Times New Roman16255 + VerdanaBold14Verdana131
+ + + LibID + Language + Component_ + Version + Description + Directory_ + Feature_ + Cost +
+ + + Key + Text + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
AbsentPath + GB##IDS_UITEXT_GB##KB##IDS_UITEXT_KB##MB##IDS_UITEXT_MB##MenuAbsent##IDS_UITEXT_FeatureNotAvailable##MenuAdvertise##IDS_UITEXT_FeatureInstalledWhenRequired2##MenuAllCD##IDS_UITEXT_FeatureInstalledCD##MenuAllLocal##IDS_UITEXT_FeatureInstalledLocal##MenuAllNetwork##IDS_UITEXT_FeatureInstalledNetwork##MenuCD##IDS_UITEXT_FeatureInstalledCD2##MenuLocal##IDS_UITEXT_FeatureInstalledLocal2##MenuNetwork##IDS_UITEXT_FeatureInstalledNetwork2##NewFolder##IDS_UITEXT_Folder##SelAbsentAbsent##IDS_UITEXT_GB##SelAbsentAdvertise##IDS_UITEXT_FeatureInstalledWhenRequired##SelAbsentCD##IDS_UITEXT_FeatureOnCD##SelAbsentLocal##IDS_UITEXT_FeatureLocal##SelAbsentNetwork##IDS_UITEXT_FeatureNetwork##SelAdvertiseAbsent##IDS_UITEXT_FeatureUnavailable##SelAdvertiseAdvertise##IDS_UITEXT_FeatureInstalledRequired##SelAdvertiseCD##IDS_UITEXT_FeatureOnCD2##SelAdvertiseLocal##IDS_UITEXT_FeatureLocal2##SelAdvertiseNetwork##IDS_UITEXT_FeatureNetwork2##SelCDAbsent##IDS_UITEXT_FeatureWillBeUninstalled##SelCDAdvertise##IDS_UITEXT_FeatureWasCD##SelCDCD##IDS_UITEXT_FeatureRunFromCD##SelCDLocal##IDS_UITEXT_FeatureWasCDLocal##SelChildCostNeg##IDS_UITEXT_FeatureFreeSpace##SelChildCostPos##IDS_UITEXT_FeatureRequiredSpace##SelCostPending##IDS_UITEXT_CompilingFeaturesCost##SelLocalAbsent##IDS_UITEXT_FeatureCompletelyRemoved##SelLocalAdvertise##IDS_UITEXT_FeatureRemovedUnlessRequired##SelLocalCD##IDS_UITEXT_FeatureRemovedCD##SelLocalLocal##IDS_UITEXT_FeatureRemainLocal##SelLocalNetwork##IDS_UITEXT_FeatureRemoveNetwork##SelNetworkAbsent##IDS_UITEXT_FeatureUninstallNoNetwork##SelNetworkAdvertise##IDS_UITEXT_FeatureWasOnNetworkInstalled##SelNetworkLocal##IDS_UITEXT_FeatureWasOnNetworkLocal##SelNetworkNetwork##IDS_UITEXT_FeatureContinueNetwork##SelParentCostNegNeg##IDS_UITEXT_FeatureSpaceFree##SelParentCostNegPos##IDS_UITEXT_FeatureSpaceFree2##SelParentCostPosNeg##IDS_UITEXT_FeatureSpaceFree3##SelParentCostPosPos##IDS_UITEXT_FeatureSpaceFree4##TimeRemaining##IDS_UITEXT_TimeRemaining##VolumeCostAvailable##IDS_UITEXT_Available##VolumeCostDifference##IDS_UITEXT_Differences##VolumeCostRequired##IDS_UITEXT_Required##VolumeCostSize##IDS_UITEXT_DiskSize##VolumeCostVolume##IDS_UITEXT_Volume##bytes##IDS_UITEXT_Bytes##
+ + + UpgradeCode + VersionMin + VersionMax + Language + Attributes + Remove + ActionProperty + ISDisplayName + +
{00000000-0000-0000-0000-000000000000}***ALL_VERSIONS***2ISFOUNDNEWERPRODUCTVERSIONISPreventDowngrade
+ + + Extension_ + Verb + Sequence + Command + Argument +
+ + + Table + Column + Nullable + MinValue + MaxValue + KeyTable + KeyColumn + Category + Set + Description + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
ActionTextActionNIdentifierName of action to be described.ActionTextDescriptionYTextLocalized description displayed in progress dialog and log when action is executing.ActionTextTemplateYTemplateOptional localized format template used to format action data records for display during action execution.AdminExecuteSequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdminExecuteSequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdminExecuteSequenceISAttributesYThis is used to store MM Custom Action TypesAdminExecuteSequenceISCommentsYTextAuthor’s comments on this Sequence.AdminExecuteSequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AdminUISequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdminUISequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdminUISequenceISAttributesYThis is used to store MM Custom Action TypesAdminUISequenceISCommentsYTextAuthor’s comments on this Sequence.AdminUISequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AdvtExecuteSequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdvtExecuteSequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdvtExecuteSequenceISAttributesYThis is used to store MM Custom Action TypesAdvtExecuteSequenceISCommentsYTextAuthor’s comments on this Sequence.AdvtExecuteSequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AdvtUISequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.AdvtUISequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.AdvtUISequenceISAttributesYThis is used to store MM Custom Action TypesAdvtUISequenceISCommentsYTextAuthor’s comments on this Sequence.AdvtUISequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.AppIdActivateAtStorageY01 + AppIdAppIdNGuid + AppIdDllSurrogateYText + AppIdLocalServiceYText + AppIdRemoteServerNameYFormatted + AppIdRunAsInteractiveUserY01 + AppIdServiceParametersYText + AppSearchPropertyNIdentifierThe property associated with a SignatureAppSearchSignature_NISXmlLocator;Signature1IdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature, RegLocator, IniLocator, CompLocator and the DrLocator tables.BBControlAttributesY02147483647A 32-bit word that specifies the attribute flags to be applied to this control.BBControlBBControlNIdentifierName of the control. This name must be unique within a billboard, but can repeat on different billboard.BBControlBillboard_NBillboard1IdentifierExternal key to the Billboard table, name of the billboard.BBControlHeightN032767Height of the bounding rectangle of the control.BBControlTextYTextA string used to set the initial text contained within a control (if appropriate).BBControlTypeNIdentifierThe type of the control.BBControlWidthN032767Width of the bounding rectangle of the control.BBControlXN032767Horizontal coordinate of the upper left corner of the bounding rectangle of the control.BBControlYN032767Vertical coordinate of the upper left corner of the bounding rectangle of the control.BillboardActionYIdentifierThe name of an action. The billboard is displayed during the progress messages received from this action.BillboardBillboardNIdentifierName of the billboard.BillboardFeature_NFeature1IdentifierAn external key to the Feature Table. The billboard is shown only if this feature is being installed.BillboardOrderingY032767A positive integer. If there is more than one billboard corresponding to an action they will be shown in the order defined by this column.BinaryDataYBinaryBinary stream. The binary icon data in PE (.DLL or .EXE) or icon (.ICO) format.BinaryISBuildSourcePathYTextFull path to the ICO or EXE file.BinaryNameNIdentifierUnique key identifying the binary data.BindImageFile_NFile1IdentifierThe index into the File table. This must be an executable file.BindImagePathYPathsA list of ; delimited paths that represent the paths to be searched for the import DLLS. The list is usually a list of properties each enclosed within square brackets [] .CCPSearchSignature_NSignature1IdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature, RegLocator, IniLocator, CompLocator and the DrLocator tables.CheckBoxPropertyNIdentifierA named property to be tied to the item.CheckBoxValueYFormattedThe value string associated with the item.ClassAppId_YAppId1GuidOptional AppID containing DCOM information for associated application (string GUID).ClassArgumentYFormattedoptional argument for LocalServers.ClassAttributesY32767Class registration attributes.ClassCLSIDNGuidThe CLSID of an OLE factory.ClassComponent_NComponent1IdentifierRequired foreign key into the Component Table, specifying the component for which to return a path when called through LocateComponent.ClassContextNIdentifierThe numeric server context for this server. CLSCTX_xxxxClassDefInprocHandlerYText1;2;3Optional default inproc handler. Only optionally provided if Context=CLSCTX_LOCAL_SERVER. Typically "ole32.dll" or "mapi32.dll"ClassDescriptionYTextLocalized description for the Class.ClassFeature_NFeature1IdentifierRequired foreign key into the Feature Table, specifying the feature to validate or install in order for the CLSID factory to be operational.ClassFileTypeMaskYTextOptional string containing information for the HKCRthis CLSID) key. If multiple patterns exist, they must be delimited by a semicolon, and numeric subkeys will be generated: 0,1,2...ClassIconIndexY-3276732767Optional icon index.ClassIcon_YIcon1IdentifierOptional foreign key into the Icon Table, specifying the icon file associated with this CLSID. Will be written under the DefaultIcon key.ClassProgId_DefaultYProgId1TextOptional ProgId associated with this CLSID.ComboBoxOrderN132767A positive integer used to determine the ordering of the items within one list. The integers do not have to be consecutive.ComboBoxPropertyNIdentifierA named property to be tied to this item. All the items tied to the same property become part of the same combobox.ComboBoxTextYFormattedThe visible text to be assigned to the item. Optional. If this entry or the entire column is missing, the text is the same as the value.ComboBoxValueNFormattedThe value string associated with this item. Selecting the line will set the associated property to this value.CompLocatorComponentIdNGuidA string GUID unique to this component, version, and language.CompLocatorSignature_NSignature1IdentifierThe table key. The Signature_ represents a unique file signature and is also the foreign key in the Signature table.CompLocatorTypeY01A boolean value that determines if the registry value is a filename or a directory location.ComplusComponent_NComponent1IdentifierForeign key referencing Component that controls the ComPlus component.ComplusExpTypeY032767ComPlus component attributes.ComponentAttributesNRemote execution option, one of irsEnumComponentComponentNIdentifierPrimary key used to identify a particular component record.ComponentComponentIdYGuidA string GUID unique to this component, version, and language.ComponentConditionYConditionA conditional statement that will disable this component if the specified condition evaluates to the 'True' state. If a component is disabled, it will not be installed, regardless of the 'Action' state associated with the component.ComponentDirectory_NDirectory1IdentifierRequired key of a Directory table record. This is actually a property name whose value contains the actual path, set either by the AppSearch action or with the default setting obtained from the Directory table.ComponentISAttributesYThis is used to store Installshield custom properties of a component.ComponentISCommentsYTextUser Comments.ComponentISDotNetInstallerArgsCommitYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISDotNetInstallerArgsInstallYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISDotNetInstallerArgsRollbackYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISDotNetInstallerArgsUninstallYTextArguments passed to the key file of the component if if implements the .NET Installer classComponentISRegFileToMergeAtBuildYTextPath and File name of a .REG file to merge into the component at build time.ComponentISScanAtBuildFileYTextFile used by the Dot Net scanner to populate dependant assemblies' File_Application field.ComponentKeyPathYFile;ODBCDataSource;Registry1IdentifierEither the primary key into the File table, Registry table, or ODBCDataSource table. This extract path is stored when the component is installed, and is used to detect the presence of the component and to return the path to it.ConditionConditionYConditionExpression evaluated to determine if Level in the Feature table is to change.ConditionFeature_NFeature1IdentifierReference to a Feature entry in Feature table.ConditionLevelN032767New selection Level to set in Feature table if Condition evaluates to TRUE.ControlAttributesY02147483647A 32-bit word that specifies the attribute flags to be applied to this control.ControlBinary_YBinary1IdentifierExternal key to the Binary table.ControlControlNIdentifierName of the control. This name must be unique within a dialog, but can repeat on different dialogs.ControlControl_NextYControl2IdentifierThe name of an other control on the same dialog. This link defines the tab order of the controls. The links have to form one or more cycles!ControlDialog_NDialog1IdentifierExternal key to the Dialog table, name of the dialog.ControlHeightN032767Height of the bounding rectangle of the control.ControlHelpYTextThe help strings used with the button. The text is optional.ControlISBuildSourcePathYTextFull path to .rtf file for scrollable text controlControlISControlIdYA number used to represent the control ID of the Control, Used in Dialog exportControlISWindowStyleY02147483647A 32-bit word that specifies non-MSI window styles to be applied to this control.ControlPropertyYIdentifierThe name of a defined property to be linked to this control.ControlTextYFormattedA string used to set the initial text contained within a control (if appropriate).ControlTypeNIdentifierThe type of the control.ControlWidthN032767Width of the bounding rectangle of the control.ControlXN032767Horizontal coordinate of the upper left corner of the bounding rectangle of the control.ControlYN032767Vertical coordinate of the upper left corner of the bounding rectangle of the control.ControlConditionActionNDefault;Disable;Enable;Hide;ShowThe desired action to be taken on the specified control.ControlConditionConditionNConditionA standard conditional statement that specifies under which conditions the action should be triggered.ControlConditionControl_NControl2IdentifierA foreign key to the Control table, name of the control.ControlConditionDialog_NDialog1IdentifierA foreign key to the Dialog table, name of the dialog.ControlEventArgumentNFormattedA value to be used as a modifier when triggering a particular event.ControlEventConditionYConditionA standard conditional statement that specifies under which conditions an event should be triggered.ControlEventControl_NControl2IdentifierA foreign key to the Control table, name of the controlControlEventDialog_NDialog1IdentifierA foreign key to the Dialog table, name of the dialog.ControlEventEventNFormattedAn identifier that specifies the type of the event that should take place when the user interacts with control specified by the first two entries.ControlEventOrderingY02147483647An integer used to order several events tied to the same control. Can be left blank.CreateFolderComponent_NComponent1IdentifierForeign key into the Component table.CreateFolderDirectory_NDirectory1IdentifierPrimary key, could be foreign key into the Directory table.CustomActionActionNIdentifierPrimary key, name of action, normally appears in sequence table unless private use.CustomActionExtendedTypeY02147483647The numeric custom action type info flags.CustomActionISCommentsYTextAuthor’s comments for this custom action.CustomActionSourceYCustomSourceThe table reference of the source of the code.CustomActionTargetYISDLLWrapper;ISInstallScriptAction1FormattedExcecution parameter, depends on the type of custom actionCustomActionTypeN132767The numeric custom action type, consisting of source location, code type, entry, option flags.DialogAttributesY02147483647A 32-bit word that specifies the attribute flags to be applied to this dialog.DialogControl_CancelYControl2IdentifierDefines the cancel control. Hitting escape or clicking on the close icon on the dialog is equivalent to pushing this button.DialogControl_DefaultYControl2IdentifierDefines the default control. Hitting return is equivalent to pushing this button.DialogControl_FirstNControl2IdentifierDefines the control that has the focus when the dialog is created.DialogDialogNIdentifierName of the dialog.DialogHCenteringN0100Horizontal position of the dialog on a 0-100 scale. 0 means left end, 100 means right end of the screen, 50 center.DialogHeightN032767Height of the bounding rectangle of the dialog.DialogISCommentsYTextAuthor’s comments for this dialog.DialogISResourceIdYA Number the Specifies the Dialog ID to be used in Dialog ExportDialogISWindowStyleYA 32-bit word that specifies non-MSI window styles to be applied to this control. This is only used in Script Based Setups.DialogTextStyle_YIdentifierForeign Key into TextStyle table, only used in Script Based Projects.DialogTitleYFormattedA text string specifying the title to be displayed in the title bar of the dialog's window.DialogVCenteringN0100Vertical position of the dialog on a 0-100 scale. 0 means top end, 100 means bottom end of the screen, 50 center.DialogWidthN032767Width of the bounding rectangle of the dialog.DirectoryDefaultDirNTextThe default sub-path under parent's path.DirectoryDirectoryNIdentifierUnique identifier for directory entry, primary key. If a property by this name is defined, it contains the full path to the directory.DirectoryDirectory_ParentYDirectory1IdentifierReference to the entry in this table specifying the default parent directory. A record parented to itself or with a Null parent represents a root of the install tree.DirectoryISAttributesY0;1;2;3;4;5;6;7This is used to store Installshield custom properties of a directory. Currently the only one is Shortcut.DirectoryISDescriptionYTextDescription of folderDirectoryISFolderNameYTextThis is used in Pro projects because the pro identifier used in the tree wasn't necessarily unique.DrLocatorDepthY032767The depth below the path to which the Signature_ is recursively searched. If absent, the depth is assumed to be 0.DrLocatorParentYIdentifierThe parent file signature. It is also a foreign key in the Signature table. If null and the Path column does not expand to a full path, then all the fixed drives of the user system are searched using the Path.DrLocatorPathYAnyPathThe path on the user system. This is a either a subpath below the value of the Parent or a full path. The path may contain properties enclosed within [ ] that will be expanded.DrLocatorSignature_NSignature1IdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature table.DuplicateFileComponent_NComponent1IdentifierForeign key referencing Component that controls the duplicate file.DuplicateFileDestFolderYIdentifierName of a property whose value is assumed to resolve to the full pathname to a destination folder.DuplicateFileDestNameYTextFilename to be given to the duplicate file.DuplicateFileFileKeyNIdentifierPrimary key used to identify a particular file entryDuplicateFileFile_NFile1IdentifierForeign key referencing the source file to be duplicated.EnvironmentComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the installing of the environmental value.EnvironmentEnvironmentNIdentifierUnique identifier for the environmental variable settingEnvironmentNameNTextThe name of the environmental value.EnvironmentValueYFormattedThe value to set in the environmental settings.ErrorErrorN032767Integer error number, obtained from header file IError(...) macros.ErrorMessageYTemplateError formatting template, obtained from user ed. or localizers.EventMappingAttributeNIdentifierThe name of the control attribute, that is set when this event is received.EventMappingControl_NControl2IdentifierA foreign key to the Control table, name of the control.EventMappingDialog_NDialog1IdentifierA foreign key to the Dialog table, name of the Dialog.EventMappingEventNIdentifierAn identifier that specifies the type of the event that the control subscribes to.ExtensionComponent_NComponent1IdentifierRequired foreign key into the Component Table, specifying the component for which to return a path when called through LocateComponent.ExtensionExtensionNTextThe extension associated with the table row.ExtensionFeature_NFeature1IdentifierRequired foreign key into the Feature Table, specifying the feature to validate or install in order for the CLSID factory to be operational.ExtensionMIME_YMIME1TextOptional Context identifier, typically "type/format" associated with the extensionExtensionProgId_YProgId1TextOptional ProgId associated with this extension.FeatureAttributesN0;1;2;4;5;6;8;9;10;16;17;18;20;21;22;24;25;26;32;33;34;36;37;38;48;49;50;52;53;54Feature attributesFeatureDescriptionYTextLonger descriptive text describing a visible feature item.FeatureDirectory_YDirectory1UpperCaseThe name of the Directory that can be configured by the UI. A non-null value will enable the browse button.FeatureDisplayY032767Numeric sort order, used to force a specific display ordering.FeatureFeatureNIdentifierPrimary key used to identify a particular feature record.FeatureFeature_ParentYFeature1IdentifierOptional key of a parent record in the same table. If the parent is not selected, then the record will not be installed. Null indicates a root item.FeatureISCommentsYCommentsFeatureISFeatureCabNameYName of CAB used when compressing CABs by Feature. Used to override build generated name for CAB file.FeatureISProFeatureNameYTextThe name of the feature used by pro projects. This doesn't have to be unique.FeatureISReleaseFlagsYRelease Flags that specify whether this feature will be built in a particular release.FeatureLevelN032767The install level at which record will be initially selected. An install level of 0 will disable an item and prevent its display.FeatureTitleYTextShort text identifying a visible feature item.FeatureComponentsComponent_NComponent1IdentifierForeign key into Component table.FeatureComponentsFeature_NFeature1IdentifierForeign key into Feature table.FileAttributesY032767Integer containing bit flags representing file attributes (with the decimal value of each bit position in parentheses)FileComponent_NComponent1IdentifierForeign key referencing Component that controls the file.FileFileNIdentifierPrimary key, non-localized token, must match identifier in cabinet. For uncompressed files, this field is ignored.FileFileNameNTextFile name used for installation. This may contain a "short name|long name" pair. It may be just a long name, hence it cannot be of the Filename data type.FileFileSizeN02147483647Size of file in bytes (long integer).FileISAttributesY02147483647This field contains the following attributes: UseSystemSettings(0x1)FileISBuildSourcePathYTextFull path, the category is of Text instead of Path because of potential use of path variables.FileISComponentSubFolder_YIdentifierForeign key referencing component subfolder containing this file. Only for Pro.FileLanguageYLanguageList of decimal language Ids, comma-separated if more than one.FileSequenceN132767Sequence with respect to the media images; order must track cabinet order.FileVersionYFile1VersionVersion string for versioned files; Blank for unversioned files.FileSFPCatalogFile_NFile1IdentifierFile associated with the catalogFileSFPCatalogSFPCatalog_NSFPCatalog1TextCatalog associated with the fileFontFile_NFile1IdentifierPrimary key, foreign key into File table referencing font file.FontFontTitleYTextFont name.ISAssistantTagDataY + ISAssistantTagTagN + ISBillBoardColorY + ISBillBoardDisplayNameY + ISBillBoardDurationN032767 + ISBillBoardEffectN032767 + ISBillBoardFontY + ISBillBoardISBillboardN + ISBillBoardOriginN032767 + ISBillBoardSequenceN-3276732767 + ISBillBoardStyleY + ISBillBoardTargetN032767 + ISBillBoardTitleY + ISBillBoardXN032767 + ISBillBoardYN032767 + ISChainPackageDisplayNameYTextDisplay name for the chained package. Used only in the IDE.ISChainPackageISReleaseFlagsY + ISChainPackageInstallConditionYCondition + ISChainPackageInstallPropertiesYFormatted + ISChainPackageOptionsNInteger + ISChainPackageOrderNInteger + ISChainPackagePackageNIdentifier + ISChainPackageProductCodeY + ISChainPackageRemoveConditionYCondition + ISChainPackageRemovePropertiesYFormatted + ISChainPackageSourcePathY + ISChainPackageDataDataYBinaryBinary stream. The binary icon data in PE (.DLL or .EXE) or icon (.ICO) format.ISChainPackageDataFileNIdentifier + ISChainPackageDataFilePathNFormatted + ISChainPackageDataISBuildSourcePathYTextFull path to the ICO or EXE file.ISChainPackageDataOptionsY + ISChainPackageDataPackage_NISChainPackage1Identifier + ISClrWrapAction_NCustomAction1IdentifierForeign key into CustomAction tableISClrWrapNameNTextProperty associated with this ActionISClrWrapValueYTextValue associated with this PropertyISComCatalogAttributeISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComCatalogAttributeItemNameNTextThe named attribute for a catalog object.ISComCatalogAttributeItemValueYTextA value associated with the attribute defined in the ItemName column.ISComCatalogCollectionCollectionNameNTextA catalog collection name.ISComCatalogCollectionISComCatalogCollectionNIdentifierA unique key for the ISComCatalogCollection table.ISComCatalogCollectionISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComCatalogCollectionObjectsISComCatalogCollection_NISComCatalogCollection1IdentifierA unique key for the ISComCatalogCollection table.ISComCatalogCollectionObjectsISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComCatalogObjectDisplayNameNThe display name of a catalog object.ISComCatalogObjectISComCatalogObjectNIdentifierA unique key for the ISComCatalogObject table.ISComPlusApplicationComponent_NComponent1IdentifierForeign key into the Component table that a COM+ application belongs to.ISComPlusApplicationComputerNameYTextComputer name that a COM+ application belongs to.ISComPlusApplicationDepFilesYTextList of the dependent files.ISComPlusApplicationISAttributesYInstallShield custom attributes associated with a COM+ application.ISComPlusApplicationISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComPlusApplicationDLLAlterDLLYTextAlternate filename of the COM+ application component. Will be used for a .NET serviced component.ISComPlusApplicationDLLCLSIDNTextCLSID of the COM+ application component.ISComPlusApplicationDLLDLLYTextFilename of the COM+ application component.ISComPlusApplicationDLLISComCatalogObject_NISComCatalogObject1IdentifierForeign key into the ISComCatalogObject table.ISComPlusApplicationDLLISComPlusApplicationDLLNIdentifierA unique key for the ISComPlusApplicationDLL table.ISComPlusApplicationDLLISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table.ISComPlusApplicationDLLProgIdYTextProgId of the COM+ application component.ISComPlusProxyComponent_YComponent1IdentifierForeign key into the Component table that a COM+ application proxy belongs to.ISComPlusProxyDepFilesYTextList of the dependent files.ISComPlusProxyISAttributesYInstallShield custom attributes associated with a COM+ application proxy.ISComPlusProxyISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table that a COM+ application proxy belongs to.ISComPlusProxyISComPlusProxyNIdentifierA unique key for the ISComPlusProxy table.ISComPlusProxyDepFileFile_NFile1IdentifierForeign key into the File table.ISComPlusProxyDepFileISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table.ISComPlusProxyDepFileISPathYTextFull path of the dependent file.ISComPlusProxyFileFile_NFile1IdentifierForeign key into the File table.ISComPlusProxyFileISComPlusApplicationDLL_NISComPlusApplicationDLL1IdentifierForeign key into the ISComPlusApplicationDLL table.ISComPlusServerDepFileFile_NFile1IdentifierForeign key into the File table.ISComPlusServerDepFileISComPlusApplication_NISComPlusApplication1IdentifierForeign key into the ISComPlusApplication table.ISComPlusServerDepFileISPathYTextFull path of the dependent file.ISComPlusServerFileFile_NFile1IdentifierForeign key into the File table.ISComPlusServerFileISComPlusApplicationDLL_NISComPlusApplicationDLL1IdentifierForeign key into the ISComPlusApplicationDLL table.ISComponentExtendedComponent_NComponent1IdentifierPrimary key used to identify a particular component record.ISComponentExtendedFTPLocationYTextFTP LocationISComponentExtendedFilterPropertyNIdentifierProperty to set if you want to filter a componentISComponentExtendedHTTPLocationYTextHTTP LocationISComponentExtendedLanguageYTextLanguageISComponentExtendedMiscellaneousYTextMiscellaneousISComponentExtendedOSYbitwise addition of OSsISComponentExtendedPlatformsYbitwise addition of Platforms.ISCustomActionReferenceAction_NCustomAction1IdentifierForeign key into theICustomAction table.ISCustomActionReferenceDescriptionYTextContents of the file speciifed in ISCAReferenceFilePath. This column is only used by MSI.ISCustomActionReferenceFileTypeYTextfile type of the file specified ISCAReferenceFilePath. This column is only used by MSI.ISCustomActionReferenceISCAReferenceFilePathYTextFull path, the category is of Text instead of Path because of potential use of path variables. This column only exists in ISM.ISDIMDependencyISDIMReference_NIdentifierThis is the primary key to the ISDIMDependency tableISDIMDependencyRequiredBuildVersionYTextthe build version identifying the required DIMISDIMDependencyRequiredMajorVersionYTextthe major version identifying the required DIMISDIMDependencyRequiredMinorVersionYTextthe minor version identifying the required DIMISDIMDependencyRequiredRevisionVersionYTextthe revision version identifying the required DIMISDIMDependencyRequiredUUIDNTextthe UUID identifying the required DIMISDIMReferenceISBuildSourcePathYTextFull path, the category is of Text instead of Path because of potential use of path variables.ISDIMReferenceISDIMReferenceNISDIMDependency1IdentifierThis is the primary key to the ISDIMReference tableISDIMReferenceDependenciesISDIMDependency_NISDIMDependency1IdentifierForeign key into ISDIMDependency table.ISDIMReferenceDependenciesISDIMReference_ParentNISDIMReference1IdentifierForeign key into ISDIMReference table.ISDIMVariableISDIMReference_NISDIMReference1IdentifierForeign key into ISDIMReference table.ISDIMVariableISDIMVariableNIdentifierThis is the primary key to the ISDIMVariable tableISDIMVariableNameNTextName of a variable defined in the .dim fileISDIMVariableNewValueYTextNew value that you want to override withISDIMVariableTypeYType of the variable. 0: Build Variable, 1: Runtime VariableISDLLWrapperEntryPointNTextThis is a foreign key to the target column in the CustomAction tableISDLLWrapperSourceNFormattedThis is column points to the source file for the DLLWrapper Custom ActionISDLLWrapperTargetNTextThe function signatureISDLLWrapperTypeYTypeISDRMFileFile_YFile1IdentifierForeign key into File table. A null value will cause a build warning.ISDRMFileISDRMFileNIdentifierUnique identifier for this item.ISDRMFileISDRMLicense_YISDRMLicense1IdentifierForeign key referencing License that packages this file.ISDRMFileShellNTextText indicating the activation shell used at runtime.ISDRMFileAttributeISDRMFile_NISDRMFile1IdentifierPrimary foreign key into ISDRMFile table.ISDRMFileAttributePropertyNTextThe name of the attributeISDRMFileAttributeValueYTextThe value of the attributeISDRMLicenseAttributesYNumberBitwise field used to specify binary attributes of this license.ISDRMLicenseDescriptionYTextAn internal description of this license.ISDRMLicenseISDRMLicenseNIdentifierUnique key identifying the license record.ISDRMLicenseLicenseNumberYTextThe license number.ISDRMLicenseProjectVersionYTextThe version of the project that this license is tied to.ISDRMLicenseRequestCodeYTextThe request code.ISDRMLicenseResponseCodeYTextThe response code.ISDependencyExcludeY + ISDependencyISDependencyY + ISDisk1FileDiskY-1;0;1Used to differentiate between disk1(1), last disk(-1), and other(0).ISDisk1FileISBuildSourcePathNTextFull path of file to be copied to Disk1 folderISDisk1FileISDisk1FileNIdentifierPrimary key for ISDisk1File tableISDynamicFileComponent_NComponent1IdentifierForeign key referencing Component that controls the file.ISDynamicFileExcludeFilesYTextWildcards for excluded files.ISDynamicFileISAttributesY0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15This is used to store Installshield custom properties of a dynamic filet. Currently the only one is SelfRegister.ISDynamicFileIncludeFilesYTextWildcards for included files.ISDynamicFileIncludeFlagsYInclude flags.ISDynamicFileSourceFolderNTextFull path, the category is of Text instead of Path because of potential use of path variables.ISFeatureDIMReferencesFeature_NFeature1IdentifierForeign key into Feature table.ISFeatureDIMReferencesISDIMReference_NISDIMReference1IdentifierForeign key into ISDIMReference table.ISFeatureMergeModuleExcludesFeature_NIdentifierForeign key into Feature table.ISFeatureMergeModuleExcludesLanguageNForeign key into ISMergeModule table.ISFeatureMergeModuleExcludesModuleIDNIdentifierForeign key into ISMergeModule table.ISFeatureMergeModulesFeature_NFeature1IdentifierForeign key into Feature table.ISFeatureMergeModulesISMergeModule_NISMergeModule1TextForeign key into ISMergeModule table.ISFeatureMergeModulesLanguage_NISMergeModule2Foreign key into ISMergeModule table.ISFeatureSetupPrerequisitesFeature_NFeature1IdentifierForeign key into Feature table.ISFeatureSetupPrerequisitesISSetupPrerequisites_NISSetupPrerequisites1 + ISFileManifestsFile_NIdentifierForeign key into File table.ISFileManifestsManifest_NIdentifierForeign key into File table.ISIISItemComponent_YComponent1IdentifierForeign key to Component table.ISIISItemDisplayNameYTextLocalizable Item Name.ISIISItemISIISItemNIdentifierPrimary key for each item.ISIISItemISIISItem_ParentYISIISItem1IdentifierThis record's parent record.ISIISItemTypeNIIS resource type.ISIISPropertyFriendlyNameYTextIIS property name.ISIISPropertyISAttributesYFlags.ISIISPropertyISIISItem_NISIISItem1IdentifierPrimary key for table, foreign key into ISIISItem.ISIISPropertyISIISPropertyNIdentifierPrimary key for table.ISIISPropertyMetaDataAttributesYIIS property attributes.ISIISPropertyMetaDataPropYIIS property ID.ISIISPropertyMetaDataTypeYIIS property data type.ISIISPropertyMetaDataUserTypeYIIS property user data type.ISIISPropertyMetaDataValueYTextIIS property value.ISIISPropertyOrderYOrder sequencing.ISIISPropertySchemaYTextIIS7 schema information.ISInstallScriptActionEntryPointNTextThis is a foreign key to the target column in the CustomAction tableISInstallScriptActionSourceNFormattedThis is column points to the source file for the DLLWrapper Custom ActionISInstallScriptActionTargetYTextThe function signatureISInstallScriptActionTypeYTypeISLanguageISLanguageNTextThis is the language ID.ISLanguageIncludedY0;1Specify whether this language should be included.ISLinkerLibraryISLinkerLibraryNIdentifierUnique identifier for the link library.ISLinkerLibraryLibraryNTextFull path of the object library (.obl file).ISLinkerLibraryOrderNOrder of the LibraryISLocalControlAttributesYA 32-bit word that specifies the attribute flags to be applied to this control.ISLocalControlBinary_YBinary1IdentifierExternal key to the Binary table.ISLocalControlControl_NControl2IdentifierName of the control. This name must be unique within a dialog, but can repeat on different dialogs.ISLocalControlDialog_NDialog1IdentifierExternal key to the Dialog table, name of the dialog.ISLocalControlHeightYHeight of the bounding rectangle of the control.ISLocalControlISBuildSourcePathYTextFull path to .rtf file for scrollable text controlISLocalControlISLanguage_NISLanguage1TextThis is a foreign key to the ISLanguage table.ISLocalControlWidthYWidth of the bounding rectangle of the control.ISLocalControlXYHorizontal coordinate of the upper left corner of the bounding rectangle of the control.ISLocalControlYYVertical coordinate of the upper left corner of the bounding rectangle of the control.ISLocalDialogAttributesYA 32-bit word that specifies the attribute flags to be applied to this dialog.ISLocalDialogDialog_YDialog1IdentifierName of the dialog.ISLocalDialogHeightN032767Height of the bounding rectangle of the dialog.ISLocalDialogISLanguage_YISLanguage1TextThis is a foreign key to the ISLanguage table.ISLocalDialogTextStyle_YIdentifierForeign Key into TextStyle table, only used in Script Based Projects.ISLocalDialogWidthN032767Width of the bounding rectangle of the dialog.ISLocalRadioButtonHeightN032767The height of the button.ISLocalRadioButtonISLanguage_NISLanguage1TextThis is a foreign key to the ISLanguage table.ISLocalRadioButtonOrderN132767RadioButton2A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.ISLocalRadioButtonPropertyNRadioButton1IdentifierA named property to be tied to this radio button. All the buttons tied to the same property become part of the same group.ISLocalRadioButtonWidthN032767The width of the button.ISLocalRadioButtonXN032767The horizontal coordinate of the upper left corner of the bounding rectangle of the radio button.ISLocalRadioButtonYN032767The vertical coordinate of the upper left corner of the bounding rectangle of the radio button.ISLockPermissionsAttributesY-21474836472147483647Permissions attributes mask, 1==Deny access; 2==No inherit, 4==Ignore apply failures, 8==Target object is 64-bitISLockPermissionsDomainYTextDomain name for user whose permissions are being set.ISLockPermissionsLockObjectNIdentifierForeign key into CreateFolder, Registry, or File tableISLockPermissionsPermissionY-21474836472147483647Permission Access mask.ISLockPermissionsTableNIdentifierCreateFolder;File;RegistryReference to another table nameISLockPermissionsUserNTextUser for permissions to be set. This can be a property, hardcoded named, or SID stringISLogicalDiskCabinetYCabinetIf some or all of the files stored on the media are compressed in a cabinet, the name of that cabinet.ISLogicalDiskDiskIdN132767Primary key, integer to determine sort order for table.ISLogicalDiskDiskPromptYTextDisk name: the visible text actually printed on the disk. This will be used to prompt the user when this disk needs to be inserted.ISLogicalDiskISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISLogicalDiskISRelease_NISRelease1TextForeign key into the ISRelease table.ISLogicalDiskLastSequenceN032767File sequence number for the last file for this media.ISLogicalDiskSourceYPropertyThe property defining the location of the cabinet file.ISLogicalDiskVolumeLabelYTextThe label attributed to the volume.ISLogicalDiskFeaturesFeature_YFeature1IdentifierRequired foreign key into the Feature Table,ISLogicalDiskFeaturesISAttributesYThis is used to store Installshield custom properties, like Compressed, etc.ISLogicalDiskFeaturesISLogicalDisk_N132767ISLogicalDisk1IdentifierForeign key into the ISLogicalDisk table.ISLogicalDiskFeaturesISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISLogicalDiskFeaturesISRelease_NISRelease1TextForeign key into the ISRelease table.ISLogicalDiskFeaturesSequenceN032767File sequence number for the file for this media.ISMergeModuleDestinationYTextDestination.ISMergeModuleISAttributesYThis is used to store Installshield custom properties of a merge module.ISMergeModuleISMergeModuleNTextThe GUID identifying the merge module.ISMergeModuleLanguageNDefault decimal language of module.ISMergeModuleNameNTextName of the merge module.ISMergeModuleCfgValuesAttributesYAttributes (from configurable merge module)ISMergeModuleCfgValuesContextDataYTextContextData (from configurable merge module)ISMergeModuleCfgValuesDefaultValueYTextDefaultValue (from configurable merge module)ISMergeModuleCfgValuesDescriptionYTextDescription (from configurable merge module)ISMergeModuleCfgValuesDisplayNameYTextDisplayName (from configurable merge module)ISMergeModuleCfgValuesFormatNFormat (from configurable merge module)ISMergeModuleCfgValuesHelpKeywordYTextHelpKeyword (from configurable merge module)ISMergeModuleCfgValuesHelpLocationYTextHelpLocation (from configurable merge module)ISMergeModuleCfgValuesISMergeModule_NISMergeModule1TextThe module signature, a foreign key into the ISMergeModule tableISMergeModuleCfgValuesLanguage_NISMergeModule2Default decimal language of module.ISMergeModuleCfgValuesModuleConfiguration_NIdentifierIdentifier, foreign key into ModuleConfiguration table (ModuleConfiguration.Name)ISMergeModuleCfgValuesTypeYTextType (from configurable merge module)ISMergeModuleCfgValuesValueYTextValue for this item.ISObjectLanguageNText + ISObjectObjectNameNText + ISObjectPropertyIncludeInBuildYBoolean, 0 for false non 0 for trueISObjectPropertyObjectNameYISObject1Text + ISObjectPropertyPropertyYText + ISObjectPropertyValueYText + ISPatchConfigImagePatchConfiguration_YISPatchConfiguration1TextForeign key to the ISPatchConfigurationTableISPatchConfigImageUpgradedImage_NISUpgradedImage1TextForeign key to the ISUpgradedImageTableISPatchConfigurationAttributesYPatchConfiguration attributesISPatchConfigurationCanPCDifferNThis is determine whether Product Codes may differISPatchConfigurationCanPVDifferNThis is determine whether the Major Product Version may differISPatchConfigurationEnablePatchCacheNThis is determine whether to Enable Patch cacheingISPatchConfigurationFlagsNPatching API FlagsISPatchConfigurationIncludeWholeFilesNThis is determine whether to build a binary level patchISPatchConfigurationLeaveDecompressedNThis is determine whether to leave intermediate files devcompressed when finishedISPatchConfigurationMinMsiVersionNMinimum Required MSI VersionISPatchConfigurationNameNTextName of the Patch ConfigurationISPatchConfigurationOptimizeForSizeNThis is determine whether to Optimize for large filesISPatchConfigurationOutputPathNTextBuild LocationISPatchConfigurationPatchCacheDirYTextDirectory to recieve the Patch Cache informationISPatchConfigurationPatchGuidNTextUnique Patch IdentifierISPatchConfigurationPatchGuidsToReplaceYTextList Of Patch Guids to unregisterISPatchConfigurationTargetProductCodesNTextList Of target Product CodesISPatchConfigurationPropertyISPatchConfiguration_YISPatchConfiguration1TextName of the Patch ConfigurationISPatchConfigurationPropertyPropertyYTextName of the Patch Configuration Property valueISPatchConfigurationPropertyValueYTextValue of the Patch Configuration PropertyISPatchExternalFileFileKeyNTextFilekeyISPatchExternalFileFilePathNTextFilepathISPatchExternalFileISUpgradedImage_NISUpgradedImage1TextForeign key to the isupgraded image tableISPatchExternalFileNameNTextUniqu name to identify this record.ISPatchWholeFileComponentYTextComponent containing file keyISPatchWholeFileFileKeyNTextKey of file to be included as wholeISPatchWholeFileUpgradedImageNISUpgradedImage1TextForeign key to ISUpgradedImage TableISPathVariableISPathVariableNThe name of the path variable.ISPathVariableTestValueYTextThe test value of the path variable.ISPathVariableTypeN1;2;4;8The type of the path variable.ISPathVariableValueYTextThe value of the path variable.ISPowerShellWrapAction_NCustomAction1IdentifierForeign key into CustomAction tableISPowerShellWrapNameNTextProperty associated with this ActionISPowerShellWrapValueYTextValue associated with this PropertyISProductConfigurationGeneratePackageCodeYNumber0;1Indicates whether or not to generate a package code.ISProductConfigurationISProductConfigurationNTextThe name of the product configuration.ISProductConfigurationProductConfigurationFlagsYTextProduct configuration (release) flags.ISProductConfigurationInstanceISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISProductConfigurationInstanceInstanceIdN032767Identifies the instance number of this instance. This value is stored in the Property InstanceId.ISProductConfigurationInstancePropertyNTextProduct Congiuration property nameISProductConfigurationInstanceValueNTextString value for property.ISProductConfigurationPropertyISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISProductConfigurationPropertyPropertyNProperty1TextProduct Congiuration property nameISProductConfigurationPropertyValueYTextString value for property. Never null or empty.ISReleaseAttributesNBitfield holding boolean values for various release attributes.ISReleaseBuildLocationNTextBuild location.ISReleaseCDBrowserYTextDemoshield browser location.ISReleaseDefaultLanguageNTextDefault language for setup.ISReleaseDigitalPVKYTextDigital signing private key (.pvk) file.ISReleaseDigitalSPCYTextDigital signing Software Publisher Certificate (.spc) file.ISReleaseDigitalURLYTextDigital signing URL.ISReleaseDiskClusterSizeNDisk cluster size.ISReleaseDiskSizeNTextDisk size.ISReleaseDiskSizeUnitN0;1;2Disk size units (KB or MB).ISReleaseDiskSpanningN0;1;2Disk spanning (automatic, enforce size, etc.).ISReleaseDotNetBuildConfigurationYTextBuild Configuration for .NET solutions.ISReleaseISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISReleaseISReleaseNTextThe name of the release.ISReleaseISSetupPrerequisiteLocationY0;1;2;3Location the Setup Prerequisites will be placed inISReleaseMediaLocationNTextMedia location on disk.ISReleaseMsiCommandLineYTextCommand line passed to the msi package from setup.exeISReleaseMsiSourceTypeN-14MSI media source type.ISReleasePackageNameNTextPackage name.ISReleasePasswordYTextPassword.ISReleasePlatformsNTextPlatforms supported (Intel, Alpha, etc.).ISReleaseReleaseFlagsYTextRelease flags.ISReleaseReleaseTypeN1;2;4Release type (single, uncompressed, etc.).ISReleaseSupportedLanguagesDataYTextLanguages supported (for component filtering).ISReleaseSupportedLanguagesUINTextUI languages supported.ISReleaseSupportedOSsNIndicate which operating systmes are supported.ISReleaseSynchMsiYTextMSI file to synchronize file keys and other data with (patch-like functionality).ISReleaseTypeN06Release type (CDROM, Network, etc.).ISReleaseURLLocationYTextMedia location via URL.ISReleaseVersionCopyrightYTextVersion stamp information.ISReleaseASPublishInfoISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISReleaseASPublishInfoISRelease_NISRelease1TextForeign key into the ISRelease table.ISReleaseASPublishInfoPropertyYTextAS Repository property nameISReleaseASPublishInfoValueYTextAS Repository property valueISReleaseExtendedAttributesYBitfield holding boolean values for various release attributes.ISReleaseExtendedCertPasswordYTextDigital certificate passwordISReleaseExtendedDigitalCertificateDBaseNSYTextPath to cerificate database for Netscape digital signatureISReleaseExtendedDigitalCertificateIdNSYTextPath to cerificate ID for Netscape digital signatureISReleaseExtendedDigitalCertificatePasswordNSYTextPassword for Netscape digital signatureISReleaseExtendedDotNetBaseLanguageYTextBase Languge of .NET RedistISReleaseExtendedDotNetFxCmdLineYTextCommand Line to pass to DotNetFx.exeISReleaseExtendedDotNetLangPackCmdLineYTextCommand Line to pass to LangPack.exeISReleaseExtendedDotNetLangaugePacksYText.NET Redist language packs to includeISReleaseExtendedDotNetRedistLocationY03Location of .NET framework Redist (Web, SetupExe, Source, None)ISReleaseExtendedDotNetRedistURLYTextURL to .NET framework RedistISReleaseExtendedDotNetVersionY02Version of .NET framework Redist (1.0, 1.1)ISReleaseExtendedEngineLocationY02Location of msi engine (Web, SetupExe...)ISReleaseExtendedISEngineLocationY02Location of ISScript engine (Web, SetupExe...)ISReleaseExtendedISEngineURLYTextURL to InstallShield scripting engineISReleaseExtendedISProductConfiguration_NTextForeign key into the ISProductConfiguration table.ISReleaseExtendedISRelease_NTextThe name of the release.ISReleaseExtendedJSharpCmdLineYTextCommand Line to pass to vjredist.exeISReleaseExtendedJSharpRedistLocationY03Location of J# framework Redist (Web, SetupExe, Source, None)ISReleaseExtendedMsiEngineVersionYBitfield holding selected MSI engine versions included in this releaseISReleaseExtendedOneClickCabNameYTextFile name of generated cabfileISReleaseExtendedOneClickHtmlNameYTextFile name of generated html pageISReleaseExtendedOneClickTargetBrowserY02Target browser (IE, Netscape, both...)ISReleaseExtendedWebCabSizeY02147483647Size of the cabfileISReleaseExtendedWebLocalCachePathYTextDirectory to cache downloaded packageISReleaseExtendedWebTypeY02Type of web install (One Executable, Downloader...)ISReleaseExtendedWebURLYTextURL to .msi packageISReleaseExtendedWin9xMsiUrlYTextURL to Ansi MSI engineISReleaseExtendedWinMsi30UrlYTextURL to MSI 3.0 engineISReleaseExtendedWinNTMsiUrlYTextURL to Unicode MSI engineISReleasePropertyISProductConfiguration_NTextForeign key into ISProductConfiguration table.ISReleasePropertyISRelease_NTextForeign key into ISRelease table.ISReleasePropertyNameNProperty nameISReleasePropertyValueNProperty valueISReleasePublishInfoDescriptionYTextRepository item descriptionISReleasePublishInfoDisplayNameYTextRepository item display nameISReleasePublishInfoISAttributesYBitfield holding various attributesISReleasePublishInfoISProductConfiguration_NISProductConfiguration1TextForeign key into the ISProductConfiguration table.ISReleasePublishInfoISRelease_NISRelease1TextThe name of the release.ISReleasePublishInfoPublisherYTextRepository item publisherISReleasePublishInfoRepositoryYTextRepository which to publish the built merge moduleISSQLConnectionAttributesN + ISSQLConnectionAuthenticationN + ISSQLConnectionBatchSeparatorY + ISSQLConnectionCmdTimeoutY + ISSQLConnectionCommentsY + ISSQLConnectionDatabaseN + ISSQLConnectionISSQLConnectionNIdentifierPrimary key used to identify a particular ISSQLConnection record.ISSQLConnectionOrderN + ISSQLConnectionPasswordN + ISSQLConnectionScriptVersion_ColumnY + ISSQLConnectionScriptVersion_TableY + ISSQLConnectionServerN + ISSQLConnectionUserNameN + ISSQLConnectionDBServerISSQLConnectionDBServerNIdentifierPrimary key used to identify a particular ISSQLConnectionDBServer record.ISSQLConnectionDBServerISSQLConnection_NISSQLConnection1IdentifierForeign key into ISSQLConnection table.ISSQLConnectionDBServerISSQLDBMetaData_NISSQLDBMetaData1IdentifierForeign key into ISSQLDBMetaData table.ISSQLConnectionDBServerOrderN + ISSQLConnectionScriptISSQLConnection_NISSQLConnection1IdentifierForeign key into ISSQLConnection table.ISSQLConnectionScriptISSQLScriptFile_NISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile table.ISSQLConnectionScriptOrderN + ISSQLDBMetaDataAdoCxnAdditionalY + ISSQLDBMetaDataAdoCxnDatabaseY + ISSQLDBMetaDataAdoCxnDriverY + ISSQLDBMetaDataAdoCxnNetLibraryY + ISSQLDBMetaDataAdoCxnPasswordY + ISSQLDBMetaDataAdoCxnPortY + ISSQLDBMetaDataAdoCxnServerY + ISSQLDBMetaDataAdoCxnUserIDY + ISSQLDBMetaDataAdoCxnWindowsSecurityY + ISSQLDBMetaDataAdoDriverNameY + ISSQLDBMetaDataCreateDbCmdY + ISSQLDBMetaDataCreateTableCmdY + ISSQLDBMetaDataDisplayNameY + ISSQLDBMetaDataDsnODBCNameY + ISSQLDBMetaDataISAttributesY + ISSQLDBMetaDataISSQLDBMetaDataNIdentifierPrimary key used to identify a particular ISSQLDBMetaData record.ISSQLDBMetaDataInsertRecordCmdY + ISSQLDBMetaDataLocalInstanceNamesY + ISSQLDBMetaDataQueryDatabasesCmdY + ISSQLDBMetaDataScriptVersion_ColumnY + ISSQLDBMetaDataScriptVersion_ColumnTypeY + ISSQLDBMetaDataScriptVersion_TableY + ISSQLDBMetaDataSelectTableCmdY + ISSQLDBMetaDataSwitchDbCmdY + ISSQLDBMetaDataTestDatabaseCmdY + ISSQLDBMetaDataTestTableCmdY + ISSQLDBMetaDataTestTableCmd2Y + ISSQLDBMetaDataVersionBeginTokenY + ISSQLDBMetaDataVersionEndTokenY + ISSQLDBMetaDataVersionInfoCmdY + ISSQLDBMetaDataWinAuthentUserIdY + ISSQLRequirementAttributesN + ISSQLRequirementISSQLConnectionDBServer_YISSQLConnectionDBServer1IdentifierForeign key into ISSQLConnectionDBServer table.ISSQLRequirementISSQLConnection_NISSQLConnection1IdentifierForeign key into ISSQLConnection table.ISSQLRequirementISSQLRequirementNIdentifierPrimary key used to identify a particular ISSQLRequirement record.ISSQLRequirementMajorVersionY + ISSQLRequirementServicePackLevelY + ISSQLScriptErrorAttributesN + ISSQLScriptErrorErrHandlingN + ISSQLScriptErrorErrNumberN + ISSQLScriptErrorISSQLScriptFile_YISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile tableISSQLScriptErrorMessageYTextCustom end-user message. Reserved for future use.ISSQLScriptFileAttributesN + ISSQLScriptFileCommentsYTextCommentsISSQLScriptFileComponent_NComponent1IdentifierForeign key referencing Component that controls the SQL script.ISSQLScriptFileConditionYConditionA conditional statement that will disable this script if the specified condition evaluates to the 'False' state. If a script is disabled, it will not be installed regardless of the 'Action' state associated with the component.ISSQLScriptFileDisplayNameYTextDisplay name for the SQL script file.ISSQLScriptFileErrorHandlingN + ISSQLScriptFileISBuildSourcePathYTextFull path, the category is of Text instead of Path because of potential use of path variables.ISSQLScriptFileISSQLScriptFileNIdentifierThis is the primary key to the ISSQLScriptFile tableISSQLScriptFileInstallTextYTextFeedback end-user text at installISSQLScriptFileSchedulingN + ISSQLScriptFileUninstallTextYTextFeedback end-user text at UninstallISSQLScriptFileVersionYTextSchema Version (#####.#####.#####.#####)ISSQLScriptImportAttributesN + ISSQLScriptImportAuthenticationN + ISSQLScriptImportDatabaseY + ISSQLScriptImportExcludeTablesY + ISSQLScriptImportISSQLScriptFile_NISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile table.ISSQLScriptImportIncludeTablesY + ISSQLScriptImportPasswordY + ISSQLScriptImportServerY + ISSQLScriptImportUserNameY + ISSQLScriptReplaceAttributesN + ISSQLScriptReplaceISSQLScriptFile_NISSQLScriptFile1IdentifierForeign key into ISSQLScriptFile table.ISSQLScriptReplaceISSQLScriptReplaceNIdentifierPrimary key used to identify a particular ISSQLScriptReplace record.ISSQLScriptReplaceReplaceY + ISSQLScriptReplaceSearchY + ISScriptFileISScriptFileNTextThis is the full path of the script file. The path portion may be expressed in path variable form.ISSelfRegCmdLineY + ISSelfRegCostY + ISSelfRegFileKeyNFile1IdentifierForeign key to the file tableISSelfRegOrderY + ISSetupFileFileNameYTextThis is the file name to use when streaming the file to the support files locationISSetupFileISSetupFileNIdentifierThis is the primary key to the ISSetupFile tableISSetupFileLanguageYTextFour digit language identifier. 0 for Language NeutralISSetupFilePathYTextLink to the source file on the build machineISSetupFileSplashYShortBoolean value indication whether his setup file entry belongs in the Splasc Screen sectionISSetupFileStreamYBinaryBinary stream. The bits to stream to the support locationISSetupPrerequisitesISBuildSourcePathY + ISSetupPrerequisitesISReleaseFlagsYRelease Flags that specify whether this prereq will be included in a particular release.ISSetupPrerequisitesISSetupLocationY0;1;2 + ISSetupPrerequisitesISSetupPrerequisitesN + ISSetupPrerequisitesOrderY + ISSetupTypeCommentsYTextUser Comments.ISSetupTypeDescriptionYTextLonger descriptive text describing a visible feature item.ISSetupTypeDisplayN032767Numeric sort order, used to force a specific display ordering.ISSetupTypeDisplay_NameYFormattedA string used to set the initial text contained within a control (if appropriate).ISSetupTypeISSetupTypeNIdentifierPrimary key used to identify a particular feature record.ISSetupTypeFeaturesFeature_NFeature1IdentifierForeign key into Feature table.ISSetupTypeFeaturesISSetupType_NISSetupType1IdentifierForeign key into ISSetupType table.ISStoragesISBuildSourcePathYPath to the file to stream into sub-storageISStoragesNameNName of the sub-storage keyISStringCommentYTextCommentISStringEncodedYEncoding for multi-byte strings.ISStringISLanguage_NTextThis is a foreign key to the ISLanguage table.ISStringISStringNTextString id.ISStringTimeStampYTime/DateTime Stamp. MSI's Time/Date column type is just an int, with bits packed in a certain order.ISStringValueYTextreal string value.ISSwidtagPropertyNameNIdentifierProperty nameISSwidtagPropertyValueNTextProperty valueISTargetImageFlagsYrelative order of the target imageISTargetImageIgnoreMissingFilesNIf true, ignore missing source files when creating patchISTargetImageMsiPathNTextPath to the target imageISTargetImageNameNIdentifierName of the TargetImageISTargetImageOrderNrelative order of the target imageISTargetImageUpgradedImage_NISUpgradedImage1Textforeign key to the upgraded Image tableISUpgradeMsiItemISAttributesN0;1 + ISUpgradeMsiItemISReleaseFlagsY + ISUpgradeMsiItemObjectSetupPathNTextThe path to the setup you want to upgrade.ISUpgradeMsiItemUpgradeItemNTextThe name of the Upgrade Item.ISUpgradedImageFamilyNTextName of the image familyISUpgradedImageMsiPathNTextPath to the upgraded imageISUpgradedImageNameNIdentifierName of the UpgradedImageISVirtualDirectoryDirectory_NDirectory1IdentifierForeign key into Directory table.ISVirtualDirectoryNameNIdentifierProperty nameISVirtualDirectoryValueNProperty valueISVirtualFileFile_NFile1IdentifierForeign key into File table.ISVirtualFileNameNIdentifierProperty nameISVirtualFileValueNProperty valueISVirtualPackageNameNIdentifierProperty nameISVirtualPackageValueNProperty valueISVirtualRegistryNameNIdentifierProperty nameISVirtualRegistryRegistry_NRegistry1IdentifierForeign key into Registry table.ISVirtualRegistryValueNProperty valueISVirtualReleaseISProductConfiguration_NTextForeign key into ISProductConfiguration table.ISVirtualReleaseISRelease_NTextForeign key into ISRelease table.ISVirtualReleaseNameNProperty nameISVirtualReleaseValueNProperty valueISVirtualShortcutNameNIdentifierProperty nameISVirtualShortcutShortcut_NShortcut1IdentifierForeign key into Shortcut table.ISVirtualShortcutValueNProperty valueISXmlElementContentYTextElement contentsISXmlElementISAttributesYNumberInternal XML element attributesISXmlElementISXmlElementNIdentifierPrimary key, non-localized, internal token for Xml elementISXmlElementISXmlElement_ParentYISXmlElement1IdentifierForeign key into ISXMLElement table.ISXmlElementISXmlFile_NISXmlFile1IdentifierForeign key into XmlFile table.ISXmlElementXPathYTextXPath fragment including any operatorsISXmlElementAttribISAttributesYNumberInternal XML elementattib attributesISXmlElementAttribISXmlElementAttribNIdentifierPrimary key, non-localized, internal token for Xml element attributeISXmlElementAttribISXmlElement_NISXmlElement1IdentifierForeign key into ISXMLElement table.ISXmlElementAttribNameYTextLocalized attribute nameISXmlElementAttribValueYTextLocalized attribute valueISXmlFileComponent_NComponent1IdentifierForeign key into Component table.ISXmlFileDirectoryNIdentifierForeign key into Directory table.ISXmlFileEncodingYTextXML File EncodingISXmlFileFileNameNTextLocalized XML file nameISXmlFileISAttributesYNumberInternal XML file attributesISXmlFileISXmlFileNIdentifierPrimary key, non-localized,internal token for Xml fileISXmlFileSelectionNamespacesYTextSelection namespacesISXmlLocatorAttributeYThe name of an attribute within the XML element.ISXmlLocatorElementYXPath query that will locate an element in an XML file.ISXmlLocatorISAttributesY0;1;2 + ISXmlLocatorParentYIdentifierThe parent file signature. It is also a foreign key in the Signature table.ISXmlLocatorSignature_NIdentifierThe Signature_ represents a unique file signature and is also the foreign key in the Signature, RegLocator, IniLocator, ISXmlLocator, CompLocator and the DrLocator tables.IconDataYBinaryBinary stream. The binary icon data in PE (.DLL or .EXE) or icon (.ICO) format.IconISBuildSourcePathYTextFull path to the ICO or EXE file.IconISIconIndexY-3276732767Optional icon index to be extracted.IconNameNIdentifierPrimary key. Name of the icon file.IniFileActionN0;1;3The type of modification to be made, one of iifEnumIniFileComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the installing of the .INI value.IniFileDirPropertyYIdentifierForeign key into the Directory table denoting the directory where the .INI file is.IniFileFileNameNTextThe .INI file name in which to write the informationIniFileIniFileNIdentifierPrimary key, non-localized token.IniFileKeyNFormattedThe .INI file key below Section.IniFileSectionNFormattedThe .INI file Section.IniFileValueNFormattedThe value to be written.IniLocatorFieldY032767The field in the .INI line. If Field is null or 0 the entire line is read.IniLocatorFileNameNTextThe .INI file name.IniLocatorKeyNTextKey value (followed by an equals sign in INI file).IniLocatorSectionNTextSection name within in file (within square brackets in INI file).IniLocatorSignature_NSignature1IdentifierThe table key. The Signature_ represents a unique file signature and is also the foreign key in the Signature table.IniLocatorTypeY02An integer value that determines if the .INI value read is a filename or a directory location or to be used as is w/o interpretation.InstallExecuteSequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.InstallExecuteSequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.InstallExecuteSequenceISAttributesYThis is used to store MM Custom Action TypesInstallExecuteSequenceISCommentsYTextAuthor’s comments on this Sequence.InstallExecuteSequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.InstallShieldPropertyNIdentifierName of property, uppercase if settable by launcher or loader.InstallShieldValueYTextString value for property.InstallUISequenceActionNIdentifierName of action to invoke, either in the engine or the handler DLL.InstallUISequenceConditionYConditionOptional expression which skips the action if evaluates to expFalse.If the expression syntax is invalid, the engine will terminate, returning iesBadActionData.InstallUISequenceISAttributesYThis is used to store MM Custom Action TypesInstallUISequenceISCommentsYTextAuthor’s comments on this Sequence.InstallUISequenceSequenceY-432767Number that determines the sort order in which the actions are to be executed. Leave blank to suppress action.IsolatedComponentComponent_ApplicationNComponent1IdentifierKey to Component table item for applicationIsolatedComponentComponent_SharedNComponent1IdentifierKey to Component table item to be isolatedLaunchConditionConditionNConditionExpression which must evaluate to TRUE in order for install to commence.LaunchConditionDescriptionNTextLocalizable text to display when condition fails and install must abort.ListBoxOrderN132767A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.ListBoxPropertyNIdentifierA named property to be tied to this item. All the items tied to the same property become part of the same listbox.ListBoxTextYTextThe visible text to be assigned to the item. Optional. If this entry or the entire column is missing, the text is the same as the value.ListBoxValueNFormattedThe value string associated with this item. Selecting the line will set the associated property to this value.ListViewBinary_YBinary1IdentifierThe name of the icon to be displayed with the icon. The binary information is looked up from the Binary Table.ListViewOrderN132767A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.ListViewPropertyNIdentifierA named property to be tied to this item. All the items tied to the same property become part of the same listview.ListViewTextYTextThe visible text to be assigned to the item. Optional. If this entry or the entire column is missing, the text is the same as the value.ListViewValueNTextThe value string associated with this item. Selecting the line will set the associated property to this value.LockPermissionsDomainYTextDomain name for user whose permissions are being set. (usually a property)LockPermissionsLockObjectNIdentifierForeign key into Registry or File tableLockPermissionsPermissionY-21474836472147483647Permission Access mask. Full Control = 268435456 (GENERIC_ALL = 0x10000000)LockPermissionsTableNIdentifierDirectory;File;RegistryReference to another table nameLockPermissionsUserNTextUser for permissions to be set. (usually a property)MIMECLSIDYClass1GuidOptional associated CLSID.MIMEContentTypeNTextPrimary key. Context identifier, typically "type/format".MIMEExtension_NExtension1TextOptional associated extension (without dot)MediaCabinetYCabinetIf some or all of the files stored on the media are compressed in a cabinet, the name of that cabinet.MediaDiskIdN132767Primary key, integer to determine sort order for table.MediaDiskPromptYTextDisk name: the visible text actually printed on the disk. This will be used to prompt the user when this disk needs to be inserted.MediaLastSequenceN032767File sequence number for the last file for this media.MediaSourceYPropertyThe property defining the location of the cabinet file.MediaVolumeLabelYTextThe label attributed to the volume.MoveFileComponent_NComponent1IdentifierIf this component is not "selected" for installation or removal, no action will be taken on the associated MoveFile entryMoveFileDestFolderNIdentifierName of a property whose value is assumed to resolve to the full path to the destination directoryMoveFileDestNameYTextName to be given to the original file after it is moved or copied. If blank, the destination file will be given the same name as the source fileMoveFileFileKeyNIdentifierPrimary key that uniquely identifies a particular MoveFile recordMoveFileOptionsN01Integer value specifying the MoveFile operating mode, one of imfoEnumMoveFileSourceFolderYIdentifierName of a property whose value is assumed to resolve to the full path to the source directoryMoveFileSourceNameYTextName of the source file(s) to be moved or copied. Can contain the '*' or '?' wildcards.MsiAssemblyAttributesYAssembly attributesMsiAssemblyComponent_NComponent1IdentifierForeign key into Component table.MsiAssemblyFeature_NFeature1IdentifierForeign key into Feature table.MsiAssemblyFile_ApplicationYFile1IdentifierForeign key into File table, denoting the application context for private assemblies. Null for global assemblies.MsiAssemblyFile_ManifestYFile1IdentifierForeign key into the File table denoting the manifest file for the assembly.MsiAssemblyNameComponent_NComponent1IdentifierForeign key into Component table.MsiAssemblyNameNameNTextThe name part of the name-value pairs for the assembly name.MsiAssemblyNameValueNTextThe value part of the name-value pairs for the assembly name.MsiDigitalCertificateCertDataNBinaryA certificate context blob for a signer certificateMsiDigitalCertificateDigitalCertificateNMsiPackageCertificate2IdentifierA unique identifier for the rowMsiDigitalSignatureDigitalCertificate_NMsiDigitalCertificate1IdentifierForeign key to MsiDigitalCertificate table identifying the signer certificateMsiDigitalSignatureHashYBinaryThe encoded hash blob from the digital signatureMsiDigitalSignatureSignObjectNTextForeign key to Media tableMsiDigitalSignatureTableNIdentifierReference to another table name (only Media table is supported)MsiDriverPackagesComponentNComponent1IdentifierPrimary key used to identify a particular component record.MsiDriverPackagesFlagsNDriver package flagsMsiDriverPackagesReferenceComponentsY + MsiDriverPackagesSequenceYInstallation sequence numberMsiEmbeddedChainerCommandLineYFormatted + MsiEmbeddedChainerConditionYCondition + MsiEmbeddedChainerMsiEmbeddedChainerNIdentifier + MsiEmbeddedChainerSourceNCustomSource + MsiEmbeddedChainerTypeYInteger2;18;50 + MsiEmbeddedUIAttributesN03IntegerInformation about the data in the Data column.MsiEmbeddedUIDataYBinaryThis column contains binary information.MsiEmbeddedUIFileNameNFilenameThe name of the file that receives the binary information in the Data column.MsiEmbeddedUIISBuildSourcePathYText + MsiEmbeddedUIMessageFilterY0234913791IntegerSpecifies the types of messages that are sent to the user interface DLL. This column is only relevant for rows with the msidbEmbeddedUI attribute.MsiEmbeddedUIMsiEmbeddedUINIdentifierThe primary key for the table.MsiFileHashFile_NFile1IdentifierPrimary key, foreign key into File table referencing file with this hashMsiFileHashHashPart1NSize of file in bytes (long integer).MsiFileHashHashPart2NSize of file in bytes (long integer).MsiFileHashHashPart3NSize of file in bytes (long integer).MsiFileHashHashPart4NSize of file in bytes (long integer).MsiFileHashOptionsN032767Various options and attributes for this hash.MsiLockPermissionsExConditionYFormattedExpression which must evaluate to TRUE in order for this set of permissions to be appliedMsiLockPermissionsExLockObjectNIdentifierForeign key into Registry, File, CreateFolder, or ServiceInstall tableMsiLockPermissionsExMsiLockPermissionsExNIdentifierPrimary key, non-localized tokenMsiLockPermissionsExSDDLTextNFormattedSDDLTextString to indicate permissions to be applied to the LockObjectMsiLockPermissionsExTableNIdentifierCreateFolder;File;Registry;ServiceInstallReference to another table nameMsiPackageCertificateDigitalCertificate_NIdentifierA foreign key to the digital certificate tableMsiPackageCertificatePackageCertificateNIdentifierA unique identifier for the rowMsiPatchCertificateDigitalCertificate_NMsiDigitalCertificate1IdentifierA foreign key to the digital certificate tableMsiPatchCertificatePatchCertificateNIdentifierA unique identifier for the rowMsiPatchMetadataCompanyYTextOptional company nameMsiPatchMetadataPatchConfiguration_NISPatchConfiguration1TextForeign key to the ISPatchConfiguration tableMsiPatchMetadataPropertyNTextName of the metadataMsiPatchMetadataValueYTextValue of the metadataMsiPatchOldAssemblyFileAssembly_YMsiPatchOldAssemblyName1 + MsiPatchOldAssemblyFileFile_NFile1 + MsiPatchOldAssemblyNameAssemblyN + MsiPatchOldAssemblyNameNameN + MsiPatchOldAssemblyNameValueY + MsiPatchSequencePatchConfiguration_NISPatchConfiguration1TextForeign key to the patch configuration tableMsiPatchSequencePatchFamilyNTextName of the family to which this patch belongsMsiPatchSequenceSequenceNVersionThe version of this patch in this familyMsiPatchSequenceSupersedeNIntegerSupersedeMsiPatchSequenceTargetYTextTarget product codes for this patch familyMsiServiceConfigArgumentYTextArgument(s) for service configuration. Value depends on the content of the ConfigType fieldMsiServiceConfigComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the configuration of the serviceMsiServiceConfigConfigTypeN-21474836472147483647Service Configuration OptionMsiServiceConfigEventN07Bit field: 0x1 = Install, 0x2 = Uninstall, 0x4 = ReinstallMsiServiceConfigMsiServiceConfigNIdentifierPrimary key, non-localized token.MsiServiceConfigNameNFormattedName of a service. /, \, comma and space are invalidMsiServiceConfigFailureActionsActionsYTextA list of integer actions separated by [~] delimiters: 0 = SC_ACTION_NONE, 1 = SC_ACTION_RESTART, 2 = SC_ACTION_REBOOT, 3 = SC_ACTION_RUN_COMMAND. Terminate with [~][~]MsiServiceConfigFailureActionsCommandYFormattedCommand line of the process to CreateProcess function to executeMsiServiceConfigFailureActionsComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the configuration of the serviceMsiServiceConfigFailureActionsDelayActionsYTextA list of delays (time in milli-seconds), separated by [~] delmiters, to wait before taking the corresponding Action. Terminate with [~][~]MsiServiceConfigFailureActionsEventN07Bit field: 0x1 = Install, 0x2 = Uninstall, 0x4 = ReinstallMsiServiceConfigFailureActionsMsiServiceConfigFailureActionsNIdentifierPrimary key, non-localized tokenMsiServiceConfigFailureActionsNameNFormattedName of a service. /, \, comma and space are invalidMsiServiceConfigFailureActionsRebootMessageYFormattedMessage to be broadcast to server users before rebootingMsiServiceConfigFailureActionsResetPeriodY02147483647Time in seconds after which to reset the failure count to zero. Leave blank if it should never be resetMsiShortcutPropertyMsiShortcutPropertyNIdentifierPrimary key, non-localized tokenMsiShortcutPropertyPropVariantValueNFormattedString representation of the value in the propertyMsiShortcutPropertyPropertyKeyNFormattedCanonical string representation of the Property Key being setMsiShortcutPropertyShortcut_NShortcut1IdentifierForeign key into the Shortcut tableODBCAttributeAttributeNTextName of ODBC driver attributeODBCAttributeDriver_NODBCDriver1IdentifierReference to ODBC driver in ODBCDriver tableODBCAttributeValueYTextValue for ODBC driver attributeODBCDataSourceComponent_NComponent1IdentifierReference to associated componentODBCDataSourceDataSourceNIdentifierPrimary key, non-localized.internal token for data sourceODBCDataSourceDescriptionNTextText used as registered name for data sourceODBCDataSourceDriverDescriptionNTextReference to driver description, may be existing driverODBCDataSourceRegistrationN01Registration option: 0=machine, 1=user, others t.b.d.ODBCDriverComponent_NComponent1IdentifierReference to associated componentODBCDriverDescriptionNTextText used as registered name for driver, non-localizedODBCDriverDriverNIdentifierPrimary key, non-localized.internal token for driverODBCDriverFile_NFile1IdentifierReference to key driver fileODBCDriverFile_SetupYFile1IdentifierOptional reference to key driver setup DLLODBCSourceAttributeAttributeNTextName of ODBC data source attributeODBCSourceAttributeDataSource_NODBCDataSource1IdentifierReference to ODBC data source in ODBCDataSource tableODBCSourceAttributeValueYTextValue for ODBC data source attributeODBCTranslatorComponent_NComponent1IdentifierReference to associated componentODBCTranslatorDescriptionNTextText used as registered name for translatorODBCTranslatorFile_NFile1IdentifierReference to key translator fileODBCTranslatorFile_SetupYFile1IdentifierOptional reference to key translator setup DLLODBCTranslatorTranslatorNIdentifierPrimary key, non-localized.internal token for translatorPatchAttributesN032767Integer containing bit flags representing patch attributesPatchFile_NFile1IdentifierPrimary key, non-localized token, foreign key to File table, must match identifier in cabinet.PatchHeaderYBinaryBinary stream. The patch header, used for patch validation.PatchISBuildSourcePathYTextFull path to patch header.PatchPatchSizeN02147483647Size of patch in bytes (long integer).PatchSequenceN032767Primary key, sequence with respect to the media images; order must track cabinet order.PatchStreamRef_YIdentifierExternal key into the MsiPatchHeaders table specifying the row that contains the patch header stream.PatchPackageMedia_N032767Foreign key to DiskId column of Media table. Indicates the disk containing the patch package.PatchPackagePatchIdNGuidA unique string GUID representing this patch.ProgIdClass_YClass1GuidThe CLSID of an OLE factory corresponding to the ProgId.ProgIdDescriptionYTextLocalized description for the Program identifier.ProgIdISAttributesYThis is used to store Installshield custom properties of a component, like ExtractIcon, etc.ProgIdIconIndexY-3276732767Optional icon index.ProgIdIcon_YIcon1IdentifierOptional foreign key into the Icon Table, specifying the icon file associated with this ProgId. Will be written under the DefaultIcon key.ProgIdProgIdNTextThe Program Identifier. Primary key.ProgIdProgId_ParentYProgId1TextThe Parent Program Identifier. If specified, the ProgId column becomes a version independent prog id.PropertyISCommentsYTextUser Comments.PropertyPropertyNIdentifierName of property, uppercase if settable by launcher or loader.PropertyValueYTextString value for property.PublishComponentAppDataYTextThis is localisable Application specific data that can be associated with a Qualified Component.PublishComponentComponentIdNGuidA string GUID that represents the component id that will be requested by the alien product.PublishComponentComponent_NComponent1IdentifierForeign key into the Component table.PublishComponentFeature_NFeature1IdentifierForeign key into the Feature table.PublishComponentQualifierNTextThis is defined only when the ComponentId column is an Qualified Component Id. This is the Qualifier for ProvideComponentIndirect.RadioButtonHeightN032767The height of the button.RadioButtonHelpYTextThe help strings used with the button. The text is optional.RadioButtonISControlIdYA number used to represent the control ID of the Control, Used in Dialog exportRadioButtonOrderN132767A positive integer used to determine the ordering of the items within one list..The integers do not have to be consecutive.RadioButtonPropertyNIdentifierA named property to be tied to this radio button. All the buttons tied to the same property become part of the same group.RadioButtonTextYTextThe visible title to be assigned to the radio button.RadioButtonValueNFormattedThe value string associated with this button. Selecting the button will set the associated property to this value.RadioButtonWidthN032767The width of the button.RadioButtonXN032767The horizontal coordinate of the upper left corner of the bounding rectangle of the radio button.RadioButtonYN032767The vertical coordinate of the upper left corner of the bounding rectangle of the radio button.RegLocatorKeyNRegPathThe key for the registry value.RegLocatorNameYFormattedThe registry value name.RegLocatorRootN03The predefined root key for the registry value, one of rrkEnum.RegLocatorSignature_NSignature1IdentifierThe table key. The Signature_ represents a unique file signature and is also the foreign key in the Signature table. If the type is 0, the registry values refers a directory, and _Signature is not a foreign key.RegLocatorTypeY018An integer value that determines if the registry value is a filename or a directory location or to be used as is w/o interpretation.RegistryComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the installing of the registry value.RegistryISAttributesYThis is used to store Installshield custom properties of a registry item. Currently the only one is Automatic.RegistryKeyNRegPathThe key for the registry value.RegistryNameYFormattedThe registry value name.RegistryRegistryNIdentifierPrimary key, non-localized token.RegistryRootN-13The predefined root key for the registry value, one of rrkEnum.RegistryValueYTextThe registry value.RemoveFileComponent_NComponent1IdentifierForeign key referencing Component that controls the file to be removed.RemoveFileDirPropertyNIdentifierName of a property whose value is assumed to resolve to the full pathname to the folder of the file to be removed.RemoveFileFileKeyNIdentifierPrimary key used to identify a particular file entryRemoveFileFileNameYTextName of the file to be removed.RemoveFileInstallModeN1;2;3Installation option, one of iimEnum.RemoveIniFileActionN2;4The type of modification to be made, one of iifEnum.RemoveIniFileComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the deletion of the .INI value.RemoveIniFileDirPropertyYIdentifierForeign key into the Directory table denoting the directory where the .INI file is.RemoveIniFileFileNameNTextThe .INI file name in which to delete the informationRemoveIniFileKeyNFormattedThe .INI file key below Section.RemoveIniFileRemoveIniFileNIdentifierPrimary key, non-localized token.RemoveIniFileSectionNFormattedThe .INI file Section.RemoveIniFileValueYFormattedThe value to be deleted. The value is required when Action is iifIniRemoveTagRemoveRegistryComponent_NComponent1IdentifierForeign key into the Component table referencing component that controls the deletion of the registry value.RemoveRegistryKeyNRegPathThe key for the registry value.RemoveRegistryNameYFormattedThe registry value name.RemoveRegistryRemoveRegistryNIdentifierPrimary key, non-localized token.RemoveRegistryRootN-13The predefined root key for the registry value, one of rrkEnumReserveCostComponent_NComponent1IdentifierReserve a specified amount of space if this component is to be installed.ReserveCostReserveFolderYIdentifierName of a property whose value is assumed to resolve to the full path to the destination directoryReserveCostReserveKeyNIdentifierPrimary key that uniquely identifies a particular ReserveCost recordReserveCostReserveLocalN02147483647Disk space to reserve if linked component is installed locally.ReserveCostReserveSourceN02147483647Disk space to reserve if linked component is installed to run from the source location.SFPCatalogCatalogYBinarySFP CatalogSFPCatalogDependencyYFormattedParent catalog - only used by SFPSFPCatalogSFPCatalogNFilenameFile name for the catalog.SelfRegCostY032767The cost of registering the module.SelfRegFile_NFile1IdentifierForeign key into the File table denoting the module that needs to be registered.ServiceControlArgumentsYFormattedArguments for the service. Separate by [~].ServiceControlComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the startup of the serviceServiceControlEventN0187Bit field: Install: 0x1 = Start, 0x2 = Stop, 0x8 = Delete, Uninstall: 0x10 = Start, 0x20 = Stop, 0x80 = DeleteServiceControlNameNFormattedName of a service. /, \, comma and space are invalidServiceControlServiceControlNIdentifierPrimary key, non-localized token.ServiceControlWaitY01Boolean for whether to wait for the service to fully startServiceInstallArgumentsYFormattedArguments to include in every start of the service, passed to WinMainServiceInstallComponent_NComponent1IdentifierRequired foreign key into the Component Table that controls the startup of the serviceServiceInstallDependenciesYFormattedOther services this depends on to start. Separate by [~], and end with [~][~]ServiceInstallDescriptionYTextDescription of service.ServiceInstallDisplayNameYFormattedExternal Name of the ServiceServiceInstallErrorControlN-21474836472147483647Severity of error if service fails to startServiceInstallLoadOrderGroupYFormattedLoadOrderGroupServiceInstallNameNFormattedInternal Name of the ServiceServiceInstallPasswordYFormattedpassword to run service with. (with StartName)ServiceInstallServiceInstallNIdentifierPrimary key, non-localized token.ServiceInstallServiceTypeN-21474836472147483647Type of the serviceServiceInstallStartNameYFormattedUser or object name to run service asServiceInstallStartTypeN04Type of the serviceShortcutArgumentsYFormattedThe command-line arguments for the shortcut.ShortcutComponent_NComponent1IdentifierForeign key into the Component table denoting the component whose selection gates the the shortcut creation/deletion.ShortcutDescriptionYTextThe description for the shortcut.ShortcutDescriptionResourceDLLYFormattedThis field contains a Formatted string value for the full path to the language neutral file that contains the MUI manifest.ShortcutDescriptionResourceIdY032767The description name index for the shortcut.ShortcutDirectory_NDirectory1IdentifierForeign key into the Directory table denoting the directory where the shortcut file is created.ShortcutDisplayResourceDLLYFormattedThis field contains a Formatted string value for the full path to the language neutral file that contains the MUI manifest.ShortcutDisplayResourceIdY032767The display name index for the shortcut.ShortcutHotkeyY032767The hotkey for the shortcut. It has the virtual-key code for the key in the low-order byte, and the modifier flags in the high-order byte.ShortcutISAttributesYThis is used to store Installshield custom properties of a shortcut. Mainly used in pro project types.ShortcutISCommentsYTextAuthor’s comments on this Shortcut.ShortcutISShortcutNameYTextA non-unique name for the shortcut. Mainly used by pro pro project types.ShortcutIconIndexY-3276732767The icon index for the shortcut.ShortcutIcon_YIcon1IdentifierForeign key into the File table denoting the external icon file for the shortcut.ShortcutNameNTextThe name of the shortcut to be created.ShortcutShortcutNIdentifierPrimary key, non-localized token.ShortcutShowCmdY1;3;7The show command for the application window.The following values may be used.ShortcutTargetNShortcutThe shortcut target. This is usually a property that is expanded to a file or a folder that the shortcut points to.ShortcutWkDirYIdentifierName of property defining location of working directory.SignatureFileNameNTextThe name of the file. This may contain a "short name|long name" pair.SignatureLanguagesYLanguageThe languages supported by the file.SignatureMaxDateY02147483647The maximum creation date of the file.SignatureMaxSizeY02147483647The maximum size of the file.SignatureMaxVersionYTextThe maximum version of the file.SignatureMinDateY02147483647The minimum creation date of the file.SignatureMinSizeY02147483647The minimum size of the file.SignatureMinVersionYTextThe minimum version of the file.SignatureSignatureNIdentifierThe table key. The Signature represents a unique file signature.TextStyleColorY016777215A long integer indicating the color of the string in the RGB format (Red, Green, Blue each 0-255, RGB = R + 256*G + 256^2*B).TextStyleFaceNameNTextA string indicating the name of the font used. Required. The string must be at most 31 characters long.TextStyleSizeN032767The size of the font used. This size is given in our units (1/12 of the system font height). Assuming that the system font is set to 12 point size, this is equivalent to the point size.TextStyleStyleBitsY015A combination of style bits.TextStyleTextStyleNIdentifierName of the style. The primary key of this table. This name is embedded in the texts to indicate a style change.TypeLibComponent_NComponent1IdentifierRequired foreign key into the Component Table, specifying the component for which to return a path when called through LocateComponent.TypeLibCostY02147483647The cost associated with the registration of the typelib. This column is currently optional.TypeLibDescriptionYText + TypeLibDirectory_YDirectory1IdentifierOptional. The foreign key into the Directory table denoting the path to the help file for the type library.TypeLibFeature_NFeature1IdentifierRequired foreign key into the Feature Table, specifying the feature to validate or install in order for the type library to be operational.TypeLibLanguageN032767The language of the library.TypeLibLibIDNGuidThe GUID that represents the library.TypeLibVersionY02147483647The version of the library. The major version is in the upper 8 bits of the short integer. The minor version is in the lower 8 bits.UITextKeyNIdentifierA unique key that identifies the particular string.UITextTextYTextThe localized version of the string.UpgradeActionPropertyNUpperCaseThe property to set when a product in this set is found.UpgradeAttributesN02147483647The attributes of this product set.UpgradeISDisplayNameYISUpgradeMsiItem1 + UpgradeLanguageYLanguageA comma-separated list of languages for either products in this set or products not in this set.UpgradeRemoveYFormattedThe list of features to remove when uninstalling a product from this set. The default is "ALL".UpgradeUpgradeCodeNGuidThe UpgradeCode GUID belonging to the products in this set.UpgradeVersionMaxYTextThe maximum ProductVersion of the products in this set. The set may or may not include products with this particular version.UpgradeVersionMinYTextThe minimum ProductVersion of the products in this set. The set may or may not include products with this particular version.VerbArgumentYFormattedOptional value for the command arguments.VerbCommandYFormattedThe command text.VerbExtension_NExtension1TextThe extension associated with the table row.VerbSequenceY032767Order within the verbs for a particular extension. Also used simply to specify the default verb.VerbVerbNTextThe verb for the command._ValidationCategoryY"Text";"Formatted";"Template";"Condition";"Guid";"Path";"Version";"Language";"Identifier";"Binary";"UpperCase";"LowerCase";"Filename";"Paths";"AnyPath";"WildCardFilename";"RegPath";"KeyFormatted";"CustomSource";"Property";"Cabinet";"Shortcut";"URL";"DefaultDir"String category_ValidationColumnNIdentifierName of column_ValidationDescriptionYTextDescription of column_ValidationKeyColumnY132Column to which foreign key connects_ValidationKeyTableYIdentifierFor foreign key, Name of table to which data must link_ValidationMaxValueY-21474836472147483647Maximum value allowed_ValidationMinValueY-21474836472147483647Minimum value allowed_ValidationNullableNY;N;@Whether the column is nullable_ValidationSetYTextSet of values that are permitted_ValidationTableNIdentifierName of table
+ diff --git a/Setup/Setup.isproj b/Setup/Setup.isproj new file mode 100644 index 0000000..71931ca --- /dev/null +++ b/Setup/Setup.isproj @@ -0,0 +1,37 @@ + + + + + Express + + Debug + $(Configuration) + + + + + + + + + + + + + + + + + + + + Global_Indexer + {7474B1D2-49A4-4D12-B544-C8674D3F7231} + + + \ No newline at end of file diff --git a/SetupWix/Product.wxs b/SetupWix/Product.wxs new file mode 100644 index 0000000..043cb10 --- /dev/null +++ b/SetupWix/Product.wxs @@ -0,0 +1,154 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 1 + 1 + + + + \ No newline at end of file diff --git a/SetupWix/SetupWix.wixproj b/SetupWix/SetupWix.wixproj new file mode 100644 index 0000000..858bdd2 --- /dev/null +++ b/SetupWix/SetupWix.wixproj @@ -0,0 +1,35 @@ + + + + Debug + x86 + 3.8 + 5bf6646d-6f46-45e5-8806-8783f030f311 + 2.0 + SetupWix + Package + $(MSBuildExtensionsPath32)\Microsoft\WiX\v3.x\Wix.targets + $(MSBuildExtensionsPath)\Microsoft\WiX\v3.x\Wix.targets + + + bin\$(Configuration)\ + obj\$(Configuration)\ + Debug + + + bin\$(Configuration)\ + obj\$(Configuration)\ + + + + + + + \ No newline at end of file