unit u_ch_fee_modify_check; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxExEdtr, ADODB, DB, StdCtrls, DBCtrls, Mask, bsSkinCtrls, RxLookup, wwdbdatetimepicker, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls, Grids, Wwdbigrd, Wwdbgrid, wwdbedit, Wwdotdot, Wwdbcomb; type Tfrm_ch_fee_modify_check = class(TForm) Panel1: TPanel; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; dxDBGrid1: TdxDBGrid; dxDBGrid1Column1: TdxDBGridMaskColumn; dxDBGrid1Column15: TdxDBGridColumn; dxDBGrid1Column2: TdxDBGridMaskColumn; dxDBGrid1Column3: TdxDBGridMaskColumn; dxDBGrid1Column4: TdxDBGridDateColumn; dxDBGrid1Column9: TdxDBGridDateColumn; dxDBGrid1Column5: TdxDBGridMaskColumn; dxDBGrid1Column6: TdxDBGridMaskColumn; dxDBGrid1Column7: TdxDBGridMaskColumn; dxDBGrid1Column8: TdxDBGridMaskColumn; dxDBGrid1Column10: TdxDBGridMaskColumn; dxDBGrid1Column11: TdxDBGridMaskColumn; dxDBGrid1Column12: TdxDBGridMaskColumn; dxDBGrid1Column13: TdxDBGridMaskColumn; dxDBGrid1Column14: TdxDBGridMaskColumn; bsSkinPanel3: TbsSkinPanel; Label3: TLabel; Label4: TLabel; Label25: TLabel; Label26: TLabel; Label27: TLabel; Label7: TLabel; Label28: TLabel; Label29: TLabel; Label54: TLabel; Label55: TLabel; Label56: TLabel; Label57: TLabel; Edit4: TEdit; Edit2: TEdit; wwDBDateTimePicker1: TwwDBDateTimePicker; wwDBDateTimePicker2: TwwDBDateTimePicker; RxDBLookupCombo6: TRxDBLookupCombo; RxDBLookupCombo1: TRxDBLookupCombo; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBDateTimePicker4: TwwDBDateTimePicker; wwDBDateTimePicker17: TwwDBDateTimePicker; wwDBDateTimePicker18: TwwDBDateTimePicker; Edit9: TEdit; bsSkinTabSheet2: TbsSkinTabSheet; dxDBGrid3: TdxDBGrid; dxDBGridMaskColumn1: TdxDBGridMaskColumn; dxDBGrid3Column15: TdxDBGridColumn; 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; bsSkinPanel4: TbsSkinPanel; Label30: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label36: TLabel; Label37: TLabel; Label58: TLabel; Label59: TLabel; Label60: TLabel; Label61: TLabel; Edit1: TEdit; Edit3: TEdit; wwDBDateTimePicker5: TwwDBDateTimePicker; wwDBDateTimePicker6: TwwDBDateTimePicker; RxDBLookupCombo2: TRxDBLookupCombo; RxDBLookupCombo3: TRxDBLookupCombo; wwDBDateTimePicker7: TwwDBDateTimePicker; wwDBDateTimePicker8: TwwDBDateTimePicker; wwDBDateTimePicker19: TwwDBDateTimePicker; wwDBDateTimePicker20: TwwDBDateTimePicker; Edit11: TEdit; bsSkinTabSheet3: TbsSkinTabSheet; dxDBGrid4: TdxDBGrid; dxDBGridMaskColumn13: TdxDBGridMaskColumn; dxDBGrid4Column13: TdxDBGridColumn; dxDBGridMaskColumn14: TdxDBGridMaskColumn; dxDBGrid4Column15: TdxDBGridColumn; dxDBGridMaskColumn15: TdxDBGridMaskColumn; dxDBGridDateColumn3: TdxDBGridDateColumn; dxDBGridDateColumn4: TdxDBGridDateColumn; dxDBGridMaskColumn17: TdxDBGridMaskColumn; dxDBGridMaskColumn18: TdxDBGridMaskColumn; dxDBGridMaskColumn20: TdxDBGridMaskColumn; dxDBGridMaskColumn22: TdxDBGridMaskColumn; dxDBGridMaskColumn23: TdxDBGridMaskColumn; dxDBGridMaskColumn24: TdxDBGridMaskColumn; bsSkinPanel5: TbsSkinPanel; Label38: TLabel; Label39: TLabel; Label40: TLabel; Label41: TLabel; Label42: TLabel; Label43: TLabel; Label44: TLabel; Label45: TLabel; Label62: TLabel; Label63: TLabel; Label64: TLabel; Label65: TLabel; Edit5: TEdit; Edit6: TEdit; wwDBDateTimePicker9: TwwDBDateTimePicker; wwDBDateTimePicker10: TwwDBDateTimePicker; RxDBLookupCombo4: TRxDBLookupCombo; RxDBLookupCombo5: TRxDBLookupCombo; wwDBDateTimePicker11: TwwDBDateTimePicker; wwDBDateTimePicker12: TwwDBDateTimePicker; wwDBDateTimePicker21: TwwDBDateTimePicker; wwDBDateTimePicker22: TwwDBDateTimePicker; Edit13: TEdit; bsSkinTabSheet4: TbsSkinTabSheet; dxDBGrid5: TdxDBGrid; dxDBGridMaskColumn16: TdxDBGridMaskColumn; dxDBGrid5Column13: TdxDBGridColumn; dxDBGridMaskColumn19: TdxDBGridMaskColumn; dxDBGridColumn1: TdxDBGridColumn; dxDBGridMaskColumn21: TdxDBGridMaskColumn; dxDBGridDateColumn5: TdxDBGridDateColumn; dxDBGridDateColumn6: TdxDBGridDateColumn; dxDBGridMaskColumn25: TdxDBGridMaskColumn; dxDBGridMaskColumn26: TdxDBGridMaskColumn; dxDBGridMaskColumn27: TdxDBGridMaskColumn; dxDBGridMaskColumn28: TdxDBGridMaskColumn; dxDBGridMaskColumn29: TdxDBGridMaskColumn; dxDBGridMaskColumn30: TdxDBGridMaskColumn; bsSkinPanel6: TbsSkinPanel; Label46: TLabel; Label47: TLabel; Label48: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label52: TLabel; Label53: TLabel; Label66: TLabel; Label67: TLabel; Label68: TLabel; Label69: TLabel; Edit7: TEdit; Edit8: TEdit; wwDBDateTimePicker13: TwwDBDateTimePicker; wwDBDateTimePicker14: TwwDBDateTimePicker; RxDBLookupCombo7: TRxDBLookupCombo; RxDBLookupCombo8: TRxDBLookupCombo; wwDBDateTimePicker15: TwwDBDateTimePicker; wwDBDateTimePicker16: TwwDBDateTimePicker; wwDBDateTimePicker23: TwwDBDateTimePicker; wwDBDateTimePicker24: TwwDBDateTimePicker; Edit15: TEdit; bsSkinPanel2: TbsSkinPanel; bsSkinButton10: TbsSkinButton; bsSkinButton9: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsSkinButton1: TbsSkinButton; bsSkinGroupBox1: TbsSkinGroupBox; 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; p_seae: TADOStoredProc; p_seae1: TDataSource; t_ch_fee_modify: TADOQuery; t_ch_fee_modify1: TDataSource; p_seai: TADOStoredProc; p_seai1: TDataSource; p_aire: TADOStoredProc; p_aire1: TDataSource; p_airi: TADOStoredProc; p_airi1: TDataSource; 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; bsSkinButton2: TbsSkinButton; bsSkinButton3: TbsSkinButton; bsSkinButton4: TbsSkinButton; dxDBGrid2: TdxDBGrid; dxDBGrid2Column1: TdxDBGridMaskColumn; dxDBGrid2Column2: TdxDBGridMaskColumn; dxDBGrid2Column3: TdxDBGridMaskColumn; dxDBGrid2Column4: TdxDBGridMaskColumn; dxDBGrid2Column5: TdxDBGridColumn; dxDBGrid2Column6: TdxDBGridMaskColumn; dxDBGrid2Column7: TdxDBGridDateColumn; dxDBGrid2Column8: TdxDBGridMaskColumn; dxDBGrid2Column9: TdxDBGridDateColumn; wwDBComboBox1: TwwDBComboBox; wwDBComboBox2: TwwDBComboBox; wwDBComboBox3: TwwDBComboBox; wwDBComboBox4: TwwDBComboBox; Label70: TLabel; RxDBLookupCombo9: TRxDBLookupCombo; Label71: TLabel; RxDBLookupCombo10: TRxDBLookupCombo; Label73: TLabel; RxDBLookupCombo11: TRxDBLookupCombo; Label72: TLabel; 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; a_shen_add: TADOQuery; a_shen_add1: TDataSource; a_modify_add: TbsSkinGroupBox; Label86: TLabel; Label87: TLabel; Label88: TLabel; Label89: TLabel; Label90: TLabel; Label91: TLabel; Label92: TLabel; Label93: TLabel; Label94: TLabel; Label95: TLabel; DBEdit18: TDBEdit; DBEdit19: TDBEdit; DBEdit20: TDBEdit; DBEdit21: TDBEdit; DBEdit22: TDBEdit; DBEdit23: TDBEdit; DBEdit24: TDBEdit; DBEdit25: TDBEdit; DBEdit26: TDBEdit; DBEdit27: TDBEdit; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; bsSkinCheckRadioBox2: TbsSkinCheckRadioBox; bsSkinCheckRadioBox3: TbsSkinCheckRadioBox; bsSkinCheckRadioBox4: TbsSkinCheckRadioBox; bsSkinCheckRadioBox5: TbsSkinCheckRadioBox; bsSkinCheckRadioBox6: TbsSkinCheckRadioBox; bsSkinCheckRadioBox7: TbsSkinCheckRadioBox; bsSkinCheckRadioBox8: TbsSkinCheckRadioBox; bsSkinCheckRadioBox9: TbsSkinCheckRadioBox; bsSkinCheckRadioBox10: TbsSkinCheckRadioBox; bsSkinCheckRadioBox11: TbsSkinCheckRadioBox; bsSkinCheckRadioBox12: TbsSkinCheckRadioBox; RxDBLookupCombo25: TRxDBLookupCombo; Label96: TLabel; Label97: TLabel; RxDBLookupCombo26: TRxDBLookupCombo; Label98: TLabel; RxDBLookupCombo27: TRxDBLookupCombo; Label99: TLabel; RxDBLookupCombo28: TRxDBLookupCombo; Label100: TLabel; wwDBComboBox31: TwwDBComboBox; Label101: TLabel; wwDBComboBox5: TwwDBComboBox; procedure bsSkinButton5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure bsSkinButton9Click(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure Panel1Resize(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); procedure FormShow(Sender: TObject); procedure bsSkinButton2Click(Sender: TObject); procedure bsSkinButton4Click(Sender: TObject); procedure bsSkinButton3Click(Sender: TObject); procedure dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); procedure bsSkinGroupBox1Resize(Sender: TObject); private { Private declarations } public { Public declarations } end; var frm_ch_fee_modify_check: Tfrm_ch_fee_modify_check; ch_fee_modify_check:boolean; implementation uses u_main, my_sys_function; {$R *.dfm} procedure Tfrm_ch_fee_modify_check.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_ch_fee_modify_check.FormClose(Sender: TObject; var Action: TCloseAction); begin frm_ch_fee_modify_check.Hide; frm_ch_fee_modify_check.ManualFloat(frm_ch_fee_modify_check.BoundsRect ); frm_main.freeTabs('frm_ch_fee_modify_check'); ch_fee_modify_check:=false; action:=cafree; frm_ch_fee_modify_check:=nil; end; procedure Tfrm_ch_fee_modify_check.bsSkinButton9Click(Sender: TObject); begin if bsSkinTabSheet1.Showing then sys_print('海运出口费用修改统计',2,nil,nil,nil,nil,p_seae1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil) else if bsSkinTabSheet2.Showing then sys_print('海运进口费用修改统计',2,nil,nil,nil,nil,p_seai1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil) else if bsSkinTabSheet3.Showing then sys_print('空运出口费用修改统计',2,nil,nil,nil,nil,p_aire1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil) else if bsSkinTabSheet4.Showing then sys_print('空运进口费用修改统计',2,nil,nil,nil,nil,p_airi1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil); end; procedure Tfrm_ch_fee_modify_check.bsSkinButton10Click(Sender: TObject); var str_bill,str_fee,str_fuhe,str_seae,str_seai,str_aire,str_airi:widestring; begin if bsSkinTabSheet1.Showing then begin str_seae:=''; if (not bsSkinCheckRadioBox1.Checked) and (not bsSkinCheckRadioBox2.Checked) and (not bsSkinCheckRadioBox3.Checked) then begin MessageDlg('必须选择一个类型！',mtWarning,[mbOk],0); exit; end; if bsSkinCheckRadioBox1.Checked then begin str_seae:='''申请追加''' end; if bsSkinCheckRadioBox2.Checked then begin if str_seae<>'' then str_seae:=str_seae+',''申请修改'' ' else str_seae:='''申请修改'''; end; if bsSkinCheckRadioBox3.Checked then begin if str_seae<>'' then str_seae:=str_seae+',''申请删除''' else str_seae:='''申请删除'''; end; if str_seae<>'' then str_seae:='('+str_seae+')'; 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 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 RxDBLookupCombo25.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 分部名称='+''''+RxDBLookupCombo25.DisplayValue+'''' else str_bill:=str_bill+' and 分部名称='+''''+RxDBLookupCombo25.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 wwDBComboBox31.text<>'' then begin if str_fee='' then str_fee:=' where 类型='+''''+wwDBComboBox31.text+'''' else str_fee:=str_fee+' and 类型='+''''+wwDBComboBox31.text+''''; end; if str_seae<>'' then if str_fee='' then begin str_fee:=' where 申请类型 in '+str_seae; end else begin str_fee:=str_fee+' and 申请类型 in '+str_seae; end; if str_seae<>'' then begin if wwDBComboBox1.Text<>''then begin if wwDBComboBox1.text='没有复核' then str_fuhe:=' t_op_seae.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'批准申请'+''''+' and 申请类型 in '+str_seae+')' else str_fuhe:=' t_op_seae.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'复核通过'+''''+' and 申请类型 in '+str_seae+')'; end; end; if str_bill<>'' then begin if str_fee<>'' then begin str_bill:=str_bill+' and t_op_seae.编号 in (select 编号 from v_ch_fee_modify_view'+str_fee+')'; end; end else begin if str_fee<>'' then str_bill:=' where t_op_seae.编号 in (select 编号 from v_ch_fee_modify_view'+str_fee+')'; end; if str_fuhe<>''then begin if str_bill<>'' then str_bill:=str_bill+' and '+str_fuhe else str_bill:=' where '+str_fuhe; end; t_ch_fee_modify.close; t_ch_fee_modify.sql.Clear; t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where 编号=:编号 '); t_ch_fee_modify.sql.Add('and 申请类型 in '+str_seae); if wwDBComboBox31.text<>'' then t_ch_fee_modify.sql.Add('and 类型='''+wwDBComboBox31.text+''''); t_ch_fee_modify.sql.Add(' order by 类型,申请类型,FM_ID'); a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; a_shen_add.close; p_seae.close; p_seae.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seae.*, v_ch_fee_modify_check_sum.利润调整 AS 利润调整 ' +'FROM t_op_seae INNER JOIN ' +'v_ch_fee_modify_check_sum ON t_op_seae.编号 = v_ch_fee_modify_check_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; a_shen_add.open; exit; end; if bsSkinTabSheet2.Showing then begin str_seai:=''; if (not bsSkinCheckRadioBox4.Checked) and (not bsSkinCheckRadioBox5.Checked) and (not bsSkinCheckRadioBox6.Checked) then begin MessageDlg('必须选择一个类型！',mtWarning,[mbOk],0); exit; end; if bsSkinCheckRadioBox4.Checked then begin str_seai:='''申请追加''' end; if bsSkinCheckRadioBox5.Checked then begin if str_seai<>'' then str_seai:=str_seai+',''申请修改'' ' else str_seai:='''申请修改'''; end; if bsSkinCheckRadioBox6.Checked then begin if str_seai<>'' then str_seai:=str_seai+',''申请删除''' else str_seai:='''申请删除'''; end; if str_seai<>'' then str_seai:='('+str_seai+')'; 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 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 RxDBLookupCombo26.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 分部名称='+''''+RxDBLookupCombo26.DisplayValue+'''' else str_bill:=str_bill+' and 分部名称='+''''+RxDBLookupCombo26.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 wwDBComboBox5.text<>'' then begin if str_fee='' then str_fee:=' where 类型='+''''+wwDBComboBox5.text+'''' else str_fee:=str_fee+' and 类型='+''''+wwDBComboBox5.text+''''; end; if str_seai<>'' then if str_fee='' then begin str_fee:=' where 申请类型 in '+str_seai; end else begin str_fee:=str_fee+' and 申请类型 in '+str_seai; end; if wwDBComboBox2.Text<>''then begin if wwDBComboBox2.text='没有复核' then str_fuhe:=' t_op_seai.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'批准申请'+''''+' and 申请类型 in '+str_seai+')' else str_fuhe:=' t_op_seai.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'复核通过'+''''+' and 申请类型 in '+str_seai+')'; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_seai.编号 in (select 编号 from v_ch_fee_modify_view'+str_fee+')'; end else begin if str_fee<>'' then str_bill:=' where t_op_seai.编号 in (select 编号 from v_ch_fee_modify_view'+str_fee+')'; end; if str_fuhe<>''then begin if str_bill<>'' then str_bill:=str_bill+' and '+str_fuhe else str_bill:=' where '+str_fuhe; end; t_ch_fee_modify.close; t_ch_fee_modify.sql.Clear; t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where 编号=:编号 '); t_ch_fee_modify.sql.Add('and 申请类型 in '+str_seai); if wwDBComboBox5.text<>'' then t_ch_fee_modify.sql.Add('and 类型='''+wwDBComboBox5.text+''''); t_ch_fee_modify.sql.Add(' order by 类型,申请类型,FM_ID'); a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; a_shen_add.close; p_seai.close; p_seai.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_seai.*, v_ch_fee_modify_check_sum.利润调整 AS 利润调整 ' +'FROM t_op_seai INNER JOIN ' +'v_ch_fee_modify_check_sum ON t_op_seai.编号 = v_ch_fee_modify_check_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; a_shen_add.open; exit; end; if bsSkinTabSheet3.Showing then begin str_aire:=''; if (not bsSkinCheckRadioBox7.Checked) and (not bsSkinCheckRadioBox8.Checked) and (not bsSkinCheckRadioBox9.Checked) then begin MessageDlg('必须选择一个类型！',mtWarning,[mbOk],0); exit; end; if bsSkinCheckRadioBox7.Checked then begin str_aire:='''申请追加''' end; if bsSkinCheckRadioBox8.Checked then begin if str_aire<>'' then str_aire:=str_aire+',''申请修改'' ' else str_aire:='''申请修改'''; end; if bsSkinCheckRadioBox9.Checked then begin if str_aire<>'' then str_aire:=str_aire+',''申请删除''' else str_aire:='''申请删除'''; end; if str_aire<>'' then str_aire:='('+str_aire+')'; 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 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 RxDBLookupCombo27.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 分部名称='+''''+RxDBLookupCombo27.DisplayValue+'''' else str_bill:=str_bill+' and 分部名称='+''''+RxDBLookupCombo27.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_fee='' then begin str_fee:=' where 申请类型 in '+str_aire; end else begin str_fee:=str_fee+' and 申请类型 in '+str_aire; end; if wwDBComboBox3.Text<>''then begin if wwDBComboBox3.text='没有复核' then str_fuhe:=' t_op_aire.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'批准申请'+''''+' and 申请类型 in '+str_aire+')' else str_fuhe:=' t_op_aire.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'复核通过'+''''+' and 申请类型 in '+str_aire+')'; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_aire.编号 in (select 编号 from v_ch_fee_modify_view'+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; if str_fuhe<>''then begin if str_bill<>'' then str_bill:=str_bill+' and '+str_fuhe else str_bill:=' where '+str_fuhe; end; t_ch_fee_modify.close; t_ch_fee_modify.sql.Clear; t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where 编号=:编号 '); t_ch_fee_modify.sql.Add('and 申请类型 in '+str_aire); t_ch_fee_modify.sql.Add(' order by 类型,申请类型,FM_ID'); a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; a_shen_add.close; p_aire.close; p_aire.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_aire.*, v_ch_fee_modify_check_sum.利润调整 AS 利润调整 ' +'FROM t_op_aire INNER JOIN ' +'v_ch_fee_modify_check_sum ON t_op_aire.编号 = v_ch_fee_modify_check_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; a_shen_add.open; exit; end; if bsSkinTabSheet4.Showing then begin str_airi:=''; if (not bsSkinCheckRadioBox10.Checked) and (not bsSkinCheckRadioBox11.Checked) and (not bsSkinCheckRadioBox12.Checked) then begin MessageDlg('必须选择一个类型！',mtWarning,[mbOk],0); exit; end; if bsSkinCheckRadioBox10.Checked then begin str_airi:='''申请追加''' end; if bsSkinCheckRadioBox11.Checked then begin if str_airi<>'' then str_airi:=str_airi+',''申请修改'' ' else str_airi:='''申请修改'''; end; if bsSkinCheckRadioBox12.Checked then begin if str_airi<>'' then str_airi:=str_airi+',''申请删除''' else str_airi:='''申请删除'''; end; if str_airi<>'' then str_airi:='('+str_airi+')'; 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 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 RxDBLookupCombo28.DisplayValue<>'' then begin if str_bill='' then str_bill:=' where 分部名称='+''''+RxDBLookupCombo28.DisplayValue+'''' else str_bill:=str_bill+' and 分部名称='+''''+RxDBLookupCombo28.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_fee='' then begin str_fee:=' where 申请类型 in '+str_airi; end else begin str_fee:=str_fee+' and 申请类型 in '+str_airi; end; if wwDBComboBox4.Text<>''then begin if wwDBComboBox4.text='没有复核' then str_fuhe:=' t_op_airi.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'批准申请'+''''+' and 申请类型 in '+str_airi+')' else str_fuhe:=' t_op_airi.编号 in (select 编号 from v_ch_fee_modify_view where 申请状态=' +''''+'复核通过'+''''+' and 申请类型 in '+str_airi+')'; end; if str_bill<>'' then begin if str_fee<>'' then str_bill:=str_bill+' and t_op_airi.编号 in (select 编号 from v_ch_fee_modify_view'+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; if str_fuhe<>''then begin if str_bill<>'' then str_bill:=str_bill+' and '+str_fuhe else str_bill:=' where '+str_fuhe; end; t_ch_fee_modify.close; t_ch_fee_modify.sql.Clear; t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where 编号=:编号 '); t_ch_fee_modify.sql.Add('and 申请类型 in '+str_airi); t_ch_fee_modify.sql.Add(' order by 类型,申请类型,FM_ID'); a_shen_delete.close; a_shen_modify_old.close; a_shen_modify_new.close; a_shen_add.close; p_airi.close; p_airi.Parameters.ParamByName('SQLStr').value:= 'SELECT t_op_airi.*, v_ch_fee_modify_check_sum.利润调整 AS 利润调整 ' +'FROM t_op_airi INNER JOIN ' +'v_ch_fee_modify_check_sum ON t_op_airi.编号 = v_ch_fee_modify_check_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; a_shen_add.open; exit; end; end; procedure Tfrm_ch_fee_modify_check.Panel1Resize(Sender: TObject); begin bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width; end; procedure Tfrm_ch_fee_modify_check.bsSkinPageControl1Change( Sender: TObject); begin if ch_fee_modify_check 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_ch_fee_modify_check.dxDBGrid1ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_seae,'业务编号'); end; procedure Tfrm_ch_fee_modify_check.dxDBGrid3ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_seai,'业务编号'); end; procedure Tfrm_ch_fee_modify_check.dxDBGrid4ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_aire,'业务编号'); end; procedure Tfrm_ch_fee_modify_check.dxDBGrid5ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort_pro(Column,p_airi,'业务编号'); end; procedure Tfrm_ch_fee_modify_check.dxDBGrid2ColumnSorting(Sender: TObject; Column: TdxDBTreeListColumn; var Allow: Boolean); begin Column_sort(Column,t_ch_fee_modify,'FM_ID'); end; procedure Tfrm_ch_fee_modify_check.DBEdit17Change(Sender: TObject); 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; a_modify_add.Visible:=false; a_modify_add.Align:=alNone; 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:=false; a_delete.Align:=alNone; a_modify_add.Visible:=true; a_modify_add.Align:=alRight; 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_modify_add.Visible:=false; a_modify_add.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_add.Visible:=false; a_modify_add.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_ch_fee_modify_check.bsSkinButton1Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; Edit4.Text:=''; Edit5.Text:=''; Edit6.Text:=''; Edit7.Text:=''; Edit8.Text:=''; Edit9.Text:=''; Edit11.Text:=''; Edit13.Text:=''; Edit15.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:=''; wwDBComboBox1.Text:=''; wwDBComboBox2.Text:=''; wwDBComboBox3.Text:=''; wwDBComboBox4.Text:=''; end; procedure Tfrm_ch_fee_modify_check.FormShow(Sender: TObject); begin ch_fee_modify_check:=true; end; procedure Tfrm_ch_fee_modify_check.bsSkinButton2Click(Sender: TObject); var i:integer; begin if t_ch_fee_modify.IsEmpty then exit; if dxDBGrid2.SelectedCount>=1 then begin for i:=0 to dxDBGrid2.SelectedCount-1 do begin t_ch_fee_modify.GotoBookmark(pointer(dxDBGrid2.selectedrows[i])); if t_ch_fee_modify.FieldByName('申请状态').asstring='批准申请' then begin if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请删除') then begin a_shen_delete.edit; a_shen_delete['申请状态']:='复核通过'; a_shen_delete.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请修改') then begin a_shen_modify_old.edit; a_shen_modify_old['申请状态']:='复核通过'; a_shen_modify_old.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请追加') then begin a_shen_add.edit; a_shen_add['是否复核']:=1; a_shen_add.post; end end; end; end else begin if t_ch_fee_modify.FieldByName('申请状态').asstring='批准申请' then begin if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请删除') then begin a_shen_delete.edit; a_shen_delete['申请状态']:='复核通过'; a_shen_delete.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请修改') then begin a_shen_modify_old.edit; a_shen_modify_old['申请状态']:='复核通过'; a_shen_modify_old.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请追加') then begin a_shen_add.edit; a_shen_add['是否复核']:=1; a_shen_add.post; end end; end; t_ch_fee_modify.Requery(); end; procedure Tfrm_ch_fee_modify_check.bsSkinButton4Click(Sender: TObject); begin if t_ch_fee_modify.IsEmpty then exit; t_ch_fee_modify.first; while not t_ch_fee_modify.eof do begin if t_ch_fee_modify.FieldByName('申请状态').asstring='批准申请' then begin if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请删除') then begin a_shen_delete.edit; a_shen_delete['申请状态']:='复核通过'; a_shen_delete.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请修改') then begin a_shen_modify_old.edit; a_shen_modify_old['申请状态']:='复核通过'; a_shen_modify_old.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请追加') then begin a_shen_add.edit; a_shen_add['是否复核']:=1; a_shen_add.post; end end; t_ch_fee_modify.next; end; t_ch_fee_modify.Requery(); end; procedure Tfrm_ch_fee_modify_check.bsSkinButton3Click(Sender: TObject); begin if t_ch_fee_modify.IsEmpty then exit; if t_ch_fee_modify.FieldByName('申请状态').asstring='复核通过' then begin if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请删除') then begin a_shen_delete.edit; a_shen_delete['申请状态']:='批准申请'; a_shen_delete.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请修改') then begin a_shen_modify_old.edit; a_shen_modify_old['申请状态']:='批准申请'; a_shen_modify_old.post; end else if (t_ch_fee_modify.FieldByName('申请类型').asstring='申请追加') then begin a_shen_add.edit; a_shen_add['是否复核']:=0; a_shen_add.post; end end; t_ch_fee_modify.Requery(); end; procedure Tfrm_ch_fee_modify_check.dxDBGrid2Column2CustomDraw( Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont; var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean); begin if ANode.Strings[dxDBGrid2Column2.Index]='批准申请' then AColor:=$0040FF00 else AColor:=clred; AFont.Color:=clblack; end; procedure Tfrm_ch_fee_modify_check.bsSkinGroupBox1Resize(Sender: TObject); begin bsSkinButton3.Left:=bsSkinGroupBox1.Width-97; bsSkinButton4.Left:=bsSkinGroupBox1.Width-97*2; bsSkinButton2.Left:=bsSkinGroupBox1.Width-97*3; end; end.