You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
181 lines
8.9 KiB
Plaintext
181 lines
8.9 KiB
Plaintext
11 months ago
|
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.
|