hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
DS6JIEFENG/海运业务/u_op_seae_query.~pas

1325 lines
53 KiB
Plaintext
Raw Permalink Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

{$INCLUDE t_main.inc}
unit u_op_seae_query;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RxLookup, StdCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
wwdbdatetimepicker, wwdblook, bsSkinCtrls, BusinessSkinForm, DB, ComCtrls,
bsSkinTabs, ADODB, DBCtrls, RxMemDS, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
dxDBGrid, dxDBTLCl, dxGrClms,inifiles;
type
Tfrm_op_seae_query = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
Label10: TLabel;
Label9: TLabel;
Label14: TLabel;
Label15: TLabel;
Label6: TLabel;
Label7: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label11: TLabel;
Label12: TLabel;
Label20: TLabel;
Label124: TLabel;
Label13: TLabel;
Label16: TLabel;
Label28: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label21: TLabel;
Label24: TLabel;
Label22: TLabel;
Label23: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label29: TLabel;
Label125: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Edit1: TEdit;
RxDBLookupCombo2: TRxDBLookupCombo;
RxDBLookupCombo3: TRxDBLookupCombo;
RxDBLookupCombo4: TRxDBLookupCombo;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
wwDBComboBox1: TwwDBComboBox;
wwDBComboBox2: TwwDBComboBox;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
RxDBLookupCombo1: TRxDBLookupCombo;
wwDBLookupCombo3: TwwDBLookupCombo;
wwDBLookupCombo52: TwwDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
RxDBLookupCombo6: TRxDBLookupCombo;
bsSkinButton10: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
RxDBLookupCombo7: TRxDBLookupCombo;
RxDBLookupCombo8: TRxDBLookupCombo;
RxDBLookupCombo9: TRxDBLookupCombo;
RxDBLookupCombo11: TRxDBLookupCombo;
RxDBLookupCombo20: TRxDBLookupCombo;
wwDBComboBox3: TwwDBComboBox;
wwDBComboBox4: TwwDBComboBox;
wwDBComboBox5: TwwDBComboBox;
wwDBComboBox6: TwwDBComboBox;
wwDBComboBox7: TwwDBComboBox;
wwDBComboBox8: TwwDBComboBox;
wwDBComboBox9: TwwDBComboBox;
wwDBComboBox10: TwwDBComboBox;
wwDBComboBox11: TwwDBComboBox;
wwDBComboBox12: TwwDBComboBox;
wwDBComboBox13: TwwDBComboBox;
wwDBComboBox14: TwwDBComboBox;
wwDBComboBox15: TwwDBComboBox;
wwDBComboBox16: TwwDBComboBox;
wwDBComboBox17: TwwDBComboBox;
wwDBComboBox18: TwwDBComboBox;
wwDBComboBox19: TwwDBComboBox;
wwDBComboBox20: TwwDBComboBox;
wwDBComboBox21: TwwDBComboBox;
wwDBComboBox22: TwwDBComboBox;
wwDBComboBox23: TwwDBComboBox;
wwDBComboBox24: TwwDBComboBox;
wwDBComboBox25: TwwDBComboBox;
wwDBComboBox26: TwwDBComboBox;
wwDBComboBox27: TwwDBComboBox;
wwDBComboBox28: TwwDBComboBox;
RxDBLookupCombo10: TRxDBLookupCombo;
RxDBLookupCombo12: TRxDBLookupCombo;
wwDBComboBox29: TwwDBComboBox;
wwDBComboBox30: TwwDBComboBox;
wwDBComboBox31: TwwDBComboBox;
wwDBComboBox32: TwwDBComboBox;
RxDBLookupCombo13: TRxDBLookupCombo;
wwDBComboBox33: TwwDBComboBox;
Edit5: TEdit;
wwDBComboBox34: TwwDBComboBox;
Edit6: TEdit;
wwDBLookupCombo49: TwwDBLookupCombo;
wwDBComboBox35: TwwDBComboBox;
Edit7: TEdit;
wwDBComboBox36: TwwDBComboBox;
wwDBComboBox37: TwwDBComboBox;
Edit8: TEdit;
Edit9: TEdit;
wwDBComboBox38: TwwDBComboBox;
t_sys_queryfields: TADOQuery;
t_sys_queryfields1: TDataSource;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinPanel2: TbsSkinPanel;
Label33: TLabel;
RxDBLookupList1: TRxDBLookupList;
RxDBLookupCombo14: TRxDBLookupCombo;
Label34: TLabel;
wwDBComboBox39: TwwDBComboBox;
Label35: TLabel;
wwDBComboBox40: TwwDBComboBox;
Label36: TLabel;
bsSkinGroupBox2: TbsSkinGroupBox;
bsSkinPanel3: TbsSkinPanel;
bsSkinButton3: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
t_sys_query_detail1: TDataSource;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
query_bit: TwwDBComboBox;
query_str_int: TEdit;
query_date: TwwDBDateTimePicker;
t_sys_query: TADOQuery;
t_sys_query1: TDataSource;
t_sys_query_detail: TADOQuery;
dxDBGrid2: TdxDBGrid;
dxDBGrid2SQ_ID: TdxDBGridMaskColumn;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
dxDBGrid1Column1: TdxDBGridPickColumn;
dxDBGrid1Column3: TdxDBGridPickColumn;
Label37: TLabel;
wwDBComboBox41: TwwDBComboBox;
Edit10: TEdit;
Label38: TLabel;
wwDBComboBox42: TwwDBComboBox;
Edit11: TEdit;
Label39: TLabel;
wwDBComboBox43: TwwDBComboBox;
wwDBComboBox44: TwwDBComboBox;
Label40: TLabel;
wwDBComboBox45: TwwDBComboBox;
RxDBLookupCombo15: TRxDBLookupCombo;
Label41: TLabel;
wwDBComboBox46: TwwDBComboBox;
RxDBLookupCombo16: TRxDBLookupCombo;
Edit12: TEdit;
Label42: TLabel;
wwDBComboBox47: TwwDBComboBox;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
wwDBComboBox48: TwwDBComboBox;
Label43: TLabel;
Label116: TLabel;
Edit16: TEdit;
Label44: TLabel;
wwDBComboBox49: TwwDBComboBox;
RxDBLookupCombo17: TRxDBLookupCombo;
Label45: TLabel;
wwDBComboBox50: TwwDBComboBox;
wwDBDateTimePicker5: TwwDBDateTimePicker;
Label46: TLabel;
wwDBComboBox51: TwwDBComboBox;
wwDBDateTimePicker6: TwwDBDateTimePicker;
Label47: TLabel;
wwDBComboBox52: TwwDBComboBox;
wwDBComboBox53: TwwDBComboBox;
Label48: TLabel;
wwDBComboBox54: TwwDBComboBox;
RxDBLookupCombo18: TRxDBLookupCombo;
Label49: TLabel;
wwDBComboBox55: TwwDBComboBox;
Label50: TLabel;
wwDBComboBox56: TwwDBComboBox;
Edit13: TEdit;
Edit14: TEdit;
Label51: TLabel;
wwDBComboBox57: TwwDBComboBox;
Label52: TLabel;
wwDBComboBox58: TwwDBComboBox;
Label53: TLabel;
Edit15: TEdit;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RxDBLookupCombo14Change(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure RxDBLookupList1DblClick(Sender: TObject);
procedure wwDBComboBox15KeyPress(Sender: TObject; var Key: Char);
procedure t_sys_queryAfterInsert(DataSet: TDataSet);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure t_sys_query_detailBeforePost(DataSet: TDataSet);
procedure t_sys_query_detailAfterScroll(DataSet: TDataSet);
private
{ Private declarations }
procedure loadFindIni ;
procedure writeFindIni ;
public
{ Public declarations }
end;
var
frm_op_seae_query: Tfrm_op_seae_query;
seae_query_limited:string;
seae_query_table:integer;
implementation
uses my_sys_function, u_op_seae, {$IFDEF XSGUANLI}u_ch_fee_sea_sales,{$ENDIF} u_ch_fee_check_seae,
u_op_seae_close, {$IFDEF YWTAIZHANG}u_rp_tai_seae,{$ENDIF} u_rp_rp_seae,
u_rp_fee_modify, u_data_share, u_main,{$IFDEF TBQITA} u_rp_fen_seae_ctn, u_rp_zou_seae,u_rp_fen_seae,{$ENDIF}
{$IFDEF SJBAOGUAN}u_op_seae_apply, {$ENDIF}{$IFDEF YWFUHE}u_ch_fee_Recheck_seae, {$ENDIF}u_info_bunk,
u_rp_rp_seae2;
{$R *.dfm}
procedure Tfrm_op_seae_query.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_query.bsSkinButton10Click(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:='';
wwDBComboBox1.text:='';
wwDBComboBox2.text:='';
wwDBDateTimePicker1.Clear;
wwDBDateTimePicker2.Clear;
wwDBDateTimePicker3.Clear;
wwDBDateTimePicker4.Clear;
wwDBDateTimePicker5.Clear;
wwDBDateTimePicker6.Clear;
wwDBComboBox3.text:='';
RxDBLookupCombo20.ClearValue;
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo1.ClearValue;
RxDBLookupCombo9.ClearValue;
RxDBLookupCombo18.ClearValue;
RxDBLookupCombo8.ClearValue;
RxDBLookupCombo11.ClearValue;
RxDBLookupCombo7.ClearValue;
wwDBLookupCombo3.text:='';
wwDBLookupCombo52.text:='';
wwDBLookupCombo49.text:='';
RxDBLookupCombo4.ClearValue;
RxDBLookupCombo3.ClearValue;
RxDBLookupCombo6.ClearValue;
RxDBLookupCombo5.ClearValue;
RxDBLookupCombo10.ClearValue;
RxDBLookupCombo12.ClearValue;
wwDBComboBox31.text:='';
RxDBLookupCombo13.ClearValue;
RxDBLookupCombo15.ClearValue;
wwDBComboBox44.Text:='';
RxDBLookupCombo16.ClearValue;
wwDBComboBox48.text:='';
wwDBComboBox57.text:='';
RxDBLookupCombo17.ClearValue;
wwDBComboBox53.text:='';
end;
procedure Tfrm_op_seae_query.bsSkinButton1Click(Sender: TObject);
var
str:widestring;
str_date:string;
str_tdld_not_empty:string;//0809<30>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD>飺<EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD>׺<EFBFBD><D7BA>ᵥCOPY<50><59><EFBFBD><EFBFBD>ͬʱΪ<CAB1><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,cjb 2017-08-21
begin
writeFindIni;
str:='';
if bsSkinTabSheet2.Showing then
begin
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit1.text);
str:=query_tiaojian(1,str,'t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox4.text,Edit4.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox16.text,Edit2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox5.text,Edit3.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>',wwDBComboBox47.text,Edit12.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>',wwDBComboBox41.text,Edit10.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>쵥<EFBFBD><ECB5A5>',wwDBComboBox42.text,Edit11.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><>Ʊ<EFBFBD><C6B1>',wwDBComboBox33.text,Edit5.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox34.text,Edit6.text);
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5>״̬',wwDBComboBox17.text,wwDBComboBox1.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>״̬',wwDBComboBox7.text,wwDBComboBox2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox19.text,wwDBDateTimePicker3.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox11.text,wwDBDateTimePicker4.text);
str:=query_tiaojian(1,str,'t_op_seae.װ<>˷<EFBFBD>ʽ',wwDBComboBox20.text,wwDBComboBox3.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox10.text,RxDBLookupCombo20.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.ί<>е<EFBFBD>λ',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox54.text,RxDBLookupCombo18.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>˾',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',wwDBComboBox23.text,RxDBLookupCombo11.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.<2E><>վ',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seae.װ<><D7B0><EFBFBD><EFBFBD>',wwDBComboBox26.text,wwDBLookupCombo3.text);
str:=query_tiaojian(1,str,'t_op_seae.ж<><D0B6><EFBFBD><EFBFBD>',wwDBComboBox27.text,wwDBLookupCombo52.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E>ͷ<EFBFBD>Ա',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>Ա',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]);
str:=query_tiaojian(3,str,'t_op_seae.<2E><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>',wwDBComboBox30.text,wwDBComboBox31.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox36.text,wwDBLookupCombo49.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD><EFBFBD>',wwDBComboBox35.text,Edit7.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>',wwDBComboBox37.text,Edit8.text);
str:=query_tiaojian(2,str,'t_op_seae.<2E>ܴ<EFBFBD>',wwDBComboBox38.text,Edit9.text);
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox43.text,wwDBComboBox44.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox45.text,RxDBLookupCombo15.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.ҵ<><D2B5><EFBFBD><EFBFBD>Դ',wwDBComboBox46.text,RxDBLookupCombo16.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><>Դ<EFBFBD><D4B4>ϸ',wwDBComboBox49.text,RxDBLookupCombo17.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox50.text,wwDBDateTimePicker5.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox51.text,wwDBDateTimePicker6.text);
str:=query_tiaojian(3,str,'t_op_seae.<2E>Ƿ<EFBFBD><C7B7>˲<EFBFBD>',wwDBComboBox52.text,wwDBComboBox53.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>',wwDBComboBox55.text,Edit13.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>',wwDBComboBox56.text,Edit14.text);
str:=query_tiaojian(1,str,'t_op_seae.<2E>˷<EFBFBD>Э<EFBFBD><D0AD><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit15.text);
if edit16.Text<>'' then begin
if str='' then
str:=' where (t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit16.text+'%'+''' or t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit16.text+'%'+''' or t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit16.text+'%'+''') '
else
str:=' and (t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit16.text+'%'+''' or t_op_seae.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit16.text+'%'+''' or t_op_seae.ί<>б<EFBFBD><D0B1><EFBFBD> like '+''''+'%'+Edit16.text+'%'+''') ';
end;
if wwDBComboBox57.Text<>'' then begin
if wwDBComboBox57.Text='<27><>Ӧ<EFBFBD><D3A6>δ<EFBFBD><CEB4>Ӧ<EFBFBD><D3A6>' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_gain where (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><>0 and <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_gain where (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><>0 and <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0)))';
end
else
if wwDBComboBox57.Text='<27><>Ӧ<EFBFBD><D3A6>δ<EFBFBD><CEB4>Ӧ<EFBFBD><D3A6>' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_gain where (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><>0 and <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_gain where (<28>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6><>0 and <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>=0)))';
end
else
if wwDBComboBox57.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD>ύ' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD>״̬ not in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'') and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_gain where (<28>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD><>0 or <20>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD><>0))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD>״̬ not in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'') and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_gain where (<28>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD><>0 or <20>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD><>0))) ';
end
else
if wwDBComboBox57.Text='<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD>״̬ in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'') and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where (<28><><EFBFBD><EFBFBD>״̬ =''¼<><C2BC>״̬''))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD>״̬ in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'') and <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where (<28><><EFBFBD><EFBFBD>״̬ =''¼<><C2BC>״̬'')))';
end
else
if wwDBComboBox57.Text='¼<><C2BC>״̬ë<CCAC><C3AB><EFBFBD><EFBFBD>' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from T_OP_seae where <20><><EFBFBD><EFBFBD> in( select t_op_gain.<2E><><EFBFBD><EFBFBD> from t_op_gain left join (SELECT <20><><EFBFBD><EFBFBD>,round(isnull(SUM(CASE <20><><EFBFBD><EFBFBD> WHEN ''<27><>'' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) * ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END),0), 2)'
+' -round(isnull(SUM(CASE <20><><EFBFBD><EFBFBD> WHEN ''<27><>'' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) *ISNULL( <20><><EFBFBD><EFBFBD>,0) ELSE 0 END),0),2) as ë<><C3AB><EFBFBD><EFBFBD> FROM t_ch_fee '
+' where not <20><><EFBFBD><EFBFBD> is null group by <20><><EFBFBD><EFBFBD>) as t on t.<2E><><EFBFBD><EFBFBD>=t_op_gain.<2E><><EFBFBD><EFBFBD> where (t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>-t.ë<><C3AB><EFBFBD><EFBFBD>)>1 )) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from T_OP_seae where <20><><EFBFBD><EFBFBD> in( select t_op_gain.<2E><><EFBFBD><EFBFBD> from t_op_gain left join (SELECT <20><><EFBFBD><EFBFBD>,round(isnull(SUM(CASE <20><><EFBFBD><EFBFBD> WHEN ''<27><>'' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) * ISNULL(<28><><EFBFBD><EFBFBD>,0) ELSE 0 END),0), 2)'
+' -round(isnull(SUM(CASE <20><><EFBFBD><EFBFBD> WHEN ''<27><>'' THEN ISNULL(<28><><EFBFBD><EFBFBD>,0) *ISNULL( <20><><EFBFBD><EFBFBD>,0) ELSE 0 END),0),2) as ë<><C3AB><EFBFBD><EFBFBD> FROM t_ch_fee '
+' where not <20><><EFBFBD><EFBFBD> is null group by <20><><EFBFBD><EFBFBD>) as t on t.<2E><><EFBFBD><EFBFBD>=t_op_gain.<2E><><EFBFBD><EFBFBD> where (t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>-t.ë<><C3AB><EFBFBD><EFBFBD>)>1 ))';
end
else
if wwDBComboBox57.Text='<27><><EFBFBD><EFBFBD>Ʊδ<C6B1>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD>״̬ not in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'') and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><>0 and <20><><EFBFBD><EFBFBD>=''<27><>'')'
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>״̬ not in (''<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'',''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'') and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><>0 and <20><><EFBFBD><EFBFBD>=''<27><>'')';
end
else
if wwDBComboBox57.Text='ȫ<><C8AB><EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>' then
begin
str_tdld_not_empty:= ' exists( select <20><><EFBFBD><EFBFBD> from t_op_file where <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD> in (''<27><><EFBFBD><EFBFBD>'') and t_op_file.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD> and (t_op_file.<2E><>С<>0 and t_op_file.<2E><>С is not null)) ';
str_tdld_not_empty:= str_tdld_not_empty+' and exists( select <20><><EFBFBD><EFBFBD> from t_op_file where <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD> in (''<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'',''<27>ᵥCOPY'',''Seaway<61>ҵ<EFBFBD>'',''VC<56>ҵ<EFBFBD>'') and t_op_file.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD> and (t_op_file.<2E><>С<>0 and t_op_file.<2E><>С is not null)) ';
if str='' then
str:=' where '+str_tdld_not_empty
else
str:=str+' and '+str_tdld_not_empty;
{
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_file where <20><>ע=''<27><>'' and (<28><>С<>0 and <20><>С is not null) group by <20><><EFBFBD><EFBFBD> having count(fid)=5)'
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from t_op_file where <20><>ע=''<27><>'' and (<28><>С<>0 and <20><>С is not null) group by <20><><EFBFBD><EFBFBD> having count(fid)=5)';
}
end
else
if wwDBComboBox57.Text='δ<>ύ<EFBFBD><E1BDBB><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD>' then
begin
str_tdld_not_empty:= ' (not exists( select <20><><EFBFBD><EFBFBD> from t_op_file where <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD> in (''<27><><EFBFBD><EFBFBD>'') and t_op_file.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD> and (t_op_file.<2E><>С<>0 and t_op_file.<2E><>С is not null)) ';
str_tdld_not_empty:= str_tdld_not_empty+' or not exists( select <20><><EFBFBD><EFBFBD> from t_op_file where <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD> in (''<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'',''<27>ᵥCOPY'',''Seaway<61>ҵ<EFBFBD>'',''VC<56>ҵ<EFBFBD>'') and t_op_file.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD> and (t_op_file.<2E><>С<>0 and t_op_file.<2E><>С is not null))) ';
if str='' then
str:=' where '+str_tdld_not_empty
else
str:=str+' and '+str_tdld_not_empty;
{
//<2F><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>-<2D><>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><>δ<EFBFBD>ύ<EFBFBD><E1BDBB><EFBFBD>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD>׺<EFBFBD><D7BA>ᵥCOPY<50><59><EFBFBD><EFBFBD>ͬʱΪ<CAB1><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
str_tdld_not_empty:= ' or not exists( select <20><><EFBFBD><EFBFBD> from t_op_file where <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD> in (''<27>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>'',''<27>ᵥCOPY'') and t_op_file.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD>) ';
if str='' then
str:=' where (t_op_seae.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_file where <20><>ע=''<27><>'' and (<28><>С=0 or <20><>С is null)) ' + str_tdld_not_empty + ' or ( t_op_seae.<2E><><EFBFBD><EFBFBD> not in (select <20><><EFBFBD><EFBFBD> from t_op_file)))'
else
str:=str+' and (t_op_seae.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_file where <20><>ע=''<27><>'' and (<28><>С=0 or <20><>С is null)) ' + str_tdld_not_empty + ' or ( t_op_seae.<2E><><EFBFBD><EFBFBD> not in (select <20><><EFBFBD><EFBFBD> from t_op_file)))';
}
end;
end;
if wwDBComboBox48.Text<>'' then
begin
if wwDBComboBox48.Text='δ<><CEB4><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where <20>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><>1)) ';
end else if wwDBComboBox48.Text='δ¼<CEB4><C2BC><EFBFBD>շ<EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')';
end else if wwDBComboBox48.Text='δ¼<CEB4>븶<EFBFBD><EBB8B6>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')';
end else if wwDBComboBox48.Text='δ¼<CEB4><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee)'
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee)';
end else if wwDBComboBox48.Text='δ<>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'¼<><C2BC>״̬'+''''+')) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'¼<><C2BC>״̬'+''''+')) ';
end else if wwDBComboBox48.Text='<27><><EFBFBD><EFBFBD><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>ύ'+''''+','+''''+'<27><>ֹ<EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><>ֹɾ<D6B9><C9BE>'+''''+'))) ';
end else if wwDBComboBox48.Text='δ<><CEB4><EFBFBD>˷<EFBFBD><CBB7><EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) ';
end else if wwDBComboBox48.Text='<27>ύδ<E1BDBB><CEB4><EFBFBD><EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+'))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>'+''''+'))) ';
end else if wwDBComboBox48.Text='<27><><EFBFBD><EFBFBD>׼<EFBFBD>޸<EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬ in ('+''''+'<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'+''''+','+''''+'<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'+''''+'))) ';
end else if wwDBComboBox48.Text='δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')'
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')';
end else if wwDBComboBox48.Text='δ֪ͨ<CDA8>ŵ<EFBFBD>' then
begin
if str='' then
str:=' where t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where ҵ<><D2B5>״̬ =''֪ͨ<CDA8>ŵ<EFBFBD>'')) '
else
str:=str+' and t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae where <20><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_op_state where ҵ<><D2B5>״̬ =''֪ͨ<CDA8>ŵ<EFBFBD>''))';
end;
end;
if wwDBComboBox58.Text<>'' then
begin
if wwDBComboBox58.Text='Ʊ<><C6B1>' then begin
if str='' then
str:=' where (t_op_seae.ί<>е<EFBFBD>λ not in (select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales) or t_op_seae.ί<>е<EFBFBD>λ in (select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD>'') )'
else
str:=str+' and (t_op_seae.ί<>е<EFBFBD>λ not in (select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales) or t_op_seae.ί<>е<EFBFBD>λ in (select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=''<27>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD>'') )'
end else if wwDBComboBox58.Text='<27>½<EFBFBD>' then begin
if str='' then
str:=' where t_op_seae.ί<>е<EFBFBD>λ in (select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><>''<27>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD>'') '
else
str:=str+' and t_op_seae.ί<>е<EFBFBD>λ in (select <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_crm_client_sales where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><>''<27>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD><EFBFBD>'') '
end
end;
//select * from t_op_state where <20><><EFBFBD><EFBFBD> not in ( select distinct <20><><EFBFBD><EFBFBD> from t_op_state where ҵ<><D2B5>״̬ ='֪ͨ<CDA8>ŵ<EFBFBD>' )
end
else
begin
if query_wanneng_error(t_sys_query_detail)then
begin
showmessage('<27><><EFBFBD>򡯵<EFBFBD><F2A1AFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><32><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD><CFA3><EFBFBD>');
exit;
end;
str:=query_wanneng(t_sys_query_detail);
end;
case seae_query_table of
1,14:
begin
if seae_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seae_query_limited,'t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data(seae_query_limited,'t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
end;
11:
begin
if seae_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seae_query_limited,'t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no');
end
else
begin
str:=str+' and '+open_data(seae_query_limited,'t_op_seae.¼<><C2BC><EFBFBD><EFBFBD>',
't_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no');
end;
end;
end;
2:
begin
if seae_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seae_query_limited,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
end
else
begin
str:=str+' and '+open_data(seae_query_limited,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
end;
end;
end;
3,4,5,6,7,8,9,10,16:
begin
if seae_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seae_query_limited,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data(seae_query_limited,'t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD>Ա','t_op_seae.<2E>ͷ<EFBFBD>Ա','t_op_seae.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
end;
end;
case seae_query_table of
1:
begin
if not bsSkinCheckRadioBox2.Checked then begin
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'' '+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
// str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
+str+')'+default_sort(53,'t_op_seae','','desc');
end else begin
str:=StringReplace(str,'t_op_seae','t_op_seae_assistant',[rfReplaceAll]);
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and װ<>˷<EFBFBD>ʽ<>''<27><><EFBFBD><EFBFBD>'''+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae_assistant '
// str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae_assistant '
+str+')'+default_sort(53,'t_op_seae','','desc');
end;
end;
13,14:
begin
if not bsSkinCheckRadioBox2.Checked then begin
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD>'+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
+str+')'+default_sort(53,'t_op_seae','','desc');
end else begin
str:=StringReplace(str,'t_op_seae','t_op_seae_assistant',[rfReplaceAll]);
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD>'+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae_assistant '
+str+')'+default_sort(53,'t_op_seae','','desc');
end;
end;
3:
begin
if not bsSkinCheckRadioBox2.Checked then begin
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD>'+' and <20><><EFBFBD><EFBFBD> not in (select <20><><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD> from t_op_gain_cx) and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '
+str+')'+default_sort(53,'t_op_seae','','desc');
end else begin
str:=StringReplace(str,'t_op_seae','t_op_seae_assistant',[rfReplaceAll]);
str:='select * from t_op_seae where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD>'+' and <20><><EFBFBD><EFBFBD> not in (select <20><><EFBFBD>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD> from t_op_gain_cx) and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seae_assistant '
+str+')'+default_sort(53,'t_op_seae','','desc');
end;
end;
2,4:
begin
str:='select *,dbo.GetCustSaleZq(ί<>е<EFBFBD>λ) <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> from t_op_seae '+str+default_sort(53,'t_op_seae','','desc');
end;
11:
begin
if (str='') then
str:='select * from t_op_seae <20><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>=1 '+default_sort(53,'t_op_seae','','desc')
else
str:='select * from t_op_seae <20><><EFBFBD>ط<EFBFBD><D8B7><EFBFBD>=1 and '+str+default_sort(53,'t_op_seae','','desc');
end;
5:
begin
str:='SELECT t_op_seae.*'
+',t_op_gain_main.Ӧ<><D3A6>USD, t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD,(t_op_gain_main.Ӧ<><D3A6>USD-t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain_main.Ӧ<><D3A6>RMB, t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB,(t_op_gain_main.Ӧ<><D3A6>RMB-t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB)'
+' AS δ<><CEB4>RMB, t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain_main.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain_main.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain_main.Ӧ<><D3A6>USD, t_op_gain_main.<2E>Ѹ<EFBFBD>USD, (t_op_gain_main.Ӧ<><D3A6>USD-t_op_gain_main.<2E>Ѹ<EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain_main.Ӧ<><D3A6>RMB, t_op_gain_main.<2E>Ѹ<EFBFBD>RMB,(t_op_gain_main.Ӧ<><D3A6>RMB- t_op_gain_main.<2E>Ѹ<EFBFBD>RMB)'
+' AS δ<><CEB4>RMB,t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain_main.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain_main.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD, t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB, t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>, t_op_gain_main.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_op_seae left JOIN t_op_gain_main ON t_op_seae.<2E><><EFBFBD><EFBFBD> = t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+str
+' order by (case when t_op_seae.<2E><><EFBFBD><EFBFBD><>t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> then '+''''+'ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ'+''''+' else t_op_seae.װ<>˷<EFBFBD>ʽ end)'
+',<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,װ<>˷<EFBFBD>ʽ desc,<2C><><EFBFBD>ᵥ<EFBFBD><E1B5A5>';
end;
end;
case seae_query_table of
1:
begin
if (not frm_op_seae.t_op_seae.IsEmpty) and (frm_op_seae.t_op_seae.sql.Text<>'') then
frm_op_seae.psqlstr:=frm_op_seae.t_op_seae.sql.Text;
frm_op_seae.t_op_seae.close;
frm_op_seae.t_op_seae.sql.clear;
frm_op_seae.t_op_seae.sql.add(str);
frm_op_seae.t_op_seae.Open;
if frm_op_seae.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$IFDEF XSGUANLI}
2:
begin
frm_ch_fee_seae_sales.mailSend.EmptyTable;
frm_ch_fee_seae_sales.mailSend.Open;
frm_ch_fee_seae_sales.mailSend.Insert;
frm_ch_fee_seae_sales.mailSend.FieldByName('<27><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>').AsString:=wwDBDateTimePicker1.Text;
frm_ch_fee_seae_sales.mailSend.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=wwDBDateTimePicker2.Text;
frm_ch_fee_seae_sales.t_op_seae.Close;
frm_ch_fee_seae_sales.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_fee_seae_sales.t_op_seae.Open;
if frm_ch_fee_seae_sales.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$ENDIF}
3:
begin
frm_ch_fee_check_seae.t_op_seae.Close;
frm_ch_fee_check_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_fee_check_seae.t_op_seae.Open;
if frm_ch_fee_check_seae.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
4:
begin
frm_op_seae_close.t_ch_accept.close;
frm_op_seae_close.t_ch_pay.close;
frm_op_seae_close.t_op_gain.close;
frm_op_seae_close.t_op_seae.Close;
// frm_op_seae_close.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_op_seae_close.t_op_seae.sql.text:=str;
frm_op_seae_close.t_op_seae.Open;
frm_op_seae_close.t_ch_accept.open;
frm_op_seae_close.t_ch_pay.open;
frm_op_seae_close.t_op_gain.OPEN;
if frm_op_seae_close.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$IFDEF YWTAIZHANG}
5:
begin
frm_rp_tai_seae.p_query_table.close;
frm_rp_tai_seae.p_query_table.Parameters.ParamByName('SQLStr').value:=str;
frm_rp_tai_seae.p_query_table.Open;
if frm_rp_tai_seae.p_query_table.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$ENDIF}
6:
begin
frm_rp_rp_seae.p_detail.close;
frm_rp_rp_seae.p_detail.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seae.*, t_op_gain_main.Ӧ<><D3A6>USD, t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD,(t_op_gain_main.Ӧ<><D3A6>USD-t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain_main.Ӧ<><D3A6>RMB, t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB,(t_op_gain_main.Ӧ<><D3A6>RMB-t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB)'
+' AS δ<><CEB4>RMB, t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain_main.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain_main.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain_main.Ӧ<><D3A6>USD, t_op_gain_main.<2E>Ѹ<EFBFBD>USD, (t_op_gain_main.Ӧ<><D3A6>USD-t_op_gain_main.<2E>Ѹ<EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain_main.Ӧ<><D3A6>RMB, t_op_gain_main.<2E>Ѹ<EFBFBD>RMB,(t_op_gain_main.Ӧ<><D3A6>RMB- t_op_gain_main.<2E>Ѹ<EFBFBD>RMB)'
+' AS δ<><CEB4>RMB,t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain_main.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain_main.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD, t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB, t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>, t_op_gain_main.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_op_seae left JOIN t_op_gain_main ON t_op_seae.<2E><><EFBFBD><EFBFBD> = t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '+default_sort(53,'t_op_seae','','desc');
rp_rp_seae_str:=str;
frm_rp_rp_seae.p_detail.Open;
if frm_rp_rp_seae.p_detail.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
16:
begin
frm_rp_rp_seae2.p_detail.close;
frm_rp_rp_seae2.p_detail.Parameters.ParamByName('SQLStr').value:=
'select <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>е<EFBFBD>λ,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD>Դ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾,MAX(<28><>װ<EFBFBD><D7B0>) <20><>װ<EFBFBD><D7B0>,SUM(<28><>TEU) <20><>TEU,'
+' sum(t_op_gain_main.Ӧ<><D3A6>USD) Ӧ<><D3A6>USD, sum(t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD) <20><><EFBFBD><EFBFBD>USD,sum(t_op_gain_main.Ӧ<><D3A6>USD-t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD)'
+' AS δ<><CEB4>USD,sum(t_op_gain_main.Ӧ<><D3A6>RMB) Ӧ<><D3A6>RMB, sum(t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB) <20><><EFBFBD><EFBFBD>RMB,sum(t_op_gain_main.Ӧ<><D3A6>RMB-t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB) '
+' AS δ<><CEB4>RMB, sum(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,sum(t_op_gain_main.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>) <20>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,sum(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain_main.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,sum(t_op_gain_main.Ӧ<><D3A6>USD) Ӧ<><D3A6>USD, sum(t_op_gain_main.<2E>Ѹ<EFBFBD>USD) <20>Ѹ<EFBFBD>USD, sum(t_op_gain_main.Ӧ<><D3A6>USD-t_op_gain_main.<2E>Ѹ<EFBFBD>USD)'
+' AS δ<><CEB4>USD,sum(t_op_gain_main.Ӧ<><D3A6>RMB) Ӧ<><D3A6>RMB, sum(t_op_gain_main.<2E>Ѹ<EFBFBD>RMB) <20>Ѹ<EFBFBD>RMB,sum(t_op_gain_main.Ӧ<><D3A6>RMB- t_op_gain_main.<2E>Ѹ<EFBFBD>RMB) '
+' AS δ<><CEB4>RMB,sum(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>) <20>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,sum(t_op_gain_main.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>) <20>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,sum(t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain_main.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,sum(t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD) <20><><EFBFBD><EFBFBD>USD, sum(t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB) <20><><EFBFBD><EFBFBD>RMB, sum(t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>) ë<><C3AB><EFBFBD><EFBFBD>,'
+' (CASE WHEN sum(isnull(dbo.t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,0)-isnull(dbo.t_op_gain_main.<2E>渶<EFBFBD><E6B8B6><EFBFBD><EFBFBD>,0))= 0 THEN ''<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD>'' ELSE ltrim(str(sum(isnull(dbo.t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>,0)-isnull(dbo.t_op_gain_main.<2E>渶<EFBFBD><E6B8B6><EFBFBD><EFBFBD>*2,0))'
+'/sum(isnull(dbo.t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,0)-isnull(dbo.t_op_gain_main.<2E>渶<EFBFBD><E6B8B6><EFBFBD><EFBFBD>,0)) * 100, 10, 2)) + ''%'' END) AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' ISNULL((SELECT Case t_crm_client_sales.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> when ''Լ<><D4BC>ʱ<EFBFBD><CAB1>'' then t_crm_client_sales.<2E><><EFBFBD><EFBFBD>ģʽ*30 when ''Լ<><D4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' then convert(varchar(20),t_crm_client_sales.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)end <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+' from t_crm_client_sales WHERE <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>=t_op_seae.ί<>е<EFBFBD>λ),0) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,'
+'ISNULL(SUM(V.USDCR),0) USDCR,ISNULL(SUM(V.RMBCR),0) RMBCR'
+' FROM t_op_seae left JOIN t_op_gain_main ON t_op_seae.<2E><><EFBFBD><EFBFBD> = t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+' LEFT JOIN V_OUT_CUST_CR V ON V.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD> '
+str+' and t_op_seae.<2E><><EFBFBD><EFBFBD>=t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+' GROUP BY <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>,ί<>е<EFBFBD>λ,t_op_seae.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>,ҵ<><D2B5><EFBFBD><EFBFBD>Դ,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>˾ '
+default_sort(53,'t_op_seae','','desc');
rp_rp_seae_str:=str;
frm_rp_rp_seae2.p_detail.Open;
if frm_rp_rp_seae2.p_detail.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$IFDEF TBQITA}
7:
begin
if frm_rp_zou_seae.bsSkinCheckRadioBox1.Checked then
str_date:='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'
else
str_date:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_rp_zou_seae.p_lirun.close;
frm_rp_zou_seae.p_lirun.sql.text:=
// frm_rp_zou_seae.p_lirun.Parameters.ParamByName('SQLStr').value:=
'SELECT SUBSTRING(CONVERT(char(15),t_op_seae.'+str_date+',111),1,7) AS <20>·<EFBFBD>,'
+'SUM(dbo.t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>) AS ë<><C3AB><EFBFBD><EFBFBD>,'
+'sum(t_op_seae.<2E><>TEU) as <20><>TEU,count(t_op_seae.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>'
+' FROM t_op_seae inner JOIN t_op_gain_main'
+' ON t_op_seae.<2E><><EFBFBD><EFBFBD> =t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+str
+' GROUP BY SUBSTRING(CONVERT(char(15),t_op_seae.'+str_date+',111),1,7)'
+' order by SUBSTRING(CONVERT(char(15),'+str_date+', 111), 1, 7)';
frm_rp_zou_seae.p_lirun.Open;
end;
8:
begin
fen_seae_str:=str;
end;
10:
begin
fen_seae_ctn_str:=str;
end;
{$ENDIF}
9:
begin
{frm_rp_fee_modify.t_ch_fee_modify.close;
frm_rp_fee_modify.a_shen_delete.close;
frm_rp_fee_modify.a_shen_modify_old.close;
frm_rp_fee_modify.a_shen_modify_new.close;
frm_rp_fee_modify.p_seae.close;
frm_rp_fee_modify.p_seae.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seae.*, v_ch_fee_modify_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+'FROM t_op_seae INNER JOIN '
+'v_ch_fee_modify_sum ON t_op_seae.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_sum.<2E><><EFBFBD><EFBFBD> '+str+default_sort(53,'t_op_seae','','desc');
frm_rp_fee_modify.p_seae.open;
frm_rp_fee_modify.t_ch_fee_modify.open;
frm_rp_fee_modify.a_shen_delete.open;
frm_rp_fee_modify.a_shen_modify_old.open;
frm_rp_fee_modify.a_shen_modify_new.open;}
end;
{$IFDEF SJBAOGUAN}
11:
begin
frm_op_seae_apply.t_op_seae.close;
frm_op_seae_apply.t_op_seae.sql.clear;
frm_op_seae_apply.t_op_seae.sql.add(str);
frm_op_seae_apply.t_op_seae.Open;
if frm_op_seae_apply.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$ENDIF}
{$IFDEF YWFUHE}
13:
begin
frm_ch_fee_Recheck_seae.t_op_seae.Close;
frm_ch_fee_Recheck_seae.t_op_seae.Parameters.ParamByName('SQLStr').value:=str;
frm_ch_fee_Recheck_seae.t_op_seae.Open;
if frm_ch_fee_Recheck_seae.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$ENDIF}
14:
begin
frm_info_bunk.t_op_seae.close;
frm_info_bunk.t_op_seae.sql.clear;
frm_info_bunk.t_op_seae.sql.add(str);
frm_info_bunk.t_op_seae.Open;
if frm_info_bunk.t_op_seae.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
end;
close;
end;
procedure Tfrm_op_seae_query.FormShow(Sender:TObject);
begin
loadfindini;
Label3.Caption:=Logininfo.seaewtno;
Label42.Caption:=Logininfo.seaedcno;
frm_data_share.t_code_state.Filtered:=false;
frm_data_share.t_code_state.Filter:='ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+'<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>'+'''';
frm_data_share.t_code_state.Filtered:=true;
frm_data_share.t_crm_client_ship.requery;
frm_data_share.t_crm_client_changzhan.requery;
frm_data_share.t_crm_client_truck.requery;
frm_data_share.t_crm_client_baoguan.requery;
frm_data_share.t_crm_client_weituo.requery;
frm_data_share.t_crm_client_daili.requery;
frm_data_share.t_crm_client_huodai.requery;
frm_data_share.t_code_state.first;
while not frm_data_share.t_code_state.eof do
begin
wwDBComboBox1.Items.Add(frm_data_share.t_code_state.fieldbyname('ҵ<><D2B5>״̬').asstring);
frm_data_share.t_code_state.next;
end;
wwDBComboBox1.Items.Add('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
t_sys_queryfields.open;
t_sys_query.Parameters.ParamByName('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').Value:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
t_sys_query.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
t_sys_query.open;
t_sys_query_detail.open;
wwDBComboBox39.ItemIndex:=0;
end;
procedure Tfrm_op_seae_query.RxDBLookupCombo14Change(Sender: TObject);
begin
query_str_int.text:='';
query_bit.text:='';
query_date.text:='';
if t_sys_queryfields.Locate('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[])then
begin
wwDBComboBox40.ItemIndex:=-1;
wwDBComboBox40.Items.Clear;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='varchar') then
begin
query_str_int.Visible:=true;
query_bit.Visible:=false;
query_date.Visible:=false;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('ģ<><C4A3>');
wwDBComboBox40.ItemIndex:=2;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='int') then
begin
query_str_int.Visible:=true;
query_bit.Visible:=false;
query_date.Visible:=false;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('С<><D0A1>');
wwDBComboBox40.ItemIndex:=0;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='bit') then
begin
query_str_int.Visible:=false;
query_bit.Visible:=true;
query_date.Visible:=false;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.ItemIndex:=0;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='date') then
begin
query_str_int.Visible:=false;
query_bit.Visible:=false;
query_date.Visible:=true;
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('<27><><EFBFBD><EFBFBD>');
wwDBComboBox40.Items.Add('С<><D0A1>');
wwDBComboBox40.ItemIndex:=0;
end;
end
else
begin
query_str_int.Visible:=false;
query_bit.Visible:=false;
query_date.Visible:=false;
end;
end;
procedure Tfrm_op_seae_query.bsSkinButton2Click(Sender: TObject);
begin
if RxDBLookupCombo14.DisplayValue='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƣ<EFBFBD><C6A3><EFBFBD>');
exit;
end;
if wwDBComboBox39.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>');
exit;
end;
if wwDBComboBox40.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ<EFBFBD><D1AF><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD>');
exit;
end;
if query_str_int.Visible then
begin
if query_str_int.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
exit;
end;
if (t_sys_queryfields.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='int') then
begin
try
strtoint(query_str_int.text);
except
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
exit;
end;
end;
end;
if query_bit.Visible then
begin
if query_bit.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
exit;
end;
end;
if query_date.Visible then
begin
if query_date.text='' then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD>');
exit;
end;
end;
if t_sys_query.IsEmpty then
begin
t_sys_query.Insert;
t_sys_query.post;
end;
t_sys_query_detail.Append;
t_sys_query_detail['<27><>']:=t_sys_queryfields['<27><>'];
t_sys_query_detail['<27>ֶ<EFBFBD><D6B6><EFBFBD>']:=t_sys_queryfields['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>'];
if query_str_int.Visible then
begin
t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_str_int.text;
end;
if query_bit.Visible then
begin
t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_bit.text;
end;
if query_date.Visible then
begin
t_sys_query_detail['<27><><EFBFBD><EFBFBD>ֵ']:=query_date.text;
end;
t_sys_query_detail['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>']:=t_sys_queryfields['<27><><EFBFBD><EFBFBD>'];
t_sys_query_detail['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ']:=wwDBComboBox39.text;
t_sys_query_detail['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:=wwDBComboBox40.text;
t_sys_query_detail.post;
end;
procedure Tfrm_op_seae_query.bsSkinButton4Click(Sender: TObject);
begin
if not t_sys_query_detail.IsEmpty then
t_sys_query_detail.Delete;
end;
procedure Tfrm_op_seae_query.RxDBLookupList1DblClick(Sender: TObject);
begin
RxDBLookupCombo14.DisplayValue:=RxDBLookupList1.DisplayValue;
end;
procedure Tfrm_op_seae_query.wwDBComboBox15KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
frm_op_seae_query.bsSkinButton1Click(Sender);
end;
end;
procedure Tfrm_op_seae_query.t_sys_queryAfterInsert(DataSet: TDataSet);
begin
t_sys_query['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>';
t_sys_query['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_sys_query['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;
procedure Tfrm_op_seae_query.bsSkinButton6Click(Sender: TObject);
begin
t_sys_query.Insert;
t_sys_query.post;
end;
procedure Tfrm_op_seae_query.bsSkinButton9Click(Sender: TObject);
begin
while not t_sys_query_detail.eof do
begin
t_sys_query_detail.Delete;
end;
if not t_sys_query.Eof then
t_sys_query.delete;
end;
procedure Tfrm_op_seae_query.t_sys_query_detailBeforePost(
DataSet: TDataSet);
begin
if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='int' then
begin
try
strtoint(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring);
except
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>֣<EFBFBD><D6A3><EFBFBD>');
abort;
end;
end;
if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='date' then
begin
try
strtodate(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring);
except
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڣ<EFBFBD><DAA3><EFBFBD>');
abort;
end;
end;
if t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='bit' then
begin
if (t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring<>'<27><>')
and(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD>ֵ').asstring<>'<27><>')then
begin
showmessage('<27><><EFBFBD><EFBFBD>ֵֻ<D6B5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>񣡣<EFBFBD>');
abort;
end;
end;
if (t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ').asstring<>'<27><>')
and(t_sys_query_detail.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ').asstring<>'<27><>')then
begin
showmessage('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵֻ<CFB5><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\<5C>򣡣<EFBFBD>');
abort;
end;
if (dxDBGrid1Column3.Items.IndexOf(t_sys_query_detail.fieldbyname('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').asstring)=-1)
and (t_sys_query_detail.state<>dsinsert) then
begin
showmessage('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>ֻ<EFBFBD><D6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+dxDBGrid1Column3.Items.text+'<27><><EFBFBD><EFBFBD>');
abort;
end;
end;
procedure Tfrm_op_seae_query.t_sys_query_detailAfterScroll(
DataSet: TDataSet);
begin
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='varchar') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('ģ<><C4A3>');
end;
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='int') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('С<><D0A1>');
end;
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='bit') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
if (t_sys_query_detail.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring='date') then
begin
dxDBGrid1Column3.Items.Clear;
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('<27><><EFBFBD><EFBFBD>');
dxDBGrid1Column3.Items.Add('С<><D0A1>');
end;
end;
procedure Tfrm_op_seae_query.loadFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i:integer ;
begin
mysec:=inttostr(seae_query_table) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'seaequery.ini');
try
canload:=findini.ReadBool(mysec,mysec,false);
bsSkinCheckRadioBox1.Checked:=canload ;
if canload then
begin
with bsSkinTabSheet2 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 TwwDBLookupCombo then
(Controls[i] as TwwDBLookupCombo).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
wwDBComboBox15.text:='ģ<><C4A3>';
wwDBComboBox16.text:='ģ<><C4A3>';
wwDBComboBox41.text:='ģ<><C4A3>';
wwDBComboBox42.text:='ģ<><C4A3>';
wwDBComboBox33.text:='ģ<><C4A3>';
wwDBComboBox34.text:='ģ<><C4A3>';
wwDBComboBox4.text:='ģ<><C4A3>';
wwDBComboBox5.text:='ģ<><C4A3>';
wwDBComboBox35.text:='ģ<><C4A3>';
wwDBComboBox36.text:='ģ<><C4A3>';
wwDBComboBox37.text:='ģ<><C4A3>';
wwDBComboBox17.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox7.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox18.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox6.text:='С<><D0A1>';
wwDBComboBox11.text:='С<><D0A1>';
wwDBComboBox19.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox51.text:='С<><D0A1>';
wwDBComboBox50.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox10.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox20.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox22.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox54.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox23.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox24.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox25.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox26.text:='ģ<><C4A3>';
wwDBComboBox27.text:='ģ<><C4A3>';
wwDBComboBox9.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox8.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox12.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox13.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox14.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox28.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox29.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox30.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox32.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox38.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox43.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox45.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox46.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox47.text:='ģ<><C4A3>';
wwDBComboBox49.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox52.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox55.text:='ģ<><C4A3>';
wwDBComboBox56.text:='ģ<><C4A3>';
end ;
finally
findini.free;
end ;
end;
procedure Tfrm_op_seae_query.writeFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i:integer ;
begin
canload:=bsSkinCheckRadioBox1.Checked ;
mysec:=inttostr(seae_query_table) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'seaequery.ini');
try
findini.WriteBool(mysec,mysec,canload);
if canload then
begin
with bsSkinTabSheet2 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 TwwDBLookupCombo then
findini.WriteString(mysec,TmpName,(Controls[i] as TwwDBLookupCombo).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.
Reference in New Issue View Git Blame Copy Permalink