Initial commit
This commit is contained in:
32
BMS/DebugHelper/AssemblyInfo.vb
Normal file
32
BMS/DebugHelper/AssemblyInfo.vb
Normal file
@@ -0,0 +1,32 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
<Assembly: CLSCompliant(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("C2AC1549-B8D2-4A10-A0C5-AE32C85F9A5E")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.*")>
|
||||
116
BMS/DebugHelper/DataAccess.vbproj
Normal file
116
BMS/DebugHelper/DataAccess.vbproj
Normal file
@@ -0,0 +1,116 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{21B54F51-D2B2-459E-895C-540AD4A8704F}</ProjectGuid>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>DataAccess</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>Library</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>DataAccess</RootNamespace>
|
||||
<StartupObject>
|
||||
</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>Windows</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>DataAccess.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>DataAccess.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="Common, Version=1.0.2091.13456, Culture=neutral">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\D\EDOKA\Common.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Name>System.Data</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml">
|
||||
<Name>System.XML</Name>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Job.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
58
BMS/DebugHelper/DataAccess.vbproj.user
Normal file
58
BMS/DebugHelper/DataAccess.vbproj.user
Normal file
@@ -0,0 +1,58 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<LastOpenVersion>7.10.3077</LastOpenVersion>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ReferencePath>
|
||||
</ReferencePath>
|
||||
<CopyProjectDestinationFolder>
|
||||
</CopyProjectDestinationFolder>
|
||||
<CopyProjectUncPath>
|
||||
</CopyProjectUncPath>
|
||||
<CopyProjectOption>0</CopyProjectOption>
|
||||
<ProjectView>ProjectFiles</ProjectView>
|
||||
<ProjectTrust>0</ProjectTrust>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>true</StartWithIE>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<EnableASPDebugging>false</EnableASPDebugging>
|
||||
<EnableASPXDebugging>false</EnableASPXDebugging>
|
||||
<EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
|
||||
<EnableSQLServerDebugging>false</EnableSQLServerDebugging>
|
||||
<RemoteDebugEnabled>false</RemoteDebugEnabled>
|
||||
<RemoteDebugMachine>
|
||||
</RemoteDebugMachine>
|
||||
<StartAction>Project</StartAction>
|
||||
<StartArguments>
|
||||
</StartArguments>
|
||||
<StartPage>
|
||||
</StartPage>
|
||||
<StartProgram>
|
||||
</StartProgram>
|
||||
<StartURL>
|
||||
</StartURL>
|
||||
<StartWorkingDirectory>
|
||||
</StartWorkingDirectory>
|
||||
<StartWithIE>true</StartWithIE>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
10
BMS/DebugHelper/DataAccess.vbproj.vspscc
Normal file
10
BMS/DebugHelper/DataAccess.vbproj.vspscc
Normal file
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
||||
}
|
||||
20
BMS/DebugHelper/DebugHelper.sln
Normal file
20
BMS/DebugHelper/DebugHelper.sln
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||
# Visual Studio 2005
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DebugHelper", "DebugHelper.vbproj", "{6C02FCEC-B0DD-43CD-9189-F571778ACF40}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{6C02FCEC-B0DD-43CD-9189-F571778ACF40}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{6C02FCEC-B0DD-43CD-9189-F571778ACF40}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{6C02FCEC-B0DD-43CD-9189-F571778ACF40}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{6C02FCEC-B0DD-43CD-9189-F571778ACF40}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
BIN
BMS/DebugHelper/DebugHelper.suo
Normal file
BIN
BMS/DebugHelper/DebugHelper.suo
Normal file
Binary file not shown.
150
BMS/DebugHelper/DebugHelper.vbproj
Normal file
150
BMS/DebugHelper/DebugHelper.vbproj
Normal file
@@ -0,0 +1,150 @@
|
||||
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectType>Local</ProjectType>
|
||||
<ProductVersion>8.0.50727</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{6C02FCEC-B0DD-43CD-9189-F571778ACF40}</ProjectGuid>
|
||||
<SccProjectName>SAK</SccProjectName>
|
||||
<SccLocalPath>SAK</SccLocalPath>
|
||||
<SccAuxPath>SAK</SccAuxPath>
|
||||
<SccProvider>SAK</SccProvider>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<ApplicationIcon>
|
||||
</ApplicationIcon>
|
||||
<AssemblyKeyContainerName>
|
||||
</AssemblyKeyContainerName>
|
||||
<AssemblyName>DebugHelper</AssemblyName>
|
||||
<AssemblyOriginatorKeyFile>
|
||||
</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
|
||||
<DefaultClientScript>JScript</DefaultClientScript>
|
||||
<DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
|
||||
<DefaultTargetSchema>IE50</DefaultTargetSchema>
|
||||
<DelaySign>false</DelaySign>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<RootNamespace>DebugHelper</RootNamespace>
|
||||
<StartupObject>DebugHelper.Form1</StartupObject>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<MyType>WindowsFormsWithCustomSubMain</MyType>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationVersion>2.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>DebugHelper.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<Optimize>false</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>full</DebugType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>DebugHelper.xml</DocumentationFile>
|
||||
<BaseAddress>285212672</BaseAddress>
|
||||
<ConfigurationOverrideFile>
|
||||
</ConfigurationOverrideFile>
|
||||
<DefineConstants>
|
||||
</DefineConstants>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<DebugSymbols>false</DebugSymbols>
|
||||
<Optimize>true</Optimize>
|
||||
<RegisterForComInterop>false</RegisterForComInterop>
|
||||
<RemoveIntegerChecks>false</RemoveIntegerChecks>
|
||||
<TreatWarningsAsErrors>false</TreatWarningsAsErrors>
|
||||
<WarningLevel>1</WarningLevel>
|
||||
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
|
||||
<DebugType>none</DebugType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="BMS, Version=1.0.2826.24136, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\D\EDOKA\BMS.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Common, Version=1.0.2091.13456, Culture=neutral">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\D\EDOKA\Common.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System">
|
||||
<Name>System</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Data">
|
||||
<Name>System.Data</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Drawing">
|
||||
<Name>System.Drawing</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Windows.Forms">
|
||||
<Name>System.Windows.Forms</Name>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml">
|
||||
<Name>System.XML</Name>
|
||||
</Reference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="AssemblyInfo.vb">
|
||||
<SubType>Code</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 2.0</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="My Project\" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<PropertyGroup>
|
||||
<PreBuildEvent>
|
||||
</PreBuildEvent>
|
||||
<PostBuildEvent>
|
||||
</PostBuildEvent>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
10
BMS/DebugHelper/DebugHelper.vbproj.vspscc
Normal file
10
BMS/DebugHelper/DebugHelper.vbproj.vspscc
Normal file
@@ -0,0 +1,10 @@
|
||||
""
|
||||
{
|
||||
"FILE_VERSION" = "9237"
|
||||
"ENLISTMENT_CHOICE" = "NEVER"
|
||||
"PROJECT_FILE_RELATIVE_PATH" = ""
|
||||
"NUMBER_OF_EXCLUDED_FILES" = "0"
|
||||
"ORIGINAL_PROJECT_FILE_PATH" = ""
|
||||
"NUMBER_OF_NESTED_PROJECTS" = "0"
|
||||
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
|
||||
}
|
||||
220
BMS/DebugHelper/Form1.resx
Normal file
220
BMS/DebugHelper/Form1.resx
Normal file
@@ -0,0 +1,220 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 1.3
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">1.3</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1">this is my long string</data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
[base64 mime encoded serialized .NET Framework object]
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
[base64 mime encoded string representing a byte array form of the .NET Framework object]
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used forserialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>1.3</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="start.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="start.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="start.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stopp.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="stopp.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stopp.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="TextBox1.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="log.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="log.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="log.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logerror.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="logerror.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logerror.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="startTimer.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="startTimer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</data>
|
||||
<data name="startTimer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stoppTimer.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="stoppTimer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>120, 17</value>
|
||||
</data>
|
||||
<data name="stoppTimer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logTimer.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="logTimer.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>227, 17</value>
|
||||
</data>
|
||||
<data name="logTimer.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblError.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="lblError.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="lblError.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSendAsMail.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="btnSendAsMail.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="btnSendAsMail.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
<data name="$this.Locked" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Language" type="System.Globalization.CultureInfo, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>(Default)</value>
|
||||
</data>
|
||||
<data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.Localizable" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="$this.GridSize" type="System.Drawing.Size, System.Drawing, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>8, 8</value>
|
||||
</data>
|
||||
<data name="$this.Name">
|
||||
<value>Form1</value>
|
||||
</data>
|
||||
<data name="$this.DrawGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="$this.TrayHeight" type="System.Int32, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>80</value>
|
||||
</data>
|
||||
<data name="$this.SnapToGrid" type="System.Boolean, mscorlib, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</data>
|
||||
<data name="$this.DefaultModifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>Assembly</value>
|
||||
</data>
|
||||
</root>
|
||||
229
BMS/DebugHelper/Form1.vb
Normal file
229
BMS/DebugHelper/Form1.vb
Normal file
@@ -0,0 +1,229 @@
|
||||
|
||||
Public Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
Private m_Log As bms.Logging
|
||||
Private m_AppName As String
|
||||
|
||||
#Region " Windows Form Designer generated code "
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
|
||||
'This call is required by the Windows Form Designer.
|
||||
InitializeComponent()
|
||||
|
||||
'Add any initialization after the InitializeComponent() call
|
||||
|
||||
End Sub
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
If disposing Then
|
||||
If Not (components Is Nothing) Then
|
||||
components.Dispose()
|
||||
End If
|
||||
End If
|
||||
MyBase.Dispose(disposing)
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
Friend WithEvents start As System.Windows.Forms.Button
|
||||
Friend WithEvents stopp As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents log As System.Windows.Forms.Button
|
||||
Friend WithEvents logerror As System.Windows.Forms.Button
|
||||
Friend WithEvents startTimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents stoppTimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents logTimer As System.Windows.Forms.Timer
|
||||
Friend WithEvents lblError As System.Windows.Forms.Label
|
||||
Friend WithEvents btnSendAsMail As System.Windows.Forms.Button
|
||||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container
|
||||
Me.start = New System.Windows.Forms.Button
|
||||
Me.stopp = New System.Windows.Forms.Button
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox
|
||||
Me.log = New System.Windows.Forms.Button
|
||||
Me.logerror = New System.Windows.Forms.Button
|
||||
Me.startTimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.stoppTimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.logTimer = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.lblError = New System.Windows.Forms.Label
|
||||
Me.btnSendAsMail = New System.Windows.Forms.Button
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'start
|
||||
'
|
||||
Me.start.Location = New System.Drawing.Point(40, 24)
|
||||
Me.start.Name = "start"
|
||||
Me.start.TabIndex = 0
|
||||
Me.start.Text = "start"
|
||||
'
|
||||
'stopp
|
||||
'
|
||||
Me.stopp.Location = New System.Drawing.Point(144, 24)
|
||||
Me.stopp.Name = "stopp"
|
||||
Me.stopp.TabIndex = 1
|
||||
Me.stopp.Text = "stopp"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(40, 72)
|
||||
Me.TextBox1.Multiline = True
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(184, 144)
|
||||
Me.TextBox1.TabIndex = 2
|
||||
Me.TextBox1.Text = ""
|
||||
'
|
||||
'log
|
||||
'
|
||||
Me.log.Location = New System.Drawing.Point(248, 72)
|
||||
Me.log.Name = "log"
|
||||
Me.log.TabIndex = 3
|
||||
Me.log.Text = "log"
|
||||
'
|
||||
'logerror
|
||||
'
|
||||
Me.logerror.Location = New System.Drawing.Point(248, 112)
|
||||
Me.logerror.Name = "logerror"
|
||||
Me.logerror.TabIndex = 4
|
||||
Me.logerror.Text = "log as error"
|
||||
'
|
||||
'startTimer
|
||||
'
|
||||
'
|
||||
'stoppTimer
|
||||
'
|
||||
'
|
||||
'logTimer
|
||||
'
|
||||
'
|
||||
'lblError
|
||||
'
|
||||
Me.lblError.Location = New System.Drawing.Point(240, 152)
|
||||
Me.lblError.Name = "lblError"
|
||||
Me.lblError.Size = New System.Drawing.Size(208, 104)
|
||||
Me.lblError.TabIndex = 5
|
||||
Me.lblError.Text = "Errors are shown here..."
|
||||
'
|
||||
'btnSendAsMail
|
||||
'
|
||||
Me.btnSendAsMail.Location = New System.Drawing.Point(336, 112)
|
||||
Me.btnSendAsMail.Name = "btnSendAsMail"
|
||||
Me.btnSendAsMail.TabIndex = 6
|
||||
Me.btnSendAsMail.Text = "SendAsMail"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
||||
Me.ClientSize = New System.Drawing.Size(464, 266)
|
||||
Me.Controls.Add(Me.btnSendAsMail)
|
||||
Me.Controls.Add(Me.lblError)
|
||||
Me.Controls.Add(Me.logerror)
|
||||
Me.Controls.Add(Me.log)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.stopp)
|
||||
Me.Controls.Add(Me.start)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "proggy 01"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Try
|
||||
' Dim appId As Integer
|
||||
' Dim random As New Random(DateTime.Now.Millisecond)
|
||||
|
||||
' Randomize()
|
||||
' appId = random.Next
|
||||
|
||||
' If appId.ToString().Length = 1 Then
|
||||
' m_AppName = "Test Proggy 0" & appId.ToString
|
||||
' Else
|
||||
' m_AppName = "Test Proggy " & appId.ToString
|
||||
' End If
|
||||
|
||||
' startTimer.Interval = random.Next(
|
||||
' logTimer.Interval = CDbl(xmlDoc.SelectSingleNode("/root/config/LogTimer").InnerText)
|
||||
' stoppTimer.Interval = CDbl(xmlDoc.SelectSingleNode("/root/config/StoppTimer").InnerText)
|
||||
|
||||
' appId = CInt(xmlDoc.SelectSingleNode("/root/config/AppId").InnerText)
|
||||
|
||||
' m_AppName = xmlDoc.SelectSingleNode("/root/config/AppName").InnerText
|
||||
|
||||
' startTimer.Enabled = True
|
||||
' logTimer.Enabled = True
|
||||
' stoppTimer.Enabled = True
|
||||
|
||||
'm_Log = New bms.Logging(1, 2)
|
||||
m_Log = New bms.Logging(2, Common.Common.JobType.WatchJob)
|
||||
'm_Log.InitLogging(1, 2)
|
||||
|
||||
' lblError.Text = "TestApp: " & m_AppName & " Id: " & appId.ToString() + Environment.NewLine
|
||||
' lblError.Text += "Start: " & startTimer.Interval & Environment.NewLine
|
||||
' lblError.Text += "Log: " & logTimer.Interval & Environment.NewLine
|
||||
' lblError.Text += "Stopp: " & stoppTimer.Interval
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Close()
|
||||
' 'lblError.Text = ex.Message
|
||||
' 'System.Threading.Thread.CurrentThread.Sleep(10000)
|
||||
' Dim fs As New System.IO.FileStream("D:\BMS Test Framework\Logs\" & m_AppName & ".txt", IO.FileMode.Append, IO.FileAccess.Write)
|
||||
' Dim writer As New System.IO.StreamWriter(fs)
|
||||
|
||||
' writer.BaseStream.Seek(0, IO.SeekOrigin.End)
|
||||
' writer.WriteLine("Datum: " & DateTime.Now)
|
||||
' writer.WriteLine("Meldung: " & ex.Message)
|
||||
' writer.WriteLine("Stack: " & ex.StackTrace)
|
||||
' writer.WriteLine("-------------------------------------------")
|
||||
|
||||
' writer.Close()
|
||||
' Close()
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click
|
||||
m_Log.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub stopp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopp.Click
|
||||
m_Log.Ende()
|
||||
End Sub
|
||||
|
||||
Private Sub log_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles log.Click
|
||||
m_Log.Log(TextBox1.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub logerror_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logerror.Click
|
||||
m_Log.Log(TextBox1.Text, 3)
|
||||
End Sub
|
||||
|
||||
Private Sub startTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startTimer.Tick
|
||||
m_Log.Start()
|
||||
End Sub
|
||||
|
||||
Private Sub logTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles logTimer.Tick
|
||||
m_Log.Log("Normaler Log-Eintrag von " & m_AppName & " um " & DateTime.Now)
|
||||
m_Log.Log("ERROR Log-Eintrag von " & m_AppName & " um " & DateTime.Now, 3)
|
||||
End Sub
|
||||
|
||||
Private Sub stoppTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stoppTimer.Tick
|
||||
m_Log.Ende()
|
||||
Close()
|
||||
End Sub
|
||||
|
||||
Private Sub btnSendAsMail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendAsMail.Click
|
||||
Dim common As New Common.Common
|
||||
|
||||
common.SendMail("rsteimen@zubler.ch", "hans", "worscht")
|
||||
End Sub
|
||||
End Class
|
||||
367
BMS/DebugHelper/Job.vb
Normal file
367
BMS/DebugHelper/Job.vb
Normal file
@@ -0,0 +1,367 @@
|
||||
|
||||
#Region "Includes"
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports Common.Common
|
||||
|
||||
#End Region
|
||||
|
||||
Public Class Job
|
||||
|
||||
Public Shared Sub SendNotification(ByVal common As Common.Common, ByVal programmId As Integer, ByVal ds As DataSet, ByVal errorMessage As String, ByVal jobId As Integer, ByVal jobType As JobType)
|
||||
Try
|
||||
'get all notifications to a programm
|
||||
Dim subject As String, message As String = "", receiver As String
|
||||
Dim dr As DataRow
|
||||
|
||||
If ds.Tables.Count > 0 Then
|
||||
For Each dr In ds.Tables(0).Rows
|
||||
subject = dr("Titel").ToString().Replace("##PROG_NAME##", dr("ProgrammName"))
|
||||
message = dr("Meldung").ToString()
|
||||
|
||||
If (dr("IsMitFehlerText")) Then
|
||||
message += Environment.NewLine & Environment.NewLine & "Fehlermeldung:" & Environment.NewLine & errorMessage
|
||||
End If
|
||||
message = message.Replace("##PROG_NAME##", dr("ProgrammName"))
|
||||
message += Environment.NewLine & Environment.NewLine
|
||||
receiver = dr("eMail")
|
||||
|
||||
Select Case CInt(dr("BenachrichtigungTypId"))
|
||||
Case NotificationType.File
|
||||
SendToFile(dr("NotiParamValue"), subject, message)
|
||||
Case NotificationType.Mail
|
||||
common.SendMail(receiver, subject, message)
|
||||
Case Else
|
||||
Throw New Exception("Der Benachrichtigungs-Typ " & dr("BenachrichtigungTypId") & " ist unbekannt")
|
||||
End Select
|
||||
Next
|
||||
|
||||
'write log
|
||||
common.Log(common.SERVICE_DISPLAY_NAME, "Sending Notification (ProgrammId: " + programmId.ToString() + ", JobId: " + jobId.ToString() + ", Message: " + message + ") on " + DateTime.Now.ToString("G"), EventLogEntryType.Information)
|
||||
|
||||
DataAccess.Job.SetNotificationCounter(common.DSN, jobId, jobType, False)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Sub SendToFile(ByVal filePath As String, ByVal subject As String, ByVal message As String)
|
||||
Try
|
||||
Dim fs As New System.IO.FileStream(filePath, IO.FileMode.Append, IO.FileAccess.Write)
|
||||
Dim writer As New System.IO.StreamWriter(fs)
|
||||
|
||||
writer.BaseStream.Seek(0, IO.SeekOrigin.End)
|
||||
writer.WriteLine("Datum: " & DateTime.Now)
|
||||
writer.WriteLine("Betreff: " & subject)
|
||||
writer.WriteLine("Meldung: " & message)
|
||||
writer.WriteLine("-------------------------------------------")
|
||||
|
||||
writer.Close()
|
||||
|
||||
Catch ex As Exception
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Sub SetNextExecDateTime(ByVal dsn As String, ByVal jobId As Integer)
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "SetNextStartDate"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobId", jobId))
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
|
||||
SetNextStartDateCalculated(dsn, jobId, False)
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Sets, if a NextStartDate is calculated or not
|
||||
Public Shared Sub SetNextStartDateCalculated(ByVal dsn As String, ByVal jobId As Integer, ByVal resetFlag As Boolean)
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "SetNextStartDateCalculated"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobId", jobId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ResetFlag", resetFlag))
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'sets the counter state if an error occured
|
||||
Public Shared Sub SetNotificationCounter(ByVal dsn As String, ByVal jobId As Integer, ByVal jobTypId As JobType, ByVal resetCounter As Boolean)
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "SetNotificationCounter"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobId", jobId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobTypId", CInt(jobTypId)))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@Reset", resetCounter))
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Sub GetNotifications(ByVal common As Common.Common, ByVal programmId As Integer, ByRef notifications As DataSet)
|
||||
Dim sqlConn As New SqlConnection(common.DSN)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
Dim da As New SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "GetNotifications"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ProgrammId", programmId))
|
||||
|
||||
da.SelectCommand = sqlCom
|
||||
da.Fill(notifications)
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
' gets all jobs, that taked to long to execute... (Jobs.MaxLaufzeit)
|
||||
Public Shared Sub GetFailedExecJobs(ByVal common As Common.Common, ByVal programmId As Integer, ByRef failedExecjobs As DataSet)
|
||||
Dim sqlConn As New SqlConnection(common.DSN)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
Dim da As New SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "GetFailedExecutionJobs"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ProgrammId", programmId))
|
||||
|
||||
da.SelectCommand = sqlCom
|
||||
da.Fill(failedExecjobs)
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Gets all bad start jobs of a program
|
||||
Public Shared Sub GetFailedStartJobs(ByVal common As Common.Common, ByVal programmId As Integer, ByRef failedStartjobs As DataSet)
|
||||
Dim sqlConn As New SqlConnection(common.DSN)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
Dim da As New SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "GetFailedStartJobs"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ProgrammId", programmId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@MaxStartDuration", common.MaximalStartDuration))
|
||||
|
||||
da.SelectCommand = sqlCom
|
||||
da.Fill(failedStartjobs)
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'sets start or end datetime of a run-job
|
||||
Public Shared Sub SetJobLastRun(ByVal dsn As String, ByVal jobId As Integer, ByVal jobLastRun As LastRun)
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "SetJobLastRun"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobId", jobId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@LastRunType", CInt(jobLastRun)))
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
Catch
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Sets if currently job is running in db
|
||||
Public Shared Sub SetIsRunning(ByVal dsn As String, ByVal programmId As Integer, ByVal isRunning As Boolean)
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "SetJobIsRunning"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ProgrammId", programmId))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@IsRunning", isRunning))
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
Catch
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Shared Function CheckIsRunning(ByVal dsn As String, ByVal programmId As Integer) As Object
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "CheckIsRunning"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@ProgrammId", programmId))
|
||||
Dim sqlParam As SqlParameter = sqlCom.Parameters.Add("@IsRunning", SqlDbType.Bit)
|
||||
sqlParam.Direction = ParameterDirection.Output
|
||||
|
||||
sqlCom.ExecuteNonQuery()
|
||||
|
||||
sqlConn.Close()
|
||||
Return sqlParam.Value
|
||||
Catch
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw
|
||||
End Try
|
||||
End Function
|
||||
|
||||
'Gets a start parameter from db
|
||||
Public Shared Sub GetStartParameter(ByVal dsn As String, ByVal jobId As Integer, ByVal startParameterType As StartParameterType, ByRef parameterValue As String)
|
||||
Dim sqlConn As New SqlConnection(dsn)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
Dim da As New SqlDataAdapter
|
||||
Dim ds As New DataSet
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "GetStartParameter"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobId", CInt(jobId)))
|
||||
sqlCom.Parameters.Add(New SqlParameter("@StartParameterTypId", CInt(startParameterType)))
|
||||
|
||||
da.SelectCommand = sqlCom
|
||||
da.Fill(ds)
|
||||
|
||||
sqlConn.Close()
|
||||
|
||||
If ds.Tables.Count > 0 Then
|
||||
If ds.Tables(0).Rows.Count > 0 Then
|
||||
parameterValue = ds.Tables.Item(0).Rows(0).Item(0)
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
'Loads all active jobs from database
|
||||
Public Shared Sub LoadJobs(ByVal common As Common.Common, ByVal jobType As JobType, ByVal ds As DataSet)
|
||||
Dim sqlConn As New SqlConnection(common.DSN)
|
||||
Try
|
||||
Dim sqlCom As New SqlCommand
|
||||
Dim da As New SqlDataAdapter
|
||||
|
||||
sqlConn.Open()
|
||||
|
||||
sqlCom.CommandType = CommandType.StoredProcedure
|
||||
sqlCom.Connection = sqlConn
|
||||
sqlCom.CommandText = "GetJobs"
|
||||
|
||||
sqlCom.Parameters.Add(New SqlParameter("@JobTypId", CInt(jobType)))
|
||||
|
||||
da.SelectCommand = sqlCom
|
||||
da.Fill(ds)
|
||||
|
||||
sqlConn.Close()
|
||||
Catch ex As Exception
|
||||
If sqlConn.State = ConnectionState.Open Then
|
||||
sqlConn.Close()
|
||||
End If
|
||||
Throw ex
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
BIN
BMS/DebugHelper/bin/DebugHelper.vshost.exe
Normal file
BIN
BMS/DebugHelper/bin/DebugHelper.vshost.exe
Normal file
Binary file not shown.
9
BMS/DebugHelper/mssccprj.scc
Normal file
9
BMS/DebugHelper/mssccprj.scc
Normal file
@@ -0,0 +1,9 @@
|
||||
SCC = This is a Source Code Control file
|
||||
|
||||
[DataAccess.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/DebugHelper", YTCAAAAA
|
||||
|
||||
[DebugHelper.vbproj]
|
||||
SCC_Aux_Path = "\\SERVER01\DATEN\SourceSave\EDOKA4.0"
|
||||
SCC_Project_Name = "$/BMS/DebugHelper", YTCAAAAA
|
||||
BIN
BMS/DebugHelper/vssver.scc
Normal file
BIN
BMS/DebugHelper/vssver.scc
Normal file
Binary file not shown.
Reference in New Issue
Block a user