unit u_rp_pin_total; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxExEdtr, RxMemDS, DB, ADODB, Menus, XPMenu, bsSkinCtrls, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxMaskEdit, cxCalendar, cxTextEdit, cxGridCustomTableView, cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGridLevel, cxGrid, Grids, DBGridEh; type Tfrm_rp_pin_total = class(TForm) Panel1: TPanel; bsSkinPanel2: TbsSkinPanel; bsSkinButton10: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton5: TbsSkinButton; p_seae: TADOStoredProc; p_seae1: TDataSource; t_sum1: TDataSource; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; p_seai: TADOStoredProc; p_seai1: TDataSource; p_airi1: TDataSource; p_airi: TADOStoredProc; p_aire: TADOStoredProc; p_aire1: TDataSource; bsSkinPageControl2: TbsSkinPageControl; bsSkinTabSheet11: TbsSkinTabSheet; bsSkinTabSheet12: TbsSkinTabSheet; bsSkinTabSheet13: TbsSkinTabSheet; bsSkinTabSheet14: TbsSkinTabSheet; p_sum: TADOStoredProc; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N13: TMenuItem; N12: TMenuItem; N15: TMenuItem; N16: TMenuItem; XPMenu2: TXPMenu; dxDBGrid10: TdxDBGrid; dxDBGridMaskColumn28: TdxDBGridMaskColumn; dxDBGridMaskColumn29: TdxDBGridMaskColumn; dxDBGridMaskColumn30: TdxDBGridMaskColumn; dxDBGridDateColumn10: TdxDBGridDateColumn; dxDBGridMaskColumn31: TdxDBGridMaskColumn; dxDBGridMaskColumn32: TdxDBGridMaskColumn; dxDBGridMaskColumn33: TdxDBGridMaskColumn; dxDBGridMaskColumn34: TdxDBGridMaskColumn; dxDBGridDateColumn11: TdxDBGridDateColumn; dxDBGridMaskColumn37: TdxDBGridMaskColumn; dxDBGridMaskColumn99: TdxDBGridMaskColumn; dxDBGridMaskColumn100: TdxDBGridMaskColumn; dxDBGridMaskColumn101: TdxDBGridMaskColumn; dxDBGridColumn33: TdxDBGridColumn; dxDBGridMaskColumn103: TdxDBGridMaskColumn; dxDBGridMaskColumn104: TdxDBGridMaskColumn; dxDBGridDateColumn12: TdxDBGridDateColumn; dxDBGridMaskColumn105: TdxDBGridMaskColumn; dxDBGridMaskColumn106: TdxDBGridMaskColumn; dxDBGridMaskColumn107: TdxDBGridMaskColumn; dxDBGridColumn45: TdxDBGridColumn; dxDBGridColumn57: TdxDBGridColumn; dxDBGridColumn69: TdxDBGridColumn; dxDBGridColumn80: TdxDBGridColumn; dxDBGridColumn81: TdxDBGridColumn; dxDBGridColumn82: TdxDBGridColumn; dxDBGridColumn83: TdxDBGridColumn; dxDBGridColumn84: TdxDBGridColumn; dxDBGridColumn85: TdxDBGridColumn; dxDBGridMaskColumn108: TdxDBGridMaskColumn; dxDBGridColumn86: TdxDBGridColumn; dxDBGridColumn87: TdxDBGridColumn; p_airtruck: TADOStoredProc; p_airtruck1: TDataSource; tab5: TbsSkinTabSheet; dxDBGrid10Column33: TdxDBGridColumn; dxDBGrid10Column34: TdxDBGridColumn; cxGrid1: TcxGrid; cxGrid1Level1: TcxGridLevel; cxGrid1DBBandedTableView1: TcxGridDBBandedTableView; cxGrid1DBBandedTableView1DBBandedColumn: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn1: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn2: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn3: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn4: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn5: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn6: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn7: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn8: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn9: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn10: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn11: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn12: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn13: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn14: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn15: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn16: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn17: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn18: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn19: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn20: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn21: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn22: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn23: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn24: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn25: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn110: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn26: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn31: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn41: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn51: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn61: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn71: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn81: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn91: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn101: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn27: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1TEU: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn28: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn29: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn30: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn32: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn33: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn34: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn35: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn36: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn37: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn38: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn39: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1USD: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1RMB: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn40: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1USD1: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1RMB1: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn42: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1USD2: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1RMB2: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn43: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn44: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn45: TcxGridDBBandedColumn; cxGrid1DBBandedTableView1DBBandedColumn46: TcxGridDBBandedColumn; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; cxStyle2: TcxStyle; cxStyle3: TcxStyle; cxStyle4: TcxStyle; cxStyle5: TcxStyle; cxGrid1Level2: TcxGridLevel; p_seae_pin: TADOStoredProc; p_seae_pin1: TDataSource; cxGrid2: TcxGrid; cxGridLevel1: TcxGridLevel; cxGrid2DBBandedTableView1: TcxGridDBBandedTableView; cxGrid2DBBandedTableView1DBBandedColumn: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn1: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn2: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn3: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn4: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn5: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn6: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn7: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn8: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn9: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn10: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn11: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn12: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn13: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn14: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn15: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn16: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn17: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn18: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn19: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn20: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn21: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn22: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn23: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn110: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn24: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn31: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn41: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn51: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn61: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn71: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn81: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn91: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn101: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn25: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1TEU: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn26: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn27: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn28: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn29: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn30: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn32: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn33: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn34: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn35: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn36: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn37: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1USD: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1RMB: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn38: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1USD1: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1RMB1: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn39: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1USD2: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1RMB2: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn40: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn42: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn43: TcxGridDBBandedColumn; cxGrid2DBBandedTableView1DBBandedColumn44: TcxGridDBBandedColumn; cxStyleRepository2: TcxStyleRepository; cxStyle6: TcxStyle; cxStyle7: TcxStyle; cxStyle8: TcxStyle; cxStyle9: TcxStyle; cxStyle10: TcxStyle; cxGrid2Level1: TcxGridLevel; cxGrid2DBBandedTableView3: TcxGridDBBandedTableView; cxGrid2DBBandedTableView3DBBandedColumn: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn1: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn2: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn3: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn4: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn5: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn6: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn7: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn8: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn9: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn10: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn11: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn12: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn13: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn14: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn15: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn16: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn17: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn18: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn19: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn20: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn21: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn22: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn23: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn110: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn24: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn31: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn41: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn51: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn61: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn71: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn81: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn91: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn101: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn25: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3TEU: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn26: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn27: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn28: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn29: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn30: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn32: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn33: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn34: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn35: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn36: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn37: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3USD: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3RMB: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn38: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3USD1: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3RMB1: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn39: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3USD2: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3RMB2: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn40: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn42: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn43: TcxGridDBBandedColumn; cxGrid2DBBandedTableView3DBBandedColumn44: TcxGridDBBandedColumn; cxStyleRepository3: TcxStyleRepository; cxStyle11: TcxStyle; cxStyle12: TcxStyle; cxStyle13: TcxStyle; cxStyle14: TcxStyle; cxStyle15: TcxStyle; bsSkinTabSheet6: TbsSkinTabSheet; cxGrid1DBBandedTableView3: TcxGridDBBandedTableView; cxGrid1DBBandedTableView3DBBandedColumn: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn1: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn2: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn3: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn4: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn5: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn6: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn7: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn8: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn9: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn10: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn11: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn12: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn13: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn14: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn15: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn16: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn17: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn18: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn19: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn20: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn21: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn22: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn23: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn24: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn25: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn110: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn26: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn31: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn41: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn51: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn61: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn71: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn81: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn91: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn101: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn27: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3TEU: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn28: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn29: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn30: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn32: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn33: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn34: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn35: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn36: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn37: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn38: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn39: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3USD: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3RMB: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn40: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3USD1: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3RMB1: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn42: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3USD2: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3RMB2: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn43: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn44: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn45: TcxGridDBBandedColumn; cxGrid1DBBandedTableView3DBBandedColumn46: TcxGridDBBandedColumn; cxStyleRepository4: TcxStyleRepository; cxStyle16: TcxStyle; cxStyle17: TcxStyle; cxStyle18: TcxStyle; cxStyle19: TcxStyle; cxStyle20: TcxStyle; p_seai_pin: TADOStoredProc; p_seai_pin1: TDataSource; p_aire_pin: TADOStoredProc; p_aire_pin1: TDataSource; p_airi_pin1: TDataSource; p_airi_pin: TADOStoredProc; cxGrid3: TcxGrid; cxGridLevel2: TcxGridLevel; cxStyleRepository5: TcxStyleRepository; cxStyle21: TcxStyle; cxStyle22: TcxStyle; cxStyle23: TcxStyle; cxStyle24: TcxStyle; cxStyle25: TcxStyle; cxGrid3DBBandedTableView1: TcxGridDBBandedTableView; cxGrid3DBBandedTableView1DBBandedColumn: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn3: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn4: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn5: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn6: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn7: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn8: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn9: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn10: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn11: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn12: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn13: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn14: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn15: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn16: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn17: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn18: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn19: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn20: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn21: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn22: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn23: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn24: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1USD: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1RMB: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn25: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1USD1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1RMB1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn26: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1USD2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1RMB2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn27: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn28: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn29: TcxGridDBBandedColumn; cxGrid3DBBandedTableView1DBBandedColumn30: TcxGridDBBandedColumn; cxStyleRepository6: TcxStyleRepository; cxStyle26: TcxStyle; cxStyle27: TcxStyle; cxStyle28: TcxStyle; cxStyle29: TcxStyle; cxStyle30: TcxStyle; cxGrid3DBBandedTableView3: TcxGridDBBandedTableView; cxGrid3DBBandedTableView3DBBandedColumn: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn3: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn4: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn5: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn6: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn7: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn8: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn9: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn10: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn11: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn12: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn13: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn14: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn15: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn16: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn17: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn18: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn19: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn20: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn21: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn22: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn23: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn24: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3USD: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3RMB: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn25: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3USD1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3RMB1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn26: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3USD2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3RMB2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn27: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn28: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn29: TcxGridDBBandedColumn; cxGrid3DBBandedTableView3DBBandedColumn30: TcxGridDBBandedColumn; cxStyleRepository7: TcxStyleRepository; cxStyle31: TcxStyle; cxStyle32: TcxStyle; cxStyle33: TcxStyle; cxStyle34: TcxStyle; cxStyle35: TcxStyle; cxGrid3Level1: TcxGridLevel; cxGrid3DBBandedTableView4: TcxGridDBBandedTableView; cxGrid3DBBandedTableView4DBBandedColumn: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn3: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn4: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn5: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn6: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn7: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn8: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn9: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn10: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn11: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn12: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn13: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn14: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn15: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn16: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn17: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn18: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn19: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn20: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn21: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn22: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn23: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn24: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4USD: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4RMB: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn25: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4USD1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4RMB1: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn26: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4USD2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4RMB2: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn27: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn28: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn29: TcxGridDBBandedColumn; cxGrid3DBBandedTableView4DBBandedColumn30: TcxGridDBBandedColumn; cxStyleRepository8: TcxStyleRepository; cxStyle36: TcxStyle; cxStyle37: TcxStyle; cxStyle38: TcxStyle; cxStyle39: TcxStyle; cxStyle40: TcxStyle; dxDBGrid4: TdxDBGrid; dxDBGridMaskColumn71: TdxDBGridMaskColumn; dxDBGridMaskColumn72: TdxDBGridMaskColumn; dxDBGridMaskColumn73: TdxDBGridMaskColumn; dxDBGridDateColumn7: TdxDBGridDateColumn; dxDBGridMaskColumn74: TdxDBGridMaskColumn; dxDBGridMaskColumn75: TdxDBGridMaskColumn; dxDBGridMaskColumn76: TdxDBGridMaskColumn; dxDBGridMaskColumn77: TdxDBGridMaskColumn; dxDBGridMaskColumn78: TdxDBGridMaskColumn; dxDBGrid4Column36: TdxDBGridColumn; dxDBGrid4Column37: TdxDBGridColumn; dxDBGridMaskColumn79: TdxDBGridMaskColumn; dxDBGridDateColumn8: TdxDBGridDateColumn; dxDBGridMaskColumn80: TdxDBGridMaskColumn; dxDBGridMaskColumn81: TdxDBGridMaskColumn; dxDBGridMaskColumn82: TdxDBGridMaskColumn; dxDBGridMaskColumn83: TdxDBGridMaskColumn; dxDBGridColumn22: TdxDBGridColumn; dxDBGridMaskColumn84: TdxDBGridMaskColumn; dxDBGridMaskColumn85: TdxDBGridMaskColumn; dxDBGridMaskColumn86: TdxDBGridMaskColumn; dxDBGridDateColumn9: TdxDBGridDateColumn; dxDBGridMaskColumn87: TdxDBGridMaskColumn; dxDBGridMaskColumn88: TdxDBGridMaskColumn; dxDBGridMaskColumn89: TdxDBGridMaskColumn; dxDBGridColumn23: TdxDBGridColumn; dxDBGridColumn24: TdxDBGridColumn; dxDBGridColumn25: TdxDBGridColumn; dxDBGridColumn26: TdxDBGridColumn; dxDBGridColumn27: TdxDBGridColumn; dxDBGridColumn28: TdxDBGridColumn; dxDBGridColumn29: TdxDBGridColumn; dxDBGridColumn30: TdxDBGridColumn; dxDBGridColumn31: TdxDBGridColumn; dxDBGridMaskColumn90: TdxDBGridMaskColumn; dxDBGrid4Column34: TdxDBGridColumn; dxDBGrid4Column35: TdxDBGridColumn; cxGrid4: TcxGrid; cxGridDBBandedTableView1: TcxGridDBBandedTableView; cxGridDBBandedColumn1: TcxGridDBBandedColumn; cxGridDBBandedColumn2: TcxGridDBBandedColumn; cxGridDBBandedColumn3: TcxGridDBBandedColumn; cxGridDBBandedColumn4: TcxGridDBBandedColumn; cxGridDBBandedColumn5: TcxGridDBBandedColumn; cxGridDBBandedColumn6: TcxGridDBBandedColumn; cxGridDBBandedColumn7: TcxGridDBBandedColumn; cxGridDBBandedColumn8: TcxGridDBBandedColumn; cxGridDBBandedColumn9: TcxGridDBBandedColumn; cxGridDBBandedColumn10: TcxGridDBBandedColumn; cxGridDBBandedColumn11: TcxGridDBBandedColumn; cxGridDBBandedColumn12: TcxGridDBBandedColumn; cxGridDBBandedColumn13: TcxGridDBBandedColumn; cxGridDBBandedColumn14: TcxGridDBBandedColumn; cxGridDBBandedColumn15: TcxGridDBBandedColumn; cxGridDBBandedColumn16: TcxGridDBBandedColumn; cxGridDBBandedColumn17: TcxGridDBBandedColumn; cxGridDBBandedColumn18: TcxGridDBBandedColumn; cxGridDBBandedColumn19: TcxGridDBBandedColumn; cxGridDBBandedColumn20: TcxGridDBBandedColumn; cxGridDBBandedColumn21: TcxGridDBBandedColumn; cxGridDBBandedColumn22: TcxGridDBBandedColumn; cxGridDBBandedColumn23: TcxGridDBBandedColumn; cxGridDBBandedColumn24: TcxGridDBBandedColumn; cxGridDBBandedColumn25: TcxGridDBBandedColumn; cxGridDBBandedColumn26: TcxGridDBBandedColumn; cxGridDBBandedColumn27: TcxGridDBBandedColumn; cxGridDBBandedColumn28: TcxGridDBBandedColumn; cxGridDBBandedColumn29: TcxGridDBBandedColumn; cxGridDBBandedColumn30: TcxGridDBBandedColumn; cxGridDBBandedColumn31: TcxGridDBBandedColumn; cxGridDBBandedColumn32: TcxGridDBBandedColumn; cxGridDBBandedColumn33: TcxGridDBBandedColumn; cxGridDBBandedColumn34: TcxGridDBBandedColumn; cxGridDBBandedColumn35: TcxGridDBBandedColumn; cxGridDBBandedColumn36: TcxGridDBBandedColumn; cxGridDBBandedColumn37: TcxGridDBBandedColumn; cxGridLevel3: TcxGridLevel; cxGrid4DBBandedTableView1: TcxGridDBBandedTableView; cxGrid4DBBandedTableView1DBBandedColumn: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn1: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn2: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn3: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn4: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn5: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn6: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn7: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn8: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn9: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn10: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn11: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn12: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn13: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn14: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn15: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn16: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn17: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn18: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn19: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn20: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn21: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn22: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn23: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn24: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1USD: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1RMB: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn25: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1USD1: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1RMB1: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn26: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1USD2: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1RMB2: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn27: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn28: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn29: TcxGridDBBandedColumn; cxGrid4DBBandedTableView1DBBandedColumn30: TcxGridDBBandedColumn; cxStyleRepository9: TcxStyleRepository; cxStyle41: TcxStyle; cxStyle42: TcxStyle; cxStyle43: TcxStyle; cxStyle44: TcxStyle; cxStyle45: TcxStyle; cxGrid4Level1: TcxGridLevel; cxGrid4DBBandedTableView3: TcxGridDBBandedTableView; cxGrid4DBBandedTableView3DBBandedColumn: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn1: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn2: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn3: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn4: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn5: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn6: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn7: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn8: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn9: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn10: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn11: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn12: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn13: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn14: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn15: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn16: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn17: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn18: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn19: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn20: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn21: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn22: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn23: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn24: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3USD: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3RMB: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn25: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3USD1: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3RMB1: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn26: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3USD2: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3RMB2: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn27: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn28: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn29: TcxGridDBBandedColumn; cxGrid4DBBandedTableView3DBBandedColumn30: TcxGridDBBandedColumn; cxStyleRepository10: TcxStyleRepository; cxStyle46: TcxStyle; cxStyle47: TcxStyle; cxStyle48: TcxStyle; cxStyle49: TcxStyle; cxStyle50: TcxStyle; procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Panel1Resize(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid2ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid3ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid4ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid5ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid6ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid7ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid8ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid9ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure dxDBGrid1DblClick(Sender: TObject); procedure dxDBGrid2DblClick(Sender: TObject); procedure dxDBGrid3DblClick(Sender: TObject); procedure dxDBGrid4DblClick(Sender: TObject); procedure dxDBGrid1Column116CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGridColumn11CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGridColumn21CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGridColumn31CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGridColumn85CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure dxDBGrid2Column34CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure p_seaeAfterOpen(DataSet: TDataSet); procedure p_seaiAfterOpen(DataSet: TDataSet); private { Private declarations } public { Public declarations } end; var frm_rp_pin_total: Tfrm_rp_pin_total; rp_pin_total_open:boolean; implementation uses u_main, my_sys_function, u_rp_query, u_sys_progress, u_data_share; {$R *.dfm} procedure Tfrm_rp_pin_total.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_rp_pin_total.FormClose(Sender: TObject; var Action: TCloseAction); begin rp_pin_total_open:=false; frm_rp_pin_total.Hide; frm_rp_pin_total.ManualFloat(frm_rp_pin_total.BoundsRect ); frm_main.freeTabs('frm_rp_pin_total'); action:=cafree; frm_rp_pin_total:=nil; end; procedure Tfrm_rp_pin_total.Panel1Resize(Sender: TObject); begin bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width; end; procedure Tfrm_rp_pin_total.bsSkinButton10Click(Sender: TObject); begin bsSkinTabSheet1.show; if p_seae.Active then p_seae.close; p_seae1.DataSet:=nil; if p_seae_pin.Active then p_seae_pin.close; p_seae_pin1.DataSet:=nil; if p_seai.Active then p_seai.close; p_seai1.DataSet:=nil; if p_seai_pin.Active then p_seai_pin.close; p_seai_pin1.DataSet:=nil; if p_aire.Active then p_aire.close; p_aire1.DataSet:=nil; if p_aire_pin.Active then p_aire_pin.close; p_aire_pin1.DataSet:=nil; if p_airi.Active then p_airi.close; p_airi1.DataSet:=nil; if p_airi_pin.Active then p_airi_pin.close; p_airi_pin1.DataSet:=nil; if p_airtruck.Active then p_airtruck.close; p_airtruck1.DataSet:=nil; try frm_rp_query:=tfrm_rp_query.Create (self); rp_query_limited:='0037'; rp_query_bs:=12; frm_rp_query.ShowModal; finally frm_rp_query.Free; end; end; procedure Tfrm_rp_pin_total.FormShow(Sender: TObject); begin // loadreggrid(dxdbgrid1,true,caption+'1'); // loadreggrid(dxdbgrid2,true,caption+'2'); // loadreggrid(dxdbgrid3,false,caption+'3'); // loadreggrid(dxdbgrid4,false,caption+'4'); rp_pin_total_open:=true; end; procedure Tfrm_rp_pin_total.bsSkinButton9Click(Sender: TObject); begin sys_print('业务综合统计',2,nil,nil,nil,nil,p_seae1,p_seai1,p_aire1,p_airi1,t_sum1,nil,nil); end; procedure Tfrm_rp_pin_total.N10Click(Sender: TObject); begin if bsSkinTabSheet1.Showing then begin if bsSkinTabSheet11.Showing then begin // update_grid_view_no(dxdbgrid1); exit; end; if bsSkinTabSheet12.Showing then begin // update_grid_view_no(dxdbgrid2); exit; end; if bsSkinTabSheet13.Showing then begin // update_grid_view_no(dxdbgrid3); exit; end; if bsSkinTabSheet14.Showing then begin // update_grid_view_no(dxdbgrid4); exit; end; end; end; procedure Tfrm_rp_pin_total.N14Click(Sender: TObject); begin if bsSkinTabSheet1.Showing then begin if bsSkinTabSheet11.Showing then begin // update_grid_view_all(dxdbgrid1); exit; end; if bsSkinTabSheet12.Showing then begin // update_grid_view_all(dxdbgrid2); exit; end; if bsSkinTabSheet13.Showing then begin // update_grid_view_all(dxdbgrid3); exit; end; if bsSkinTabSheet14.Showing then begin // update_grid_view_all(dxdbgrid4); exit; end; end; end; procedure Tfrm_rp_pin_total.N12Click(Sender: TObject); begin if bsSkinTabSheet1.Showing then begin if bsSkinTabSheet11.Showing then begin // update_grid(dxdbgrid1,87); exit; end; if bsSkinTabSheet12.Showing then begin // update_grid(dxdbgrid2,88); exit; end; if bsSkinTabSheet13.Showing then begin // update_grid(dxdbgrid3,89); exit; end; if bsSkinTabSheet14.Showing then begin // update_grid(dxdbgrid4,90); exit; end; end; end; procedure Tfrm_rp_pin_total.N16Click(Sender: TObject); begin if bsSkinTabSheet1.Showing then begin if bsSkinTabSheet11.Showing then begin cxgrid_save_xls(cxgrid1); exit; end; if bsSkinTabSheet12.Showing then begin cxgrid_save_xls(cxgrid2); exit; end; if bsSkinTabSheet13.Showing then begin cxgrid_save_xls(cxgrid3); exit; end; if bsSkinTabSheet14.Showing then begin cxgrid_save_xls(cxgrid4); exit; end; end; end; procedure Tfrm_rp_pin_total.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_seae,'业务编号'); end; procedure Tfrm_rp_pin_total.dxDBGrid2ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_seai,'业务编号'); end; procedure Tfrm_rp_pin_total.dxDBGrid3ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_aire,'业务编号'); end; procedure Tfrm_rp_pin_total.dxDBGrid4ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_airi,'业务编号'); end; procedure Tfrm_rp_pin_total.dxDBGrid5ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_sum,'base'); end; procedure Tfrm_rp_pin_total.dxDBGrid6ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_sum,'base'); end; procedure Tfrm_rp_pin_total.dxDBGrid7ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_sum,'base'); end; procedure Tfrm_rp_pin_total.dxDBGrid8ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_sum,'base'); end; procedure Tfrm_rp_pin_total.dxDBGrid9ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_sum,'base'); end; procedure Tfrm_rp_pin_total.dxDBGrid1DblClick(Sender: TObject); begin fee_view(p_seae.fieldbyname('编号').asstring); end; procedure Tfrm_rp_pin_total.dxDBGrid2DblClick(Sender: TObject); begin fee_view(p_seai.fieldbyname('编号').asstring); end; procedure Tfrm_rp_pin_total.dxDBGrid3DblClick(Sender: TObject); begin fee_view(p_aire.fieldbyname('编号').asstring); end; procedure Tfrm_rp_pin_total.dxDBGrid4DblClick(Sender: TObject); begin fee_view(p_airi.fieldbyname('编号').asstring); end; procedure Tfrm_rp_pin_total.dxDBGrid1Column116CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if strtofloatdef(AText,0)<=0 then AColor:=clRed; end; procedure Tfrm_rp_pin_total.dxDBGridColumn11CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if strtofloatdef(AText,0)<=0 then AColor:=clRed; end; procedure Tfrm_rp_pin_total.dxDBGridColumn21CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if strtofloatdef(AText,0)<=0 then AColor:=clRed; end; procedure Tfrm_rp_pin_total.dxDBGridColumn31CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if strtofloatdef(AText,0)<=0 then AColor:=clRed; end; procedure Tfrm_rp_pin_total.dxDBGridColumn85CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if strtofloatdef(AText,0)<=0 then AColor:=clRed; end; procedure Tfrm_rp_pin_total.dxDBGrid2Column34CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if strtofloatdef(AText,0)<=0 then AColor:=clRed; end; procedure Tfrm_rp_pin_total.p_seaeAfterOpen(DataSet: TDataSet); begin AdoFormatdxDBGrid(DataSet); end; procedure Tfrm_rp_pin_total.p_seaiAfterOpen(DataSet: TDataSet); begin AdoFormatdxDBGrid(DataSet); end; end.