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 '48f045977c'
${ noResults }
DS6JIEFENG/费用模块/u_ch_fee_modify_check.pas

1526 lines
49 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_ch_fee_modify_check;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, ADODB, DB, StdCtrls, DBCtrls, Mask, bsSkinCtrls,
RxLookup, wwdbdatetimepicker, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, ExtCtrls, Grids, Wwdbigrd,
Wwdbgrid, wwdbedit, Wwdotdot, Wwdbcomb;
type
Tfrm_ch_fee_modify_check = class(TForm)
Panel1: TPanel;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridDateColumn;
dxDBGrid1Column9: TdxDBGridDateColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
bsSkinPanel3: TbsSkinPanel;
Label3: TLabel;
Label4: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label7: TLabel;
Label28: TLabel;
Label29: TLabel;
Label54: TLabel;
Label55: TLabel;
Label56: TLabel;
Label57: TLabel;
Edit4: TEdit;
Edit2: TEdit;
wwDBDateTimePicker1: TwwDBDateTimePicker;
wwDBDateTimePicker2: TwwDBDateTimePicker;
RxDBLookupCombo6: TRxDBLookupCombo;
RxDBLookupCombo1: TRxDBLookupCombo;
wwDBDateTimePicker3: TwwDBDateTimePicker;
wwDBDateTimePicker4: TwwDBDateTimePicker;
wwDBDateTimePicker17: TwwDBDateTimePicker;
wwDBDateTimePicker18: TwwDBDateTimePicker;
Edit9: TEdit;
bsSkinTabSheet2: TbsSkinTabSheet;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGrid3Column15: TdxDBGridColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
bsSkinPanel4: TbsSkinPanel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
Label61: TLabel;
Edit1: TEdit;
Edit3: TEdit;
wwDBDateTimePicker5: TwwDBDateTimePicker;
wwDBDateTimePicker6: TwwDBDateTimePicker;
RxDBLookupCombo2: TRxDBLookupCombo;
RxDBLookupCombo3: TRxDBLookupCombo;
wwDBDateTimePicker7: TwwDBDateTimePicker;
wwDBDateTimePicker8: TwwDBDateTimePicker;
wwDBDateTimePicker19: TwwDBDateTimePicker;
wwDBDateTimePicker20: TwwDBDateTimePicker;
Edit11: TEdit;
bsSkinTabSheet3: TbsSkinTabSheet;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGrid4Column13: TdxDBGridColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGrid4Column15: TdxDBGridColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
bsSkinPanel5: TbsSkinPanel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Edit5: TEdit;
Edit6: TEdit;
wwDBDateTimePicker9: TwwDBDateTimePicker;
wwDBDateTimePicker10: TwwDBDateTimePicker;
RxDBLookupCombo4: TRxDBLookupCombo;
RxDBLookupCombo5: TRxDBLookupCombo;
wwDBDateTimePicker11: TwwDBDateTimePicker;
wwDBDateTimePicker12: TwwDBDateTimePicker;
wwDBDateTimePicker21: TwwDBDateTimePicker;
wwDBDateTimePicker22: TwwDBDateTimePicker;
Edit13: TEdit;
bsSkinTabSheet4: TbsSkinTabSheet;
dxDBGrid5: TdxDBGrid;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGrid5Column13: TdxDBGridColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
bsSkinPanel6: TbsSkinPanel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Edit7: TEdit;
Edit8: TEdit;
wwDBDateTimePicker13: TwwDBDateTimePicker;
wwDBDateTimePicker14: TwwDBDateTimePicker;
RxDBLookupCombo7: TRxDBLookupCombo;
RxDBLookupCombo8: TRxDBLookupCombo;
wwDBDateTimePicker15: TwwDBDateTimePicker;
wwDBDateTimePicker16: TwwDBDateTimePicker;
wwDBDateTimePicker23: TwwDBDateTimePicker;
wwDBDateTimePicker24: TwwDBDateTimePicker;
Edit15: TEdit;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinGroupBox1: TbsSkinGroupBox;
a_modify_old: TbsSkinGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label1: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit35: TDBEdit;
DBEdit36: TDBEdit;
a_modify_new: TbsSkinGroupBox;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBMemo3: TDBMemo;
a_delete: TbsSkinGroupBox;
DBMemo2: TDBMemo;
bsSkinPanel1: TbsSkinPanel;
Label5: TLabel;
Label6: TLabel;
DBEdit39: TDBEdit;
DBEdit40: TDBEdit;
DBEdit17: TDBEdit;
p_seae: TADOStoredProc;
p_seae1: TDataSource;
t_ch_fee_modify: TADOQuery;
t_ch_fee_modify1: TDataSource;
p_seai: TADOStoredProc;
p_seai1: TDataSource;
p_aire: TADOStoredProc;
p_aire1: TDataSource;
p_airi: TADOStoredProc;
p_airi1: TDataSource;
a_shen_delete: TADOQuery;
a_shen_delete1: TDataSource;
a_shen_modify_old: TADOQuery;
a_shen_modify_old1: TDataSource;
a_shen_modify_new: TADOQuery;
a_shen_modify_new1: TDataSource;
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
dxDBGrid2: TdxDBGrid;
dxDBGrid2Column1: TdxDBGridMaskColumn;
dxDBGrid2Column2: TdxDBGridMaskColumn;
dxDBGrid2Column3: TdxDBGridMaskColumn;
dxDBGrid2Column4: TdxDBGridMaskColumn;
dxDBGrid2Column5: TdxDBGridColumn;
dxDBGrid2Column6: TdxDBGridMaskColumn;
dxDBGrid2Column7: TdxDBGridDateColumn;
dxDBGrid2Column8: TdxDBGridMaskColumn;
dxDBGrid2Column9: TdxDBGridDateColumn;
wwDBComboBox1: TwwDBComboBox;
wwDBComboBox2: TwwDBComboBox;
wwDBComboBox3: TwwDBComboBox;
wwDBComboBox4: TwwDBComboBox;
Label70: TLabel;
RxDBLookupCombo9: TRxDBLookupCombo;
Label71: TLabel;
RxDBLookupCombo10: TRxDBLookupCombo;
Label73: TLabel;
RxDBLookupCombo11: TRxDBLookupCombo;
Label72: TLabel;
RxDBLookupCombo12: TRxDBLookupCombo;
Label74: TLabel;
RxDBLookupCombo13: TRxDBLookupCombo;
Label75: TLabel;
RxDBLookupCombo14: TRxDBLookupCombo;
Label76: TLabel;
RxDBLookupCombo15: TRxDBLookupCombo;
Label77: TLabel;
RxDBLookupCombo16: TRxDBLookupCombo;
Label78: TLabel;
RxDBLookupCombo17: TRxDBLookupCombo;
Label79: TLabel;
RxDBLookupCombo18: TRxDBLookupCombo;
Label80: TLabel;
RxDBLookupCombo19: TRxDBLookupCombo;
Label81: TLabel;
RxDBLookupCombo20: TRxDBLookupCombo;
Label82: TLabel;
RxDBLookupCombo21: TRxDBLookupCombo;
Label83: TLabel;
RxDBLookupCombo22: TRxDBLookupCombo;
Label84: TLabel;
RxDBLookupCombo23: TRxDBLookupCombo;
Label85: TLabel;
RxDBLookupCombo24: TRxDBLookupCombo;
a_shen_add: TADOQuery;
a_shen_add1: TDataSource;
a_modify_add: TbsSkinGroupBox;
Label86: TLabel;
Label87: TLabel;
Label88: TLabel;
Label89: TLabel;
Label90: TLabel;
Label91: TLabel;
Label92: TLabel;
Label93: TLabel;
Label94: TLabel;
Label95: TLabel;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBEdit27: TDBEdit;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox9: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox10: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox11: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox12: TbsSkinCheckRadioBox;
RxDBLookupCombo25: TRxDBLookupCombo;
Label96: TLabel;
Label97: TLabel;
RxDBLookupCombo26: TRxDBLookupCombo;
Label98: TLabel;
RxDBLookupCombo27: TRxDBLookupCombo;
Label99: TLabel;
RxDBLookupCombo28: TRxDBLookupCombo;
Label100: TLabel;
wwDBComboBox31: TwwDBComboBox;
Label101: TLabel;
wwDBComboBox5: TwwDBComboBox;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure bsSkinPageControl1Change(Sender: TObject);
procedure dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid4ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid5ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
procedure DBEdit17Change(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure dxDBGrid2Column2CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure bsSkinGroupBox1Resize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_ch_fee_modify_check: Tfrm_ch_fee_modify_check;
ch_fee_modify_check:boolean;
implementation
uses u_main, my_sys_function;
{$R *.dfm}
procedure Tfrm_ch_fee_modify_check.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_ch_fee_modify_check.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_ch_fee_modify_check.Hide;
frm_ch_fee_modify_check.ManualFloat(frm_ch_fee_modify_check.BoundsRect );
frm_main.freeTabs('frm_ch_fee_modify_check');
ch_fee_modify_check:=false;
action:=cafree;
frm_ch_fee_modify_check:=nil;
end;
procedure Tfrm_ch_fee_modify_check.bsSkinButton9Click(Sender: TObject);
begin
if bsSkinTabSheet1.Showing then
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD>޸<EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_seae1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil)
else if bsSkinTabSheet2.Showing then
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD>޸<EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_seai1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil)
else if bsSkinTabSheet3.Showing then
sys_print('<27><><EFBFBD>˳<EFBFBD><CBB3>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD>޸<EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_aire1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil)
else if bsSkinTabSheet4.Showing then
sys_print('<27><><EFBFBD>˽<EFBFBD><CBBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD>޸<EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_airi1,t_ch_fee_modify1,a_shen_modify_old1,a_shen_modify_new1,a_shen_delete1,a_shen_add1,nil);
end;
procedure Tfrm_ch_fee_modify_check.bsSkinButton10Click(Sender: TObject);
var
str_bill,str_fee,str_fuhe,str_seae,str_seai,str_aire,str_airi:widestring;
begin
if bsSkinTabSheet1.Showing then
begin
str_seae:='';
if (not bsSkinCheckRadioBox1.Checked) and (not bsSkinCheckRadioBox2.Checked) and (not bsSkinCheckRadioBox3.Checked) then begin
MessageDlg('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>',mtWarning,[mbOk],0);
exit;
end;
if bsSkinCheckRadioBox1.Checked then begin
str_seae:='''<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>'''
end;
if bsSkinCheckRadioBox2.Checked then begin
if str_seae<>'' then
str_seae:=str_seae+',''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'' '
else
str_seae:='''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>''';
end;
if bsSkinCheckRadioBox3.Checked then begin
if str_seae<>'' then
str_seae:=str_seae+',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'''
else
str_seae:='''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>''';
end;
if str_seae<>'' then
str_seae:='('+str_seae+')';
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 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 RxDBLookupCombo25.DisplayValue<>'' then
begin
if str_bill='' then
str_bill:=' where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo25.DisplayValue+''''
else
str_bill:=str_bill+' and <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo25.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 wwDBComboBox31.text<>'' then
begin
if str_fee='' then
str_fee:=' where <20><><EFBFBD><EFBFBD>='+''''+wwDBComboBox31.text+''''
else
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>='+''''+wwDBComboBox31.text+'''';
end;
if str_seae<>'' then
if str_fee='' then begin
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seae;
end else begin
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seae;
end;
if str_seae<>'' then begin
if wwDBComboBox1.Text<>''then
begin
if wwDBComboBox1.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
str_fuhe:=' t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seae+')'
else
str_fuhe:=' t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seae+')';
end;
end;
if str_bill<>'' then
begin
if str_fee<>'' then begin
str_bill:=str_bill+' and t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
end;
end
else
begin
if str_fee<>'' then
str_bill:=' where t_op_seae.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
end;
if str_fuhe<>''then
begin
if str_bill<>'' then
str_bill:=str_bill+' and '+str_fuhe
else
str_bill:=' where '+str_fuhe;
end;
t_ch_fee_modify.close;
t_ch_fee_modify.sql.Clear;
t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> ');
t_ch_fee_modify.sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seae);
if wwDBComboBox31.text<>'' then
t_ch_fee_modify.sql.Add('and <20><><EFBFBD><EFBFBD>='''+wwDBComboBox31.text+'''');
t_ch_fee_modify.sql.Add(' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,FM_ID');
a_shen_delete.close;
a_shen_modify_old.close;
a_shen_modify_new.close;
a_shen_add.close;
p_seae.close;
p_seae.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seae.*, v_ch_fee_modify_check_sum.<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_check_sum ON t_op_seae.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_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;
a_shen_add.open;
exit;
end;
if bsSkinTabSheet2.Showing then
begin
str_seai:='';
if (not bsSkinCheckRadioBox4.Checked) and (not bsSkinCheckRadioBox5.Checked) and (not bsSkinCheckRadioBox6.Checked) then begin
MessageDlg('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>',mtWarning,[mbOk],0);
exit;
end;
if bsSkinCheckRadioBox4.Checked then begin
str_seai:='''<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>'''
end;
if bsSkinCheckRadioBox5.Checked then begin
if str_seai<>'' then
str_seai:=str_seai+',''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'' '
else
str_seai:='''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>''';
end;
if bsSkinCheckRadioBox6.Checked then begin
if str_seai<>'' then
str_seai:=str_seai+',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'''
else
str_seai:='''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>''';
end;
if str_seai<>'' then
str_seai:='('+str_seai+')';
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 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 RxDBLookupCombo26.DisplayValue<>'' then
begin
if str_bill='' then
str_bill:=' where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo26.DisplayValue+''''
else
str_bill:=str_bill+' and <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo26.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 wwDBComboBox5.text<>'' then
begin
if str_fee='' then
str_fee:=' where <20><><EFBFBD><EFBFBD>='+''''+wwDBComboBox5.text+''''
else
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD>='+''''+wwDBComboBox5.text+'''';
end;
if str_seai<>'' then
if str_fee='' then begin
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seai;
end else begin
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seai;
end;
if wwDBComboBox2.Text<>''then
begin
if wwDBComboBox2.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
str_fuhe:=' t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seai+')'
else
str_fuhe:=' t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seai+')';
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 v_ch_fee_modify_view'+str_fee+')';
end
else
begin
if str_fee<>'' then
str_bill:=' where t_op_seai.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view'+str_fee+')';
end;
if str_fuhe<>''then
begin
if str_bill<>'' then
str_bill:=str_bill+' and '+str_fuhe
else
str_bill:=' where '+str_fuhe;
end;
t_ch_fee_modify.close;
t_ch_fee_modify.sql.Clear;
t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> ');
t_ch_fee_modify.sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_seai);
if wwDBComboBox5.text<>'' then
t_ch_fee_modify.sql.Add('and <20><><EFBFBD><EFBFBD>='''+wwDBComboBox5.text+'''');
t_ch_fee_modify.sql.Add(' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,FM_ID');
a_shen_delete.close;
a_shen_modify_old.close;
a_shen_modify_new.close;
a_shen_add.close;
p_seai.close;
p_seai.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seai.*, v_ch_fee_modify_check_sum.<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_check_sum ON t_op_seai.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_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;
a_shen_add.open;
exit;
end;
if bsSkinTabSheet3.Showing then
begin
str_aire:='';
if (not bsSkinCheckRadioBox7.Checked) and (not bsSkinCheckRadioBox8.Checked) and (not bsSkinCheckRadioBox9.Checked) then begin
MessageDlg('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>',mtWarning,[mbOk],0);
exit;
end;
if bsSkinCheckRadioBox7.Checked then begin
str_aire:='''<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>'''
end;
if bsSkinCheckRadioBox8.Checked then begin
if str_aire<>'' then
str_aire:=str_aire+',''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'' '
else
str_aire:='''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>''';
end;
if bsSkinCheckRadioBox9.Checked then begin
if str_aire<>'' then
str_aire:=str_aire+',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'''
else
str_aire:='''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>''';
end;
if str_aire<>'' then
str_aire:='('+str_aire+')';
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 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 RxDBLookupCombo27.DisplayValue<>'' then
begin
if str_bill='' then
str_bill:=' where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo27.DisplayValue+''''
else
str_bill:=str_bill+' and <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo27.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_fee='' then begin
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_aire;
end else begin
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_aire;
end;
if wwDBComboBox3.Text<>''then
begin
if wwDBComboBox3.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
str_fuhe:=' t_op_aire.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_aire+')'
else
str_fuhe:=' t_op_aire.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_aire+')';
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 v_ch_fee_modify_view'+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;
if str_fuhe<>''then
begin
if str_bill<>'' then
str_bill:=str_bill+' and '+str_fuhe
else
str_bill:=' where '+str_fuhe;
end;
t_ch_fee_modify.close;
t_ch_fee_modify.sql.Clear;
t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> ');
t_ch_fee_modify.sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_aire);
t_ch_fee_modify.sql.Add(' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,FM_ID');
a_shen_delete.close;
a_shen_modify_old.close;
a_shen_modify_new.close;
a_shen_add.close;
p_aire.close;
p_aire.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_aire.*, v_ch_fee_modify_check_sum.<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_check_sum ON t_op_aire.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_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;
a_shen_add.open;
exit;
end;
if bsSkinTabSheet4.Showing then
begin
str_airi:='';
if (not bsSkinCheckRadioBox10.Checked) and (not bsSkinCheckRadioBox11.Checked) and (not bsSkinCheckRadioBox12.Checked) then begin
MessageDlg('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>',mtWarning,[mbOk],0);
exit;
end;
if bsSkinCheckRadioBox10.Checked then begin
str_airi:='''<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>'''
end;
if bsSkinCheckRadioBox11.Checked then begin
if str_airi<>'' then
str_airi:=str_airi+',''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'' '
else
str_airi:='''<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>''';
end;
if bsSkinCheckRadioBox12.Checked then begin
if str_airi<>'' then
str_airi:=str_airi+',''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'''
else
str_airi:='''<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>''';
end;
if str_airi<>'' then
str_airi:='('+str_airi+')';
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 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 RxDBLookupCombo28.DisplayValue<>'' then
begin
if str_bill='' then
str_bill:=' where <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo28.DisplayValue+''''
else
str_bill:=str_bill+' and <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo28.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_fee='' then begin
str_fee:=' where <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_airi;
end else begin
str_fee:=str_fee+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_airi;
end;
if wwDBComboBox4.Text<>''then
begin
if wwDBComboBox4.text='û<>и<EFBFBD><D0B8><EFBFBD>' then
str_fuhe:=' t_op_airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_airi+')'
else
str_fuhe:=' t_op_airi.<2E><><EFBFBD><EFBFBD> in (select <20><><EFBFBD><EFBFBD> from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>״̬='
+''''+'<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'+''''+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_airi+')';
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 v_ch_fee_modify_view'+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;
if str_fuhe<>''then
begin
if str_bill<>'' then
str_bill:=str_bill+' and '+str_fuhe
else
str_bill:=' where '+str_fuhe;
end;
t_ch_fee_modify.close;
t_ch_fee_modify.sql.Clear;
t_ch_fee_modify.sql.Add('select * from v_ch_fee_modify_view where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD> ');
t_ch_fee_modify.sql.Add('and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in '+str_airi);
t_ch_fee_modify.sql.Add(' order by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,FM_ID');
a_shen_delete.close;
a_shen_modify_old.close;
a_shen_modify_new.close;
a_shen_add.close;
p_airi.close;
p_airi.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_airi.*, v_ch_fee_modify_check_sum.<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_check_sum ON t_op_airi.<2E><><EFBFBD><EFBFBD> = v_ch_fee_modify_check_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;
a_shen_add.open;
exit;
end;
end;
procedure Tfrm_ch_fee_modify_check.Panel1Resize(Sender: TObject);
begin
bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width;
end;
procedure Tfrm_ch_fee_modify_check.bsSkinPageControl1Change(
Sender: TObject);
begin
if ch_fee_modify_check then
begin
t_ch_fee_modify.close;
p_seae.close;
p_seai.close;
p_aire.close;
p_airi.close;
if bsSkinTabSheet1.Showing then
begin
t_ch_fee_modify.DataSource:=p_seae1;
end
else if bsSkinTabSheet2.Showing then
begin
t_ch_fee_modify.DataSource:=p_seai1;
end
else if bsSkinTabSheet3.Showing then
begin
t_ch_fee_modify.DataSource:=p_aire1;
end
else if bsSkinTabSheet4.Showing then
begin
t_ch_fee_modify.DataSource:=p_airi1;
end;
end;
end;
procedure Tfrm_ch_fee_modify_check.dxDBGrid1ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_seae,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_modify_check.dxDBGrid3ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_seai,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_modify_check.dxDBGrid4ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_aire,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_modify_check.dxDBGrid5ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort_pro(Column,p_airi,'ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure Tfrm_ch_fee_modify_check.dxDBGrid2ColumnSorting(Sender: TObject;
Column: TdxDBTreeListColumn; var Allow: Boolean);
begin
Column_sort(Column,t_ch_fee_modify,'FM_ID');
end;
procedure Tfrm_ch_fee_modify_check.DBEdit17Change(Sender: TObject);
begin
a_delete.Visible:=false;
a_delete.Align:=alNone;
a_modify_old.Visible:=false;
a_modify_old.Align:=alNone;
a_modify_new.Visible:=false;
a_modify_new.Align:=alNone;
a_modify_add.Visible:=false;
a_modify_add.Align:=alNone;
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>'then
begin
a_modify_old.Visible:=false;
a_modify_old.Align:=alNone;
a_modify_new.Visible:=false;
a_modify_new.Align:=alNone;
a_delete.Visible:=false;
a_delete.Align:=alNone;
a_modify_add.Visible:=true;
a_modify_add.Align:=alRight;
exit;
end;
if t_ch_fee_modify.FieldByName('<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_modify_add.Visible:=false;
a_modify_add.Align:=alNone;
a_delete.Visible:=true;
a_delete.Align:=alRight;
exit;
end;
if t_ch_fee_modify.FieldByName('<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_add.Visible:=false;
a_modify_add.Align:=alNone;
a_modify_new.Visible:=true;
a_modify_new.Align:=alRight;
a_modify_old.Visible:=true;
a_modify_old.Align:=alRight;
exit;
end;
end;
procedure Tfrm_ch_fee_modify_check.bsSkinButton1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit11.Text:='';
Edit13.Text:='';
Edit15.Text:='';
RxDBLookupCombo1.ClearValue;
RxDBLookupCombo2.ClearValue;
RxDBLookupCombo3.ClearValue;
RxDBLookupCombo4.ClearValue;
RxDBLookupCombo5.ClearValue;
RxDBLookupCombo6.ClearValue;
RxDBLookupCombo7.ClearValue;
RxDBLookupCombo8.ClearValue;
RxDBLookupCombo9.ClearValue;
RxDBLookupCombo10.ClearValue;
RxDBLookupCombo11.ClearValue;
RxDBLookupCombo12.ClearValue;
RxDBLookupCombo13.ClearValue;
RxDBLookupCombo14.ClearValue;
RxDBLookupCombo15.ClearValue;
RxDBLookupCombo16.ClearValue;
RxDBLookupCombo17.ClearValue;
RxDBLookupCombo18.ClearValue;
RxDBLookupCombo19.ClearValue;
RxDBLookupCombo20.ClearValue;
RxDBLookupCombo21.ClearValue;
RxDBLookupCombo22.ClearValue;
RxDBLookupCombo23.ClearValue;
RxDBLookupCombo24.ClearValue;
wwDBDateTimePicker1.Text:='';
wwDBDateTimePicker2.Text:='';
wwDBDateTimePicker3.Text:='';
wwDBDateTimePicker4.Text:='';
wwDBDateTimePicker5.Text:='';
wwDBDateTimePicker6.Text:='';
wwDBDateTimePicker7.Text:='';
wwDBDateTimePicker8.Text:='';
wwDBDateTimePicker9.Text:='';
wwDBDateTimePicker10.Text:='';
wwDBDateTimePicker11.Text:='';
wwDBDateTimePicker12.Text:='';
wwDBDateTimePicker13.Text:='';
wwDBDateTimePicker14.Text:='';
wwDBDateTimePicker15.Text:='';
wwDBDateTimePicker16.Text:='';
wwDBDateTimePicker17.Text:='';
wwDBDateTimePicker18.Text:='';
wwDBDateTimePicker19.Text:='';
wwDBDateTimePicker20.Text:='';
wwDBDateTimePicker21.Text:='';
wwDBDateTimePicker22.Text:='';
wwDBDateTimePicker23.Text:='';
wwDBDateTimePicker24.Text:='';
wwDBComboBox1.Text:='';
wwDBComboBox2.Text:='';
wwDBComboBox3.Text:='';
wwDBComboBox4.Text:='';
end;
procedure Tfrm_ch_fee_modify_check.FormShow(Sender: TObject);
begin
ch_fee_modify_check:=true;
end;
procedure Tfrm_ch_fee_modify_check.bsSkinButton2Click(Sender: TObject);
var
i:integer;
begin
if t_ch_fee_modify.IsEmpty then
exit;
if dxDBGrid2.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
t_ch_fee_modify.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>' then
begin
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
begin
a_shen_delete.edit;
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
a_shen_delete.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
begin
a_shen_modify_old.edit;
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
a_shen_modify_old.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>') then
begin
a_shen_add.edit;
a_shen_add['<27>Ƿ񸴺<C7B7>']:=1;
a_shen_add.post;
end
end;
end;
end
else
begin
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>' then
begin
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
begin
a_shen_delete.edit;
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
a_shen_delete.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
begin
a_shen_modify_old.edit;
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
a_shen_modify_old.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>') then
begin
a_shen_add.edit;
a_shen_add['<27>Ƿ񸴺<C7B7>']:=1;
a_shen_add.post;
end
end;
end;
t_ch_fee_modify.Requery();
end;
procedure Tfrm_ch_fee_modify_check.bsSkinButton4Click(Sender: TObject);
begin
if t_ch_fee_modify.IsEmpty then
exit;
t_ch_fee_modify.first;
while not t_ch_fee_modify.eof do
begin
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>' then
begin
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
begin
a_shen_delete.edit;
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
a_shen_delete.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
begin
a_shen_modify_old.edit;
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
a_shen_modify_old.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>') then
begin
a_shen_add.edit;
a_shen_add['<27>Ƿ񸴺<C7B7>']:=1;
a_shen_add.post;
end
end;
t_ch_fee_modify.next;
end;
t_ch_fee_modify.Requery();
end;
procedure Tfrm_ch_fee_modify_check.bsSkinButton3Click(Sender: TObject);
begin
if t_ch_fee_modify.IsEmpty then
exit;
if t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
begin
if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>') then
begin
a_shen_delete.edit;
a_shen_delete['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>';
a_shen_delete.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>') then
begin
a_shen_modify_old.edit;
a_shen_modify_old['<27><><EFBFBD><EFBFBD>״̬']:='<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>';
a_shen_modify_old.post;
end
else if (t_ch_fee_modify.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>׷<EFBFBD><D7B7>') then
begin
a_shen_add.edit;
a_shen_add['<27>Ƿ񸴺<C7B7>']:=0;
a_shen_add.post;
end
end;
t_ch_fee_modify.Requery();
end;
procedure Tfrm_ch_fee_modify_check.dxDBGrid2Column2CustomDraw(
Sender: TObject; ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
if ANode.Strings[dxDBGrid2Column2.Index]='<27><>׼<EFBFBD><D7BC><EFBFBD><EFBFBD>' then
AColor:=$0040FF00
else
AColor:=clred;
AFont.Color:=clblack;
end;
procedure Tfrm_ch_fee_modify_check.bsSkinGroupBox1Resize(Sender: TObject);
begin
bsSkinButton3.Left:=bsSkinGroupBox1.Width-97;
bsSkinButton4.Left:=bsSkinGroupBox1.Width-97*2;
bsSkinButton2.Left:=bsSkinGroupBox1.Width-97*3;
end;
end.