VMSM710MF.cpp 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <IOUtils.hpp>
  4. #include "ITSSkinF.h"
  5. #include "ITSUtilF.h"
  6. #include "AppGlobalF.h"
  7. #pragma hdrstop
  8. #include "VMSM710MF.h"
  9. //---------------------------------------------------------------------------
  10. #pragma package(smart_init)
  11. #pragma link "cxButtons"
  12. #pragma link "cxCalendar"
  13. #pragma link "cxContainer"
  14. #pragma link "cxControls"
  15. #pragma link "cxDropDownEdit"
  16. #pragma link "cxEdit"
  17. #pragma link "cxGraphics"
  18. #pragma link "cxGroupBox"
  19. #pragma link "cxLabel"
  20. #pragma link "cxLookAndFeelPainters"
  21. #pragma link "cxLookAndFeels"
  22. #pragma link "cxMaskEdit"
  23. #pragma link "cxPC"
  24. #pragma link "cxPCdxBarPopupMenu"
  25. #pragma link "cxSpinEdit"
  26. #pragma link "cxSplitter"
  27. #pragma link "cxTextEdit"
  28. #pragma link "cxTimeEdit"
  29. #pragma link "dxSkinBlack"
  30. #pragma link "dxSkinBlue"
  31. #pragma link "dxSkinCaramel"
  32. #pragma link "dxSkinCoffee"
  33. #pragma link "dxSkinDarkRoom"
  34. #pragma link "dxSkinDarkSide"
  35. #pragma link "dxSkinFoggy"
  36. #pragma link "dxSkinGlassOceans"
  37. #pragma link "dxSkiniMaginary"
  38. #pragma link "dxSkinLilian"
  39. #pragma link "dxSkinLiquidSky"
  40. #pragma link "dxSkinLondonLiquidSky"
  41. #pragma link "dxSkinMcSkin"
  42. #pragma link "dxSkinMoneyTwins"
  43. #pragma link "dxSkinOffice2007Black"
  44. #pragma link "dxSkinOffice2007Blue"
  45. #pragma link "dxSkinOffice2007Green"
  46. #pragma link "dxSkinOffice2007Pink"
  47. #pragma link "dxSkinOffice2007Silver"
  48. #pragma link "dxSkinOffice2010Black"
  49. #pragma link "dxSkinOffice2010Blue"
  50. #pragma link "dxSkinOffice2010Silver"
  51. #pragma link "dxSkinsCore"
  52. #pragma link "dxSkinscxPCPainter"
  53. #pragma link "dxSkinSeven"
  54. #pragma link "dxSkinSharp"
  55. #pragma link "dxSkinSilver"
  56. #pragma link "dxSkinStardust"
  57. #pragma link "cxRadioGroup"
  58. #pragma link "cxClasses"
  59. #pragma link "cxCustomData"
  60. #pragma link "cxData"
  61. #pragma link "cxDataStorage"
  62. #pragma link "cxDBData"
  63. #pragma link "cxFilter"
  64. #pragma link "cxGrid"
  65. #pragma link "cxGridCustomTableView"
  66. #pragma link "cxGridCustomView"
  67. #pragma link "cxGridDBTableView"
  68. #pragma link "cxGridLevel"
  69. #pragma link "cxGridTableView"
  70. #pragma link "cxStyles"
  71. #pragma link "cxCheckBox"
  72. #pragma link "cxImage"
  73. #pragma link "cxButtonEdit"
  74. #pragma link "cxBlobEdit"
  75. #pragma resource "*.dfm"
  76. TVMSM710M *VMSM710M = NULL;
  77. //---------------------------------------------------------------------------
  78. __fastcall TVMSM710M::TVMSM710M(TComponent* Owner)
  79. : TForm(Owner)
  80. {
  81. ITSSkin_Load(this);
  82. //CMM_LoadForm(g_sFormsDir, this);
  83. FUpdate= false;
  84. FTitle = Caption;//"VMS 객체이미지 선택";
  85. FListSymb = new TList;
  86. EditMode = false;
  87. m_bSelected = false;
  88. TvList->OptionsView->DataRowHeight = 0;
  89. TvList->OptionsView->CellAutoHeight = true;
  90. TvList->OptionsView->Indicator = true;
  91. TvList->OptionsCustomize->ColumnMoving = false;
  92. TvList->OptionsCustomize->ColumnSorting = false;
  93. TvList->Columns[0]->Width = 50;
  94. TvList->Columns[0]->Options->HorzSizing = false;
  95. }
  96. //---------------------------------------------------------------------------
  97. void __fastcall TVMSM710M::CommClose()
  98. {
  99. try
  100. {
  101. ClearSymbloList();
  102. SAFE_DELETE(FListSymb);
  103. //CMM_SaveForm(g_sFormsDir, this);
  104. }
  105. catch(...)
  106. {
  107. }
  108. }
  109. //---------------------------------------------------------------------------
  110. void __fastcall TVMSM710M::FormShow(TObject *Sender)
  111. {
  112. Refresh();
  113. FormInit();
  114. TmrShow->Enabled = true;
  115. }
  116. //---------------------------------------------------------------------------
  117. void __fastcall TVMSM710M::FormInit()
  118. {
  119. EdPictId->Text = "";
  120. EdImagePath->Text = "";
  121. EdPictNm->Text = "";
  122. EdPictSize->Text = "";
  123. EdPictW->Text = "";
  124. EdPictH->Text = "";
  125. EdPictExt->Text = "";
  126. ImgPreView->Picture->Bitmap->FreeImage();
  127. ImgPreView->Picture->Bitmap = NULL;
  128. FNewDb = false;
  129. }
  130. //---------------------------------------------------------------------------
  131. void __fastcall TVMSM710M::TmrShowTimer(TObject *Sender)
  132. {
  133. TmrShow->Enabled = false;
  134. LoadImageSymbol();
  135. }
  136. //---------------------------------------------------------------------------
  137. void __fastcall TVMSM710M::BtnCloseClick(TObject *Sender)
  138. {
  139. Close();
  140. }
  141. //---------------------------------------------------------------------------
  142. void __fastcall TVMSM710M::FormClose(TObject *Sender, TCloseAction &Action)
  143. {
  144. CommClose();
  145. VMSM710M = NULL;
  146. Action = caFree;
  147. }
  148. //---------------------------------------------------------------------------
  149. void __fastcall TVMSM710M::FormCloseQuery(TObject *Sender, bool &CanClose)
  150. {
  151. //
  152. }
  153. //---------------------------------------------------------------------------
  154. void __fastcall TVMSM710M::DisplayInfo()
  155. {
  156. FormInit();
  157. int nRow = TvList->DataController->FocusedRecordIndex;
  158. if( nRow <= -1 )
  159. return;
  160. TcxGridDataController *pDc = TvList->DataController;
  161. nRow = pDc->FocusedRecordIndex;
  162. #if 0
  163. if (nRow < FListSymb->Count)
  164. {
  165. Graphics::TBitmap *bitmap = (Graphics::TBitmap*)FListSymb->Items[nRow];
  166. ImgPreView->Picture->Bitmap->Assign(bitmap);
  167. }
  168. #endif
  169. EdPictId->Text = VarToStr(pDc->Values[nRow][ColPictId->Index]);
  170. EdImagePath->Text = VarToStr(pDc->Values[nRow][ColImagePath->Index]);
  171. EdPictNm->Text = VarToStr(pDc->Values[nRow][ColPictNm->Index]);
  172. EdPictSize->Text = VarToStr(pDc->Values[nRow][ColPictSize->Index]);
  173. EdPictW->Text = VarToStr(pDc->Values[nRow][ColPictW->Index]);
  174. EdPictH->Text = VarToStr(pDc->Values[nRow][ColPictH->Index]);
  175. EdPictExt->Text = VarToStr(pDc->Values[nRow][ColPictExt->Index]);
  176. }
  177. //---------------------------------------------------------------------------
  178. void __fastcall TVMSM710M::ClearSymbloList()
  179. {
  180. for(int ii = 0; ii < FListSymb->Count; ii++)
  181. {
  182. Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii];
  183. delete bitmap;
  184. }
  185. FListSymb->Clear();
  186. }
  187. //---------------------------------------------------------------------------
  188. void __fastcall TVMSM710M::LoadImageSymbol()
  189. {
  190. FormInit();
  191. CMM_ClearGridTableView(TvList);
  192. ClearSymbloList();
  193. String sQry;
  194. TADOQuery *pADO = NULL;
  195. sQry = "SELECT T.VMS_FORM_OBJ_ID, \r\n"
  196. " T.PICT_DATA, T.PICT_NM, \r\n"
  197. " T.PICT_TYPE, T.PICT_DATA_SZ, \r\n"
  198. " T.PICT_WDTH, PICT_HGHT \r\n"
  199. " FROM TB_VMS_FORM_OBJ_PICT T \r\n"
  200. " WHERE 1=1 \r\n"
  201. " AND T.USE_YN = 'Y' \r\n"
  202. " ORDER BY T.VMS_FORM_OBJ_ID \r\n";
  203. int nRowHeight = 0;
  204. try
  205. {
  206. int nRow;
  207. TcxDataController *pGDC = TvList->DataController;
  208. TvList->BeginUpdate();
  209. try
  210. {
  211. pADO = new TADOQuery(NULL);
  212. pADO->Close();
  213. pADO->Connection = ITSDb_GetConnection();
  214. ITSDb_SQLText(pADO, sQry);
  215. ITSDb_SQLOpen(pADO);
  216. String imageFilePath;
  217. String saveDirPath = TPath::GetTempPath() + "VMS\\";
  218. ForceDirectories(saveDirPath.c_str());
  219. for( ; !pADO->Eof; pADO->Next())
  220. {
  221. nRow = pGDC->AppendRecord();
  222. String VMS_FORM_OBJ_ID = pADO->FieldByName("VMS_FORM_OBJ_ID")->AsString;
  223. String PICT_TYPE = pADO->FieldByName("PICT_TYPE")->AsString;
  224. String PICT_EXT = DbPictTypeToReal(PICT_TYPE);
  225. pGDC->Values[nRow][ColPictId->Index] = VMS_FORM_OBJ_ID;
  226. pGDC->Values[nRow][ColData->Index] = pADO->FieldByName("PICT_DATA")->AsVariant;
  227. pGDC->Values[nRow][ColPictNm->Index] = pADO->FieldByName("PICT_NM")->AsString;
  228. pGDC->Values[nRow][ColPictSize->Index] = pADO->FieldByName("PICT_DATA_SZ")->AsString;
  229. pGDC->Values[nRow][ColPictW->Index] = pADO->FieldByName("PICT_WDTH")->AsString;
  230. pGDC->Values[nRow][ColPictH->Index] = pADO->FieldByName("PICT_HGHT")->AsString;
  231. pGDC->Values[nRow][ColPictExt->Index] = PICT_EXT;
  232. TMemoryStream *pImgStream = new TMemoryStream();
  233. pImgStream->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("PICT_DATA"), bmRead));
  234. imageFilePath = saveDirPath + VMS_FORM_OBJ_ID + "." + PICT_EXT;
  235. pImgStream->SaveToFile(imageFilePath);
  236. SAFE_DELETE(pImgStream);
  237. pGDC->Values[nRow][ColImagePath->Index] = imageFilePath;
  238. }
  239. }
  240. catch(EDatabaseError &E)
  241. {
  242. DBERRORMSG("TVMSM610M::LoadImageSymbol", String(E.ClassName()), E.Message, sQry);
  243. throw Exception(String(E.ClassName()) + E.Message);
  244. }
  245. catch(Exception &e)
  246. {
  247. DBERRORMSG("TVMSM610M::LoadImageSymbol", String(e.ClassName()), e.Message, sQry);
  248. throw Exception(String(e.ClassName()) + e.Message);
  249. }
  250. }
  251. __finally
  252. {
  253. if (pADO)
  254. {
  255. pADO->Close();
  256. delete pADO;
  257. }
  258. //TvList->OptionsView->DataRowHeight = nRowHeight;
  259. TvList->EndUpdate();
  260. }
  261. }
  262. //---------------------------------------------------------------------------
  263. void __fastcall TVMSM710M::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  264. TMouseButton AButton, TShiftState AShift,
  265. bool &AHandled)
  266. {
  267. if (!ACellViewInfo) return;
  268. DisplayInfo();
  269. Sleep(200);
  270. BtnSelImageClick((TObject*)BtnSelImage);
  271. }
  272. //---------------------------------------------------------------------------
  273. void __fastcall TVMSM710M::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
  274. TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
  275. bool ANewItemRecordFocusingChanged)
  276. {
  277. if (!AFocusedRecord) return;
  278. DisplayInfo();
  279. }
  280. //---------------------------------------------------------------------------
  281. void __fastcall TVMSM710M::BtnSelImageClick(TObject *Sender)
  282. {
  283. if (EdPictId->Text == "" || EdImagePath->Text == "")
  284. {
  285. Application->MessageBox(lblText1->Caption.c_str(),//L"VMS 객체이미지 선택\r\nVMS 객체이미지를 목록에서 선택하세요.",
  286. FTitle.c_str(),
  287. MB_OK|MB_ICONERROR|MB_APPLMODAL);
  288. return;
  289. }
  290. m_bSelected = true;
  291. Close();
  292. }
  293. //---------------------------------------------------------------------------