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;
    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);
  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;

{$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');
  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
  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);
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');

  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;
  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;
  end;
end;

procedure Tfrm_rp_tai_total.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('综合业务台帐',2,nil,nil,nil,nil,p_query_seae1,p_query_seai1,p_query_aire1,p_query_airi1,p_query_total1,nil,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;
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;
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;
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;
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;

end.