VMSM600MF.h 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472
  1. //---------------------------------------------------------------------------
  2. #ifndef VMSM600MFH
  3. #define VMSM600MFH
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include <DB.hpp>
  10. #include <DBClient.hpp>
  11. #include <FMTBcd.hpp>
  12. #include <Provider.hpp>
  13. #include <SqlExpr.hpp>
  14. #include <Menus.hpp>
  15. #include <ExtCtrls.hpp>
  16. #include <Graphics.hpp>
  17. #include <ComCtrls.hpp>
  18. #include <ADODB.hpp>
  19. #include <Dialogs.hpp>
  20. #include <ExtDlgs.hpp>
  21. //---------------------------------------------------------------------------
  22. //---------------------------------------------------------------------------
  23. #include "WindowMsgF.h"
  24. #include "cxButtons.hpp"
  25. #include "cxCalendar.hpp"
  26. #include "cxContainer.hpp"
  27. #include "cxControls.hpp"
  28. #include "cxDropDownEdit.hpp"
  29. #include "cxEdit.hpp"
  30. #include "cxGraphics.hpp"
  31. #include "cxGroupBox.hpp"
  32. #include "cxLabel.hpp"
  33. #include "cxLookAndFeelPainters.hpp"
  34. #include "cxLookAndFeels.hpp"
  35. #include "cxMaskEdit.hpp"
  36. #include "cxPC.hpp"
  37. #include "cxPCdxBarPopupMenu.hpp"
  38. #include "cxSpinEdit.hpp"
  39. #include "cxSplitter.hpp"
  40. #include "cxTextEdit.hpp"
  41. #include "cxTimeEdit.hpp"
  42. #include "dxSkinBlack.hpp"
  43. #include "dxSkinBlue.hpp"
  44. #include "dxSkinCaramel.hpp"
  45. #include "dxSkinCoffee.hpp"
  46. #include "dxSkinDarkRoom.hpp"
  47. #include "dxSkinDarkSide.hpp"
  48. #include "dxSkinFoggy.hpp"
  49. #include "dxSkinGlassOceans.hpp"
  50. #include "dxSkiniMaginary.hpp"
  51. #include "dxSkinLilian.hpp"
  52. #include "dxSkinLiquidSky.hpp"
  53. #include "dxSkinLondonLiquidSky.hpp"
  54. #include "dxSkinMcSkin.hpp"
  55. #include "dxSkinMoneyTwins.hpp"
  56. #include "dxSkinOffice2007Black.hpp"
  57. #include "dxSkinOffice2007Blue.hpp"
  58. #include "dxSkinOffice2007Green.hpp"
  59. #include "dxSkinOffice2007Pink.hpp"
  60. #include "dxSkinOffice2007Silver.hpp"
  61. #include "dxSkinOffice2010Black.hpp"
  62. #include "dxSkinOffice2010Blue.hpp"
  63. #include "dxSkinOffice2010Silver.hpp"
  64. #include "dxSkinsCore.hpp"
  65. #include "dxSkinscxPCPainter.hpp"
  66. #include "dxSkinSeven.hpp"
  67. #include "dxSkinSharp.hpp"
  68. #include "dxSkinSilver.hpp"
  69. #include "dxSkinStardust.hpp"
  70. #include "cxRadioGroup.hpp"
  71. #include "cxClasses.hpp"
  72. #include "cxCustomData.hpp"
  73. #include "cxData.hpp"
  74. #include "cxDataStorage.hpp"
  75. #include "cxDBData.hpp"
  76. #include "cxFilter.hpp"
  77. #include "cxGrid.hpp"
  78. #include "cxGridCustomTableView.hpp"
  79. #include "cxGridCustomView.hpp"
  80. #include "cxGridDBTableView.hpp"
  81. #include "cxGridLevel.hpp"
  82. #include "cxGridTableView.hpp"
  83. #include "cxStyles.hpp"
  84. #include "cxCheckBox.hpp"
  85. #include "cxImage.hpp"
  86. #include "cxButtonEdit.hpp"
  87. #include "cxBlobEdit.hpp"
  88. #include "cxColorComboBox.hpp"
  89. #include "cxCalc.hpp"
  90. //---------------------------------------------------------------------------
  91. #include "CDSVmsCtlrF.h"
  92. #include "VMSM600MSRCF.h"
  93. #include "CDSVmsObjTypeF.h"
  94. #include "VmsDesignerF.h"
  95. #include "FRAME_VmsSchListF.h"
  96. //---------------------------------------------------------------------------
  97. class TVMSM600M : public TForm
  98. {
  99. __published: // IDE-managed Components
  100. TTimer *TmrShow;
  101. TShape *ShpTitle;
  102. TcxButton *BtnClose;
  103. TLabel *LblCaption;
  104. TShape *ShpList;
  105. TEdit *EdFocus;
  106. TPanel *PanelBack;
  107. TPanel *PnlLeft;
  108. TcxSplitter *cxSplitter1;
  109. TcxGroupBox *GrpList;
  110. TPanel *Panel1;
  111. TPanel *Panel3;
  112. TcxGroupBox *GrpSchedule;
  113. TPanel *PnlMenu;
  114. TcxButton *BtnDelete;
  115. TcxButton *BtnSave;
  116. TPanel *Panel4;
  117. TImage *ImgDesc01;
  118. TcxLabel *cxLabel18;
  119. TcxComboBox *CbSizeType;
  120. TcxButton *BtnSearch;
  121. TcxTextEdit *EdVmsNmbr;
  122. TcxPageControl *PgVmsSch;
  123. TcxTabSheet *TabHongbo;
  124. TcxTabSheet *TabTraffic;
  125. TcxTabSheet *TabDolbal;
  126. TcxTabSheet *TabGongsa;
  127. TcxTabSheet *TabDeture;
  128. TPanel *PnlTraffic;
  129. TcxGroupBox *cxGroupBox5;
  130. TcxGrid *CxGrid1;
  131. TcxGridTableView *TvGrid1;
  132. TcxGridColumn *ColSch001;
  133. TcxGridColumn *ColSch002;
  134. TcxGridColumn *ColSch003;
  135. TcxGridColumn *ColSch004;
  136. TcxGridColumn *ColSch005;
  137. TcxGridColumn *ColSch006;
  138. TcxGridColumn *ColSch007;
  139. TcxGridColumn *ColSch008;
  140. TcxGridColumn *ColSch009;
  141. TcxGridLevel *GlGrid1;
  142. TPanel *PnlCmd;
  143. TcxButton *BtnListAdd;
  144. TcxButton *BtnListDelete;
  145. TcxGroupBox *cxGroupBox6;
  146. TcxGrid *CxForm1;
  147. TcxGridTableView *TvForm1;
  148. TcxGridColumn *ColFrm001;
  149. TcxGridColumn *ColFrm002;
  150. TcxGridColumn *ColFrm003;
  151. TcxGridColumn *ColFrm004;
  152. TcxGridColumn *ColFrm005;
  153. TcxGridColumn *ColFrm006;
  154. TcxGridColumn *ColFrm007;
  155. TcxGridColumn *ColFrm008;
  156. TcxGridColumn *ColFrm009;
  157. TcxGridLevel *GlForm1;
  158. TPanel *PnlDolbal;
  159. TcxGroupBox *cxGroupBox2;
  160. TcxGrid *CxGrid2;
  161. TcxGridTableView *TvGrid2;
  162. TcxGridColumn *cxGridColumn1;
  163. TcxGridColumn *cxGridColumn2;
  164. TcxGridColumn *cxGridColumn3;
  165. TcxGridColumn *cxGridColumn4;
  166. TcxGridColumn *cxGridColumn5;
  167. TcxGridColumn *cxGridColumn6;
  168. TcxGridColumn *cxGridColumn7;
  169. TcxGridColumn *cxGridColumn8;
  170. TcxGridColumn *cxGridColumn9;
  171. TcxGridLevel *GlGrid2;
  172. TPanel *Panel5;
  173. TcxButton *BtnListAdd2;
  174. TcxButton *cxButton2;
  175. TcxGroupBox *cxGroupBox3;
  176. TcxGrid *CxForm2;
  177. TcxGridTableView *TvForm2;
  178. TcxGridColumn *cxGridColumn10;
  179. TcxGridColumn *cxGridColumn11;
  180. TcxGridColumn *cxGridColumn12;
  181. TcxGridColumn *cxGridColumn13;
  182. TcxGridColumn *cxGridColumn14;
  183. TcxGridColumn *cxGridColumn15;
  184. TcxGridColumn *cxGridColumn16;
  185. TcxGridColumn *cxGridColumn17;
  186. TcxGridColumn *cxGridColumn18;
  187. TcxGridLevel *GlForm2;
  188. TPanel *PnlGongsa;
  189. TcxGroupBox *cxGroupBox4;
  190. TcxGrid *CxGrid3;
  191. TcxGridTableView *TvGrid3;
  192. TcxGridColumn *cxGridColumn19;
  193. TcxGridColumn *cxGridColumn20;
  194. TcxGridColumn *cxGridColumn21;
  195. TcxGridColumn *cxGridColumn22;
  196. TcxGridColumn *cxGridColumn23;
  197. TcxGridColumn *cxGridColumn24;
  198. TcxGridColumn *cxGridColumn25;
  199. TcxGridColumn *cxGridColumn26;
  200. TcxGridColumn *cxGridColumn27;
  201. TcxGridLevel *GlGrid3;
  202. TPanel *Panel6;
  203. TcxButton *BtnListAdd3;
  204. TcxButton *cxButton4;
  205. TcxGroupBox *cxGroupBox7;
  206. TcxGrid *CxForm3;
  207. TcxGridTableView *TvForm3;
  208. TcxGridColumn *cxGridColumn28;
  209. TcxGridColumn *cxGridColumn29;
  210. TcxGridColumn *cxGridColumn30;
  211. TcxGridColumn *cxGridColumn31;
  212. TcxGridColumn *cxGridColumn32;
  213. TcxGridColumn *cxGridColumn33;
  214. TcxGridColumn *cxGridColumn34;
  215. TcxGridColumn *cxGridColumn35;
  216. TcxGridColumn *cxGridColumn36;
  217. TcxGridLevel *GlForm3;
  218. TPanel *PnlHongbo;
  219. TcxGroupBox *cxGroupBox8;
  220. TcxGrid *CxGrid4;
  221. TcxGridTableView *TvGrid4;
  222. TcxGridColumn *cxGridColumn37;
  223. TcxGridColumn *cxGridColumn38;
  224. TcxGridColumn *cxGridColumn39;
  225. TcxGridColumn *cxGridColumn40;
  226. TcxGridColumn *cxGridColumn41;
  227. TcxGridColumn *cxGridColumn42;
  228. TcxGridColumn *cxGridColumn43;
  229. TcxGridColumn *cxGridColumn44;
  230. TcxGridColumn *cxGridColumn45;
  231. TcxGridLevel *GlGrid4;
  232. TPanel *Panel7;
  233. TcxButton *BtnListAdd4;
  234. TcxButton *cxButton6;
  235. TcxGroupBox *cxGroupBox9;
  236. TcxGrid *CxForm4;
  237. TcxGridTableView *TvForm4;
  238. TcxGridColumn *cxGridColumn46;
  239. TcxGridColumn *cxGridColumn47;
  240. TcxGridColumn *cxGridColumn48;
  241. TcxGridColumn *cxGridColumn49;
  242. TcxGridColumn *cxGridColumn50;
  243. TcxGridColumn *cxGridColumn51;
  244. TcxGridColumn *cxGridColumn52;
  245. TcxGridColumn *cxGridColumn53;
  246. TcxGridColumn *cxGridColumn54;
  247. TcxGridLevel *GlForm4;
  248. TPanel *PnlDeture;
  249. TcxGroupBox *cxGroupBox10;
  250. TcxGrid *CxGrid5;
  251. TcxGridTableView *TvGrid5;
  252. TcxGridColumn *cxGridColumn55;
  253. TcxGridColumn *cxGridColumn56;
  254. TcxGridColumn *cxGridColumn57;
  255. TcxGridColumn *cxGridColumn58;
  256. TcxGridColumn *cxGridColumn59;
  257. TcxGridColumn *cxGridColumn60;
  258. TcxGridColumn *cxGridColumn61;
  259. TcxGridColumn *cxGridColumn62;
  260. TcxGridColumn *cxGridColumn63;
  261. TcxGridLevel *GlGrid5;
  262. TPanel *Panel8;
  263. TcxButton *BtnListAdd5;
  264. TcxButton *cxButton8;
  265. TcxGroupBox *cxGroupBox11;
  266. TcxGrid *CxForm5;
  267. TcxGridTableView *TvForm5;
  268. TcxGridColumn *cxGridColumn64;
  269. TcxGridColumn *cxGridColumn65;
  270. TcxGridColumn *cxGridColumn66;
  271. TcxGridColumn *cxGridColumn67;
  272. TcxGridColumn *cxGridColumn68;
  273. TcxGridColumn *cxGridColumn69;
  274. TcxGridColumn *cxGridColumn70;
  275. TcxGridColumn *cxGridColumn71;
  276. TcxGridColumn *cxGridColumn72;
  277. TcxGridLevel *GlForm5;
  278. TcxGridColumn *TvGrid1Column1;
  279. TcxGridColumn *TvGrid1Column2;
  280. TcxGridColumn *TvGrid1Column3;
  281. TcxGridColumn *TvGrid1Column4;
  282. TcxGridColumn *TvGrid2Column1;
  283. TcxGridColumn *TvGrid2Column2;
  284. TcxGridColumn *TvGrid2Column3;
  285. TcxGridColumn *TvGrid2Column4;
  286. TcxGridColumn *TvGrid3Column1;
  287. TcxGridColumn *TvGrid3Column2;
  288. TcxGridColumn *TvGrid3Column3;
  289. TcxGridColumn *TvGrid3Column4;
  290. TcxGridColumn *TvGrid4Column1;
  291. TcxGridColumn *TvGrid4Column2;
  292. TcxGridColumn *TvGrid4Column3;
  293. TcxGridColumn *TvGrid4Column4;
  294. TcxGridColumn *TvGrid5Column1;
  295. TcxGridColumn *TvGrid5Column2;
  296. TcxGridColumn *TvGrid5Column3;
  297. TcxGridColumn *TvGrid5Column4;
  298. TcxButton *BtnAllEdit;
  299. TcxButton *BtnAllAdd;
  300. TcxGridColumn *TvGrid1Column5;
  301. TcxGridColumn *TvGrid2Column5;
  302. TcxGridColumn *TvGrid3Column5;
  303. TcxGridColumn *TvGrid4Column5;
  304. TcxGridColumn *TvGrid5Column5;
  305. TcxLabel *cxLabel1;
  306. TcxGridColumn *TvGrid1Column6;
  307. TcxGridColumn *TvGrid2Column6;
  308. TcxGridColumn *TvGrid3Column6;
  309. TcxGridColumn *TvGrid4Column6;
  310. TcxGridColumn *TvGrid5Column6;
  311. TcxGridColumn *TvGrid1Column7;
  312. TcxGridColumn *TvGrid2Column7;
  313. TcxGridColumn *TvGrid3Column7;
  314. TcxGridColumn *TvGrid4Column7;
  315. TcxGridColumn *TvGrid5Column7;
  316. TPanel *PnlTemp;
  317. TPanel *PnlEdtBack;
  318. TPanel *PnlEditForm;
  319. TImage *ImgForm;
  320. VmsDesigner *VmsDesigner1;
  321. TFRAMEVmsSchList *FRAMEVmsSchList1;
  322. TcxTabSheet *TabCongest;
  323. TPanel *PnlCongest;
  324. TcxGroupBox *cxGroupBox1;
  325. TcxGrid *CxGrid6;
  326. TcxGridTableView *TvGrid6;
  327. TcxGridColumn *cxGridColumn73;
  328. TcxGridColumn *cxGridColumn74;
  329. TcxGridColumn *cxGridColumn75;
  330. TcxGridColumn *cxGridColumn76;
  331. TcxGridColumn *cxGridColumn77;
  332. TcxGridColumn *cxGridColumn78;
  333. TcxGridColumn *cxGridColumn79;
  334. TcxGridColumn *cxGridColumn80;
  335. TcxGridColumn *cxGridColumn81;
  336. TcxGridColumn *cxGridColumn82;
  337. TcxGridColumn *cxGridColumn83;
  338. TcxGridColumn *cxGridColumn84;
  339. TcxGridColumn *cxGridColumn85;
  340. TcxGridColumn *cxGridColumn86;
  341. TcxGridColumn *cxGridColumn87;
  342. TcxGridColumn *cxGridColumn88;
  343. TcxGridLevel *GlGrid6;
  344. TPanel *Panel9;
  345. TcxButton *BtnListAdd6;
  346. TcxButton *cxButton3;
  347. TcxGroupBox *cxGroupBox12;
  348. TcxGrid *CxForm6;
  349. TcxGridTableView *TvForm6;
  350. TcxGridColumn *cxGridColumn89;
  351. TcxGridColumn *cxGridColumn90;
  352. TcxGridColumn *cxGridColumn91;
  353. TcxGridColumn *cxGridColumn92;
  354. TcxGridColumn *cxGridColumn93;
  355. TcxGridColumn *cxGridColumn94;
  356. TcxGridColumn *cxGridColumn95;
  357. TcxGridColumn *cxGridColumn96;
  358. TcxGridColumn *cxGridColumn97;
  359. TcxGridLevel *GlForm6;
  360. TcxGridColumn *TvGrid1Column8;
  361. TcxGridColumn *TvGrid1Column9;
  362. TcxGridColumn *TvGrid1Column10;
  363. TcxGridColumn *TvGrid1Column11;
  364. TcxGridColumn *TvGrid2Column8;
  365. TcxGridColumn *TvGrid2Column9;
  366. TcxGridColumn *TvGrid2Column10;
  367. TcxGridColumn *TvGrid2Column11;
  368. TcxGridColumn *TvGrid3Column8;
  369. TcxGridColumn *TvGrid3Column9;
  370. TcxGridColumn *TvGrid3Column10;
  371. TcxGridColumn *TvGrid3Column11;
  372. TcxGridColumn *TvGrid4Column8;
  373. TcxGridColumn *TvGrid4Column9;
  374. TcxGridColumn *TvGrid4Column10;
  375. TcxGridColumn *TvGrid4Column11;
  376. TcxGridColumn *TvGrid5Column8;
  377. TcxGridColumn *TvGrid5Column9;
  378. TcxGridColumn *TvGrid5Column10;
  379. TcxGridColumn *TvGrid5Column11;
  380. TcxGridColumn *TvGrid6Column1;
  381. TcxGridColumn *TvGrid6Column2;
  382. TcxGridColumn *TvGrid6Column3;
  383. TcxGridColumn *TvGrid6Column4;
  384. TcxLabel *lblTitle;
  385. TcxLabel *lblErr2;
  386. TcxLabel *lblErr3;
  387. TcxLabel *lblErr4;
  388. void __fastcall FormShow(TObject *Sender);
  389. void __fastcall TmrShowTimer(TObject *Sender);
  390. void __fastcall BtnCloseClick(TObject *Sender);
  391. void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
  392. void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
  393. void __fastcall CbSizeTypePropertiesChange(TObject *Sender);
  394. void __fastcall BtnSearchClick(TObject *Sender);
  395. void __fastcall FormCreate(TObject *Sender);
  396. void __fastcall BtnListAddClick(TObject *Sender);
  397. void __fastcall BtnListDeleteClick(TObject *Sender);
  398. void __fastcall TvGridCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  399. TMouseButton AButton, TShiftState AShift,
  400. bool &AHandled);
  401. void __fastcall TvFormCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  402. TMouseButton AButton, TShiftState AShift,
  403. bool &AHandled);
  404. void __fastcall BtnAllEditClick(TObject *Sender);
  405. void __fastcall BtnSaveClick(TObject *Sender);
  406. void __fastcall FRAMEVmsSchList1TvListCellDblClick(TcxCustomGridTableView *Sender,
  407. TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
  408. TShiftState AShift, bool &AHandled);
  409. void __fastcall FRAMEVmsSchList1TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
  410. TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
  411. bool ANewItemRecordFocusingChanged);
  412. private: // User declarations
  413. void __fastcall CommClose();
  414. TcxDataController *m_pGDC;
  415. String FTitle;
  416. bool FUpdate;
  417. bool FNewDb;
  418. bool EditMode;
  419. TList *FListSymb;
  420. int FSelIdx;
  421. String FVmsTypeCd;
  422. int FVmsWidth;
  423. int FVmsHeight;
  424. public:
  425. TcxGridTableView *FListSch[MAX_FORM_SCHED];
  426. TcxGridTableView *FListFrm[MAX_FORM_SCHED];
  427. TVmsFormDesigner *m_pEdtDesigner;
  428. String FIfscId[8];
  429. public: // User declarations
  430. __fastcall TVMSM600M(TComponent* Owner);
  431. void __fastcall InitTcxList(TcxGridTableView *AView);
  432. void __fastcall FormInit();
  433. void __fastcall RefreshData();
  434. void __fastcall ClearSymbloList();
  435. void __fastcall DisplayInfo();
  436. bool __fastcall SaveVmsForm();
  437. void __fastcall ChangeEditMode(int AEdit);
  438. void __fastcall FormClear();
  439. void __fastcall LoadVmsScheduleInfo(String AVmsNmbr);
  440. bool __fastcall CheckVmsFormUse(String AFormId);
  441. bool __fastcall LoadVmsFormList(String AFormSizeCd);
  442. bool __fastcall SaveVmsAutoScenario(String AVmsNmbr, TcxGridTableView *AListSch);
  443. bool __fastcall DeleteVmsAutoScenario(String AVmsNmbr);
  444. void __fastcall DrawTrafficScenarioForm();
  445. bool __fastcall LoadFormObjectInfo(String AFormId, String ABkColor, TVmsFormDesigner *ADesigner);
  446. };
  447. //---------------------------------------------------------------------------
  448. extern PACKAGE TVMSM600M *VMSM600M;
  449. //---------------------------------------------------------------------------
  450. #endif