|
|
unit u_ch_piliang_prnfee;
|
|
|
|
|
|
interface
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
Dialogs, bsSkinCtrls, BusinessSkinForm, dxExEdtr, dxDBTLCl, dxGrClms,
|
|
|
dxDBGrid, dxTL, dxDBCtrl, dxCntner, DB, ADODB, StdCtrls;
|
|
|
|
|
|
type
|
|
|
Tfrm_ch_piliang_prnfee = class(TForm)
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column5: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column20: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1TEU: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column63: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column64: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column65: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column66: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column67: TdxDBGridMaskColumn;
|
|
|
t_op_seae1: TDataSource;
|
|
|
t_ch_accept: TADOQuery;
|
|
|
t_ch_accept1: TDataSource;
|
|
|
t_ch_pay: TADOQuery;
|
|
|
t_ch_pay1: TDataSource;
|
|
|
t_sys_report: TADOQuery;
|
|
|
t_sys_report1: TDataSource;
|
|
|
dxDBGrid2: TdxDBGrid;
|
|
|
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridCheckColumn;
|
|
|
tv_bscard_all: TADOStoredProc;
|
|
|
t_op_gain: TADOQuery;
|
|
|
t_op_gain1: TDataSource;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
t_op_gain_main1: TDataSource;
|
|
|
t_op_gain_main: TADOQuery;
|
|
|
qrytmp: TADOQuery;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
procedure setprntrue ;
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_ch_piliang_prnfee: Tfrm_ch_piliang_prnfee;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main, my_sys_function;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
procedure Tfrm_ch_piliang_prnfee.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_piliang_prnfee.bsSkinButton8Click(Sender: TObject);
|
|
|
begin
|
|
|
if t_sys_report.IsEmpty then
|
|
|
begin
|
|
|
showmessage('û<><C3BB><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD><DEB7><EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>');
|
|
|
exit;
|
|
|
end;
|
|
|
showmessage('0');
|
|
|
setprntrue;
|
|
|
showmessage('1');
|
|
|
|
|
|
sys_print_piliang('<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ',t_sys_report.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring,
|
|
|
tv_bscard_all,t_op_seae1,nil,nil,nil,
|
|
|
t_ch_accept1,t_ch_pay1,t_op_gain1,t_op_gain_main1,nil,nil,nil,t_sys_report.fieldbyname('CH_ID').asinteger);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_piliang_prnfee.FormShow(Sender: TObject);
|
|
|
begin
|
|
|
t_sys_report.Parameters[0].value:='<27><><EFBFBD>㵥<EFBFBD><E3B5A5>ӡ';
|
|
|
t_sys_report.open;
|
|
|
t_ch_accept.open;
|
|
|
t_ch_pay.open;
|
|
|
t_op_gain.open;
|
|
|
t_op_gain_main.Open ;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_ch_piliang_prnfee.setprntrue;
|
|
|
var tblname:string ;
|
|
|
begin
|
|
|
with tv_bscard_all do
|
|
|
begin
|
|
|
First ;
|
|
|
while not eof do
|
|
|
begin
|
|
|
tblname:='' ;
|
|
|
if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' then tblname:='t_op_seae'
|
|
|
else
|
|
|
if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>' then tblname:='t_op_seai'
|
|
|
else
|
|
|
if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˳<EFBFBD><CBB3><EFBFBD>' then tblname:='t_op_aire'
|
|
|
else
|
|
|
if tv_bscard_all.FieldByName('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring='<27><><EFBFBD>˽<EFBFBD><CBBD><EFBFBD>' then tblname:='t_op_airi'
|
|
|
else raise exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԥ֪<D4A4><D6AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>') ;
|
|
|
qrytmp.Close ;
|
|
|
qrytmp.sql.clear ;
|
|
|
qrytmp.sql.add('update '+tblname+' set <20>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ=1 ');
|
|
|
if strtobool(get_parameters_value(63,'false'))then
|
|
|
qrytmp.sql.add(' ,<2C><><EFBFBD><EFBFBD>״̬=''<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD>''');
|
|
|
qrytmp.sql.add('where <20><><EFBFBD><EFBFBD>=:bianhao');
|
|
|
qrytmp.parameters.parambyname('bianhao').value:=FieldByName('<27><><EFBFBD><EFBFBD>').asstring ;
|
|
|
qrytmp.execsql ;
|
|
|
next ;
|
|
|
end ;
|
|
|
first ;
|
|
|
end ;
|
|
|
end;
|
|
|
|
|
|
end.
|