VmsMsgDfltMngr.cpp 4.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include <tchar.h>
  5. #include <cxFormats.hpp>
  6. //---------------------------------------------------------------------------
  7. #include "AppGlobalF.h"
  8. #include "ITSDbF.h"
  9. #include "FrmVmsMsgDfltMngrF.h"
  10. //---------------------------------------------------------------------------
  11. USEFORM("VMSM600M\VMSM640MF.cpp", VMSM640M);
  12. USEFORM("VMSM600M\VMSM650MF.cpp", VMSM650M);
  13. USEFORM("VMSM600M\VMSM660MF.cpp", VMSM660M);
  14. USEFORM("VMSM600M\VMSM610MF.cpp", VMSM610M);
  15. USEFORM("VMSM600M\VMSM620MF.cpp", VMSM620M);
  16. USEFORM("VMSM600M\VMSM630MF.cpp", VMSM630M);
  17. USEFORM("VMSM600M\FrmVmsMsgDfltMngrF.cpp", FrmVmsMsgDfltMngr);
  18. //---------------------------------------------------------------------------
  19. WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
  20. {
  21. if (!CheckApplicationParam()) {
  22. return 0;
  23. }
  24. if (!ApplicationSingleRun("TFrmVmsMsgDfltMngr", "VMS 기본 메시지 관리")) {
  25. return 0;
  26. }
  27. DateSeparator = '-';
  28. TimeSeparator = ':';
  29. ShortDateFormat ="yyyy-MM-dd";
  30. ShortTimeFormat = "hh:nn:ss";
  31. LongTimeFormat = "hh:nn:ss";
  32. cxFormatController()->BeginUpdate();
  33. cxFormatController()->UseDelphiDateTimeFormats = true;
  34. cxFormatController()->EndUpdate();
  35. cxFormatController()->GetFormats();
  36. cxFormatController()->NotifyListeners();
  37. g_nPid = (int)GetCurrentProcessId();
  38. g_sAppDir = ExtractFilePath(Application->ExeName);
  39. g_sAppName = ChangeFileExt(ExtractFileName(Application->ExeName), "");
  40. g_sCfgDir = g_sAppDir + g_IniFileDir + "\\";
  41. g_sLogDir = g_sAppDir + "Log\\";
  42. ForceDirectories(g_sLogDir.c_str());
  43. ChDir(g_sAppDir);
  44. /*
  45. * 시스템 운영환경을 ini 파일에서 읽어 온다.
  46. */
  47. LoadDefaultConfigInfo(g_IniFileName);
  48. ITSLog = new TITSLog(g_sLogDir, g_sAppName, g_AppCfg.sLogDay);
  49. ITSLog->FLogCfg = g_LogCfg;
  50. if (!ITSDb_Initialize())
  51. {
  52. if (g_AppCfg.sLang == "kr")
  53. {
  54. Application->MessageBox(L"Database 자원을 시스템으로부터 얻지 못했습니다.\r\n\r\n프로그램을 종료합니다.",
  55. L"프로그램 시작 오류!!!",
  56. MB_OK|MB_ICONERROR);
  57. }
  58. else
  59. {
  60. Application->MessageBox(L"Database resource could not be obtained from the system.\r\n\r\nExit the program.",
  61. L"Program Start Error!!!",
  62. MB_OK|MB_ICONERROR);
  63. }
  64. goto prog_exit;
  65. }
  66. if (g_AppCfg.itsdb.sConnectStr == "")
  67. {
  68. ITSDb_SetInfo(g_AppCfg.itsdb.sProvider, g_AppCfg.itsdb.sServerName, g_AppCfg.itsdb.sUserName, g_AppCfg.itsdb.sPassword);
  69. }
  70. else
  71. {
  72. ITSDb_SetConnStr(g_AppCfg.itsdb.sConnectStr);
  73. }
  74. if (!ITSDb_Open())
  75. {
  76. if (g_AppCfg.sLang == "kr")
  77. {
  78. Application->MessageBox(L"데이터베이스 접속에 실패하였습니다.\r\n\r\n프로그램을 종료합니다.",
  79. L"프로그램 시작 오류!!!",
  80. MB_OK|MB_ICONERROR);
  81. }
  82. else
  83. {
  84. Application->MessageBox(L"Database connection failed.\r\n\r\nExit the program.",
  85. L"Program Start Error!!!",
  86. MB_OK|MB_ICONERROR);
  87. }
  88. goto prog_exit;
  89. }
  90. try
  91. {
  92. ReportMemoryLeaksOnShutdown = true;
  93. Application->Initialize();
  94. Application->MainFormOnTaskBar = true;
  95. Application->Title = g_AppCfg.sTitle;
  96. Application->Title = "VMS 기본 메시지 관리";
  97. Application->CreateForm(__classid(TFrmVmsMsgDfltMngr), &FrmVmsMsgDfltMngr);
  98. Application->Run();
  99. }
  100. catch (Exception &exception)
  101. {
  102. Application->ShowException(&exception);
  103. }
  104. catch (...)
  105. {
  106. try
  107. {
  108. throw Exception("");
  109. }
  110. catch (Exception &exception)
  111. {
  112. Application->ShowException(&exception);
  113. }
  114. }
  115. prog_exit:
  116. try
  117. {
  118. ITSDb_Finalize();
  119. }
  120. catch(...)
  121. {
  122. }
  123. return 0;
  124. }
  125. //---------------------------------------------------------------------------