hanxuntao
/
DONGSHENG6
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 }
DONGSHENG6/海运业务/u_op_seai_query.pas

1116 lines
40 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_seai_query;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, wwdblook, wwdbdatetimepicker,
Mask, wwdbedit, Wwdotdot, Wwdbcomb, RxLookup, StdCtrls, ComCtrls,
bsSkinTabs, ADODB, DB, RxMemDS, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid,
dxCntner, dxDBTLCl, dxGrClms,inifiles;
type
Tfrm_op_seai_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;
Label26: TLabel;
Label25: 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;
wwDBComboBox32: TwwDBComboBox;
RxDBLookupCombo13: TRxDBLookupCombo;
wwDBComboBox30: TwwDBComboBox;
Edit5: TEdit;
wwDBComboBox37: TwwDBComboBox;
Edit8: TEdit;
wwDBComboBox38: TwwDBComboBox;
Edit9: TEdit;
t_sys_queryfields: TADOQuery;
t_sys_queryfields1: TDataSource;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinPanel2: TbsSkinPanel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
RxDBLookupCombo14: TRxDBLookupCombo;
wwDBComboBox39: TwwDBComboBox;
wwDBComboBox40: TwwDBComboBox;
query_bit: TwwDBComboBox;
query_str_int: TEdit;
query_date: TwwDBDateTimePicker;
RxDBLookupList1: TRxDBLookupList;
bsSkinGroupBox2: TbsSkinGroupBox;
t_sys_query: TADOQuery;
t_sys_query1: TDataSource;
t_sys_query_detail: TADOQuery;
t_sys_query_detail1: TDataSource;
bsSkinPanel3: TbsSkinPanel;
bsSkinButton3: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
dxDBGrid2: TdxDBGrid;
dxDBGrid2SQ_ID: TdxDBGridMaskColumn;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridPickColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridPickColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
Label37: TLabel;
wwDBComboBox41: TwwDBComboBox;
Edit10: TEdit;
Label38: TLabel;
wwDBComboBox42: TwwDBComboBox;
Edit11: TEdit;
Label27: TLabel;
wwDBComboBox31: TwwDBComboBox;
wwDBComboBox33: TwwDBComboBox;
Label40: TLabel;
wwDBComboBox45: TwwDBComboBox;
RxDBLookupCombo15: TRxDBLookupCombo;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
Label41: TLabel;
wwDBComboBox46: TwwDBComboBox;
RxDBLookupCombo16: TRxDBLookupCombo;
Label29: TLabel;
wwDBComboBox34: TwwDBComboBox;
Edit6: TEdit;
Label43: TLabel;
wwDBComboBox48: TwwDBComboBox;
Label42: TLabel;
wwDBComboBox47: TwwDBComboBox;
Edit12: TEdit;
Label125: TLabel;
wwDBComboBox36: TwwDBComboBox;
wwDBLookupCombo49: TwwDBLookupCombo;
Label30: TLabel;
wwDBComboBox35: TwwDBComboBox;
Edit7: TEdit;
Label44: TLabel;
wwDBComboBox49: TwwDBComboBox;
RxDBLookupCombo17: TRxDBLookupCombo;
Label49: TLabel;
wwDBComboBox55: TwwDBComboBox;
Label50: TLabel;
wwDBComboBox56: TwwDBComboBox;
Edit13: TEdit;
Edit14: TEdit;
Label39: TLabel;
wwDBComboBox43: TwwDBComboBox;
RxDBLookupCombo18: TRxDBLookupCombo;
Label45: TLabel;
Label46: TLabel;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
wwDBComboBox44: TwwDBComboBox;
wwDBComboBox50: TwwDBComboBox;
Label47: TLabel;
Label48: TLabel;
wwDBDateTimePicker7: TwwDBDateTimePicker;
wwDBDateTimePicker8: TwwDBDateTimePicker;
wwDBComboBox51: TwwDBComboBox;
wwDBComboBox52: TwwDBComboBox;
Label51: TLabel;
Label52: TLabel;
wwDBDateTimePicker9: TwwDBDateTimePicker;
wwDBDateTimePicker10: TwwDBDateTimePicker;
wwDBComboBox53: TwwDBComboBox;
wwDBComboBox54: TwwDBComboBox;
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton1Click(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 t_sys_query_detailAfterScroll(DataSet: TDataSet);
procedure t_sys_query_detailBeforePost(DataSet: TDataSet);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
private
procedure loadFindIni ;
procedure writeFindIni ;
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_seai_query: Tfrm_op_seai_query;
seai_query_limited:string;
seai_query_table:integer;
implementation
uses u_op_seai, my_sys_function, {$IFDEF XSGUANLI}u_ch_fee_seai_sales, {$ENDIF}u_ch_fee_check_seai,
u_op_seai_close, {$IFDEF YWTAIZHANG}u_rp_tai_seai,{$ENDIF} u_rp_rp_seai, u_rp_fee_modify,
{$IFDEF TBQITA}u_rp_zou_seai, u_rp_fen_seai,{$ENDIF} u_data_share, {$IFDEF SJBAOGUAN}u_op_seai_apply,{$ENDIF}
u_main{$IFDEF YWFUHE},u_ch_fee_Recheck_seai, u_op_seai_sf{$ENDIF};
{$R *.dfm}
procedure Tfrm_op_seai_query.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seai_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;
wwDBDateTimePicker7.Clear;
wwDBDateTimePicker8.Clear;
wwDBDateTimePicker9.Clear;
wwDBDateTimePicker10.Clear;
wwDBComboBox3.text:='';
wwDBComboBox33.text:='';
RxDBLookupCombo20.ClearValue;
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo1.ClearValue;
RxDBLookupCombo9.ClearValue;
RxDBLookupCombo8.ClearValue;
RxDBLookupCombo11.ClearValue;
RxDBLookupCombo7.ClearValue;
wwDBLookupCombo3.text:='';
wwDBLookupCombo49.text:='';
wwDBLookupCombo52.text:='';
RxDBLookupCombo4.ClearValue;
RxDBLookupCombo3.ClearValue;
RxDBLookupCombo6.ClearValue;
RxDBLookupCombo5.ClearValue;
RxDBLookupCombo10.ClearValue;
RxDBLookupCombo12.ClearValue;
RxDBLookupCombo13.ClearValue;
RxDBLookupCombo15.ClearValue;
RxDBLookupCombo16.ClearValue;
wwDBComboBox48.text:='';
RxDBLookupCombo17.ClearValue;
wwDBComboBox43.text:='';
RxDBLookupCombo18.ClearValue;
end;
procedure Tfrm_op_seai_query.FormShow(Sender: TObject);
begin
loadfindini;
Label3.Caption:=Logininfo.seaiwtno;
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><CBBD><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_query.Parameters.ParamByName('<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>').Value:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
t_sys_query.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
t_sys_query.open;
t_sys_query_detail.open;
t_sys_queryfields.open;
wwDBComboBox39.ItemIndex:=0;
end;
procedure Tfrm_op_seai_query.bsSkinButton1Click(Sender: TObject);
var
str:widestring;
str_date:string;
begin
writeFindIni;
str:='';
if bsSkinTabSheet2.Showing then
begin
str:=query_tiaojian(1,str,'t_op_seai.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox15.text,Edit1.text);
str:=query_tiaojian(1,str,'t_op_seai.ί<>б<EFBFBD><D0B1><EFBFBD>',wwDBComboBox4.text,Edit4.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox16.text,Edit2.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>',wwDBComboBox41.text,Edit10.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>쵥<EFBFBD><ECB5A5>',wwDBComboBox42.text,Edit11.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>ᵥ<EFBFBD><E1B5A5>',wwDBComboBox5.text,Edit3.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><>ͬ<EFBFBD><CDAC>',wwDBComboBox34.text,Edit6.text);
str:=query_tiaojian(1,str,'t_op_seai.ҵ<><D2B5>״̬',wwDBComboBox17.text,wwDBComboBox1.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD>״̬',wwDBComboBox7.text,wwDBComboBox2.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox18.text,wwDBDateTimePicker1.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox6.text,wwDBDateTimePicker2.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox52.text,wwDBDateTimePicker7.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox51.text,wwDBDateTimePicker8.text);
str:=query_tiaojian(1,str,'t_op_seai.ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox54.text,wwDBDateTimePicker9.text);
str:=query_tiaojian(1,str,'t_op_seai.ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox53.text,wwDBDateTimePicker10.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox19.text,wwDBDateTimePicker3.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>',wwDBComboBox11.text,wwDBDateTimePicker4.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox50.text,wwDBDateTimePicker5.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox44.text,wwDBDateTimePicker6.text);
str:=query_tiaojian(1,str,'t_op_seai.װ<>˷<EFBFBD>ʽ',wwDBComboBox20.text,wwDBComboBox3.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD>',wwDBComboBox10.text,RxDBLookupCombo20.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.ί<>е<EFBFBD>λ',wwDBComboBox21.text,RxDBLookupCombo2.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD>˾',wwDBComboBox9.text,RxDBLookupCombo1.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox22.text,RxDBLookupCombo9.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˾',wwDBComboBox8.text,RxDBLookupCombo8.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',wwDBComboBox23.text,RxDBLookupCombo11.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.<2E><>վ',wwDBComboBox12.text,RxDBLookupCombo7.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.ж<><D0B6><EFBFBD><EFBFBD>',wwDBComboBox26.text,wwDBLookupCombo3.text);
str:=query_tiaojian(1,str,'t_op_seai.װ<><D7B0><EFBFBD><EFBFBD>',wwDBComboBox27.text,wwDBLookupCombo52.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E>ͷ<EFBFBD>Ա',wwDBComboBox24.text,RxDBLookupCombo4.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox14.text,RxDBLookupCombo3.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD>Ա',wwDBComboBox25.text,RxDBLookupCombo6.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.¼<><C2BC><EFBFBD><EFBFBD>',wwDBComboBox13.text,RxDBLookupCombo5.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox32.text,RxDBLookupCombo13.DisplayValues[1]);
str:=query_tiaojian(1,str,'t_op_seai.<2E><>Ʊ<EFBFBD><C6B1>',wwDBComboBox30.text,Edit5.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>',wwDBComboBox28.text,RxDBLookupCombo10.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox29.text,RxDBLookupCombo12.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>',wwDBComboBox37.text,Edit8.text);
str:=query_tiaojian(2,str,'t_op_seai.<2E>ܴ<EFBFBD>',wwDBComboBox38.text,Edit9.text);
str:=query_tiaojian(1,str,'t_op_seai.ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox31.text,wwDBComboBox33.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>',wwDBComboBox45.text,RxDBLookupCombo15.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.ҵ<><D2B5><EFBFBD><EFBFBD>Դ',wwDBComboBox46.text,RxDBLookupCombo16.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>',wwDBComboBox47.text,Edit12.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD>',wwDBComboBox36.text,wwDBLookupCombo49.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><><EFBFBD><EFBFBD>',wwDBComboBox35.text,Edit7.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><>Դ<EFBFBD><D4B4>ϸ',wwDBComboBox49.text,RxDBLookupCombo17.DisplayValue);
str:=query_tiaojian(1,str,'t_op_seai.<2E><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>',wwDBComboBox55.text,Edit13.text);
str:=query_tiaojian(1,str,'t_op_seai.<2E><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>',wwDBComboBox56.text,Edit14.text);
if RxDBLookupCombo18.DisplayValues[1]<>'' then
begin
if str='' then
str:=' where t_op_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo18.DisplayValues[1]+''''+')'
else
str:=str+' and t_op_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where t_ch_fee.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo18.DisplayValues[1]+''''+')';
end;
if wwDBComboBox48.Text<>'' then begin
if wwDBComboBox48.Text='δ<><CEB4><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>' then begin
if str='' then
str:=' 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 <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_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
else
str:=str+' and t_op_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><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_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>='+''''+'<27><>'+''''+')'
else
str:=str+' and t_op_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><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_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><EFBFBD><EFBFBD> not in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee)'
else
str:=str+' and t_op_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.i<><69><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 <20><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬='+''''+'¼<><C2BC>״̬'+''''+') '
else
str:=str+' and <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 <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 <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 <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 <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 <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 <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 <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 <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_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><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_seai.<2E><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>'+''''+' and t_op_seai.<2E><><EFBFBD><EFBFBD> in (select distinct <20><><EFBFBD><EFBFBD> from t_ch_fee where <20><><EFBFBD><EFBFBD>״̬<>'+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+''''+')';
end;
end;
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 seai_query_table of
1,10,14:
begin
if seai_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seai_query_limited,'t_op_seai.¼<><C2BC><EFBFBD><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD>Ա','t_op_seai.<2E>ͷ<EFBFBD>Ա','t_op_seai.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data(seai_query_limited,'t_op_seai.¼<><C2BC><EFBFBD><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD>Ա','t_op_seai.<2E>ͷ<EFBFBD>Ա','t_op_seai.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
end;
2:
begin
if seai_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seai_query_limited,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
end
else
begin
str:=str+' and '+open_data(seai_query_limited,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','no','no','no','no');
end;
end;
end;
3,4,5,6,7,8,13:
begin
if seai_query_limited<>'no'then
begin
if trim(str)='' then
begin
str:='where '+open_data(seai_query_limited,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD>Ա','t_op_seai.<2E>ͷ<EFBFBD>Ա','t_op_seai.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end
else
begin
str:=str+' and '+open_data(seai_query_limited,'t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD>Ա','t_op_seai.<2E>ͷ<EFBFBD>Ա','t_op_seai.<2E><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>','t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
end;
end;
end;
case seai_query_table of
1:
begin
if (not frm_op_seai.t_op_seai.IsEmpty) and (frm_op_seai.t_op_seai.sql.Text<>'') then
frm_op_seai.seaipsqlstr:=frm_op_seai.t_op_seai.sql.Text;
frm_op_seai.t_op_seai.close;
frm_op_seai.t_op_seai.sql.clear;
// frm_op_seai.t_op_seai.sql.add('select * from t_op_seai 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_seai '+str+')'+default_sort(54,'t_op_seai','','desc'));
frm_op_seai.t_op_seai.sql.add('select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seai '+str+')'+default_sort(54,'t_op_seai','','desc'));
frm_op_seai.t_op_seai.Open;
if frm_op_seai.t_op_seai.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
14:
begin
if (not frm_op_seai_sf.t_op_seai.IsEmpty) and (frm_op_seai_sf.t_op_seai.sql.Text<>'') then
frm_op_seai_sf.seaipsqlstr:=frm_op_seai_sf.t_op_seai.sql.Text;
frm_op_seai_sf.t_op_seai.close;
frm_op_seai_sf.t_op_seai.sql.clear;
// frm_op_seai.t_op_seai.sql.add('select * from t_op_seai 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_seai '+str+')'+default_sort(54,'t_op_seai','','desc'));
frm_op_seai_sf.t_op_seai.sql.add('select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD> and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seai '+str+')'+default_sort(54,'t_op_seai','','desc'));
frm_op_seai_sf.t_op_seai.Open;
if frm_op_seai_sf.t_op_seai.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_seai_sales.t_op_seai.Close;
frm_ch_fee_seai_sales.t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
frm_ch_fee_seai_sales.t_op_seai.Open;
if frm_ch_fee_seai_sales.t_op_seai.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_seai.t_op_seai.Close;
frm_ch_fee_check_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=<3D><><EFBFBD><EFBFBD>'+' and <20><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> from t_op_seai '+str+')'+default_sort(54,'t_op_seai','','desc');
frm_ch_fee_check_seai.t_op_seai.Open;
if frm_ch_fee_check_seai.t_op_seai.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_seai_close.t_op_seai.close;
frm_op_seai_close.t_op_seai.sql.text:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
//showmessage(frm_op_seai_close.t_op_seai.sql.text);
frm_op_seai_close.t_op_seai.Open;
frm_op_seai_close.t_ch_accept.open;
frm_op_seai_close.t_ch_pay.open;
frm_op_seai_close.t_op_gain.OPEN;
if frm_op_seai_close.t_op_seai.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_seai.p_query_table.close;
frm_rp_tai_seai.p_query_table.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seai.*, t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>USD,(t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E><><EFBFBD><EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB-t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)'
+' AS δ<><CEB4>RMB, t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E>Ѹ<EFBFBD>USD, (t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E>Ѹ<EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E>Ѹ<EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB- t_op_gain.<2E>Ѹ<EFBFBD>RMB)'
+' AS δ<><CEB4>RMB,t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.<2E><><EFBFBD><EFBFBD>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB, t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>, t_op_gain.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_op_seai left JOIN t_op_gain ON t_op_seai.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
+str+default_sort(54,'t_op_seai','','desc');
frm_rp_tai_seai.p_query_table.Open;
if frm_rp_tai_seai.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_seai.p_detail.close;
frm_rp_rp_seai.p_detail.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seai.*, t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>USD,(t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E><><EFBFBD><EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB-t_op_gain.<2E><><EFBFBD><EFBFBD>RMB)'
+' AS δ<><CEB4>RMB, t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC><EFBFBD><EFBFBD><EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.Ӧ<><D3A6>USD, t_op_gain.<2E>Ѹ<EFBFBD>USD, (t_op_gain.Ӧ<><D3A6>USD-t_op_gain.<2E>Ѹ<EFBFBD>USD)'
+' AS δ<><CEB4>USD,t_op_gain.Ӧ<><D3A6>RMB, t_op_gain.<2E>Ѹ<EFBFBD>RMB,(t_op_gain.Ӧ<><D3A6>RMB- t_op_gain.<2E>Ѹ<EFBFBD>RMB)'
+' AS δ<><CEB4>RMB,t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>,(t_op_gain.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>-t_op_gain.<2E>ϼ<EFBFBD><CFBC>Ѹ<EFBFBD>)'
+' AS <20>ϼ<EFBFBD>δ<EFBFBD><CEB4>,t_op_gain.<2E><><EFBFBD><EFBFBD>USD, t_op_gain.<2E><><EFBFBD><EFBFBD>RMB, t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>, t_op_gain.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
+' FROM t_op_seai left JOIN t_op_gain ON t_op_seai.<2E><><EFBFBD><EFBFBD> = t_op_gain.<2E><><EFBFBD><EFBFBD> '
+str+default_sort(54,'t_op_seai','','desc');
frm_rp_rp_seai.p_detail.Open;
if frm_rp_rp_seai.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_seai.bsSkinCheckRadioBox1.Checked then
str_date:='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'
else
str_date:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
frm_rp_zou_seai.p_lirun.close;
frm_rp_zou_seai.p_lirun.Parameters.ParamByName('SQLStr').value:=
'SELECT SUBSTRING(CONVERT(char(15),t_op_seai.'+str_date+',111),1,7) AS <20>·<EFBFBD>,'
+'SUM(dbo.t_op_gain.ë<><C3AB><EFBFBD><EFBFBD>) AS ë<><C3AB><EFBFBD><EFBFBD>,'
+'sum(t_op_seai.<2E><>TEU) as <20><>TEU,count(t_op_seai.<2E><><EFBFBD><EFBFBD>) as Ʊ<><C6B1>'
+' FROM t_op_seai left JOIN t_op_gain'
+' ON t_op_seai.<2E><><EFBFBD><EFBFBD> =t_op_gain.<2E><><EFBFBD><EFBFBD> '
+str
+' GROUP BY SUBSTRING(CONVERT(char(15),t_op_seai.'+str_date+',111),1,7)'
+' order by SUBSTRING(CONVERT(char(15),'+str_date+', 111), 1, 7)';
frm_rp_zou_seai.p_lirun.Open;
end;
8:
begin
{frm_rp_fen_seai.p_client.close;
frm_rp_fen_seai.p_client.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seai.<2E><>TEU,t_op_seai.ί<>е<EFBFBD>λ'
+',t_op_seai.<2E><><EFBFBD><EFBFBD>Ա,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,t_op_seai.<2E><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>'
+',t_op_seai.<2E><><EFBFBD><EFBFBD>˾,t_op_seai.<2E><><EFBFBD><EFBFBD>,t_op_seai.װ<>˷<EFBFBD>ʽ'
+',t_op_gain.ë<><C3AB><EFBFBD><EFBFBD> FROM t_op_seai left JOIN t_op_gain ON '
+'t_op_seai.<2E><><EFBFBD><EFBFBD> =t_op_gain.<2E><><EFBFBD><EFBFBD> '
+str;
frm_rp_fen_seai.p_client.Open; }
fen_seai_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_seai.close;
frm_rp_fee_modify.p_seai.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seai.*, v_ch_fee_modify_sum.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> AS <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+'FROM t_op_seai INNER JOIN '
+'v_ch_fee_modify_sum ON t_op_seai.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_sum.<2E><><EFBFBD><EFBFBD> '+str+default_sort(54,'t_op_seai','','desc');
frm_rp_fee_modify.p_seai.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}
10:
begin
frm_op_seai_apply.t_op_seai.close;
frm_op_seai_apply.t_op_seai.sql.clear;
frm_op_seai_apply.t_op_seai.sql.add('select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc'));
frm_op_seai_apply.t_op_seai.Open;
if frm_op_seai_apply.t_op_seai.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_seai.t_op_seai.Close;
frm_ch_fee_Recheck_seai.t_op_seai.Parameters.ParamByName('SQLStr').value:='select * from t_op_seai '+str+default_sort(54,'t_op_seai','','desc');
frm_ch_fee_Recheck_seai.t_op_seai.Open;
if frm_ch_fee_Recheck_seai.t_op_seai.IsEmpty then
begin
showmessage('û<>м<EFBFBD><D0BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD>');
exit;
end;
end;
{$ENDIF}
end;
close;
end;
procedure Tfrm_op_seai_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_seai_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_seai_query.bsSkinButton4Click(Sender: TObject);
begin
if not t_sys_query_detail.IsEmpty then
t_sys_query_detail.Delete;
end;
procedure Tfrm_op_seai_query.RxDBLookupList1DblClick(Sender: TObject);
begin
RxDBLookupCombo14.DisplayValue:=RxDBLookupList1.DisplayValue;
end;
procedure Tfrm_op_seai_query.wwDBComboBox15KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
begin
key:=#0;
frm_op_seai_query.bsSkinButton1Click(Sender);
end;
end;
procedure Tfrm_op_seai_query.t_sys_queryAfterInsert(DataSet: TDataSet);
begin
t_sys_query['<27><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>';
t_sys_query['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_sys_query['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
end;
procedure Tfrm_op_seai_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_seai_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_seai_query.bsSkinButton6Click(Sender: TObject);
begin
t_sys_query.Insert;
t_sys_query.post;
end;
procedure Tfrm_op_seai_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_seai_query.loadFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i:integer ;
begin
mysec:=inttostr(seai_query_table) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'seaiquery.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
wwDBComboBox15.text:='ģ<><C4A3>';
wwDBComboBox16.text:='ģ<><C4A3>';
wwDBComboBox4.text:='ģ<><C4A3>';
wwDBComboBox5.text:='ģ<><C4A3>';
wwDBComboBox41.text:='ģ<><C4A3>';
wwDBComboBox42.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>';
wwDBComboBox52.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox51.text:='С<><D0A1>';
wwDBComboBox50.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox44.text:='С<><D0A1>';
wwDBComboBox10.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox20.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox21.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox22.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:='ģ<><C4A3>';
wwDBComboBox32.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox37.text:='ģ<><C4A3>';
wwDBComboBox38.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox31.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox45.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox46.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox34.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox47.text:='ģ<><C4A3>';
wwDBComboBox35.text:='ģ<><C4A3>';
wwDBComboBox36.text:='ģ<><C4A3>';
wwDBComboBox49.text:='<27><><EFBFBD><EFBFBD>';
wwDBComboBox55.text:='ģ<><C4A3>';
wwDBComboBox56.text:='ģ<><C4A3>';
begin
end ;
finally
findini.free;
end ;
end;
procedure Tfrm_op_seai_query.writeFindIni;
var
findini:tinifile ;
mysec,tmpname:string;
canload:boolean ; //<2F>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>
i:integer ;
begin
canload:=bsSkinCheckRadioBox1.Checked ;
mysec:=inttostr(seai_query_table) ;
findini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'seaiquery.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