unit u_rp_no_aire;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, bsSkinCtrls, dxDBTLCl, dxGrClms, dxDBGrid,
  dxTL, dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls, XPMenu, Menus;

type
  Tfrm_rp_no_aire = class(TForm)
    Panel1: TPanel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column54: TdxDBGridMaskColumn;
    dxDBGrid1Column11: TdxDBGridMaskColumn;
    dxDBGrid1Column13: TdxDBGridMaskColumn;
    dxDBGrid1Column15: TdxDBGridMaskColumn;
    dxDBGrid1USD: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1RMB: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    dxDBGrid1Column8: TdxDBGridColumn;
    dxDBGrid1Column9: TdxDBGridColumn;
    dxDBGrid1Column10: TdxDBGridColumn;
    dxDBGrid1Column12: TdxDBGridDateColumn;
    dxDBGrid1Column18: TdxDBGridMaskColumn;
    dxDBGrid1Column21: TdxDBGridMaskColumn;
    dxDBGrid1Column22: TdxDBGridDateColumn;
    dxDBGrid1Column23: TdxDBGridMaskColumn;
    dxDBGrid1Column24: TdxDBGridMaskColumn;
    dxDBGrid1Column25: TdxDBGridMaskColumn;
    dxDBGrid1Column26: TdxDBGridMaskColumn;
    dxDBGrid1Column28: TdxDBGridColumn;
    dxDBGrid1Column53: TdxDBGridMaskColumn;
    dxDBGrid1Column55: TdxDBGridMaskColumn;
    dxDBGrid1Column57: TdxDBGridMaskColumn;
    dxDBGrid1Column59: TdxDBGridMaskColumn;
    bsSkinTabSheet2: TbsSkinTabSheet;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridMaskColumn;
    dxDBGrid3Column2: TdxDBGridMaskColumn;
    dxDBGrid3Column3: TdxDBGridMaskColumn;
    dxDBGrid3Column4: TdxDBGridMaskColumn;
    dxDBGrid3Column5: TdxDBGridMaskColumn;
    dxDBGrid3Column6: TdxDBGridMaskColumn;
    dxDBGrid3Column7: TdxDBGridMaskColumn;
    dxDBGrid3Column8: TdxDBGridColumn;
    dxDBGrid3Column9: TdxDBGridColumn;
    dxDBGrid3Column10: TdxDBGridColumn;
    dxDBGrid3Column11: TdxDBGridDateColumn;
    dxDBGrid3Column12: TdxDBGridMaskColumn;
    dxDBGrid3Column15: TdxDBGridMaskColumn;
    dxDBGrid3Column18: TdxDBGridMaskColumn;
    dxDBGrid3Column19: TdxDBGridDateColumn;
    dxDBGrid3Column20: TdxDBGridMaskColumn;
    dxDBGrid3Column21: TdxDBGridMaskColumn;
    dxDBGrid3Column22: TdxDBGridMaskColumn;
    dxDBGrid3Column23: TdxDBGridMaskColumn;
    dxDBGrid3Column25: TdxDBGridColumn;
    dxDBGrid3Column50: TdxDBGridMaskColumn;
    dxDBGrid3Column51: TdxDBGridMaskColumn;
    dxDBGrid3Column53: TdxDBGridMaskColumn;
    dxDBGrid3Column55: TdxDBGridMaskColumn;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinTabSheet5: TbsSkinTabSheet;
    dxDBGrid6: TdxDBGrid;
    dxDBGridMaskColumn95: TdxDBGridMaskColumn;
    dxDBGridColumn17: TdxDBGridColumn;
    dxDBGridColumn18: TdxDBGridColumn;
    dxDBGridColumn19: TdxDBGridColumn;
    dxDBGridColumn20: TdxDBGridColumn;
    dxDBGridColumn21: TdxDBGridColumn;
    dxDBGridColumn22: TdxDBGridColumn;
    dxDBGridColumn23: TdxDBGridColumn;
    dxDBGridColumn24: TdxDBGridColumn;
    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;
    bsSkinTabSheet6: TbsSkinTabSheet;
    dxDBGrid7: TdxDBGrid;
    dxDBGridMaskColumn96: TdxDBGridMaskColumn;
    dxDBGridColumn38: TdxDBGridColumn;
    dxDBGridColumn39: TdxDBGridColumn;
    dxDBGridColumn40: TdxDBGridColumn;
    dxDBGridColumn41: TdxDBGridColumn;
    dxDBGridColumn42: TdxDBGridColumn;
    dxDBGridColumn43: TdxDBGridColumn;
    dxDBGridColumn44: TdxDBGridColumn;
    dxDBGridColumn45: TdxDBGridColumn;
    dxDBGridColumn46: TdxDBGridColumn;
    dxDBGridColumn47: TdxDBGridColumn;
    dxDBGridColumn48: TdxDBGridColumn;
    dxDBGridColumn49: TdxDBGridColumn;
    dxDBGridColumn50: TdxDBGridColumn;
    dxDBGridColumn51: TdxDBGridColumn;
    dxDBGridColumn52: TdxDBGridColumn;
    dxDBGridColumn53: TdxDBGridColumn;
    dxDBGridColumn54: TdxDBGridColumn;
    dxDBGridColumn55: TdxDBGridColumn;
    dxDBGridColumn56: TdxDBGridColumn;
    dxDBGridColumn57: TdxDBGridColumn;
    dxDBGridColumn58: TdxDBGridColumn;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    dxDBGrid2: TdxDBGrid;
    dxDBGridColumn59: TdxDBGridColumn;
    dxDBGridColumn60: TdxDBGridColumn;
    dxDBGridColumn61: TdxDBGridColumn;
    dxDBGridColumn62: TdxDBGridColumn;
    dxDBGridColumn63: TdxDBGridColumn;
    dxDBGridColumn64: TdxDBGridColumn;
    dxDBGridColumn65: TdxDBGridColumn;
    dxDBGridColumn66: TdxDBGridColumn;
    dxDBGridColumn67: TdxDBGridColumn;
    dxDBGridColumn68: TdxDBGridColumn;
    dxDBGridColumn69: TdxDBGridColumn;
    dxDBGridColumn70: TdxDBGridColumn;
    dxDBGridColumn71: TdxDBGridColumn;
    dxDBGridColumn72: TdxDBGridColumn;
    dxDBGridColumn73: TdxDBGridColumn;
    dxDBGridColumn74: TdxDBGridColumn;
    dxDBGridColumn75: TdxDBGridColumn;
    dxDBGridColumn76: TdxDBGridColumn;
    dxDBGridColumn77: TdxDBGridColumn;
    dxDBGridColumn78: TdxDBGridColumn;
    dxDBGridColumn79: TdxDBGridColumn;
    p_accept_bill: TADOStoredProc;
    p_accept_fee: TADOStoredProc;
    p_accept_fee1: TDataSource;
    p_accept_bill1: TDataSource;
    p_pay_fee1: TDataSource;
    p_pay_fee: TADOStoredProc;
    p_pay_bill: TADOStoredProc;
    p_pay_bill1: TDataSource;
    p_total1: TDataSource;
    p_total: TADOStoredProc;
    p_total_client: TADOStoredProc;
    p_total_client1: TDataSource;
    p_total_sales: TADOStoredProc;
    p_total_sales1: TDataSource;
    SaveDialog: TSaveDialog;
    dxDBGrid1Column61: TdxDBGridColumn;
    dxDBGrid4: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridMaskColumn3: TdxDBGridMaskColumn;
    dxDBGridMaskColumn4: TdxDBGridMaskColumn;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridMaskColumn5: TdxDBGridMaskColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    dxDBGridColumn5: TdxDBGridColumn;
    dxDBGridColumn6: TdxDBGridColumn;
    dxDBGridColumn7: TdxDBGridColumn;
    dxDBGridColumn8: TdxDBGridColumn;
    dxDBGridColumn9: TdxDBGridColumn;
    dxDBGridColumn10: TdxDBGridColumn;
    dxDBGridDateColumn1: TdxDBGridDateColumn;
    dxDBGridMaskColumn6: TdxDBGridMaskColumn;
    dxDBGridMaskColumn7: TdxDBGridMaskColumn;
    dxDBGridDateColumn2: TdxDBGridDateColumn;
    dxDBGridMaskColumn8: TdxDBGridMaskColumn;
    dxDBGridMaskColumn9: TdxDBGridMaskColumn;
    dxDBGridMaskColumn10: TdxDBGridMaskColumn;
    dxDBGridMaskColumn11: TdxDBGridMaskColumn;
    dxDBGridColumn11: TdxDBGridColumn;
    dxDBGridMaskColumn12: TdxDBGridMaskColumn;
    dxDBGridMaskColumn13: TdxDBGridMaskColumn;
    dxDBGridMaskColumn14: TdxDBGridMaskColumn;
    dxDBGridMaskColumn15: TdxDBGridMaskColumn;
    dxDBGrid5: TdxDBGrid;
    dxDBGridMaskColumn16: TdxDBGridMaskColumn;
    dxDBGridMaskColumn17: TdxDBGridMaskColumn;
    dxDBGridMaskColumn18: TdxDBGridMaskColumn;
    dxDBGridMaskColumn19: TdxDBGridMaskColumn;
    dxDBGridMaskColumn20: TdxDBGridMaskColumn;
    dxDBGridMaskColumn21: TdxDBGridMaskColumn;
    dxDBGridMaskColumn22: TdxDBGridMaskColumn;
    dxDBGridMaskColumn23: TdxDBGridMaskColumn;
    dxDBGridColumn12: TdxDBGridColumn;
    dxDBGridColumn13: TdxDBGridColumn;
    dxDBGridColumn14: TdxDBGridColumn;
    dxDBGridDateColumn3: TdxDBGridDateColumn;
    dxDBGridMaskColumn24: TdxDBGridMaskColumn;
    dxDBGridMaskColumn25: TdxDBGridMaskColumn;
    dxDBGridDateColumn4: TdxDBGridDateColumn;
    dxDBGridMaskColumn26: TdxDBGridMaskColumn;
    dxDBGridMaskColumn27: TdxDBGridMaskColumn;
    dxDBGridMaskColumn28: TdxDBGridMaskColumn;
    dxDBGridMaskColumn29: TdxDBGridMaskColumn;
    dxDBGridColumn15: TdxDBGridColumn;
    dxDBGridMaskColumn30: TdxDBGridMaskColumn;
    dxDBGridMaskColumn31: TdxDBGridMaskColumn;
    dxDBGridMaskColumn32: TdxDBGridMaskColumn;
    dxDBGridMaskColumn33: TdxDBGridMaskColumn;
    dxDBGrid1Column29: TdxDBGridColumn;
    dxDBGrid1Column30: TdxDBGridColumn;
    dxDBGrid3Column26: TdxDBGridColumn;
    dxDBGrid3Column27: TdxDBGridColumn;
    dxDBGrid4Column29: TdxDBGridColumn;
    dxDBGrid4Column30: TdxDBGridColumn;
    dxDBGrid5Column25: TdxDBGridColumn;
    dxDBGrid5Column26: TdxDBGridColumn;
    dxDBGrid1Column31: TdxDBGridColumn;
    dxDBGrid3Column28: TdxDBGridColumn;
    dxDBGrid4Column31: TdxDBGridColumn;
    dxDBGrid5Column27: TdxDBGridColumn;
    PopupMenu2: TPopupMenu;
    N10: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N12: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    XPMenu1: TXPMenu;
    dxDBGrid1Column32: TdxDBGridColumn;
    dxDBGrid1Column33: TdxDBGridColumn;
    dxDBGrid1Column34: TdxDBGridColumn;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinPanel2Resize(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(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 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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_no_aire: Tfrm_rp_no_aire;

implementation

uses u_main, my_sys_function, u_rp_aire_query, u_data_share;

{$R *.dfm}

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

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

procedure Tfrm_rp_no_aire.bsSkinPanel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=round(bsSkinPanel2.Width/7);
  bsSkinCheckRadioBox1.Width:=i;
  bsSkinCheckRadioBox2.Width:=i;
  bsSkinCheckRadioBox3.Width:=i;
  bsSkinButton10.Width:=i;
  bsSkinButton9.Width:=i;
  bsSkinButton1.Width:=i;
end;

procedure Tfrm_rp_no_aire.bsSkinButton1Click(Sender: TObject);
begin
  with SaveDialog do
  begin
    DefaultExt :='xls';
    Filter := '(*.xls)|*.xls';
    if Execute then
    begin
      if bsSkinTabSheet1.Showing then
        dxDBGrid1.SaveToXLS(FileName,true)
      else if bsSkinTabSheet2.Showing then
        dxDBGrid3.SaveToXLS(FileName,true)
      else if bsSkinTabSheet3.Showing then
        dxDBGrid4.SaveToXLS(FileName,true)
      else if bsSkinTabSheet4.Showing then
        dxDBGrid5.SaveToXLS(FileName,true)
      else if bsSkinTabSheet5.Showing then
        dxDBGrid6.SaveToXLS(FileName,true)
      else if bsSkinTabSheet6.Showing then
        dxDBGrid7.SaveToXLS(FileName,true);
    end;
  end;
end;

procedure Tfrm_rp_no_aire.FormShow(Sender: TObject);
begin
  loadreggrid(dxdbgrid1,false,caption+'1');
  loadreggrid(dxdbgrid3,false,caption+'3');
  loadreggrid(dxdbgrid4,false,caption+'4');
  loadreggrid(dxdbgrid5,false,caption+'5');
  if frm_data_share.t_load_employee.FieldByName('应收').asboolean then
  begin
    bsSkinTabSheet1.TabVisible:=true;
    bsSkinTabSheet2.TabVisible:=true;
    
    dxDBGridColumn17.Visible:=true;
    dxDBGridColumn18.Visible:=true;
    dxDBGridColumn19.Visible:=true;
    dxDBGridColumn20.Visible:=true;
    dxDBGridColumn21.Visible:=true;
    dxDBGridColumn22.Visible:=true;
    dxDBGridColumn23.Visible:=true;
    dxDBGridColumn24.Visible:=true;
    dxDBGridColumn25.Visible:=true;

    dxDBGridColumn38.Visible:=true;
    dxDBGridColumn39.Visible:=true;
    dxDBGridColumn40.Visible:=true;
    dxDBGridColumn41.Visible:=true;
    dxDBGridColumn42.Visible:=true;
    dxDBGridColumn43.Visible:=true;
    dxDBGridColumn44.Visible:=true;
    dxDBGridColumn45.Visible:=true;
    dxDBGridColumn46.Visible:=true;

    dxDBGridColumn59.Visible:=true;
    dxDBGridColumn60.Visible:=true;
    dxDBGridColumn61.Visible:=true;
    dxDBGridColumn62.Visible:=true;
    dxDBGridColumn63.Visible:=true;
    dxDBGridColumn64.Visible:=true;
    dxDBGridColumn65.Visible:=true;
    dxDBGridColumn66.Visible:=true;
    dxDBGridColumn67.Visible:=true;
  end
  else
  begin
    bsSkinTabSheet1.TabVisible:=false;
    bsSkinTabSheet2.TabVisible:=false;
    
    dxDBGridColumn17.Visible:=false;
    dxDBGridColumn18.Visible:=false;
    dxDBGridColumn19.Visible:=false;
    dxDBGridColumn20.Visible:=false;
    dxDBGridColumn21.Visible:=false;
    dxDBGridColumn22.Visible:=false;
    dxDBGridColumn23.Visible:=false;
    dxDBGridColumn24.Visible:=false;
    dxDBGridColumn25.Visible:=false;

    dxDBGridColumn38.Visible:=false;
    dxDBGridColumn39.Visible:=false;
    dxDBGridColumn40.Visible:=false;
    dxDBGridColumn41.Visible:=false;
    dxDBGridColumn42.Visible:=false;
    dxDBGridColumn43.Visible:=false;
    dxDBGridColumn44.Visible:=false;
    dxDBGridColumn45.Visible:=false;
    dxDBGridColumn46.Visible:=false;

    dxDBGridColumn59.Visible:=false;
    dxDBGridColumn60.Visible:=false;
    dxDBGridColumn61.Visible:=false;
    dxDBGridColumn62.Visible:=false;
    dxDBGridColumn63.Visible:=false;
    dxDBGridColumn64.Visible:=false;
    dxDBGridColumn65.Visible:=false;
    dxDBGridColumn66.Visible:=false;
    dxDBGridColumn67.Visible:=false;
  end;

  if frm_data_share.t_load_employee.FieldByName('应付').asboolean then
  begin
    bsSkinTabSheet3.TabVisible:=true;
    bsSkinTabSheet4.TabVisible:=true;

    dxDBGridColumn26.Visible:=true;
    dxDBGridColumn27.Visible:=true;
    dxDBGridColumn28.Visible:=true;
    dxDBGridColumn29.Visible:=true;
    dxDBGridColumn30.Visible:=true;
    dxDBGridColumn31.Visible:=true;
    dxDBGridColumn32.Visible:=true;
    dxDBGridColumn33.Visible:=true;
    dxDBGridColumn34.Visible:=true;

    dxDBGridColumn47.Visible:=true;
    dxDBGridColumn48.Visible:=true;
    dxDBGridColumn49.Visible:=true;
    dxDBGridColumn50.Visible:=true;
    dxDBGridColumn51.Visible:=true;
    dxDBGridColumn52.Visible:=true;
    dxDBGridColumn53.Visible:=true;
    dxDBGridColumn54.Visible:=true;
    dxDBGridColumn55.Visible:=true;

    dxDBGridColumn68.Visible:=true;
    dxDBGridColumn69.Visible:=true;
    dxDBGridColumn70.Visible:=true;
    dxDBGridColumn71.Visible:=true;
    dxDBGridColumn72.Visible:=true;
    dxDBGridColumn73.Visible:=true;
    dxDBGridColumn74.Visible:=true;
    dxDBGridColumn75.Visible:=true;
    dxDBGridColumn76.Visible:=true;
  end
  else
  begin
    bsSkinTabSheet3.TabVisible:=false;
    bsSkinTabSheet4.TabVisible:=false;

    dxDBGridColumn26.Visible:=false;
    dxDBGridColumn27.Visible:=false;
    dxDBGridColumn28.Visible:=false;
    dxDBGridColumn29.Visible:=false;
    dxDBGridColumn30.Visible:=false;
    dxDBGridColumn31.Visible:=false;
    dxDBGridColumn32.Visible:=false;
    dxDBGridColumn33.Visible:=false;
    dxDBGridColumn34.Visible:=false;

    dxDBGridColumn47.Visible:=false;
    dxDBGridColumn48.Visible:=false;
    dxDBGridColumn49.Visible:=false;
    dxDBGridColumn50.Visible:=false;
    dxDBGridColumn51.Visible:=false;
    dxDBGridColumn52.Visible:=false;
    dxDBGridColumn53.Visible:=false;
    dxDBGridColumn54.Visible:=false;
    dxDBGridColumn55.Visible:=false;

    dxDBGridColumn68.Visible:=false;
    dxDBGridColumn69.Visible:=false;
    dxDBGridColumn70.Visible:=false;
    dxDBGridColumn71.Visible:=false;
    dxDBGridColumn72.Visible:=false;
    dxDBGridColumn73.Visible:=false;
    dxDBGridColumn74.Visible:=false;
    dxDBGridColumn75.Visible:=false;
    dxDBGridColumn76.Visible:=false;
  end;
  if  frm_data_share.t_load_employee.FieldByName('应付').asboolean
  and frm_data_share.t_load_employee.FieldByName('应收').asboolean then
  begin
    dxDBGridColumn35.Visible:=true;
    dxDBGridColumn36.Visible:=true;
    dxDBGridColumn37.Visible:=true;

    dxDBGridColumn56.Visible:=true;
    dxDBGridColumn57.Visible:=true;
    dxDBGridColumn58.Visible:=true;

    dxDBGridColumn77.Visible:=true;
    dxDBGridColumn78.Visible:=true;
    dxDBGridColumn79.Visible:=true;
  end
  else
  begin
    dxDBGridColumn35.Visible:=false;
    dxDBGridColumn36.Visible:=false;
    dxDBGridColumn37.Visible:=false;

    dxDBGridColumn56.Visible:=false;
    dxDBGridColumn57.Visible:=false;
    dxDBGridColumn58.Visible:=false;

    dxDBGridColumn77.Visible:=false;
    dxDBGridColumn78.Visible:=false;
    dxDBGridColumn79.Visible:=false;
  end; 
end;

procedure Tfrm_rp_no_aire.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('空运出口欠费',2,nil,nil,nil,nil,p_accept_bill1,p_accept_fee1,p_pay_bill1,p_pay_fee1,p_total_client1,p_total_sales1,p_total1);
end;

procedure Tfrm_rp_no_aire.bsSkinButton10Click(Sender: TObject);
begin
  try
    frm_rp_aire_query:=tfrm_rp_aire_query.Create (self);
    rp_aire_query_num:=1;
    if bsSkinCheckRadioBox1.Checked then
      rp_aire_query_type:=1
    else if bsSkinCheckRadioBox2.Checked then
      rp_aire_query_type:=2
    else
      rp_aire_query_type:=3;
    rp_aire_query_limited:='0033';
    rp_aire_query_str:='空运出口欠费';
    frm_rp_aire_query.ShowModal;
  finally
    frm_rp_aire_query.Free;
  end;
end;

procedure Tfrm_rp_no_aire.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;
end;

procedure Tfrm_rp_no_aire.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;
end;

procedure Tfrm_rp_no_aire.N12Click(Sender: TObject);
begin
  if bsSkinTabSheet1.showing then
  begin
    update_grid(dxdbgrid1,65);
    exit;
  end;
  if bsSkinTabSheet2.showing then
  begin
    update_grid(dxdbgrid3,66);
    exit;
  end;
  if bsSkinTabSheet3.showing then
  begin
    update_grid(dxdbgrid4,67);
    exit;
  end;
  if bsSkinTabSheet4.showing then
  begin
    update_grid(dxdbgrid5,68);
    exit;
  end;
  if bsSkinTabSheet5.showing then
  begin
    update_grid(dxdbgrid6,69);
    exit;
  end;
  if bsSkinTabSheet6.showing then
  begin
    update_grid(dxdbgrid7,70);
    exit;
  end;
end;

procedure Tfrm_rp_no_aire.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;
end;

procedure Tfrm_rp_no_aire.dxDBGrid1ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_accept_bill,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_aire.dxDBGrid3ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_accept_fee,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_aire.dxDBGrid4ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_pay_bill,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_aire.dxDBGrid5ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_pay_fee,'客户名称,业务编号');
end;

procedure Tfrm_rp_no_aire.dxDBGrid6ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_total_client,'客户名称');
end;

procedure Tfrm_rp_no_aire.dxDBGrid7ColumnSorting(Sender: TObject;
  Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
  Column_sort_pro(Column,p_total_sales,'揽货人');
end;

end.