{$INCLUDE t_main.inc} unit u_ch_shen_query; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, DB,inifiles, BusinessSkinForm, bsSkinCtrls, RxLookup, wwdbdatetimepicker, ComCtrls, bsSkinTabs, wwdblook; type Tfrm_ch_shen_query = class(TForm) bsSkinButton1: TbsSkinButton; bsSkinButton10: TbsSkinButton; bsSkinButton5: TbsSkinButton; bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinPageControl1: TbsSkinPageControl; bsSkinTabSheet1: TbsSkinTabSheet; bsSkinGroupBox1: TbsSkinGroupBox; Label6: TLabel; wwDBComboBox15: TwwDBComboBox; Edit2: TEdit; Label3: TLabel; wwDBComboBox4: TwwDBComboBox; Edit4: TEdit; wwDBComboBox21: TwwDBComboBox; RxDBLookupCombo2: TRxDBLookupCombo; Label9: TLabel; Label2: TLabel; Label5: TLabel; Label11: TLabel; Label14: TLabel; wwDBComboBox14: TwwDBComboBox; wwDBComboBox11: TwwDBComboBox; wwDBComboBox6: TwwDBComboBox; RxDBLookupCombo1: TRxDBLookupCombo; wwDBDateTimePicker2: TwwDBDateTimePicker; wwDBDateTimePicker4: TwwDBDateTimePicker; RxDBLookupCombo3: TRxDBLookupCombo; RxDBLookupCombo4: TRxDBLookupCombo; wwDBDateTimePicker3: TwwDBDateTimePicker; wwDBDateTimePicker1: TwwDBDateTimePicker; Edit1: TEdit; wwDBComboBox1: TwwDBComboBox; wwDBComboBox17: TwwDBComboBox; wwDBComboBox2: TwwDBComboBox; wwDBComboBox18: TwwDBComboBox; wwDBComboBox19: TwwDBComboBox; wwDBComboBox5: TwwDBComboBox; Label4: TLabel; Label8: TLabel; Label10: TLabel; Label1: TLabel; Label7: TLabel; wwDBComboBox3: TwwDBComboBox; bsSkinTabSheet2: TbsSkinTabSheet; bsSkinTabSheet3: TbsSkinTabSheet; bsSkinTabSheet4: TbsSkinTabSheet; Label12: TLabel; wwDBComboBox7: TwwDBComboBox; Edit3: TEdit; Label13: TLabel; wwDBComboBox8: TwwDBComboBox; Edit5: TEdit; Label15: TLabel; wwDBComboBox16: TwwDBComboBox; Edit6: TEdit; Label16: TLabel; wwDBComboBox9: TwwDBComboBox; Edit7: TEdit; Label17: TLabel; wwDBComboBox10: TwwDBComboBox; wwDBDateTimePicker5: TwwDBDateTimePicker; Label18: TLabel; wwDBComboBox12: TwwDBComboBox; wwDBDateTimePicker6: TwwDBDateTimePicker; wwDBDateTimePicker7: TwwDBDateTimePicker; wwDBComboBox13: TwwDBComboBox; Label19: TLabel; wwDBDateTimePicker8: TwwDBDateTimePicker; wwDBComboBox20: TwwDBComboBox; Label20: TLabel; Label21: TLabel; wwDBComboBox24: TwwDBComboBox; RxDBLookupCombo5: TRxDBLookupCombo; Label22: TLabel; wwDBComboBox22: TwwDBComboBox; RxDBLookupCombo6: TRxDBLookupCombo; RxDBLookupCombo7: TRxDBLookupCombo; wwDBComboBox23: TwwDBComboBox; Label23: TLabel; wwDBComboBox25: TwwDBComboBox; Label24: TLabel; RxDBLookupCombo8: TRxDBLookupCombo; Label25: TLabel; wwDBComboBox26: TwwDBComboBox; Edit8: TEdit; Label26: TLabel; wwDBComboBox27: TwwDBComboBox; Edit9: TEdit; Label27: TLabel; wwDBComboBox28: TwwDBComboBox; Edit10: TEdit; Label28: TLabel; wwDBComboBox29: TwwDBComboBox; Edit11: TEdit; Label29: TLabel; wwDBComboBox30: TwwDBComboBox; wwDBDateTimePicker9: TwwDBDateTimePicker; Label30: TLabel; wwDBComboBox31: TwwDBComboBox; wwDBDateTimePicker10: TwwDBDateTimePicker; Label31: TLabel; wwDBComboBox32: TwwDBComboBox; wwDBDateTimePicker11: TwwDBDateTimePicker; Label32: TLabel; wwDBComboBox33: TwwDBComboBox; wwDBDateTimePicker12: TwwDBDateTimePicker; RxDBLookupCombo9: TRxDBLookupCombo; wwDBComboBox34: TwwDBComboBox; Label33: TLabel; RxDBLookupCombo10: TRxDBLookupCombo; wwDBComboBox35: TwwDBComboBox; Label34: TLabel; Label35: TLabel; wwDBComboBox36: TwwDBComboBox; RxDBLookupCombo11: TRxDBLookupCombo; Label36: TLabel; wwDBComboBox37: TwwDBComboBox; RxDBLookupCombo12: TRxDBLookupCombo; Label37: TLabel; wwDBComboBox38: TwwDBComboBox; Edit12: TEdit; Label38: TLabel; wwDBComboBox39: TwwDBComboBox; Edit13: TEdit; Edit14: TEdit; wwDBComboBox40: TwwDBComboBox; Label39: TLabel; Edit15: TEdit; wwDBComboBox41: TwwDBComboBox; Label40: TLabel; Label41: TLabel; wwDBComboBox42: TwwDBComboBox; wwDBDateTimePicker13: TwwDBDateTimePicker; Label42: TLabel; wwDBComboBox43: TwwDBComboBox; wwDBDateTimePicker14: TwwDBDateTimePicker; wwDBDateTimePicker15: TwwDBDateTimePicker; wwDBComboBox44: TwwDBComboBox; Label43: TLabel; wwDBDateTimePicker16: TwwDBDateTimePicker; wwDBComboBox45: TwwDBComboBox; Label44: TLabel; Label45: TLabel; wwDBComboBox46: TwwDBComboBox; RxDBLookupCombo13: TRxDBLookupCombo; Label46: TLabel; wwDBComboBox47: TwwDBComboBox; RxDBLookupCombo14: TRxDBLookupCombo; RxDBLookupCombo15: TRxDBLookupCombo; wwDBComboBox48: TwwDBComboBox; Label47: TLabel; RxDBLookupCombo16: TRxDBLookupCombo; wwDBComboBox49: TwwDBComboBox; Label48: TLabel; Label49: TLabel; wwDBComboBox50: TwwDBComboBox; Edit16: TEdit; Label50: TLabel; wwDBComboBox51: TwwDBComboBox; Edit17: TEdit; Edit18: TEdit; wwDBComboBox52: TwwDBComboBox; Label51: TLabel; Edit19: TEdit; wwDBComboBox53: TwwDBComboBox; Label52: TLabel; Label53: TLabel; wwDBComboBox54: TwwDBComboBox; wwDBDateTimePicker17: TwwDBDateTimePicker; Label54: TLabel; wwDBComboBox55: TwwDBComboBox; wwDBDateTimePicker18: TwwDBDateTimePicker; wwDBDateTimePicker19: TwwDBDateTimePicker; wwDBComboBox56: TwwDBComboBox; Label55: TLabel; wwDBDateTimePicker20: TwwDBDateTimePicker; wwDBComboBox57: TwwDBComboBox; Label56: TLabel; Label57: TLabel; wwDBComboBox58: TwwDBComboBox; RxDBLookupCombo17: TRxDBLookupCombo; Label58: TLabel; wwDBComboBox59: TwwDBComboBox; RxDBLookupCombo18: TRxDBLookupCombo; RxDBLookupCombo19: TRxDBLookupCombo; wwDBComboBox60: TwwDBComboBox; Label59: TLabel; RxDBLookupCombo20: TRxDBLookupCombo; wwDBComboBox61: TwwDBComboBox; Label60: TLabel; bsSkinCheckRadioBox1: TbsSkinCheckRadioBox; Label61: TLabel; wwDBComboBox65: TwwDBComboBox; RxDBLookupCombo21: TRxDBLookupCombo; Label62: TLabel; wwDBComboBox62: TwwDBComboBox; RxDBLookupCombo22: TRxDBLookupCombo; Label63: TLabel; wwDBComboBox63: TwwDBComboBox; RxDBLookupCombo23: TRxDBLookupCombo; Label64: TLabel; wwDBComboBox64: TwwDBComboBox; RxDBLookupCombo24: TRxDBLookupCombo; Label66: TLabel; Label67: TLabel; wwDBComboBox67: TwwDBComboBox; wwDBDateTimePicker21: TwwDBDateTimePicker; wwDBDateTimePicker22: TwwDBDateTimePicker; wwDBComboBox68: TwwDBComboBox; Label65: TLabel; wwDBComboBox66: TwwDBComboBox; Edit20: TEdit; Label68: TLabel; wwDBComboBox69: TwwDBComboBox; Edit21: TEdit; bsSkinTabSheet5: TbsSkinTabSheet; Label69: TLabel; Label70: TLabel; Label71: TLabel; Label72: TLabel; Label73: TLabel; Label74: TLabel; Label75: TLabel; Label76: TLabel; Label77: TLabel; Label78: TLabel; Label79: TLabel; Label80: TLabel; Label81: TLabel; wwDBComboBox70: TwwDBComboBox; Edit22: TEdit; wwDBComboBox71: TwwDBComboBox; Edit23: TEdit; wwDBComboBox72: TwwDBComboBox; Edit24: TEdit; wwDBComboBox73: TwwDBComboBox; Edit25: TEdit; wwDBComboBox74: TwwDBComboBox; wwDBDateTimePicker23: TwwDBDateTimePicker; wwDBComboBox75: TwwDBComboBox; wwDBDateTimePicker24: TwwDBDateTimePicker; wwDBDateTimePicker25: TwwDBDateTimePicker; wwDBComboBox76: TwwDBComboBox; wwDBDateTimePicker26: TwwDBDateTimePicker; wwDBComboBox77: TwwDBComboBox; wwDBComboBox78: TwwDBComboBox; RxDBLookupCombo25: TRxDBLookupCombo; wwDBComboBox79: TwwDBComboBox; RxDBLookupCombo26: TRxDBLookupCombo; RxDBLookupCombo27: TRxDBLookupCombo; wwDBComboBox80: TwwDBComboBox; wwDBComboBox81: TwwDBComboBox; RxDBLookupCombo28: TRxDBLookupCombo; wwDBComboBox82: TwwDBComboBox; RxDBLookupCombo29: TRxDBLookupCombo; Label82: TLabel; Label83: TLabel; wwDBComboBox83: TwwDBComboBox; wwDBDateTimePicker27: TwwDBDateTimePicker; wwDBDateTimePicker28: TwwDBDateTimePicker; wwDBComboBox84: TwwDBComboBox; Label84: TLabel; wwDBComboBox85: TwwDBComboBox; RxDBLookupCombo30: TRxDBLookupCombo; Label85: TLabel; wwDBComboBox86: TwwDBComboBox; wwDBComboBox87: TwwDBComboBox; Label86: TLabel; Edit31: TEdit; Label87: TLabel; wwDBComboBox88: TwwDBComboBox; Edit26: TEdit; procedure bsSkinButton5Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure bsSkinButton10Click(Sender: TObject); procedure bsSkinButton1Click(Sender: TObject); private procedure loadFindIni ; procedure writeFindIni ; { Private declarations } public { Public declarations } end; var frm_ch_shen_query: Tfrm_ch_shen_query; shen_query_type:integer; shen_query_limited:string; shen_query_op_limited:string; implementation uses u_main, my_sys_function, {$IFDEF FPSHENQING}u_ch_invoice_shen,u_ch_invoice_check,{$ENDIF} u_ch_invoice, u_data_share, {$IFDEF FFLIUCHENG}u_ch_check_shen, u_ch_check_check,{$ENDIF} u_ch_balance_pay, u_ch_balance_accept{$IFDEF SFLIUCHENG}, u_ch_accept_shen{$ENDIF}; {$R *.dfm} procedure Tfrm_ch_shen_query.bsSkinButton5Click(Sender: TObject); begin close; end; procedure Tfrm_ch_shen_query.FormShow(Sender: TObject); begin loadFindIni; wwDBComboBox15.text:='模糊'; wwDBComboBox17.text:='等于'; wwDBComboBox87.text:='等于'; wwDBComboBox2.text:='等于'; wwDBComboBox18.text:='大于'; wwDBComboBox84.text:='大于'; wwDBComboBox83.text:='小于'; wwDBComboBox19.text:='大于'; wwDBComboBox5.text:='等于'; wwDBComboBox85.text:='等于'; wwDBComboBox21.text:='等于'; wwDBComboBox4.text:='模糊'; wwDBComboBox3.text:='等于'; wwDBComboBox6.text:='小于'; wwDBComboBox11.text:='小于'; wwDBComboBox14.text:='等于'; wwDBComboBox7.text:='模糊'; wwDBComboBox16.text:='模糊'; wwDBComboBox10.text:='大于'; wwDBComboBox20.text:='大于'; wwDBComboBox24.text:='等于'; wwDBComboBox25.text:='等于'; wwDBComboBox8.text:='模糊'; wwDBComboBox9.text:='模糊'; wwDBComboBox12.text:='小于'; wwDBComboBox13.text:='小于'; wwDBComboBox22.text:='等于'; wwDBComboBox23.text:='等于'; wwDBComboBox26.text:='模糊'; wwDBComboBox28.text:='模糊'; wwDBComboBox30.text:='大于'; wwDBComboBox32.text:='大于'; wwDBComboBox35.text:='等于'; wwDBComboBox36.text:='等于'; wwDBComboBox27.text:='模糊'; wwDBComboBox29.text:='模糊'; wwDBComboBox31.text:='小于'; wwDBComboBox33.text:='小于'; wwDBComboBox34.text:='等于'; wwDBComboBox37.text:='等于'; wwDBComboBox38.text:='模糊'; wwDBComboBox39.text:='模糊'; wwDBComboBox40.text:='模糊'; wwDBComboBox41.text:='模糊'; wwDBComboBox42.text:='大于'; wwDBComboBox43.text:='小于'; wwDBComboBox44.text:='小于'; wwDBComboBox45.text:='大于'; wwDBComboBox46.text:='等于'; wwDBComboBox47.text:='等于'; wwDBComboBox48.text:='等于'; wwDBComboBox49.text:='等于'; wwDBComboBox50.text:='模糊'; wwDBComboBox51.text:='模糊'; wwDBComboBox52.text:='模糊'; wwDBComboBox53.text:='模糊'; wwDBComboBox54.text:='大于'; wwDBComboBox55.text:='小于'; wwDBComboBox56.text:='小于'; wwDBComboBox57.text:='大于'; wwDBComboBox58.text:='等于'; wwDBComboBox59.text:='等于'; wwDBComboBox60.text:='等于'; wwDBComboBox61.text:='等于'; wwDBComboBox62.text:='等于'; wwDBComboBox63.text:='等于'; wwDBComboBox64.text:='等于'; wwDBComboBox65.text:='等于'; wwDBComboBox66.text:='大于'; wwDBComboBox67.text:='小于'; wwDBComboBox68.text:='大于'; wwDBComboBox69.text:='小于'; // wwDBComboBox70.text:='模糊'; wwDBComboBox71.text:='模糊'; wwDBComboBox72.text:='模糊'; wwDBComboBox73.text:='模糊'; wwDBComboBox74.text:='大于'; wwDBComboBox75.text:='小于'; wwDBComboBox76.text:='小于'; wwDBComboBox77.text:='大于'; wwDBComboBox78.text:='等于'; wwDBComboBox79.text:='等于'; wwDBComboBox80.text:='等于'; wwDBComboBox81.text:='等于'; wwDBComboBox82.text:='等于'; wwDBComboBox88.text:='模糊'; case shen_query_type of 1,2,3,7: begin Label3.Caption:='发票号码'; wwDBComboBox1.Items.Clear; wwDBComboBox1.Items.Add('申请开票'); wwDBComboBox1.Items.Add('提交申请'); wwDBComboBox1.Items.Add('批准开票'); wwDBComboBox1.Items.Add('驳回申请'); wwDBComboBox1.Items.Add('申请修改'); wwDBComboBox1.Items.Add('批准修改'); wwDBComboBox1.Items.Add('禁止修改'); wwDBComboBox1.Items.Add('开出发票'); end; 4,5,6: begin Label3.Caption:='相关号码'; wwDBComboBox1.Items.Clear; wwDBComboBox1.Items.Add('申请支付'); wwDBComboBox1.Items.Add('提交申请'); wwDBComboBox1.Items.Add('批准支付'); wwDBComboBox1.Items.Add('驳回申请'); wwDBComboBox1.Items.Add('申请修改'); wwDBComboBox1.Items.Add('批准修改'); wwDBComboBox1.Items.Add('禁止修改'); wwDBComboBox1.Items.Add('支付完毕'); end; end; frm_data_share.t_crm_client_all.requery; frm_data_share.t_code_currency.requery; frm_data_share.t_sys_employee.requery; end; procedure Tfrm_ch_shen_query.bsSkinButton10Click(Sender: TObject); begin Edit2.text:=''; wwDBComboBox1.text:=''; wwDBComboBox86.text:=''; Edit1.text:=''; wwDBDateTimePicker1.Clear; wwDBDateTimePicker3.Clear; RxDBLookupCombo4.ClearValue; RxDBLookupCombo30.ClearValue; Edit4.text:=''; RxDBLookupCombo2.ClearValue; RxDBLookupCombo1.ClearValue; wwDBDateTimePicker2.Clear; wwDBDateTimePicker4.Clear; RxDBLookupCombo3.ClearValue; Edit3.text:=''; Edit6.text:=''; wwDBDateTimePicker5.Clear; wwDBDateTimePicker8.Clear; RxDBLookupCombo5.ClearValue; RxDBLookupCombo8.ClearValue; Edit5.text:=''; Edit7.text:=''; wwDBDateTimePicker6.Clear; wwDBDateTimePicker7.Clear; RxDBLookupCombo6.ClearValue; RxDBLookupCombo7.ClearValue; Edit8.text:=''; Edit10.text:=''; wwDBDateTimePicker9.Clear; wwDBDateTimePicker11.Clear; RxDBLookupCombo10.ClearValue; RxDBLookupCombo11.ClearValue; Edit9.text:=''; Edit11.text:=''; wwDBDateTimePicker10.Clear; wwDBDateTimePicker12.Clear; RxDBLookupCombo9.ClearValue; RxDBLookupCombo12.ClearValue; RxDBLookupCombo21.ClearValue; RxDBLookupCombo22.ClearValue; RxDBLookupCombo23.ClearValue; RxDBLookupCombo24.ClearValue; wwDBDateTimePicker21.Clear; wwDBDateTimePicker22.Clear; wwDBDateTimePicker28.Clear; wwDBDateTimePicker27.Clear; Edit20.text:=''; Edit21.text:=''; Edit22.text:=''; Edit23.text:=''; Edit24.text:=''; Edit25.text:=''; Edit31.text:=''; RxDBLookupCombo21.ClearValue; wwDBDateTimePicker23.text:=''; wwDBDateTimePicker24.text:=''; wwDBDateTimePicker25.text:=''; wwDBDateTimePicker26.text:=''; RxDBLookupCombo25.ClearValue; RxDBLookupCombo26.ClearValue; RxDBLookupCombo27.ClearValue; RxDBLookupCombo28.ClearValue; RxDBLookupCombo29.ClearValue; end; procedure Tfrm_ch_shen_query.bsSkinButton1Click(Sender: TObject); var shen_string,op_string:widestring; begin writeFindIni; shen_string:=''; op_string:=''; //shen_string:=query_tiaojian(1,shen_string,'申请编号',wwDBComboBox15.text,Edit2.text); shen_string:=query_tiaojian(1,shen_string,'申请状态',wwDBComboBox17.text,wwDBComboBox1.text); shen_string:=query_tiaojian(1,shen_string,'收款方式',wwDBComboBox87.text,wwDBComboBox86.text); //shen_string:=query_tiaojian(2,shen_string,'申请金额',wwDBComboBox2.text,Edit1.text); shen_string:=query_tiaojian(1,shen_string,'申请日期',wwDBComboBox18.text,wwDBDateTimePicker1.text); shen_string:=query_tiaojian(1,shen_string,'交接日期',wwDBComboBox84.text,wwDBDateTimePicker28.text); shen_string:=query_tiaojian(1,shen_string,'审核日期',wwDBComboBox19.text,wwDBDateTimePicker3.text); shen_string:=query_tiaojian(1,shen_string,'开出日期',wwDBComboBox68.text,wwDBDateTimePicker22.text); shen_string:=query_tiaojian(1,shen_string,'开出日期',wwDBComboBox67.text,wwDBDateTimePicker21.text); shen_string:=query_tiaojian(1,shen_string,'申请人',wwDBComboBox5.text,RxDBLookupCombo4.DisplayValues[0]); shen_string:=query_tiaojian(1,shen_string,'交接人',wwDBComboBox85.text,RxDBLookupCombo30.DisplayValues[0]); shen_string:=query_tiaojian(1,shen_string,Label3.caption,wwDBComboBox4.text,Edit4.text); shen_string:=query_tiaojian(1,shen_string,'客户名称',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]); shen_string:=query_tiaojian(1,shen_string,'币别',wwDBComboBox3.text,RxDBLookupCombo1.DisplayValues[0]); shen_string:=query_tiaojian(1,shen_string,'申请日期',wwDBComboBox6.text,wwDBDateTimePicker2.text); shen_string:=query_tiaojian(1,shen_string,'交接日期',wwDBComboBox83.text,wwDBDateTimePicker27.text); shen_string:=query_tiaojian(1,shen_string,'审核日期',wwDBComboBox11.text,wwDBDateTimePicker4.text); shen_string:=query_tiaojian(1,shen_string,'审核人',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValues[0]); shen_string:=query_tiaojian(1,shen_string,'发票抬头',wwDBComboBox88.text,Edit21.text); case shen_query_type of 4: begin if (Edit20.text<>'')and(Edit21.text<>'') then begin if shen_string='' then shen_string:='where 发票号码 between '+''''+Edit20.text+''''+' and '+''''+Edit21.text+'''' else shen_string:=shen_string+' and 发票号码 between '+''''+Edit20.text+''''+' and '+''''+Edit21.text+''''; end else begin shen_string:=query_tiaojian(1,shen_string,'发票号码',wwDBComboBox66.text,Edit20.text); shen_string:=query_tiaojian(1,shen_string,'发票号码',wwDBComboBox69.text,Edit21.text); end; shen_string:=query_tiaojian(1,shen_string,'发票日期',wwDBComboBox68.text,wwDBDateTimePicker22.text); shen_string:=query_tiaojian(1,shen_string,'发票日期',wwDBComboBox67.text,wwDBDateTimePicker21.text); end; end; if (Edit2.text<>'')and(Edit1.text<>'') then begin if shen_string='' then shen_string:='where 申请编号 between '+''''+Edit2.text+''''+' and '+''''+Edit1.text+'''' else shen_string:=shen_string+' and 申请编号 between '+''''+Edit2.text+''''+' and '+''''+Edit1.text+''''; end else begin shen_string:=query_tiaojian(1,shen_string,'申请编号',wwDBComboBox15.text,Edit2.text); shen_string:=query_tiaojian(1,shen_string,'申请编号',wwDBComboBox2.text,Edit1.text); end; if shen_query_limited<>'no'then begin if trim(shen_string)='' then shen_string:='where '+open_data(shen_query_limited,'申请人','no','no','no','no') else shen_string:=shen_string+' and '+open_data(shen_query_limited,'申请人','no','no','no','no'); end; if bsSkinTabSheet1.Showing then begin op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox7.text,Edit3.text); op_string:=query_tiaojian(1,op_string,'主提单号',wwDBComboBox16.text,Edit6.text); op_string:=query_tiaojian(1,op_string,'开船日期',wwDBComboBox10.text,wwDBDateTimePicker5.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox20.text,wwDBDateTimePicker8.text); op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox24.text,RxDBLookupCombo5.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox25.text,RxDBLookupCombo8.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox8.text,Edit5.text); op_string:=query_tiaojian(1,op_string,'分提单号',wwDBComboBox9.text,Edit7.text); op_string:=query_tiaojian(1,op_string,'开船日期',wwDBComboBox12.text,wwDBDateTimePicker6.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox13.text,wwDBDateTimePicker7.text); op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox22.text,RxDBLookupCombo6.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox23.text,RxDBLookupCombo7.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'分部名称',wwDBComboBox65.text,RxDBLookupCombo21.DisplayValue); if trim(op_string)<>''then begin if shen_query_op_limited<>'no'then begin if trim(op_string)='' then op_string:='where '+open_data(shen_query_op_limited,'录入人','操作员','客服员','报关操作','报检操作') else op_string:=op_string+' and '+open_data(shen_query_op_limited,'录入人','操作员','客服员','报关操作','报检操作'); end; op_string:='(select 编号 from t_op_seae '+op_string+')'; end; end; if bsSkinTabSheet2.Showing then begin op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox26.text,Edit8.text); op_string:=query_tiaojian(1,op_string,'主提单号',wwDBComboBox28.text,Edit10.text); op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox30.text,wwDBDateTimePicker9.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox32.text,wwDBDateTimePicker11.text); op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox35.text,RxDBLookupCombo10.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox36.text,RxDBLookupCombo11.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox27.text,Edit9.text); op_string:=query_tiaojian(1,op_string,'分提单号',wwDBComboBox29.text,Edit11.text); op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox31.text,wwDBDateTimePicker10.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox33.text,wwDBDateTimePicker12.text); op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox34.text,RxDBLookupCombo9.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox37.text,RxDBLookupCombo12.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'分部名称',wwDBComboBox64.text,RxDBLookupCombo22.DisplayValue); if trim(op_string)<>''then begin if shen_query_op_limited<>'no'then begin if trim(op_string)='' then op_string:='where '+open_data(shen_query_op_limited,'录入人','操作员','客服员','报关操作','报检操作') else op_string:=op_string+' and '+open_data(shen_query_op_limited,'录入人','操作员','客服员','报关操作','报检操作'); end; op_string:='(select 编号 from t_op_seai '+op_string+')'; end; end; if bsSkinTabSheet3.Showing then begin op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox38.text,Edit12.text); op_string:=query_tiaojian(1,op_string,'主运单号',wwDBComboBox41.text,Edit15.text); op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox39.text,Edit13.text); op_string:=query_tiaojian(1,op_string,'分运单号',wwDBComboBox40.text,Edit14.text); op_string:=query_tiaojian(1,op_string,'一程开航日期',wwDBComboBox42.text,wwDBDateTimePicker13.text); op_string:=query_tiaojian(1,op_string,'一程开航日期',wwDBComboBox43.text,wwDBDateTimePicker14.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox45.text,wwDBDateTimePicker16.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox44.text,wwDBDateTimePicker15.text); op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox46.text,RxDBLookupCombo13.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox49.text,RxDBLookupCombo16.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox47.text,RxDBLookupCombo14.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox48.text,RxDBLookupCombo15.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'分部名称',wwDBComboBox63.text,RxDBLookupCombo23.DisplayValue); if trim(op_string)<>''then begin if shen_query_op_limited<>'no'then begin if trim(op_string)='' then op_string:='where '+open_data(shen_query_op_limited,'录入人','操作员','客服员','no','no') else op_string:=op_string+' and '+open_data(shen_query_op_limited,'录入人','操作员','客服员','no','no'); end; op_string:='(select 编号 from t_op_aire '+op_string+')'; end; end; if bsSkinTabSheet4.Showing then begin op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox50.text,Edit16.text); op_string:=query_tiaojian(1,op_string,'主运单号',wwDBComboBox53.text,Edit19.text); op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox51.text,Edit17.text); op_string:=query_tiaojian(1,op_string,'分运单号',wwDBComboBox52.text,Edit18.text); op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox54.text,wwDBDateTimePicker17.text); op_string:=query_tiaojian(1,op_string,'进口日期',wwDBComboBox55.text,wwDBDateTimePicker18.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox57.text,wwDBDateTimePicker20.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox56.text,wwDBDateTimePicker19.text); op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox58.text,RxDBLookupCombo17.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox61.text,RxDBLookupCombo20.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox59.text,RxDBLookupCombo18.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox60.text,RxDBLookupCombo19.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'分部名称',wwDBComboBox62.text,RxDBLookupCombo22.DisplayValue); if trim(op_string)<>''then begin if shen_query_op_limited<>'no'then begin if trim(op_string)='' then op_string:='where '+open_data(shen_query_op_limited,'录入人','操作员','客服员','no','no') else op_string:=op_string+' and '+open_data(shen_query_op_limited,'录入人','操作员','客服员','no','no'); end; op_string:='(select 编号 from t_op_airi '+op_string+')'; end; end; if bsSkinTabSheet5.Showing then begin op_string:=query_tiaojian(1,op_string,'业务编号',wwDBComboBox70.text,Edit22.text); op_string:=query_tiaojian(1,op_string,'主提单号',wwDBComboBox72.text,Edit24.text); op_string:=query_tiaojian(1,op_string,'开船日期',wwDBComboBox74.text,wwDBDateTimePicker23.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox77.text,wwDBDateTimePicker26.text); op_string:=query_tiaojian(1,op_string,'客服员',wwDBComboBox78.text,RxDBLookupCombo25.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'操作员',wwDBComboBox81.text,RxDBLookupCombo28.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'委托编号',wwDBComboBox71.text,Edit23.text); op_string:=query_tiaojian(1,op_string,'分提单号',wwDBComboBox73.text,Edit25.text); op_string:=query_tiaojian(1,op_string,'开船日期',wwDBComboBox75.text,wwDBDateTimePicker24.text); op_string:=query_tiaojian(1,op_string,'会计期间',wwDBComboBox76.text,wwDBDateTimePicker25.text); op_string:=query_tiaojian(1,op_string,'揽货人',wwDBComboBox79.text,RxDBLookupCombo26.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'录入人',wwDBComboBox80.text,RxDBLookupCombo27.DisplayValues[0]); op_string:=query_tiaojian(1,op_string,'分部名称',wwDBComboBox82.text,RxDBLookupCombo29.DisplayValue); if Edit31.Text<>'' then begin if trim(op_string)<>'' then begin op_string:=op_string+' and (V_op_bscard_All.订舱单号 like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.主提单号 like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.分提单号 like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.委托编号 like '+''''+'%'+Edit31.text+'%'+''')'; end else begin op_string:=' where (V_op_bscard_All.订舱单号 like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.主提单号 like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.分提单号 like '+''''+'%'+Edit31.text+'%'+''' or V_op_bscard_All.委托编号 like '+''''+'%'+Edit31.text+'%'+''')'; end; end; if trim(op_string)<>''then begin if shen_query_op_limited<>'no'then begin if trim(op_string)='' then op_string:='where '+open_data(shen_query_op_limited,'录入人','操作员','客服员','报关操作','报检操作') else op_string:=op_string+' and '+open_data(shen_query_op_limited,'录入人','操作员','客服员','报关操作','报检操作'); end; op_string:='(select 编号 from V_op_bscard_All '+op_string+')'; end; end; case shen_query_type of 1,2,3,7: begin if trim(op_string)<>''then begin if trim(shen_string)='' then shen_string:='where 申请编号 in (select 工作编号 from t_ch_fee_do where (类型='+''''+'1'+'''' +'or 类型='+''''+'7'+''''+')' +' and 业务编号 in '+op_string+')' else shen_string:=shen_string+' and 申请编号 in (select 工作编号 from t_ch_fee_do where (类型='+''''+'1'+'''' +'or 类型='+''''+'7'+''''+')' // shen_string:=shen_string+' and 申请编号 in (select 工作编号 from t_ch_fee_do where 类型='+''''+'1'+'''' +' and 业务编号 in '+op_string+')' ; end; end; 8,9: begin if trim(op_string)<>''then begin if trim(shen_string)='' then shen_string:='where 申请编号 in (select 工作编号 from t_ch_fee_do where ' +' 业务编号 in '+op_string+')' else shen_string:=shen_string+' and 申请编号 in (select 工作编号 from t_ch_fee_do where ' +' 业务编号 in '+op_string+')' ; end; end; 4,5,6: begin if trim(op_string)<>''then begin if trim(shen_string)='' then shen_string:='where 申请编号 in (select 工作编号 from t_ch_fee_do where ' +' 业务编号 in '+op_string+')' else shen_string:=shen_string+' and 申请编号 in (select 工作编号 from t_ch_fee_do where ' +' 业务编号 in '+op_string+')' ; end; end; end; case shen_query_type of 7: if trim(shen_string)='' then begin shen_string:='WHERE (申请编号 NOT IN (SELECT DISTINCT t_ch_fee_do.工作编号' +' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND' +' t_ch_fee_do.原始金额 >(t_ch_fee.金额-t_ch_fee.结算金额) AND' +' t_ch_fee_do.类型 = '+''''+'1'+''''+')) AND (申请状态 = '+'''' +'开出发票'+''''+')'; end else begin shen_string:=shen_string+' and (申请编号 NOT IN (SELECT DISTINCT t_ch_fee_do.工作编号' +' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND' +' t_ch_fee_do.原始金额 >(t_ch_fee.金额-t_ch_fee.结算金额) AND' +' t_ch_fee_do.类型 = '+''''+'1'+''''+')) AND (申请状态 = '+'''' +'开出发票'+''''+')'; end; 9: if trim(shen_string)='' then begin shen_string:='WHERE (申请编号 NOT IN (SELECT DISTINCT t_ch_fee_do.工作编号' +' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND' +' t_ch_fee_do.原始金额 >(t_ch_fee.金额-t_ch_fee.结算金额) AND' +' t_ch_fee_do.类型 = '+''''+'6'+''''+')) AND (申请状态 = '+'''' +'提交申请'+''''+')'; end else begin shen_string:=shen_string+' and (申请编号 NOT IN (SELECT DISTINCT t_ch_fee_do.工作编号' +' FROM t_ch_fee_do INNER JOIN t_ch_fee ON t_ch_fee_do.CH_ID = t_ch_fee.CH_ID AND' +' t_ch_fee_do.原始金额 >(t_ch_fee.金额-t_ch_fee.结算金额) AND' +' t_ch_fee_do.类型 = '+''''+'6'+''''+')) AND (申请状态 = '+'''' +'提交申请'+''''+')'; end; end; showmessage(inttostr(shen_query_type)); case shen_query_type of {$IFDEF FPSHENQING} 1: begin frm_ch_invoice_shen.t_ch_invoice_shen.Close; frm_ch_invoice_shen.t_ch_invoice_shen.sql.clear; frm_ch_invoice_shen.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by 申请编号 desc'); frm_ch_invoice_shen.t_ch_invoice_shen.open; if frm_ch_invoice_shen.t_ch_invoice_shen.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; close; end; 2: begin frm_ch_invoice_check.t_ch_invoice_shen.Close; frm_ch_invoice_check.t_ch_invoice_shen.sql.clear; frm_ch_invoice_check.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by 申请编号 desc'); frm_ch_invoice_check.t_ch_invoice_shen.open; if frm_ch_invoice_check.t_ch_invoice_shen.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; {$ENDIF} 3: begin frm_ch_invoice.t_ch_invoice_shen.Close; frm_ch_invoice.t_ch_invoice_shen.sql.clear; frm_ch_invoice.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by 申请编号 desc'); frm_ch_invoice.t_ch_invoice_shen.open; if frm_ch_invoice.t_ch_invoice_shen.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; {$IFDEF FFLIUCHENG} 4: begin frm_ch_check_shen.t_ch_check.Close; frm_ch_check_shen.t_ch_check.sql.clear; frm_ch_check_shen.t_ch_check.sql.add('select * from t_ch_check '+shen_string+'order by 申请编号 desc'); frm_ch_check_shen.t_ch_check.open; if frm_ch_check_shen.t_ch_check.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; 5: begin frm_ch_check_check.t_ch_check.Close; frm_ch_check_check.t_ch_check.sql.clear; frm_ch_check_check.t_ch_check.sql.add('select * from t_ch_check '+shen_string+'order by 申请编号 desc'); frm_ch_check_check.t_ch_check.open; if frm_ch_check_check.t_ch_check.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; {$ENDIF} 6: begin frm_ch_balance_pay.t_ch_check.Close; frm_ch_balance_pay.t_ch_check.sql.clear; frm_ch_balance_pay.t_ch_check.sql.add('select * from t_ch_check '+shen_string+'order by 申请编号 desc'); frm_ch_balance_pay.t_ch_check.open; if frm_ch_balance_pay.t_ch_check.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; 7: begin frm_ch_balance_accept.t_ch_invoice_shen.Close; frm_ch_balance_accept.t_ch_invoice_shen.sql.clear; frm_ch_balance_accept.t_ch_invoice_shen.sql.add('select * from t_ch_invoice_shen '+shen_string+'order by 申请编号 desc'); frm_ch_balance_accept.t_ch_invoice_shen.open; if frm_ch_balance_accept.t_ch_invoice_shen.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; {$IFDEF SFLIUCHENG} 8: begin frm_ch_accept_shen.t_ch_accept.Close; frm_ch_accept_shen.t_ch_accept.sql.clear; frm_ch_accept_shen.t_ch_accept.sql.add('select * from t_ch_accept '+shen_string+'order by 申请编号 desc'); frm_ch_accept_shen.t_ch_accept.open; if frm_ch_accept_shen.t_ch_accept.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; {$ENDIF} 9: begin frm_ch_balance_accept.t_ch_accept_shen.Close; frm_ch_balance_accept.t_ch_accept_shen.sql.clear; frm_ch_balance_accept.t_ch_accept_shen.sql.add('select * from t_ch_accept '+shen_string+'order by 申请编号 desc'); frm_ch_balance_accept.t_ch_accept_shen.open; if frm_ch_balance_accept.t_ch_accept_shen.IsEmpty then begin showmessage('没有检索出所需申请！！'); exit; end; end; end; close; end; procedure Tfrm_ch_shen_query.loadFindIni; var findini:tinifile ; mysec,tmpname:string; canload:boolean ; //是否记忆 i,j:integer ; begin mysec:=inttostr(shen_query_type) ; findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'chshenquery.ini'); try canload:=findini.ReadBool(mysec,mysec,false); bsSkinCheckRadioBox1.Checked:=canload ; if canload then begin with bsSkinGroupBox1 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then (Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TEdit then (Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBDateTimePicker then (Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else if Controls[i] is TRxDBLookupCombo then (Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ; end ; with bsSkinPageControl1 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then (Controls[i] as TwwDBComboBox).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TEdit then (Controls[i] as TEdit).Text:=findini.ReadString(mysec,TmpName,'') else if Controls[i] is TwwDBDateTimePicker then (Controls[i] as TwwDBDateTimePicker).Date:=strtodate(findini.ReadString(mysec,TmpName,'')) else if Controls[i] is TRxDBLookupCombo then (Controls[i] as TRxDBLookupCombo).Value:=findini.ReadString(mysec,TmpName,'') ; end ; end else begin end ; finally findini.free; end ; end; procedure Tfrm_ch_shen_query.writeFindIni; var findini:tinifile ; mysec,tmpname:string; canload:boolean ; //是否记忆 i,j:integer ; begin canload:=bsSkinCheckRadioBox1.Checked ; mysec:=inttostr(shen_query_type) ; findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'chshenquery.ini'); try findini.WriteBool(mysec,mysec,canload); if canload then begin with bsSkinGroupBox1 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name ; if Controls[i] is TwwDBComboBox then findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else if Controls[i] is TEdit then findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else if Controls[i] is TwwDBDateTimePicker then findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else if Controls[i] is TRxDBLookupCombo then findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ; end ; with bsSkinPageControl1 do for i:=0 to ControlCount-1 do begin tmpname:=Controls[i].Name; if Controls[i] is TwwDBComboBox then findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBComboBox).Text) else if Controls[i] is TEdit then findini.WriteString(mysec,TmpName,(Controls[i] as TEdit).Text) else if Controls[i] is TwwDBDateTimePicker then findini.WriteString(mysec,TmpName,datetostr((Controls[i] as TwwDBDateTimePicker).Date)) else if Controls[i] is TRxDBLookupCombo then findini.writeString(mysec,TmpName,(Controls[i] as TRxDBLookupCombo).Value) ; end ; end ; finally findini.free; end ; end; end.