unit u_sys_grid;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsSkinBoxCtrls, BusinessSkinForm, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid;

type
  Tfrm_sys_grid = class(TForm)
    bsSkinCheckListBox1: TbsSkinCheckListBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure do_grid_design(dxdbgrid:Tdxdbgrid);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_grid: Tfrm_sys_grid;
  sys_grid_num:integer;

implementation

uses u_main, u_data_share, u_op_seae, u_ch_balance_accept, u_ch_balance_pay,
  u_ch_check_check, u_ch_check_shen, u_ch_invoice,
  u_ch_invoice_check, u_ch_invoice_shen, u_ch_fee_sea_sales,
  u_ch_fee_check_seae, u_rp_in_seae, u_op_seae_close, u_rp_no_seae_accept,
  u_rp_rp_seae, u_rp_tai_seae, u_rp_tai_total, u_op_seai,
  u_ch_fee_seai_sales, u_ch_fee_check_seai, u_op_seai_close, u_rp_in_seai,
  u_rp_no_seai, u_rp_tai_seai, u_rp_rp_seai, u_op_aire, u_ch_fee_aire_sales,
  u_ch_fee_check_aire, u_op_aire_close, u_op_airi, u_ch_fee_airi_sales,
  u_ch_fee_check_airi, u_op_airi_close, u_rp_tai_aire, u_rp_tai_airi,
  u_rp_no_aire, u_rp_in_aire, u_rp_in_airi, u_rp_rp_aire, u_rp_rp_airi,
  u_rp_rp_total, u_op_seae_huanhuo, u_rp_fenzhang, u_op_seae_tuishui,
  u_op_seae_qiandan, u_op_truck, u_op_seae_unlock, u_rp_truck_du,
  u_op_seae_apply, u_op_seai_apply, u_rp_ch_fee_state, u_info_lines_manage,
  u_rp_sales_profit, u_op_delhistry, u_op_seae_koudan, u_rp_no_selfno,
  u_rp_drstl_self, u_rp_sales_profit2022;

{$R *.dfm}

procedure Tfrm_sys_grid.do_grid_design(dxdbgrid:Tdxdbgrid);
var
  i,j:integer;
begin
  for i:=0 to bsSkinCheckListBox1.Items.Count-1 do
  begin
    for j:=0 to dxdbgrid.ColumnCount-1 do
    begin
      if dxdbgrid.Columns[j].Caption=bsSkinCheckListBox1.Items[i] then
      begin
        if bsSkinCheckListBox1.Checked[i] then
          dxdbgrid.Columns[j].Visible:=true
        else
          dxdbgrid.Columns[j].Visible:=false;
      end;
    end;
  end;
end;

procedure Tfrm_sys_grid.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_sys_grid.bsSkinButton1Click(Sender: TObject);
begin
    case sys_grid_num of
      1:frm_sys_grid.do_grid_design(frm_op_seae.dxdbgrid1);
      2:frm_sys_grid.do_grid_design(frm_ch_balance_accept.dxdbgrid1);
      3:frm_sys_grid.do_grid_design(frm_ch_balance_pay.dxdbgrid1);
      4:frm_sys_grid.do_grid_design(frm_op_seae_unlock.dxdbgrid1);
      5:frm_sys_grid.do_grid_design(frm_ch_check_check.dxdbgrid1);
      6:frm_sys_grid.do_grid_design(frm_ch_check_shen.dxdbgrid1);
      7:frm_sys_grid.do_grid_design(frm_ch_invoice.dxdbgrid1);
      8:frm_sys_grid.do_grid_design(frm_ch_invoice.dxdbgrid2);
      9:frm_sys_grid.do_grid_design(frm_ch_invoice_check.dxdbgrid1);
      10:frm_sys_grid.do_grid_design(frm_ch_invoice_shen.dxdbgrid1);
      11:frm_sys_grid.do_grid_design(frm_ch_fee_seae_sales.dxdbgrid1);
      12:frm_sys_grid.do_grid_design(frm_ch_fee_check_seae.dxdbgrid1);
      13:frm_sys_grid.do_grid_design(frm_ch_fee_check_seae.dxdbgrid2);
      14:frm_sys_grid.do_grid_design(frm_rp_in_seae.dxdbgrid1);
      15:frm_sys_grid.do_grid_design(frm_op_seae_close.dxdbgrid1);
      115:frm_sys_grid.do_grid_design(frm_op_seae_feeunclose.dxdbgrid1);
      16:frm_sys_grid.do_grid_design(frm_rp_no_seae.dxdbgrid1);
      17:frm_sys_grid.do_grid_design(frm_rp_no_seae.dxdbgrid3);
      18:frm_sys_grid.do_grid_design(frm_rp_no_seae.dxdbgrid4);
      19:frm_sys_grid.do_grid_design(frm_rp_no_seae.dxdbgrid5);
      20:frm_sys_grid.do_grid_design(frm_rp_no_seae.dxdbgrid6);
      21:frm_sys_grid.do_grid_design(frm_rp_no_seae.dxdbgrid7);
      22:frm_sys_grid.do_grid_design(frm_rp_rp_seae.dxdbgrid1);
      23:frm_sys_grid.do_grid_design(frm_rp_rp_seae.dxdbgrid2);
      24:frm_sys_grid.do_grid_design(frm_rp_truck_du.dxdbgrid1);
      25:frm_sys_grid.do_grid_design(frm_op_seae.dxdbgrid2);
      31:frm_sys_grid.do_grid_design(frm_rp_tai_total.dxdbgrid1);
      32:frm_sys_grid.do_grid_design(frm_rp_tai_total.dxdbgrid3);
      33:frm_sys_grid.do_grid_design(frm_rp_tai_total.dxdbgrid4);
      34:frm_sys_grid.do_grid_design(frm_rp_tai_total.dxdbgrid5);
      35:frm_sys_grid.do_grid_design(frm_op_seai.dxdbgrid1);
      36:frm_sys_grid.do_grid_design(frm_ch_fee_seai_sales.dxdbgrid1);
      37:frm_sys_grid.do_grid_design(frm_ch_fee_check_seai.dxdbgrid1);
      38:frm_sys_grid.do_grid_design(frm_op_seai_close.dxdbgrid1);
      39:frm_sys_grid.do_grid_design(frm_rp_in_seai.dxdbgrid1);
      40:frm_sys_grid.do_grid_design(frm_rp_no_seai.dxdbgrid1);
      41:frm_sys_grid.do_grid_design(frm_rp_no_seai.dxdbgrid3);
      42:frm_sys_grid.do_grid_design(frm_rp_no_seai.dxdbgrid4);
      43:frm_sys_grid.do_grid_design(frm_rp_no_seai.dxdbgrid5);
      44:frm_sys_grid.do_grid_design(frm_rp_no_seai.dxdbgrid6);
      45:frm_sys_grid.do_grid_design(frm_rp_no_seai.dxdbgrid7);
      46:frm_sys_grid.do_grid_design(frm_rp_tai_seai.dxdbgrid1);
      47:frm_sys_grid.do_grid_design(frm_rp_rp_seai.dxdbgrid1);
      48:frm_sys_grid.do_grid_design(frm_rp_rp_seai.dxdbgrid2);
      55:frm_sys_grid.do_grid_design(frm_op_aire.dxdbgrid1);
      56:frm_sys_grid.do_grid_design(frm_ch_fee_aire_sales.dxdbgrid1);
      57:frm_sys_grid.do_grid_design(frm_ch_fee_check_aire.dxdbgrid1);
      58:frm_sys_grid.do_grid_design(frm_op_aire_close.dxdbgrid1);
      59:frm_sys_grid.do_grid_design(frm_op_airi.dxdbgrid1);
      60:frm_sys_grid.do_grid_design(frm_ch_fee_airi_sales.dxdbgrid1);
      61:frm_sys_grid.do_grid_design(frm_ch_fee_check_airi.dxdbgrid1);
      62:frm_sys_grid.do_grid_design(frm_op_airi_close.dxdbgrid1);
      63:frm_sys_grid.do_grid_design(frm_rp_tai_aire.dxdbgrid1);
      64:frm_sys_grid.do_grid_design(frm_rp_tai_airi.dxdbgrid1);
      65:frm_sys_grid.do_grid_design(frm_rp_no_aire.dxdbgrid1);
      66:frm_sys_grid.do_grid_design(frm_rp_no_aire.dxdbgrid3);
      67:frm_sys_grid.do_grid_design(frm_rp_no_aire.dxdbgrid4);
      68:frm_sys_grid.do_grid_design(frm_rp_no_aire.dxdbgrid5);
      69:frm_sys_grid.do_grid_design(frm_rp_no_aire.dxdbgrid6);
      70:frm_sys_grid.do_grid_design(frm_rp_no_aire.dxdbgrid7);
      71:frm_sys_grid.do_grid_design(frm_rp_in_aire.dxdbgrid1);
      72:frm_sys_grid.do_grid_design(frm_rp_in_airi.dxdbgrid1);
      73:frm_sys_grid.do_grid_design(frm_rp_rp_aire.dxdbgrid1);
      74:frm_sys_grid.do_grid_design(frm_rp_rp_aire.dxdbgrid2);
      80:frm_sys_grid.do_grid_design(frm_rp_rp_airi.dxdbgrid1);
      81:frm_sys_grid.do_grid_design(frm_rp_rp_airi.dxdbgrid2);
      87:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid1);
      88:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid2);
      89:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid3);
      90:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid4);
      91:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid5);
      92:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid6);
      93:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid7);
      94:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid8);
      95:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid9);
      96:frm_sys_grid.do_grid_design(frm_op_seae_huanhuo.dxdbgrid1);
      97:frm_sys_grid.do_grid_design(frm_rp_fenzhang.dxdbgrid1);
      98:frm_sys_grid.do_grid_design(frm_op_seae_tuishui.dxdbgrid1);
      99:frm_sys_grid.do_grid_design(frm_op_seae_qiandan.dxdbgrid1);
      100:frm_sys_grid.do_grid_design(frm_op_truck.dxdbgrid1);
      101:frm_sys_grid.do_grid_design(frm_op_seae_apply.dxdbgrid1);
      102:frm_sys_grid.do_grid_design(frm_op_seai_apply.dxdbgrid1);
      103:frm_sys_grid.do_grid_design(frm_rp_ch_fee_state.dxdbgrid1);
      104:frm_sys_grid.do_grid_design(frm_rp_ch_fee_state.dxdbgrid3);
      105:frm_sys_grid.do_grid_design(frm_rp_ch_fee_state.dxdbgrid4);
      106:frm_sys_grid.do_grid_design(frm_rp_ch_fee_state.dxdbgrid5);
      107:frm_sys_grid.do_grid_design(frm_info_lines_manage.dxdbgrid1);
      108:frm_sys_grid.do_grid_design(frm_rp_sales_profit.dxdbgrid1);
      109:frm_sys_grid.do_grid_design(frm_rp_sales_profit.dxdbgrid2);
      110:frm_sys_grid.do_grid_design(frm_rp_sales_profit.dxdbgrid3);
      111:frm_sys_grid.do_grid_design(frm_rp_sales_profit.dxdbgrid4);
      112:frm_sys_grid.do_grid_design(frm_rp_sales_profit.dxdbgrid7);
      113:frm_sys_grid.do_grid_design(frm_op_delhistry.dxdbgrid1);
      199:frm_sys_grid.do_grid_design(frm_op_seae_koudan.dxdbgrid1);
      200:frm_sys_grid.do_grid_design(frm_rp_no_selfno.dxdbgrid7);
      201:frm_sys_grid.do_grid_design(frm_rp_no_selfno.dxdbgrid5);
      211:frm_sys_grid.do_grid_design(frm_rp_sales_profit2022.dxdbgrid1);
      212:frm_sys_grid.do_grid_design(frm_rp_sales_profit2022.dxdbgrid2);
      220:frm_sys_grid.do_grid_design(frm_rp_drstl_self.dxdbgrid7);               
      221:frm_sys_grid.do_grid_design(frm_rp_drstl_self.dxdbgrid1);
    end;
  close;
end;

end.