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

1630 lines
69 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.

unit u_ch_delete_do;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, bsSkinTabs, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
dxDBGrid, dxDBTLCl, dxGrClms, Menus, StdCtrls, XPMenu, Grids, DBGridEh,
bsSkinCtrls, RxMemDS;
type
Tfra_ch_delete_do = class(TFrame)
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
bsSkinTabSheet3: TbsSkinTabSheet;
bsSkinTabSheet4: TbsSkinTabSheet;
v_fee_do_seae: TADOQuery;
v_fee_do_seae1: TDataSource;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridMaskColumn;
dxDBGrid1Column2: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridDateColumn;
dxDBGrid1Column10: TdxDBGridDateColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridMaskColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column15: TdxDBGridMaskColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
dxDBGrid1Column20: TdxDBGridMaskColumn;
dxDBGrid1Column21: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column16: TdxDBGridColumn;
dxDBGrid1Column17: TdxDBGridColumn;
do_ban1: TDataSource;
p_fee_do_delete_one: TADOStoredProc;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
bs_text: TEdit;
XPMenu1: TXPMenu;
v_fee_do_seai: TADOQuery;
v_fee_do_seai1: TDataSource;
dxDBGrid2: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridColumn1: TdxDBGridColumn;
dxDBGridColumn2: TdxDBGridColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridColumn3: TdxDBGridColumn;
dxDBGridColumn4: TdxDBGridColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
v_fee_do_aire: TADOQuery;
v_fee_do_aire1: TDataSource;
v_fee_do_airi1: TDataSource;
v_fee_do_airi: TADOQuery;
dxDBGrid3: TdxDBGrid;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
dxDBGridMaskColumn17: TdxDBGridMaskColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridColumn5: TdxDBGridColumn;
dxDBGridColumn6: TdxDBGridColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGridColumn7: TdxDBGridColumn;
dxDBGridColumn8: TdxDBGridColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
dxDBGrid4: TdxDBGrid;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridColumn9: TdxDBGridColumn;
dxDBGridColumn10: TdxDBGridColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
dxDBGridColumn11: TdxDBGridColumn;
dxDBGridColumn12: TdxDBGridColumn;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGrid2Column22: TdxDBGridColumn;
dxDBGrid5: TdxDBGrid;
v_fee_do_seae_sum: TADOQuery;
v_fee_do_seae_sum1: TDataSource;
v_fee_do_seai_sum: TADOQuery;
v_fee_do_seai_sum1: TDataSource;
v_fee_do_aire_sum: TADOQuery;
v_fee_do_aire_sum1: TDataSource;
v_fee_do_airi_sum: TADOQuery;
v_fee_do_airi_sum1: TDataSource;
dxDBGrid5Column1: TdxDBGridMaskColumn;
dxDBGrid5Column3: TdxDBGridColumn;
dxDBGrid6: TdxDBGrid;
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
dxDBGridColumn13: TdxDBGridColumn;
dxDBGrid7: TdxDBGrid;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
dxDBGridColumn14: TdxDBGridColumn;
dxDBGrid8: TdxDBGrid;
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
dxDBGridColumn15: TdxDBGridColumn;
dxDBGrid5Column4: TdxDBGridColumn;
dxDBGrid1Column22: TdxDBGridColumn;
dxDBGrid6Column4: TdxDBGridColumn;
dxDBGrid2Column23: TdxDBGridColumn;
dxDBGrid7Column4: TdxDBGridColumn;
dxDBGrid3Column19: TdxDBGridColumn;
dxDBGrid4Column19: TdxDBGridColumn;
dxDBGrid8Column4: TdxDBGridColumn;
dxDBGrid5Column2: TdxDBGridColumn;
dxDBGridDateColumn7: TdxDBGridColumn;
dxDBGridDateColumn8: TdxDBGridColumn;
dxDBGridDateColumn9: TdxDBGridColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGrid2Column24: TdxDBGridColumn;
dxDBGrid3Column20: TdxDBGridColumn;
dxDBGrid4Column20: TdxDBGridColumn;
dxDBGrid5Column5: TdxDBGridColumn;
dxDBGrid5Column6: TdxDBGridColumn;
dxDBGrid6Column5: TdxDBGridColumn;
dxDBGrid6Column6: TdxDBGridColumn;
dxDBGrid7Column5: TdxDBGridColumn;
dxDBGrid7Column6: TdxDBGridColumn;
dxDBGrid8Column5: TdxDBGridColumn;
dxDBGrid8Column6: TdxDBGridColumn;
bsSkinTabSheet5: TbsSkinTabSheet;
dxDBGrid9: TdxDBGrid;
dxDBGridColumn16: TdxDBGridColumn;
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
dxDBGridColumn17: TdxDBGridColumn;
dxDBGridColumn18: TdxDBGridColumn;
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
dxDBGridColumn19: TdxDBGridColumn;
dxDBGridDateColumn10: TdxDBGridDateColumn;
dxDBGridDateColumn11: TdxDBGridDateColumn;
dxDBGridMaskColumn50: TdxDBGridMaskColumn;
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
dxDBGridMaskColumn56: TdxDBGridMaskColumn;
v_fee_do_bscard_sum: TADOQuery;
v_fee_do_bscard: TADOQuery;
v_fee_do_bscard1: TDataSource;
v_fee_do_bscard_sum1: TDataSource;
dxDBGrid1Column24: TdxDBGridColumn;
dxDBGrid2Column25: TdxDBGridColumn;
dxDBGrid3Column21: TdxDBGridColumn;
dxDBGrid4Column21: TdxDBGridColumn;
dxDBGrid9Column24: TdxDBGridColumn;
t_rate: TRxMemoryData;
dxDBGrid1Column25: TdxDBGridColumn;
dxDBGrid2Column26: TdxDBGridColumn;
dxDBGrid3Column22: TdxDBGridColumn;
dxDBGrid4Column22: TdxDBGridColumn;
N2: TMenuItem;
N3: TMenuItem;
dxDBGrid9Column17: TdxDBGridColumn;
dxDBGrid9Column18: TdxDBGridColumn;
dxDBGrid9Column19: TdxDBGridColumn;
dxDBGrid9Column20: TdxDBGridColumn;
dxDBGrid9Column21: TdxDBGridColumn;
procedure N1Click(Sender: TObject);
procedure bs_textChange(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure dxDBGrid2DblClick(Sender: TObject);
procedure dxDBGrid3DblClick(Sender: TObject);
procedure dxDBGrid4DblClick(Sender: TObject);
procedure dxDBGrid9DblClick(Sender: TObject);
procedure dxDBGrid9Column25CustomDraw(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 dxDBGrid9Column26CustomDraw(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 N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses u_main, my_sys_function, u_fee_do_fen;
{$R *.dfm}
procedure Tfra_ch_delete_do.N1Click(Sender: TObject);
var
i:integer;
delete_num:real;
usddelete_num:real;
rmbdelete_num:real;
RE:Boolean;
begin
//ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD>ü<EFBFBD><C3BC><EFBFBD>
RE:=TRUE;
if (bs_text.Text='3') then begin
if (do_ban1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>') then begin
RE:=FALSE;
end;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet5 then begin
if bs_text.Text='3'then
if (do_ban1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>')then
begin
if (do_ban1.DataSet.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'ȷ<>Ϻ<EFBFBD><CFBA><EFBFBD>')then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
do_ban1.DataSet.Edit;
end else begin
if bs_text.Text='3'then
if (do_ban1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD><EFBFBD>')then
begin
if (do_ban1.DataSet.FieldByName('<27>ʵ<EFBFBD>״̬').asstring<>'ȷ<>Ϻ<EFBFBD><CFBA><EFBFBD>')then
begin
showmessage('<27><>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
exit;
end;
end;
do_ban1.DataSet.Edit;
end;
usddelete_num:=0;
rmbdelete_num:=0;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet1 then
begin
if v_fee_do_seae.IsEmpty then
exit;
if_ch_delete_do:=true;
delete_do_type_num:=1;
if dxDBGrid1.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid1.SelectedCount-1 do
begin
v_fee_do_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_seae.fieldbyname('CH_ID').AsInteger,v_fee_do_seae.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_seae.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
end
else
begin
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_seae.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seae.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_seae.fieldbyname('CH_ID').AsInteger,v_fee_do_seae.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_seae.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
if (bs_text.Text='1') or (bs_text.Text='2') or (bs_text.Text='6') or (bs_text.Text='7') then
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if ((StrToBool(get_parameters_value(83,'false'))) AND RE) and (bs_text.Text<>'1') and (bs_text.Text<>'7') then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end
else
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet2 then
begin
if v_fee_do_seai.IsEmpty then
exit;
if_ch_delete_do:=true;
delete_do_type_num:=2;
if dxDBGrid2.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
v_fee_do_seai.GotoBookmark(pointer(dxDBGrid2.selectedrows[i]));
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('ԭʼ<D4AD>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_seai.fieldbyname('CH_ID').AsInteger,v_fee_do_seai.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_seai.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
end
else
begin
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_seai.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_seai.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_seae.fieldbyname('CH_ID').AsInteger,v_fee_do_seae.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_seai.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
if (bs_text.Text='1')or(bs_text.Text='2') or(bs_text.Text='6') or(bs_text.Text='7') then
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if ((StrToBool(get_parameters_value(83,'false'))) AND RE) and (bs_text.Text<>'1') and (bs_text.Text<>'7') then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end
else
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet3 then
begin
if v_fee_do_aire.IsEmpty then
exit;
if_ch_delete_do:=true;
delete_do_type_num:=3;
if dxDBGrid3.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid3.SelectedCount-1 do
begin
v_fee_do_aire.GotoBookmark(pointer(dxDBGrid3.selectedrows[i]));
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_aire.fieldbyname('CH_ID').AsInteger,v_fee_do_aire.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_aire.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
end
else
begin
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_aire.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_aire.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_aire.fieldbyname('CH_ID').asinteger,v_fee_do_aire.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_aire.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
if (bs_text.Text='1')or(bs_text.Text='2') or(bs_text.Text='6') or(bs_text.Text='7') then
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if ((StrToBool(get_parameters_value(83,'false'))) AND RE) and (bs_text.Text<>'1') and (bs_text.Text<>'7') then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end
else
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet4 then
begin
if v_fee_do_airi.IsEmpty then
exit;
if_ch_delete_do:=true;
delete_do_type_num:=4;
if dxDBGrid4.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid4.SelectedCount-1 do
begin
v_fee_do_airi.GotoBookmark(pointer(dxDBGrid4.selectedrows[i]));
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_airi.fieldbyname('CH_ID').AsInteger,v_fee_do_airi.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_airi.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
end
else
begin
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_airi.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_airi.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_airi.fieldbyname('CH_ID').AsInteger,v_fee_do_airi.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_airi.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
if (bs_text.Text='1')or(bs_text.Text='2') or (bs_text.Text='6') or (bs_text.Text='7') then
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if ((StrToBool(get_parameters_value(83,'false'))) AND RE) and (bs_text.Text<>'1') and (bs_text.Text<>'7') then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end
else
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end;
end;
if bsSkinPageControl1.ActivePage=bsSkinTabSheet5 then
begin
if v_fee_do_bscard.IsEmpty then
exit;
try
frm_main.db.BeginTrans;
if_ch_delete_do:=true;
delete_do_type_num:=1;
if dxDBGrid9.SelectedCount>=1 then
begin
for i:=0 to dxDBGrid9.SelectedCount-1 do
begin
v_fee_do_bscard.GotoBookmark(pointer(dxDBGrid9.selectedrows[i]));
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_bscard.fieldbyname('CH_ID').AsInteger,v_fee_do_bscard.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_bscard.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
end
else
begin
case strtoint(bs_text.Text) of
1,7:
begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
2:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
6:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
3:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
4:
begin
if v_fee_do_bscard.FieldByName('<27><><EFBFBD><EFBFBD>').asstring='<27><>' then
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num+v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
end
else
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
if v_fee_do_bscard.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
usddelete_num:=usddelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat
else
rmbdelete_num:=rmbdelete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end else begin
delete_num:=delete_num-v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asfloat;
end;
end;
end;
case strtoint(bs_text.Text) of
3,4:
begin
Setfee(1,v_fee_do_bscard.fieldbyname('CH_ID').AsInteger,v_fee_do_bscard.fieldbyname('ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>').AsCurrency);
end;
end;
p_fee_do_delete_one.Parameters[1].value:=v_fee_do_bscard.fieldbyname('DO_ID').asinteger;
p_fee_do_delete_one.ExecProc;
end;
if (bs_text.Text='1')or(bs_text.Text='2') or (bs_text.Text='6') or (bs_text.Text='7') then
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if ((StrToBool(get_parameters_value(83,'false'))) AND RE) and (bs_text.Text<>'1') and (bs_text.Text<>'7') then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']:=do_ban1.DataSet['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end
else
begin
if (delete_num<>0) or (usddelete_num<>0) or (rmbdelete_num<>0) then
begin
do_ban1.DataSet.edit;
if (StrToBool(get_parameters_value(83,'false'))) AND RE then begin
do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']:=do_ban1.DataSet['<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>']-usddelete_num;
do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']:=do_ban1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>']-rmbdelete_num;
end else begin
do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=do_ban1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']-delete_num;
end;
do_ban1.DataSet.post;
end;
end;
frm_main.db.CommitTrans;
finally
if frm_main.db.InTransaction then begin
MessageDlg('<27><><EFBFBD>ӳ<EFBFBD><D3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>رյ<D8B1>ǰҵ<C7B0><D2B5><EFBFBD><EFBFBD><EFBFBD>ԣ<EFBFBD>',mterror,[mbok],0);
frm_main.db.RollbackTrans;
end;
end;
end;
end;
procedure Tfra_ch_delete_do.bs_textChange(Sender: TObject);
begin
//<2F>б<EFBFBD><D0B1><EFBFBD>ʾ
case strtoint(bs_text.text) of
1,7:
begin
dxDBGrid5Column4.Visible:=false;
dxDBGrid1Column22.Visible:=false;
dxDBGrid6Column4.Visible:=false;
dxDBGrid2Column23.Visible:=false;
dxDBGrid7Column4.Visible:=false;
dxDBGrid3Column19.Visible:=false;
dxDBGrid4Column19.Visible:=false;
dxDBGrid8Column4.Visible:=false;
// dxDBGridColumn22.Visible:=false;
dxDBGridColumn16.Visible:=false;
dxDBGrid1Column6.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn1.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn5.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn17.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
2,6:
begin
dxDBGrid5Column4.Visible:=true;
dxDBGrid1Column22.Visible:=true;
dxDBGrid6Column4.Visible:=true;
dxDBGrid2Column23.Visible:=true;
dxDBGrid7Column4.Visible:=true;
dxDBGrid3Column19.Visible:=true;
dxDBGrid4Column19.Visible:=true;
dxDBGrid8Column4.Visible:=True;
// dxDBGridColumn22.Visible:=True;
dxDBGridColumn16.Visible:=True;
dxDBGrid1Column6.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn1.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn5.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn17.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
3,4:
begin
dxDBGrid5Column4.Visible:=true;
dxDBGrid1Column22.Visible:=true;
dxDBGrid6Column4.Visible:=true;
dxDBGrid2Column23.Visible:=true;
dxDBGrid7Column4.Visible:=true;
dxDBGrid3Column19.Visible:=true;
dxDBGrid4Column19.Visible:=true;
dxDBGrid8Column4.Visible:=true;
// dxDBGridColumn22.Visible:=True;
dxDBGridColumn16.Visible:=True;
dxDBGrid1Column6.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn1.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn5.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn9.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
dxDBGridColumn17.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
end;
end;
procedure Tfra_ch_delete_do.dxDBGrid1DblClick(Sender: TObject);
begin
fee_view(v_fee_do_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfra_ch_delete_do.dxDBGrid2DblClick(Sender: TObject);
begin
fee_view(v_fee_do_seai.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfra_ch_delete_do.dxDBGrid3DblClick(Sender: TObject);
begin
fee_view(v_fee_do_aire.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfra_ch_delete_do.dxDBGrid4DblClick(Sender: TObject);
begin
fee_view(v_fee_do_airi.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfra_ch_delete_do.dxDBGrid9DblClick(Sender: TObject);
begin
fee_view(v_fee_do_bscard.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring);
end;
procedure Tfra_ch_delete_do.dxDBGrid9Column25CustomDraw(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
{
AColor:=dxgrid_color('<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>',ANode.Strings[dxDBGrid9Column25.Index]);
AFont.Color:=clblack;
}
end;
procedure Tfra_ch_delete_do.dxDBGrid9Column26CustomDraw(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
{
AColor:=dxgrid_color_fee(ANode.strings[dxDBGrid9Column26.Index]);
AFont.Color:=clblack;
}
end;
procedure Tfra_ch_delete_do.N3Click(Sender: TObject);
begin
grid_save_xls(dxDBGrid9);
end;
end.
Reference in New Issue View Git Blame Copy Permalink