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 '9abf05a513'
${ noResults }
DONGSHENG6/复件 业务统计/u_rp_fee_modify.pas

1062 lines
34 KiB
Plaintext
Raw 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.

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