unit u_rp_tai_total;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, bsSkinCtrls, ComCtrls, bsSkinTabs, Menus, XPMenu, DB,
  ADODB, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner,
  StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker,
  RxLookup;

type
  Tfrm_rp_tai_total = class(TForm)
    Panel1: TPanel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    p_query_seae1: TDataSource;
    p_query_seae: TADOStoredProc;
    XPMenu1: TXPMenu;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridDateColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    dxDBGrid1Column9: TdxDBGridMaskColumn;
    dxDBGrid1Column10: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridDateColumn;
    dxDBGrid1Column27: TdxDBGridDateColumn;
    dxDBGrid1Column28: TdxDBGridDateColumn;
    dxDBGrid1Column29: TdxDBGridMaskColumn;
    dxDBGrid1Column31: TdxDBGridMaskColumn;
    dxDBGrid1Column43: TdxDBGridMaskColumn;
    dxDBGrid1Column51: TdxDBGridMaskColumn;
    dxDBGrid1Column54: TdxDBGridMaskColumn;
    dxDBGrid1Column55: TdxDBGridMaskColumn;
    dxDBGrid1Column56: TdxDBGridColumn;
    dxDBGrid1Column57: TdxDBGridColumn;
    dxDBGrid11: TdxDBGridMaskColumn;
    dxDBGrid12: TdxDBGridMaskColumn;
    dxDBGrid13: TdxDBGridMaskColumn;
    dxDBGrid14: TdxDBGridMaskColumn;
    dxDBGrid15: TdxDBGridMaskColumn;
    dxDBGrid16: TdxDBGridMaskColumn;
    dxDBGrid17: TdxDBGridMaskColumn;
    dxDBGrid18: TdxDBGridMaskColumn;
    dxDBGrid19: TdxDBGridMaskColumn;
    dxDBGrid110: TdxDBGridMaskColumn;
    dxDBGrid1Column80: TdxDBGridMaskColumn;
    dxDBGrid1TEU: TdxDBGridMaskColumn;
    dxDBGrid1Column82: TdxDBGridMaskColumn;
    dxDBGrid1Column83: TdxDBGridMaskColumn;
    dxDBGrid1Column84: TdxDBGridDateColumn;
    dxDBGrid1Column88: TdxDBGridMaskColumn;
    dxDBGrid1Column89: TdxDBGridMaskColumn;
    dxDBGrid1Column90: TdxDBGridMaskColumn;
    dxDBGrid1Column92: TdxDBGridMaskColumn;
    dxDBGrid1Column93: TdxDBGridMaskColumn;
    dxDBGrid1Column85: TdxDBGridMaskColumn;
    dxDBGrid1Column87: TdxDBGridMaskColumn;
    dxDBGrid1Column86: TdxDBGridMaskColumn;
    dxDBGrid1USD: TdxDBGridColumn;
    dxDBGrid1Column97: TdxDBGridColumn;
    dxDBGrid1Column98: TdxDBGridColumn;
    dxDBGrid1RMB: TdxDBGridColumn;
    dxDBGrid1Column100: TdxDBGridColumn;
    dxDBGrid1Column101: TdxDBGridColumn;
    dxDBGrid1Column102: TdxDBGridColumn;
    dxDBGrid1Column103: TdxDBGridColumn;
    dxDBGrid1Column104: TdxDBGridColumn;
    dxDBGrid1Column105: TdxDBGridColumn;
    dxDBGrid1Column106: TdxDBGridColumn;
    dxDBGrid1Column107: TdxDBGridColumn;
    dxDBGrid1Column108: TdxDBGridColumn;
    dxDBGrid1Column109: TdxDBGridColumn;
    dxDBGrid1Column110: TdxDBGridColumn;
    dxDBGrid1Column111: TdxDBGridColumn;
    dxDBGrid1Column112: TdxDBGridColumn;
    dxDBGrid1Column113: TdxDBGridColumn;
    dxDBGrid1Column114: TdxDBGridColumn;
    dxDBGrid1Column115: TdxDBGridColumn;
    dxDBGrid1Column116: TdxDBGridColumn;
    dxDBGrid1Column117: TdxDBGridMaskColumn;
    p_query_seai1: TDataSource;
    p_query_seai: TADOStoredProc;
    p_query_aire1: TDataSource;
    p_query_aire: TADOStoredProc;
    p_query_airi1: TDataSource;
    p_query_airi: TADOStoredProc;
    p_query_total1: TDataSource;
    p_query_total: TADOStoredProc;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2Column1: TdxDBGridMaskColumn;
    dxDBGrid2Column2: TdxDBGridMaskColumn;
    dxDBGrid2USD: TdxDBGridColumn;
    dxDBGrid2Column4: TdxDBGridColumn;
    dxDBGrid2Column5: TdxDBGridColumn;
    dxDBGrid2RMB: TdxDBGridColumn;
    dxDBGrid2Column7: TdxDBGridColumn;
    dxDBGrid2Column8: TdxDBGridColumn;
    dxDBGrid2Column9: TdxDBGridColumn;
    dxDBGrid2Column10: TdxDBGridColumn;
    dxDBGrid2Column11: TdxDBGridColumn;
    dxDBGrid2Column12: TdxDBGridColumn;
    dxDBGrid2Column13: TdxDBGridColumn;
    dxDBGrid2Column14: TdxDBGridColumn;
    dxDBGrid2Column15: TdxDBGridColumn;
    dxDBGrid2Column16: TdxDBGridColumn;
    dxDBGrid2Column17: TdxDBGridColumn;
    dxDBGrid2Column18: TdxDBGridColumn;
    dxDBGrid2Column19: TdxDBGridColumn;
    dxDBGrid2Column20: TdxDBGridColumn;
    dxDBGrid2Column21: TdxDBGridColumn;
    dxDBGrid2Column22: TdxDBGridColumn;
    dxDBGrid2Column23: TdxDBGridColumn;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn27: TdxDBGridMaskColumn;
    dxDBGridMaskColumn38: TdxDBGridMaskColumn;
    dxDBGridMaskColumn39: TdxDBGridMaskColumn;
    dxDBGridMaskColumn40: TdxDBGridMaskColumn;
    dxDBGridMaskColumn41: TdxDBGridMaskColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridMaskColumn42: TdxDBGridMaskColumn;
    dxDBGridMaskColumn43: TdxDBGridMaskColumn;
    dxDBGridMaskColumn44: TdxDBGridMaskColumn;
    dxDBGridMaskColumn45: TdxDBGridMaskColumn;
    dxDBGridMaskColumn46: TdxDBGridMaskColumn;
    dxDBGridMaskColumn47: TdxDBGridMaskColumn;
    dxDBGridMaskColumn48: TdxDBGridMaskColumn;
    dxDBGridMaskColumn49: TdxDBGridMaskColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridColumn10: TdxDBGridColumn;
    dxDBGridColumn11: TdxDBGridColumn;
    dxDBGridColumn12: TdxDBGridColumn;
    dxDBGridColumn13: TdxDBGridColumn;
    dxDBGridColumn14: TdxDBGridColumn;
    dxDBGridColumn15: TdxDBGridColumn;
    dxDBGridColumn16: TdxDBGridColumn;
    dxDBGridColumn17: TdxDBGridColumn;
    dxDBGridColumn18: TdxDBGridColumn;
    dxDBGridColumn19: TdxDBGridColumn;
    dxDBGridColumn20: TdxDBGridColumn;
    dxDBGridColumn21: TdxDBGridColumn;
    dxDBGridColumn22: TdxDBGridColumn;
    dxDBGridColumn23: TdxDBGridColumn;
    dxDBGridMaskColumn50: TdxDBGridMaskColumn;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn51: TdxDBGridMaskColumn;
    dxDBGridMaskColumn52: TdxDBGridMaskColumn;
    dxDBGridMaskColumn53: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn54: TdxDBGridMaskColumn;
    dxDBGridMaskColumn55: TdxDBGridMaskColumn;
    dxDBGridMaskColumn56: TdxDBGridMaskColumn;
    dxDBGridMaskColumn57: TdxDBGridMaskColumn;
    dxDBGridMaskColumn58: TdxDBGridMaskColumn;
    dxDBGridMaskColumn59: TdxDBGridMaskColumn;
    dxDBGridDateColumn5: TdxDBGridDateColumn;
    dxDBGridMaskColumn60: TdxDBGridMaskColumn;
    dxDBGridMaskColumn61: TdxDBGridMaskColumn;
    dxDBGridMaskColumn62: TdxDBGridMaskColumn;
    dxDBGridMaskColumn63: TdxDBGridMaskColumn;
    dxDBGridColumn24: TdxDBGridColumn;
    dxDBGridMaskColumn64: TdxDBGridMaskColumn;
    dxDBGridMaskColumn65: TdxDBGridMaskColumn;
    dxDBGridMaskColumn66: TdxDBGridMaskColumn;
    dxDBGridDateColumn6: TdxDBGridDateColumn;
    dxDBGridMaskColumn67: TdxDBGridMaskColumn;
    dxDBGridMaskColumn68: TdxDBGridMaskColumn;
    dxDBGridMaskColumn69: TdxDBGridMaskColumn;
    dxDBGridColumn25: TdxDBGridColumn;
    dxDBGridColumn26: TdxDBGridColumn;
    dxDBGridColumn27: TdxDBGridColumn;
    dxDBGridColumn28: TdxDBGridColumn;
    dxDBGridColumn29: TdxDBGridColumn;
    dxDBGridColumn30: TdxDBGridColumn;
    dxDBGridColumn31: TdxDBGridColumn;
    dxDBGridColumn32: TdxDBGridColumn;
    dxDBGridColumn33: TdxDBGridColumn;
    dxDBGridColumn34: TdxDBGridColumn;
    dxDBGridColumn35: TdxDBGridColumn;
    dxDBGridColumn36: TdxDBGridColumn;
    dxDBGridColumn37: TdxDBGridColumn;
    dxDBGridColumn38: TdxDBGridColumn;
    dxDBGridColumn39: TdxDBGridColumn;
    dxDBGridColumn40: TdxDBGridColumn;
    dxDBGridColumn41: TdxDBGridColumn;
    dxDBGridColumn42: TdxDBGridColumn;
    dxDBGridColumn43: TdxDBGridColumn;
    dxDBGridColumn44: TdxDBGridColumn;
    dxDBGridColumn45: TdxDBGridColumn;
    dxDBGridMaskColumn70: TdxDBGridMaskColumn;
    dxDBGrid5: TdxDBGrid;
    dxDBGridMaskColumn71: TdxDBGridMaskColumn;
    dxDBGridMaskColumn72: TdxDBGridMaskColumn;
    dxDBGridMaskColumn73: TdxDBGridMaskColumn;
    dxDBGridDateColumn7: TdxDBGridDateColumn;
    dxDBGridMaskColumn74: TdxDBGridMaskColumn;
    dxDBGridMaskColumn75: TdxDBGridMaskColumn;
    dxDBGridMaskColumn76: TdxDBGridMaskColumn;
    dxDBGridMaskColumn77: TdxDBGridMaskColumn;
    dxDBGridMaskColumn78: TdxDBGridMaskColumn;
    dxDBGridMaskColumn79: TdxDBGridMaskColumn;
    dxDBGridDateColumn8: TdxDBGridDateColumn;
    dxDBGridMaskColumn80: TdxDBGridMaskColumn;
    dxDBGridMaskColumn81: TdxDBGridMaskColumn;
    dxDBGridMaskColumn82: TdxDBGridMaskColumn;
    dxDBGridMaskColumn83: TdxDBGridMaskColumn;
    dxDBGridColumn46: TdxDBGridColumn;
    dxDBGridMaskColumn84: TdxDBGridMaskColumn;
    dxDBGridMaskColumn85: TdxDBGridMaskColumn;
    dxDBGridMaskColumn86: TdxDBGridMaskColumn;
    dxDBGridDateColumn9: TdxDBGridDateColumn;
    dxDBGridMaskColumn87: TdxDBGridMaskColumn;
    dxDBGridMaskColumn88: TdxDBGridMaskColumn;
    dxDBGridMaskColumn89: TdxDBGridMaskColumn;
    dxDBGridColumn47: TdxDBGridColumn;
    dxDBGridColumn48: TdxDBGridColumn;
    dxDBGridColumn49: TdxDBGridColumn;
    dxDBGridColumn50: TdxDBGridColumn;
    dxDBGridColumn51: TdxDBGridColumn;
    dxDBGridColumn52: TdxDBGridColumn;
    dxDBGridColumn53: TdxDBGridColumn;
    dxDBGridColumn54: TdxDBGridColumn;
    dxDBGridColumn55: TdxDBGridColumn;
    dxDBGridColumn56: TdxDBGridColumn;
    dxDBGridColumn57: TdxDBGridColumn;
    dxDBGridColumn58: TdxDBGridColumn;
    dxDBGridColumn59: TdxDBGridColumn;
    dxDBGridColumn60: TdxDBGridColumn;
    dxDBGridColumn61: TdxDBGridColumn;
    dxDBGridColumn62: TdxDBGridColumn;
    dxDBGridColumn63: TdxDBGridColumn;
    dxDBGridColumn64: TdxDBGridColumn;
    dxDBGridColumn65: TdxDBGridColumn;
    dxDBGridColumn66: TdxDBGridColumn;
    dxDBGridColumn67: TdxDBGridColumn;
    dxDBGridMaskColumn90: TdxDBGridMaskColumn;
    dxDBGrid1Column81: TdxDBGridColumn;
    dxDBGrid1Column91: TdxDBGridColumn;
    dxDBGrid3Column77: TdxDBGridColumn;
    dxDBGrid3Column78: TdxDBGridColumn;
    dxDBGrid4Column46: TdxDBGridColumn;
    dxDBGrid4Column47: TdxDBGridColumn;
    dxDBGrid5Column46: TdxDBGridColumn;
    dxDBGrid5Column47: TdxDBGridColumn;
    dxDBGrid3Column79: TdxDBGridColumn;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    MenuItem1: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    bsSkinTabSheet5: TbsSkinTabSheet;
    dxDBGrid6: TdxDBGrid;
    dxDBGridMaskColumn28: TdxDBGridMaskColumn;
    dxDBGridMaskColumn29: TdxDBGridMaskColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    dxDBGridDateColumn10: TdxDBGridDateColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridMaskColumn33: TdxDBGridMaskColumn;
    dxDBGridMaskColumn34: TdxDBGridMaskColumn;
    dxDBGridDateColumn11: TdxDBGridDateColumn;
    dxDBGridMaskColumn37: TdxDBGridMaskColumn;
    dxDBGridMaskColumn91: TdxDBGridMaskColumn;
    dxDBGridMaskColumn92: TdxDBGridMaskColumn;
    dxDBGridMaskColumn93: TdxDBGridMaskColumn;
    dxDBGridColumn68: TdxDBGridColumn;
    dxDBGridMaskColumn95: TdxDBGridMaskColumn;
    dxDBGridMaskColumn96: TdxDBGridMaskColumn;
    dxDBGridDateColumn12: TdxDBGridDateColumn;
    dxDBGridMaskColumn97: TdxDBGridMaskColumn;
    dxDBGridMaskColumn98: TdxDBGridMaskColumn;
    dxDBGridMaskColumn99: TdxDBGridMaskColumn;
    dxDBGridColumn69: TdxDBGridColumn;
    dxDBGridColumn70: TdxDBGridColumn;
    dxDBGridColumn71: TdxDBGridColumn;
    dxDBGridColumn72: TdxDBGridColumn;
    dxDBGridColumn73: TdxDBGridColumn;
    dxDBGridColumn74: TdxDBGridColumn;
    dxDBGridColumn75: TdxDBGridColumn;
    dxDBGridColumn76: TdxDBGridColumn;
    dxDBGridColumn77: TdxDBGridColumn;
    dxDBGridColumn78: TdxDBGridColumn;
    dxDBGridColumn79: TdxDBGridColumn;
    dxDBGridColumn80: TdxDBGridColumn;
    dxDBGridColumn81: TdxDBGridColumn;
    dxDBGridColumn82: TdxDBGridColumn;
    dxDBGridColumn83: TdxDBGridColumn;
    dxDBGridColumn84: TdxDBGridColumn;
    dxDBGridColumn85: TdxDBGridColumn;
    dxDBGridColumn86: TdxDBGridColumn;
    dxDBGridColumn87: TdxDBGridColumn;
    dxDBGridColumn88: TdxDBGridColumn;
    dxDBGridColumn89: TdxDBGridColumn;
    dxDBGridMaskColumn100: TdxDBGridMaskColumn;
    dxDBGridColumn90: TdxDBGridColumn;
    dxDBGridColumn91: TdxDBGridColumn;
    p_query_airtruck1: TDataSource;
    p_query_airtruck: TADOStoredProc;
    dxDBGrid1Column72: TdxDBGridColumn;
    dxDBGrid1Column73: TdxDBGridColumn;
    dxDBGrid1Column74: TdxDBGridColumn;
    dxDBGrid3Column70: TdxDBGridColumn;
    dxDBGrid3Column71: TdxDBGridColumn;
    dxDBGrid3Column72: TdxDBGridColumn;
    dxDBGrid4Column48: TdxDBGridColumn;
    dxDBGrid4Column49: TdxDBGridColumn;
    dxDBGrid4Column50: TdxDBGridColumn;
    dxDBGrid5Column48: TdxDBGridColumn;
    dxDBGrid5Column49: TdxDBGridColumn;
    dxDBGrid5Column50: TdxDBGridColumn;
    dxDBGrid4Column51: TdxDBGridColumn;
    dxDBGrid4Column52: TdxDBGridColumn;
    dxDBGrid5Column51: TdxDBGridColumn;
    bsSkinTabSheet6: TbsSkinTabSheet;
    p_query_railway: TADOStoredProc;
    p_query_railway1: TDataSource;
    dxDBGrid7: TdxDBGrid;
    dxDBGridMaskColumn35: TdxDBGridMaskColumn;
    dxDBGridMaskColumn36: TdxDBGridMaskColumn;
    dxDBGridMaskColumn94: TdxDBGridMaskColumn;
    dxDBGridDateColumn13: TdxDBGridDateColumn;
    dxDBGridMaskColumn101: TdxDBGridMaskColumn;
    dxDBGridMaskColumn102: TdxDBGridMaskColumn;
    dxDBGridMaskColumn103: TdxDBGridMaskColumn;
    dxDBGridMaskColumn104: TdxDBGridMaskColumn;
    dxDBGridMaskColumn105: TdxDBGridMaskColumn;
    dxDBGridMaskColumn109: TdxDBGridMaskColumn;
    dxDBGridDateColumn14: TdxDBGridDateColumn;
    dxDBGridDateColumn15: TdxDBGridDateColumn;
    dxDBGridDateColumn16: TdxDBGridDateColumn;
    dxDBGridMaskColumn110: TdxDBGridMaskColumn;
    dxDBGridMaskColumn111: TdxDBGridMaskColumn;
    dxDBGridMaskColumn112: TdxDBGridMaskColumn;
    dxDBGridMaskColumn113: TdxDBGridMaskColumn;
    dxDBGridMaskColumn114: TdxDBGridMaskColumn;
    dxDBGridMaskColumn115: TdxDBGridMaskColumn;
    dxDBGridColumn92: TdxDBGridColumn;
    dxDBGridColumn93: TdxDBGridColumn;
    dxDBGridMaskColumn129: TdxDBGridMaskColumn;
    dxDBGridDateColumn17: TdxDBGridDateColumn;
    dxDBGridMaskColumn130: TdxDBGridMaskColumn;
    dxDBGridMaskColumn131: TdxDBGridMaskColumn;
    dxDBGridMaskColumn132: TdxDBGridMaskColumn;
    dxDBGridMaskColumn133: TdxDBGridMaskColumn;
    dxDBGridMaskColumn134: TdxDBGridMaskColumn;
    dxDBGridMaskColumn135: TdxDBGridMaskColumn;
    dxDBGridMaskColumn136: TdxDBGridMaskColumn;
    dxDBGridMaskColumn137: TdxDBGridMaskColumn;
    dxDBGridColumn94: TdxDBGridColumn;
    dxDBGridColumn95: TdxDBGridColumn;
    dxDBGridColumn96: TdxDBGridColumn;
    dxDBGridColumn97: TdxDBGridColumn;
    dxDBGridColumn98: TdxDBGridColumn;
    dxDBGridColumn99: TdxDBGridColumn;
    dxDBGridColumn100: TdxDBGridColumn;
    dxDBGridColumn101: TdxDBGridColumn;
    dxDBGridColumn102: TdxDBGridColumn;
    dxDBGridColumn103: TdxDBGridColumn;
    dxDBGridColumn104: TdxDBGridColumn;
    dxDBGridColumn105: TdxDBGridColumn;
    dxDBGridColumn106: TdxDBGridColumn;
    dxDBGridColumn107: TdxDBGridColumn;
    dxDBGridColumn108: TdxDBGridColumn;
    dxDBGridColumn109: TdxDBGridColumn;
    dxDBGridColumn110: TdxDBGridColumn;
    dxDBGridColumn111: TdxDBGridColumn;
    dxDBGridColumn112: TdxDBGridColumn;
    dxDBGridColumn113: TdxDBGridColumn;
    dxDBGridColumn114: TdxDBGridColumn;
    dxDBGridMaskColumn138: TdxDBGridMaskColumn;
    dxDBGridColumn115: TdxDBGridColumn;
    dxDBGridColumn116: TdxDBGridColumn;
    dxDBGridColumn117: TdxDBGridColumn;
    dxDBGridColumn118: TdxDBGridColumn;
    dxDBGridColumn119: TdxDBGridColumn;
    dxDBGrid4Column53: TdxDBGridColumn;
    dxDBGrid7Column59: TdxDBGridColumn;
    dxDBGrid1Column75: TdxDBGridColumn;
    dxDBGrid1Column76: TdxDBGridColumn;
    dxDBGrid1Column77: TdxDBGridCheckColumn;
    dxDBGrid1Column78: TdxDBGridColumn;
    dxDBGrid1Column79: TdxDBGridColumn;
    dxDBGrid1Column94: TdxDBGridColumn;
    dxDBGrid3Column73: TdxDBGridColumn;
    dxDBGrid3Column74: TdxDBGridColumn;
    dxDBGrid4Column54: TdxDBGridColumn;
    dxDBGrid4Column55: TdxDBGridColumn;
    dxDBGrid5Column52: TdxDBGridColumn;
    dxDBGrid5Column53: TdxDBGridColumn;
    dxDBGrid3Column75: TdxDBGridColumn;
    dxDBGrid4Column56: TdxDBGridColumn;
    dxDBGrid5Column54: TdxDBGridColumn;
    dxDBGrid1Column96: TdxDBGridColumn;
    dxDBGrid3Column76: TdxDBGridColumn;
    dxDBGrid1Column99: TdxDBGridColumn;
    dxDBGrid1Column118: TdxDBGridColumn;
    dxDBGrid1Column119: TdxDBGridColumn;
    dxDBGrid1Column120: TdxDBGridColumn;
    dxDBGrid1Column121: TdxDBGridColumn;
    p_query_opctn: TADOStoredProc;
    p_query_opctn1: TDataSource;
    p_query_opttl: TADOStoredProc;
    p_query_opttl1: TDataSource;
    dxDBGrid1Column122: TdxDBGridColumn;
    dxDBGrid1Column123: TdxDBGridColumn;
    dxDBGrid4Column57: TdxDBGridColumn;
    dxDBGrid2Column24: TdxDBGridColumn;
    dxDBGrid2Column25: TdxDBGridColumn;
    dxDBGrid2Column26: TdxDBGridColumn;
    dxDBGrid2Column27: TdxDBGridColumn;
    dxDBGrid2Column28: TdxDBGridColumn;
    dxDBGrid2Column29: TdxDBGridColumn;
    dxDBGrid2Column30: TdxDBGridColumn;
    dxDBGrid2Column31: TdxDBGridColumn;
    dxDBGrid2Column32: TdxDBGridColumn;
    dxDBGrid1Column124: TdxDBGridColumn;
    dxDBGrid1Column125: TdxDBGridColumn;
    dxDBGrid1Column126: TdxDBGridColumn;
    dxDBGrid1Column127: TdxDBGridColumn;
    dxDBGrid1Column128: TdxDBGridColumn;
    dxDBGrid1Column129: TdxDBGridColumn;
    dxDBGrid1Column130: TdxDBGridColumn;
    dxDBGrid1Column131: TdxDBGridColumn;
    dxDBGrid1Column132: TdxDBGridColumn;
    dxDBGrid3Column80: TdxDBGridColumn;
    dxDBGrid3Column81: TdxDBGridColumn;
    dxDBGrid3Column82: TdxDBGridColumn;
    dxDBGrid3Column83: TdxDBGridColumn;
    dxDBGrid3Column84: TdxDBGridColumn;
    dxDBGrid3Column85: TdxDBGridColumn;
    dxDBGrid3Column86: TdxDBGridColumn;
    dxDBGrid3Column87: TdxDBGridColumn;
    dxDBGrid3Column88: TdxDBGridColumn;
    dxDBGrid4Column58: TdxDBGridColumn;
    dxDBGrid4Column59: TdxDBGridColumn;
    dxDBGrid4Column60: TdxDBGridColumn;
    dxDBGrid4Column61: TdxDBGridColumn;
    dxDBGrid4Column62: TdxDBGridColumn;
    dxDBGrid4Column63: TdxDBGridColumn;
    dxDBGrid4Column64: TdxDBGridColumn;
    dxDBGrid4Column65: TdxDBGridColumn;
    dxDBGrid4Column66: TdxDBGridColumn;
    dxDBGrid1Column133: TdxDBGridColumn;
    dxDBGrid3Column89: TdxDBGridColumn;
    dxDBGrid4Column67: TdxDBGridColumn;
    dxDBGrid5Column55: TdxDBGridColumn;
    dxDBGrid5Column56: TdxDBGridColumn;
    dxDBGrid5Column57: TdxDBGridColumn;
    dxDBGrid5Column58: TdxDBGridColumn;
    dxDBGrid5Column59: TdxDBGridColumn;
    dxDBGrid5Column60: TdxDBGridColumn;
    dxDBGrid5Column61: TdxDBGridColumn;
    dxDBGrid5Column62: TdxDBGridColumn;
    dxDBGrid5Column63: TdxDBGridColumn;
    dxDBGrid5Column64: TdxDBGridColumn;
    dxDBGrid6Column45: TdxDBGridColumn;
    dxDBGrid6Column46: TdxDBGridColumn;
    dxDBGrid6Column47: TdxDBGridColumn;
    dxDBGrid6Column48: TdxDBGridColumn;
    dxDBGrid6Column49: TdxDBGridColumn;
    dxDBGrid6Column50: TdxDBGridColumn;
    dxDBGrid6Column51: TdxDBGridColumn;
    dxDBGrid6Column52: TdxDBGridColumn;
    dxDBGrid6Column53: TdxDBGridColumn;
    dxDBGrid6Column54: TdxDBGridColumn;
    dxDBGrid7Column60: TdxDBGridColumn;
    dxDBGrid7Column61: TdxDBGridColumn;
    dxDBGrid7Column62: TdxDBGridColumn;
    dxDBGrid7Column63: TdxDBGridColumn;
    dxDBGrid7Column64: TdxDBGridColumn;
    dxDBGrid7Column65: TdxDBGridColumn;
    dxDBGrid7Column66: TdxDBGridColumn;
    dxDBGrid7Column67: TdxDBGridColumn;
    dxDBGrid7Column68: TdxDBGridColumn;
    dxDBGrid7Column69: TdxDBGridColumn;
    dxDBGrid1Column134: TdxDBGridColumn;
    dxDBGrid1Column135: TdxDBGridColumn;
    dxDBGrid1Column136: TdxDBGridColumn;
    dxDBGrid1Column137: TdxDBGridColumn;
    dxDBGrid1Column139: TdxDBGridColumn;
    dxDBGrid1Column140: TdxDBGridColumn;
    dxDBGrid1Column141: TdxDBGridColumn;
    dxDBGrid1Column142: TdxDBGridColumn;
    dxDBGrid1Column143: TdxDBGridColumn;
    dxDBGrid1Column144: TdxDBGridColumn;
    dxDBGrid1Column145: TdxDBGridColumn;
    dxDBGrid1Column146: TdxDBGridColumn;
    dxDBGrid1Column138: TdxDBGridColumn;
    dxDBGrid1Column147: TdxDBGridColumn;
    dxDBGrid1Column148: TdxDBGridColumn;
    dxDBGrid1Column149: TdxDBGridColumn;
    dxDBGrid3Column90: TdxDBGridColumn;
    dxDBGrid3Column91: TdxDBGridColumn;
    dxDBGrid3Column92: TdxDBGridColumn;
    dxDBGrid3Column93: TdxDBGridColumn;
    dxDBGrid3Column94: TdxDBGridColumn;
    dxDBGrid3Column95: TdxDBGridColumn;
    dxDBGrid3Column96: TdxDBGridColumn;
    dxDBGrid3Column97: TdxDBGridColumn;
    dxDBGrid3Column98: TdxDBGridColumn;
    dxDBGrid3Column99: TdxDBGridColumn;
    dxDBGrid3Column100: TdxDBGridColumn;
    dxDBGrid3Column101: TdxDBGridColumn;
    dxDBGrid3Column102: TdxDBGridColumn;
    dxDBGrid3Column103: TdxDBGridColumn;
    dxDBGrid3Column104: TdxDBGridColumn;
    dxDBGrid3Column105: TdxDBGridColumn;
    dxDBGrid4Column68: TdxDBGridColumn;
    dxDBGrid4Column69: TdxDBGridColumn;
    dxDBGrid4Column70: TdxDBGridColumn;
    dxDBGrid4Column71: TdxDBGridColumn;
    dxDBGrid4Column72: TdxDBGridColumn;
    dxDBGrid4Column73: TdxDBGridColumn;
    dxDBGrid4Column74: TdxDBGridColumn;
    dxDBGrid4Column75: TdxDBGridColumn;
    dxDBGrid4Column76: TdxDBGridColumn;
    dxDBGrid4Column77: TdxDBGridColumn;
    dxDBGrid4Column78: TdxDBGridColumn;
    dxDBGrid4Column79: TdxDBGridColumn;
    dxDBGrid4Column80: TdxDBGridColumn;
    dxDBGrid4Column81: TdxDBGridColumn;
    dxDBGrid4Column82: TdxDBGridColumn;
    dxDBGrid4Column83: TdxDBGridColumn;
    dxDBGrid5Column65: TdxDBGridColumn;
    dxDBGrid5Column66: TdxDBGridColumn;
    dxDBGrid5Column67: TdxDBGridColumn;
    dxDBGrid5Column68: TdxDBGridColumn;
    dxDBGrid5Column69: TdxDBGridColumn;
    dxDBGrid5Column70: TdxDBGridColumn;
    dxDBGrid5Column71: TdxDBGridColumn;
    dxDBGrid5Column72: TdxDBGridColumn;
    dxDBGrid5Column73: TdxDBGridColumn;
    dxDBGrid5Column74: TdxDBGridColumn;
    dxDBGrid5Column75: TdxDBGridColumn;
    dxDBGrid5Column76: TdxDBGridColumn;
    dxDBGrid5Column77: TdxDBGridColumn;
    dxDBGrid5Column78: TdxDBGridColumn;
    dxDBGrid5Column79: TdxDBGridColumn;
    dxDBGrid5Column80: TdxDBGridColumn;
    dxDBGrid6Column55: TdxDBGridColumn;
    dxDBGrid6Column56: TdxDBGridColumn;
    dxDBGrid6Column57: TdxDBGridColumn;
    dxDBGrid6Column58: TdxDBGridColumn;
    dxDBGrid6Column59: TdxDBGridColumn;
    dxDBGrid6Column60: TdxDBGridColumn;
    dxDBGrid6Column61: TdxDBGridColumn;
    dxDBGrid6Column62: TdxDBGridColumn;
    dxDBGrid6Column63: TdxDBGridColumn;
    dxDBGrid6Column64: TdxDBGridColumn;
    dxDBGrid6Column65: TdxDBGridColumn;
    dxDBGrid6Column66: TdxDBGridColumn;
    dxDBGrid6Column67: TdxDBGridColumn;
    dxDBGrid6Column68: TdxDBGridColumn;
    dxDBGrid6Column69: TdxDBGridColumn;
    dxDBGrid6Column70: TdxDBGridColumn;
    dxDBGrid7Column70: TdxDBGridColumn;
    dxDBGrid7Column71: TdxDBGridColumn;
    dxDBGrid7Column72: TdxDBGridColumn;
    dxDBGrid7Column73: TdxDBGridColumn;
    dxDBGrid7Column74: TdxDBGridColumn;
    dxDBGrid7Column75: TdxDBGridColumn;
    dxDBGrid7Column76: TdxDBGridColumn;
    dxDBGrid7Column77: TdxDBGridColumn;
    dxDBGrid7Column78: TdxDBGridColumn;
    dxDBGrid7Column79: TdxDBGridColumn;
    dxDBGrid7Column80: TdxDBGridColumn;
    dxDBGrid7Column81: TdxDBGridColumn;
    dxDBGrid7Column82: TdxDBGridColumn;
    dxDBGrid7Column83: TdxDBGridColumn;
    dxDBGrid7Column84: TdxDBGridColumn;
    dxDBGrid7Column85: TdxDBGridColumn;
    dxDBGrid2Column33: TdxDBGridColumn;
    dxDBGrid2Column34: TdxDBGridColumn;
    dxDBGrid2Column35: TdxDBGridColumn;
    dxDBGrid2Column36: TdxDBGridColumn;
    dxDBGrid2Column37: TdxDBGridColumn;
    dxDBGrid2Column38: TdxDBGridColumn;
    dxDBGrid2Column39: TdxDBGridColumn;
    dxDBGrid2Column40: TdxDBGridColumn;
    dxDBGrid2Column41: TdxDBGridColumn;
    dxDBGrid2Column42: TdxDBGridColumn;
    dxDBGrid2Column43: TdxDBGridColumn;
    dxDBGrid2Column44: TdxDBGridColumn;
    dxDBGrid2Column45: TdxDBGridColumn;
    dxDBGrid2Column46: TdxDBGridColumn;
    dxDBGrid2Column47: TdxDBGridColumn;
    dxDBGrid2Column48: TdxDBGridColumn;
    dxDBGrid7Column86: TdxDBGridColumn;
    dxDBGrid7Column87: TdxDBGridColumn;
    dxDBGrid7Column88: TdxDBGridColumn;
    dxDBGrid1Column150: TdxDBGridColumn;
    dxDBGrid1Column151: TdxDBGridColumn;
    dxDBGrid1Column152: TdxDBGridColumn;
    dxDBGrid1Column153: TdxDBGridColumn;
    N1: TMenuItem;
    N2: TMenuItem;
    dxDBGrid1Column154: TdxDBGridColumn;
    p_query_sealocal: TADOStoredProc;
    p_query_sealocal1: TDataSource;
    bsSkinTabSheet7: TbsSkinTabSheet;
    dxDBGrid8: TdxDBGrid;
    dxDBGridMaskColumn116: TdxDBGridMaskColumn;
    dxDBGridMaskColumn117: TdxDBGridMaskColumn;
    dxDBGridMaskColumn123: TdxDBGridMaskColumn;
    dxDBGridMaskColumn124: TdxDBGridMaskColumn;
    dxDBGridDateColumn19: TdxDBGridDateColumn;
    dxDBGridMaskColumn125: TdxDBGridMaskColumn;
    dxDBGridMaskColumn126: TdxDBGridMaskColumn;
    dxDBGridColumn125: TdxDBGridColumn;
    dxDBGridColumn126: TdxDBGridColumn;
    dxDBGridColumn127: TdxDBGridColumn;
    dxDBGridColumn128: TdxDBGridColumn;
    dxDBGridColumn129: TdxDBGridColumn;
    dxDBGridColumn130: TdxDBGridColumn;
    dxDBGridColumn131: TdxDBGridColumn;
    dxDBGridColumn132: TdxDBGridColumn;
    dxDBGridColumn133: TdxDBGridColumn;
    dxDBGridColumn134: TdxDBGridColumn;
    dxDBGridColumn135: TdxDBGridColumn;
    dxDBGridColumn136: TdxDBGridColumn;
    dxDBGridColumn137: TdxDBGridColumn;
    dxDBGridColumn138: TdxDBGridColumn;
    dxDBGridColumn139: TdxDBGridColumn;
    dxDBGridColumn140: TdxDBGridColumn;
    dxDBGridColumn141: TdxDBGridColumn;
    dxDBGridColumn142: TdxDBGridColumn;
    dxDBGridColumn143: TdxDBGridColumn;
    dxDBGridColumn144: TdxDBGridColumn;
    dxDBGridColumn145: TdxDBGridColumn;
    dxDBGrid1Column155: TdxDBGridColumn;
    dxDBGrid1Column156: TdxDBGridColumn;
    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 dxDBGrid1Column4CustmDraw(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 dxDBGridMaskColumn3CustomDraw(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 dxDBGrid1Column3CustomDraw(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 dxDBGridMaskColumn2CustomDraw(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 dxDBGridMaskColumn52CustomDraw(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 dxDBGridMaskColumn72CustomDraw(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 dxDBGridMaskColumn53CustomDraw(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 dxDBGridMaskColumn73CustomDraw(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 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 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 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 dxDBGridColumn23CustomDraw(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 dxDBGridColumn45CustomDraw(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 dxDBGridColumn67CustomDraw(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 dxDBGridColumn89CustomDraw(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_query_totalAfterOpen(DataSet: TDataSet);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure dxDBGrid3DblClick(Sender: TObject);
    procedure dxDBGrid4DblClick(Sender: TObject);
    procedure dxDBGrid5DblClick(Sender: TObject);
    procedure dxDBGrid6DblClick(Sender: TObject);
    procedure dxDBGrid1CustomDraw(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 dxDBGrid7DblClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure dxDBGridColumn145CustomDraw(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
      AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
      var AColor: TColor; ASelected, AFocused: Boolean;
      var ADone: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_tai_total: Tfrm_rp_tai_total;

implementation

uses u_main,u_rp_query, my_sys_function, u_data_share, u_sys_dep_emp_module;

{$R *.dfm}

procedure Tfrm_rp_tai_total.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_rp_tai_total.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  savereggrid(dxdbgrid1,caption+'1');
  savereggrid(dxdbgrid2,caption+'2');
  savereggrid(dxdbgrid3,caption+'3');
  savereggrid(dxdbgrid4,caption+'4');
  savereggrid(dxdbgrid5,caption+'5');
  savereggrid(dxdbgrid8,caption+'8');
  frm_rp_tai_total.Hide;
  frm_rp_tai_total.ManualFloat(frm_rp_tai_total.BoundsRect );
  frm_main.freeTabs('frm_rp_tai_total');
  action:=cafree;
  frm_rp_tai_total:=nil;
end;

procedure Tfrm_rp_tai_total.Panel1Resize(Sender: TObject);
begin
  bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width;
end;

procedure Tfrm_rp_tai_total.bsSkinButton10Click(Sender: TObject);
begin
  if p_query_seae.Active then p_query_seae.close;
  p_query_seae1.DataSet:=nil;
  if p_query_seai.Active then p_query_seai.close;
  p_query_seai1.DataSet:=nil;
  if p_query_aire.Active then p_query_aire.close;
  p_query_aire1.DataSet:=nil;
  if p_query_airi.Active then p_query_airi.close;
  p_query_airi1.DataSet:=nil;
  if p_query_airtruck.Active then p_query_airtruck.close;
  p_query_airtruck1.DataSet:=nil;
  if p_query_railway.Active then p_query_railway.close;
  p_query_railway1.DataSet:=nil;


  if p_query_sealocal.Active then p_query_sealocal.close;
  p_query_sealocal1.DataSet:=nil;

  //  if p_query_total.Active then p_query_total.close;
//  p_query_total1.DataSet:=nil;

  try
    frm_rp_query:=tfrm_rp_query.Create (self);
    rp_query_limited:='0031';
    rp_query_bs:=1;
    frm_rp_query.ShowModal;
  finally
    frm_rp_query.Free;
  end;
end;

procedure Tfrm_rp_tai_total.FormShow(Sender: TObject);
var i:integer;
begin
  loadreggrid(dxdbgrid1,true,caption+'1');
  loadreggrid(dxdbgrid2,false,caption+'2');
  loadreggrid(dxdbgrid3,true,caption+'3');
  loadreggrid(dxdbgrid4,false,caption+'4');
  loadreggrid(dxdbgrid5,false,caption+'5');

  loadreggrid(dxdbgrid8,false,caption+'8');
  dxDBGrid1.ShowSummaryFooter:=true;
  dxDBGrid2.ShowSummaryFooter:=true;
  dxDBGrid3.ShowSummaryFooter:=true;
  dxDBGrid4.ShowSummaryFooter:=true;
  dxDBGrid5.ShowSummaryFooter:=true;

  if frm_data_share.t_load_employee.FieldByName('应收').asboolean then
  begin
    dxDBGrid1.Bands[2].Visible:=true;
    dxDBGrid2.Bands[1].Visible:=true;
    dxDBGrid3.Bands[2].Visible:=true;
    dxDBGrid4.Bands[2].Visible:=true;
    dxDBGrid5.Bands[2].Visible:=true;
  end
  else
  begin
    dxDBGrid1.Bands[2].Visible:=false;
    dxDBGrid2.Bands[1].Visible:=false;
    dxDBGrid3.Bands[2].Visible:=false;
    dxDBGrid4.Bands[2].Visible:=false;
    dxDBGrid5.Bands[2].Visible:=false;
  end;
  if frm_data_share.t_load_employee.FieldByName('应付').asboolean then
  begin
    dxDBGrid1.Bands[3].Visible:=true;
    dxDBGrid2.Bands[2].Visible:=true;
    dxDBGrid3.Bands[3].Visible:=true;
    dxDBGrid4.Bands[3].Visible:=true;
    dxDBGrid5.Bands[3].Visible:=true;
  end
  else
  begin
    dxDBGrid1.Bands[3].Visible:=false;
    dxDBGrid2.Bands[2].Visible:=false;
    dxDBGrid3.Bands[3].Visible:=false;
    dxDBGrid4.Bands[3].Visible:=false;
    dxDBGrid5.Bands[3].Visible:=false;
  end;

  
  if frm_data_share.t_load_employee.FieldByName('利润').asboolean then
  begin
    dxDBGrid1.Bands[4].Visible:=true;
    dxDBGrid2.Bands[3].Visible:=true;
    dxDBGrid3.Bands[4].Visible:=true;
    dxDBGrid4.Bands[4].Visible:=true;
    dxDBGrid5.Bands[4].Visible:=true;


    dxDBGrid1.Bands[5].Visible:=true;
    dxDBGrid1.Bands[6].Visible:=true;
    dxDBGrid1.Bands[7].Visible:=true;
    dxDBGrid1.Bands[8].Visible:=true;

    dxDBGrid2.Bands[4].Visible:=true;
    dxDBGrid2.Bands[5].Visible:=true;
    dxDBGrid2.Bands[6].Visible:=true;
    dxDBGrid2.Bands[7].Visible:=true;

    dxDBGrid3.Bands[5].Visible:=true;
    dxDBGrid3.Bands[6].Visible:=true;
    dxDBGrid3.Bands[7].Visible:=true;
    dxDBGrid3.Bands[8].Visible:=true;

    dxDBGrid4.Bands[5].Visible:=true;
    dxDBGrid4.Bands[6].Visible:=true;
    dxDBGrid4.Bands[7].Visible:=true;
    dxDBGrid4.Bands[8].Visible:=true;


  end
  else
  begin
    dxDBGrid1.Bands[4].Visible:=false;
    dxDBGrid2.Bands[3].Visible:=false;
    dxDBGrid3.Bands[4].Visible:=false;
    dxDBGrid4.Bands[4].Visible:=false;
    dxDBGrid5.Bands[4].Visible:=false;


    dxDBGrid1.Bands[5].Visible:=false;
    dxDBGrid1.Bands[6].Visible:=false;
    dxDBGrid1.Bands[7].Visible:=false;
    dxDBGrid1.Bands[8].Visible:=false;

    dxDBGrid2.Bands[4].Visible:=false;
    dxDBGrid2.Bands[5].Visible:=false;
    dxDBGrid2.Bands[6].Visible:=false;
    dxDBGrid2.Bands[7].Visible:=false;

    dxDBGrid3.Bands[5].Visible:=false;
    dxDBGrid3.Bands[6].Visible:=false;
    dxDBGrid3.Bands[7].Visible:=false;
    dxDBGrid3.Bands[8].Visible:=false;

    dxDBGrid4.Bands[5].Visible:=false;
    dxDBGrid4.Bands[6].Visible:=false;
    dxDBGrid4.Bands[7].Visible:=false;
    dxDBGrid4.Bands[8].Visible:=false;

    dxDBGrid5.Bands[5].Visible:=false;
    dxDBGrid5.Bands[6].Visible:=false;
    dxDBGrid5.Bands[7].Visible:=false;
    dxDBGrid5.Bands[8].Visible:=false;
  end;


    if strtobool(get_parameters_value(313,'false')) then
    begin
      dxDBGrid1.Bands[5].Visible:=true;
      dxDBGrid1.Bands[6].Visible:=true;
      dxDBGrid1.Bands[7].Visible:=true;
      dxDBGrid1.Bands[8].Visible:=true;

      dxDBGrid2.Bands[4].Visible:=true;
      dxDBGrid2.Bands[5].Visible:=true;
      dxDBGrid2.Bands[6].Visible:=true;
      dxDBGrid2.Bands[7].Visible:=true;

      dxDBGrid3.Bands[5].Visible:=true;
      dxDBGrid3.Bands[6].Visible:=true;
      dxDBGrid3.Bands[7].Visible:=true;
      dxDBGrid3.Bands[8].Visible:=true;

      dxDBGrid4.Bands[5].Visible:=true;
      dxDBGrid4.Bands[6].Visible:=true;
      dxDBGrid4.Bands[7].Visible:=true;
      dxDBGrid4.Bands[8].Visible:=true;

      dxDBGrid5.Bands[5].Visible:=true;
      dxDBGrid5.Bands[6].Visible:=true;
      dxDBGrid5.Bands[7].Visible:=true;
      dxDBGrid5.Bands[8].Visible:=true;

      dxDBGrid6.Bands[5].Visible:=true;
      dxDBGrid6.Bands[6].Visible:=true;
      dxDBGrid6.Bands[7].Visible:=true;
      dxDBGrid6.Bands[8].Visible:=true;

      dxDBGrid7.Bands[5].Visible:=true;
      dxDBGrid7.Bands[6].Visible:=true;
      dxDBGrid7.Bands[7].Visible:=true;
      dxDBGrid7.Bands[8].Visible:=true;
    end
    else
    begin
      dxDBGrid1.Bands[5].Visible:=false;
      dxDBGrid1.Bands[6].Visible:=false;
      dxDBGrid1.Bands[7].Visible:=false;
      dxDBGrid1.Bands[8].Visible:=false;

      dxDBGrid2.Bands[4].Visible:=false;
      dxDBGrid2.Bands[5].Visible:=false;
      dxDBGrid2.Bands[6].Visible:=false;
      dxDBGrid2.Bands[7].Visible:=false;

      dxDBGrid3.Bands[5].Visible:=false;
      dxDBGrid3.Bands[6].Visible:=false;
      dxDBGrid3.Bands[7].Visible:=false;
      dxDBGrid3.Bands[8].Visible:=false;

      dxDBGrid4.Bands[5].Visible:=false;
      dxDBGrid4.Bands[6].Visible:=false;
      dxDBGrid4.Bands[7].Visible:=false;
      dxDBGrid4.Bands[8].Visible:=false;

      dxDBGrid5.Bands[5].Visible:=false;
      dxDBGrid5.Bands[6].Visible:=false;
      dxDBGrid5.Bands[7].Visible:=false;
      dxDBGrid5.Bands[8].Visible:=false;

      dxDBGrid6.Bands[5].Visible:=false;
      dxDBGrid6.Bands[6].Visible:=false;
      dxDBGrid6.Bands[7].Visible:=false;
      dxDBGrid6.Bands[8].Visible:=false;

      dxDBGrid7.Bands[5].Visible:=false;
      dxDBGrid7.Bands[6].Visible:=false;
      dxDBGrid7.Bands[7].Visible:=false;
      dxDBGrid7.Bands[8].Visible:=false;
    end;


end;

procedure Tfrm_rp_tai_total.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('综合业务台帐',2,p_query_opctn1,p_query_opttl1,nil,nil,p_query_seae1,p_query_seai1,p_query_aire1,p_query_airi1,p_query_total1,p_query_sealocal1,nil);
end;

procedure Tfrm_rp_tai_total.dxDBGrid1Column4CustmDraw(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
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid1Column4.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGridMaskColumn3CustomDraw(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
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGridMaskColumn3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGrid1Column3CustomDraw(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
  AColor:=dxgrid_color('海运出口',ANode.Strings[dxDBGrid1Column3.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGridMaskColumn2CustomDraw(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
  AColor:=dxgrid_color('海运进口',ANode.Strings[dxDBGridMaskColumn2.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGridMaskColumn52CustomDraw(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
  AColor:=dxgrid_color('空运出口',ANode.Strings[dxDBGridMaskColumn52.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGridMaskColumn72CustomDraw(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
  AColor:=dxgrid_color('空运进口',ANode.Strings[dxDBGridMaskColumn72.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGridMaskColumn53CustomDraw(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
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGridMaskColumn53.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.dxDBGridMaskColumn73CustomDraw(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
  AColor:=dxgrid_color_fee(ANode.strings[dxDBGridMaskColumn73.Index]);
  AFont.Color:=clblack;
end;

procedure Tfrm_rp_tai_total.N10Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid_view_no(dxdbgrid1);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid_view_no(dxdbgrid3);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid_view_no(dxdbgrid4);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid_view_no(dxdbgrid5);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid_view_no(dxdbgrid6);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid_view_no(dxdbgrid7);
    exit;
  end;
  if bsSkinTabSheet7.showing then
  begin
    update_grid_view_no(dxdbgrid8);
    exit;
  end;
end;

procedure Tfrm_rp_tai_total.N14Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid_view_all(dxdbgrid1);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid_view_all(dxdbgrid3);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid_view_all(dxdbgrid4);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid_view_all(dxdbgrid5);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid_view_all(dxdbgrid6);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid_view_all(dxdbgrid7);
    exit;
  end;
  if bsSkinTabSheet7.showing then
  begin
    update_grid_view_all(dxdbgrid8);
    exit;
  end;
end;

procedure Tfrm_rp_tai_total.N12Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid(dxdbgrid1,31);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid(dxdbgrid3,32);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid(dxdbgrid4,33);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid(dxdbgrid5,34);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid(dxdbgrid6,341);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid(dxdbgrid7,342);
    exit;
  end;
  if bsSkinTabSheet7.showing then
  begin
    update_grid(dxdbgrid8,342);
    exit;
  end;
end;

procedure Tfrm_rp_tai_total.N16Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    grid_save_xls(dxdbgrid1);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    grid_save_xls(dxdbgrid3);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    grid_save_xls(dxdbgrid4);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    grid_save_xls(dxdbgrid5);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    grid_save_xls(dxdbgrid6);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    grid_save_xls(dxdbgrid7);
    exit;
  end;
  if bsSkinTabSheet7.showing then
  begin
    grid_save_xls(dxdbgrid8);
    exit;
  end;
end;

procedure Tfrm_rp_tai_total.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_query_seae,'业务编号');
end;

procedure Tfrm_rp_tai_total.dxDBGrid3ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_query_seai,'业务编号');
end;

procedure Tfrm_rp_tai_total.dxDBGrid4ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_query_aire,'业务编号');
end;

procedure Tfrm_rp_tai_total.dxDBGrid5ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_query_airi,'业务编号');
end;

procedure Tfrm_rp_tai_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_tai_total.dxDBGridColumn23CustomDraw(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_tai_total.dxDBGridColumn45CustomDraw(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_tai_total.dxDBGridColumn67CustomDraw(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_tai_total.dxDBGridColumn89CustomDraw(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_tai_total.p_query_totalAfterOpen(DataSet: TDataSet);
begin
  AdoFormatdxDBGrid(DataSet);
end;

procedure Tfrm_rp_tai_total.dxDBGrid1DblClick(Sender: TObject);
begin

  fee_view(p_query_seae.fieldbyname('编号').asstring);
end;

procedure Tfrm_rp_tai_total.dxDBGrid3DblClick(Sender: TObject);
begin
  fee_view(p_query_seai.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_tai_total.dxDBGrid4DblClick(Sender: TObject);
begin
  fee_view(p_query_aire.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_tai_total.dxDBGrid5DblClick(Sender: TObject);
begin
  fee_view(p_query_airi.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_tai_total.dxDBGrid6DblClick(Sender: TObject);
begin
  fee_view(p_query_airtruck.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_tai_total.dxDBGrid1CustomDraw(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 uppercase(ANode.Strings[dxDBGrid1Column77.Index])='TRUE' then begin
    AFont.Style:=AFont.Style+[fsStrikeOut];
    AColor:=clFuchsia;
    exit;
  end;

end;

procedure Tfrm_rp_tai_total.dxDBGrid7DblClick(Sender: TObject);
begin
  fee_view(p_query_railway.fieldbyname('编号').asstring);

end;

procedure Tfrm_rp_tai_total.N2Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    try
      frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
      frm_sys_dep_emp_module.moduleNames:=frm_rp_tai_total.caption+'1';
      frm_sys_dep_emp_module.ShowModal;
    finally
      frm_sys_dep_emp_module.Free;
      loadreggrid(dxdbgrid1,true,caption+'1');
    end;
  end;
  if bsSkinTabSheet2.showing then
  begin
    try
      frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
      frm_sys_dep_emp_module.moduleNames:=frm_rp_tai_total.caption+'3';
      frm_sys_dep_emp_module.ShowModal;
    finally
      frm_sys_dep_emp_module.Free;
      loadreggrid(dxdbgrid3,true,caption+'3');
    end;
  end;
  if bsSkinTabSheet3.showing then
  begin
    try
      frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
      frm_sys_dep_emp_module.moduleNames:=frm_rp_tai_total.caption+'4';
      frm_sys_dep_emp_module.ShowModal;
    finally
      frm_sys_dep_emp_module.Free;
      loadreggrid(dxdbgrid4,true,caption+'4');
    end;
  end;
  if bsSkinTabSheet4.showing then
  begin
    try
      frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
      frm_sys_dep_emp_module.moduleNames:=frm_rp_tai_total.caption+'5';
      frm_sys_dep_emp_module.ShowModal;
    finally
      frm_sys_dep_emp_module.Free;
      loadreggrid(dxdbgrid5,true,caption+'5');
    end;
  end;
  if bsSkinTabSheet5.showing then
  begin
    try
      frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
      frm_sys_dep_emp_module.moduleNames:=frm_rp_tai_total.caption+'6';
      frm_sys_dep_emp_module.ShowModal;
    finally
      frm_sys_dep_emp_module.Free;
      loadreggrid(dxdbgrid6,true,caption+'6');
    end;
  end;
  if bsSkinTabSheet6.showing then
  begin
    try
      frm_sys_dep_emp_module:=tfrm_sys_dep_emp_module.Create (self);
      frm_sys_dep_emp_module.moduleNames:=frm_rp_tai_total.caption+'7';
      frm_sys_dep_emp_module.ShowModal;
    finally
      frm_sys_dep_emp_module.Free;
      loadreggrid(dxdbgrid7,true,caption+'7');
    end;
  end;
end;

procedure Tfrm_rp_tai_total.dxDBGridColumn145CustomDraw(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;

end.