unit u_rp_fee_modify; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, bsSkinTabs, bsSkinCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, StdCtrls, DBCtrls, Mask, RxLookup, wwdbdatetimepicker; type Tfrm_rp_fee_modify = class(TForm) Panel1: TPanel; bsSkinPageControl1: TbsSkinPageControl; bsSkinPanel2: TbsSkinPanel; bsSkinButton10: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinTabSheet3: TbsSkinTabSheet; bsSkinTabSheet4: TbsSkinTabSheet; p_seae: TADOStoredProc; p_seae1: TDataSource; t_ch_fee_modify: TADOQuery; t_ch_fee_modify1: TDataSource; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridDateColumn; dxDBGrid1Column5: TdxDBGridMaskColumn; dxDBGrid1Column6: TdxDBGridMaskColumn; dxDBGrid1Column7: TdxDBGridMaskColumn; dxDBGrid1Column8: TdxDBGridMaskColumn; dxDBGrid1Column9: TdxDBGridDateColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridMaskColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; p_seai: TADOStoredProc; p_seai1: TDataSource; dxDBGrid3: TdxDBGrid; dxDBGridMaskColumn1: TdxDBGridMaskColumn; dxDBGridMaskColumn2: TdxDBGridMaskColumn; dxDBGridMaskColumn3: TdxDBGridMaskColumn; dxDBGridDateColumn1: TdxDBGridDateColumn; dxDBGridDateColumn2: TdxDBGridDateColumn; dxDBGridMaskColumn4: TdxDBGridMaskColumn; dxDBGridMaskColumn5: TdxDBGridMaskColumn; dxDBGridMaskColumn6: TdxDBGridMaskColumn; dxDBGridMaskColumn7: TdxDBGridMaskColumn; dxDBGridMaskColumn8: TdxDBGridMaskColumn; dxDBGridMaskColumn9: TdxDBGridMaskColumn; dxDBGridMaskColumn10: TdxDBGridMaskColumn; dxDBGridMaskColumn11: TdxDBGridMaskColumn; dxDBGridMaskColumn12: TdxDBGridMaskColumn; p_aire: TADOStoredProc; p_aire1: TDataSource; p_airi: TADOStoredProc; p_airi1: TDataSource; dxDBGrid4: TdxDBGrid; dxDBGridMaskColumn13: TdxDBGridMaskColumn; dxDBGridMaskColumn14: TdxDBGridMaskColumn; dxDBGridMaskColumn15: TdxDBGridMaskColumn; dxDBGridDateColumn3: TdxDBGridDateColumn; dxDBGridDateColumn4: TdxDBGridDateColumn; dxDBGridMaskColumn17: TdxDBGridMaskColumn; dxDBGridMaskColumn18: TdxDBGridMaskColumn; dxDBGridMaskColumn20: TdxDBGridMaskColumn; dxDBGridMaskColumn22: TdxDBGridMaskColumn; dxDBGridMaskColumn23: TdxDBGridMaskColumn; dxDBGridMaskColumn24: TdxDBGridMaskColumn; dxDBGrid4Column15: TdxDBGridColumn; dxDBGrid5: TdxDBGrid; dxDBGridMaskColumn16: TdxDBGridMaskColumn; dxDBGridMaskColumn19: TdxDBGridMaskColumn; dxDBGridColumn1: TdxDBGridColumn; dxDBGridMaskColumn21: TdxDBGridMaskColumn; dxDBGridDateColumn5: TdxDBGridDateColumn; dxDBGridDateColumn6: TdxDBGridDateColumn; dxDBGridMaskColumn25: TdxDBGridMaskColumn; dxDBGridMaskColumn26: TdxDBGridMaskColumn; dxDBGridMaskColumn27: TdxDBGridMaskColumn; dxDBGridMaskColumn28: TdxDBGridMaskColumn; dxDBGridMaskColumn29: TdxDBGridMaskColumn; dxDBGridMaskColumn30: TdxDBGridMaskColumn; bsSkinGroupBox1: TbsSkinGroupBox; dxDBGrid2: TdxDBGrid; dxDBGrid2Column1: TdxDBGridMaskColumn; dxDBGrid2Column3: TdxDBGridMaskColumn; dxDBGrid2Column5: TdxDBGridMaskColumn; dxDBGrid2Column12: TdxDBGridDateColumn; dxDBGrid2Column13: TdxDBGridMaskColumn; dxDBGrid2Column14: TdxDBGridDateColumn; dxDBGrid2Column4: TdxDBGridMaskColumn; a_shen_delete: TADOQuery; a_shen_delete1: TDataSource; a_shen_modify_old: TADOQuery; a_shen_modify_old1: TDataSource; a_shen_modify_new: TADOQuery; a_shen_modify_new1: TDataSource; a_modify_old: TbsSkinGroupBox; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Label1: TLabel; Label2: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDBEdit; DBEdit8: TDBEdit; DBEdit35: TDBEdit; DBEdit36: TDBEdit; a_modify_new: TbsSkinGroupBox; Label16: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label24: TLabel; DBEdit9: TDBEdit; DBEdit10: TDBEdit; DBEdit11: TDBEdit; DBEdit12: TDBEdit; DBEdit13: TDBEdit; DBEdit14: TDBEdit; DBEdit15: TDBEdit; DBEdit16: TDBEdit; DBMemo3: TDBMemo; a_delete: TbsSkinGroupBox; DBMemo2: TDBMemo; bsSkinPanel1: TbsSkinPanel; Label5: TLabel; Label6: TLabel; DBEdit39: TDBEdit; DBEdit40: TDBEdit; DBEdit17: TDBEdit; dxDBGrid1Column15: TdxDBGridColumn; dxDBGrid3Column15: TdxDBGridColumn; dxDBGrid4Column13: TdxDBGridColumn; dxDBGrid5Column13: TdxDBGridColumn; bsSkinPanel3: TbsSkinPanel; Label3: TLabel; Edit4: TEdit; Label4: TLabel; Edit2: TEdit; Label25: TLabel; wwDBDateTimePicker1: TwwDBDateTimePicker; Label26: TLabel; wwDBDateTimePicker2: TwwDBDateTimePicker; Label27: TLabel; RxDBLookupCombo6: TRxDBLookupCombo; Label7: TLabel; RxDBLookupCombo1: TRxDBLookupCombo; Label28: TLabel; wwDBDateTimePicker3: TwwDBDateTimePicker; Label29: TLabel; wwDBDateTimePicker4: TwwDBDateTimePicker; bsSkinButton1: TbsSkinButton; bsSkinPanel4: TbsSkinPanel; Label30: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; Label37: TLabel; Edit1: TEdit; Edit3: TEdit; wwDBDateTimePicker5: TwwDBDateTimePicker; wwDBDateTimePicker6: TwwDBDateTimePicker; RxDBLookupCombo2: TRxDBLookupCombo; RxDBLookupCombo3: TRxDBLookupCombo; wwDBDateTimePicker7: TwwDBDateTimePicker; wwDBDateTimePicker8: TwwDBDateTimePicker; bsSkinPanel5: TbsSkinPanel; Label38: TLabel; Label39: TLabel; Label40: TLabel; Label41: TLabel; Label42: TLabel; Label43: TLabel; Label44: TLabel; Label45: TLabel; Edit5: TEdit; Edit6: TEdit; wwDBDateTimePicker9: TwwDBDateTimePicker; wwDBDateTimePicker10: TwwDBDateTimePicker; RxDBLookupCombo4: TRxDBLookupCombo; RxDBLookupCombo5: TRxDBLookupCombo; wwDBDateTimePicker11: TwwDBDateTimePicker; wwDBDateTimePicker12: TwwDBDateTimePicker; bsSkinPanel6: TbsSkinPanel; Label46: TLabel; Label47: TLabel; Label48: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label52: TLabel; Label53: TLabel; Edit7: TEdit; Edit8: TEdit; wwDBDateTimePicker13: TwwDBDateTimePicker; wwDBDateTimePicker14: TwwDBDateTimePicker; RxDBLookupCombo7: TRxDBLookupCombo; RxDBLookupCombo8: TRxDBLookupCombo; wwDBDateTimePicker15: TwwDBDateTimePicker; wwDBDateTimePicker16: TwwDBDateTimePicker; Label54: TLabel; wwDBDateTimePicker17: TwwDBDateTimePicker; Label55: TLabel; wwDBDateTimePicker18: TwwDBDateTimePicker; Label56: TLabel; Edit9: TEdit; Label57: TLabel; Edit10: TEdit; Label58: TLabel; wwDBDateTimePicker19: TwwDBDateTimePicker; Label59: TLabel; wwDBDateTimePicker20: TwwDBDateTimePicker; Label60: TLabel; Edit11: TEdit; Label61: TLabel; Edit12: TEdit; Label62: TLabel; wwDBDateTimePicker21: TwwDBDateTimePicker; Label63: TLabel; wwDBDateTimePicker22: TwwDBDateTimePicker; Label64: TLabel; Edit13: TEdit; Label65: TLabel; Edit14: TEdit; Label66: TLabel; wwDBDateTimePicker23: TwwDBDateTimePicker; Label67: TLabel; wwDBDateTimePicker24: TwwDBDateTimePicker; Label68: TLabel; Edit15: TEdit; Label69: TLabel; Edit16: TEdit; Label70: TLabel; RxDBLookupCombo9: TRxDBLookupCombo; Label71: TLabel; RxDBLookupCombo10: TRxDBLookupCombo; Label72: TLabel; Label73: TLabel; RxDBLookupCombo11: TRxDBLookupCombo; RxDBLookupCombo12: TRxDBLookupCombo; Label74: TLabel; RxDBLookupCombo13: TRxDBLookupCombo; Label75: TLabel; RxDBLookupCombo14: TRxDBLookupCombo; Label76: TLabel; RxDBLookupCombo15: TRxDBLookupCombo; Label77: TLabel; RxDBLookupCombo16: TRxDBLookupCombo; Label78: TLabel; RxDBLookupCombo17: TRxDBLookupCombo; Label79: TLabel; RxDBLookupCombo18: TRxDBLookupCombo; Label80: TLabel; RxDBLookupCombo19: TRxDBLookupCombo; Label81: TLabel; RxDBLookupCombo20: TRxDBLookupCombo; Label82: TLabel; RxDBLookupCombo21: TRxDBLookupCombo; Label83: TLabel; RxDBLookupCombo22: TRxDBLookupCombo; Label84: TLabel; RxDBLookupCombo23: TRxDBLookupCombo; Label85: TLabel; RxDBLookupCombo24: TRxDBLookupCombo; procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure Panel1Resize(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinPageControl1Change(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 dxDBGrid2ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); procedure DBEdit17Change(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_rp_fee_modify: Tfrm_rp_fee_modify; rp_fee_modify_op:boolean; implementation uses my_sys_function, u_main, u_data_share; {$R *.dfm} procedure Tfrm_rp_fee_modify.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_rp_fee_modify.FormClose(Sender: TObject; var Action: TCloseAction); begin frm_rp_fee_modify.Hide; frm_rp_fee_modify.ManualFloat(frm_rp_fee_modify.BoundsRect ); frm_main.freeTabs('frm_rp_fee_modify'); rp_fee_modify_op:=false; action:=cafree; frm_rp_fee_modify:=nil; end; procedure Tfrm_rp_fee_modify.bsSkinButton9Click(Sender: TObject); begin if bsSkinTabSheet1.Showing then sys_print('海运出口费用修改统计',2,nil,nil,nil,nil,p_seae1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil) else if bsSkinTabSheet2.Showing then sys_print('海运进口费用修改统计',2,nil,nil,nil,nil,p_seai1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil) else if bsSkinTabSheet3.Showing then sys_print('空运出口费用修改统计',2,nil,nil,nil,nil,p_aire1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil) else if bsSkinTabSheet4.Showing then sys_print('空运进口费用修改统计',2,nil,nil,nil,nil,p_airi1,t_ch_fee_modify1,NIL,NIL,nil,nil,nil); end; procedure Tfrm_rp_fee_modify.bsSkinButton10Click(Sender: TObject); var str_bill,str_fee:widestring; begin if bsSkinTabSheet1.Showing then begin if Edit4.text<>''then str_bill:=' where 委托编号 like '+''''+'%'+Edit4.text+'%'+''''; if Edit2.text<>''then begin if str_bill='' then str_bill:=' where 主提单号 like '+''''+'%'+Edit2.text+'%'+'''' else str_bill:=str_bill+' and 主提单号 like '+''''+'%'+Edit2.text+'%'+'''' end; if Edit9.text<>''then begin if str_bill='' then str_bill:=' where 业务编号 like '+''''+'%'+Edit9.text+'%'+'''' else str_bill:=str_bill+' and 业务编号 like '+''''+'%'+Edit9.text+'%'+'''' end; if Edit10.text<>''then begin if str_bill='' then str_bill:=' where 分提单号 like '+''''+'%'+Edit10.text+'%'+'''' else str_bill:=str_bill+' and 分提单号 like '+''''+'%'+Edit10.text+'%'+'''' end; if wwDBDateTimePicker17.text<>'' then begin if str_bill='' then str_bill:=' where 开船日期>='+''''+wwDBDateTimePicker17.text+'''' else str_bill:=str_bill+' and 开船日期>='+''''+wwDBDateTimePicker17.text+''''; end; if wwDBDateTimePicker18.text<>'' then begin if str_bill='' then str_bill:=' where 开船日期<='+''''+wwDBDateTimePicker18.text+'''' else str_bill:=str_bill+' and 开船日期<='+''''+wwDBDateTimePicker18.text+''''; end; if RxDBLookupCombo9.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作员='+''''+RxDBLookupCombo9.DisplayValue+'''' else str_bill:=str_bill+' and 操作员='+''''+RxDBLookupCombo9.DisplayValue+''''; end; if RxDBLookupCombo10.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 揽货人='+''''+RxDBLookupCombo10.DisplayValue+'''' else str_bill:=str_bill+' and 揽货人='+''''+RxDBLookupCombo10.DisplayValue+''''; end; if RxDBLookupCombo11.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作部门='+''''+RxDBLookupCombo11.DisplayValue+'''' else str_bill:=str_bill+' and 操作部门='+''''+RxDBLookupCombo11.DisplayValue+''''; end; if RxDBLookupCombo12.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 销售部门='+''''+RxDBLookupCombo12.DisplayValue+'''' else str_bill:=str_bill+' and 销售部门='+''''+RxDBLookupCombo12.DisplayValue+''''; end; if RxDBLookupCombo1.DisplayValue<>'' then str_fee:=' where 申请人='+''''+RxDBLookupCombo1.DisplayValue+''''; if RxDBLookupCombo6.DisplayValue<>'' then begin if str_fee='' then str_fee:=' where 审核人='+''''+RxDBLookupCombo6.DisplayValue+'''' else str_fee:=str_fee+' and 审核人='+''''+RxDBLookupCombo6.DisplayValue+''''; end; if wwDBDateTimePicker1.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期>='+''''+wwDBDateTimePicker1.text+'''' else str_fee:=str_fee+' and 申请日期>='+''''+wwDBDateTimePicker1.text+''''; end; if wwDBDateTimePicker2.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期<='+''''+wwDBDateTimePicker2.text+'''' else str_fee:=str_fee+' and 申请日期<='+''''+wwDBDateTimePicker2.text+''''; end; if wwDBDateTimePicker3.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期>='+''''+wwDBDateTimePicker3.text+'''' else str_fee:=str_fee+' and 审核日期>='+''''+wwDBDateTimePicker3.text+''''; end; if wwDBDateTimePicker4.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期<='+''''+wwDBDateTimePicker4.text+'''' else str_fee:=str_fee+' and 审核日期<='+''''+wwDBDateTimePicker4.text+''''; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_seae.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end else begin if str_fee<>'' then str_bill:=' where t_op_seae.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end; t_ch_fee_modify.close; a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; p_seae.close; p_seae.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.*, v_ch_fee_modify_sum.利润调整 AS 利润调整 ' +'FROM t_op_seae INNER JOIN ' +'v_ch_fee_modify_sum ON t_op_seae.编号 = v_ch_fee_modify_sum.编号 '+str_bill+default_sort(53,'t_op_seae','','desc'); p_seae.open; t_ch_fee_modify.open; a_shen_delete.open; a_shen_modify_old.open; a_shen_modify_new.open; exit; end; if bsSkinTabSheet2.Showing then begin if Edit1.text<>''then str_bill:=' where 委托编号 like '+''''+'%'+Edit1.text+'%'+''''; if Edit3.text<>''then begin if str_bill='' then str_bill:=' where 主提单号 like '+''''+'%'+Edit3.text+'%'+'''' else str_bill:=str_bill+' and 主提单号 like '+''''+'%'+Edit3.text+'%'+'''' end; if Edit11.text<>''then begin if str_bill='' then str_bill:=' where 业务编号 like '+''''+'%'+Edit11.text+'%'+'''' else str_bill:=str_bill+' and 业务编号 like '+''''+'%'+Edit11.text+'%'+'''' end; if Edit12.text<>''then begin if str_bill='' then str_bill:=' where 分提单号 like '+''''+'%'+Edit12.text+'%'+'''' else str_bill:=str_bill+' and 分提单号 like '+''''+'%'+Edit12.text+'%'+'''' end; if wwDBDateTimePicker19.text<>'' then begin if str_bill='' then str_bill:=' where 进口日期>='+''''+wwDBDateTimePicker19.text+'''' else str_bill:=str_bill+' and 进口日期>='+''''+wwDBDateTimePicker19.text+''''; end; if wwDBDateTimePicker20.text<>'' then begin if str_bill='' then str_bill:=' where 进口日期<='+''''+wwDBDateTimePicker20.text+'''' else str_bill:=str_bill+' and 进口日期<='+''''+wwDBDateTimePicker20.text+''''; end; if RxDBLookupCombo13.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作员='+''''+RxDBLookupCombo13.DisplayValue+'''' else str_bill:=str_bill+' and 操作员='+''''+RxDBLookupCombo13.DisplayValue+''''; end; if RxDBLookupCombo14.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 揽货人='+''''+RxDBLookupCombo14.DisplayValue+'''' else str_bill:=str_bill+' and 揽货人='+''''+RxDBLookupCombo14.DisplayValue+''''; end; if RxDBLookupCombo15.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作部门='+''''+RxDBLookupCombo15.DisplayValue+'''' else str_bill:=str_bill+' and 操作部门='+''''+RxDBLookupCombo15.DisplayValue+''''; end; if RxDBLookupCombo16.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 销售部门='+''''+RxDBLookupCombo16.DisplayValue+'''' else str_bill:=str_bill+' and 销售部门='+''''+RxDBLookupCombo16.DisplayValue+''''; end; if RxDBLookupCombo3.DisplayValue<>'' then str_fee:=' where 申请人='+''''+RxDBLookupCombo3.DisplayValue+''''; if RxDBLookupCombo2.DisplayValue<>'' then begin if str_fee='' then str_fee:=' where 审核人='+''''+RxDBLookupCombo2.DisplayValue+'''' else str_fee:=str_fee+' and 审核人='+''''+RxDBLookupCombo2.DisplayValue+''''; end; if wwDBDateTimePicker5.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期>='+''''+wwDBDateTimePicker5.text+'''' else str_fee:=str_fee+' and 申请日期>='+''''+wwDBDateTimePicker5.text+''''; end; if wwDBDateTimePicker6.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期<='+''''+wwDBDateTimePicker6.text+'''' else str_fee:=str_fee+' and 申请日期<='+''''+wwDBDateTimePicker6.text+''''; end; if wwDBDateTimePicker7.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期>='+''''+wwDBDateTimePicker7.text+'''' else str_fee:=str_fee+' and 审核日期>='+''''+wwDBDateTimePicker7.text+''''; end; if wwDBDateTimePicker8.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期<='+''''+wwDBDateTimePicker8.text+'''' else str_fee:=str_fee+' and 审核日期<='+''''+wwDBDateTimePicker8.text+''''; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_seai.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end else begin if str_fee<>'' then str_bill:=' where t_op_seai.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end; t_ch_fee_modify.close; a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; p_seai.close; p_seai.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seai.*, v_ch_fee_modify_sum.利润调整 AS 利润调整 ' +'FROM t_op_seai INNER JOIN ' +'v_ch_fee_modify_sum ON t_op_seai.编号 = v_ch_fee_modify_sum.编号 '+str_bill+default_sort(54,'t_op_seai','','desc'); p_seai.open; t_ch_fee_modify.open; a_shen_delete.open; a_shen_modify_old.open; a_shen_modify_new.open; exit; end; if bsSkinTabSheet3.Showing then begin if Edit5.text<>''then str_bill:=' where 委托编号 like '+''''+'%'+Edit5.text+'%'+''''; if Edit6.text<>''then begin if str_bill='' then str_bill:=' where 主运单号 like '+''''+'%'+Edit6.text+'%'+'''' else str_bill:=str_bill+' and 主运单号 like '+''''+'%'+Edit6.text+'%'+'''' end; if Edit13.text<>''then begin if str_bill='' then str_bill:=' where 业务编号 like '+''''+'%'+Edit13.text+'%'+'''' else str_bill:=str_bill+' and 业务编号 like '+''''+'%'+Edit13.text+'%'+'''' end; if Edit14.text<>''then begin if str_bill='' then str_bill:=' where 分运单号 like '+''''+'%'+Edit14.text+'%'+'''' else str_bill:=str_bill+' and 分运单号 like '+''''+'%'+Edit14.text+'%'+'''' end; if wwDBDateTimePicker21.text<>'' then begin if str_bill='' then str_bill:=' where 一程开航日期>='+''''+wwDBDateTimePicker21.text+'''' else str_bill:=str_bill+' and 一程开航日期>='+''''+wwDBDateTimePicker21.text+''''; end; if wwDBDateTimePicker22.text<>'' then begin if str_bill='' then str_bill:=' where 一程开航日期<='+''''+wwDBDateTimePicker22.text+'''' else str_bill:=str_bill+' and 一程开航日期<='+''''+wwDBDateTimePicker22.text+''''; end; if RxDBLookupCombo17.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作员='+''''+RxDBLookupCombo17.DisplayValue+'''' else str_bill:=str_bill+' and 操作员='+''''+RxDBLookupCombo17.DisplayValue+''''; end; if RxDBLookupCombo18.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 揽货人='+''''+RxDBLookupCombo18.DisplayValue+'''' else str_bill:=str_bill+' and 揽货人='+''''+RxDBLookupCombo18.DisplayValue+''''; end; if RxDBLookupCombo19.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作部门='+''''+RxDBLookupCombo19.DisplayValue+'''' else str_bill:=str_bill+' and 操作部门='+''''+RxDBLookupCombo19.DisplayValue+''''; end; if RxDBLookupCombo20.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 销售部门='+''''+RxDBLookupCombo20.DisplayValue+'''' else str_bill:=str_bill+' and 销售部门='+''''+RxDBLookupCombo20.DisplayValue+''''; end; if RxDBLookupCombo5.DisplayValue<>'' then str_fee:=' where 申请人='+''''+RxDBLookupCombo5.DisplayValue+''''; if RxDBLookupCombo4.DisplayValue<>'' then begin if str_fee='' then str_fee:=' where 审核人='+''''+RxDBLookupCombo4.DisplayValue+'''' else str_fee:=str_fee+' and 审核人='+''''+RxDBLookupCombo4.DisplayValue+''''; end; if wwDBDateTimePicker9.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期>='+''''+wwDBDateTimePicker9.text+'''' else str_fee:=str_fee+' and 申请日期>='+''''+wwDBDateTimePicker9.text+''''; end; if wwDBDateTimePicker10.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期<='+''''+wwDBDateTimePicker10.text+'''' else str_fee:=str_fee+' and 申请日期<='+''''+wwDBDateTimePicker10.text+''''; end; if wwDBDateTimePicker11.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期>='+''''+wwDBDateTimePicker11.text+'''' else str_fee:=str_fee+' and 审核日期>='+''''+wwDBDateTimePicker11.text+''''; end; if wwDBDateTimePicker12.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期<='+''''+wwDBDateTimePicker12.text+'''' else str_fee:=str_fee+' and 审核日期<='+''''+wwDBDateTimePicker12.text+''''; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_aire.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end else begin if str_fee<>'' then str_bill:=' where t_op_aire.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end; t_ch_fee_modify.close; a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; p_aire.close; p_aire.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_aire.*, v_ch_fee_modify_sum.利润调整 AS 利润调整 ' +'FROM t_op_aire INNER JOIN ' +'v_ch_fee_modify_sum ON t_op_aire.编号 = v_ch_fee_modify_sum.编号 '+str_bill+' order by t_op_aire.业务编号 desc'; p_aire.open; t_ch_fee_modify.open; a_shen_delete.open; a_shen_modify_old.open; a_shen_modify_new.open; exit; end; if bsSkinTabSheet4.Showing then begin if Edit7.text<>''then str_bill:=' where 委托编号 like '+''''+'%'+Edit7.text+'%'+''''; if Edit8.text<>''then begin if str_bill='' then str_bill:=' where 主运单号 like '+''''+'%'+Edit8.text+'%'+'''' else str_bill:=str_bill+' and 主运单号 like '+''''+'%'+Edit8.text+'%'+'''' end; if Edit15.text<>''then begin if str_bill='' then str_bill:=' where 业务编号 like '+''''+'%'+Edit15.text+'%'+'''' else str_bill:=str_bill+' and 业务编号 like '+''''+'%'+Edit15.text+'%'+'''' end; if Edit16.text<>''then begin if str_bill='' then str_bill:=' where 分运单号 like '+''''+'%'+Edit16.text+'%'+'''' else str_bill:=str_bill+' and 分运单号 like '+''''+'%'+Edit16.text+'%'+'''' end; if wwDBDateTimePicker23.text<>'' then begin if str_bill='' then str_bill:=' where 进口日期>='+''''+wwDBDateTimePicker23.text+'''' else str_bill:=str_bill+' and 进口日期>='+''''+wwDBDateTimePicker23.text+''''; end; if wwDBDateTimePicker24.text<>'' then begin if str_bill='' then str_bill:=' where 进口日期<='+''''+wwDBDateTimePicker24.text+'''' else str_bill:=str_bill+' and 进口日期<='+''''+wwDBDateTimePicker24.text+''''; end; if RxDBLookupCombo21.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作员='+''''+RxDBLookupCombo21.DisplayValue+'''' else str_bill:=str_bill+' and 操作员='+''''+RxDBLookupCombo21.DisplayValue+''''; end; if RxDBLookupCombo22.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 揽货人='+''''+RxDBLookupCombo22.DisplayValue+'''' else str_bill:=str_bill+' and 揽货人='+''''+RxDBLookupCombo22.DisplayValue+''''; end; if RxDBLookupCombo23.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 操作部门='+''''+RxDBLookupCombo23.DisplayValue+'''' else str_bill:=str_bill+' and 操作部门='+''''+RxDBLookupCombo23.DisplayValue+''''; end; if RxDBLookupCombo24.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 销售部门='+''''+RxDBLookupCombo24.DisplayValue+'''' else str_bill:=str_bill+' and 销售部门='+''''+RxDBLookupCombo24.DisplayValue+''''; end; if RxDBLookupCombo8.DisplayValue<>'' then str_fee:=' where 申请人='+''''+RxDBLookupCombo8.DisplayValue+''''; if RxDBLookupCombo7.DisplayValue<>'' then begin if str_fee='' then str_fee:=' where 审核人='+''''+RxDBLookupCombo7.DisplayValue+'''' else str_fee:=str_fee+' and 审核人='+''''+RxDBLookupCombo7.DisplayValue+''''; end; if wwDBDateTimePicker13.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期>='+''''+wwDBDateTimePicker13.text+'''' else str_fee:=str_fee+' and 申请日期>='+''''+wwDBDateTimePicker13.text+''''; end; if wwDBDateTimePicker14.text<>'' then begin if str_fee='' then str_fee:=' where 申请日期<='+''''+wwDBDateTimePicker14.text+'''' else str_fee:=str_fee+' and 申请日期<='+''''+wwDBDateTimePicker14.text+''''; end; if wwDBDateTimePicker15.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期>='+''''+wwDBDateTimePicker15.text+'''' else str_fee:=str_fee+' and 审核日期>='+''''+wwDBDateTimePicker15.text+''''; end; if wwDBDateTimePicker16.text<>'' then begin if str_fee='' then str_fee:=' where 审核日期<='+''''+wwDBDateTimePicker16.text+'''' else str_fee:=str_fee+' and 审核日期<='+''''+wwDBDateTimePicker16.text+''''; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_airi.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end else begin if str_fee<>'' then str_bill:=' where t_op_airi.编号 in (select 编号 from t_ch_fee_modify'+str_fee+')'; end; t_ch_fee_modify.close; a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; p_airi.close; p_airi.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_airi.*, v_ch_fee_modify_sum.利润调整 AS 利润调整 ' +'FROM t_op_airi INNER JOIN ' +'v_ch_fee_modify_sum ON t_op_airi.编号 = v_ch_fee_modify_sum.编号 '+str_bill+' order by t_op_airi.业务编号 desc'; p_airi.open; t_ch_fee_modify.open; a_shen_delete.open; a_shen_modify_old.open; a_shen_modify_new.open; exit; end; { if bsSkinTabSheet1.Showing then query_seae(9,'no') else if bsSkinTabSheet2.Showing then query_seai(9,'no') else if bsSkinTabSheet3.Showing then query_aire(9,'no') else if bsSkinTabSheet4.Showing then query_airi(9,'no'); } end; procedure Tfrm_rp_fee_modify.Panel1Resize(Sender: TObject); begin bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width; end; procedure Tfrm_rp_fee_modify.FormShow(Sender: TObject); begin rp_fee_modify_op:=true; end; procedure Tfrm_rp_fee_modify.bsSkinPageControl1Change(Sender: TObject); begin if rp_fee_modify_op then begin t_ch_fee_modify.close; p_seae.close; p_seai.close; p_aire.close; p_airi.close; if bsSkinTabSheet1.Showing then begin t_ch_fee_modify.DataSource:=p_seae1; end else if bsSkinTabSheet2.Showing then begin t_ch_fee_modify.DataSource:=p_seai1; end else if bsSkinTabSheet3.Showing then begin t_ch_fee_modify.DataSource:=p_aire1; end else if bsSkinTabSheet4.Showing then begin t_ch_fee_modify.DataSource:=p_airi1; end; end; end; procedure Tfrm_rp_fee_modify.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_seae,'业务编号'); end; procedure Tfrm_rp_fee_modify.dxDBGrid3ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_seai,'业务编号'); end; procedure Tfrm_rp_fee_modify.dxDBGrid4ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_aire,'业务编号'); end; procedure Tfrm_rp_fee_modify.dxDBGrid5ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_airi,'业务编号'); end; procedure Tfrm_rp_fee_modify.dxDBGrid2ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort(Column,t_ch_fee_modify,'FM_ID'); end; procedure Tfrm_rp_fee_modify.DBEdit17Change(Sender: TObject); begin if t_ch_fee_modify.IsEmpty then begin a_delete.Visible:=false; a_delete.Align:=alNone; a_modify_old.Visible:=false; a_modify_old.Align:=alNone; a_modify_new.Visible:=false; a_modify_new.Align:=alNone; exit; end; if t_ch_fee_modify.FieldByName('申请类型').asstring='申请删除'then begin a_modify_old.Visible:=false; a_modify_old.Align:=alNone; a_modify_new.Visible:=false; a_modify_new.Align:=alNone; a_delete.Visible:=true; a_delete.Align:=alRight; exit; end; if t_ch_fee_modify.FieldByName('申请类型').asstring='申请修改'then begin a_delete.Visible:=false; a_delete.Align:=alNone; a_modify_new.Visible:=true; a_modify_new.Align:=alRight; a_modify_old.Visible:=true; a_modify_old.Align:=alRight; exit; end; end; procedure Tfrm_rp_fee_modify.bsSkinButton1Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:=''; Edit8.Text:=''; Edit9.Text:=''; Edit10.Text:=''; Edit11.Text:=''; Edit12.Text:=''; Edit13.Text:=''; Edit14.Text:=''; Edit15.Text:=''; Edit16.Text:=''; RxDBLookupCombo1.ClearValue; RxDBLookupCombo2.ClearValue; RxDBLookupCombo3.ClearValue; RxDBLookupCombo4.ClearValue; RxDBLookupCombo5.ClearValue; RxDBLookupCombo6.ClearValue; RxDBLookupCombo7.ClearValue; RxDBLookupCombo8.ClearValue; RxDBLookupCombo9.ClearValue; RxDBLookupCombo10.ClearValue; RxDBLookupCombo11.ClearValue; RxDBLookupCombo12.ClearValue; RxDBLookupCombo13.ClearValue; RxDBLookupCombo14.ClearValue; RxDBLookupCombo15.ClearValue; RxDBLookupCombo16.ClearValue; RxDBLookupCombo17.ClearValue; RxDBLookupCombo18.ClearValue; RxDBLookupCombo19.ClearValue; RxDBLookupCombo20.ClearValue; RxDBLookupCombo21.ClearValue; RxDBLookupCombo22.ClearValue; RxDBLookupCombo23.ClearValue; RxDBLookupCombo24.ClearValue; wwDBDateTimePicker1.Text:=''; wwDBDateTimePicker2.Text:=''; wwDBDateTimePicker3.Text:=''; wwDBDateTimePicker4.Text:=''; wwDBDateTimePicker5.Text:=''; wwDBDateTimePicker6.Text:=''; wwDBDateTimePicker7.Text:=''; wwDBDateTimePicker8.Text:=''; wwDBDateTimePicker9.Text:=''; wwDBDateTimePicker10.Text:=''; wwDBDateTimePicker11.Text:=''; wwDBDateTimePicker12.Text:=''; wwDBDateTimePicker13.Text:=''; wwDBDateTimePicker14.Text:=''; wwDBDateTimePicker15.Text:=''; wwDBDateTimePicker16.Text:=''; wwDBDateTimePicker17.Text:=''; wwDBDateTimePicker18.Text:=''; wwDBDateTimePicker19.Text:=''; wwDBDateTimePicker20.Text:=''; wwDBDateTimePicker21.Text:=''; wwDBDateTimePicker22.Text:=''; wwDBDateTimePicker23.Text:=''; wwDBDateTimePicker24.Text:=''; end; end.