hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DS6JIEFENG/公用模块/系统模块/u_sys_grid.~pas

298 lines
13 KiB
Plaintext
Raw Permalink Blame History

{$INCLUDE t_main.inc}
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);
procedure do_grid_design_band(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,
{$IFDEF FFLIUCHENG}u_ch_check_check, u_ch_check_shen,{$ENDIF}
u_ch_invoice,
{$IFDEF FPSHENQING}u_ch_invoice_check,u_ch_invoice_shen,{$ENDIF}
{$IFDEF XSGUANLI}
u_ch_fee_sea_sales,u_ch_fee_seai_sales, u_rp_sales_profitLcx,
{$ENDIF}
u_ch_fee_check_seae, u_rp_in_seae, u_op_seae_close, u_rp_no_seae_accept,
u_rp_rp_seae,
{$IFDEF YWTAIZHANG}
u_rp_tai_seae, u_rp_tai_total,u_rp_tai_seai,
{$ENDIF}
{$IFDEF TBQITA}
u_rp_fen_seae,
{$ENDIF}
u_op_seai,
u_ch_fee_check_seai, u_op_seai_close, u_rp_in_seai,
u_rp_no_seai, u_rp_rp_seai,
u_rp_rp_total, {$IFDEF PXHUANHUO}u_op_seae_huanhuo, {$ENDIF}{$IFDEF DLFENZHANG}u_rp_fenzhang,u_rp_rp_sea_daili,{$ENDIF} {$IFDEF TSQUEREN}u_op_seae_tuishui,{$ENDIF}
{$IFDEF QDQUEREN}u_op_seae_qiandan, {$ENDIF}u_op_truck, u_op_seae_unlock,
{$IFDEF SJBAOGUAN}u_op_seae_apply, u_op_seai_apply,{$ENDIF} {$IFDEF FYZHUANGTAI} u_rp_ch_fee_state,{$ENDIF} {$IFDEF ZHMXTONGJI}u_rp_ch_total,{$ENDIF}
u_op_seae_card, U_ch_prnFee,
{$IFDEF GYSHANG}u_rp_apply_no,{$ENDIF} u_info_bunk,
U_rp_fee_outamt, {$IFDEF ZHYDTONGJI}u_rp_rp_monthtotal, {$ENDIF}u_rp_fen_total,
{$IFDEF QFYDFENXI}u_rp_no_monthtotal,{$ENDIF}u_rp_no_total,
U_op_state_view, u_op_seae_web_order, u_op_seai_order, u_rp_truck_no,
u_op_seae_weituo, u_op_seae_list,u_op_fee, u_op_seae_dg,
u_rp_tai_total_op, u_rp_dg_except ;
{$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);
{$IFDEF FFLIUCHENG}
5:frm_sys_grid.do_grid_design(frm_ch_check_check.dxdbgrid1);
6:frm_sys_grid.do_grid_design(frm_ch_check_shen.dxdbgrid1);
{$ENDIF}
7:frm_sys_grid.do_grid_design(frm_ch_invoice.dxdbgrid1);
8:frm_sys_grid.do_grid_design(frm_ch_invoice.dxdbgrid2);
{$IFDEF FPSHENQING}
9:frm_sys_grid.do_grid_design(frm_ch_invoice_check.dxdbgrid1);
10:frm_sys_grid.do_grid_design(frm_ch_invoice_shen.dxdbgrid1);
{$ENDIF}
{$IFDEF XSGUANLI}
11:frm_sys_grid.do_grid_design(frm_ch_fee_seae_sales.dxdbgrid1);
36:frm_sys_grid.do_grid_design(frm_ch_fee_seai_sales.dxdbgrid1);
// 56:frm_sys_grid.do_grid_design(frm_ch_fee_aire_sales.dxdbgrid1);
// 60:frm_sys_grid.do_grid_design(frm_ch_fee_airi_sales.dxdbgrid1);
111:frm_sys_grid.do_grid_design(frm_rp_sales_profitLcx.dxdbgrid1);
{$ENDIF}
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);
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);
{$IFDEF YWTAIZHANG}
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);
341:frm_sys_grid.do_grid_design(frm_rp_tai_total.dxdbgrid6);
342:frm_sys_grid.do_grid_design(frm_rp_tai_total.dxdbgrid7);
331:frm_sys_grid.do_grid_design(frm_rp_tai_total_op.dxdbgrid1);
332:frm_sys_grid.do_grid_design(frm_rp_tai_total_op.dxdbgrid3);
333:frm_sys_grid.do_grid_design(frm_rp_tai_total_op.dxdbgrid4);
334:frm_sys_grid.do_grid_design(frm_rp_tai_total_op.dxdbgrid5);
3341:frm_sys_grid.do_grid_design(frm_rp_tai_total_op.dxdbgrid6);
3342:frm_sys_grid.do_grid_design(frm_rp_tai_total_op.dxdbgrid7);
46:frm_sys_grid.do_grid_design(frm_rp_tai_seai.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);
{$ENDIF}
35:frm_sys_grid.do_grid_design(frm_op_seai.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);
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);
// 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);
// 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);
{
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);
951:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid10);
952:frm_sys_grid.do_grid_design(frm_rp_rp_total.dxdbgrid23);
{$IFDEF PXHUANHUO}
96:frm_sys_grid.do_grid_design(frm_op_seae_huanhuo.dxdbgrid1);
{$ENDIF}
{$IFDEF DLFENZHANG}
97:frm_sys_grid.do_grid_design(frm_rp_fenzhang.dxdbgrid1);
109:frm_sys_grid.do_grid_design(frm_rp_rp_sea_daili.dxdbgrid1);
{$ENDIF}
{$IFDEF TSQUEREN}
98:frm_sys_grid.do_grid_design(frm_op_seae_tuishui.dxdbgrid1);
{$ENDIF}
{$IFDEF QDQUEREN}
99:frm_sys_grid.do_grid_design(frm_op_seae_qiandan.dxdbgrid1);
{$ENDIF}
100:frm_sys_grid.do_grid_design(frm_op_truck.dxdbgrid1);
{$IFDEF SJBAOGUAN}
101:frm_sys_grid.do_grid_design(frm_op_seae_apply.dxdbgrid1);
102:frm_sys_grid.do_grid_design(frm_op_seai_apply.dxdbgrid1);
{$ENDIF}
{$IFDEF FYZHUANGTAI}
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);
{$ENDIF}
{$IFDEF ZHMXTONGJI}
107:frm_sys_grid.do_grid_design(frm_rp_ch_total.dxdbgrid5);
108:frm_sys_grid.do_grid_design(frm_rp_ch_total.dxdbgrid6);
{$ENDIF}
110:frm_sys_grid.do_grid_design(frm_op_seae_card.dxdbgrid1);
112:frm_sys_grid.do_grid_design(frm_cw_prnFee.dxdbgrid1);
115:frm_sys_grid.do_grid_design(frm_info_bunk.dxdbgrid1);
{$IFDEF GYSHANG}
113:frm_sys_grid.do_grid_design(frm_rp_apply_no.dxdbgrid1);
117:frm_sys_grid.do_grid_design(frm_rp_truck_no.dxdbgrid1);
{$ENDIF}
118:frm_sys_grid.do_grid_design(frm_rp_ch_OutAmt.dxdbgrid8);
119:frm_sys_grid.do_grid_design(frm_rp_ch_OutAmt.dxdbgrid2);
120:frm_sys_grid.do_grid_design(frm_rp_ch_OutAmt.dxdbgrid1);
121:frm_sys_grid.do_grid_design(frm_rp_fen_total.dxdbgrid1);
{$IFDEF TBQITA}
122:frm_sys_grid.do_grid_design(frm_rp_fen_seae.dxdbgrid2);
{$ENDIF}
123:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid1);
124:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid2);
125:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid3);
126:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid4);
127:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid5);
128:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid6);
129:frm_sys_grid.do_grid_design(frm_rp_no_total.dxdbgrid7);
{$IFDEF QFYDFENXI}
130:frm_sys_grid.do_grid_design(frm_rp_no_monthtotal.dxdbgrid2);
{$ENDIF}
{$IFDEF ZHYDTONGJI}
187:frm_sys_grid.do_grid_design(frm_rp_rp_monthtotal.dxdbgrid1);
188:frm_sys_grid.do_grid_design(frm_rp_rp_monthtotal.dxdbgrid2);
189:frm_sys_grid.do_grid_design(frm_rp_rp_monthtotal.dxdbgrid3);
190:frm_sys_grid.do_grid_design(frm_rp_rp_monthtotal.dxdbgrid4);
191:frm_sys_grid.do_grid_design(frm_rp_rp_monthtotal.dxdbgrid5);
{$ENDIF}
{$IFDEF YJGUANLI}
// 116:frm_sys_grid.do_grid_design_band(frm_info_price_manage.dxdbgrid1);
{$ENDIF}
201:frm_sys_grid.do_grid_design(frm_op_state_view.dxdbgrid1);
202:frm_sys_grid.do_grid_design(frm_op_seae_web_order.dxdbgrid1);
203:frm_sys_grid.do_grid_design(frm_op_seai_order.dxdbgrid1);
204:frm_sys_grid.do_grid_design(frm_op_aire_order.dxdbgrid1);
205:frm_sys_grid.do_grid_design(frm_op_airi_order.dxdbgrid1);
// 206:frm_sys_grid.do_grid_design(frm_op_railway.dxdbgrid1);
// 207:frm_sys_grid.do_grid_design(frm_op_railway.dxdbgrid2);
// 208:frm_sys_grid.do_grid_design(frm_op_railway_close.dxdbgrid1);
209:frm_sys_grid.do_grid_design(frm_op_seae_weituo.dxdbgrid1);
210:frm_sys_grid.do_grid_design(frm_op_seae_list.dxdbgrid1);
211:frm_sys_grid.do_grid_design(frm_op_fee.dxdbgrid1);
212:frm_sys_grid.do_grid_design(frm_op_seae_dg.dxdbgrid1);
213:frm_sys_grid.do_grid_design(frm_rp_dg_except.dxdbgrid1);
end;
close;
end;
procedure Tfrm_sys_grid.do_grid_design_band(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=copy(bsSkinCheckListBox1.Items[i],
pos('-',bsSkinCheckListBox1.Items[j])+1,
length(bsSkinCheckListBox1.Items[j])) then
begin
if bsSkinCheckListBox1.Checked[i] then
dxdbgrid.Columns[j].Visible:=true
else
dxdbgrid.Columns[j].Visible:=false;
end;
end;
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink