diff --git a/root/nuget.exe b/root/nuget.exe new file mode 100644 index 0000000..7d8aeb3 Binary files /dev/null and b/root/nuget.exe differ diff --git a/root/programs/CS/0_Please run with a double-click to build bat file here.txt b/root/programs/0_Please run with a double-click to build bat file here.txt similarity index 100% rename from root/programs/CS/0_Please run with a double-click to build bat file here.txt rename to root/programs/0_Please run with a double-click to build bat file here.txt diff --git a/root/programs/CS/1_DeleteDir.bat b/root/programs/1_DeleteDir.bat similarity index 100% rename from root/programs/CS/1_DeleteDir.bat rename to root/programs/1_DeleteDir.bat diff --git a/root/programs/CS/2_DeleteFile.bat b/root/programs/2_DeleteFile.bat similarity index 100% rename from root/programs/CS/2_DeleteFile.bat rename to root/programs/2_DeleteFile.bat diff --git a/root/programs/3_BuildLibsAtOtherRepos.bat b/root/programs/3_BuildLibsAtOtherRepos.bat new file mode 100644 index 0000000..23a5dfc --- /dev/null +++ b/root/programs/3_BuildLibsAtOtherRepos.bat @@ -0,0 +1,63 @@ +@echo off + +@rem 本バッチファイルの作成にあたり、以下のサイトを参考にしました。 +@rem 【Bat】【vim】香り屋Vimをダウンロードしてインストールまでするbatファイル - Qiita +@rem https://qiita.com/koryuohproject/items/beed1a28ad6a1f60256d + +setlocal + +@rem ZIPファイル名 +set zipfilename=Temp.zip + +@rem GitHubのZIPパス +set srcUrl=https://github.com/OpenTouryoProject/OpenTouryoTemplates/archive/master.zip + +@rem 解凍ディレクトリ +set extDir=%CD% + +@rem 一時ディレクトリ +set tmpDir=Temp + +:Download +@rem ダウンロードされたZIPファイルがあるなら解凍 +if exist %extDir%\%zipfilename% GOTO Extract + +@rem ZIPファイルのダウンロード +@powershell -NoProfile -ExecutionPolicy Bypass -Command "$d=new-object System.Net.WebClient; [System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::Tls12; $d.Proxy.Credentials=[System.Net.CredentialCache]::DefaultNetWorkCredentials; $d.DownloadFile('%srcUrl%','%extDir%/%zipfilename%')" + +:Extract +@rem 一時ディレクトリがあるならビルドへ +if exist %extDir%\%tmpDir% GOTO Build + +@rem ZIPファイルを一時ディレクトリに解凍 +@powershell -NoProfile -ExecutionPolicy Bypass -Command "expand-archive %zipfilename%" + +:Build +@rem ビルドがあるならコピーへ +if exist "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\Frameworks\Infrastructure\Build_netcore30" GOTO Xcopy + +@rem batファイルを使用してビルド +cd "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\" +echo | call 2_Build_NuGet_net45.bat +echo | call 2_Build_NuGet_net46.bat +echo | call 2_Build_NuGet_net47.bat +echo | call 2_Build_NuGet_netstd20.bat +echo | call 3_Build_Business_net45.bat +echo | call 3_Build_Business_net46.bat +echo | call 3_Build_Business_net47.bat +echo | call 3_Build_Business_netcore20.bat +echo | call 3_Build_Business_netcore30.bat + +:Xcopy +@rem ビルド出力をコピー +cd %extDir% +xcopy /Y /E "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\Frameworks\Infrastructure\Build_net45" "OpenTouryoAssemblies\Build_net45\" +xcopy /Y /E "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\Frameworks\Infrastructure\Build_net46" "OpenTouryoAssemblies\Build_net46\" +xcopy /Y /E "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\Frameworks\Infrastructure\Build_net47" "OpenTouryoAssemblies\Build_net47\" +xcopy /Y /E "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\Frameworks\Infrastructure\Build_netcore20" "OpenTouryoAssemblies\Build_netcore20\" +xcopy /Y /E "Temp\OpenTouryoTemplates-develop\root_VS2017\programs\CS\Frameworks\Infrastructure\Build_netcore30" "OpenTouryoAssemblies\Build_netcore30\" + +pause + +:EOF +endlocal \ No newline at end of file diff --git a/root/programs/3_BuildLibsAtOtherReposInTimeOfDev.bat b/root/programs/3_BuildLibsAtOtherReposInTimeOfDev.bat new file mode 100644 index 0000000..b6e7fed --- /dev/null +++ b/root/programs/3_BuildLibsAtOtherReposInTimeOfDev.bat @@ -0,0 +1,63 @@ +@echo off + +@rem 本バッチファイルの作成にあたり、以下のサイトを参考にしました。 +@rem 【Bat】【vim】香り屋Vimをダウンロードしてインストールまでするbatファイル - Qiita +@rem https://qiita.com/koryuohproject/items/beed1a28ad6a1f60256d + +setlocal + +@rem ZIPファイル名 +set zipfilename=Temp.zip + +@rem GitHubのZIPパス +set srcUrl=https://github.com/OpenTouryoProject/OpenTouryo/archive/develop.zip + +@rem 解凍ディレクトリ +set extDir=%CD% + +@rem 一時ディレクトリ +set tmpDir=Temp + +:Download +@rem ダウンロードされたZIPファイルがあるなら解凍 +if exist %extDir%\%zipfilename% GOTO Extract + +@rem ZIPファイルのダウンロード +@powershell -NoProfile -ExecutionPolicy Bypass -Command "$d=new-object System.Net.WebClient; [System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::Tls12; $d.Proxy.Credentials=[System.Net.CredentialCache]::DefaultNetWorkCredentials; $d.DownloadFile('%srcUrl%','%extDir%/%zipfilename%')" + +:Extract +@rem 一時ディレクトリがあるならビルドへ +if exist %extDir%\%tmpDir% GOTO Build + +@rem ZIPファイルを一時ディレクトリに解凍 +@powershell -NoProfile -ExecutionPolicy Bypass -Command "expand-archive %zipfilename%" + +:Build +@rem ビルドがあるならコピーへ +if exist "Temp\OpenTouryo-develop\root\programs\CS\Frameworks\Infrastructure\Build_netcore30" GOTO Xcopy + +@rem batファイルを使用してビルド +cd "Temp\OpenTouryo-develop\root\programs\CS\" +echo | call 2_Build_NuGet_net45.bat +echo | call 2_Build_NuGet_net46.bat +echo | call 2_Build_NuGet_net47.bat +echo | call 2_Build_NuGet_netstd20.bat +echo | call 3_Build_Business_net45.bat +echo | call 3_Build_Business_net46.bat +echo | call 3_Build_Business_net47.bat +echo | call 3_Build_Business_netcore20.bat +echo | call 3_Build_Business_netcore30.bat + +:Xcopy +@rem ビルド出力をコピー +cd %extDir% +xcopy /Y /E "Temp\OpenTouryo-develop\root\programs\CS\Frameworks\Infrastructure\Build_net45" "OpenTouryoAssemblies\Build_net45\" +xcopy /Y /E "Temp\OpenTouryo-develop\root\programs\CS\Frameworks\Infrastructure\Build_net46" "OpenTouryoAssemblies\Build_net46\" +xcopy /Y /E "Temp\OpenTouryo-develop\root\programs\CS\Frameworks\Infrastructure\Build_net47" "OpenTouryoAssemblies\Build_net47\" +xcopy /Y /E "Temp\OpenTouryo-develop\root\programs\CS\Frameworks\Infrastructure\Build_netcore20" "OpenTouryoAssemblies\Build_netcore20\" +xcopy /Y /E "Temp\OpenTouryo-develop\root\programs\CS\Frameworks\Infrastructure\Build_netcore30" "OpenTouryoAssemblies\Build_netcore30\" + +pause + +:EOF +endlocal \ No newline at end of file diff --git a/root/programs/CS/5_Build_AsyncSvcSample.bat b/root/programs/4_Build_Frameworks.bat similarity index 79% rename from root/programs/CS/5_Build_AsyncSvcSample.bat rename to root/programs/4_Build_Frameworks.bat index 6e4d608..55eff40 100644 --- a/root/programs/CS/5_Build_AsyncSvcSample.bat +++ b/root/programs/4_Build_Frameworks.bat @@ -16,11 +16,10 @@ set CURRENT_DIR="%~dp0" call %CURRENT_DIR%z_Common.bat rem -------------------------------------------------- -rem Build the batch Infrastructure(Business) +rem Output xcopy after you build the batch Infrastructure(AsyncProcessing) rem -------------------------------------------------- -..\nuget.exe restore "Samples\AsyncSvc_sample\AsyncSvc_sample.sln" -%BUILDFILEPATH% %COMMANDLINE% "Samples\AsyncSvc_sample\AsyncSvc_sample.sln" +%BUILDFILEPATH% %COMMANDLINE% "Frameworks\Infrastructure\AsyncProcessing.sln" pause diff --git a/root/programs/CS/4_Build_AsyncProcessingService.bat b/root/programs/5_Build_AsyncProcessingService.bat similarity index 100% rename from root/programs/CS/4_Build_AsyncProcessingService.bat rename to root/programs/5_Build_AsyncProcessingService.bat diff --git a/root/programs/VB/5_Build_AsyncSvcSample.bat b/root/programs/5_Build_AsyncSvcSample.bat similarity index 76% rename from root/programs/VB/5_Build_AsyncSvcSample.bat rename to root/programs/5_Build_AsyncSvcSample.bat index 6e4d608..27589d1 100644 --- a/root/programs/VB/5_Build_AsyncSvcSample.bat +++ b/root/programs/5_Build_AsyncSvcSample.bat @@ -19,8 +19,11 @@ rem -------------------------------------------------- rem Build the batch Infrastructure(Business) rem -------------------------------------------------- -..\nuget.exe restore "Samples\AsyncSvc_sample\AsyncSvc_sample.sln" -%BUILDFILEPATH% %COMMANDLINE% "Samples\AsyncSvc_sample\AsyncSvc_sample.sln" +..\nuget.exe restore "Samples\CS\AsyncSvc_sample.sln" +%BUILDFILEPATH% %COMMANDLINE% "Samples\CS\AsyncSvc_sample.sln" + +..\nuget.exe restore "Samples\VB\AsyncSvc_sample.sln" +%BUILDFILEPATH% %COMMANDLINE% "Samples\VB\AsyncSvc_sample.sln" pause diff --git a/root/programs/CS/6_CopyToService.bat b/root/programs/6_CopyToService.bat similarity index 100% rename from root/programs/CS/6_CopyToService.bat rename to root/programs/6_CopyToService.bat diff --git a/root/programs/CS/7_SubmitTask.bat b/root/programs/7_SubmitTask.bat similarity index 100% rename from root/programs/CS/7_SubmitTask.bat rename to root/programs/7_SubmitTask.bat diff --git a/root/programs/CS/3_Build_Framework.bat b/root/programs/CS/3_Build_Framework.bat deleted file mode 100644 index af81da7..0000000 --- a/root/programs/CS/3_Build_Framework.bat +++ /dev/null @@ -1,37 +0,0 @@ -setlocal - -@rem -------------------------------------------------- -@rem Turn off the echo function. -@rem -------------------------------------------------- -@echo off - -@rem -------------------------------------------------- -@rem Get the path to the executable file. -@rem -------------------------------------------------- -set CURRENT_DIR="%~dp0" - -@rem -------------------------------------------------- -@rem Execution of the common processing. -@rem -------------------------------------------------- -call %CURRENT_DIR%z_Common.bat - -rem -------------------------------------------------- -rem Make the Directory. -rem -------------------------------------------------- -md "Frameworks\Infrastructure\Temp" -md "Frameworks\Infrastructure\Build" - -rem -------------------------------------------------- -rem Output xcopy after you build the batch Infrastructure(Business) -rem -------------------------------------------------- - -..\nuget.exe restore "Frameworks\Infrastructure\Business.sln" -%BUILDFILEPATH% %COMMANDLINE% "Frameworks\Infrastructure\Business.sln" - -xcopy /E /Y "Frameworks\Infrastructure\Business\bin\%BUILD_CONFIG%" "Frameworks\Infrastructure\Temp\%BUILD_CONFIG%\" -xcopy /E /Y "Frameworks\Infrastructure\Temp\%BUILD_CONFIG%" "Frameworks\Infrastructure\Build\" - -pause - -rem ------------------------------------------------------- -endlocal diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj b/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj deleted file mode 100644 index a76d6a6..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Business.csproj +++ /dev/null @@ -1,251 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50727 - 2.0 - {7187571A-3A26-4363-9AB6-189CB5B58422} - Library - Properties - Touryo.Infrastructure.Business - OpenTouryo.Business - - - - - - - - - v4.6 - - - 2.0 - - - publish\ - true - Disk - false - Foreground - 7 - Days - false - false - true - 0 - 1.0.0.%2a - false - false - true - ..\ - true - - - true - full - false - bin\Debug\ - DEBUG;TRACE - prompt - 4 - bin\Debug\OpenTouryo.Business.XML - false - - - pdbonly - true - bin\Release\ - TRACE - prompt - 4 - false - - - - ..\packages\DotNetZip.1.10.1\lib\net20\DotNetZip.dll - True - - - ..\packages\log4net.2.0.8\lib\net45-full\log4net.dll - True - - - ..\packages\Microsoft.Owin.3.1.0\lib\net45\Microsoft.Owin.dll - True - - - ..\packages\Microsoft.Owin.Security.3.1.0\lib\net45\Microsoft.Owin.Security.dll - True - - - ..\packages\Microsoft.Web.Infrastructure.1.0.0.0\lib\net40\Microsoft.Web.Infrastructure.dll - True - - - ..\packages\MySql.Data.6.9.12\lib\net45\MySql.Data.dll - True - - - ..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll - True - - - ..\packages\Npgsql.3.2.5\lib\net451\Npgsql.dll - True - - - ..\packages\Touryo.Infrastructure.Public.Db.DamManagedOdp.2.3.0\lib\net46\OpenTouryo.DamManagedOdp.dll - True - - - ..\packages\Touryo.Infrastructure.Public.Db.DamMySQL.2.3.0\lib\net46\OpenTouryo.DamMySQL.dll - True - - - ..\packages\Touryo.Infrastructure.Public.Db.DamPstGrS.2.3.0\lib\net46\OpenTouryo.DamPstGrS.dll - True - - - ..\packages\Touryo.Infrastructure.Framework.2.3.0\lib\net46\OpenTouryo.Framework.dll - True - - - ..\packages\Touryo.Infrastructure.Public.2.3.0\lib\net46\OpenTouryo.Public.dll - True - - - ..\packages\Oracle.ManagedDataAccess.12.2.1100\lib\net40\Oracle.ManagedDataAccess.dll - True - - - ..\packages\Owin.1.0\lib\net40\Owin.dll - True - - - - - - - ..\packages\Microsoft.AspNet.WebApi.Client.5.2.3\lib\net45\System.Net.Http.Formatting.dll - True - - - - ..\packages\System.Threading.Tasks.Extensions.4.3.0\lib\portable-net45+win8+wp8+wpa81\System.Threading.Tasks.Extensions.dll - True - - - - ..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.Helpers.dll - True - - - ..\packages\Microsoft.AspNet.WebApi.Core.5.2.3\lib\net45\System.Web.Http.dll - True - - - ..\packages\Microsoft.AspNet.Mvc.5.2.3\lib\net45\System.Web.Mvc.dll - True - - - ..\packages\Microsoft.AspNet.Razor.3.2.3\lib\net45\System.Web.Razor.dll - True - - - ..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.WebPages.dll - True - - - ..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.WebPages.Deployment.dll - True - - - ..\packages\Microsoft.AspNet.WebPages.3.2.3\lib\net45\System.Web.WebPages.Razor.dll - True - - - - - - - - - - - - - - - - - - - - - True - True - MyBusinessApplicationExceptionMessageResource.resx - - - True - True - MyBusinessSystemExceptionMessageResource.resx - - - - - - - - - - - - False - .NET Framework 3.5 SP1 Client Profile - false - - - False - .NET Framework 3.5 SP1 - true - - - False - Windows インストーラー 3.1 - true - - - - - MyBusinessApplicationExceptionMessageResource.ja.Designer.cs - - - ResXFileCodeGenerator - MyBusinessApplicationExceptionMessageResource.Designer.cs - - - - ResXFileCodeGenerator - MyBusinessSystemExceptionMessageResource.Designer.cs - - - - - - - - - - - - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs deleted file mode 100644 index b943308..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.cs +++ /dev/null @@ -1,645 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyFcBaseLogic -//* クラス日本語名 ：自動振り分け機能付き業務コード親クラス２（サーバ用）（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2010/03/30 西野 大介 ログ フォーマットにメソッド名を追加 -//* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納したので -//* 2010/09/24 西野 大介 Damクラス内にユーザ情報を格納したので -//* 2011/01/24 西野 大介 上記コードが通るカバレージを修正 -//* 2011/01/31 西野 大介 Damがnullの場合は処理しないように修正 -//* 2012/02/09 西野 大介 OLEDB、ODBCのデータプロバイダ対応 -//* 2012/04/05 西野 大介 \n → \r\n 化 -//* 2012/06/18 西野 大介 OriginalStackTrace（ログ出力）の品質向上 -//* 2017/02/28 西野 大介 ExceptionDispatchInfoを取り入れ、OriginalStackTraceを削除 -//* 2017/02/28 西野 大介 エラーログの見直し（その他の例外の場合、ex.ToString()を出力） -//* 2018/03/29 西野 大介 .NET Standard対応で、削除機能に関連する処理を削除 -//********************************************************************************** - -using System; -using System.Runtime.ExceptionServices; - -using Touryo.Infrastructure.Business.Common; -using Touryo.Infrastructure.Framework.Business; -using Touryo.Infrastructure.Framework.Exceptions; -using Touryo.Infrastructure.Framework.Common; -using Touryo.Infrastructure.Public.Db; -using Touryo.Infrastructure.Public.Log; -using Touryo.Infrastructure.Public.Util; - -namespace Touryo.Infrastructure.Business.Business -{ - /// 自動振り分け機能付き業務コード親クラス２（サーバ用）（テンプレート） - /// （オーバーライドして）自由に利用できる。 - public abstract class MyFcBaseLogic : BaseLogic - { - /// 性能測定 - private PerformanceRecorder perfRec; - - #region メソッド - - #region 処理の自動振り分け - - /// 自動振り分け処理 - /// 引数クラス - /// 戻り値クラス - protected override void UOC_DoAction(BaseParameterValue parameterValue, ref BaseReturnValue returnValue) - { - // メソッド名を生成 - string methodName = "UOC_" + parameterValue.MethodName; - - #region レイトバインドする - - object[] paramSet = new object[] { parameterValue }; - - try - { - // Latebind - Latebind.InvokeMethod(this, methodName, paramSet); - } - catch (System.Reflection.TargetInvocationException rtEx) - { - // スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(rtEx.InnerException).Throw(); - } - finally - { - // レイトバインドにおいて、 - // ・ 戻り値（in）の場合、下位で生成した戻り値インスタンスは戻らない。 - // ・ 戻り値（ref, out）の場合、例外発生時は戻り値インスタンスは戻らない。 - // という問題がある。 - - // ∴ （特に後者の対応のため、） - // メンバ変数を使用して戻り値インスタンスを戻す。 - returnValue = this.ReturnValue; - } - - #endregion - } - - #endregion - - #region ＤＢ接続 - - /// データアクセス制御クラス（ＤＡＭ）の生成し、コネクションを確立、トランザクションを開始する処理を実装 - /// 引数クラス - /// 分離レベル（ＤＢＭＳ毎の分離レベルの違いを理解して設定すること） - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_ConnectionOpen( - BaseParameterValue parameterValue, - DbEnum.IsolationLevelEnum iso) - { - #region トランザクション属性取得例 - - //// クラスの属性、メソッドの属性から調査 - //MyAttribute[] aryMCA; - //MyAttribute[] aryMMA; - - //// クラスの属性を取得 - //MyAttribute.GetAttr(this, out aryMCA); - - //foreach (MyAttribute mca in aryMCA) - //{ - // Debug.WriteLine(this.GetType().ToString() + ".MyAttributeA = " + mca.MyAttributeA); - // Debug.WriteLine(this.GetType().ToString() + ".MyAttributeB = " + mca.MyAttributeB); - // Debug.WriteLine(this.GetType().ToString() + ".MyAttributeC = " + mca.MyAttributeC); - // Debug.WriteLine("+------------------+"); - //} - - //// メソッドの属性を取得 - //MethodInfo[] aryMtdInfo = this.GetType().GetMethods(); - - //foreach (MethodInfo mtdInfo in aryMtdInfo) - //{ - // MyAttribute.GetAttr(mtdInfo, out aryMMA); - - // foreach (MyAttribute mma in aryMMA) - // { - // Debug.WriteLine(mtdInfo.Name + ".MyAttributeA = " + mma.MyAttributeA); - // Debug.WriteLine(mtdInfo.Name + ".MyAttributeB = " + mma.MyAttributeB); - // Debug.WriteLine(mtdInfo.Name + ".MyAttributeC = " + mma.MyAttributeC); - // Debug.WriteLine("+------------------+"); - // } - //} - - #endregion - - // データアクセス制御クラス（ＤＡＭ） - BaseDam dam = null; - - #region 接続 - - if (iso == DbEnum.IsolationLevelEnum.NotConnect) - { - // 接続しない - } - else - { - // 接続する - - string connstring = ""; - - #region データ プロバイダ選択 - - if (parameterValue.ActionType.Split('%')[0] == "SQL") - { - // SQL Server / SQL Client用のDamを生成 - dam = new DamSqlSvr(); - - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL"); - } -#if NETCOREAPP2_0 -#else - else if (parameterValue.ActionType.Split('%')[0] == "OLE") - { - // OLEDB.NET用のDamを生成 - dam = new DamOLEDB(); - - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE"); - } -#endif - else if (parameterValue.ActionType.Split('%')[0] == "ODB") - { - // ODBC.NET用のDamを生成 - dam = new DamODBC(); - - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC"); - } - //else if (parameterValue.ActionType.Split('%')[0] == "ORA") - //{ - // // Oracle / Oracle Client用のDamを生成 - // dam = new DamOraClient(); - - // // 接続文字列をロード - // connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA"); - //} -#if NETCOREAPP2_0 -#else - else if (parameterValue.ActionType.Split('%')[0] == "ODP") - { - // Oracle / ODP.NET用のDamを生成 - dam = new DamManagedOdp(); - - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP"); - } -#endif - //else if (parameterValue.ActionType.Split('%')[0] == "DB2") - //{ - // // DB2.NET用のDamを生成 - // dam = new DamDB2(); - - // // 接続文字列をロード - // connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2"); - //} - //else if (parameterValue.ActionType.Split('%')[0] == "HIR") - //{ - // // HiRDBデータプロバイダ用のDamを生成 - // dam = new DamHiRDB(); - - // // 接続文字列をロード - // connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR"); - //} - else if (parameterValue.ActionType.Split('%')[0] == "MCN") - { - // MySQL Cnn/NET用のDamを生成 - dam = new DamMySQL(); - - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN"); - } - else if (parameterValue.ActionType.Split('%')[0] == "NPS") - { - // PostgreSQL / Npgsql用のDamを生成 - dam = new DamPstGrS(); - - // 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS"); - } - else - { - // ここは通らない - } - - #endregion - - if (dam != null) - { - // コネクションをオープンする。 - dam.ConnectionOpen(connstring); - - #region トランザクションを開始する。 - - if (iso == DbEnum.IsolationLevelEnum.User) - { - // 自動トランザクション（規定の分離レベル） - dam.BeginTransaction(DbEnum.IsolationLevelEnum.ReadCommitted); - } - else - { - // 自動トランザクション（指定の分離レベル） - dam.BeginTransaction(iso); - } - - #endregion - - // ユーザ情報を格納する（ログ出力で利用）。 - dam.Obj = ((MyParameterValue)parameterValue).User; - - // damを設定する。 - this.SetDam(dam); - } - } - - #endregion - } - - #endregion - - #region 開始・終了処理 - - /// - /// Ｂ層の開始処理を実装 - /// - /// 引数クラス - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_PreAction(BaseParameterValue parameterValue) - { - // ACCESSログ出力----------------------------------------------- - - MyParameterValue myPV = (MyParameterValue)parameterValue; - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "----->>" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType; - - // Log4Netへログ出力 - LogIF.InfoLog("ACCESS", strLogMessage); - - // ------------------------------------------------------------- - - // 性能測定開始 - this.perfRec = new PerformanceRecorder(); - this.perfRec.StartsPerformanceRecord(); - - } - - /// - /// Ｂ層の終了処理を実装 - /// - /// 引数クラス - /// 戻り値クラス - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_AfterAction(BaseParameterValue parameterValue, BaseReturnValue returnValue) - { - // 性能測定終了 - this.perfRec.EndsPerformanceRecord(); - - // ACCESSログ出力----------------------------------------------- - - MyParameterValue myPV = (MyParameterValue)parameterValue; - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // 処理時間（実行時間）, 処理時間（CPU時間） - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "<<-----" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType + - "," + this.perfRec.ExecTime + - "," + this.perfRec.CpuTime; - - // Log4Netへログ出力 - LogIF.InfoLog("ACCESS", strLogMessage); - - // ------------------------------------------------------------- - } - - /// - /// Ｂ層のトランザクションのコミット後の終了処理を実装 - /// - /// 引数クラス - /// 戻り値クラス - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_AfterTransaction(BaseParameterValue parameterValue, BaseReturnValue returnValue) - { - // TODO: - } - - #endregion - - #region 例外処理 - - /// - /// Ｂ層の業務例外による異常終了の後処理を実装するUOCメソッド。 - /// - /// 引数クラス - /// 戻り値クラス - /// BusinessApplicationException - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_ABEND(BaseParameterValue parameterValue, BaseReturnValue returnValue, BusinessApplicationException baEx) - { - // 業務例外発生時の処理を実装 - // TODO: - - // nullチェック - if (this.perfRec == null) - { - // なにもしない - } - else - { - // 性能測定終了 - this.perfRec.EndsPerformanceRecord(); - - // ACCESSログ出力----------------------------------------------- - - MyParameterValue myPV = (MyParameterValue)parameterValue; - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // 処理時間（実行時間）, 処理時間（CPU時間） - // エラーメッセージID, エラーメッセージ等 - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "<<-----" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType + - "," + this.perfRec.ExecTime + - "," + this.perfRec.CpuTime + - "," + baEx.messageID + - "," + baEx.Message; // baEX - - // Log4Netへログ出力 - LogIF.WarnLog("ACCESS", strLogMessage); - } - - // ------------------------------------------------------------- - } - - /// - /// Ｂ層のシステム例外による異常終了の後処理を実装するUOCメソッド。 - /// - /// 引数クラス - /// 戻り値クラス - /// BusinessSystemException - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_ABEND(BaseParameterValue parameterValue, BaseReturnValue returnValue, BusinessSystemException bsEx) - { - // システム例外発生時の処理を実装 - // TODO: - - // nullチェック - if (this.perfRec == null) - { - // なにもしない - } - else - { - // 性能測定終了 - this.perfRec.EndsPerformanceRecord(); - - // ACCESSログ出力----------------------------------------------- - - MyParameterValue myPV = (MyParameterValue)parameterValue; - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // 処理時間（実行時間）, 処理時間（CPU時間） - // エラーメッセージID, エラーメッセージ等 - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "<<-----" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType + - "," + this.perfRec.ExecTime + - "," + this.perfRec.CpuTime + - "," + bsEx.messageID + - "," + bsEx.Message + - "\r\n" + bsEx.StackTrace; // bsEX - - // Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage); - } - - // ------------------------------------------------------------- - } - - /// - /// Ｂ層の一般的な例外による異常終了の後処理を実装するUOCメソッド。 - /// - /// 引数クラス - /// 戻り値クラス - /// Exception - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_ABEND(BaseParameterValue parameterValue, ref BaseReturnValue returnValue, Exception ex) - { - // 一般的な例外発生時の処理を実装 - // TODO: - - // nullチェック - if (this.perfRec == null) - { - // なにもしない - - // スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(ex).Throw(); - } - else - { - // 性能測定終了 - this.perfRec.EndsPerformanceRecord(); - - // キャスト - MyParameterValue myPV = (MyParameterValue)parameterValue; - - // システム例外に振り替える用のワーク - bool sysErrorFlag = false; - string sysErrorMessageID = ""; - string sysErrorMessage = ""; - - #region 例外の振替処理のIF文 - - if (ex.Message == "Other-Business") - { - // 業務例外へ変換 - returnValue.ErrorFlag = true; - returnValue.ErrorMessageID = "振替後"; - returnValue.ErrorMessage = "振替後"; - returnValue.ErrorInfo = "振り替える場合は、基本的にここを利用。"; - } - else if (ex.Message == "Other-System") - { - // システム例外へ振替 - sysErrorFlag = true; - sysErrorMessageID = "振替後"; - sysErrorMessage = "振替後"; - } - - #endregion - - #region ACCESSログ出力、リスローする・しない - - if (returnValue.ErrorFlag) - { - // 業務例外へ変換 - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // 処理時間（実行時間）, 処理時間（CPU時間） - // エラーメッセージID, エラーメッセージ等 - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "<<-----" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType + - "," + this.perfRec.ExecTime + - "," + this.perfRec.CpuTime + - "," + returnValue.ErrorMessageID + - "," + returnValue.ErrorMessage; // baEX - - // Log4Netへログ出力 - LogIF.WarnLog("ACCESS", strLogMessage); - } - else if (sysErrorFlag) - { - // システム例外へ振替 - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // 処理時間（実行時間）, 処理時間（CPU時間） - // エラーメッセージID, エラーメッセージ等 - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "<<-----" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType + - "," + this.perfRec.ExecTime + - "," + this.perfRec.CpuTime + - "," + sysErrorMessageID + - "," + sysErrorMessage + - "\r\n" + ex.StackTrace; // bsEX - - // Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage); - - // 振替てスロー - throw new BusinessSystemException(sysErrorMessageID, sysErrorMessage); - } - else - { - // そのまま - - // ------------ - // メッセージ部 - // ------------ - // ユーザ名, IPアドレス, レイヤ, - // 画面名, コントロール名, メソッド名, 処理名 - // 処理時間（実行時間）, 処理時間（CPU時間） - // エラーメッセージID, エラーメッセージ等 - // ------------ - string strLogMessage = - "," + myPV.User.UserName + - "," + myPV.User.IPAddress + - "," + "<<-----" + - "," + myPV.ScreenId + - "," + myPV.ControlId + - "," + myPV.MethodName + - "," + myPV.ActionType + - "," + this.perfRec.ExecTime + - "," + this.perfRec.CpuTime + - "," + "other Exception" + - "," + ex.Message + - "\r\n" + ex.ToString(); // ex - - // Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage); - - // スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(ex).Throw(); - } - - #endregion - } - } - - #endregion - - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Common/MyParameterValue.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Common/MyParameterValue.cs deleted file mode 100644 index 101c52e..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Common/MyParameterValue.cs +++ /dev/null @@ -1,112 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyParameterValue -//* クラス日本語名 ：引数親クラス２（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2009/04/02 西野 大介 シリアライズ可能にする（WS対応） -//* 2010/03/03 西野 大介 自動振り分け処理に使用するメソッド名を追加 -//* 2010/03/11 西野 大介 引数の順番を変更した。 -//* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納 -//********************************************************************************** - -using System; -using Touryo.Infrastructure.Business.Util; -using Touryo.Infrastructure.Framework.Common; - -namespace Touryo.Infrastructure.Business.Common -{ - /// 引数親クラス２ - /// - /// シリアライズ可能にする（WS対応）自由に（拡張して）利用できる。 - /// - [Serializable()] - public class MyParameterValue : BaseParameterValue - { - #region インスタンス変数 - - /// ユーザ情報 - private MyUserInfo _user; - - #endregion - - #region コンストラクタ - - /// コンストラクタ - /// スクリーンID - /// コントロールID - /// アクションタイプ - /// ユーザ情報 - /// - /// コンストラクタは継承されないので、派生先で呼び出す必要がある。 - /// ※ コンストラクタの実行順は、基本クラス→派生クラスの順 - /// ※ VB.NET では、MyBase.New() を派生クラスのコンストラクタから呼ぶ。 - /// 自由に利用できる（互換性の維持）。 - /// - public MyParameterValue(string screenId, string controlId, string actionType, MyUserInfo user) - : base(screenId, controlId, actionType) - { - // ユーザ情報 - this._user = user; - } - - /// コンストラクタ - /// スクリーンID - /// コントロールID - /// メソッド名 - /// アクションタイプ - /// ユーザ情報 - /// - /// コンストラクタは継承されないので、派生先で呼び出す必要がある。 - /// ※ コンストラクタの実行順は、基本クラス→派生クラスの順 - /// ※ VB.NET では、MyBase.New() を派生クラスのコンストラクタから呼ぶ。 - /// 自由に利用できる。 - /// - public MyParameterValue(string screenId, string controlId, string methodName, string actionType, MyUserInfo user) - : base(screenId, controlId, methodName, actionType) - { - // ユーザ情報 - this._user = user; - } - - #endregion - - #region プロパティ - - /// ユーザ情報（読み取り専用） - /// 自由に利用できる。 - public MyUserInfo User - { - get - { - return this._user; - } - } - - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Common/MyReturnValue.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Common/MyReturnValue.cs deleted file mode 100644 index 55441d5..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Common/MyReturnValue.cs +++ /dev/null @@ -1,48 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyReturnValue -//* クラス日本語名 ：戻り値親クラス２（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* 更新履歴 ：－ -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2009/04/02 西野 大介 シリアライズ可能にする（WS対応） -//********************************************************************************** - -using System; -using Touryo.Infrastructure.Framework.Common; - -namespace Touryo.Infrastructure.Business.Common -{ - /// 戻り値親クラス２ - /// - /// シリアライズ可能にする（WS対応）自由に（拡張して）利用できる。 - /// - [Serializable()] - public class MyReturnValue : BaseReturnValue - { - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/BaseConsolidateDao.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/BaseConsolidateDao.cs deleted file mode 100644 index 52d5d69..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/BaseConsolidateDao.cs +++ /dev/null @@ -1,57 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：BaseConsolidateDao -//* クラス日本語名 ：Dao集約クラス -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2012/06/14 西野 大介 abstract属性を付与した。 -//********************************************************************************** - -using Touryo.Infrastructure.Public.Db; - -namespace Touryo.Infrastructure.Business.Dao -{ - /// Dao集約クラスのベースクラスの例 - public abstract class BaseConsolidateDao - { - /// データアクセス制御クラス - private BaseDam _dam; - - /// データアクセス制御クラス - protected BaseDam Dam - { - get { return this._dam; } - } - - /// コンストラクタ - /// データアクセス制御クラス - public BaseConsolidateDao(BaseDam dam) - { - this._dam = dam; - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs deleted file mode 100644 index bc153a8..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/CmnDao.cs +++ /dev/null @@ -1,490 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：CmnDao -//* クラス日本語名 ：共通Daoクラス（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2010/09/24 西野 大介 ジェネリック対応（Dictionary、List、Queue、Stack） -//* nullチェック方法、Contains → ContainsKeyなどに注意 -//* 2010/11/02 西野 大介 GetParameterメソッドを追加（ｽﾄｱﾄﾞ ﾕｰｻﾞﾋﾞﾘﾃｨ向上） -//* 2010/11/02 西野 大介 その他、リファクタリングなど（メソッド名、修飾子の変更） -//* 特にprotected → public化の「new & base」に注意！ -//* （ミスると再帰呼び出しの無限ループになる...疎通で確認可） -//* 2011/10/09 西野 大介 国際化対応 -//* 2012/06/14 西野 大介 ResourceLoaderに加え、EmbeddedResourceLoaderに対応 -//* 2013/07/07 西野 大介 ExecGenerateSQL（SQL生成）メソッド（実行しない）を追加 -//* 2014/11/20 Sandeep Implemented CommandTimeout property and SetCommandTimeout method. -//* 2014/11/20 Sai removed IDbCommand property in SetCommandTimeout method. -//* 2018/08/07 西野 大介 ストアド実行のためCommandType.StoredProcedureを設定可能に。 -//********************************************************************************** - -using System; -using System.Data; -using System.Collections.Generic; - -using Touryo.Infrastructure.Business.Exceptions; -using Touryo.Infrastructure.Framework.Exceptions; -using Touryo.Infrastructure.Public.Db; - -namespace Touryo.Infrastructure.Business.Dao -{ - /// 共通Daoクラス - /// 自由に（拡張して）利用できる。 - public class CmnDao : MyBaseDao - { - #region インスタンス変数 - - /// CommandType - private CommandType? _cmdType = null; - - #region パラメタ - - /// ユーザ パラメタ（文字列置換）用ディクショナリ - private Dictionary DicUserParameter = new Dictionary(); - - /// パラメタ ライズド クエリのパラメタ用ディクショナリ - private Dictionary DicParameter = new Dictionary(); - - #region 追加のDictionary - /// パラメタ ライズド クエリの指定されたパラメータ（の型）を保持するディクショナリ - private Dictionary DicParameterType = new Dictionary(); - /// パラメタ ライズド クエリの指定されたパラメータ（のサイズ）を保持するディクショナリ - private Dictionary DicParameterSize = new Dictionary(); - /// パラメタ ライズド クエリの指定されたパラメータ（の方向）を保持するディクショナリ - private Dictionary DicParameterDirection = new Dictionary(); - #endregion - - #endregion - - #region パラメタの制御 - - /// パラメタライズドクエリのパラメタを取得する（Out,RetValパラメタ用）。 - /// パラメタライズドクエリのパラメタ名 - /// Out,RetValパラメタのバリュー - /// - /// 動的SQLの場合はSQL実行後に利用可能 - /// - public new object GetParameter(string parameterName) - { - // ★ ベースのメソッドを呼ぶ - return base.GetParameter(parameterName); - - } - - /// パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - /// パラメタ名 - /// パラメタ値 - /// 自由に（拡張して）利用できる。 - public new void SetParameter(string parameterName, object obj) - { - // ユーザ パラメタをディクショナリに設定 - this.DicParameter[parameterName] = obj; - } - - /// パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - /// パラメタ名 - /// パラメタ値 - /// パラメタの型 - /// 自由に（拡張して）利用できる。 - public new void SetParameter(string parameterName, object obj, object dbTypeInfo) - { - // ユーザ パラメタをディクショナリに設定 - this.DicParameter[parameterName] = obj; - - // 機能改善 - this.DicParameterType[parameterName] = dbTypeInfo; - } - - /// パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - /// パラメタ名 - /// パラメタ値 - /// パラメタの型 - /// パラメタのサイズ - /// 自由に（拡張して）利用できる。 - public new void SetParameter(string parameterName, object obj, object dbTypeInfo, int size) - { - // ユーザ パラメタをディクショナリに設定 - this.DicParameter[parameterName] = obj; - - // 機能改善 - this.DicParameterType[parameterName] = dbTypeInfo; - this.DicParameterSize[parameterName] = size; - } - - /// パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - /// パラメタ名 - /// パラメタ値 - /// パラメタの型 - /// パラメタのサイズ - /// パラメタの方向 - /// 自由に（拡張して）利用できる。 - public new void SetParameter(string parameterName, object obj, - object dbTypeInfo, int size, ParameterDirection paramDirection) - { - // ユーザ パラメタをディクショナリに設定 - this.DicParameter[parameterName] = obj; - - // 機能改善 - this.DicParameterType[parameterName] = dbTypeInfo; - this.DicParameterSize[parameterName] = size; - this.DicParameterDirection[parameterName] = paramDirection; - } - - /// ユーザ パラメタ（文字列置換）をディクショナリに設定する。 - /// ユーザ パラメタ名 - /// ユーザ パラメタ値 - /// 自由に（拡張して）利用できる。 - public new void SetUserParameter(string userParamName, string userParamValue) - { - // ユーザ パラメタをディクショナリに設定 - this.DicUserParameter[userParamName] = userParamValue; - } - - /// - /// ・ユーザ パラメタ（文字列置換） - /// ・パラメタ ライズド クエリのパラメタ - /// を格納するディクショナリをクリアする。 - /// - /// 自由に（拡張して）利用できる。 - public void ClearParameters() - { - // ユーザ パラメタ（文字列置換）用ディクショナリを初期化 - this.DicUserParameter = new Dictionary(); - // パラメタ ライズド クエリのパラメタ用ディクショナリを初期化 - this.DicParameter = new Dictionary(); - - // 同上 - this.DicParameterType = new Dictionary(); - this.DicParameterSize = new Dictionary(); - this.DicParameterDirection = new Dictionary(); - } - - #endregion - - #region SQLファイル名 - - /// SQLファイル名 - private string _sQLFileName = ""; - - #region プロパティ プロシージャ - - /// SQLファイル名 - /// 自由に（拡張して）利用できる。 - public string SQLFileName - { - set - { - this._sQLFileName = value; - this._sQLText = ""; - } - } - - #endregion - - #endregion - - #region SQLテキスト - - /// SQLテキスト - private string _sQLText = ""; - - #region プロパティ プロシージャ - - /// SQLテキスト - /// 自由に（拡張して）利用できる。 - public string SQLText - { - set - { - this._sQLText = value; - this._sQLFileName = ""; - } - } - - #endregion - - #endregion - - #region CommandTimeout - - /// CommandTimeout - private int _commandTimeout = -1; - - #region プロパティ プロシージャ - - /// CommandTimeout - /// 自由に（拡張して）利用できる。 - public int CommandTimeout - { - set - { - this._commandTimeout = value; - } - } - - #endregion - - #endregion - - #endregion - - #region コンストラクタ - - /// コンストラクタ - /// 自由に利用できる。 - public CmnDao(BaseDam dam) : base(dam) { } - - /// コンストラクタ - /// 自由に利用できる。 - public CmnDao(BaseDam dam, CommandType cmdType) : base(dam) - { - this._cmdType = cmdType; - } - - #endregion - - #region クエリ メソッド - - #region Exec(new & base) - - /// Command.ExecuteScalarメソッドでデータを取得する。 - /// データ - /// 自由に（拡張して）利用できる。 - public new object ExecSelectScalar() - { - // SQLの設定 - this.SetSQL(); - - // Set CommandTimeout - this.SetCommandTimeout(); - - // パラメタの一括設定 - this.SetParameters(); - - // SQLを実行し、データを戻す。 - // （★ ベースのメソッドを呼ぶ） - return base.ExecSelectScalar(); - } - - /// DataAdapter.Fill(DataTable)メソッドでデータを取得する。 - /// 結果セット（データ テーブル） - /// 自由に（拡張して）利用できる。 - public new void ExecSelectFill_DT(DataTable dt) - { - // SQLの設定 - this.SetSQL(); - - // Set CommandTimeout - this.SetCommandTimeout(); - - // パラメタの一括設定 - this.SetParameters(); - - // SQLを実行し、結果セット（データ テーブル）を戻す。 - // （★ ベースのメソッドを呼ぶ） - base.ExecSelectFill_DT(dt); - } - - /// DataAdapter.Fill(DataSet)メソッドでデータを取得する。 - /// 結果セット（データ セット） - /// 自由に（拡張して）利用できる。 - public new void ExecSelectFill_DS(DataSet ds) - { - // SQLの設定 - this.SetSQL(); - - // Set CommandTimeout - this.SetCommandTimeout(); - - // パラメタの一括設定 - this.SetParameters(); - - // SQLを実行し、結果セット（データ セット）を戻す。 - // （★ ベースのメソッドを呼ぶ） - base.ExecSelectFill_DS(ds); - } - - /// Command.ExecuteReaderメソッドでデータを取得する。 - /// 結果セット（データ リーダ） - /// 自由に（拡張して）利用できる。 - public new IDataReader ExecSelect_DR() - { - // SQLの設定 - this.SetSQL(); - - // Set CommandTimeout - this.SetCommandTimeout(); - - // パラメタの一括設定 - this.SetParameters(); - - // SQLを実行し、結果セット（データ リーダ）を戻す。 - // （★ ベースのメソッドを呼ぶ） - return base.ExecSelect_DR(); - } - - /// Command.ExecuteNonQueryメソッドでSQLを実行する。 - /// 影響を受けた行の数 - /// 自由に（拡張して）利用できる。 - public new int ExecInsUpDel_NonQuery() - { - // SQLの設定 - this.SetSQL(); - - // Set CommandTimeout - this.SetCommandTimeout(); - - // パラメタの一括設定 - this.SetParameters(); - - // SQLを実行し、戻り値を戻す。 - // （★ ベースのメソッドを呼ぶ） - return base.ExecInsUpDel_NonQuery(); - } - - /// ExecGenerateSQLで静的SQLを生成する - /// SQLUtility - /// SQL文 - /// 自由に（拡張して）利用できる。 - public new string ExecGenerateSQL(SQLUtility sqlUtil) - { - // SQLの設定 - this.SetSQL(); - - // Set CommandTimeout - this.SetCommandTimeout(); - - // パラメタの一括設定 - this.SetParameters(); - - // 静的SQLを生成する。 - // （★ ベースのメソッドを呼ぶ） - return base.ExecGenerateSQL(sqlUtil); - } - - #endregion - - #region 共通関数 - - /// SQLの指定 - private void SetSQL() - { - // SQL指定 - if (this._sQLFileName != "") - { - // ファイルから - if (this._cmdType.HasValue) - { - this.SetSqlByFile2(this._sQLFileName, this._cmdType.Value); - } - else - { - this.SetSqlByFile2(this._sQLFileName); - } - } - else if (this._sQLText != "") - { - // テキストから - if (this._cmdType.HasValue) - { - this.SetSqlByCommand(this._sQLText, this._cmdType.Value); - } - else - { - this.SetSqlByCommand(this._sQLText); - } - - } - else - { - // SQLエラー - throw new BusinessSystemException( - MyBusinessSystemExceptionMessage.CMN_DAO_ERROR[0], - String.Format(MyBusinessSystemExceptionMessage.CMN_DAO_ERROR[1], - MyBusinessSystemExceptionMessage.CMN_DAO_ERROR_SQL)); - } - } - - /// To Set CommandTimeout - private void SetCommandTimeout() - { - // If CommandTimeout is >= 0 then set CommandTimeout. - // Else skip, automatically it will set default CommandTimeout. - if (this._commandTimeout >= 0) - { - this.GetDam().DamIDbCommand.CommandTimeout = this._commandTimeout; - } - } - - /// パラメタの一括設定（内部用） - private void SetParameters() - { - // ユーザ パラメタ（文字列置換）を設定する。 - foreach (string userParamName in this.DicUserParameter.Keys) - { - // ★ ベースのメソッドを呼ぶ - base.SetUserParameter(userParamName, this.DicUserParameter[userParamName].ToString()); - } - - // パラメタ ライズド クエリのパラメタを設定する。 - foreach (string paramName in this.DicParameter.Keys) - { - // 機能改善 - - // デフォルト値 - object type = null; - int size = -1; - ParameterDirection direction = ParameterDirection.Input; - - // あったら設定（DicParameterType） - if (this.DicParameterType.ContainsKey(paramName)) - { - type = this.DicParameterType[paramName]; - } - - // あったら設定（DicParameterSize） - if (this.DicParameterSize.ContainsKey(paramName)) - { - size = this.DicParameterSize[paramName]; - } - - // あったら設定（DicParameterDirection） - if (this.DicParameterDirection.ContainsKey(paramName)) - { - direction = this.DicParameterDirection[paramName]; - } - - // ★ ベースのメソッドを呼ぶ - base.SetParameter(paramName, this.DicParameter[paramName], type, size, direction); - } - } - - #endregion - - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs deleted file mode 100644 index bb98b9f..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Dao/MyBaseDao.cs +++ /dev/null @@ -1,262 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyBaseDao -//* クラス日本語名 ：データアクセス親クラス２（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2009/04/21 西野 大介 FrameworkExceptionの追加に伴い、実装変更 -//* 2010/09/24 西野 大介 Damクラス内にユーザ情報を格納したので -//* 2012/06/14 西野 大介 SetSqlByFile2を追加（SetSqlByFile強化版） -//* ・sqlTextFilePathを自動連結 -//* ・EmbeddedResourceLoaderに対応 -//* 2018/08/07 西野 大介 CommandType.StoredProcedureを設定可能に。 -//********************************************************************************** - -using System; -using System.IO; -using System.Data; - -using Touryo.Infrastructure.Business.Util; -using Touryo.Infrastructure.Framework.Dao; -using Touryo.Infrastructure.Public.Db; -using Touryo.Infrastructure.Public.Log; -using Touryo.Infrastructure.Public.Util; - -namespace Touryo.Infrastructure.Business.Dao -{ - /// データアクセス親クラス２（テンプレート） - /// （オーバーライドして）自由に利用できる。 - public abstract class MyBaseDao : BaseDao - { - /// 埋め込まれたリソースを使用する - public static bool UseEmbeddedResource = false; - - /// SetSqlByFileの強化版メソッド - /// ファイル名 - public void SetSqlByFile2(string sQLFileName) - { - this.SetSqlByFile2(sQLFileName, null); - } - - /// SetSqlByFileの強化版メソッド - /// ファイル名 - /// CommandType - public void SetSqlByFile2(string sQLFileName, CommandType? cmdType) - { - // SQLを設定する。 - if (MyBaseDao.UseEmbeddedResource) - { - // 埋め込まれたリソースファイル - if (cmdType.HasValue) - { - this.SetSqlByFile( - GetConfigParameter.GetConfigValue("sqlTextFilePath") + "." + sQLFileName, cmdType.Value); - } - else - { - this.SetSqlByFile( - GetConfigParameter.GetConfigValue("sqlTextFilePath") + "." + sQLFileName); - } - } - else - { - // 通常のファイル - if (cmdType.HasValue) - { - this.SetSqlByFile( - Path.Combine( - GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName), cmdType.Value); - } - else - { - this.SetSqlByFile( - Path.Combine( - GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName)); - } - } - } - - /// - /// 性能測定 - /// - private PerformanceRecorder perfRec; - - #region コンストラクタ - - /// - /// コンストラクタ - /// - /// - /// コンストラクタは継承されないので、派生先で呼び出す必要がある。 - /// コンストラクタの実行順は、基本クラス→派生クラスの順 - /// ※ VB.NET では、MyBase.New() を派生クラスのコンストラクタから呼ぶ。 - /// 自由に利用できる。 - /// - public MyBaseDao(BaseDam dam):base(dam) { } - - #endregion - - #region 開始・終了処理 - - /// SQL実行開始処理を実装する共通UOCメソッド - /// 業務コード親クラス１から利用される派生の末端 - protected override void UOC_PreQuery() - { - // 性能測定開始 - this.perfRec = new PerformanceRecorder(); - this.perfRec.StartsPerformanceRecord(); - } - - /// SQL実行終了処理を実装する共通UOCメソッド（正常時） - /// 実行したSQLの情報 - /// データ アクセス親クラス１から利用される派生の末端 - protected override void UOC_AfterQuery(string sql) - { - // 性能測定終了 - this.perfRec.EndsPerformanceRecord(); - - // SQLトレースログ出力 - - // ------------ - // メッセージ部 - // ------------ - // 処理時間（実行時間）, 処理時間（CPU時間）, 実行したSQLの情報 - // ------------ - string strLogMessage = - this.perfRec.ExecTime + "," + this.perfRec.CpuTime + "," + sql; - - // Log4Netへログ出力 - if (string.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG))) - { - // SQLトレースログ（OFF） - } - else if (GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() == PubLiteral.ON) - { - LogIF.InfoLog("SQLTRACE", strLogMessage); - } - else if (GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() == PubLiteral.OFF) - { - // SQLトレースログ（OFF） - } - else - { - // パラメータ・エラー（書式不正） - throw new ArgumentException( - String.Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG)); - } - - // --- - - // 以下も、ログ出力で使用可能 - object obj = null; - - // UOC_Connection等で情報を設定しておく。 - // UserInfoなどの情報を想定している。 - obj = this.GetDam().Obj; - - // SQL実行時に情報が自動設定される。 - // ・ExecSelectFill_DT - // DataTable - // ・ExecSelectFill_DS - // DataSet - // ・ExecSelect_DR - // IDataReader - // ・ExecSelectScalar - // object - // ・ExecInsUpDel_NonQuery - // int - obj = this.LogInfo; - } - - /// SQL実行終了処理を実装する共通UOCメソッド（異常時） - /// 実行したSQLの情報 - /// エラー情報 - /// データ アクセス親クラス１から利用される派生の末端 - protected override void UOC_AfterQuery(string sql, Exception ex) - { - // 性能測定終了 - this.perfRec.EndsPerformanceRecord(); - - // SQLトレースログ出力 - - // ------------ - // メッセージ部 - // ------------ - // 処理時間（実行時間）, 処理時間（CPU時間）, ユーザ名, 実行したSQLの情報 - // ------------ - string strLogMessage - = this.perfRec.ExecTime + "," - + this.perfRec.CpuTime + "," - + ((MyUserInfo)(this.GetDam().Obj)).UserName + "," - + sql; - - // Log4Netへログ出力 - if (string.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG))) - { - // SQLトレースログ（OFF） - } - else if (GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() == PubLiteral.ON) - { - LogIF.ErrorLog("SQLTRACE", strLogMessage); - } - else if (GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() == PubLiteral.OFF) - { - // SQLトレースログ（OFF） - } - else - { - // パラメータ・エラー（書式不正） - throw new ArgumentException( - String.Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG)); - } - - // --- - - // 以下も、ログ出力で使用可能 - object obj = null; - - // UOC_Connection等で情報を設定しておく。 - // UserInfoなどの情報を想定している。 - obj = this.GetDam().Obj; - - // SQL実行時に情報が自動設定される。 - // ・ExecSelectFill_DT - // DataTable - // ・ExecSelectFill_DS - // DataSet - // ・ExecSelect_DR - // IDataReader - // ・ExecSelectScalar - // object - // ・ExecInsUpDel_NonQuery - // int - obj = this.LogInfo; - } - - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Exceptions/MyBusinessApplicationExceptionMessage.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Exceptions/MyBusinessApplicationExceptionMessage.cs deleted file mode 100644 index b8efd86..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Exceptions/MyBusinessApplicationExceptionMessage.cs +++ /dev/null @@ -1,107 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyBusinessApplicationExceptionMessage -//* クラス日本語名 ：業務例外のメッセージＩＤ、メッセージに使用する -//* 文字列定数を定義する定数クラス（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2011/10/09 西野 大介 国際化対応 -//* 2013/12/23 西野 大介 アクセス修飾子をすべてpublicに変更した。 -//* 2014/01/14 Pradeepa.Shanmugham Code For Internalization -//* 2014/01/22 Pradeepa.Shanmugham Changes from ConfigurationManager.AppSettings to GetConfigParameter.GetConfigValue in CmnFunc -//* 2014/02/03 西野 大介 取り込み：リソースファイル名とスイッチ名の変更、#pragma warning disableの追加。 -//********************************************************************************** - -using System; -using System.Resources; -using System.Globalization; - -using Touryo.Infrastructure.Business.Resources; -using Touryo.Infrastructure.Public.Util; - -namespace Touryo.Infrastructure.Business.Exceptions -{ - /// - /// Business層の - /// 業務例外のメッセージＩＤ、メッセージに - /// 使用する文字列定数を定義する定数クラス - /// - public class MyBusinessApplicationExceptionMessage - { - /// SAMPLE_ERROR - public static string[] SAMPLE_ERROR - { - get - { - string temp = ""; - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessApplicationExceptionMessage.CmnFunc(key); - return new string[] { "MessageID_SampleError", temp }; - } - } - - #region CmnFunc method - /// Returns the specified string resource for the specified culture or current UI culture. - /// resource key - /// resource string - private static string CmnFunc(string key) - { - // We acquire ResourceManager. - ResourceManager rm = MyBusinessApplicationExceptionMessageResource.ResourceManager; - - // We acquire a value from App.Config. - string FxUICulture = GetConfigParameter.GetConfigValue(PubLiteral.EXCEPTIONMESSAGECULTUER); - - if (string.IsNullOrEmpty(FxUICulture)) - { - // When the key is not set to App.Config, we use a default culture. - return rm.GetString(key); - } - else - { - // When the key is set to App.Config, we use the specified culture. - try - { - CultureInfo culture = new CultureInfo(FxUICulture); - return rm.GetString(key, culture); - } -#pragma warning disable - catch (Exception ex) // There is not CultureNotFoundException in .NET3.5. - { -#pragma warning restore - // When the specified culture is not an effective name, we use a default culture. - return rm.GetString(key); - } - } - } - #endregion - } -} - diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Exceptions/MyBusinessSystemExceptionMessage.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Exceptions/MyBusinessSystemExceptionMessage.cs deleted file mode 100644 index 6f17e34..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Exceptions/MyBusinessSystemExceptionMessage.cs +++ /dev/null @@ -1,196 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyBusinessSystemExceptionMessage -//* クラス日本語名 ：システム例外のメッセージＩＤ、メッセージに使用する -//* 文字列定数を定義する定数クラス（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2011/10/09 西野 大介 国際化対応 -//* 2013/12/23 西野 大介 アクセス修飾子をすべてpublicに変更した。 -//* 2014/01/17 Pradeepa.Shanmugham Code for Internalization -//* 2014/01/22 Pradeepa.Shanmugham Changes from ConfigurationManager.AppSettings to GetConfigParameter.GetConfigValue in CmnFunc -//* 2014/02/03 西野 大介 取り込み：リソースファイル名とスイッチ名の変更、#pragma warning disableの追加。 -//********************************************************************************** - -using System; -using System.Resources; -using System.Globalization; - -using Touryo.Infrastructure.Business.Resources; -using Touryo.Infrastructure.Public.Util; - -namespace Touryo.Infrastructure.Business.Exceptions -{ - /// - /// Business層の - /// システム例外のメッセージＩＤ、メッセージに - /// 使用する文字列定数を定義する定数クラス - /// - public class MyBusinessSystemExceptionMessage - { - #region SAMPLE_ERROR method - - /// システム例外のメッセージＩＤ、メッセージに使用する文字列定数（例） - public static string[] SAMPLE_ERROR - { - get - { - string temp = ""; - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessSystemExceptionMessage.CmnFunc(key); - return new string[] { "MessageID_SampleError", temp }; - } - } - - #endregion - - #region CMN_DAO_ERROR method - - /// 共通Daoのエラー - public static string[] CMN_DAO_ERROR - { - get - { - string temp = ""; - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessSystemExceptionMessage.CmnFunc(key); - return new string[] { "CommonDaoError", temp }; - } - } - - #region CMN_DAO_ERROR_SQL method - - /// メッセージ定義ファイルの不正（メッセージ補足） - public static string CMN_DAO_ERROR_SQL - { - get - { - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - return MyBusinessSystemExceptionMessage.CmnFunc(key); - } - } - - #endregion - - #endregion - - #region WORKFLOW_ERROR method - - /// Workflowのエラー - public static string[] WORKFLOW_ERROR - { - get - { - string temp = ""; - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessSystemExceptionMessage.CmnFunc(key); - return new string[] { "WorkflowError", temp }; - } - } - - #region WORKFLOW_ERROR_CHECK_ method - - /// メッセージ定義ファイルの不正（メッセージ補足） - public static string WORKFLOW_ERROR_CHECK_EMPTY - { - get - { - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - return MyBusinessSystemExceptionMessage.CmnFunc(key); - } - } - - /// メッセージ定義ファイルの不正（メッセージ補足） - public static string WORKFLOW_ERROR_CHECK_FIELD_ISNT_CONTAINED - { - get - { - // Get current property name. - string key = PubCmnFunction.GetCurrentPropertyName(); - - // Returns the specified string resource for the specified culture or current UI culture. - return MyBusinessSystemExceptionMessage.CmnFunc(key); - } - } - - #endregion - - #endregion - - #region CmnFunc method - /// Returns the specified string resource for the specified culture or current UI culture. - /// resource key - /// resource string - private static string CmnFunc(string key) - { - // We acquire ResourceManager. - ResourceManager rm = MyBusinessSystemExceptionMessageResource.ResourceManager; - - // We acquire a value from App.Config. - string FxUICulture = GetConfigParameter.GetConfigValue(PubLiteral.EXCEPTIONMESSAGECULTUER); - - if (string.IsNullOrEmpty(FxUICulture)) - { - // When the key is not set to App.Config, we use a default culture. - return rm.GetString(key); - } - else - { - // When the key is set to App.Config, we use the specified culture. - try - { - CultureInfo culture = new CultureInfo(FxUICulture); - return rm.GetString(key, culture); - } -#pragma warning disable - catch (Exception ex) // There is not CultureNotFoundException in .NET3.5. - { -#pragma warning restore - - // When the specified culture is not an effective name, we use a default culture. - return rm.GetString(key); - } - } - } - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.Designer.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.Designer.cs deleted file mode 100644 index ec2cdb2..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.Designer.cs +++ /dev/null @@ -1,73 +0,0 @@ -//------------------------------------------------------------------------------ -// -// This code was generated by a tool. -// Runtime Version:4.0.30319.42000 -// -// Changes to this file may cause incorrect behavior and will be lost if -// the code is regenerated. -// -//------------------------------------------------------------------------------ - -namespace Touryo.Infrastructure.Business.Resources { - using System; - - - /// - /// A strongly-typed resource class, for looking up localized strings, etc. - /// - // This class was auto-generated by the StronglyTypedResourceBuilder - // class via a tool like ResGen or Visual Studio. - // To add or remove a member, edit your .ResX file then rerun ResGen - // with the /str option, or rebuild your VS project. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - internal class MyBusinessApplicationExceptionMessageResource { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal MyBusinessApplicationExceptionMessageResource() { - } - - /// - /// Returns the cached ResourceManager instance used by this class. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Resources.ResourceManager ResourceManager { - get { - if (object.ReferenceEquals(resourceMan, null)) { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("Touryo.Infrastructure.Business.Resources.MyBusinessApplicationExceptionMessageRes" + - "ource", typeof(MyBusinessApplicationExceptionMessageResource).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Overrides the current thread's CurrentUICulture property for all - /// resource lookups using this strongly typed resource class. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Globalization.CultureInfo Culture { - get { - return resourceCulture; - } - set { - resourceCulture = value; - } - } - - /// - /// Looks up a localized string similar to Message_SampleError . - /// - internal static string SAMPLE_ERROR { - get { - return ResourceManager.GetString("SAMPLE_ERROR", resourceCulture); - } - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.ja-JP.resx b/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.ja-JP.resx deleted file mode 100644 index 4bf1672..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.ja-JP.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Message_SampleError japanese - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.resx b/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.resx deleted file mode 100644 index 974cabc..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Message_SampleError - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.Designer.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.Designer.cs deleted file mode 100644 index afb9a62..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.Designer.cs +++ /dev/null @@ -1,118 +0,0 @@ -//------------------------------------------------------------------------------ -// -// This code was generated by a tool. -// Runtime Version:4.0.30319.42000 -// -// Changes to this file may cause incorrect behavior and will be lost if -// the code is regenerated. -// -//------------------------------------------------------------------------------ - -namespace Touryo.Infrastructure.Business.Resources { - using System; - - - /// - /// A strongly-typed resource class, for looking up localized strings, etc. - /// - // This class was auto-generated by the StronglyTypedResourceBuilder - // class via a tool like ResGen or Visual Studio. - // To add or remove a member, edit your .ResX file then rerun ResGen - // with the /str option, or rebuild your VS project. - [global::System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0")] - [global::System.Diagnostics.DebuggerNonUserCodeAttribute()] - [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] - internal class MyBusinessSystemExceptionMessageResource { - - private static global::System.Resources.ResourceManager resourceMan; - - private static global::System.Globalization.CultureInfo resourceCulture; - - [global::System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")] - internal MyBusinessSystemExceptionMessageResource() { - } - - /// - /// Returns the cached ResourceManager instance used by this class. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Resources.ResourceManager ResourceManager { - get { - if (object.ReferenceEquals(resourceMan, null)) { - global::System.Resources.ResourceManager temp = new global::System.Resources.ResourceManager("Touryo.Infrastructure.Business.Resources.MyBusinessSystemExceptionMessageResource" + - "", typeof(MyBusinessSystemExceptionMessageResource).Assembly); - resourceMan = temp; - } - return resourceMan; - } - } - - /// - /// Overrides the current thread's CurrentUICulture property for all - /// resource lookups using this strongly typed resource class. - /// - [global::System.ComponentModel.EditorBrowsableAttribute(global::System.ComponentModel.EditorBrowsableState.Advanced)] - internal static global::System.Globalization.CultureInfo Culture { - get { - return resourceCulture; - } - set { - resourceCulture = value; - } - } - - /// - /// Looks up a localized string similar to The error occurred in common Dao. :{0}. - /// - internal static string CMN_DAO_ERROR { - get { - return ResourceManager.GetString("CMN_DAO_ERROR", resourceCulture); - } - } - - /// - /// Looks up a localized string similar to The SQL file name or SQL text is not specified.. - /// - internal static string CMN_DAO_ERROR_SQL { - get { - return ResourceManager.GetString("CMN_DAO_ERROR_SQL", resourceCulture); - } - } - - /// - /// Looks up a localized string similar to Message_SampleError. - /// - internal static string SAMPLE_ERROR { - get { - return ResourceManager.GetString("SAMPLE_ERROR", resourceCulture); - } - } - - /// - /// Looks up a localized string similar to The error occurred in workflow. :{0}. - /// - internal static string WORKFLOW_ERROR { - get { - return ResourceManager.GetString("WORKFLOW_ERROR", resourceCulture); - } - } - - /// - /// Looks up a localized string similar to {0} argument is empty.. - /// - internal static string WORKFLOW_ERROR_CHECK_EMPTY { - get { - return ResourceManager.GetString("WORKFLOW_ERROR_CHECK_EMPTY", resourceCulture); - } - } - - /// - /// Looks up a localized string similar to {0} field is not contained in the {1} argument.. - /// - internal static string WORKFLOW_ERROR_CHECK_FIELD_ISNT_CONTAINED { - get { - return ResourceManager.GetString("WORKFLOW_ERROR_CHECK_FIELD_ISNT_CONTAINED", resourceCulture); - } - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.ja-JP.resx b/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.ja-JP.resx deleted file mode 100644 index 3fd77ee..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.ja-JP.resx +++ /dev/null @@ -1,138 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 共通Daoでエラーが発生しました。：{0} - - - SQLファイル名 or SQLテキストが指定されていません。 - - - Message_SampleError Japanese - - - Workflowでエラーが発生しました。：{0} - - - {0} 引数が空です。 - - - {0} フィールドは、{1} に含まれていません. - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.resx b/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.resx deleted file mode 100644 index 9d848d3..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.resx +++ /dev/null @@ -1,138 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - The error occurred in common Dao. :{0} - - - The SQL file name or SQL text is not specified. - - - Message_SampleError - - - The error occurred in workflow. :{0} - - - {0} argument is empty. - - - {0} field is not contained in the {1} argument. - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Str/JISX0208_1983Checker.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Str/JISX0208_1983Checker.cs deleted file mode 100644 index 3b5cb2d..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Str/JISX0208_1983Checker.cs +++ /dev/null @@ -1,179 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：JISX0208_1983Checker -//* クラス日本語名 ：JIS X 0208-1983文字コード範囲チェック・クラス -//* 　　　　　　　　　・01～08区：記号、英数字、かな -//* 　　　　　　　　　・16～47区：JIS第1水準漢字 -//* 　　　　　　　　　・48～84区：JIS第2水準漢字 -//* 　　　　　　　　※JIS X 0208-1990で追加された「凜[7425]」「熙[7426]」は含まれない -//* 　　　　　　　　　※NEC機種依存文字、NECのIBM拡張文字、IBM拡張文字は含まれない -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 2012/06/20 西野 大介 新規作成 -//********************************************************************************** - -using System.Text; -using System.Collections.Generic; -using Touryo.Infrastructure.Public.Str; - -namespace Touryo.Infrastructure.Business.Str -{ - /// - /// JIS X 0208-1983文字コード範囲チェック・クラス - /// ・01～08区：記号、英数字、かな - /// ・16～47区：JIS第1水準漢字 - /// ・48～84区：JIS第2水準漢字 - /// ※JIS X 0208-1990で追加された「凜[7425]」「熙[7426]」は含まれない - /// ※NEC機種依存文字、NECのIBM拡張文字、IBM拡張文字は含まれない - /// - /// 同じアルゴリズムで他の文字コード範囲チェック・クラスも開発できる - public class JISX0208_1983Checker - { - /// CheckCharCodeのリスト（許可されるコード範囲のリスト） - private static List CCCList; - - /// シングルトン - private static JISX0208_1983Checker _JISX0208_1983Checker = new JISX0208_1983Checker(); - - /// コンストラクタ - public JISX0208_1983Checker() - { - // エンコーディングと、コード範囲のリストを定義する。 - JISX0208_1983Checker.CCCList = new List(); - Encoding sjisEncoding = Encoding.GetEncoding(CustomEncode.shift_jis); - - // 文字コード表 シフトJIS(Shift_JIS) - // http://charset.7jp.net/sjis.html - - JISX0208_1983Checker.CCCList.Add(new CheckCharCode( - '\u0000'.ToString(), // NUL文字 - '\u007F'.ToString(), // DEL文字 - sjisEncoding)); - - // 半角カナ - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("｡", "ﾟ", sjisEncoding)); - - // 以下、全角の範囲 - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("　", "〓", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("∈", "∩", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("∧", "∃", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("∠", "∬", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("Å", "¶", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("◯", "◯", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("０", "９", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("Ａ", "Ｚ", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("ａ", "ｚ", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("ぁ", "ん", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("ァ", "ヶ", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("Α", "Ω", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("α", "ω", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("А", "Я", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("а", "я", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("─", "╂", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("亜", "腕", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("弌", "滌", sjisEncoding)); - JISX0208_1983Checker.CCCList.Add(new CheckCharCode("漾", "瑤", sjisEncoding)); - } - - /// 範囲チェックする - /// チェック対象文字列 - /// - /// エラー文字のインデックス - /// 戻り値 = falseでindex = -1の場合は、SJISでない場合を表す。 - /// - /// - /// エラーの文字 - /// - /// - /// true：範囲内 - /// false：範囲外 - /// - /// - /// 空文字列が指定された場合は、trueが返ります。 - /// - public static bool IsJISX0208_1983(string input, out int index, out string ch) - { - // trueの場合 - index = -1; - ch = ""; - - //// 改行コードを除去 - //input = input.Replace("\r", ""); - //input = input.Replace("\n", ""); - - if (input.Length == 0) - { - // 空文字列が指定された場合は、true - return true; - } - else - { - // SJISチェック - if (StringChecker.IsShift_Jis(input)) - { - // SJISである。 - for (int i = 0; i <= input.Length - 1; i++) - { - // 当該文字は、 - - // チェック対象文字・チェック結果 - bool result = false; - string tempChar = input[i].ToString(); - - foreach (CheckCharCode ccc in JISX0208_1983Checker.CCCList) - { - // 当該範囲の、 - if (ccc.IsInRange(tempChar)) - { - // 範囲内 - result = true; - } - else - { - // 範囲外 - } - } - - // 当該文字は、全範囲外 - if (!result) - { - index = i; - ch = tempChar; - return false; - } - } - - // 全文字、範囲内 - return true; - } - else - { - // SJISでない。 - return false; - } - } - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/GMTMaster.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/GMTMaster.cs deleted file mode 100644 index 521d657..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/GMTMaster.cs +++ /dev/null @@ -1,184 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：GMTMaster -//* クラス日本語名 ：ローカル時刻⇔世界協定時刻(UTC)変換クラス -//* ・自前で時差管理が必要な場合は -//* 「#region カスタム」のメソッドを使用する。 -//* ・.NET3.以降5で、自前で時差管理が面倒な場合は -//* 「#region .NET3.5以降」のメソッドを使用する。 -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 2012/06/20 西野 大介 新規作成 -//* 2017/03/10 西野 大介 .NET3.0以前の独自実装を破棄 -//********************************************************************************** - -using System; -using System.ComponentModel; - -namespace Touryo.Infrastructure.Business.Util -{ - /// ローカル時刻⇔世界協定時刻(UTC)変換クラス - public class GMTMaster - { - #region カスタム（.NET3.0以前） - - ///// ロック・オブジェクト - //private static object Lock = new object(); - - ///// MyTimeZone - //private static MyTimeZone TZ = new MyTimeZone(); - - ///// MyTimeZone更新用の隠しメソッド - ///// 隠しメソッドなのでインテリセンスから参照不可 - //[EditorBrowsable(EditorBrowsableState.Never)] - //public static void RefreshMyTimeZone() - //{ - // lock (GMTMaster.Lock) - // { - // // 再読み込み - // GMTMaster.TZ = new MyTimeZone(); - // } - //} - - ///// ローカル時刻→世界協定時刻(UTC)変換 - ///// ローカル時刻 - ///// ローカル時刻のタイムゾーン - ///// 世界協定時刻(UTC) - //public static DateTime ConvertLocalTimeToUtcTimeManual(DateTime localTime, MyTimeZoneEnum myTimeZoneId) - //{ - // // チェック - // if (localTime.Kind != DateTimeKind.Utc) - // { - // // != DateTimeKind.Utc - // DateTime utcTime = new DateTime(localTime.Ticks, DateTimeKind.Utc); - - // // 変換 - // lock (GMTMaster.Lock) - // { - // // 時差（分数）を引算 - // utcTime = utcTime.AddMinutes(GMTMaster.TZ.GetTimezoneOffset(myTimeZoneId) * -1); - // } - - // return utcTime; - // } - // else - // { - // // == DateTimeKind.Utc - // throw new ArgumentException("localTime.Kind == DateTimeKind.Utc", "localTime"); - // } - //} - - ///// 世界協定時刻(UTC)→ローカル時刻変換 - ///// 世界協定時刻(UTC) - ///// ローカル時刻のタイムゾーン - ///// - ///// true:成功 - ///// false：失敗（≠ DateTimeKind.Utc） - ///// - //public static DateTime ConvertUtcTimeToLocalTimeManual(DateTime utcTime, MyTimeZoneEnum myTimeZoneId) - //{ - // // チェック - // if (utcTime.Kind != DateTimeKind.Local) - // { - // // != DateTimeKind.Local - // DateTime localTime = new DateTime(utcTime.Ticks, DateTimeKind.Local); - - // // 変換 - // lock (GMTMaster.Lock) - // { - // // 時差（分数）を加算 - // localTime = localTime.AddMinutes(GMTMaster.TZ.GetTimezoneOffset(myTimeZoneId)); - // } - - // return localTime; - // } - // else - // { - // // == DateTimeKind.Local - // throw new ArgumentException("utcTime.Kind == DateTimeKind.Local", "utcTime"); - // } - //} - - #endregion - - #region .NET3.5以降 - - // .NET2.0ではタイムゾーン情報がないので、ローカルのタイムゾーンにしか変換できない。 - // CurrentThreadのcultureの情報を変更できるが、cultureはTimeZoneInfoには１：１で対応しない。 - // このため、.NET3.5を使用して実装することにしている（母体が2.0なので変換後コメントを外して使用する）。 - - // .NET3.5以降は、タイムゾーン・時間差情報を持っており、これを自分で管理する必要はない。 - - // ConvertTimeToUtc、ConvertTimeFromUtcメソッドの仕様自体はブラックボックスだが、 - // TimeZoneInfo.GetSystemTimeZones();でTimeZoneInfoを取得し、 - // 以下のプロパティを確認することで仕様確認は可能である。 - // - // TimeZoneInfo.SupportsDaylightSavingTime プロパティ - // http://msdn.microsoft.com/ja-jp/library/system.timezoneinfo.supportsdaylightsavingtime.aspx - // TimeZoneInfo.BaseUtcOffset プロパティ - // http://msdn.microsoft.com/ja-jp/library/system.timezoneinfo.baseutcoffset.aspx - - /// ローカル時刻→世界協定時刻(UTC)変換 - /// ローカル時刻 - /// 世界協定時刻(UTC) - public static DateTime ConvertLocalTimeToUtcTime35(DateTime localTime) - { - return ConvertLocalTimeToUtcTime35(localTime, TimeZoneInfo.Local); - } - - /// ローカル時刻→世界協定時刻(UTC)変換 - /// ローカル時刻 - /// ローカル時刻のタイムゾーン - /// 世界協定時刻(UTC) - public static DateTime ConvertLocalTimeToUtcTime35(DateTime localTime, TimeZoneInfo tzInfo) - { - return TimeZoneInfo.ConvertTimeToUtc(localTime, tzInfo); - } - - /// - /// 世界協定時刻(UTC)→ローカル時刻変換 - /// - /// 世界協定時刻(UTC) - /// ローカル時刻 - public static DateTime ConvertUtcTimeToLocalTime35(DateTime utcTime) - { - return ConvertUtcTimeToLocalTime35(utcTime, TimeZoneInfo.Local); - } - - /// - /// 世界協定時刻(UTC)→ローカル時刻変換 - /// - /// 世界協定時刻(UTC) - /// ローカル時刻のタイムゾーン - /// ローカル時刻 - public static DateTime ConvertUtcTimeToLocalTime35(DateTime utcTime, TimeZoneInfo tzInfo) - { - return TimeZoneInfo.ConvertTimeFromUtc(utcTime, tzInfo); - } - - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyAttribute.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyAttribute.cs deleted file mode 100644 index 607cf11..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyAttribute.cs +++ /dev/null @@ -1,96 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyAttribute -//* クラス日本語名 ：カスタム属性クラス（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2009/08/06 西野 大介 クラス属性だけでなく、メソッド属性も処理可能に修正 -//********************************************************************************** - -using System; -using System.Reflection; - -namespace Touryo.Infrastructure.Business.Util -{ - /// カスタム属性クラス - /// 自由に（拡張して）利用できる。 - [System.AttributeUsage(AttributeTargets.Class | AttributeTargets.Method, AllowMultiple = true)] - public class MyAttribute : Attribute - { - /// カスタム属性A - /// 自由に利用できる。 - public string MyAttributeA = ""; - - /// カスタム属性B - /// 自由に利用できる。 - public string MyAttributeB = ""; - - /// カスタム属性C - /// 自由に利用できる。 - public string MyAttributeC = ""; - - /// 当該カスタム属性クラスを取得する（クラス属性用） - /// クラスのオブジェクト - /// カスタム属性クラスの配列 - /// 自由に（拡張して）利用できる。 - public static void GetAttr(object obj, out MyAttribute[] myAttribute) - { - // 属性クラスのリストを取得する。 - // inheritは、AllowMultipleに合わせる。 - // http://msdn.microsoft.com/ja-jp/library/system.type.getcustomattributes.aspx - object[] list = obj.GetType().GetCustomAttributes(typeof(MyAttribute), true); - - // object[]をMyAttribute[]に変換して返す。 - int i = 0; - myAttribute = new MyAttribute[list.Length]; - foreach (MyAttribute temp in list) - { - myAttribute[i] = temp; - } - } - - /// カスタム属性クラスを取得する（メソッド属性用） - /// メソッドのMethodInfo - /// カスタム属性クラスの配列 - /// 自由に（拡張して）利用できる。 - public static void GetAttr(MethodInfo methodInfo, out MyAttribute[] myAttribute) - { - // 属性クラスのリストを取得する。inheritは、AllowMultipleに合わせる。 - // http://msdn.microsoft.com/ja-jp/library/system.type.getcustomattributes.aspx - object[] list = methodInfo.GetCustomAttributes(typeof(MyAttribute), true); - - // object[]をMyAttribute[]に変換して返す。 - int i = 0; - myAttribute = new MyAttribute[list.Length]; - foreach (MyAttribute temp in list) - { - myAttribute[i] = temp; - } - } - } - -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs deleted file mode 100644 index 5d6b56f..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyCmnFunction.cs +++ /dev/null @@ -1,286 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyCmnFunction -//* クラス日本語名 ：Business層の共通クラス（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2009/06/02 西野 大介 sln - IR版からの修正 -//* ・#5 ： コントロール数取得処理（デフォルト値不正） -//* 2009/07/21 西野 大介 コントロール取得処理の仕様変更 -//* 2009/08/10 西野 大介 同名のコントロール追加に対応（GridView/ItemTemplate）。 -//* 2010/09/24 西野 大介 ジェネリック対応（Dictionary、List、Queue、Stack） -//* nullチェック方法、Contains → ContainsKeyなどに注意 -//* 2010/10/21 西野 大介 幾つかのイベント処理の正式対応（ベースクラス２→１へ） -//* 2012/06/14 西野 大介 コントロール検索の再帰処理性能の集約＆効率化。 -//* 2014/05/16 西野 大介 キャスト可否チェックのロジックを見直した。 -//* 2017/01/31 西野 大介 System.Webを使用しているCalculateSessionSizeメソッドをPublicから移動 -//* 2018/03/29 西野 大介 .NET Standard対応で、削除機能に関連するメソッドを削除 -//* 2018/03/29 西野 大介 .NET Standard対応で、HttpSessionのポーティング -//********************************************************************************** - -using System; -using System.Collections.Generic; - -using Touryo.Infrastructure.Framework.Util; -using Touryo.Infrastructure.Public.IO; -using Touryo.Infrastructure.Public.Util; - -#if NETCOREAPP2_0 -using Touryo.Infrastructure.Framework.StdMigration; -using Microsoft.AspNetCore.Http; -#else -using System.Web; -using System.Web.UI; -using System.Web.UI.WebControls; -#endif - -namespace Touryo.Infrastructure.Business.Util -{ - /// Business層の共通クラス - public class MyCmnFunction - { - #region CalculateSessionSize - - /// Sessionサイズ測定 - /// Sessionサイズ（MB） - /// シリアル化できないオブジェクトを含む場合は落ちる。 - public static long CalculateSessionSizeMB() - { - //return MyCmnFunction.CalculateSessionSizeKB() / 1000; - return (long)Math.Round(MyCmnFunction.CalculateSessionSize() / 1000000.0, 0, MidpointRounding.AwayFromZero); - } - - /// Sessionサイズ測定 - /// Sessionサイズ（KB） - /// シリアル化できないオブジェクトを含む場合は落ちる。 - public static long CalculateSessionSizeKB() - { - //return MyCmnFunction.CalculateSessionSize() / 1000; - return (long)Math.Round(MyCmnFunction.CalculateSessionSize() / 1000.0, 0, MidpointRounding.AwayFromZero); - } - - /// Sessionサイズ測定 - /// Sessionサイズ（バイト） - /// シリアル化できないオブジェクトを含む場合は落ちる。 - public static long CalculateSessionSize() - { - // ワーク変数 - long size = 0; - - // SessionのオブジェクトをBinarySerializeしてサイズを取得。 -#if NETCOREAPP2_0 - foreach (string key in MyHttpContext.Current.Session.Keys) - { - // 当該キーのオブジェクト・サイズを足しこむ。 - size += BinarySerialize.ObjectToBytes(MyHttpContext.Current.Session.GetString(key)).Length; - } -#else - foreach (string key in HttpContext.Current.Session.Keys) - { - // 当該キーのオブジェクト・サイズを足しこむ。 - size += BinarySerialize.ObjectToBytes(HttpContext.Current.Session[key]).Length; - } -#endif - // Sessionサイズ（バイト） - return size; - } - - #endregion - - // 2009/07/21-start - - #region コントロール取得＆イベントハンドラ設定 - -#if NETCOREAPP2_0 -#else - /// コントロール取得＆イベントハンドラ設定（下位互換） - /// コントロール - /// プレフィックス - /// イベント ハンドラ - /// ディクショナリ - internal static void GetCtrlAndSetClickEventHandler( - Control ctrl, string prefix, object eventHandler, Dictionary controlHt) - { - #region チェック処理 - - // コントロール指定が無い場合 - if (ctrl == null) - { - // 何もしないで戻る。 - return; - } - - // プレフィックス指定が無い場合 - if (prefix == null || prefix == "") - { - // 何もしないで戻る。 - return; - } - - #endregion - - #region コントロール取得＆イベントハンドラ設定 - - // コントロールのIDチェック - if (ctrl.ID == null) - { - // コントロールID無し - } - else - { - // コントロールID有り - - // コントロールのID長確認 - if (prefix.Length <= ctrl.ID.Length) - { - // 指定のプレフィックス - if (prefix == ctrl.ID.Substring(0, prefix.Length)) - { - // イベントハンドラを設定する。 - if (prefix == GetConfigParameter.GetConfigValue(MyLiteral.PREFIX_OF_CHECK_BOX)) - { - // CHECK BOX - CheckBox checkBox = FxCmnFunction.CastByAsOperator(ctrl, prefix); - - // ハンドラをキャストして設定 - checkBox.CheckedChanged += (EventHandler)eventHandler; - - // ディクショナリに格納 - // ControlHt.Add(ctrl.ID, ctrl); - // ControlHt[ctrl.ID] = ctrl; - FxCmnFunction.AddControlToDic(ctrl, controlHt); // 2011/02/12 - } - } - } - } - - #endregion - - #region 再帰 - - // 子コントロールがある場合、 - if (ctrl.HasControls()) - { - // 子コントロール毎に - foreach (Control childCtrl in ctrl.Controls) - { - // 再帰する。 - MyCmnFunction.GetCtrlAndSetClickEventHandler(childCtrl, prefix, eventHandler, controlHt); - } - } - - #endregion - } - - /// コントロール取得＆イベントハンドラ設定 - /// コントロール - /// プレフィックスとイベント ハンドラのディクショナリ - /// コントロールのディクショナリ - internal static void GetCtrlAndSetClickEventHandler2( - Control ctrl, Dictionary prefixAndEvtHndHt, Dictionary controlHt) - { - // ループ - foreach (string prefix in prefixAndEvtHndHt.Keys) - { - object eventHandler = prefixAndEvtHndHt[prefix]; - - #region チェック処理 - - // コントロール指定が無い場合 - if (ctrl == null) - { - // 何もしないで戻る。 - return; - } - - // プレフィックス指定が無い場合 - if (prefix == null || prefix == "") - { - // 何もしないで戻る。 - return; - } - - #endregion - - #region コントロール取得＆イベントハンドラ設定 - - // コントロールのIDチェック - if (ctrl.ID == null) - { - // コントロールID無し - } - else - { - // コントロールID有り - - // コントロールのID長確認 - if (prefix.Length <= ctrl.ID.Length) - { - // 指定のプレフィックス - if (prefix == ctrl.ID.Substring(0, prefix.Length)) - { - // イベントハンドラを設定する。 - if (prefix == GetConfigParameter.GetConfigValue(MyLiteral.PREFIX_OF_CHECK_BOX)) - { - // CHECK BOX - CheckBox checkBox = FxCmnFunction.CastByAsOperator(ctrl, prefix); - - // ハンドラをキャストして設定 - checkBox.CheckedChanged += (EventHandler)eventHandler; - - // ディクショナリに格納 - controlHt[ctrl.ID] = ctrl; - break; - } - } - } - } - - #endregion - } - - #region 再帰 - - // 子コントロールがある場合、 - if (ctrl.HasControls()) - { - // 子コントロール毎に - foreach (Control childCtrl in ctrl.Controls) - { - // 再帰する。 - MyCmnFunction.GetCtrlAndSetClickEventHandler2(childCtrl, prefixAndEvtHndHt, controlHt); - } - } - - #endregion - } -#endif - #endregion - - // 2009/07/21-end - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyLiteral.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyLiteral.cs deleted file mode 100644 index 1b2a879..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyLiteral.cs +++ /dev/null @@ -1,55 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyLiteral -//* クラス日本語名 ：Business層のリテラル クラス（必要なリテラルを追加）（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2009/06/02 西野 大介 sln - IR版からの修正 -//* ・#6 ： Fxプレフィックスの欠如 -//* 2009/07/21 西野 大介 コントロール取得処理の仕様変更 -//* 2010/10/21 西野 大介 幾つかのイベント処理の正式対応（ベースクラス２→１へ） -//* 2011/11/20 西野 大介 リッチクライアント用P層フレームワークを追加 -//* 2017/02/28 西野 大介 キャッシュ制御処理にスイッチを追加した。 -//********************************************************************************** - -namespace Touryo.Infrastructure.Business.Util -{ - /// Business層のリテラル クラス - public class MyLiteral - { - #region app.configのキー（とデフォルト値） - - /// チェック ボックスのプレフィックスを設定するキー。 - /// ベースクラス２から利用するので、internal - public const string PREFIX_OF_CHECK_BOX = "FxPrefixOfCheckBox"; - - /// キャッシュ制御機能のON / OFFを設定するキー - public const string CACHE_CONTROL = "FxCacheControl"; - - #endregion - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MySubsysInfo.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MySubsysInfo.cs deleted file mode 100644 index 3e19c3a..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MySubsysInfo.cs +++ /dev/null @@ -1,84 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MySubsysInfo -//* クラス日本語名 ：サブシステム情報クラス（使いやすいインデクサを追加）（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//********************************************************************************** - -using System; -using System.Collections; - -using Touryo.Infrastructure.Framework.Util; - -namespace Touryo.Infrastructure.Business.Util -{ - /// サブシステム情報クラス（使いやすいインデクサを追加） - /// 自由に（拡張して）利用できる。 - [Serializable()] - public class MySubsysInfo : SubsysInfo - { - /// インデクサ - /// サブシステムID列挙型 - /// リーフ ハッシュテーブル - public Hashtable this[SubsysID subsysID] - { - set - { - // 基本的にリーフ ハッシュテーブルのnullクリア用 - this.HT[subsysID] = value; - } - get - { - // リーフ ハッシュテーブルの取得用 - if (this.HT[subsysID] == null) - { - // nullの場合、リーフ ハッシュテーブルを新規生成する。 - this.HT[subsysID] = new Hashtable(); - } - else - { - // nullでない場合、何もしない。 - } - - // リーフ ハッシュテーブルを返す。 - return (Hashtable)this.HT[subsysID]; - } - } - - /// サブシステムID列挙型 - public enum SubsysID - { - /// aaa - aaa = 1, - /// bbb - bbb, - /// ccc - ccc - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyTimeZone.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyTimeZone.cs deleted file mode 100644 index 9541695..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyTimeZone.cs +++ /dev/null @@ -1,174 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyTimeZone -//* クラス日本語名 ：TimeZoneのIDとオフセット（分）の管理クラス -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 2012/06/20 西野 大介 新規作成 -//********************************************************************************** - -using System.Collections.Generic; - -namespace Touryo.Infrastructure.Business.Util -{ - /// - /// TimeZoneのIDとオフセット（分）の管理クラス - /// - /// - /// TimeZoneInfo.GetSystemTimeZones()から取得した情報を基に作成 - /// - internal class MyTimeZone - { - /// TimeZoneのIDとオフセット（分）のディクショナリ - private static readonly Dictionary - TimeZoneDictionary = new Dictionary(); - - #region コンストラクタ - - /// - /// コンストラクタ - /// TimeZoneのIDに対応するオフセット（分）を指定（定義から読む等の変更可能） - /// - public MyTimeZone() - { - // UTCと指定のTimeZoneとの時差を分単位で設定する。 - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MoroccoStandardTime, 0); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GMTStandardTime, 0); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GreenwichStandardTime, 0); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC, 0); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.W_EuropeStandardTime, 60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NamibiaStandardTime, 60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralEuropeanStandardTime, 60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.RomanceStandardTime, 60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralEuropeStandardTime, 60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.W_CentralAfricaStandardTime, 60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GTBStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.JordanStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TurkeyStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.IsraelStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.EgyptStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SyriaStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_EuropeStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SouthAfricaStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.FLEStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MiddleEastStandardTime, 120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.KaliningradStandardTime, 180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArabStandardTime, 180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_AfricaStandardTime, 180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArabicStandardTime, 180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.IranStandardTime, 210); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArabianStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArmenianStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CaucasusStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GeorgianStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AzerbaijanStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MauritiusStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.RussianStandardTime, 240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AfghanistanStandardTime, 270); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PakistanStandardTime, 300); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.WestAsiaStandardTime, 300); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SriLankaStandardTime, 330); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.IndiaStandardTime, 330); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NepalStandardTime, 345); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralAsiaStandardTime, 360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.EkaterinburgStandardTime, 360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.BangladeshStandardTime, 360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MyanmarStandardTime, 390); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.N_CentralAsiaStandardTime, 420); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SEAsiaStandardTime, 420); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UlaanbaatarStandardTime, 480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SingaporeStandardTime, 480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NorthAsiaStandardTime, 480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.W_AustraliaStandardTime, 480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ChinaStandardTime, 480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TaipeiStandardTime, 480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NorthAsiaEastStandardTime, 540); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.KoreaStandardTime, 540); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TokyoStandardTime, 540); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.Cen_AustraliaStandardTime, 570); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AUSCentralStandardTime, 570); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AUSEasternStandardTime, 600); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.WestPacificStandardTime, 600); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_AustraliaStandardTime, 600); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TasmaniaStandardTime, 600); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.YakutskStandardTime, 600); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.VladivostokStandardTime, 660); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralPacificStandardTime, 660); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NewZealandStandardTime, 720); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.FijiStandardTime, 720); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.KamchatkaStandardTime, 720); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MagadanStandardTime, 720); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC_12, 720); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SamoaStandardTime, 780); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TongaStandardTime, 780); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AzoresStandardTime, -60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CapeVerdeStandardTime, -60); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.Mid_AtlanticStandardTime, -120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC_02, -120); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SAEasternStandardTime, -180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GreenlandStandardTime, -180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.BahiaStandardTime, -180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArgentinaStandardTime, -180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_SouthAmericaStandardTime, -180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MontevideoStandardTime, -180); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NewfoundlandStandardTime, -210); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ParaguayStandardTime, -240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralBrazilianStandardTime, -240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PacificSAStandardTime, -240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SAWesternStandardTime, -240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AtlanticStandardTime, -240); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.VenezuelaStandardTime, -270); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.USEasternStandardTime, -300); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SAPacificStandardTime, -300); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.EasternStandardTime, -300); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralStandardTime_Mexico, -360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MexicoStandardTime, -360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CanadaCentralStandardTime, -360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralAmericaStandardTime, -360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralStandardTime, -360); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.USMountainStandardTime, -420); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MountainStandardTime_Mexico, -420); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MexicoStandardTime2, -420); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MountainStandardTime, -420); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PacificStandardTime_Mexico, -480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PacificStandardTime, -480); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AlaskanStandardTime, -540); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.HawaiianStandardTime, -600); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC_11, -660); - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.DatelineStandardTime, -720); - } - - #endregion - - /// TimeZoneのオフセットを取得 - /// - /// TimeZoneのオフセット（分） - public int GetTimezoneOffset(MyTimeZoneEnum myTimeZoneEnum) - { - return MyTimeZone.TimeZoneDictionary[myTimeZoneEnum]; - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyTimeZoneEnum.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyTimeZoneEnum.cs deleted file mode 100644 index 35b345b..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyTimeZoneEnum.cs +++ /dev/null @@ -1,247 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyTimeZoneEnum -//* クラス日本語名 ：TimeZoneのID -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 2012/06/20 西野 大介 新規作成 -//********************************************************************************** - -namespace Touryo.Infrastructure.Business.Util -{ - /// TimeZoneのID - public enum MyTimeZoneEnum - { - /// (GMT) カサブランカ - MoroccoStandardTime, - /// (GMT) グリニッジ標準時: ダブリン、エジンバラ、リスボン、ロンドン - GMTStandardTime, - /// (GMT) モンロビア、レイキャビク - GreenwichStandardTime, - /// (GMT) 協定世界時 - UTC, - /// (GMT+01:00) アムステルダム、ベルリン､ベルン、ローマ､ストックホルム､ウィーン - W_EuropeStandardTime, - /// (GMT+01:00) ウィントフック - NamibiaStandardTime, - /// (GMT+01:00) サラエボ、スコピエ、ワルシャワ、ザグレブ - CentralEuropeanStandardTime, - /// (GMT+01:00) ブリュッセル、コペンハーゲン、マドリード、パリ - RomanceStandardTime, - /// (GMT+01:00) ベオグラード、ブラチスラバ、ブダペスト、リュブリャナ、プラハ - CentralEuropeStandardTime, - /// (GMT+01:00) 西中央アフリカ - W_CentralAfricaStandardTime, - /// (GMT+02:00) アテネ、ブカレスト - GTBStandardTime, - /// (GMT+02:00) アンマン - JordanStandardTime, - /// (GMT+02:00) イスタンブール - TurkeyStandardTime, - /// (GMT+02:00) エルサレム - IsraelStandardTime, - /// (GMT+02:00) カイロ - EgyptStandardTime, - /// (GMT+02:00) ダマスカス - SyriaStandardTime, - /// (GMT+02:00) ニコシア - E_EuropeStandardTime, - /// (GMT+02:00) ハラーレ、プレトリア - SouthAfricaStandardTime, - /// (GMT+02:00) ヘルシンキ、キエフ、リガ、スコピエ、ソフィア、タリン、ビリニュス - FLEStandardTime, - /// (GMT+02:00) ベイルート - MiddleEastStandardTime, - /// (GMT+03:00) カリーニングラード、ミンスク - KaliningradStandardTime, - /// (GMT+03:00) クウェート、リヤド - ArabStandardTime, - /// (GMT+03:00) ナイロビ - E_AfricaStandardTime, - /// (GMT+03:00) バグダッド - ArabicStandardTime, - /// (GMT+03:30) テヘラン - IranStandardTime, - /// (GMT+04:00) アブダビ、マスカット - ArabianStandardTime, - /// (GMT+04:00) エレバン - ArmenianStandardTime, - /// (GMT+04:00) コーカサス標準時 - CaucasusStandardTime, - /// (GMT+04:00) トビリシ - GeorgianStandardTime, - /// (GMT+04:00) バク - AzerbaijanStandardTime, - /// (GMT+04:00) ポートルイス - MauritiusStandardTime, - /// (GMT+04:00) モスクワ、サンクトペテルブルク、ボルゴグラード - RussianStandardTime, - /// (GMT+04:30) カブール - AfghanistanStandardTime, - /// (GMT+05:00) イスラマバード、カラチ - PakistanStandardTime, - /// (GMT+05:00) タシケント - WestAsiaStandardTime, - /// (GMT+05:30) スリジャヤワルダナプラコッテ - SriLankaStandardTime, - /// (GMT+05:30) チェンナイ、コルカタ、ムンバイ、ニューデリー - IndiaStandardTime, - /// (GMT+05:45) カトマンズ - NepalStandardTime, - /// (GMT+06:00) アスタナ - CentralAsiaStandardTime, - /// (GMT+06:00) エカテリンバーグ - EkaterinburgStandardTime, - /// (GMT+06:00) ダッカ - BangladeshStandardTime, - /// (GMT+06:30) ヤンゴン (ラングーン) - MyanmarStandardTime, - /// (GMT+07:00) ノボシビルスク - N_CentralAsiaStandardTime, - /// (GMT+07:00) バンコク、ハノイ、ジャカルタ - SEAsiaStandardTime, - /// (GMT+08:00) ウランバートル - UlaanbaatarStandardTime, - /// (GMT+08:00) クアラルンプール、シンガポール - SingaporeStandardTime, - /// (GMT+08:00) クラスノヤルスク - NorthAsiaStandardTime, - /// (GMT+08:00) パース - W_AustraliaStandardTime, - /// (GMT+08:00) 北京、重慶、香港、ウルムチ - ChinaStandardTime, - /// (GMT+08:00) 台北 - TaipeiStandardTime, - /// (GMT+09:00) イルクーツク - NorthAsiaEastStandardTime, - /// (GMT+09:00) ソウル - KoreaStandardTime, - /// (GMT+09:00) 大阪、札幌、東京 - TokyoStandardTime, - /// (GMT+09:30) アデレード - Cen_AustraliaStandardTime, - /// (GMT+09:30) ダーウィン - AUSCentralStandardTime, - /// (GMT+10:00) キャンベラ、メルボルン、シドニー - AUSEasternStandardTime, - /// (GMT+10:00) グアム、ポートモレスビー - WestPacificStandardTime, - /// (GMT+10:00) ブリスベン - E_AustraliaStandardTime, - /// (GMT+10:00) ホバート - TasmaniaStandardTime, - /// (GMT+10:00) ヤクーツク - YakutskStandardTime, - /// (GMT+11:00) ウラジオストク - VladivostokStandardTime, - /// (GMT+11:00) ソロモン諸島、ニューカレドニア - CentralPacificStandardTime, - /// (GMT+12:00) オークランド、ウェリントン - NewZealandStandardTime, - /// (GMT+12:00) フィジー - FijiStandardTime, - /// (GMT+12:00) ペトロパブロフスク-カムチャツキー - 廃止 - KamchatkaStandardTime, - /// (GMT+12:00) マガダン - MagadanStandardTime, - /// (GMT+12:00) 協定世界時+12 - UTC_12, - /// (GMT+13:00) サモア - SamoaStandardTime, - /// (GMT+13:00) ヌクアロファ - TongaStandardTime, - /// (GMT-01:00) アゾレス諸島 - AzoresStandardTime, - /// (GMT-01:00) カーボベルデ諸島 - CapeVerdeStandardTime, - /// (GMT-02:00) 中央大西洋 - Mid_AtlanticStandardTime, - /// (GMT-02:00) 協定世界時-02 - UTC_02, - /// (GMT-03:00) カイエンヌ、フォルタレザ - SAEasternStandardTime, - /// (GMT-03:00) グリーンランド - GreenlandStandardTime, - /// (GMT-03:00) サルバドル - BahiaStandardTime, - /// (GMT-03:00) ブエノスアイレス - ArgentinaStandardTime, - /// (GMT-03:00) ブラジリア - E_SouthAmericaStandardTime, - /// (GMT-03:00) モンテビデオ - MontevideoStandardTime, - /// (GMT-03:30) ニューファンドランド - NewfoundlandStandardTime, - /// (GMT-04:00) アスンシオン - ParaguayStandardTime, - /// (GMT-04:00) クイアバ - CentralBrazilianStandardTime, - /// (GMT-04:00) サンティアゴ - PacificSAStandardTime, - /// (GMT-04:00) ジョージタウン、ラパス、マナウス、サンフアン - SAWesternStandardTime, - /// (GMT-04:00) 大西洋標準時 (カナダ) - AtlanticStandardTime, - /// (GMT-04:30) カラカス - VenezuelaStandardTime, - /// (GMT-05:00) インディアナ東部 - USEasternStandardTime, - /// (GMT-05:00) ボゴタ、リマ、キト - SAPacificStandardTime, - /// (GMT-05:00) 東部標準時 (米国およびカナダ) - EasternStandardTime, - /// (GMT-06:00) グアダラハラ、メキシコシティ、モンテレー - 新 - CentralStandardTime_Mexico, - /// (GMT-06:00) グアダラハラ、メキシコシティ、モンテレー - 旧 - MexicoStandardTime, - /// (GMT-06:00) サスカチュワン - CanadaCentralStandardTime, - /// (GMT-06:00) 中央アメリカ - CentralAmericaStandardTime, - /// (GMT-06:00) 中部標準時 (米国およびカナダ) - CentralStandardTime, - /// (GMT-07:00) アリゾナ - USMountainStandardTime, - /// (GMT-07:00) チワワ、ラパス、マサトラン - 新 - MountainStandardTime_Mexico, - /// (GMT-07:00) チワワ、ラパス、マサトラン - 旧 - MexicoStandardTime2, - /// (GMT-07:00) 山地標準時 (米国およびカナダ) - MountainStandardTime, - /// (GMT-08:00) バハカリフォルニア - PacificStandardTime_Mexico, - /// (GMT-08:00) 太平洋標準時 (米国およびカナダ) - PacificStandardTime, - /// (GMT-09:00) アラスカ - AlaskanStandardTime, - /// (GMT-10:00) ハワイ - HawaiianStandardTime, - /// (GMT-11:00) 協定世界時-11 - UTC_11, - /// (GMT-12:00) 国際日付変更線 西側 - DatelineStandardTime - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyUserInfo.cs b/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyUserInfo.cs deleted file mode 100644 index b5cca59..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Util/MyUserInfo.cs +++ /dev/null @@ -1,89 +0,0 @@ -//********************************************************************************** -//* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -//********************************************************************************** - -#region Apache License -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -#endregion - -//********************************************************************************** -//* クラス名 ：MyUserInfo -//* クラス日本語名 ：ユーザ情報クラス（必要なコンテキスト情報を追加）（テンプレート） -//* -//* 作成者 ：生技 西野 -//* 更新履歴 ： -//* -//* 日時 更新者 内容 -//* ---------- ---------------- ------------------------------------------------- -//* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -//* 2010/09/24 西野 大介 フィールドの追加 -//* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納したので -//********************************************************************************** - -using System; -using Touryo.Infrastructure.Framework.Util; - -namespace Touryo.Infrastructure.Business.Util -{ - /// ユーザ情報クラス（必要なコンテキスト情報を追加） - /// 自由に（拡張して）利用できる。 - [Serializable()] - public class MyUserInfo : UserInfo - { - /// ユーザ名 - private string _userName = ""; - - /// IPアドレス - private string _ipAddress; - - /// コンストラクタ - /// ユーザ名 - /// IPアドレス - /// 自由に利用できる。 - public MyUserInfo(string userName, string ipAddress) - { - this._userName = userName; - this._ipAddress = ipAddress; - } - - /// ユーザ名 - /// 自由に利用できる。 - public string UserName - { - set - { - this._userName = value; - } - get - { - return this._userName; - } - } - - /// IPアドレス - /// 自由に利用できる。 - public string IPAddress - { - set - { - this._ipAddress = value; - } - get - { - return this._ipAddress; - } - } - } -} diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/packages.config b/root/programs/CS/Frameworks/Infrastructure/Business/packages.config deleted file mode 100644 index 9ae6d8e..0000000 --- a/root/programs/CS/Frameworks/Infrastructure/Business/packages.config +++ /dev/null @@ -1,24 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Readme.txt b/root/programs/CS/Frameworks/Readme.txt deleted file mode 100644 index 6d09f1f..0000000 --- a/root/programs/CS/Frameworks/Readme.txt +++ /dev/null @@ -1,21 +0,0 @@ -＜フォルダの説明＞ - -● Infrastructure - Frameworkの一式です。 - -● Tools - - - DPQuery_Tool - 動的パラメタライズド・クエリ分析ツール - - - DaoGen_Tool - D層自動生成ツール - - - DeployZipPackWithHTTP - Webデプロイ部品 - - - Encryption - 暗号化部品 - -● PortableClassLibrary - Silverlight, WinStore用部品 diff --git a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/App.config b/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/App.config deleted file mode 100644 index 99ddf3e..0000000 --- a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/App.config +++ /dev/null @@ -1,3 +0,0 @@ - - - \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business.sln b/root/programs/Frameworks/Infrastructure/AsyncProcessing.sln similarity index 86% rename from root/programs/CS/Frameworks/Infrastructure/Business.sln rename to root/programs/Frameworks/Infrastructure/AsyncProcessing.sln index 319d5e8..5f89683 100644 --- a/root/programs/CS/Frameworks/Infrastructure/Business.sln +++ b/root/programs/Frameworks/Infrastructure/AsyncProcessing.sln @@ -3,7 +3,7 @@ Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 14 VisualStudioVersion = 14.0.25420.1 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "Business", "Business\Business.csproj", "{7187571A-3A26-4363-9AB6-189CB5B58422}" +Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "AsyncProcessing", "AsyncProcessing\AsyncProcessing.csproj", "{7187571A-3A26-4363-9AB6-189CB5B58422}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerB.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsLayerB.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerB.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsLayerB.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerD.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsLayerD.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerD.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsLayerD.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsParameterValue.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsParameterValue.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsParameterValue.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsParameterValue.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsReturnValue.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsReturnValue.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsReturnValue.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsReturnValue.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsUtility.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsUtility.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsUtility.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/ApsUtility.cs diff --git a/root/programs/Frameworks/Infrastructure/AsyncProcessing/AsyncProcessing.csproj b/root/programs/Frameworks/Infrastructure/AsyncProcessing/AsyncProcessing.csproj new file mode 100644 index 0000000..638619c --- /dev/null +++ b/root/programs/Frameworks/Infrastructure/AsyncProcessing/AsyncProcessing.csproj @@ -0,0 +1,136 @@ + + + + Debug + AnyCPU + 8.0.50727 + 2.0 + {7187571A-3A26-4363-9AB6-189CB5B58422} + Library + Properties + Touryo.Infrastructure.Business.AsyncProcessingService + OpenTouryo.Business.AsyncProcessingService + + + + + + + + + v4.6 + + + 2.0 + + + publish\ + true + Disk + false + Foreground + 7 + Days + false + false + true + 0 + 1.0.0.%2a + false + false + true + ..\ + true + + + true + full + false + ..\Build + DEBUG;TRACE + prompt + 4 + bin\Debug\OpenTouryo.Business.AsyncProcessingService.xml + false + + + pdbonly + true + ..\Build_r + TRACE + prompt + 4 + false + + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.Business.dll + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.DamManagedOdp.dll + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.DamMySQL.dll + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.DamPstGrS.dll + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.Framework.dll + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.Public.dll + + + ..\..\..\OpenTouryoAssemblies\Build_net46\OpenTouryo.Public.Security.dll + + + + + + + + + + + + + + + + + + + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + true + + + False + Windows インストーラー 3.1 + true + + + + + + + + + + + + \ No newline at end of file diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/MyApsBaseLogic.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/MyApsBaseLogic.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/Business/AsyncProcessingService/MyApsBaseLogic.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/MyApsBaseLogic.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/Properties/AssemblyInfo.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessing/Properties/AssemblyInfo.cs similarity index 96% rename from root/programs/CS/Frameworks/Infrastructure/Business/Properties/AssemblyInfo.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/Properties/AssemblyInfo.cs index 7160489..12d9063 100644 --- a/root/programs/CS/Frameworks/Infrastructure/Business/Properties/AssemblyInfo.cs +++ b/root/programs/Frameworks/Infrastructure/AsyncProcessing/Properties/AssemblyInfo.cs @@ -36,11 +36,11 @@ // アセンブリに関する一般情報は以下の属性セットをとおして制御されます。 // アセンブリに関連付けられている情報を変更するには、 // これらの属性値を変更してください。 -[assembly: AssemblyTitle("Business")] +[assembly: AssemblyTitle("AsyncProcessingService")] [assembly: AssemblyDescription("")] [assembly: AssemblyConfiguration("")] [assembly: AssemblyCompany("Hitachi Solutions")] -[assembly: AssemblyProduct("Business")] +[assembly: AssemblyProduct("AsyncProcessingService")] [assembly: AssemblyCopyright("Copyright (C) 2007,2016 Hitachi Solutions,Ltd.")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] diff --git a/root/programs/CS/Frameworks/Infrastructure/Business/app.config b/root/programs/Frameworks/Infrastructure/AsyncProcessing/app.config similarity index 81% rename from root/programs/CS/Frameworks/Infrastructure/Business/app.config rename to root/programs/Frameworks/Infrastructure/AsyncProcessing/app.config index dde2c3c..2bbe771 100644 --- a/root/programs/CS/Frameworks/Infrastructure/Business/app.config +++ b/root/programs/Frameworks/Infrastructure/AsyncProcessing/app.config @@ -4,7 +4,7 @@ - + diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService.sln b/root/programs/Frameworks/Infrastructure/AsyncProcessingService.sln similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService.sln rename to root/programs/Frameworks/Infrastructure/AsyncProcessingService.sln diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj similarity index 94% rename from root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj rename to root/programs/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj index 40e3031..51751a3 100644 --- a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj +++ b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/AsyncProcessingService.csproj @@ -38,6 +38,9 @@ ..\Build\OpenTouryo.Business.dll + + ..\Build\OpenTouryo.Business.AsyncProcessingService.dll + ..\Build\OpenTouryo.Framework.dll diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/Properties/AssemblyInfo.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/Properties/AssemblyInfo.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/Properties/AssemblyInfo.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessingService/Properties/AssemblyInfo.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/ServiceInstaller.cs b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/ServiceInstaller.cs similarity index 100% rename from root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/ServiceInstaller.cs rename to root/programs/Frameworks/Infrastructure/AsyncProcessingService/ServiceInstaller.cs diff --git a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/app.config b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/app.config similarity index 88% rename from root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/app.config rename to root/programs/Frameworks/Infrastructure/AsyncProcessingService/app.config index 11353a4..30e5005 100644 --- a/root/programs/CS/Frameworks/Infrastructure/AsyncProcessingService/app.config +++ b/root/programs/Frameworks/Infrastructure/AsyncProcessingService/app.config @@ -49,4 +49,14 @@ + + + + + + + + + + diff --git a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample.sln b/root/programs/Samples/CS/AsyncSvc_sample.sln similarity index 100% rename from root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample.sln rename to root/programs/Samples/CS/AsyncSvc_sample.sln diff --git a/root/programs/Samples/CS/AsyncSvc_sample/App.config b/root/programs/Samples/CS/AsyncSvc_sample/App.config new file mode 100644 index 0000000..e936cc1 --- /dev/null +++ b/root/programs/Samples/CS/AsyncSvc_sample/App.config @@ -0,0 +1,11 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/AsyncSvc_sample.csproj b/root/programs/Samples/CS/AsyncSvc_sample/AsyncSvc_sample.csproj similarity index 89% rename from root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/AsyncSvc_sample.csproj rename to root/programs/Samples/CS/AsyncSvc_sample/AsyncSvc_sample.csproj index f8b6029..b2a09e9 100644 --- a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/AsyncSvc_sample.csproj +++ b/root/programs/Samples/CS/AsyncSvc_sample/AsyncSvc_sample.csproj @@ -39,13 +39,16 @@ - - ..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll + + ..\packages\Newtonsoft.Json.12.0.1\lib\net45\Newtonsoft.Json.dll True ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.dll + + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.AsyncProcessingService.dll + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll @@ -59,6 +62,7 @@ + diff --git a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/LayerB.cs b/root/programs/Samples/CS/AsyncSvc_sample/LayerB.cs similarity index 93% rename from root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/LayerB.cs rename to root/programs/Samples/CS/AsyncSvc_sample/LayerB.cs index 5dd0c9e..61a35b9 100644 --- a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/LayerB.cs +++ b/root/programs/Samples/CS/AsyncSvc_sample/LayerB.cs @@ -264,16 +264,9 @@ private void Update(int taskID, ApsReturnValue returnValue) /// Last progress rate /// New progress rate private uint GenerateProgressRate(uint lastProgressRate) - { - //// Sleeps the thread, to minimize the CPU utilization. - //Thread.Sleep(this.NumberOfSeconds * 1000); - - //// Generate new progress rate - //Random randProgressRate = new Random(); - //return randProgressRate.Next(lastProgressRate + 1, SUCCESS_STATE + 1); - + { // 乱数の30の剰余を足し込む。 - lastProgressRate += (this.GenerateRandomUint() % 30); + lastProgressRate += (RandomValueGenerator.GenerateRandomUint() % 30); if (SUCCESS_STATE <= lastProgressRate) { @@ -292,18 +285,7 @@ private uint GenerateProgressRate(uint lastProgressRate) /// 真偽 private bool Fortune(uint percentage) { - return ((this.GenerateRandomUint() % 100) < percentage); - } - - /// GenerateRandomUint - /// Random uint - private uint GenerateRandomUint() - { - byte[] bs = new byte[sizeof(uint)]; - RNGCryptoServiceProvider rng = new RNGCryptoServiceProvider(); - rng.GetBytes(bs); - rng.Dispose(); - return BitConverter.ToUInt32(bs, 0); + return ((RandomValueGenerator.GenerateRandomUint() % 100) < percentage); } #endregion diff --git a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/Properties/AssemblyInfo.cs b/root/programs/Samples/CS/AsyncSvc_sample/Properties/AssemblyInfo.cs similarity index 100% rename from root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/Properties/AssemblyInfo.cs rename to root/programs/Samples/CS/AsyncSvc_sample/Properties/AssemblyInfo.cs diff --git a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/packages.config b/root/programs/Samples/CS/AsyncSvc_sample/packages.config similarity index 54% rename from root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/packages.config rename to root/programs/Samples/CS/AsyncSvc_sample/packages.config index bfe8416..ba07d01 100644 --- a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/packages.config +++ b/root/programs/Samples/CS/AsyncSvc_sample/packages.config @@ -1,4 +1,4 @@  - + \ No newline at end of file diff --git a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/Program.cs b/root/programs/Samples/CS/TestAsyncSvc_Sample/Program.cs similarity index 100% rename from root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/Program.cs rename to root/programs/Samples/CS/TestAsyncSvc_Sample/Program.cs diff --git a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/Properties/AssemblyInfo.cs b/root/programs/Samples/CS/TestAsyncSvc_Sample/Properties/AssemblyInfo.cs similarity index 100% rename from root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/Properties/AssemblyInfo.cs rename to root/programs/Samples/CS/TestAsyncSvc_Sample/Properties/AssemblyInfo.cs diff --git a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/TestAsyncSvc_Sample.csproj b/root/programs/Samples/CS/TestAsyncSvc_Sample/TestAsyncSvc_Sample.csproj similarity index 92% rename from root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/TestAsyncSvc_Sample.csproj rename to root/programs/Samples/CS/TestAsyncSvc_Sample/TestAsyncSvc_Sample.csproj index 27f0510..1ace4d7 100644 --- a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/TestAsyncSvc_Sample.csproj +++ b/root/programs/Samples/CS/TestAsyncSvc_Sample/TestAsyncSvc_Sample.csproj @@ -51,13 +51,16 @@ 4 - - ..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll + + ..\packages\Newtonsoft.Json.12.0.1\lib\net45\Newtonsoft.Json.dll True ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.dll + + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.AsyncProcessingService.dll + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll @@ -74,9 +77,7 @@ Designer - - Designer - + diff --git a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/app.config b/root/programs/Samples/CS/TestAsyncSvc_Sample/app.config similarity index 82% rename from root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/app.config rename to root/programs/Samples/CS/TestAsyncSvc_Sample/app.config index 5acde2b..a480fb5 100644 --- a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/app.config +++ b/root/programs/Samples/CS/TestAsyncSvc_Sample/app.config @@ -24,4 +24,12 @@ + + + + + + + + diff --git a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/packages.config b/root/programs/Samples/CS/TestAsyncSvc_Sample/packages.config similarity index 54% rename from root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/packages.config rename to root/programs/Samples/CS/TestAsyncSvc_Sample/packages.config index bfe8416..ba07d01 100644 --- a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/packages.config +++ b/root/programs/Samples/CS/TestAsyncSvc_Sample/packages.config @@ -1,4 +1,4 @@  - + \ No newline at end of file diff --git a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample.sln b/root/programs/Samples/VB/AsyncSvc_sample.sln similarity index 100% rename from root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample.sln rename to root/programs/Samples/VB/AsyncSvc_sample.sln diff --git a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/AsyncSvc_sample.vbproj b/root/programs/Samples/VB/AsyncSvc_sample/AsyncSvc_sample.vbproj similarity index 90% rename from root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/AsyncSvc_sample.vbproj rename to root/programs/Samples/VB/AsyncSvc_sample/AsyncSvc_sample.vbproj index f2de5bb..b5bb17b 100644 --- a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/AsyncSvc_sample.vbproj +++ b/root/programs/Samples/VB/AsyncSvc_sample/AsyncSvc_sample.vbproj @@ -48,14 +48,17 @@ On - - ..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll + + ..\packages\Newtonsoft.Json.12.0.1\lib\net45\Newtonsoft.Json.dll True False ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.dll + + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.AsyncProcessingService.dll + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll @@ -77,6 +80,7 @@ + diff --git a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/LayerB.vb b/root/programs/Samples/VB/AsyncSvc_sample/LayerB.vb similarity index 100% rename from root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/LayerB.vb rename to root/programs/Samples/VB/AsyncSvc_sample/LayerB.vb diff --git a/root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/My Project/AssemblyInfo.vb b/root/programs/Samples/VB/AsyncSvc_sample/My Project/AssemblyInfo.vb similarity index 100% rename from root/programs/VB/Samples/AsyncSvc_sample/AsyncSvc_sample/My Project/AssemblyInfo.vb rename to root/programs/Samples/VB/AsyncSvc_sample/My Project/AssemblyInfo.vb diff --git a/root/programs/Samples/VB/AsyncSvc_sample/app.config b/root/programs/Samples/VB/AsyncSvc_sample/app.config new file mode 100644 index 0000000..e936cc1 --- /dev/null +++ b/root/programs/Samples/VB/AsyncSvc_sample/app.config @@ -0,0 +1,11 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/packages.config b/root/programs/Samples/VB/AsyncSvc_sample/packages.config similarity index 54% rename from root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/packages.config rename to root/programs/Samples/VB/AsyncSvc_sample/packages.config index bfe8416..ba07d01 100644 --- a/root/programs/CS/Samples/AsyncSvc_sample/AsyncSvc_sample/packages.config +++ b/root/programs/Samples/VB/AsyncSvc_sample/packages.config @@ -1,4 +1,4 @@  - + \ No newline at end of file diff --git a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/My Project/AssemblyInfo.vb b/root/programs/Samples/VB/TestAsyncSvc_Sample/My Project/AssemblyInfo.vb similarity index 100% rename from root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/My Project/AssemblyInfo.vb rename to root/programs/Samples/VB/TestAsyncSvc_Sample/My Project/AssemblyInfo.vb diff --git a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/Program.vb b/root/programs/Samples/VB/TestAsyncSvc_Sample/Program.vb similarity index 100% rename from root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/Program.vb rename to root/programs/Samples/VB/TestAsyncSvc_Sample/Program.vb diff --git a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/TestAsyncSvc_Sample.vbproj b/root/programs/Samples/VB/TestAsyncSvc_Sample/TestAsyncSvc_Sample.vbproj similarity index 91% rename from root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/TestAsyncSvc_Sample.vbproj rename to root/programs/Samples/VB/TestAsyncSvc_Sample/TestAsyncSvc_Sample.vbproj index b1a80dd..9f597ba 100644 --- a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/TestAsyncSvc_Sample.vbproj +++ b/root/programs/Samples/VB/TestAsyncSvc_Sample/TestAsyncSvc_Sample.vbproj @@ -51,13 +51,16 @@ On - - ..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll + + ..\packages\Newtonsoft.Json.12.0.1\lib\net45\Newtonsoft.Json.dll True ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.dll + + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Business.AsyncProcessingService.dll + ..\..\..\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll diff --git a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/app.config b/root/programs/Samples/VB/TestAsyncSvc_Sample/app.config similarity index 73% rename from root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/app.config rename to root/programs/Samples/VB/TestAsyncSvc_Sample/app.config index 6406abf..a480fb5 100644 --- a/root/programs/VB/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/app.config +++ b/root/programs/Samples/VB/TestAsyncSvc_Sample/app.config @@ -1,4 +1,4 @@ - + @@ -13,15 +13,23 @@ - + - + - + + + + + + + + + diff --git a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/packages.config b/root/programs/Samples/VB/TestAsyncSvc_Sample/packages.config similarity index 54% rename from root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/packages.config rename to root/programs/Samples/VB/TestAsyncSvc_Sample/packages.config index bfe8416..ba07d01 100644 --- a/root/programs/CS/Samples/AsyncSvc_sample/TestAsyncSvc_Sample/packages.config +++ b/root/programs/Samples/VB/TestAsyncSvc_Sample/packages.config @@ -1,4 +1,4 @@  - + \ No newline at end of file diff --git a/root/programs/VB/0_Please run with a double-click to build bat file here.txt b/root/programs/VB/0_Please run with a double-click to build bat file here.txt deleted file mode 100644 index d3b0b7f..0000000 --- a/root/programs/VB/0_Please run with a double-click to build bat file here.txt +++ /dev/null @@ -1,9 +0,0 @@ -Why not? - -The following files is to delete the folders and files in the current directory. - - - 1_DeleteDir.bat - - 2_DeleteFile.bat - -If you run with a double-click, it is safe this directory becomes the current directory. -Otherwise, it is dangerous there is a possibility to delete folders and files unintended. \ No newline at end of file diff --git a/root/programs/VB/1_DeleteDir.bat b/root/programs/VB/1_DeleteDir.bat deleted file mode 100644 index e3e64a6..0000000 --- a/root/programs/VB/1_DeleteDir.bat +++ /dev/null @@ -1,26 +0,0 @@ -@echo off - -@echo -------------------------------------------------- -@echo Delete the packages, obj, bin, Temp, Build, PrecompiledWeb folders. -@echo -------------------------------------------------- - -for /D /R %%i in ( packages ) do ( - if exist "%%~i" RD /S /Q "%%~i" -) -for /D /R %%i in ( obj ) do ( - if exist "%%~i" RD /S /Q "%%~i" -) -for /D /R %%i in ( bin ) do ( - if exist "%%~i" RD /S /Q "%%~i" -) -for /D /R %%i in ( Temp ) do ( - if exist "%%~i" RD /S /Q "%%~i" -) -for /D /R %%i in ( Build ) do ( - if exist "%%~i" RD /S /Q "%%~i" -) -for /D /R %%i in ( PrecompiledWeb ) do ( - if exist "%%~i" RD /S /Q "%%~i" -) - -pause diff --git a/root/programs/VB/2_DeleteFile.bat b/root/programs/VB/2_DeleteFile.bat deleted file mode 100644 index 26222e3..0000000 --- a/root/programs/VB/2_DeleteFile.bat +++ /dev/null @@ -1,15 +0,0 @@ -@echo off - -SET EXTENTION=*.suo *.user *.tmp *.log *.bak *.skrold - -@echo -------------------------------------------------- -@echo Delete the %EXTENTION%. -@echo -------------------------------------------------- - -del /f /s /a- %EXTENTION% - -@echo -------------------------------------------------- -@echo Deleted the %EXTENTION%. -@echo -------------------------------------------------- - -pause diff --git a/root/programs/VB/3_Build_Framework.bat b/root/programs/VB/3_Build_Framework.bat deleted file mode 100644 index af81da7..0000000 --- a/root/programs/VB/3_Build_Framework.bat +++ /dev/null @@ -1,37 +0,0 @@ -setlocal - -@rem -------------------------------------------------- -@rem Turn off the echo function. -@rem -------------------------------------------------- -@echo off - -@rem -------------------------------------------------- -@rem Get the path to the executable file. -@rem -------------------------------------------------- -set CURRENT_DIR="%~dp0" - -@rem -------------------------------------------------- -@rem Execution of the common processing. -@rem -------------------------------------------------- -call %CURRENT_DIR%z_Common.bat - -rem -------------------------------------------------- -rem Make the Directory. -rem -------------------------------------------------- -md "Frameworks\Infrastructure\Temp" -md "Frameworks\Infrastructure\Build" - -rem -------------------------------------------------- -rem Output xcopy after you build the batch Infrastructure(Business) -rem -------------------------------------------------- - -..\nuget.exe restore "Frameworks\Infrastructure\Business.sln" -%BUILDFILEPATH% %COMMANDLINE% "Frameworks\Infrastructure\Business.sln" - -xcopy /E /Y "Frameworks\Infrastructure\Business\bin\%BUILD_CONFIG%" "Frameworks\Infrastructure\Temp\%BUILD_CONFIG%\" -xcopy /E /Y "Frameworks\Infrastructure\Temp\%BUILD_CONFIG%" "Frameworks\Infrastructure\Build\" - -pause - -rem ------------------------------------------------------- -endlocal diff --git a/root/programs/VB/6_CopyToService.bat b/root/programs/VB/6_CopyToService.bat deleted file mode 100644 index 8d175b1..0000000 --- a/root/programs/VB/6_CopyToService.bat +++ /dev/null @@ -1 +0,0 @@ -xcopy /E /Y "Samples\AsyncSvc_sample\AsyncSvc_sample\bin\Debug" "..\CS\Frameworks\Infrastructure\AsyncProcessingService\bin\Debug\" \ No newline at end of file diff --git a/root/programs/VB/7_SubmitTask.bat b/root/programs/VB/7_SubmitTask.bat deleted file mode 100644 index d4628ce..0000000 --- a/root/programs/VB/7_SubmitTask.bat +++ /dev/null @@ -1 +0,0 @@ -call "Samples\AsyncSvc_sample\TestAsyncSvc_Sample\bin\Debug\TestAsyncSvc_Sample.exe" \ No newline at end of file diff --git a/root/programs/VB/Frameworks/Infrastructure/Business.sln b/root/programs/VB/Frameworks/Infrastructure/Business.sln deleted file mode 100644 index 886225a..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business.sln +++ /dev/null @@ -1,25 +0,0 @@ - -Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 14 -VisualStudioVersion = 14.0.25420.1 -MinimumVisualStudioVersion = 10.0.40219.1 -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Business", "Business\Business.vbproj", "{BCB5C7D0-FBE4-43E2-8BED-096700A6A187}" -EndProject -Global - GlobalSection(SolutionConfigurationPlatforms) = preSolution - Debug|Any CPU = Debug|Any CPU - Release|Any CPU = Release|Any CPU - EndGlobalSection - GlobalSection(ProjectConfigurationPlatforms) = postSolution - {BCB5C7D0-FBE4-43E2-8BED-096700A6A187}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {BCB5C7D0-FBE4-43E2-8BED-096700A6A187}.Debug|Any CPU.Build.0 = Debug|Any CPU - {BCB5C7D0-FBE4-43E2-8BED-096700A6A187}.Release|Any CPU.ActiveCfg = Release|Any CPU - {BCB5C7D0-FBE4-43E2-8BED-096700A6A187}.Release|Any CPU.Build.0 = Release|Any CPU - EndGlobalSection - GlobalSection(SolutionProperties) = preSolution - HideSolutionNode = FALSE - EndGlobalSection - GlobalSection(DPCodeReviewSolutionGUID) = preSolution - DPCodeReviewSolutionGUID = {00000000-0000-0000-0000-000000000000} - EndGlobalSection -EndGlobal diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerB.vb b/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerB.vb deleted file mode 100644 index 89f7784..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerB.vb +++ /dev/null @@ -1,246 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：LayerB -'* クラス日本語名 ：LayerB -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 11/28/2014 Supragyan Created LayerB class for AsyncProcessing Service -'* 11/28/2014 Supragyan Created Insert,Update,Select method for AsyncProcessing Service -'* 04/15/2015 Sandeep Did code modification of insert, update and select for AsyncProcessing Service -'* 06/09/2015 Sandeep Implemented code to update stop command to all the running asynchronous task -'* Modified code to reset Exception information, before starting asynchronous task -'* 06/26/2015 Sandeep Implemented code to get commandID in the SelectTask method, -'* to resolve unstable "Register" state, when you invoke [Abort] to AsyncTask, at this "Register" state -'* 06/01/2016 Sandeep Implemented method to test the connection of specified database -'* 2018/08/24 西野 大介 クラス名称の変更（ ---> Aps） -'********************************************************************************** - -Imports System -Imports System.Data - -Imports Touryo.Infrastructure.Business.Business - -Namespace Touryo.Infrastructure.Business.AsyncProcessingService - - ''' - ''' LayerB class for AsyncProcessing Service - ''' - Public Class ApsLayerB - Inherits MyFcBaseLogic - #Region "Insert" - - ''' - ''' Inserts Async Parameter values to Database through LayerD - ''' - ''' - Public Sub UOC_InsertTask(parameterValue As ApsParameterValue) - ' 戻り値クラスを生成して、事前に戻り値に設定しておく。 - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.InsertTask(parameterValue, returnValue) - End Sub - - #End Region - - #Region "Update" - - #Region "UpdateTaskStart" - - ''' - ''' Updates information in the database that the asynchronous task is started - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_UpdateTaskStart(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.UpdateTaskStart(parameterValue, returnValue) - End Sub - - #End Region - - #Region "UpdateTaskRetry" - - ''' - ''' Updates information in the database that the asynchronous task is failed and can be retried later - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_UpdateTaskRetry(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.UpdateTaskRetry(parameterValue, returnValue) - End Sub - - #End Region - - #Region "UpdateTaskFail" - - ''' - ''' Updates information in the database that the asynchronous task is failed and abort this task [status=Abort] - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_UpdateTaskFail(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.UpdateTaskFail(parameterValue, returnValue) - End Sub - - #End Region - - #Region "UpdateTaskSuccess" - - ''' - ''' Updates information in the database that the asynchronous task is completed - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_UpdateTaskSuccess(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.UpdateTaskSuccess(parameterValue, returnValue) - End Sub - - #End Region - - #Region "UpdateTaskProgress" - - ''' - ''' Updates progress rate of the asynchronous task in the database. - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_UpdateTaskProgress(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.UpdateTaskProgress(parameterValue, returnValue) - End Sub - - #End Region - - #Region "UpdateTaskCommand" - - ''' - ''' Updates command value information of a selected asynchronous task - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_UpdateTaskCommand(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.UpdateTaskCommand(parameterValue, returnValue) - End Sub - - #End Region - - #Region "StopAllTask" - - ''' - ''' Set stop command for all running asynchronous task - ''' - ''' Asynchronous Parameter Values - Private Sub UOC_StopAllTask(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.StopAllTask(parameterValue, returnValue) - End Sub - - #End Region - - #End Region - - #Region "Select" - - #Region "SelectCommand" - - ''' - ''' Selects user command from Database through LayerD - ''' - ''' - Private Sub UOC_SelectCommand(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.SelectCommand(parameterValue, returnValue) - End Sub - - #End Region - - #Region "SelectTask" - - ''' - ''' Selects Asynchronous task from LayerD - ''' - ''' Async Parameter Value - Private Sub UOC_SelectTask(parameterValue As ApsParameterValue) - Dim returnValue As New ApsReturnValue() - Me.ReturnValue = returnValue - - Dim layerD As New ApsLayerD(Me.GetDam()) - layerD.SelectTask(parameterValue, returnValue) - - Dim dt As DataTable = DirectCast(returnValue.Obj, DataTable) - returnValue.Obj = Nothing - - If dt IsNot Nothing Then - If dt.Rows.Count <> 0 Then - returnValue.TaskId = Convert.ToInt32(dt.Rows(0)("Id")) - returnValue.UserId = dt.Rows(0)("UserId").ToString() - returnValue.ProcessName = dt.Rows(0)("ProcessName").ToString() - returnValue.Data = dt.Rows(0)("Data").ToString() - returnValue.NumberOfRetries = Convert.ToInt32(dt.Rows(0)("NumberOfRetries")) - returnValue.ReservedArea = dt.Rows(0)("ReservedArea").ToString() - returnValue.CommandId = Convert.ToInt32(dt.Rows(0)("CommandId")) - End If - End If - End Sub - - #End Region - - #End Region - - #Region "TestConnection" - - ''' - ''' Tests the connection with the specified database - ''' - ''' Async Parameter Value - Private Sub UOC_TestConnection(parameterValue As ApsParameterValue) - Dim layerD As New ApsLayerD(Me.GetDam()) - End Sub - - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerD.vb b/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerD.vb deleted file mode 100644 index 4793dd6..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsLayerD.vb +++ /dev/null @@ -1,329 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：LayerD -'* クラス日本語名 ：LayerD -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 11/28/2014 Supragyan Created LayerD class for AsyncProcessing Service -'* 11/28/2014 Supragyan Created Insert,Update,Select method for AsyncProcessing Service -'* 04/14/2015 Sandeep Did code modification of update and select asynchronous task -'* 04/14/2015 Sandeep Did code implementation of SetSqlByFile3 to access the SQL from embedded resource -'* 05/28/2015 Sandeep Did code implementation to update Exception information to the database -'* 06/09/2015 Sandeep Implemented code to update stop command to all the running asynchronous task -'* Modified code to reset Exception information, before starting asynchronous task -'* 06/26/2015 Sandeep Removed the where condition command <> 'Abort' from the SelectTask asynchronous task, -'* to resolve unstable "Register" state, when you invoke [Abort] to AsyncTask, at this "Register" state -'* 2018/08/24 西野 大介 クラス名称の変更（ ---> Aps） -'********************************************************************************** - -Imports System -Imports System.Data - -Imports Touryo.Infrastructure.Business.Dao -Imports Touryo.Infrastructure.Framework.AsyncProcessingService -Imports Touryo.Infrastructure.Public.Db - -Namespace Touryo.Infrastructure.Business.AsyncProcessingService - ''' - ''' LayerD class for AsyncProcessing Service - ''' - Public Class ApsLayerD - Inherits MyBaseDao - ''' AsyncProcessingService用B層 - ''' dam - Public Sub New(dam As BaseDam) - MyBase.New(dam) - End Sub - - #Region "Insert" - - ''' - ''' Inserts async parameter values to database - ''' - ''' - ''' - Public Sub InsertTask(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "AsyncProcessingServiceInsert.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P2", parameterValue.UserId) - Me.SetParameter("P3", parameterValue.ProcessName) - Me.SetParameter("P4", parameterValue.Data) - Me.SetParameter("P5", parameterValue.RegistrationDateTime) - Me.SetParameter("P6", DBNull.Value) - Me.SetParameter("P7", parameterValue.NumberOfRetries) - Me.SetParameter("P8", DBNull.Value) - Me.SetParameter("P9", parameterValue.StatusId) - Me.SetParameter("P10", parameterValue.ProgressRate) - Me.SetParameter("P11", parameterValue.CommandId) - Me.SetParameter("P12", parameterValue.ReservedArea) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "Update" - - #Region "UpdateTaskStart" - - ''' - ''' Updates information in the database that the asynchronous task is started - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub UpdateTaskStart(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "UpdateTaskStart.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - Me.SetParameter("P2", parameterValue.ExecutionStartDateTime) - Me.SetParameter("P3", parameterValue.StatusId) - Me.SetParameter("P4", DBNull.Value) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "UpdateTaskRetry" - - ''' - ''' Updates information in the database that the asynchronous task is failed and can be retried later - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub UpdateTaskRetry(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "UpdateTaskRetry.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - Me.SetParameter("P2", parameterValue.NumberOfRetries) - Me.SetParameter("P3", parameterValue.CompletionDateTime) - Me.SetParameter("P4", parameterValue.StatusId) - Me.SetParameter("P5", parameterValue.ExceptionInfo) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "UpdateTaskFail" - - ''' - ''' Updates information in the database that the asynchronous task is failed and abort this task [status=Abort] - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub UpdateTaskFail(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "UpdateTaskFail.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - Me.SetParameter("P2", parameterValue.CompletionDateTime) - Me.SetParameter("P3", parameterValue.StatusId) - Me.SetParameter("P4", parameterValue.ExceptionInfo) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "UpdateTaskSuccess" - - ''' - ''' Updates information in the database that the asynchronous task is completed - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub UpdateTaskSuccess(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "UpdateTaskSuccess.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - Me.SetParameter("P2", parameterValue.CompletionDateTime) - Me.SetParameter("P3", parameterValue.ProgressRate) - Me.SetParameter("P4", parameterValue.StatusId) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "UpdateTaskProgress" - - ''' - ''' Updates progress rate of the asynchronous task in the database. - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub UpdateTaskProgress(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "UpdateTaskProgress.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - Me.SetParameter("P2", parameterValue.ProgressRate) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "UpdateTaskCommand" - - ''' - ''' Updates command value information of a selected asynchronous task - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub UpdateTaskCommand(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "UpdateTaskCommand.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - Me.SetParameter("P2", parameterValue.CommandId) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #Region "StopAllTask" - - ''' - ''' Set stop command for all running asynchronous task. - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub StopAllTask(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "StopAllTask.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.StatusId) - Me.SetParameter("P2", parameterValue.CommandId) - - ' Execute SQL query - returnValue.Obj = Me.ExecInsUpDel_NonQuery() - End Sub - - #End Region - - #End Region - - #Region "Select" - - #Region "SelectCommand" - - ''' - ''' Selects user command from database - ''' - ''' Asynchronous Parameter Values - ''' Asynchronous Return Values - Public Sub SelectCommand(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "SelectCommand.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.TaskId) - - ' Execute SQL query - returnValue.Obj = Me.ExecSelectScalar() - End Sub - - #End Region - - #Region "SelectTask" - - ''' - ''' To get Asynchronous Task from the database - ''' - ''' - ''' - Public Sub SelectTask(parameterValue As ApsParameterValue, returnValue As ApsReturnValue) - Dim filename As String = String.Empty - filename = "SelectTask.sql" - - ' Get SQL query from file. - Me.SetSqlByFile2(filename) - - ' Set SQL parameter values - Me.SetParameter("P1", parameterValue.RegistrationDateTime) - Me.SetParameter("P2", parameterValue.NumberOfRetries) - Me.SetParameter("P3", CInt(AsyncStatus.Register)) - Me.SetParameter("P4", CInt(AsyncStatus.AbnormalEnd)) - Me.SetParameter("P7", parameterValue.CompletionDateTime) - - Dim dt As New DataTable() - - ' Get Asynchronous Task from the database - Me.ExecSelectFill_DT(dt) - returnValue.Obj = dt - End Sub - - #End Region - - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsParameterValue.vb b/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsParameterValue.vb deleted file mode 100644 index b90ba76..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsParameterValue.vb +++ /dev/null @@ -1,97 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：ApsParameterValue -'* クラス日本語名 ：ApsParameterValue -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 11/28/2014 Supragyan Paramter Value class for Asynchronous Processing Service -'* 04/15/2015 Sandeep Changed datatype of ProgressRate to decimal. -'* 2018/08/24 西野 大介 クラス名称の変更（ ---> Aps） -'* 2018/08/24 西野 大介 列挙型と列挙型処理クラスの移動 -'********************************************************************************** - -Imports System -Imports System.Reflection - -Imports Touryo.Infrastructure.Business.Common -Imports Touryo.Infrastructure.Business.Util - -Namespace Touryo.Infrastructure.Business.AsyncProcessingService - ''' - ''' Paramter Value class for Asynchronous Processing Service - ''' - Public Class ApsParameterValue - Inherits MyParameterValue - ''' 汎用エリア - Public Obj As Object - - ''' TaskId - Public TaskId As Integer - - ''' UserId - Public UserId As String - - ''' ProcessName - Public ProcessName As String - - ''' Data - Public Data As String - - ''' RegistrationDateTime - Public RegistrationDateTime As DateTime - - ''' ExecutionStartDateTime - Public ExecutionStartDateTime As DateTime - - ''' NumberOfRetries - Public NumberOfRetries As Integer - - ''' ProgressRate - Public ProgressRate As Decimal - - ''' Status - Public StatusId As Integer - - ''' CompletionDateTime - Public CompletionDateTime As DateTime - - ''' CommandId - Public CommandId As Integer - - ''' ReservedArea - Public ReservedArea As String - - ''' ExceptionInfo - Public ExceptionInfo As String - - #Region "コンストラクタ" - - ''' コンストラクタ - Public Sub New(screenId As String, controlId As String, methodName As String, actionType As String, user As MyUserInfo) - ' Baseのコンストラクタに引数を渡すために必要。 - MyBase.New(screenId, controlId, methodName, actionType, user) - End Sub - - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsReturnValue.vb b/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsReturnValue.vb deleted file mode 100644 index 817d9f8..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsReturnValue.vb +++ /dev/null @@ -1,83 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：ApsReturnValue -'* クラス日本語名 ：ApsReturnValue -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 11/28/2014 Supragyan Paramter Return Value class for Asynchronous Processing Service -'* 04/15/2015 Sandeep Changed datatype of ProgressRate to decimal. -'* 2018/08/24 西野 大介 クラス名称の変更（ ---> Aps） -'********************************************************************************** - -Imports System -Imports Touryo.Infrastructure.Business.Common - -Namespace Touryo.Infrastructure.Business.AsyncProcessingService - ''' - ''' Paramter Return Value class for Asynchronous Processing Service - ''' - Public Class ApsReturnValue - Inherits MyReturnValue - ''' 汎用エリア - Public Obj As Object - - ''' TaskId - Public TaskId As Integer - - ''' UserId - Public UserId As String - - ''' ProcessName - Public ProcessName As String - - ''' Data - Public Data As String - - ''' RegistrationDateTime - Public RegistrationDateTime As DateTime - - ''' ExecutionStartDateTime; - Public ExecutionStartDateTime As DateTime - - ''' NumberOfRetries; - Public NumberOfRetries As Integer - - ''' ProgressRate - Public ProgressRate As Decimal - - ''' StatusId; - Public StatusId As Integer - - ''' CompletionDateTime - Public CompletionDateTime As DateTime - - ''' CommandId; - Public CommandId As Integer - - ''' ReservedArea - Public ReservedArea As String - - ''' ExceptionInfo - Public ExceptionInfo As String - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsUtility.vb b/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsUtility.vb deleted file mode 100644 index 624f9a7..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/ApsUtility.vb +++ /dev/null @@ -1,103 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：ApsUtility -'* クラス日本語名 ：ApsUtility -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 2018/08/24 西野 大介 新規作成（Utilityメソッドを部品化） -'********************************************************************************** - -Imports Touryo.Infrastructure.Business.Util -Imports Touryo.Infrastructure.Public.Db - -Namespace Touryo.Infrastructure.Business.AsyncProcessingService - ''' ApsUtility - Public Class ApsUtility - ''' Get command information from database. - ''' asynchronous task id - ''' asynchronous return value - ''' BaseDam - Public Shared Sub GetCommandValue(taskID As Integer, returnValue As ApsReturnValue, dam As BaseDam) - ' Sets parameters of AsyncProcessingServiceParameterValue to get command value. - Dim parameterValue As New ApsParameterValue("AsyncProcessingService", "SelectCommand", "SelectCommand", "SQL", New MyUserInfo("AsyncProcessingService", "AsyncProcessingService")) - - parameterValue.TaskId = taskID - - ' Calls data access part of asynchronous processing service. - Dim layerD As New ApsLayerD(dam) - layerD.SelectCommand(parameterValue, returnValue) - returnValue.CommandId = CInt(returnValue.Obj) - End Sub - - ''' - ''' Resumes asynchronous process in the middle of the processing. - ''' - ''' Task ID - ''' asynchronous return value - ''' BaseDam - Public Shared Sub ResumeProcessing(taskID As Integer, returnValue As ApsReturnValue, dam As BaseDam) - ' Reset the command of selected task. - ApsUtility.UpdateTaskCommand(taskID, 0, returnValue, dam) - End Sub - - ''' - ''' Updates the progress rate in the database. - ''' - ''' asynchronous task id - ''' ApsReturnValue - ''' progress rate - ''' BaseDam - Public Shared Sub UpdateProgressRate(taskID As Integer, returnValue As ApsReturnValue, progressRate As Decimal, dam As BaseDam) - ' Sets parameters of AsyncProcessingServiceParameterValue to Update progress rate - Dim parameterValue As New ApsParameterValue("AsyncProcessingService", "UpdateTaskProgress", "UpdateTaskProgress", "SQL", New MyUserInfo("AsyncProcessingService", "AsyncProcessingService")) - - parameterValue.TaskId = taskID - parameterValue.ProgressRate = progressRate - - ' Calls data access part of asynchronous processing service. - Dim layerD As New ApsLayerD(dam) - layerD.UpdateTaskProgress(parameterValue, returnValue) - End Sub - - ''' - ''' Updates the command of selected task - ''' - ''' Task ID - ''' Command ID - ''' user parameter value - ''' BaseDam - Public Shared Sub UpdateTaskCommand(taskID As Integer, commandId As Integer, returnValue As ApsReturnValue, dam As BaseDam) - ' Sets parameters of AsyncProcessingServiceParameterValue to update the command of selected task. - Dim parameterValue As New ApsParameterValue("AsyncProcessingService", "UpdateTaskCommand", "UpdateTaskCommand", "SQL", New MyUserInfo("AsyncProcessingService", "AsyncProcessingService")) - - parameterValue.TaskId = taskID - parameterValue.CommandId = commandId - - ' Calls data access part of asynchronous processing service. - Dim layerD As New ApsLayerD(dam) - layerD.UpdateTaskCommand(parameterValue, returnValue) - End Sub - - - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/MyApsBaseLogic.vb b/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/MyApsBaseLogic.vb deleted file mode 100644 index cb03ed9..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/AsyncProcessingService/MyApsBaseLogic.vb +++ /dev/null @@ -1,611 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyApsBaseLogic -'* クラス日本語名 ：自動振り分け機能付き業務コード親クラス２（サーバ用）（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2010/03/30 西野 大介 ログ フォーマットにメソッド名を追加 -'* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納したので -'* 2010/09/24 西野 大介 Damクラス内にユーザ情報を格納したので -'* 2011/01/24 西野 大介 上記コードが通るカバレージを修正 -'* 2011/01/31 西野 大介 Damがnullの場合は処理しないように修正 -'* 2012/02/09 西野 大介 OLEDB、ODBCのデータプロバイダ対応 -'* 2012/04/05 西野 大介 \n → \r\n 化 -'* 2012/06/18 西野 大介 OriginalStackTrace（ログ出力）の品質向上 -'* 2015/08/28 Sandeep Implemented code to create two dams -'* One dam for ABT asynchronous business task -'* Other dam for AMT asynchronous management task -'* 2017/02/28 西野 大介 ExceptionDispatchInfoを取り入れ、OriginalStackTraceを削除 -'* 2017/02/28 西野 大介 エラーログの見直し（その他の例外の場合、ex.ToString()を出力） -'********************************************************************************** - -Imports System.Runtime.ExceptionServices - -Imports Touryo.Infrastructure.Business.Common -Imports Touryo.Infrastructure.Framework.Business -Imports Touryo.Infrastructure.Framework.Exceptions -Imports Touryo.Infrastructure.Framework.Common -Imports Touryo.Infrastructure.Public.Db -Imports Touryo.Infrastructure.Public.Log -Imports Touryo.Infrastructure.Public.Util - -Namespace Touryo.Infrastructure.Business.AsyncProcessingService - ''' 自動振り分け機能付き業務コード親クラス２（サーバ用）（テンプレート） - ''' （オーバーライドして）自由に利用できる。 - Public MustInherit Class MyApsBaseLogic - Inherits BaseLogic - ''' 性能測定 - Private perfRec As PerformanceRecorder - - ''' Dam key value for asynchronous　Business task - Private _damKeyforABT As String = "ABT" - - ''' Get dam key property to access asynchronous　Business task - Protected ReadOnly Property DamKeyforABT() As [String] - Get - Return Me._damKeyforABT - End Get - End Property - - ''' Dam key value for asynchronous management task - Private _damKeyforAMT As String = "AMT" - - ''' Get dam key property to access asynchronous management task - Protected ReadOnly Property DamKeyforAMT() As [String] - Get - Return Me._damKeyforAMT - End Get - End Property - -#Region "メソッド" - -#Region "処理の自動振り分け" - - ''' 自動振り分け処理 - ''' 引数クラス - ''' 戻り値クラス - Protected Overrides Sub UOC_DoAction(parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue) - ' メソッド名を生成 - Dim methodName As String = "UOC_" & Convert.ToString(parameterValue.MethodName) - - '#Region "レイトバインドする" - - Dim paramSet As Object() = New Object() {parameterValue} - - Try - ' Latebind - Latebind.InvokeMethod(Me, methodName, paramSet) - Catch rtEx As System.Reflection.TargetInvocationException - ' スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(rtEx.InnerException).[Throw]() - Finally - ' レイトバインドにおいて、 - ' ・ 戻り値（in）の場合、下位で生成した戻り値インスタンスは戻らない。 - ' ・ 戻り値（ref, out）の場合、例外発生時は戻り値インスタンスは戻らない。 - ' という問題がある。 - - ' ∴ （特に後者の対応のため、） - ' メンバ変数を使用して戻り値インスタンスを戻す。 - returnValue = Me.ReturnValue - End Try - - '#End Region - End Sub - -#End Region - -#Region "ＤＢ接続" - - ''' データアクセス制御クラス（ＤＡＭ）の生成し、コネクションを確立、トランザクションを開始する処理を実装 - ''' 引数クラス - ''' 分離レベル（ＤＢＭＳ毎の分離レベルの違いを理解して設定すること） - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ConnectionOpen(parameterValue As BaseParameterValue, iso As DbEnum.IsolationLevelEnum) - '#Region "トランザクション属性取得例" - - '' クラスの属性、メソッドの属性から調査 - 'Dim aryMCA As MyAttribute() = Nothing - 'Dim aryMMA As MyAttribute() = Nothing - - '' クラスの属性を取得 - 'MyAttribute.GetAttr(Me, aryMCA) - - 'For Each mca As MyAttribute In aryMCA - ' Debug.WriteLine((Me.[GetType]().ToString() & ".MyAttributeA = ") & mca.MyAttributeA) - ' Debug.WriteLine((Me.[GetType]().ToString() & ".MyAttributeB = ") & mca.MyAttributeB) - ' Debug.WriteLine((Me.[GetType]().ToString() & ".MyAttributeC = ") & mca.MyAttributeC) - ' Debug.WriteLine("+------------------+") - 'Next - - '' メソッドの属性を取得 - 'Dim aryMtdInfo As MethodInfo() = Me.[GetType]().GetMethods() - - 'For Each mtdInfo As MethodInfo In aryMtdInfo - ' MyAttribute.GetAttr(mtdInfo, aryMMA) - - ' For Each mma As MyAttribute In aryMMA - ' Debug.WriteLine((mtdInfo.Name & ".MyAttributeA = ") & mma.MyAttributeA) - ' Debug.WriteLine((mtdInfo.Name & ".MyAttributeB = ") & mma.MyAttributeB) - ' Debug.WriteLine((mtdInfo.Name & ".MyAttributeC = ") & mma.MyAttributeC) - ' Debug.WriteLine("+------------------+") - ' Next - 'Next - - '#End Region - - ' データアクセス制御クラス（ＤＡＭ） - Dim damABT As BaseDam = Nothing - Dim damAMT As BaseDam = Nothing - - '#Region "接続" - - If iso = DbEnum.IsolationLevelEnum.NotConnect Then - ' 接続しない - Else - ' 接続する - - Dim connstring As String = "" - - '#Region "データ プロバイダ選択" - - If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then - ' SQL Server / SQL Client用のDamを生成 - damABT = New DamSqlSvr() - damAMT = New DamSqlSvr() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then - ' OLEDB.NET用のDamを生成 - damABT = New DamOLEDB() - damAMT = New DamOLEDB() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then - ' ODBC.NET用のDamを生成 - damABT = New DamODBC() - damAMT = New DamODBC() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then - ' ' Oracle / Oracle Client用のDamを生成 - ' damABT = New DamOraClient() - ' damAMT = New DamOraClient() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then - ' Oracle / ODP.NET用のDamを生成 - damABT = New DamManagedOdp() - damAMT = New DamManagedOdp() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then - ' ' DB2.NET用のDamを生成 - ' damABT = New DamDB2() - ' damAMT = New DamDB2() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then - ' ' HiRDBデータプロバイダ用のDamを生成 - ' dam = New DamHiRDB() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then - ' MySQL Cnn/NET用のDamを生成 - damABT = New DamMySQL() - damAMT = New DamMySQL() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then - ' PostgreSQL / Npgsql用のDamを生成 - damABT = New DamPstGrS() - damAMT = New DamPstGrS() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") - Else - ' ここは通らない - End If - - '#End Region - - If damABT IsNot Nothing AndAlso damAMT IsNot Nothing Then - ' コネクションをオープンする。 - damABT.ConnectionOpen(connstring) - damAMT.ConnectionOpen(connstring) - - '#Region "トランザクションを開始する。" - - If iso = DbEnum.IsolationLevelEnum.User Then - ' 自動トランザクション（規定の分離レベル） - damABT.BeginTransaction(DbEnum.IsolationLevelEnum.NoTransaction) - Else - ' 自動トランザクション（指定の分離レベル） - damABT.BeginTransaction(iso) - End If - damAMT.BeginTransaction(DbEnum.IsolationLevelEnum.NoTransaction) - - '#End Region - - ' ユーザ情報を格納する（ログ出力で利用）。 - damABT.Obj = DirectCast(parameterValue, MyParameterValue).User - damAMT.Obj = DirectCast(parameterValue, MyParameterValue).User - - ' damを設定する。 - Me.SetDam(Me._damKeyforABT, damABT) - Me.SetDam(Me._damKeyforAMT, damAMT) - End If - End If - - '#End Region - End Sub - -#End Region - -#Region "開始・終了処理" - - ''' - ''' Ｂ層の開始処理を実装 - ''' - ''' 引数クラス - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_PreAction(parameterValue As BaseParameterValue) - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "----->>" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType - - ' Log4Netへログ出力 - LogIF.InfoLog("ACCESS", strLogMessage) - - ' ------------------------------------------------------------- - - ' 性能測定開始 - Me.perfRec = New PerformanceRecorder() - Me.perfRec.StartsPerformanceRecord() - - End Sub - - ''' - ''' Ｂ層の終了処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_AfterAction(parameterValue As BaseParameterValue, returnValue As BaseReturnValue) - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime - - ' Log4Netへログ出力 - LogIF.InfoLog("ACCESS", strLogMessage) - - ' ------------------------------------------------------------- - End Sub - - ''' - ''' Ｂ層のトランザクションのコミット後の終了処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_AfterTransaction(parameterValue As BaseParameterValue, returnValue As BaseReturnValue) - ' TODO: - End Sub - -#End Region - -#Region "例外処理" - - ''' - ''' Ｂ層の業務例外による異常終了の後処理を実装するUOCメソッド。 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' BusinessApplicationException - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ABEND(parameterValue As BaseParameterValue, returnValue As BaseReturnValue, baEx As BusinessApplicationException) - ' 業務例外発生時の処理を実装 - ' TODO: - - ' nullチェック - ' なにもしない - If Me.perfRec Is Nothing Then - Else - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & baEx.messageID & - "," & baEx.Message ' baEX - - ' Log4Netへログ出力 - LogIF.WarnLog("ACCESS", strLogMessage) - End If - - ' ------------------------------------------------------------- - End Sub - - ''' - ''' Ｂ層のシステム例外による異常終了の後処理を実装するUOCメソッド。 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' BusinessSystemException - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ABEND(parameterValue As BaseParameterValue, returnValue As BaseReturnValue, bsEx As BusinessSystemException) - ' システム例外発生時の処理を実装 - ' TODO: - - ' nullチェック - ' なにもしない - If Me.perfRec Is Nothing Then - Else - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & bsEx.messageID & - "," & bsEx.Message & vbCr & vbLf & - bsEx.StackTrace ' bsEX - - ' Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage) - End If - - ' ------------------------------------------------------------- - End Sub - - ''' - ''' Ｂ層の一般的な例外による異常終了の後処理を実装するUOCメソッド。 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' Exception - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ABEND(parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue, ex As Exception) - ' 一般的な例外発生時の処理を実装 - ' TODO: - - ' nullチェック - If Me.perfRec Is Nothing Then - ' なにもしない - - ' スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(ex).[Throw]() - Else - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' キャスト - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' システム例外に振り替える用のワーク - Dim sysErrorFlag As Boolean = False - Dim sysErrorMessageID As String = "" - Dim sysErrorMessage As String = "" - - '#Region "例外の振替処理のIF文" - - If ex.Message = "Other-Business" Then - ' 業務例外へ変換 - returnValue.ErrorFlag = True - returnValue.ErrorMessageID = "振替後" - returnValue.ErrorMessage = "振替後" - returnValue.ErrorInfo = "振り替える場合は、基本的にここを利用。" - ElseIf ex.Message = "Other-System" Then - ' システム例外へ振替 - sysErrorFlag = True - sysErrorMessageID = "振替後" - sysErrorMessage = "振替後" - End If - - '#End Region - - '#Region "ACCESSログ出力、リスローする・しない" - - If returnValue.ErrorFlag Then - ' 業務例外へ変換 - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & returnValue.ErrorMessageID & - "," & returnValue.ErrorMessage ' baEX - - ' Log4Netへログ出力 - LogIF.WarnLog("ACCESS", strLogMessage) - ElseIf sysErrorFlag Then - ' システム例外へ振替 - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & sysErrorMessageID & - "," & sysErrorMessage & vbCr & vbLf & - ex.StackTrace ' bsEX - - ' Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage) - - ' 振替てスロー - Throw New BusinessSystemException(sysErrorMessageID, sysErrorMessage) - Else - ' そのまま - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & "other Exception" & - "," & ex.Message & vbCr & vbLf & - ex.ToString() ' ex - - ' Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage) - - ' スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(ex).[Throw]() - - '#End Region - End If - End If - End Sub - -#End Region - -#End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj b/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj deleted file mode 100644 index 8233002..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Business.vbproj +++ /dev/null @@ -1,188 +0,0 @@ - - - - Debug - AnyCPU - 8.0.50727 - 2.0 - {BCB5C7D0-FBE4-43E2-8BED-096700A6A187} - Library - - - OpenTouryo.Business - Windows - On - v4.6 - - - 2.0 - - http://localhost/Business/ - true - Web - true - Foreground - 7 - Days - false - false - true - 0 - 1.0.0.%2a - true - false - true - - ..\ - true - - - true - full - true - true - bin\Debug\ - OpenTouryo.Business.xml - 42353,42354,42355 - 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 - false - - - pdbonly - false - true - true - bin\Release\ - OpenTouryo.Business.xml - 42353,42354,42355 - 41999,42016,42017,42018,42019,42020,42021,42022,42032,42036 - false - - - - ..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamManagedOdp.dll - - - ..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamMySQL.dll - - - ..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.DamPstGrS.dll - - - ..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.Framework.dll - - - ..\..\..\..\CS\Frameworks\Infrastructure\Build\OpenTouryo.Public.dll - - - - - - - - ..\packages\Microsoft.AspNet.Mvc.5.2.3\lib\net45\System.Web.Mvc.dll - True - - - - - - - - - - - - - - - - - - - - - - - True - Application.myapp - - - - - - My.Resources - ResXFileCodeGenerator - MyBusinessApplicationExceptionMessageResource.Designer.vb - - - - My.Resources - ResXFileCodeGenerator - MyBusinessSystemExceptionMessageResource.Designer.vb - - - - - MyApplicationCodeGenerator - Application.Designer.vb - - - Designer - - - - - - - - - - - True - True - MyBusinessApplicationExceptionMessageResource.resx - - - True - True - MyBusinessSystemExceptionMessageResource.resx - - - - - - - - - - - - False - .NET Framework 3.5 SP1 Client Profile - false - - - False - .NET Framework 3.5 SP1 - true - - - False - Windows インストーラー 3.1 - true - - - - - - - - - \ No newline at end of file diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb deleted file mode 100644 index f88973e..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Business/MyFcBaseLogic.vb +++ /dev/null @@ -1,578 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyFcBaseLogic -'* クラス日本語名 ：自動振り分け機能付き業務コード親クラス２（サーバ用）（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2010/03/30 西野 大介 ログ フォーマットにメソッド名を追加 -'* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納したので -'* 2010/09/24 西野 大介 Damクラス内にユーザ情報を格納したので -'* 2011/01/24 西野 大介 上記コードが通るカバレージを修正 -'* 2011/01/31 西野 大介 Damがnullの場合は処理しないように修正 -'* 2012/02/09 西野 大介 OLEDB、ODBCのデータプロバイダ対応 -'* 2012/04/05 西野 大介 \n → \r\n 化 -'* 2012/06/18 西野 大介 OriginalStackTrace（ログ出力）の品質向上 -'* 2017/02/28 西野 大介 ExceptionDispatchInfoを取り入れ、OriginalStackTraceを削除 -'* 2017/02/28 西野 大介 エラーログの見直し（その他の例外の場合、ex.ToString()を出力） -'********************************************************************************** - -Imports System -Imports System.Runtime.ExceptionServices - -Imports Touryo.Infrastructure.Business.Common -Imports Touryo.Infrastructure.Framework.Business -Imports Touryo.Infrastructure.Framework.Exceptions -Imports Touryo.Infrastructure.Framework.Common -Imports Touryo.Infrastructure.Public.Db -Imports Touryo.Infrastructure.Public.Log -Imports Touryo.Infrastructure.Public.Util - -Namespace Touryo.Infrastructure.Business.Business - ''' 自動振り分け機能付き業務コード親クラス２（サーバ用）（テンプレート） - ''' （オーバーライドして）自由に利用できる。 - Public MustInherit Class MyFcBaseLogic - Inherits BaseLogic - ''' 性能測定 - Private perfRec As PerformanceRecorder - - #Region "メソッド" - - #Region "処理の自動振り分け" - - ''' 自動振り分け処理 - ''' 引数クラス - ''' 戻り値クラス - Protected Overrides Sub UOC_DoAction(parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue) - ' メソッド名を生成 - Dim methodName As String = "UOC_" & Convert.ToString(parameterValue.MethodName) - - '#Region "レイトバインドする" - - Dim paramSet As Object() = New Object() {parameterValue} - - Try - ' Latebind - Latebind.InvokeMethod(Me, methodName, paramSet) - Catch rtEx As System.Reflection.TargetInvocationException - ' スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(rtEx.InnerException).[Throw]() - Finally - ' レイトバインドにおいて、 - ' ・ 戻り値（in）の場合、下位で生成した戻り値インスタンスは戻らない。 - ' ・ 戻り値（ref, out）の場合、例外発生時は戻り値インスタンスは戻らない。 - ' という問題がある。 - - ' ∴ （特に後者の対応のため、） - ' メンバ変数を使用して戻り値インスタンスを戻す。 - returnValue = Me.ReturnValue - End Try - - '#End Region - End Sub - - #End Region - - #Region "ＤＢ接続" - - ''' データアクセス制御クラス（ＤＡＭ）の生成し、コネクションを確立、トランザクションを開始する処理を実装 - ''' 引数クラス - ''' 分離レベル（ＤＢＭＳ毎の分離レベルの違いを理解して設定すること） - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ConnectionOpen(parameterValue As BaseParameterValue, iso As DbEnum.IsolationLevelEnum) - '#Region "トランザクション属性取得例" - - '' クラスの属性、メソッドの属性から調査 - 'Dim aryMCA As MyAttribute() = Nothing - 'Dim aryMMA As MyAttribute() = Nothing - - '' クラスの属性を取得 - 'MyAttribute.GetAttr(Me, aryMCA) - - 'For Each mca As MyAttribute In aryMCA - ' Debug.WriteLine((Me.[GetType]().ToString() & ".MyAttributeA = ") & mca.MyAttributeA) - ' Debug.WriteLine((Me.[GetType]().ToString() & ".MyAttributeB = ") & mca.MyAttributeB) - ' Debug.WriteLine((Me.[GetType]().ToString() & ".MyAttributeC = ") & mca.MyAttributeC) - ' Debug.WriteLine("+------------------+") - 'Next - - '' メソッドの属性を取得 - 'Dim aryMtdInfo As MethodInfo() = Me.[GetType]().GetMethods() - - 'For Each mtdInfo As MethodInfo In aryMtdInfo - ' MyAttribute.GetAttr(mtdInfo, aryMMA) - - ' For Each mma As MyAttribute In aryMMA - ' Debug.WriteLine((mtdInfo.Name & ".MyAttributeA = ") & mma.MyAttributeA) - ' Debug.WriteLine((mtdInfo.Name & ".MyAttributeB = ") & mma.MyAttributeB) - ' Debug.WriteLine((mtdInfo.Name & ".MyAttributeC = ") & mma.MyAttributeC) - ' Debug.WriteLine("+------------------+") - ' Next - 'Next - - '#End Region - - ' データアクセス制御クラス（ＤＡＭ） - Dim dam As BaseDam = Nothing - - '#Region "接続" - - If iso = DbEnum.IsolationLevelEnum.NotConnect Then - ' 接続しない - Else - ' 接続する - - Dim connstring As String = "" - - '#Region "データ プロバイダ選択" - - If parameterValue.ActionType.Split("%"c)(0) = "SQL" Then - ' SQL Server / SQL Client用のDamを生成 - dam = New DamSqlSvr() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_SQL") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "OLE" Then - ' OLEDB.NET用のDamを生成 - dam = New DamOLEDB() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_OLE") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODB" Then - ' ODBC.NET用のDamを生成 - dam = New DamODBC() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODBC") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "ORA" Then - ' ' Oracle / Oracle Client用のDamを生成 - ' dam = New DamOraClient() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_ORA") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "ODP" Then - ' Oracle / ODP.NET用のDamを生成 - dam = New DamManagedOdp() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_ODP") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "DB2" Then - ' ' DB2.NET用のDamを生成 - ' dam = New DamDB2() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_DB2") - 'ElseIf parameterValue.ActionType.Split("%"c)(0) = "HIR" Then - ' ' HiRDBデータプロバイダ用のDamを生成 - ' dam = New DamHiRDB() - - ' ' 接続文字列をロード - ' connstring = GetConfigParameter.GetConnectionString("ConnectionString_HIR") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "MCN" Then - ' MySQL Cnn/NET用のDamを生成 - dam = New DamMySQL() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_MCN") - ElseIf parameterValue.ActionType.Split("%"c)(0) = "NPS" Then - ' PostgreSQL / Npgsql用のDamを生成 - dam = New DamPstGrS() - - ' 接続文字列をロード - connstring = GetConfigParameter.GetConnectionString("ConnectionString_NPS") - Else - ' ここは通らない - End If - - '#End Region - - If dam IsNot Nothing Then - ' コネクションをオープンする。 - dam.ConnectionOpen(connstring) - - '#Region "トランザクションを開始する。" - - If iso = DbEnum.IsolationLevelEnum.User Then - ' 自動トランザクション（規定の分離レベル） - dam.BeginTransaction(DbEnum.IsolationLevelEnum.ReadCommitted) - Else - ' 自動トランザクション（指定の分離レベル） - dam.BeginTransaction(iso) - End If - - '#End Region - - ' ユーザ情報を格納する（ログ出力で利用）。 - dam.Obj = DirectCast(parameterValue, MyParameterValue).User - - ' damを設定する。 - Me.SetDam(dam) - End If - End If - - '#End Region - End Sub - - #End Region - - #Region "開始・終了処理" - - ''' - ''' Ｂ層の開始処理を実装 - ''' - ''' 引数クラス - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_PreAction(parameterValue As BaseParameterValue) - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "----->>" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType - - ' Log4Netへログ出力 - LogIF.InfoLog("ACCESS", strLogMessage) - - ' ------------------------------------------------------------- - - ' 性能測定開始 - Me.perfRec = New PerformanceRecorder() - Me.perfRec.StartsPerformanceRecord() - - End Sub - - ''' - ''' Ｂ層の終了処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_AfterAction(parameterValue As BaseParameterValue, returnValue As BaseReturnValue) - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime - - ' Log4Netへログ出力 - LogIF.InfoLog("ACCESS", strLogMessage) - - ' ------------------------------------------------------------- - End Sub - - ''' - ''' Ｂ層のトランザクションのコミット後の終了処理を実装 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_AfterTransaction(parameterValue As BaseParameterValue, returnValue As BaseReturnValue) - ' TODO: - End Sub - - #End Region - - #Region "例外処理" - - ''' - ''' Ｂ層の業務例外による異常終了の後処理を実装するUOCメソッド。 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' BusinessApplicationException - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ABEND(parameterValue As BaseParameterValue, returnValue As BaseReturnValue, baEx As BusinessApplicationException) - ' 業務例外発生時の処理を実装 - ' TODO: - - ' nullチェック - ' なにもしない - If Me.perfRec Is Nothing Then - Else - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & baEx.messageID & - "," & baEx.Message ' baEX - - ' Log4Netへログ出力 - LogIF.WarnLog("ACCESS", strLogMessage) - End If - - ' ------------------------------------------------------------- - End Sub - - ''' - ''' Ｂ層のシステム例外による異常終了の後処理を実装するUOCメソッド。 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' BusinessSystemException - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ABEND(parameterValue As BaseParameterValue, returnValue As BaseReturnValue, bsEx As BusinessSystemException) - ' システム例外発生時の処理を実装 - ' TODO: - - ' nullチェック - ' なにもしない - If Me.perfRec Is Nothing Then - Else - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' ACCESSログ出力----------------------------------------------- - - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & bsEx.messageID & - "," & bsEx.Message & vbCr & vbLf & - bsEx.StackTrace ' bsEX - - ' Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage) - End If - - ' ------------------------------------------------------------- - End Sub - - ''' - ''' Ｂ層の一般的な例外による異常終了の後処理を実装するUOCメソッド。 - ''' - ''' 引数クラス - ''' 戻り値クラス - ''' Exception - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_ABEND(parameterValue As BaseParameterValue, ByRef returnValue As BaseReturnValue, ex As Exception) - ' 一般的な例外発生時の処理を実装 - ' TODO: - - ' nullチェック - If Me.perfRec Is Nothing Then - ' なにもしない - - ' スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(ex).[Throw]() - Else - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' キャスト - Dim myPV As MyParameterValue = DirectCast(parameterValue, MyParameterValue) - - ' システム例外に振り替える用のワーク - Dim sysErrorFlag As Boolean = False - Dim sysErrorMessageID As String = "" - Dim sysErrorMessage As String = "" - - '#Region "例外の振替処理のIF文" - - If ex.Message = "Other-Business" Then - ' 業務例外へ変換 - returnValue.ErrorFlag = True - returnValue.ErrorMessageID = "振替後" - returnValue.ErrorMessage = "振替後" - returnValue.ErrorInfo = "振り替える場合は、基本的にここを利用。" - ElseIf ex.Message = "Other-System" Then - ' システム例外へ振替 - sysErrorFlag = True - sysErrorMessageID = "振替後" - sysErrorMessage = "振替後" - End If - - '#End Region - - '#Region "ACCESSログ出力、リスローする・しない" - - If returnValue.ErrorFlag Then - ' 業務例外へ変換 - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & returnValue.ErrorMessageID & - "," & returnValue.ErrorMessage - - ' baEX - ' Log4Netへログ出力 - LogIF.WarnLog("ACCESS", strLogMessage) - ElseIf sysErrorFlag Then - ' システム例外へ振替 - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & sysErrorMessageID & - "," & sysErrorMessage & vbCr & vbLf & - ex.StackTrace - - ' bsEX - ' Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage) - - ' 振替てスロー - Throw New BusinessSystemException(sysErrorMessageID, sysErrorMessage) - Else - ' そのまま - - ' ------------ - ' メッセージ部 - ' ------------ - ' ユーザ名, IPアドレス, レイヤ, - ' 画面名, コントロール名, メソッド名, 処理名 - ' 処理時間（実行時間）, 処理時間（CPU時間） - ' エラーメッセージID, エラーメッセージ等 - ' ------------ - Dim strLogMessage As String = - "," & myPV.User.UserName & - "," & myPV.User.IPAddress & - "," & "<<-----" & - "," & myPV.ScreenId & - "," & myPV.ControlId & - "," & myPV.MethodName & - "," & myPV.ActionType & - "," & Me.perfRec.ExecTime & - "," & Me.perfRec.CpuTime & - "," & "other Exception" & - "," & ex.Message & vbCr & vbLf & - ex.ToString() ' ex - - ' Log4Netへログ出力 - LogIF.ErrorLog("ACCESS", strLogMessage) - - ' スタックトレースを保って InnerException を throw - ExceptionDispatchInfo.Capture(ex).[Throw]() - - '#End Region - End If - End If - End Sub - - #End Region - - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Common/MyParameterValue.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Common/MyParameterValue.vb deleted file mode 100644 index 2b91891..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Common/MyParameterValue.vb +++ /dev/null @@ -1,106 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyParameterValue -'* クラス日本語名 ：引数親クラス２（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2009/04/02 西野 大介 シリアライズ可能にする（WS対応） -'* 2010/03/03 西野 大介 自動振り分け処理に使用するメソッド名を追加 -'* 2010/03/11 西野 大介 引数の順番を変更した。 -'* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納 -'********************************************************************************** - -Imports Touryo.Infrastructure.Business.Util -Imports Touryo.Infrastructure.Framework.Common - -Namespace Touryo.Infrastructure.Business.Common - ''' 引数親クラス２ - ''' - ''' シリアライズ可能にする（WS対応）自由に（拡張して）利用できる。 - ''' - _ - Public Class MyParameterValue - Inherits BaseParameterValue -#Region "インスタンス変数" - - ''' ユーザ情報 - Private _user As MyUserInfo - -#End Region - -#Region "コンストラクタ" - - ''' コンストラクタ - ''' スクリーンID - ''' コントロールID - ''' アクションタイプ - ''' ユーザ情報 - ''' - ''' コンストラクタは継承されないので、派生先で呼び出す必要がある。 - ''' ※ コンストラクタの実行順は、基本クラス→派生クラスの順 - ''' ※ VB.NET では、MyBase.New() を派生クラスのコンストラクタから呼ぶ。 - ''' 自由に利用できる（互換性の維持）。 - ''' - Public Sub New(ByVal screenId As String, ByVal controlId As String, ByVal actionType As String, ByVal user As MyUserInfo) - MyBase.New(screenId, controlId, actionType) - ' ユーザ情報 - Me._user = user - End Sub - - ''' コンストラクタ - ''' スクリーンID - ''' コントロールID - ''' メソッド名 - ''' アクションタイプ - ''' ユーザ情報 - ''' - ''' コンストラクタは継承されないので、派生先で呼び出す必要がある。 - ''' ※ コンストラクタの実行順は、基本クラス→派生クラスの順 - ''' ※ VB.NET では、MyBase.New() を派生クラスのコンストラクタから呼ぶ。 - ''' 自由に利用できる。 - ''' - Public Sub New(ByVal screenId As String, ByVal controlId As String, ByVal methodName As String, ByVal actionType As String, ByVal user As MyUserInfo) - MyBase.New(screenId, controlId, methodName, actionType) - ' ユーザ情報 - Me._user = user - End Sub - -#End Region - -#Region "プロパティ" - - ''' ユーザ情報（読み取り専用） - ''' 自由に利用できる。 - Public ReadOnly Property User() As MyUserInfo - Get - Return Me._user - End Get - End Property - -#End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Common/MyReturnValue.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Common/MyReturnValue.vb deleted file mode 100644 index 59a4c33..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Common/MyReturnValue.vb +++ /dev/null @@ -1,46 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyReturnValue -'* クラス日本語名 ：戻り値親クラス２（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* 更新履歴 ：－ -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2009/04/02 西野 大介 シリアライズ可能にする（WS対応） -'********************************************************************************** - -Imports Touryo.Infrastructure.Framework.Common - -Namespace Touryo.Infrastructure.Business.Common - ''' 戻り値親クラス２ - ''' - ''' シリアライズ可能にする（WS対応）自由に（拡張して）利用できる。 - ''' - _ - Public Class MyReturnValue - Inherits BaseReturnValue - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/BaseConsolidateDao.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/BaseConsolidateDao.vb deleted file mode 100644 index 986c8f0..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/BaseConsolidateDao.vb +++ /dev/null @@ -1,55 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：BaseConsolidateDao -'* クラス日本語名 ：Dao集約クラス -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2012/06/14 西野 大介 abstract属性を付与した。 -'********************************************************************************** - -Imports Touryo.Infrastructure.Public.Db - -Namespace Touryo.Infrastructure.Business.Dao - ''' Dao集約クラスのベースクラスの例 - Public MustInherit Class BaseConsolidateDao - ''' データアクセス制御クラス - Private _dam As BaseDam - - ''' データアクセス制御クラス - Protected ReadOnly Property Dam() As BaseDam - Get - Return Me._dam - End Get - End Property - - ''' コンストラクタ - ''' データアクセス制御クラス - Public Sub New(ByVal dam As BaseDam) - Me._dam = dam - End Sub - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb deleted file mode 100644 index 243824c..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/CmnDao.vb +++ /dev/null @@ -1,448 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：CmnDao -'* クラス日本語名 ：共通Daoクラス（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2010/09/24 西野 大介 ジェネリック対応（Dictionary、List、Queue、Stack） -'* nullチェック方法、Contains → ContainsKeyなどに注意 -'* 2010/11/02 西野 大介 GetParameterメソッドを追加（ｽﾄｱﾄﾞ ﾕｰｻﾞﾋﾞﾘﾃｨ向上） -'* 2010/11/02 西野 大介 その他、リファクタリングなど（メソッド名、修飾子の変更） -'* 特にprotected → public化の「new & base」に注意！ -'* （ミスると再帰呼び出しの無限ループになる...疎通で確認可） -'* 2011/10/09 西野 大介 国際化対応 -'* 2012/06/14 西野 大介 ResourceLoaderに加え、EmbeddedResourceLoaderに対応 -'* 2013/07/07 西野 大介 ExecGenerateSQL（SQL生成）メソッド（実行しない）を追加 -'* 2014/11/20 Sandeep Implemented CommandTimeout property and SetCommandTimeout method. -'* 2014/11/20 Sai removed IDbCommand property in SetCommandTimeout method. -'* 2018/08/07 西野 大介 ストアド実行のためCommandType.StoredProcedureを設定可能に。 -'********************************************************************************** - -Imports System -Imports System.Data -Imports System.Collections.Generic - -Imports Touryo.Infrastructure.Business.Exceptions -Imports Touryo.Infrastructure.Framework.Exceptions -Imports Touryo.Infrastructure.Public.Db - -Namespace Touryo.Infrastructure.Business.Dao - ''' 共通Daoクラス - ''' 自由に（拡張して）利用できる。 - Public Class CmnDao - Inherits MyBaseDao - #Region "インスタンス変数" - - ''' CommandType - Private _cmdType As System.Nullable(Of CommandType) = Nothing - - #Region "パラメタ" - - ''' ユーザ パラメタ（文字列置換）用ディクショナリ - Private DicUserParameter As New Dictionary(Of String, String)() - - ''' パラメタ ライズド クエリのパラメタ用ディクショナリ - Private DicParameter As New Dictionary(Of String, Object)() - - #Region "追加のDictionary" - ''' パラメタ ライズド クエリの指定されたパラメータ（の型）を保持するディクショナリ - Private DicParameterType As New Dictionary(Of String, Object)() - ''' パラメタ ライズド クエリの指定されたパラメータ（のサイズ）を保持するディクショナリ - Private DicParameterSize As New Dictionary(Of String, Integer)() - ''' パラメタ ライズド クエリの指定されたパラメータ（の方向）を保持するディクショナリ - Private DicParameterDirection As New Dictionary(Of String, ParameterDirection)() - #End Region - - #End Region - - #Region "パラメタの制御" - - ''' パラメタライズドクエリのパラメタを取得する（Out,RetValパラメタ用）。 - ''' パラメタライズドクエリのパラメタ名 - ''' Out,RetValパラメタのバリュー - ''' - ''' 動的SQLの場合はSQL実行後に利用可能 - ''' - Public Shadows Function GetParameter(parameterName As String) As Object - ' ★ ベースのメソッドを呼ぶ - Return MyBase.GetParameter(parameterName) - - End Function - - ''' パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - ''' パラメタ名 - ''' パラメタ値 - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub SetParameter(parameterName As String, obj As Object) - ' ユーザ パラメタをディクショナリに設定 - Me.DicParameter(parameterName) = obj - End Sub - - ''' パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - ''' パラメタ名 - ''' パラメタ値 - ''' パラメタの型 - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub SetParameter(parameterName As String, obj As Object, dbTypeInfo As Object) - ' ユーザ パラメタをディクショナリに設定 - Me.DicParameter(parameterName) = obj - - ' 機能改善 - Me.DicParameterType(parameterName) = dbTypeInfo - End Sub - - ''' パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - ''' パラメタ名 - ''' パラメタ値 - ''' パラメタの型 - ''' パラメタのサイズ - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub SetParameter(parameterName As String, obj As Object, dbTypeInfo As Object, size As Integer) - ' ユーザ パラメタをディクショナリに設定 - Me.DicParameter(parameterName) = obj - - ' 機能改善 - Me.DicParameterType(parameterName) = dbTypeInfo - Me.DicParameterSize(parameterName) = size - End Sub - - ''' パラメタ ライズド クエリのパラメタをディクショナリに設定する。 - ''' パラメタ名 - ''' パラメタ値 - ''' パラメタの型 - ''' パラメタのサイズ - ''' パラメタの方向 - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub SetParameter(parameterName As String, obj As Object, dbTypeInfo As Object, size As Integer, paramDirection As ParameterDirection) - ' ユーザ パラメタをディクショナリに設定 - Me.DicParameter(parameterName) = obj - - ' 機能改善 - Me.DicParameterType(parameterName) = dbTypeInfo - Me.DicParameterSize(parameterName) = size - Me.DicParameterDirection(parameterName) = paramDirection - End Sub - - ''' ユーザ パラメタ（文字列置換）をディクショナリに設定する。 - ''' ユーザ パラメタ名 - ''' ユーザ パラメタ値 - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub SetUserParameter(userParamName As String, userParamValue As String) - ' ユーザ パラメタをディクショナリに設定 - Me.DicUserParameter(userParamName) = userParamValue - End Sub - - ''' - ''' ・ユーザ パラメタ（文字列置換） - ''' ・パラメタ ライズド クエリのパラメタ - ''' を格納するディクショナリをクリアする。 - ''' - ''' 自由に（拡張して）利用できる。 - Public Sub ClearParameters() - ' ユーザ パラメタ（文字列置換）用ディクショナリを初期化 - Me.DicUserParameter = New Dictionary(Of String, String)() - ' パラメタ ライズド クエリのパラメタ用ディクショナリを初期化 - Me.DicParameter = New Dictionary(Of String, Object)() - - ' 同上 - Me.DicParameterType = New Dictionary(Of String, Object)() - Me.DicParameterSize = New Dictionary(Of String, Integer)() - Me.DicParameterDirection = New Dictionary(Of String, ParameterDirection)() - End Sub - - #End Region - - #Region "SQLファイル名" - - ''' SQLファイル名 - Private _sQLFileName As String = "" - - #Region "プロパティ プロシージャ" - - ''' SQLファイル名 - ''' 自由に（拡張して）利用できる。 - Public WriteOnly Property SQLFileName() As String - Set - Me._sQLFileName = value - Me._sQLText = "" - End Set - End Property - - #End Region - - #End Region - - #Region "SQLテキスト" - - ''' SQLテキスト - Private _sQLText As String = "" - - #Region "プロパティ プロシージャ" - - ''' SQLテキスト - ''' 自由に（拡張して）利用できる。 - Public WriteOnly Property SQLText() As String - Set - Me._sQLText = value - Me._sQLFileName = "" - End Set - End Property - - #End Region - - #End Region - - #Region "CommandTimeout" - - ''' CommandTimeout - Private _commandTimeout As Integer = -1 - - #Region "プロパティ プロシージャ" - - ''' CommandTimeout - ''' 自由に（拡張して）利用できる。 - Public WriteOnly Property CommandTimeout() As Integer - Set - Me._commandTimeout = value - End Set - End Property - - #End Region - - #End Region - - #End Region - - #Region "コンストラクタ" - - ''' コンストラクタ - ''' 自由に利用できる。 - Public Sub New(dam As BaseDam) - MyBase.New(dam) - End Sub - - ''' コンストラクタ - ''' 自由に利用できる。 - Public Sub New(dam As BaseDam, cmdType As CommandType) - MyBase.New(dam) - Me._cmdType = cmdType - End Sub - - #End Region - - #Region "クエリ メソッド" - - #Region "Exec(new & base)" - - ''' Command.ExecuteScalarメソッドでデータを取得する。 - ''' データ - ''' 自由に（拡張して）利用できる。 - Public Shadows Function ExecSelectScalar() As Object - ' SQLの設定 - Me.SetSQL() - - ' Set CommandTimeout - Me.SetCommandTimeout() - - ' パラメタの一括設定 - Me.SetParameters() - - ' SQLを実行し、データを戻す。 - ' （★ ベースのメソッドを呼ぶ） - Return MyBase.ExecSelectScalar() - End Function - - ''' DataAdapter.Fill(DataTable)メソッドでデータを取得する。 - ''' 結果セット（データ テーブル） - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub ExecSelectFill_DT(dt As DataTable) - ' SQLの設定 - Me.SetSQL() - - ' Set CommandTimeout - Me.SetCommandTimeout() - - ' パラメタの一括設定 - Me.SetParameters() - - ' SQLを実行し、結果セット（データ テーブル）を戻す。 - ' （★ ベースのメソッドを呼ぶ） - MyBase.ExecSelectFill_DT(dt) - End Sub - - ''' DataAdapter.Fill(DataSet)メソッドでデータを取得する。 - ''' 結果セット（データ セット） - ''' 自由に（拡張して）利用できる。 - Public Shadows Sub ExecSelectFill_DS(ds As DataSet) - ' SQLの設定 - Me.SetSQL() - - ' Set CommandTimeout - Me.SetCommandTimeout() - - ' パラメタの一括設定 - Me.SetParameters() - - ' SQLを実行し、結果セット（データ セット）を戻す。 - ' （★ ベースのメソッドを呼ぶ） - MyBase.ExecSelectFill_DS(ds) - End Sub - - ''' Command.ExecuteReaderメソッドでデータを取得する。 - ''' 結果セット（データ リーダ） - ''' 自由に（拡張して）利用できる。 - Public Shadows Function ExecSelect_DR() As IDataReader - ' SQLの設定 - Me.SetSQL() - - ' Set CommandTimeout - Me.SetCommandTimeout() - - ' パラメタの一括設定 - Me.SetParameters() - - ' SQLを実行し、結果セット（データ リーダ）を戻す。 - ' （★ ベースのメソッドを呼ぶ） - Return MyBase.ExecSelect_DR() - End Function - - ''' Command.ExecuteNonQueryメソッドでSQLを実行する。 - ''' 影響を受けた行の数 - ''' 自由に（拡張して）利用できる。 - Public Shadows Function ExecInsUpDel_NonQuery() As Integer - ' SQLの設定 - Me.SetSQL() - - ' Set CommandTimeout - Me.SetCommandTimeout() - - ' パラメタの一括設定 - Me.SetParameters() - - ' SQLを実行し、戻り値を戻す。 - ' （★ ベースのメソッドを呼ぶ） - Return MyBase.ExecInsUpDel_NonQuery() - End Function - - ''' ExecGenerateSQLで静的SQLを生成する - ''' SQLUtility - ''' SQL文 - ''' 自由に（拡張して）利用できる。 - Public Shadows Function ExecGenerateSQL(sqlUtil As SQLUtility) As String - ' SQLの設定 - Me.SetSQL() - - ' Set CommandTimeout - Me.SetCommandTimeout() - - ' パラメタの一括設定 - Me.SetParameters() - - ' 静的SQLを生成する。 - ' （★ ベースのメソッドを呼ぶ） - Return MyBase.ExecGenerateSQL(sqlUtil) - End Function - - #End Region - - #Region "共通関数" - - ''' SQLの指定 - Private Sub SetSQL() - ' SQL指定 - If Me._sQLFileName <> "" Then - ' ファイルから - If Me._cmdType.HasValue Then - Me.SetSqlByFile2(Me._sQLFileName, Me._cmdType.Value) - Else - Me.SetSqlByFile2(Me._sQLFileName) - End If - ElseIf Me._sQLText <> "" Then - ' テキストから - If Me._cmdType.HasValue Then - Me.SetSqlByCommand(Me._sQLText, Me._cmdType.Value) - Else - Me.SetSqlByCommand(Me._sQLText) - - End If - Else - ' SQLエラー - Throw New BusinessSystemException(MyBusinessSystemExceptionMessage.CMN_DAO_ERROR(0), [String].Format(MyBusinessSystemExceptionMessage.CMN_DAO_ERROR(1), MyBusinessSystemExceptionMessage.CMN_DAO_ERROR_SQL)) - End If - End Sub - - ''' To Set CommandTimeout - Private Sub SetCommandTimeout() - ' If CommandTimeout is >= 0 then set CommandTimeout. - ' Else skip, automatically it will set default CommandTimeout. - If Me._commandTimeout >= 0 Then - Me.GetDam().DamIDbCommand.CommandTimeout = Me._commandTimeout - End If - End Sub - - ''' パラメタの一括設定（内部用） - Private Sub SetParameters() - ' ユーザ パラメタ（文字列置換）を設定する。 - For Each userParamName As String In Me.DicUserParameter.Keys - ' ★ ベースのメソッドを呼ぶ - MyBase.SetUserParameter(userParamName, Me.DicUserParameter(userParamName).ToString()) - Next - - ' パラメタ ライズド クエリのパラメタを設定する。 - For Each paramName As String In Me.DicParameter.Keys - ' 機能改善 - - ' デフォルト値 - Dim type As Object = Nothing - Dim size As Integer = -1 - Dim direction As ParameterDirection = ParameterDirection.Input - - ' あったら設定（DicParameterType） - If Me.DicParameterType.ContainsKey(paramName) Then - type = Me.DicParameterType(paramName) - End If - - ' あったら設定（DicParameterSize） - If Me.DicParameterSize.ContainsKey(paramName) Then - size = Me.DicParameterSize(paramName) - End If - - ' あったら設定（DicParameterDirection） - If Me.DicParameterDirection.ContainsKey(paramName) Then - direction = Me.DicParameterDirection(paramName) - End If - - ' ★ ベースのメソッドを呼ぶ - MyBase.SetParameter(paramName, Me.DicParameter(paramName), type, size, direction) - Next - End Sub - - #End Region - - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb deleted file mode 100644 index c2de176..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Dao/MyBaseDao.vb +++ /dev/null @@ -1,222 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyBaseDao -'* クラス日本語名 ：データアクセス親クラス２（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2009/04/21 西野 大介 FrameworkExceptionの追加に伴い、実装変更 -'* 2010/09/24 西野 大介 Damクラス内にユーザ情報を格納したので -'* 2012/06/14 西野 大介 SetSqlByFile2を追加（SetSqlByFile強化版） -'* ・sqlTextFilePathを自動連結 -'* ・EmbeddedResourceLoaderに対応 -'* 2018/08/07 西野 大介 CommandType.StoredProcedureを設定可能に。 -'********************************************************************************** - -Imports System -Imports System.IO -Imports System.Data - -Imports Touryo.Infrastructure.Business.Util -Imports Touryo.Infrastructure.Framework.Dao -Imports Touryo.Infrastructure.Public.Db -Imports Touryo.Infrastructure.Public.Log -Imports Touryo.Infrastructure.Public.Util - -Namespace Touryo.Infrastructure.Business.Dao - ''' データアクセス親クラス２（テンプレート） - ''' （オーバーライドして）自由に利用できる。 - Public MustInherit Class MyBaseDao - Inherits BaseDao - ''' 埋め込まれたリソースを使用する - Public Shared UseEmbeddedResource As Boolean = False - - ''' SetSqlByFileの強化版メソッド - ''' ファイル名 - Public Sub SetSqlByFile2(sQLFileName As String) - Me.SetSqlByFile2(sQLFileName, Nothing) - End Sub - - ''' SetSqlByFileの強化版メソッド - ''' ファイル名 - ''' CommandType - Public Sub SetSqlByFile2(sQLFileName As String, cmdType As System.Nullable(Of CommandType)) - ' SQLを設定する。 - If MyBaseDao.UseEmbeddedResource Then - ' 埋め込まれたリソースファイル - If cmdType.HasValue Then - Me.SetSqlByFile(GetConfigParameter.GetConfigValue("sqlTextFilePath") & "." & sQLFileName, cmdType.Value) - Else - Me.SetSqlByFile(GetConfigParameter.GetConfigValue("sqlTextFilePath") & "." & sQLFileName) - End If - Else - ' 通常のファイル - If cmdType.HasValue Then - Me.SetSqlByFile(Path.Combine(GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName), cmdType.Value) - Else - Me.SetSqlByFile(Path.Combine(GetConfigParameter.GetConfigValue("sqlTextFilePath"), sQLFileName)) - End If - End If - End Sub - - ''' - ''' 性能測定 - ''' - Private perfRec As PerformanceRecorder - - #Region "コンストラクタ" - - ''' - ''' コンストラクタ - ''' - ''' - ''' コンストラクタは継承されないので、派生先で呼び出す必要がある。 - ''' コンストラクタの実行順は、基本クラス→派生クラスの順 - ''' ※ VB.NET では、MyBase.New() を派生クラスのコンストラクタから呼ぶ。 - ''' 自由に利用できる。 - ''' - Public Sub New(dam As BaseDam) - MyBase.New(dam) - End Sub - - #End Region - - #Region "開始・終了処理" - - ''' SQL実行開始処理を実装する共通UOCメソッド - ''' 業務コード親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_PreQuery() - ' 性能測定開始 - Me.perfRec = New PerformanceRecorder() - Me.perfRec.StartsPerformanceRecord() - End Sub - - ''' SQL実行終了処理を実装する共通UOCメソッド（正常時） - ''' 実行したSQLの情報 - ''' データ アクセス親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_AfterQuery(sql As String) - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' SQLトレースログ出力 - - ' ------------ - ' メッセージ部 - ' ------------ - ' 処理時間（実行時間）, 処理時間（CPU時間）, 実行したSQLの情報 - ' ------------ - Dim strLogMessage As String = Convert.ToString(Me.perfRec.ExecTime) & "," & Convert.ToString(Me.perfRec.CpuTime) & "," & sql - - ' Log4Netへログ出力 - ' SQLトレースログ（OFF） - If String.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG)) Then - ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.[ON] Then - LogIF.InfoLog("SQLTRACE", strLogMessage) - ' SQLトレースログ（OFF） - ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.OFF Then - Else - ' パラメータ・エラー（書式不正） - Throw New ArgumentException([String].Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG)) - End If - - ' --- - - ' 以下も、ログ出力で使用可能 - Dim obj As Object = Nothing - - ' UOC_Connection等で情報を設定しておく。 - ' UserInfoなどの情報を想定している。 - obj = Me.GetDam().Obj - - ' SQL実行時に情報が自動設定される。 - ' ・ExecSelectFill_DT - ' DataTable - ' ・ExecSelectFill_DS - ' DataSet - ' ・ExecSelect_DR - ' IDataReader - ' ・ExecSelectScalar - ' object - ' ・ExecInsUpDel_NonQuery - ' int - obj = Me.LogInfo - End Sub - - ''' SQL実行終了処理を実装する共通UOCメソッド（異常時） - ''' 実行したSQLの情報 - ''' エラー情報 - ''' データ アクセス親クラス１から利用される派生の末端 - Protected Overrides Sub UOC_AfterQuery(sql As String, ex As Exception) - ' 性能測定終了 - Me.perfRec.EndsPerformanceRecord() - - ' SQLトレースログ出力 - - ' ------------ - ' メッセージ部 - ' ------------ - ' 処理時間（実行時間）, 処理時間（CPU時間）, ユーザ名, 実行したSQLの情報 - ' ------------ - Dim strLogMessage As String = (Convert.ToString(Me.perfRec.ExecTime) & "," & Convert.ToString(Me.perfRec.CpuTime) & ",") + DirectCast(Me.GetDam().Obj, MyUserInfo).UserName & "," & sql - - ' Log4Netへログ出力 - ' SQLトレースログ（OFF） - If String.IsNullOrEmpty(GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG)) Then - ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.[ON] Then - LogIF.ErrorLog("SQLTRACE", strLogMessage) - ' SQLトレースログ（OFF） - ElseIf GetConfigParameter.GetConfigValue(PubLiteral.SQL_TRACELOG).ToUpper() = PubLiteral.OFF Then - Else - ' パラメータ・エラー（書式不正） - Throw New ArgumentException([String].Format(PublicExceptionMessage.SWITCH_ERROR, PubLiteral.SQL_TRACELOG)) - End If - - ' --- - - ' 以下も、ログ出力で使用可能 - Dim obj As Object = Nothing - - ' UOC_Connection等で情報を設定しておく。 - ' UserInfoなどの情報を想定している。 - obj = Me.GetDam().Obj - - ' SQL実行時に情報が自動設定される。 - ' ・ExecSelectFill_DT - ' DataTable - ' ・ExecSelectFill_DS - ' DataSet - ' ・ExecSelect_DR - ' IDataReader - ' ・ExecSelectScalar - ' object - ' ・ExecInsUpDel_NonQuery - ' int - obj = Me.LogInfo - End Sub - - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Exceptions/MyBusinessApplicationExceptionMessage.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Exceptions/MyBusinessApplicationExceptionMessage.vb deleted file mode 100644 index dc6b541..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Exceptions/MyBusinessApplicationExceptionMessage.vb +++ /dev/null @@ -1,94 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyBusinessApplicationExceptionMessage -'* クラス日本語名 ：業務例外のメッセージＩＤ、メッセージに使用する -'* 文字列定数を定義する定数クラス（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2011/10/09 西野 大介 国際化対応 -'* 2013/12/23 西野 大介 アクセス修飾子をすべてpublicに変更した。 -'* 2014/01/14 Pradeepa.Shanmugham Code For Internalization -'* 2014/01/22 Pradeepa.Shanmugham Changes from ConfigurationManager.AppSettings to GetConfigParameter.GetConfigValue in CmnFunc -'* 2014/02/03 西野 大介 取り込み：リソースファイル名とスイッチ名の変更、#pragma warning disableの追加。 -'********************************************************************************** - -Imports System.Resources -Imports System.Globalization - -Imports My.Resources -Imports Touryo.Infrastructure.Public.Util - -Namespace Touryo.Infrastructure.Business.Exceptions - ''' - ''' Business層の - ''' 業務例外のメッセージＩＤ、メッセージに - ''' 使用する文字列定数を定義する定数クラス - ''' - Public Class MyBusinessApplicationExceptionMessage - ''' SAMPLE_ERROR - Public Shared ReadOnly Property SAMPLE_ERROR() As String() - Get - Dim temp As String = "" - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessApplicationExceptionMessage.CmnFunc(key) - Return New String() {"MessageID_SampleError", temp} - End Get - End Property - - #Region "CmnFunc method" - ''' Returns the specified string resource for the specified culture or current UI culture. - ''' resource key - ''' resource string - Private Shared Function CmnFunc(key As String) As String - ' We acquire ResourceManager. - Dim rm As ResourceManager = MyBusinessApplicationExceptionMessageResource.ResourceManager - - ' We acquire a value from App.Config. - Dim FxUICulture As String = GetConfigParameter.GetConfigValue(PubLiteral.EXCEPTIONMESSAGECULTUER) - - If String.IsNullOrEmpty(FxUICulture) Then - ' When the key is not set to App.Config, we use a default culture. - Return rm.GetString(key) - Else - ' When the key is set to App.Config, we use the specified culture. - Try - Dim culture As New CultureInfo(FxUICulture) - Return rm.GetString(key, culture) - Catch ex As Exception - ' There is not CultureNotFoundException in .NET3.5. - ' When the specified culture is not an effective name, we use a default culture. - Return rm.GetString(key) - End Try - End If - End Function - #End Region - End Class -End Namespace - diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Exceptions/MyBusinessSystemExceptionMessage.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Exceptions/MyBusinessSystemExceptionMessage.vb deleted file mode 100644 index 6400065..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Exceptions/MyBusinessSystemExceptionMessage.vb +++ /dev/null @@ -1,173 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyBusinessSystemExceptionMessage -'* クラス日本語名 ：システム例外のメッセージＩＤ、メッセージに使用する -'* 文字列定数を定義する定数クラス（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2011/10/09 西野 大介 国際化対応 -'* 2013/12/23 西野 大介 アクセス修飾子をすべてpublicに変更した。 -'* 2014/01/17 Pradeepa.Shanmugham Code for Internalization -'* 2014/01/22 Pradeepa.Shanmugham Changes from ConfigurationManager.AppSettings to GetConfigParameter.GetConfigValue in CmnFunc -'* 2014/02/03 西野 大介 取り込み：リソースファイル名とスイッチ名の変更、#pragma warning disableの追加。 -'********************************************************************************** - -Imports System.Resources -Imports System.Globalization - -Imports My.Resources -Imports Touryo.Infrastructure.Public.Util - -Namespace Touryo.Infrastructure.Business.Exceptions - ''' - ''' Business層の - ''' システム例外のメッセージＩＤ、メッセージに - ''' 使用する文字列定数を定義する定数クラス - ''' - Public Class MyBusinessSystemExceptionMessage - #Region "SAMPLE_ERROR method" - - ''' システム例外のメッセージＩＤ、メッセージに使用する文字列定数（例） - Public Shared ReadOnly Property SAMPLE_ERROR() As String() - Get - Dim temp As String = "" - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessSystemExceptionMessage.CmnFunc(key) - Return New String() {"MessageID_SampleError", temp} - End Get - End Property - - #End Region - - #Region "CMN_DAO_ERROR method" - - ''' 共通Daoのエラー - Public Shared ReadOnly Property CMN_DAO_ERROR() As String() - Get - Dim temp As String = "" - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessSystemExceptionMessage.CmnFunc(key) - Return New String() {"CommonDaoError", temp} - End Get - End Property - - #Region "CMN_DAO_ERROR_SQL method" - - ''' メッセージ定義ファイルの不正（メッセージ補足） - Public Shared ReadOnly Property CMN_DAO_ERROR_SQL() As String - Get - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - Return MyBusinessSystemExceptionMessage.CmnFunc(key) - End Get - End Property - - #End Region - - #End Region - - #Region "WORKFLOW_ERROR method" - - ''' Workflowのエラー - Public Shared ReadOnly Property WORKFLOW_ERROR() As String() - Get - Dim temp As String = "" - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - temp = MyBusinessSystemExceptionMessage.CmnFunc(key) - Return New String() {"WorkflowError", temp} - End Get - End Property - - #Region "WORKFLOW_ERROR_CHECK_ method" - - ''' メッセージ定義ファイルの不正（メッセージ補足） - Public Shared ReadOnly Property WORKFLOW_ERROR_CHECK_EMPTY() As String - Get - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - Return MyBusinessSystemExceptionMessage.CmnFunc(key) - End Get - End Property - - ''' メッセージ定義ファイルの不正（メッセージ補足） - Public Shared ReadOnly Property WORKFLOW_ERROR_CHECK_FIELD_ISNT_CONTAINED() As String - Get - ' Get current property name. - Dim key As String = PubCmnFunction.GetCurrentPropertyName() - - ' Returns the specified string resource for the specified culture or current UI culture. - Return MyBusinessSystemExceptionMessage.CmnFunc(key) - End Get - End Property - - #End Region - - #End Region - - #Region "CmnFunc method" - ''' Returns the specified string resource for the specified culture or current UI culture. - ''' resource key - ''' resource string - Private Shared Function CmnFunc(key As String) As String - ' We acquire ResourceManager. - Dim rm As ResourceManager = MyBusinessSystemExceptionMessageResource.ResourceManager - - ' We acquire a value from App.Config. - Dim FxUICulture As String = GetConfigParameter.GetConfigValue(PubLiteral.EXCEPTIONMESSAGECULTUER) - - If String.IsNullOrEmpty(FxUICulture) Then - ' When the key is not set to App.Config, we use a default culture. - Return rm.GetString(key) - Else - ' When the key is set to App.Config, we use the specified culture. - Try - Dim culture As New CultureInfo(FxUICulture) - Return rm.GetString(key, culture) - Catch ex As Exception - ' There is not CultureNotFoundException in .NET3.5. - - ' When the specified culture is not an effective name, we use a default culture. - Return rm.GetString(key) - End Try - End If - End Function - #End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/My Project/Application.Designer.vb b/root/programs/VB/Frameworks/Infrastructure/Business/My Project/Application.Designer.vb deleted file mode 100644 index 88dd01c..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/My Project/Application.Designer.vb +++ /dev/null @@ -1,13 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/My Project/Application.myapp b/root/programs/VB/Frameworks/Infrastructure/Business/My Project/Application.myapp deleted file mode 100644 index 758895d..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/My Project/Application.myapp +++ /dev/null @@ -1,10 +0,0 @@ - - - false - false - 0 - true - 0 - 1 - true - diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/My Project/AssemblyInfo.vb b/root/programs/VB/Frameworks/Infrastructure/Business/My Project/AssemblyInfo.vb deleted file mode 100644 index 50c1b22..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/My Project/AssemblyInfo.vb +++ /dev/null @@ -1,67 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：AssemblyInfo -'* クラス日本語名 ：AssemblyInfo設定 -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成 -'********************************************************************************** - -Imports System -Imports System.Reflection -Imports System.Runtime.InteropServices - -' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。 -' アセンブリに関連付けられている情報を変更するには、 -' これらの属性値を変更してください。 - -' アセンブリ属性の値を確認します。 - - - - - - - - - - -'このプロジェクトが COM に公開される場合、次の GUID がタイプ ライブラリの ID になります。 - - -' アセンブリのバージョン情報は、以下の 4 つの値で構成されています: -' -' Major Version -' Minor Version -' Build Number -' Revision -' -' すべての値を指定するか、下のように '*' を使ってビルドおよびリビジョン番号を -' 既定値にすることができます: -' - - - diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.Designer.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.Designer.vb deleted file mode 100644 index c2874f4..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.Designer.vb +++ /dev/null @@ -1,76 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. - ''' - _ - Friend Class MyBusinessApplicationExceptionMessageResource - - Private Shared resourceMan As Global.System.Resources.ResourceManager - - Private Shared resourceCulture As Global.System.Globalization.CultureInfo - - _ - Friend Sub New() - MyBase.New - End Sub - - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend Shared 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("MyBusinessApplicationExceptionMessageResource", GetType(MyBusinessApplicationExceptionMessageResource).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. - ''' - _ - Friend Shared Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Looks up a localized string similar to Message_SampleError . - ''' - Friend Shared ReadOnly Property SAMPLE_ERROR() As String - Get - Return ResourceManager.GetString("SAMPLE_ERROR", resourceCulture) - End Get - End Property - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.ja-JP.resx b/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.ja-JP.resx deleted file mode 100644 index 4bf1672..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.ja-JP.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Message_SampleError japanese - - \ No newline at end of file diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.resx b/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.resx deleted file mode 100644 index 974cabc..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessApplicationExceptionMessageResource.resx +++ /dev/null @@ -1,123 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Message_SampleError - - \ No newline at end of file diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.Designer.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.Designer.vb deleted file mode 100644 index 1d223d2..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.Designer.vb +++ /dev/null @@ -1,121 +0,0 @@ -'------------------------------------------------------------------------------ -' -' This code was generated by a tool. -' Runtime Version:4.0.30319.42000 -' -' Changes to this file may cause incorrect behavior and will be lost if -' the code is regenerated. -' -'------------------------------------------------------------------------------ - -Option Strict On -Option Explicit On - -Imports System - -Namespace My.Resources - - 'This class was auto-generated by the StronglyTypedResourceBuilder - 'class via a tool like ResGen or Visual Studio. - 'To add or remove a member, edit your .ResX file then rerun ResGen - 'with the /str option, or rebuild your VS project. - ''' - ''' A strongly-typed resource class, for looking up localized strings, etc. - ''' - _ - Friend Class MyBusinessSystemExceptionMessageResource - - Private Shared resourceMan As Global.System.Resources.ResourceManager - - Private Shared resourceCulture As Global.System.Globalization.CultureInfo - - _ - Friend Sub New() - MyBase.New - End Sub - - ''' - ''' Returns the cached ResourceManager instance used by this class. - ''' - _ - Friend Shared 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("MyBusinessSystemExceptionMessageResource", GetType(MyBusinessSystemExceptionMessageResource).Assembly) - resourceMan = temp - End If - Return resourceMan - End Get - End Property - - ''' - ''' Overrides the current thread's CurrentUICulture property for all - ''' resource lookups using this strongly typed resource class. - ''' - _ - Friend Shared Property Culture() As Global.System.Globalization.CultureInfo - Get - Return resourceCulture - End Get - Set - resourceCulture = value - End Set - End Property - - ''' - ''' Looks up a localized string similar to The error occurred in common Dao. :{0}. - ''' - Friend Shared ReadOnly Property CMN_DAO_ERROR() As String - Get - Return ResourceManager.GetString("CMN_DAO_ERROR", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to The SQL file name or SQL text is not specified.. - ''' - Friend Shared ReadOnly Property CMN_DAO_ERROR_SQL() As String - Get - Return ResourceManager.GetString("CMN_DAO_ERROR_SQL", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to Message_SampleError. - ''' - Friend Shared ReadOnly Property SAMPLE_ERROR() As String - Get - Return ResourceManager.GetString("SAMPLE_ERROR", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to The error occurred in workflow. :{0}. - ''' - Friend Shared ReadOnly Property WORKFLOW_ERROR() As String - Get - Return ResourceManager.GetString("WORKFLOW_ERROR", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to {0} argument is empty.. - ''' - Friend Shared ReadOnly Property WORKFLOW_ERROR_CHECK_EMPTY() As String - Get - Return ResourceManager.GetString("WORKFLOW_ERROR_CHECK_EMPTY", resourceCulture) - End Get - End Property - - ''' - ''' Looks up a localized string similar to {0} field is not contained in the {1} argument.. - ''' - Friend Shared ReadOnly Property WORKFLOW_ERROR_CHECK_FIELD_ISNT_CONTAINED() As String - Get - Return ResourceManager.GetString("WORKFLOW_ERROR_CHECK_FIELD_ISNT_CONTAINED", resourceCulture) - End Get - End Property - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.ja-JP.resx b/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.ja-JP.resx deleted file mode 100644 index 3fd77ee..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.ja-JP.resx +++ /dev/null @@ -1,138 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 共通Daoでエラーが発生しました。：{0} - - - SQLファイル名 or SQLテキストが指定されていません。 - - - Message_SampleError Japanese - - - Workflowでエラーが発生しました。：{0} - - - {0} 引数が空です。 - - - {0} フィールドは、{1} に含まれていません. - - \ No newline at end of file diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.resx b/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.resx deleted file mode 100644 index 9d848d3..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Resources/MyBusinessSystemExceptionMessageResource.resx +++ /dev/null @@ -1,138 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - The error occurred in common Dao. :{0} - - - The SQL file name or SQL text is not specified. - - - Message_SampleError - - - The error occurred in workflow. :{0} - - - {0} argument is empty. - - - {0} field is not contained in the {1} argument. - - \ No newline at end of file diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Str/JISX0208_1983Checker.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Str/JISX0208_1983Checker.vb deleted file mode 100644 index 164d575..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Str/JISX0208_1983Checker.vb +++ /dev/null @@ -1,162 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：JISX0208_1983Checker -'* クラス日本語名 ：JIS X 0208-1983文字コード範囲チェック・クラス -'* 　　　　　　　　　・01～08区：記号、英数字、かな -'* 　　　　　　　　　・16～47区：JIS第1水準漢字 -'* 　　　　　　　　　・48～84区：JIS第2水準漢字 -'* 　　　　　　　　※JIS X 0208-1990で追加された「凜[7425]」「熙[7426]」は含まれない -'* 　　　　　　　　　※NEC機種依存文字、NECのIBM拡張文字、IBM拡張文字は含まれない -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 2012/06/20 西野 大介 新規作成 -'********************************************************************************** - -Imports System.Text - -Imports Touryo.Infrastructure.Public.Str - -Namespace Touryo.Infrastructure.Business.Str - ''' - ''' JIS X 0208-1983文字コード範囲チェック・クラス - ''' ・01～08区：記号、英数字、かな - ''' ・16～47区：JIS第1水準漢字 - ''' ・48～84区：JIS第2水準漢字 - ''' ※JIS X 0208-1990で追加された「凜[7425]」「熙[7426]」は含まれない - ''' ※NEC機種依存文字、NECのIBM拡張文字、IBM拡張文字は含まれない - ''' - ''' 同じアルゴリズムで他の文字コード範囲チェック・クラスも開発できる - Public Class JISX0208_1983Checker - ''' CheckCharCodeのリスト（許可されるコード範囲のリスト） - Private Shared CCCList As List(Of CheckCharCode) - - ''' シングルトン - Private Shared _JISX0208_1983Checker As New JISX0208_1983Checker() - - ''' コンストラクタ - Public Sub New() - ' エンコーディングと、コード範囲のリストを定義する。 - JISX0208_1983Checker.CCCList = New List(Of CheckCharCode)() - Dim sjisEncoding As Encoding = Encoding.GetEncoding(CustomEncode.shift_jis) - - ' 文字コード表 シフトJIS(Shift_JIS) - ' http://charset.7jp.net/sjis.html - - ' NUL文字 - ' DEL文字 - JISX0208_1983Checker.CCCList.Add(New CheckCharCode(ControlChars.NullChar.ToString(), ChrW(127).ToString(), sjisEncoding)) - - ' 半角カナ - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("｡", "ﾟ", sjisEncoding)) - - ' 以下、全角の範囲 - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("　", "〓", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("∈", "∩", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("∧", "∃", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("∠", "∬", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("Å", "¶", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("◯", "◯", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("０", "９", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("Ａ", "Ｚ", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("ａ", "ｚ", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("ぁ", "ん", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("ァ", "ヶ", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("Α", "Ω", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("α", "ω", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("А", "Я", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("а", "я", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("─", "╂", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("亜", "腕", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("弌", "滌", sjisEncoding)) - JISX0208_1983Checker.CCCList.Add(New CheckCharCode("漾", "瑤", sjisEncoding)) - End Sub - - ''' 範囲チェックする - ''' チェック対象文字列 - ''' - ''' エラー文字のインデックス - ''' 戻り値 = falseでindex = -1の場合は、SJISでない場合を表す。 - ''' - ''' - ''' エラーの文字 - ''' - ''' - ''' true：範囲内 - ''' false：範囲外 - ''' - ''' - ''' 空文字列が指定された場合は、trueが返ります。 - ''' - Public Shared Function IsJISX0208_1983(input As String, ByRef index As Integer, ByRef ch As String) As Boolean - ' trueの場合 - index = -1 - ch = "" - - '/ 改行コードを除去 - 'input = input.Replace("\r", ""); - 'input = input.Replace("\n", ""); - - If input.Length = 0 Then - ' 空文字列が指定された場合は、true - Return True - Else - ' SJISチェック - If StringChecker.IsShift_Jis(input) Then - ' SJISである。 - For i As Integer = 0 To input.Length - 1 - ' 当該文字は、 - - ' チェック対象文字・チェック結果 - Dim result As Boolean = False - Dim tempChar As String = input(i).ToString() - - For Each ccc As CheckCharCode In JISX0208_1983Checker.CCCList - ' 当該範囲の、 - If ccc.IsInRange(tempChar) Then - ' 範囲内 - result = True - ' 範囲外 - Else - End If - Next - - ' 当該文字は、全範囲外 - If Not result Then - index = i - ch = tempChar - Return False - End If - Next - - ' 全文字、範囲内 - Return True - Else - ' SJISでない。 - Return False - End If - End If - End Function - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/GMTMaster.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/GMTMaster.vb deleted file mode 100644 index 0526b50..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/GMTMaster.vb +++ /dev/null @@ -1,164 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：GMTMaster -'* クラス日本語名 ：ローカル時刻⇔世界協定時刻(UTC)変換クラス -'* ・自前で時差管理が必要な場合は -'* 「#region カスタム」のメソッドを使用する。 -'* ・.NET3.以降5で、自前で時差管理が面倒な場合は -'* 「#region .NET3.5以降」のメソッドを使用する。 -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 2012/06/20 西野 大介 新規作成 -'* 2017/03/10 西野 大介 .NET3.0以前の独自実装を破棄 -'********************************************************************************** - -Namespace Touryo.Infrastructure.Business.Util - ''' ローカル時刻⇔世界協定時刻(UTC)変換クラス - Public Class GMTMaster - -#Region "カスタム（.NET3.0以前）" - - '''' ロック・オブジェクト - 'Private Shared Lock As New Object() - - '''' MyTimeZone - 'Private Shared TZ As New MyTimeZone() - - '''' MyTimeZone更新用の隠しメソッド - '''' 隠しメソッドなのでインテリセンスから参照不可 - ' - 'Public Shared Sub RefreshMyTimeZone() - ' SyncLock GMTMaster.Lock - ' ' 再読み込み - ' GMTMaster.TZ = New MyTimeZone() - ' End SyncLock - 'End Sub - - '''' ローカル時刻→世界協定時刻(UTC)変換 - '''' ローカル時刻 - '''' ローカル時刻のタイムゾーン - '''' 世界協定時刻(UTC) - 'Public Shared Function ConvertLocalTimeToUtcTimeManual(localTime As DateTime, myTimeZoneId As MyTimeZoneEnum) As DateTime - ' ' チェック - ' If localTime.Kind <> DateTimeKind.Utc Then - ' ' != DateTimeKind.Utc - ' Dim utcTime As New DateTime(localTime.Ticks, DateTimeKind.Utc) - - ' ' 変換 - ' SyncLock GMTMaster.Lock - ' ' 時差（分数）を引算 - ' utcTime = utcTime.AddMinutes(GMTMaster.TZ.GetTimezoneOffset(myTimeZoneId) * -1) - ' End SyncLock - - ' Return utcTime - ' Else - ' ' == DateTimeKind.Utc - ' Throw New ArgumentException("localTime.Kind == DateTimeKind.Utc", "localTime") - ' End If - 'End Function - - '''' 世界協定時刻(UTC)→ローカル時刻変換 - '''' 世界協定時刻(UTC) - '''' ローカル時刻のタイムゾーン - '''' - '''' true:成功 - '''' false：失敗（≠ DateTimeKind.Utc） - '''' - 'Public Shared Function ConvertUtcTimeToLocalTimeManual(utcTime As DateTime, myTimeZoneId As MyTimeZoneEnum) As DateTime - ' ' チェック - ' If utcTime.Kind <> DateTimeKind.Local Then - ' ' != DateTimeKind.Local - ' Dim localTime As New DateTime(utcTime.Ticks, DateTimeKind.Local) - - ' ' 変換 - ' SyncLock GMTMaster.Lock - ' ' 時差（分数）を加算 - ' localTime = localTime.AddMinutes(GMTMaster.TZ.GetTimezoneOffset(myTimeZoneId)) - ' End SyncLock - - ' Return localTime - ' Else - ' ' == DateTimeKind.Local - ' Throw New ArgumentException("utcTime.Kind == DateTimeKind.Local", "utcTime") - ' End If - 'End Function - -#End Region - -#Region ".NET3.5以降" - - ' .NET2.0ではタイムゾーン情報がないので、ローカルのタイムゾーンにしか変換できない。 - ' CurrentThreadのcultureの情報を変更できるが、cultureはTimeZoneInfoには１：１で対応しない。 - ' このため、.NET3.5を使用して実装することにしている（母体が2.0なので変換後コメントを外して使用する）。 - - ' .NET3.5以降は、タイムゾーン・時間差情報を持っており、これを自分で管理する必要はない。 - - ' ConvertTimeToUtc、ConvertTimeFromUtcメソッドの仕様自体はブラックボックスだが、 - ' TimeZoneInfo.GetSystemTimeZones();でTimeZoneInfoを取得し、 - ' 以下のプロパティを確認することで仕様確認は可能である。 - ' - ' TimeZoneInfo.SupportsDaylightSavingTime プロパティ - ' http://msdn.microsoft.com/ja-jp/library/system.timezoneinfo.supportsdaylightsavingtime.aspx - ' TimeZoneInfo.BaseUtcOffset プロパティ - ' http://msdn.microsoft.com/ja-jp/library/system.timezoneinfo.baseutcoffset.aspx - - ''' ローカル時刻→世界協定時刻(UTC)変換 - ''' ローカル時刻 - ''' 世界協定時刻(UTC) - Public Shared Function ConvertLocalTimeToUtcTime35(localTime As DateTime) As DateTime - Return ConvertLocalTimeToUtcTime35(localTime, TimeZoneInfo.Local) - End Function - - ''' ローカル時刻→世界協定時刻(UTC)変換 - ''' ローカル時刻 - ''' ローカル時刻のタイムゾーン - ''' 世界協定時刻(UTC) - Public Shared Function ConvertLocalTimeToUtcTime35(localTime As DateTime, tzInfo As TimeZoneInfo) As DateTime - Return TimeZoneInfo.ConvertTimeToUtc(localTime, tzInfo) - End Function - - ''' - ''' 世界協定時刻(UTC)→ローカル時刻変換 - ''' - ''' 世界協定時刻(UTC) - ''' ローカル時刻 - Public Shared Function ConvertUtcTimeToLocalTime35(utcTime As DateTime) As DateTime - Return ConvertUtcTimeToLocalTime35(utcTime, TimeZoneInfo.Local) - End Function - - ''' - ''' 世界協定時刻(UTC)→ローカル時刻変換 - ''' - ''' 世界協定時刻(UTC) - ''' ローカル時刻のタイムゾーン - ''' ローカル時刻 - Public Shared Function ConvertUtcTimeToLocalTime35(utcTime As DateTime, tzInfo As TimeZoneInfo) As DateTime - Return TimeZoneInfo.ConvertTimeFromUtc(utcTime, tzInfo) - End Function - -#End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyAttribute.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyAttribute.vb deleted file mode 100644 index 40874fe..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyAttribute.vb +++ /dev/null @@ -1,90 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyAttribute -'* クラス日本語名 ：カスタム属性クラス（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2009/08/06 西野 大介 クラス属性だけでなく、メソッド属性も処理可能に修正 -'********************************************************************************** - -Imports System.Reflection - -Namespace Touryo.Infrastructure.Business.Util - ''' カスタム属性クラス - ''' 自由に（拡張して）利用できる。 - - Public Class MyAttribute - Inherits Attribute - ''' カスタム属性A - ''' 自由に利用できる。 - Public MyAttributeA As String = "" - - ''' カスタム属性B - ''' 自由に利用できる。 - Public MyAttributeB As String = "" - - ''' カスタム属性C - ''' 自由に利用できる。 - Public MyAttributeC As String = "" - - ''' 当該カスタム属性クラスを取得する（クラス属性用） - ''' クラスのオブジェクト - ''' カスタム属性クラスの配列 - ''' 自由に（拡張して）利用できる。 - Public Shared Sub GetAttr(ByVal obj As Object, ByRef myAttribute As MyAttribute()) - ' 属性クラスのリストを取得する。 - ' inheritは、AllowMultipleに合わせる。 - ' http://msdn.microsoft.com/ja-jp/library/system.type.getcustomattributes.aspx - Dim list As Object() = obj.GetType().GetCustomAttributes(GetType(MyAttribute), True) - - ' object[]をMyAttribute[]に変換して返す。 - Dim i As Integer = 0 - myAttribute = New MyAttribute(list.Length - 1) {} - For Each temp As MyAttribute In list - myAttribute(i) = temp - Next - End Sub - - ''' カスタム属性クラスを取得する（メソッド属性用） - ''' メソッドのMethodInfo - ''' カスタム属性クラスの配列 - ''' 自由に（拡張して）利用できる。 - Public Shared Sub GetAttr(ByVal methodInfo As MethodInfo, ByRef myAttribute As MyAttribute()) - ' 属性クラスのリストを取得する。inheritは、AllowMultipleに合わせる。 - ' http://msdn.microsoft.com/ja-jp/library/system.type.getcustomattributes.aspx - Dim list As Object() = methodInfo.GetCustomAttributes(GetType(MyAttribute), True) - - ' object[]をMyAttribute[]に変換して返す。 - Dim i As Integer = 0 - myAttribute = New MyAttribute(list.Length - 1) {} - For Each temp As MyAttribute In list - myAttribute(i) = temp - Next - End Sub - End Class - -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyCmnFunction.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyCmnFunction.vb deleted file mode 100644 index 6d75857..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyCmnFunction.vb +++ /dev/null @@ -1,256 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyCmnFunction -'* クラス日本語名 ：Business層の共通クラス（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2009/06/02 西野 大介 sln - IR版からの修正 -'* ・#5 ： コントロール数取得処理（デフォルト値不正） -'* 2009/07/21 西野 大介 コントロール取得処理の仕様変更 -'* 2009/08/10 西野 大介 同名のコントロール追加に対応（GridView/ItemTemplate）。 -'* 2010/09/24 西野 大介 ジェネリック対応（Dictionary、List、Queue、Stack） -'* nullチェック方法、Contains → ContainsKeyなどに注意 -'* 2010/10/21 西野 大介 幾つかのイベント処理の正式対応（ベースクラス２→１へ） -'* 2012/06/14 西野 大介 コントロール検索の再帰処理性能の集約＆効率化。 -'* 2014/05/16 西野 大介 キャスト可否チェックのロジックを見直した。 -'* 2017/01/31 西野 大介 System.Webを使用しているCalculateSessionSizeメソッドをPublicから移動 -'********************************************************************************** - -Imports System.Web -Imports System.Web.UI -Imports System.Web.UI.WebControls - -Imports Touryo.Infrastructure.Framework.Exceptions -Imports Touryo.Infrastructure.Framework.Util -Imports Touryo.Infrastructure.Public.IO -Imports Touryo.Infrastructure.Public.Util - -Namespace Touryo.Infrastructure.Business.Util - ''' Business層の共通クラス - Public Class MyCmnFunction - -#Region "CalculateSessionSize" - - ''' Sessionサイズ測定 - ''' Sessionサイズ（MB） - ''' シリアル化できないオブジェクトを含む場合は落ちる。 - Public Shared Function CalculateSessionSizeMB() As Long - 'return MyCmnFunction.CalculateSessionSizeKB() / 1000; - Return CLng(Math.Truncate(Math.Round(MyCmnFunction.CalculateSessionSize() / 1000000.0, 0, MidpointRounding.AwayFromZero))) - - End Function - - ''' Sessionサイズ測定 - ''' Sessionサイズ（KB） - ''' シリアル化できないオブジェクトを含む場合は落ちる。 - Public Shared Function CalculateSessionSizeKB() As Long - 'return MyCmnFunction.CalculateSessionSize() / 1000; - Return CLng(Math.Truncate(Math.Round(MyCmnFunction.CalculateSessionSize() / 1000.0, 0, MidpointRounding.AwayFromZero))) - End Function - - ''' Sessionサイズ測定 - ''' Sessionサイズ（バイト） - ''' シリアル化できないオブジェクトを含む場合は落ちる。 - Public Shared Function CalculateSessionSize() As Long - ' ワーク変数 - Dim size As Long = 0 - - ' SessionのオブジェクトをBinarySerializeしてサイズを取得。 - For Each key As String In HttpContext.Current.Session.Keys - ' 当該キーのオブジェクト・サイズを足しこむ。 - size += BinarySerialize.ObjectToBytes(HttpContext.Current.Session(key)).Length - Next - - ' Sessionサイズ（バイト） - Return size - End Function - -#End Region - - ' 2009/07/21-start - -#Region "コントロール取得＆イベントハンドラ設定" - - ''' コントロール取得＆イベントハンドラ設定（下位互換） - ''' コントロール - ''' プレフィックス - ''' イベント ハンドラ - ''' ディクショナリ - Friend Shared Sub GetCtrlAndSetClickEventHandler(ctrl As Control, prefix As String, eventHandler As Object, controlHt As Dictionary(Of String, Control)) - '#Region "チェック処理" - - ' コントロール指定が無い場合 - If ctrl Is Nothing Then - ' 何もしないで戻る。 - Return - End If - - ' プレフィックス指定が無い場合 - If prefix Is Nothing OrElse prefix = "" Then - ' 何もしないで戻る。 - Return - End If - - '#End Region - - '#Region "コントロール取得＆イベントハンドラ設定" - - ' コントロールのIDチェック - ' コントロールID無し - If ctrl.ID Is Nothing Then - Else - ' コントロールID有り - - ' コントロールのID長確認 - If prefix.Length <= ctrl.ID.Length Then - ' 指定のプレフィックス - If prefix = ctrl.ID.Substring(0, prefix.Length) Then - ' イベントハンドラを設定する。 - If prefix = GetConfigParameter.GetConfigValue(MyLiteral.PREFIX_OF_CHECK_BOX) Then - ' CHECK BOX - Dim checkBox As CheckBox = Nothing - - Try - ' キャストできる - checkBox = DirectCast(ctrl, CheckBox) - Catch ex As Exception - ' キャストできない - Throw New FrameworkException( - FrameworkExceptionMessage.CONTROL_TYPE_ERROR(0), - [String].Format(FrameworkExceptionMessage.CONTROL_TYPE_ERROR(1), prefix, ctrl.[GetType]().ToString()), ex) - End Try - - AddHandler checkBox.CheckedChanged, DirectCast(eventHandler, EventHandler) - - ' ディクショナリに格納 - ' ControlHt.Add(ctrl.ID, ctrl); - ' ControlHt[ctrl.ID] = ctrl; - ' 2011/02/12 - FxCmnFunction.AddControlToDic(ctrl, controlHt) - End If - End If - End If - End If - - '#End Region - - '#Region "再帰" - - ' 子コントロールがある場合、 - If ctrl.HasControls() Then - ' 子コントロール毎に - For Each childCtrl As Control In ctrl.Controls - ' 再帰する。 - MyCmnFunction.GetCtrlAndSetClickEventHandler(childCtrl, prefix, eventHandler, controlHt) - Next - End If - - '#End Region - End Sub - - ''' コントロール取得＆イベントハンドラ設定 - ''' コントロール - ''' プレフィックスとイベント ハンドラのディクショナリ - ''' コントロールのディクショナリ - Friend Shared Sub GetCtrlAndSetClickEventHandler2(ctrl As Control, prefixAndEvtHndHt As Dictionary(Of String, Object), controlHt As Dictionary(Of String, Control)) - ' ループ - For Each prefix As String In prefixAndEvtHndHt.Keys - Dim eventHandler As Object = prefixAndEvtHndHt(prefix) - - '#Region "チェック処理" - - ' コントロール指定が無い場合 - If ctrl Is Nothing Then - ' 何もしないで戻る。 - Return - End If - - ' プレフィックス指定が無い場合 - If prefix Is Nothing OrElse prefix = "" Then - ' 何もしないで戻る。 - Return - End If - - '#End Region - - '#Region "コントロール取得＆イベントハンドラ設定" - - ' コントロールのIDチェック - ' コントロールID無し - If ctrl.ID Is Nothing Then - Else - ' コントロールID有り - - ' コントロールのID長確認 - If prefix.Length <= ctrl.ID.Length Then - ' 指定のプレフィックス - If prefix = ctrl.ID.Substring(0, prefix.Length) Then - ' イベントハンドラを設定する。 - If prefix = GetConfigParameter.GetConfigValue(MyLiteral.PREFIX_OF_CHECK_BOX) Then - ' CHECK BOX - Dim checkBox As CheckBox = Nothing - - If TypeOf ctrl Is CheckBox Then - ' キャストできる - checkBox = DirectCast(ctrl, CheckBox) - Else - ' キャストできない - Throw New FrameworkException(FrameworkExceptionMessage.CONTROL_TYPE_ERROR(0), [String].Format(FrameworkExceptionMessage.CONTROL_TYPE_ERROR(1), prefix, ctrl.[GetType]().ToString())) - End If - - AddHandler checkBox.CheckedChanged, DirectCast(eventHandler, EventHandler) - - ' ディクショナリに格納 - controlHt(ctrl.ID) = ctrl - Exit For - End If - End If - End If - - '#End Region - End If - Next - - '#Region "再帰" - - ' 子コントロールがある場合、 - If ctrl.HasControls() Then - ' 子コントロール毎に - For Each childCtrl As Control In ctrl.Controls - ' 再帰する。 - MyCmnFunction.GetCtrlAndSetClickEventHandler2(childCtrl, prefixAndEvtHndHt, controlHt) - Next - End If - - '#End Region - End Sub - -#End Region - - ' 2009/07/21-end - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyLiteral.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyLiteral.vb deleted file mode 100644 index c4593a2..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyLiteral.vb +++ /dev/null @@ -1,53 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyLiteral -'* クラス日本語名 ：Business層のリテラル クラス（必要なリテラルを追加）（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2009/06/02 西野 大介 sln - IR版からの修正 -'* ・#6 ： Fxプレフィックスの欠如 -'* 2009/07/21 西野 大介 コントロール取得処理の仕様変更 -'* 2010/10/21 西野 大介 幾つかのイベント処理の正式対応（ベースクラス２→１へ） -'* 2011/11/20 西野 大介 リッチクライアント用P層フレームワークを追加 -'* 2017/02/28 西野 大介 キャッシュ制御処理にスイッチを追加した。 -'********************************************************************************** - -Namespace Touryo.Infrastructure.Business.Util - ''' Business層のリテラル クラス - Public Class MyLiteral -#Region "app.configのキー（とデフォルト値）" - - ''' チェック ボックスのプレフィックスを設定するキー。 - ''' ベースクラス２から利用するので、internal - Public Const PREFIX_OF_CHECK_BOX As String = "FxPrefixOfCheckBox" - - ''' キャッシュ制御機能のON / OFFを設定するキー - Public Const CACHE_CONTROL As String = "FxCacheControl" - -#End Region - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MySubsysInfo.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MySubsysInfo.vb deleted file mode 100644 index 2ed552a..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MySubsysInfo.vb +++ /dev/null @@ -1,73 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MySubsysInfo -'* クラス日本語名 ：サブシステム情報クラス（使いやすいインデクサを追加）（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'********************************************************************************** - -Imports Touryo.Infrastructure.Framework.Util - -Namespace Touryo.Infrastructure.Business.Util - ''' サブシステム情報クラス（使いやすいインデクサを追加） - ''' 自由に（拡張して）利用できる。 - - Public Class MySubsysInfo - Inherits SubsysInfo - ''' インデクサ - ''' サブシステムID列挙型 - ''' リーフ ハッシュテーブル - Default Public Overloads Property Item(ByVal subsysID As SubsysID) As Hashtable - ' 基本的にリーフ ハッシュテーブルのnullクリア用 - Get - ' リーフ ハッシュテーブルの取得用 - If Me.HT(subsysID) Is Nothing Then - ' nullの場合、リーフ ハッシュテーブルを新規生成する。 - Me.HT(subsysID) = New Hashtable() - ' nullでない場合、何もしない。 - Else - End If - - ' リーフ ハッシュテーブルを返す。 - Return DirectCast(Me.HT(subsysID), Hashtable) - End Get - Set(ByVal value As Hashtable) - Me.HT(subsysID) = value - End Set - End Property - - ''' サブシステムID列挙型 - Public Enum SubsysID - ''' aaa - aaa = 1 - ''' bbb - bbb - ''' ccc - ccc - End Enum - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyTimeZone.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyTimeZone.vb deleted file mode 100644 index f4421cf..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyTimeZone.vb +++ /dev/null @@ -1,167 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyTimeZone -'* クラス日本語名 ：TimeZoneのIDとオフセット（分）の管理クラス -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 2012/06/20 西野 大介 新規作成 -'********************************************************************************** - -Namespace Touryo.Infrastructure.Business.Util - ''' - ''' TimeZoneのIDとオフセット（分）の管理クラス - ''' - ''' - ''' TimeZoneInfo.GetSystemTimeZones()から取得した情報を基に作成 - ''' - Friend Class MyTimeZone - ''' TimeZoneのIDとオフセット（分）のディクショナリ - Private Shared ReadOnly TimeZoneDictionary As New Dictionary(Of MyTimeZoneEnum, Integer)() - -#Region "コンストラクタ" - - ''' - ''' コンストラクタ - ''' TimeZoneのIDに対応するオフセット（分）を指定（定義から読む等の変更可能） - ''' - Public Sub New() - ' UTCと指定のTimeZoneとの時差を分単位で設定する。 - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MoroccoStandardTime, 0) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GMTStandardTime, 0) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GreenwichStandardTime, 0) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC, 0) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.W_EuropeStandardTime, 60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NamibiaStandardTime, 60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralEuropeanStandardTime, 60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.RomanceStandardTime, 60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralEuropeStandardTime, 60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.W_CentralAfricaStandardTime, 60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GTBStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.JordanStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TurkeyStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.IsraelStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.EgyptStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SyriaStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_EuropeStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SouthAfricaStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.FLEStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MiddleEastStandardTime, 120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.KaliningradStandardTime, 180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArabStandardTime, 180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_AfricaStandardTime, 180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArabicStandardTime, 180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.IranStandardTime, 210) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArabianStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArmenianStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CaucasusStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GeorgianStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AzerbaijanStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MauritiusStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.RussianStandardTime, 240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AfghanistanStandardTime, 270) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PakistanStandardTime, 300) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.WestAsiaStandardTime, 300) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SriLankaStandardTime, 330) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.IndiaStandardTime, 330) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NepalStandardTime, 345) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralAsiaStandardTime, 360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.EkaterinburgStandardTime, 360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.BangladeshStandardTime, 360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MyanmarStandardTime, 390) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.N_CentralAsiaStandardTime, 420) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SEAsiaStandardTime, 420) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UlaanbaatarStandardTime, 480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SingaporeStandardTime, 480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NorthAsiaStandardTime, 480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.W_AustraliaStandardTime, 480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ChinaStandardTime, 480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TaipeiStandardTime, 480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NorthAsiaEastStandardTime, 540) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.KoreaStandardTime, 540) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TokyoStandardTime, 540) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.Cen_AustraliaStandardTime, 570) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AUSCentralStandardTime, 570) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AUSEasternStandardTime, 600) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.WestPacificStandardTime, 600) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_AustraliaStandardTime, 600) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TasmaniaStandardTime, 600) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.YakutskStandardTime, 600) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.VladivostokStandardTime, 660) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralPacificStandardTime, 660) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NewZealandStandardTime, 720) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.FijiStandardTime, 720) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.KamchatkaStandardTime, 720) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MagadanStandardTime, 720) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC_12, 720) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SamoaStandardTime, 780) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.TongaStandardTime, 780) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AzoresStandardTime, -60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CapeVerdeStandardTime, -60) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.Mid_AtlanticStandardTime, -120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC_02, -120) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SAEasternStandardTime, -180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.GreenlandStandardTime, -180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.BahiaStandardTime, -180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ArgentinaStandardTime, -180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.E_SouthAmericaStandardTime, -180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MontevideoStandardTime, -180) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.NewfoundlandStandardTime, -210) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.ParaguayStandardTime, -240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralBrazilianStandardTime, -240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PacificSAStandardTime, -240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SAWesternStandardTime, -240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AtlanticStandardTime, -240) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.VenezuelaStandardTime, -270) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.USEasternStandardTime, -300) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.SAPacificStandardTime, -300) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.EasternStandardTime, -300) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralStandardTime_Mexico, -360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MexicoStandardTime, -360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CanadaCentralStandardTime, -360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralAmericaStandardTime, -360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.CentralStandardTime, -360) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.USMountainStandardTime, -420) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MountainStandardTime_Mexico, -420) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MexicoStandardTime2, -420) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.MountainStandardTime, -420) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PacificStandardTime_Mexico, -480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.PacificStandardTime, -480) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.AlaskanStandardTime, -540) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.HawaiianStandardTime, -600) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.UTC_11, -660) - MyTimeZone.TimeZoneDictionary.Add(MyTimeZoneEnum.DatelineStandardTime, -720) - End Sub - -#End Region - - ''' TimeZoneのオフセットを取得 - ''' - ''' TimeZoneのオフセット（分） - Public Function GetTimezoneOffset(myTimeZoneEnum As MyTimeZoneEnum) As Integer - Return MyTimeZone.TimeZoneDictionary(myTimeZoneEnum) - End Function - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyTimeZoneEnum.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyTimeZoneEnum.vb deleted file mode 100644 index b5580d2..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyTimeZoneEnum.vb +++ /dev/null @@ -1,245 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyTimeZoneEnum -'* クラス日本語名 ：TimeZoneのID -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 2012/06/20 西野 大介 新規作成 -'********************************************************************************** - -Namespace Touryo.Infrastructure.Business.Util - ''' TimeZoneのID - Public Enum MyTimeZoneEnum - ''' (GMT) カサブランカ - MoroccoStandardTime - ''' (GMT) グリニッジ標準時: ダブリン、エジンバラ、リスボン、ロンドン - GMTStandardTime - ''' (GMT) モンロビア、レイキャビク - GreenwichStandardTime - ''' (GMT) 協定世界時 - UTC - ''' (GMT+01:00) アムステルダム、ベルリン､ベルン、ローマ､ストックホルム､ウィーン - W_EuropeStandardTime - ''' (GMT+01:00) ウィントフック - NamibiaStandardTime - ''' (GMT+01:00) サラエボ、スコピエ、ワルシャワ、ザグレブ - CentralEuropeanStandardTime - ''' (GMT+01:00) ブリュッセル、コペンハーゲン、マドリード、パリ - RomanceStandardTime - ''' (GMT+01:00) ベオグラード、ブラチスラバ、ブダペスト、リュブリャナ、プラハ - CentralEuropeStandardTime - ''' (GMT+01:00) 西中央アフリカ - W_CentralAfricaStandardTime - ''' (GMT+02:00) アテネ、ブカレスト - GTBStandardTime - ''' (GMT+02:00) アンマン - JordanStandardTime - ''' (GMT+02:00) イスタンブール - TurkeyStandardTime - ''' (GMT+02:00) エルサレム - IsraelStandardTime - ''' (GMT+02:00) カイロ - EgyptStandardTime - ''' (GMT+02:00) ダマスカス - SyriaStandardTime - ''' (GMT+02:00) ニコシア - E_EuropeStandardTime - ''' (GMT+02:00) ハラーレ、プレトリア - SouthAfricaStandardTime - ''' (GMT+02:00) ヘルシンキ、キエフ、リガ、スコピエ、ソフィア、タリン、ビリニュス - FLEStandardTime - ''' (GMT+02:00) ベイルート - MiddleEastStandardTime - ''' (GMT+03:00) カリーニングラード、ミンスク - KaliningradStandardTime - ''' (GMT+03:00) クウェート、リヤド - ArabStandardTime - ''' (GMT+03:00) ナイロビ - E_AfricaStandardTime - ''' (GMT+03:00) バグダッド - ArabicStandardTime - ''' (GMT+03:30) テヘラン - IranStandardTime - ''' (GMT+04:00) アブダビ、マスカット - ArabianStandardTime - ''' (GMT+04:00) エレバン - ArmenianStandardTime - ''' (GMT+04:00) コーカサス標準時 - CaucasusStandardTime - ''' (GMT+04:00) トビリシ - GeorgianStandardTime - ''' (GMT+04:00) バク - AzerbaijanStandardTime - ''' (GMT+04:00) ポートルイス - MauritiusStandardTime - ''' (GMT+04:00) モスクワ、サンクトペテルブルク、ボルゴグラード - RussianStandardTime - ''' (GMT+04:30) カブール - AfghanistanStandardTime - ''' (GMT+05:00) イスラマバード、カラチ - PakistanStandardTime - ''' (GMT+05:00) タシケント - WestAsiaStandardTime - ''' (GMT+05:30) スリジャヤワルダナプラコッテ - SriLankaStandardTime - ''' (GMT+05:30) チェンナイ、コルカタ、ムンバイ、ニューデリー - IndiaStandardTime - ''' (GMT+05:45) カトマンズ - NepalStandardTime - ''' (GMT+06:00) アスタナ - CentralAsiaStandardTime - ''' (GMT+06:00) エカテリンバーグ - EkaterinburgStandardTime - ''' (GMT+06:00) ダッカ - BangladeshStandardTime - ''' (GMT+06:30) ヤンゴン (ラングーン) - MyanmarStandardTime - ''' (GMT+07:00) ノボシビルスク - N_CentralAsiaStandardTime - ''' (GMT+07:00) バンコク、ハノイ、ジャカルタ - SEAsiaStandardTime - ''' (GMT+08:00) ウランバートル - UlaanbaatarStandardTime - ''' (GMT+08:00) クアラルンプール、シンガポール - SingaporeStandardTime - ''' (GMT+08:00) クラスノヤルスク - NorthAsiaStandardTime - ''' (GMT+08:00) パース - W_AustraliaStandardTime - ''' (GMT+08:00) 北京、重慶、香港、ウルムチ - ChinaStandardTime - ''' (GMT+08:00) 台北 - TaipeiStandardTime - ''' (GMT+09:00) イルクーツク - NorthAsiaEastStandardTime - ''' (GMT+09:00) ソウル - KoreaStandardTime - ''' (GMT+09:00) 大阪、札幌、東京 - TokyoStandardTime - ''' (GMT+09:30) アデレード - Cen_AustraliaStandardTime - ''' (GMT+09:30) ダーウィン - AUSCentralStandardTime - ''' (GMT+10:00) キャンベラ、メルボルン、シドニー - AUSEasternStandardTime - ''' (GMT+10:00) グアム、ポートモレスビー - WestPacificStandardTime - ''' (GMT+10:00) ブリスベン - E_AustraliaStandardTime - ''' (GMT+10:00) ホバート - TasmaniaStandardTime - ''' (GMT+10:00) ヤクーツク - YakutskStandardTime - ''' (GMT+11:00) ウラジオストク - VladivostokStandardTime - ''' (GMT+11:00) ソロモン諸島、ニューカレドニア - CentralPacificStandardTime - ''' (GMT+12:00) オークランド、ウェリントン - NewZealandStandardTime - ''' (GMT+12:00) フィジー - FijiStandardTime - ''' (GMT+12:00) ペトロパブロフスク-カムチャツキー - 廃止 - KamchatkaStandardTime - ''' (GMT+12:00) マガダン - MagadanStandardTime - ''' (GMT+12:00) 協定世界時+12 - UTC_12 - ''' (GMT+13:00) サモア - SamoaStandardTime - ''' (GMT+13:00) ヌクアロファ - TongaStandardTime - ''' (GMT-01:00) アゾレス諸島 - AzoresStandardTime - ''' (GMT-01:00) カーボベルデ諸島 - CapeVerdeStandardTime - ''' (GMT-02:00) 中央大西洋 - Mid_AtlanticStandardTime - ''' (GMT-02:00) 協定世界時-02 - UTC_02 - ''' (GMT-03:00) カイエンヌ、フォルタレザ - SAEasternStandardTime - ''' (GMT-03:00) グリーンランド - GreenlandStandardTime - ''' (GMT-03:00) サルバドル - BahiaStandardTime - ''' (GMT-03:00) ブエノスアイレス - ArgentinaStandardTime - ''' (GMT-03:00) ブラジリア - E_SouthAmericaStandardTime - ''' (GMT-03:00) モンテビデオ - MontevideoStandardTime - ''' (GMT-03:30) ニューファンドランド - NewfoundlandStandardTime - ''' (GMT-04:00) アスンシオン - ParaguayStandardTime - ''' (GMT-04:00) クイアバ - CentralBrazilianStandardTime - ''' (GMT-04:00) サンティアゴ - PacificSAStandardTime - ''' (GMT-04:00) ジョージタウン、ラパス、マナウス、サンフアン - SAWesternStandardTime - ''' (GMT-04:00) 大西洋標準時 (カナダ) - AtlanticStandardTime - ''' (GMT-04:30) カラカス - VenezuelaStandardTime - ''' (GMT-05:00) インディアナ東部 - USEasternStandardTime - ''' (GMT-05:00) ボゴタ、リマ、キト - SAPacificStandardTime - ''' (GMT-05:00) 東部標準時 (米国およびカナダ) - EasternStandardTime - ''' (GMT-06:00) グアダラハラ、メキシコシティ、モンテレー - 新 - CentralStandardTime_Mexico - ''' (GMT-06:00) グアダラハラ、メキシコシティ、モンテレー - 旧 - MexicoStandardTime - ''' (GMT-06:00) サスカチュワン - CanadaCentralStandardTime - ''' (GMT-06:00) 中央アメリカ - CentralAmericaStandardTime - ''' (GMT-06:00) 中部標準時 (米国およびカナダ) - CentralStandardTime - ''' (GMT-07:00) アリゾナ - USMountainStandardTime - ''' (GMT-07:00) チワワ、ラパス、マサトラン - 新 - MountainStandardTime_Mexico - ''' (GMT-07:00) チワワ、ラパス、マサトラン - 旧 - MexicoStandardTime2 - ''' (GMT-07:00) 山地標準時 (米国およびカナダ) - MountainStandardTime - ''' (GMT-08:00) バハカリフォルニア - PacificStandardTime_Mexico - ''' (GMT-08:00) 太平洋標準時 (米国およびカナダ) - PacificStandardTime - ''' (GMT-09:00) アラスカ - AlaskanStandardTime - ''' (GMT-10:00) ハワイ - HawaiianStandardTime - ''' (GMT-11:00) 協定世界時-11 - UTC_11 - ''' (GMT-12:00) 国際日付変更線 西側 - DatelineStandardTime - End Enum -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyUserInfo.vb b/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyUserInfo.vb deleted file mode 100644 index 6e9b545..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/Util/MyUserInfo.vb +++ /dev/null @@ -1,81 +0,0 @@ -'********************************************************************************** -'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd. -'********************************************************************************** - -#Region "Apache License" -' -' Licensed under the Apache License, Version 2.0 (the "License"); -' you may not use this file except in compliance with the License. -' You may obtain a copy of the License at -' -' http://www.apache.org/licenses/LICENSE-2.0 -' -' Unless required by applicable law or agreed to in writing, software -' distributed under the License is distributed on an "AS IS" BASIS, -' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -' See the License for the specific language governing permissions and -' limitations under the License. -' -#End Region - -'********************************************************************************** -'* クラス名 ：MyUserInfo -'* クラス日本語名 ：ユーザ情報クラス（必要なコンテキスト情報を追加）（テンプレート） -'* -'* 作成者 ：生技 西野 -'* 更新履歴 ： -'* -'* 日時 更新者 内容 -'* ---------- ---------------- ------------------------------------------------- -'* 20xx/xx/xx ＸＸ ＸＸ 新規作成（テンプレート） -'* 2010/09/24 西野 大介 フィールドの追加 -'* 2010/09/24 西野 大介 共通引数クラス内にユーザ情報を格納したので -'********************************************************************************** - -' フレームワーク -Imports Touryo.Infrastructure.Framework.Util - -Namespace Touryo.Infrastructure.Business.Util - ''' ユーザ情報クラス（必要なコンテキスト情報を追加） - ''' 自由に（拡張して）利用できる。 - - Public Class MyUserInfo - Inherits UserInfo - ''' ユーザ名 - Private _userName As String = "" - - ''' IPアドレス - Private _ipAddress As String - - ''' コンストラクタ - ''' ユーザ名 - ''' IPアドレス - ''' 自由に利用できる。 - Public Sub New(ByVal userName As String, ByVal ipAddress As String) - Me._userName = userName - Me._ipAddress = ipAddress - End Sub - - ''' ユーザ名 - ''' 自由に利用できる。 - Public Property UserName() As String - Get - Return Me._userName - End Get - Set(ByVal value As String) - Me._userName = value - End Set - End Property - - ''' IPアドレス - ''' 自由に利用できる。 - Public Property IPAddress() As String - Get - Return Me._ipAddress - End Get - Set(ByVal value As String) - Me._ipAddress = value - End Set - End Property - End Class -End Namespace diff --git a/root/programs/VB/Frameworks/Infrastructure/Business/packages.config b/root/programs/VB/Frameworks/Infrastructure/Business/packages.config deleted file mode 100644 index 5b6dce1..0000000 --- a/root/programs/VB/Frameworks/Infrastructure/Business/packages.config +++ /dev/null @@ -1,4 +0,0 @@ - - - - \ No newline at end of file diff --git a/root/programs/VB/z_Common.bat b/root/programs/VB/z_Common.bat deleted file mode 100644 index 81fe679..0000000 --- a/root/programs/VB/z_Common.bat +++ /dev/null @@ -1,28 +0,0 @@ -@rem -------------------------------------------------- -@rem Execution of the common processing. -@rem -------------------------------------------------- - -@rem -------------------------------------------------- -@rem Specifying Build tool. -@rem -------------------------------------------------- -set BUILDFILEPATH="C:\Windows\Microsoft.NET\Framework\v4.0.30319\MSBuild.exe" - -set BUILDFILEPATH2.0="C:\Windows\Microsoft.NET\Framework\v2.0.50727\MSBuild.exe" -set BUILDFILEPATH3.5="C:\Windows\Microsoft.NET\Framework\v3.5\MSBuild.exe" -set BUILDFILEPATH4.0="C:\Windows\Microsoft.NET\Framework\v4.0.30319\MSBuild.exe" - -@echo -------------------------------------------------- -@echo The choice of build configuration (Debug / Release). -@echo -------------------------------------------------- -set BUILD_CONFIG=Debug -set VisualStudioVersion=14.0 - -@echo -------------------------------------------------- -@echo Creating a build command. -@echo -------------------------------------------------- -set COMMANDLINE=/p:Configuration=%BUILD_CONFIG% - -@echo -------------------------------------------------- -@echo Set the proxy settings of Nuget. -@echo -------------------------------------------------- -@rem set http_proxy=http://[username]:[password]@[proxy fqdn or ip address] \ No newline at end of file diff --git a/root/programs/VB/z_Common2.bat b/root/programs/VB/z_Common2.bat deleted file mode 100644 index 7ac70e5..0000000 --- a/root/programs/VB/z_Common2.bat +++ /dev/null @@ -1,35 +0,0 @@ -@rem -------------------------------------------------- -@rem Execution of the common processing. -@rem -------------------------------------------------- - -@rem -------------------------------------------------- -@rem Set Program Files path -@rem -------------------------------------------------- -reg Query "HKLM\Hardware\Description\System\CentralProcessor\0" | find /i "x86" > NUL && set PROGRAM_FILES=C:\Program Files||set PROGRAM_FILES=C:\Program Files (x86) - -@rem -------------------------------------------------- -@rem Specifying Build tool. -@rem -------------------------------------------------- -set BUILDFILEPATH="%PROGRAM_FILES%\Microsoft Visual Studio 14.0\Common7\IDE\devenv.com" - -set BUILDFILEPATH2.0="%PROGRAM_FILES%\Microsoft Visual Studio 8\Common7\IDE\devenv.com" -set BUILDFILEPATH3.5="%PROGRAM_FILES%\Microsoft Visual Studio 9.0\Common7\IDE\devenv.com" -set BUILDFILEPATH4.0="%PROGRAM_FILES%\Microsoft Visual Studio 10.0\Common7\IDE\devenv.com" -set BUILDFILEPATH4.5="%PROGRAM_FILES%\Microsoft Visual Studio 11.0\Common7\IDE\devenv.com" -set BUILDFILEPATH4.5.1="%PROGRAM_FILES%\Microsoft Visual Studio 12.0\Common7\IDE\IDE\devenv.com" -set BUILDFILEPATH4.6="%PROGRAM_FILES%\Microsoft Visual Studio 14.0\Common7\IDE\devenv.com" - -@echo -------------------------------------------------- -@echo The choice of build configuration (Debug / Release). -@echo -------------------------------------------------- -set BUILD_CONFIG=Debug - -@echo -------------------------------------------------- -@echo Creating a build command. -@echo -------------------------------------------------- -set COMMANDLINE=/build %BUILD_CONFIG% - -@echo -------------------------------------------------- -@echo Set the proxy settings of Nuget. -@echo -------------------------------------------------- -@rem set http_proxy=http://[username]:[password]@[proxy fqdn or ip address] \ No newline at end of file diff --git a/root/programs/nuget.exe b/root/programs/nuget.exe deleted file mode 100644 index 6d83a0b..0000000 Binary files a/root/programs/nuget.exe and /dev/null differ diff --git a/root/programs/CS/z_Common.bat b/root/programs/z_Common.bat similarity index 100% rename from root/programs/CS/z_Common.bat rename to root/programs/z_Common.bat diff --git a/root/programs/CS/z_Common2.bat b/root/programs/z_Common2.bat similarity index 100% rename from root/programs/CS/z_Common2.bat rename to root/programs/z_Common2.bat