unit u_rp_no_seae_accept; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, dxExEdtr, dxDBGrid, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, bsSkinCtrls, ADODB, DB, StdCtrls, XPMenu, Menus, DBClient, Provider; type Tfrm_rp_no_seae = class(TForm) Panel1: TPanel; bsSkinPanel2: TbsSkinPanel; bsSkinButton10: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton1: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; bsSkinCheckRadioBox3: TbsSkinCheckRadioBox; dxDBGrid1: TdxDBGrid; p_accept_bill: TADOStoredProc; p_accept_fee: TADOStoredProc; p_accept_fee1: TDataSource; p_accept_bill1: TDataSource; bsSkinTabSheet3: TbsSkinTabSheet; bsSkinTabSheet4: TbsSkinTabSheet; p_pay_fee1: TDataSource; p_pay_fee: TADOStoredProc; p_pay_bill: TADOStoredProc; p_pay_bill1: TDataSource; p_total1: TDataSource; p_total: TADOStoredProc; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridDateColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridMaskColumn; dxDBGrid1Column16: TdxDBGridMaskColumn; dxDBGrid1Column18: TdxDBGridMaskColumn; dxDBGrid1Column19: TdxDBGridMaskColumn; dxDBGrid1Column20: TdxDBGridMaskColumn; dxDBGrid1Column21: TdxDBGridMaskColumn; dxDBGrid1Column22: TdxDBGridDateColumn; dxDBGrid1Column23: TdxDBGridMaskColumn; dxDBGrid1Column24: TdxDBGridMaskColumn; dxDBGrid1Column25: TdxDBGridMaskColumn; dxDBGrid1Column26: TdxDBGridMaskColumn; dxDBGrid1Column27: TdxDBGridMaskColumn; dxDBGrid11: TdxDBGridMaskColumn; dxDBGrid12: TdxDBGridMaskColumn; dxDBGrid13: TdxDBGridMaskColumn; dxDBGrid14: TdxDBGridMaskColumn; dxDBGrid15: TdxDBGridMaskColumn; dxDBGrid16: TdxDBGridMaskColumn; dxDBGrid17: TdxDBGridMaskColumn; dxDBGrid18: TdxDBGridMaskColumn; dxDBGrid19: TdxDBGridMaskColumn; dxDBGrid110: TdxDBGridMaskColumn; dxDBGrid1Column50: TdxDBGridMaskColumn; dxDBGrid1TEU: TdxDBGridMaskColumn; dxDBGrid1Column52: TdxDBGridMaskColumn; dxDBGrid1Column53: TdxDBGridMaskColumn; dxDBGrid1Column54: TdxDBGridMaskColumn; dxDBGrid1Column55: TdxDBGridMaskColumn; dxDBGrid1Column56: TdxDBGridMaskColumn; dxDBGrid1Column57: TdxDBGridMaskColumn; dxDBGrid1Column58: TdxDBGridMaskColumn; dxDBGrid1Column59: TdxDBGridMaskColumn; dxDBGrid1Column60: TdxDBGridMaskColumn; dxDBGrid1USD: TdxDBGridColumn; dxDBGrid1Column3: TdxDBGridColumn; dxDBGrid1Column4: TdxDBGridColumn; dxDBGrid1RMB: TdxDBGridColumn; dxDBGrid1Column6: TdxDBGridColumn; dxDBGrid1Column7: TdxDBGridColumn; dxDBGrid1Column8: TdxDBGridColumn; dxDBGrid1Column9: TdxDBGridColumn; dxDBGrid1Column10: TdxDBGridColumn; dxDBGrid1Column28: TdxDBGridColumn; dxDBGrid1Column29: TdxDBGridColumn; dxDBGrid3: TdxDBGrid; dxDBGrid3Column1: TdxDBGridMaskColumn; dxDBGrid3Column2: TdxDBGridMaskColumn; dxDBGrid3Column3: TdxDBGridMaskColumn; dxDBGrid3Column4: TdxDBGridMaskColumn; dxDBGrid3Column5: TdxDBGridMaskColumn; dxDBGrid3Column6: TdxDBGridMaskColumn; dxDBGrid3Column7: TdxDBGridMaskColumn; dxDBGrid3Column11: TdxDBGridDateColumn; dxDBGrid3Column12: TdxDBGridMaskColumn; dxDBGrid3Column13: TdxDBGridMaskColumn; dxDBGrid3Column15: TdxDBGridMaskColumn; dxDBGrid3Column16: TdxDBGridMaskColumn; dxDBGrid3Column17: TdxDBGridMaskColumn; dxDBGrid3Column18: TdxDBGridMaskColumn; dxDBGrid3Column19: TdxDBGridDateColumn; dxDBGrid3Column20: TdxDBGridMaskColumn; dxDBGrid3Column21: TdxDBGridMaskColumn; dxDBGrid3Column22: TdxDBGridMaskColumn; dxDBGrid3Column23: TdxDBGridMaskColumn; dxDBGrid3Column24: TdxDBGridMaskColumn; dxDBGrid31: TdxDBGridMaskColumn; dxDBGrid32: TdxDBGridMaskColumn; dxDBGrid33: TdxDBGridMaskColumn; dxDBGrid34: TdxDBGridMaskColumn; dxDBGrid35: TdxDBGridMaskColumn; dxDBGrid36: TdxDBGridMaskColumn; dxDBGrid37: TdxDBGridMaskColumn; dxDBGrid38: TdxDBGridMaskColumn; dxDBGrid39: TdxDBGridMaskColumn; dxDBGrid310: TdxDBGridMaskColumn; dxDBGrid3Column47: TdxDBGridMaskColumn; dxDBGrid3TEU: TdxDBGridMaskColumn; dxDBGrid3Column49: TdxDBGridMaskColumn; dxDBGrid3Column50: TdxDBGridMaskColumn; dxDBGrid3Column51: TdxDBGridMaskColumn; dxDBGrid3Column52: TdxDBGridMaskColumn; dxDBGrid3Column53: TdxDBGridMaskColumn; dxDBGrid3Column54: TdxDBGridMaskColumn; dxDBGrid3Column55: TdxDBGridMaskColumn; dxDBGrid3Column56: TdxDBGridMaskColumn; dxDBGrid3Column8: TdxDBGridColumn; dxDBGrid3Column9: TdxDBGridColumn; dxDBGrid3Column10: TdxDBGridColumn; dxDBGrid3Column25: TdxDBGridColumn; dxDBGrid3Column26: TdxDBGridColumn; dxDBGrid5: TdxDBGrid; dxDBGridMaskColumn47: TdxDBGridMaskColumn; dxDBGridMaskColumn48: TdxDBGridMaskColumn; dxDBGridMaskColumn49: TdxDBGridMaskColumn; dxDBGridMaskColumn50: TdxDBGridMaskColumn; dxDBGridMaskColumn51: TdxDBGridMaskColumn; dxDBGridMaskColumn52: TdxDBGridMaskColumn; dxDBGridMaskColumn53: TdxDBGridMaskColumn; dxDBGridColumn12: TdxDBGridColumn; dxDBGridColumn13: TdxDBGridColumn; dxDBGridColumn14: TdxDBGridColumn; dxDBGridDateColumn3: TdxDBGridDateColumn; dxDBGridMaskColumn54: TdxDBGridMaskColumn; dxDBGridMaskColumn55: TdxDBGridMaskColumn; dxDBGridMaskColumn56: TdxDBGridMaskColumn; dxDBGridMaskColumn57: TdxDBGridMaskColumn; dxDBGridMaskColumn58: TdxDBGridMaskColumn; dxDBGridMaskColumn59: TdxDBGridMaskColumn; dxDBGridDateColumn4: TdxDBGridDateColumn; dxDBGridMaskColumn60: TdxDBGridMaskColumn; dxDBGridMaskColumn61: TdxDBGridMaskColumn; dxDBGridMaskColumn62: TdxDBGridMaskColumn; dxDBGridMaskColumn63: TdxDBGridMaskColumn; dxDBGridMaskColumn64: TdxDBGridMaskColumn; dxDBGridColumn15: TdxDBGridColumn; dxDBGridColumn16: TdxDBGridColumn; dxDBGridMaskColumn65: TdxDBGridMaskColumn; dxDBGridMaskColumn66: TdxDBGridMaskColumn; dxDBGridMaskColumn67: TdxDBGridMaskColumn; dxDBGridMaskColumn68: TdxDBGridMaskColumn; dxDBGridMaskColumn69: TdxDBGridMaskColumn; dxDBGridMaskColumn70: TdxDBGridMaskColumn; dxDBGridMaskColumn71: TdxDBGridMaskColumn; dxDBGridMaskColumn72: TdxDBGridMaskColumn; dxDBGridMaskColumn73: TdxDBGridMaskColumn; dxDBGridMaskColumn74: TdxDBGridMaskColumn; dxDBGridMaskColumn85: TdxDBGridMaskColumn; dxDBGridMaskColumn86: TdxDBGridMaskColumn; dxDBGridMaskColumn87: TdxDBGridMaskColumn; dxDBGridMaskColumn88: TdxDBGridMaskColumn; dxDBGridMaskColumn89: TdxDBGridMaskColumn; dxDBGridMaskColumn90: TdxDBGridMaskColumn; dxDBGridMaskColumn91: TdxDBGridMaskColumn; dxDBGridMaskColumn92: TdxDBGridMaskColumn; dxDBGridMaskColumn93: TdxDBGridMaskColumn; dxDBGridMaskColumn94: TdxDBGridMaskColumn; bsSkinTabSheet5: TbsSkinTabSheet; bsSkinTabSheet6: TbsSkinTabSheet; p_total_client: TADOStoredProc; p_total_client1: TDataSource; p_total_sales: TADOStoredProc; p_total_sales1: TDataSource; 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; 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; 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; SaveDialog: TSaveDialog; dxDBGrid1Column61: TdxDBGridColumn; dxDBGrid1Column62: TdxDBGridColumn; dxDBGrid3Column57: TdxDBGridColumn; dxDBGrid3Column58: TdxDBGridColumn; dxDBGrid5Column56: TdxDBGridColumn; dxDBGrid5Column57: TdxDBGridColumn; dxDBGrid1Column63: TdxDBGridColumn; dxDBGrid3Column59: TdxDBGridColumn; dxDBGrid5Column58: TdxDBGridColumn; PopupMenu2: TPopupMenu; N10: TMenuItem; N11: TMenuItem; N14: TMenuItem; N13: TMenuItem; N12: TMenuItem; N15: TMenuItem; N16: TMenuItem; XPMenu1: TXPMenu; dxDBGrid1Column64: TdxDBGridColumn; dxDBGrid1Column65: TdxDBGridColumn; dxDBGrid1Column66: TdxDBGridColumn; dxDBGrid1Column67: TdxDBGridColumn; dxDBGrid3Column60: TdxDBGridColumn; dxDBGrid3Column61: TdxDBGridColumn; dxDBGrid3Column62: TdxDBGridColumn; dxDBGrid3Column63: TdxDBGridColumn; dxDBGrid5Column49: TdxDBGridColumn; dxDBGrid5Column50: TdxDBGridColumn; dxDBGrid5Column51: TdxDBGridColumn; dxDBGrid5Column52: TdxDBGridColumn; dxDBGrid1Column68: TdxDBGridColumn; dxDBGrid1Column69: TdxDBGridColumn; dxDBGrid3Column64: TdxDBGridColumn; dxDBGrid3Column65: TdxDBGridColumn; dxDBGrid5Column53: TdxDBGridColumn; dxDBGrid5Column54: TdxDBGridColumn; dxDBGrid4: TdxDBGrid; dxDBGridMaskColumn1: TdxDBGridMaskColumn; dxDBGridMaskColumn2: TdxDBGridMaskColumn; dxDBGridMaskColumn3: TdxDBGridMaskColumn; dxDBGridMaskColumn4: TdxDBGridMaskColumn; dxDBGridMaskColumn5: TdxDBGridMaskColumn; dxDBGridColumn5: TdxDBGridColumn; dxDBGridColumn6: TdxDBGridColumn; dxDBGridColumn7: TdxDBGridColumn; dxDBGridColumn8: TdxDBGridColumn; dxDBGridColumn9: TdxDBGridColumn; dxDBGridColumn10: TdxDBGridColumn; dxDBGridColumn11: TdxDBGridColumn; dxDBGridColumn80: TdxDBGridColumn; dxDBGridColumn81: TdxDBGridColumn; dxDBGridDateColumn1: TdxDBGridDateColumn; dxDBGridColumn82: TdxDBGridColumn; dxDBGridMaskColumn6: TdxDBGridMaskColumn; dxDBGridMaskColumn7: TdxDBGridMaskColumn; dxDBGridMaskColumn8: TdxDBGridMaskColumn; dxDBGridMaskColumn9: TdxDBGridMaskColumn; dxDBGridMaskColumn10: TdxDBGridMaskColumn; dxDBGridMaskColumn11: TdxDBGridMaskColumn; dxDBGridDateColumn2: TdxDBGridDateColumn; dxDBGridMaskColumn12: TdxDBGridMaskColumn; dxDBGridMaskColumn13: TdxDBGridMaskColumn; dxDBGridMaskColumn14: TdxDBGridMaskColumn; dxDBGridMaskColumn15: TdxDBGridMaskColumn; dxDBGridMaskColumn16: TdxDBGridMaskColumn; dxDBGridColumn83: TdxDBGridColumn; dxDBGridColumn84: TdxDBGridColumn; dxDBGridMaskColumn17: TdxDBGridMaskColumn; dxDBGridMaskColumn18: TdxDBGridMaskColumn; dxDBGridMaskColumn19: TdxDBGridMaskColumn; dxDBGridMaskColumn20: TdxDBGridMaskColumn; dxDBGridMaskColumn21: TdxDBGridMaskColumn; dxDBGridMaskColumn22: TdxDBGridMaskColumn; dxDBGridMaskColumn23: TdxDBGridMaskColumn; dxDBGridMaskColumn24: TdxDBGridMaskColumn; dxDBGridMaskColumn25: TdxDBGridMaskColumn; dxDBGridMaskColumn26: TdxDBGridMaskColumn; dxDBGridMaskColumn27: TdxDBGridMaskColumn; dxDBGridMaskColumn28: TdxDBGridMaskColumn; dxDBGridMaskColumn29: TdxDBGridMaskColumn; dxDBGridMaskColumn30: TdxDBGridMaskColumn; dxDBGridMaskColumn31: TdxDBGridMaskColumn; dxDBGridMaskColumn32: TdxDBGridMaskColumn; dxDBGridMaskColumn33: TdxDBGridMaskColumn; dxDBGridMaskColumn34: TdxDBGridMaskColumn; dxDBGridMaskColumn35: TdxDBGridMaskColumn; dxDBGridMaskColumn36: TdxDBGridMaskColumn; dxDBGridColumn85: TdxDBGridColumn; dxDBGridColumn86: TdxDBGridColumn; dxDBGridColumn87: TdxDBGridColumn; dxDBGridColumn88: TdxDBGridColumn; dxDBGrid1Column70: TdxDBGridColumn; dxDBGrid1Column71: TdxDBGridColumn; dxDBGrid1Column72: TdxDBGridColumn; dxDBGrid1Column73: TdxDBGridColumn; dxDBGrid4Column55: TdxDBGridColumn; dxDBGrid4Column56: TdxDBGridColumn; dxDBGrid4Column57: TdxDBGridColumn; dxDBGrid4Column58: 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); procedure dxDBGrid1DblClick(Sender: TObject); procedure dxDBGrid3DblClick(Sender: TObject); procedure dxDBGrid4DblClick(Sender: TObject); procedure dxDBGrid5DblClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_rp_no_seae: Tfrm_rp_no_seae; implementation uses u_main, my_sys_function,u_data_share, u_rp_seae_query; {$R *.dfm} procedure Tfrm_rp_no_seae.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_rp_no_seae.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_seae.Hide; frm_rp_no_seae.ManualFloat(frm_rp_no_seae.BoundsRect ); frm_main.freeTabs('frm_rp_no_seae'); action:=cafree; frm_rp_no_seae:=nil; end; procedure Tfrm_rp_no_seae.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_seae.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_seae.FormShow(Sender: TObject); begin loadreggrid(dxdbgrid1,true,caption+'1'); loadreggrid(dxdbgrid3,true,caption+'3'); loadreggrid(dxdbgrid4,true,caption+'4'); loadreggrid(dxdbgrid5,true,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_seae.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_seae.bsSkinButton10Click(Sender: TObject); begin try frm_rp_seae_query:=tfrm_rp_seae_query.Create (self); rp_seae_query_num:=1; if bsSkinCheckRadioBox1.Checked then rp_seae_query_type:=1 else if bsSkinCheckRadioBox2.Checked then rp_seae_query_type:=2 else rp_seae_query_type:=3; // rp_seae_query_limited:='0033'; rp_seae_query_limited:='no'; rp_seae_query_str:='海运出口欠费'; frm_rp_seae_query.ShowModal; finally frm_rp_seae_query.Free; end; end; procedure Tfrm_rp_no_seae.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_seae.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_seae.N12Click(Sender: TObject); begin if bsSkinTabSheet1.showing then begin update_grid(dxdbgrid1,16); exit; end; if bsSkinTabSheet2.showing then begin update_grid(dxdbgrid3,17); exit; end; if bsSkinTabSheet3.showing then begin update_grid(dxdbgrid4,18); exit; end; if bsSkinTabSheet4.showing then begin update_grid(dxdbgrid5,19); exit; end; if bsSkinTabSheet5.showing then begin update_grid(dxdbgrid6,20); exit; end; if bsSkinTabSheet6.showing then begin update_grid(dxdbgrid7,21); exit; end; end; procedure Tfrm_rp_no_seae.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_seae.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_accept_bill,'客户名称,业务编号'); end; procedure Tfrm_rp_no_seae.dxDBGrid3ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_accept_fee,'客户名称,业务编号'); end; procedure Tfrm_rp_no_seae.dxDBGrid4ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_pay_bill,'客户名称,业务编号'); end; procedure Tfrm_rp_no_seae.dxDBGrid5ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_pay_fee,'客户名称,业务编号'); end; procedure Tfrm_rp_no_seae.dxDBGrid6ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_total_client,'客户名称'); end; procedure Tfrm_rp_no_seae.dxDBGrid7ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_total_sales,'揽货人'); end; procedure Tfrm_rp_no_seae.dxDBGrid1DblClick(Sender: TObject); begin fee_view(p_accept_bill.fieldbyname('编号').asstring); end; procedure Tfrm_rp_no_seae.dxDBGrid3DblClick(Sender: TObject); begin fee_view(p_accept_fee.fieldbyname('编号').asstring); end; procedure Tfrm_rp_no_seae.dxDBGrid4DblClick(Sender: TObject); begin fee_view(p_pay_bill.fieldbyname('编号').asstring); end; procedure Tfrm_rp_no_seae.dxDBGrid5DblClick(Sender: TObject); begin fee_view(p_pay_fee.fieldbyname('编号').asstring); end; end.