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_fee_Recheck.pas

751 lines
20 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_fee_Recheck;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DB, ADODB, StdCtrls, Mask, bsSkinBoxCtrls, bsdbctrls, bsSkinCtrls,
ExtCtrls, DBCtrls, Grids, Wwdbigrd, Wwdbgrid, Menus, XPMenu;
type
Tfra_fee_Recheck = class(TFrame)
bsSkinPanel1: TbsSkinPanel;
bsSkinPanel3: TbsSkinPanel;
Panel1: TPanel;
bsSkinButton1: TbsSkinButton;
bsSkinButton11: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
bsSkinButton4: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinPanel4: TbsSkinPanel;
a_bo: TbsSkinGroupBox;
DBMemo1: TDBMemo;
a_delete: TbsSkinGroupBox;
DBMemo2: TDBMemo;
a_modify_old: TbsSkinGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: 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;
wwDBGrid1: TwwDBGrid;
DBEdit17: TDBEdit;
bsSkinPanel5: TbsSkinPanel;
bsSkinPanel6: TbsSkinPanel;
p_bo: TbsSkinGroupBox;
DBMemo4: TDBMemo;
p_delete: TbsSkinGroupBox;
DBMemo5: TDBMemo;
p_modify_old: TbsSkinGroupBox;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
p_modify_new: TbsSkinGroupBox;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
DBEdit27: TDBEdit;
DBEdit28: TDBEdit;
DBEdit29: TDBEdit;
DBEdit30: TDBEdit;
DBEdit31: TDBEdit;
DBEdit32: TDBEdit;
DBEdit33: TDBEdit;
DBEdit34: TDBEdit;
wwDBGrid2: TwwDBGrid;
DBEdit18: TDBEdit;
Panel2: TPanel;
bsSkinButton5: TbsSkinButton;
bsSkinButton6: TbsSkinButton;
bsSkinButton7: TbsSkinButton;
bsSkinButton8: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
t_ch_accept: TADOQuery;
t_ch_accept1: TDataSource;
t_ch_pay: TADOQuery;
t_ch_pay1: TDataSource;
t_op_gain: TADOQuery;
t_op_gain1: TDataSource;
a_shen_delete: TADOQuery;
a_shen_modify_old: TADOQuery;
a_shen_modify_new: TADOQuery;
a_shen_modify_new1: TDataSource;
a_shen_modify_old1: TDataSource;
a_shen_delete1: TDataSource;
p_shen_delete: TADOQuery;
p_shen_delete1: TDataSource;
p_shen_modify_old: TADOQuery;
p_shen_modify_old1: TDataSource;
p_shen_modify_new: TADOQuery;
p_shen_modify_new1: TDataSource;
PopupMenu4: TPopupMenu;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
N85: TMenuItem;
N86: TMenuItem;
N87: TMenuItem;
N88: TMenuItem;
PopupMenu5: TPopupMenu;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem14: TMenuItem;
XPMenu1: TXPMenu;
bsSkinButton10: TbsSkinButton;
bsSkinButton12: TbsSkinButton;
Label1: TLabel;
DBEdit35: TDBEdit;
Label2: TLabel;
DBEdit36: TDBEdit;
DBEdit37: TDBEdit;
DBEdit38: TDBEdit;
Label4: TLabel;
Label3: TLabel;
bsSkinPanel7: TbsSkinPanel;
Label5: TLabel;
Label6: TLabel;
DBEdit39: TDBEdit;
DBEdit40: TDBEdit;
bsSkinPanel8: TbsSkinPanel;
Label7: TLabel;
Label42: TLabel;
DBEdit41: TDBEdit;
DBEdit42: TDBEdit;
Panel3: TPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinStdLabel2: TbsSkinStdLabel;
bsSkinStdLabel3: TbsSkinStdLabel;
bsSkinStdLabel4: TbsSkinStdLabel;
bsSkinStdLabel5: TbsSkinStdLabel;
bsSkinStdLabel6: TbsSkinStdLabel;
bsSkinStdLabel7: TbsSkinStdLabel;
bsSkinStdLabel8: TbsSkinStdLabel;
bsSkinStdLabel9: TbsSkinStdLabel;
bsSkinStdLabel10: TbsSkinStdLabel;
bsSkinDBEdit1: TbsSkinDBEdit;
bsSkinDBEdit2: TbsSkinDBEdit;
bsSkinDBEdit3: TbsSkinDBEdit;
bsSkinDBEdit4: TbsSkinDBEdit;
bsSkinDBEdit5: TbsSkinDBEdit;
bsSkinDBEdit6: TbsSkinDBEdit;
bsSkinDBEdit7: TbsSkinDBEdit;
bsSkinDBEdit8: TbsSkinDBEdit;
bsSkinDBEdit9: TbsSkinDBEdit;
bsSkinDBEdit10: TbsSkinDBEdit;
bsSkinPanel9: TbsSkinPanel;
bsSkinStdLabel11: TbsSkinStdLabel;
bsSkinStdLabel12: TbsSkinStdLabel;
bsSkinStdLabel13: TbsSkinStdLabel;
bsSkinStdLabel14: TbsSkinStdLabel;
bsSkinStdLabel15: TbsSkinStdLabel;
bsSkinStdLabel16: TbsSkinStdLabel;
bsSkinStdLabel17: TbsSkinStdLabel;
bsSkinStdLabel18: TbsSkinStdLabel;
bsSkinStdLabel19: TbsSkinStdLabel;
bsSkinStdLabel20: TbsSkinStdLabel;
bsSkinDBEdit11: TbsSkinDBEdit;
bsSkinDBEdit12: TbsSkinDBEdit;
bsSkinDBEdit13: TbsSkinDBEdit;
bsSkinDBEdit14: TbsSkinDBEdit;
bsSkinDBEdit15: TbsSkinDBEdit;
bsSkinDBEdit16: TbsSkinDBEdit;
bsSkinDBEdit17: TbsSkinDBEdit;
bsSkinDBEdit18: TbsSkinDBEdit;
bsSkinDBEdit19: TbsSkinDBEdit;
bsSkinDBEdit20: TbsSkinDBEdit;
t_op_gain_main: TADOQuery;
t_op_gain_main1: TDataSource;
DBEdit43: TDBEdit;
Label43: TLabel;
DBEdit44: TDBEdit;
Label44: TLabel;
DBEdit45: TDBEdit;
Label45: TLabel;
DBEdit46: TDBEdit;
Label41: TLabel;
DBEdit47: TDBEdit;
Label46: TLabel;
DBMemo6: TDBMemo;
limited_str: TEdit;
chk_accept: TEdit;
chk_pay: TEdit;
ywlb: TEdit;
bsSkinButton13: TbsSkinButton;
bsSkinButton14: TbsSkinButton;
bsSkinButton15: TbsSkinButton;
bsSkinEdit1: TbsSkinEdit;
Label47: TLabel;
Label48: TLabel;
DBEdit48: TDBEdit;
DBEdit49: TDBEdit;
Label49: TLabel;
DBEdit50: TDBEdit;
Label50: TLabel;
Label51: TLabel;
DBEdit51: TDBEdit;
DBEdit52: TDBEdit;
Label52: TLabel;
DBEdit53: TDBEdit;
Label53: TLabel;
Label54: TLabel;
DBEdit54: TDBEdit;
DBEdit55: TDBEdit;
Label55: TLabel;
DBEdit56: TDBEdit;
Label56: TLabel;
Label57: TLabel;
DBEdit57: TDBEdit;
DBEdit58: TDBEdit;
Label58: TLabel;
DBEdit59: TDBEdit;
procedure DBEdit17Change(Sender: TObject);
procedure DBEdit18Change(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinButton5Click(Sender: TObject);
procedure bsSkinButton2Click(Sender: TObject);
procedure bsSkinButton7Click(Sender: TObject);
procedure wwDBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure wwDBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure bsSkinButton4Click(Sender: TObject);
procedure bsSkinButton8Click(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton11Click(Sender: TObject);
procedure bsSkinButton6Click(Sender: TObject);
procedure bsSkinPanel2Resize(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure Panel2Resize(Sender: TObject);
procedure t_ch_acceptBeforePost(DataSet: TDataSet);
procedure t_ch_payBeforePost(DataSet: TDataSet);
procedure N82Click(Sender: TObject);
procedure N84Click(Sender: TObject);
procedure N86Click(Sender: TObject);
procedure N88Click(Sender: TObject);
procedure MenuItem5Click(Sender: TObject);
procedure MenuItem10Click(Sender: TObject);
procedure MenuItem12Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton12Click(Sender: TObject);
procedure DBEdit43Change(Sender: TObject);
procedure bsSkinPanel1Resize(Sender: TObject);
procedure bsSkinPanel9Resize(Sender: TObject);
procedure bsSkinButton13Click(Sender: TObject);
procedure bsSkinButton14Click(Sender: TObject);
procedure bsSkinDBEdit18Change(Sender: TObject);
procedure bsSkinDBEdit8Change(Sender: TObject);
procedure bsSkinButton15Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses my_sys_function, u_fee_check_shen, u_main,u_lcxunit, u_data_share;
{$R *.dfm}
procedure Tfra_fee_Recheck.DBEdit17Change(Sender: TObject);
begin
if t_ch_accept.IsEmpty then
begin
a_bo.Visible:=false;
a_bo.Align:=alNone;
a_delete.Visible:=false;
a_delete.Align:=alNone;
a_modify_old.Visible:=false;
a_modify_old.Align:=alNone;
a_modify_new.Visible:=false;
a_modify_new.Align:=alNone;
exit;
end;
if (t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ') or
(t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>')then
begin
a_delete.Visible:=false;
a_delete.Align:=alNone;
a_modify_old.Visible:=false;
a_modify_old.Align:=alNone;
a_modify_new.Visible:=false;
a_modify_new.Align:=alNone;
a_bo.Visible:=true;
a_bo.Align:=alRight;
exit;
end;
if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
begin
a_bo.Visible:=false;
a_bo.Align:=alNone;
a_modify_old.Visible:=false;
a_modify_old.Align:=alNone;
a_modify_new.Visible:=false;
a_modify_new.Align:=alNone;
a_delete.Visible:=true;
a_delete.Align:=alRight;
exit;
end;
if t_ch_accept.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'then
begin
a_bo.Visible:=false;
a_bo.Align:=alNone;
a_delete.Visible:=false;
a_delete.Align:=alNone;
a_modify_new.Visible:=true;
a_modify_new.Align:=alRight;
a_modify_old.Visible:=true;
a_modify_old.Align:=alRight;
exit;
end;
a_bo.Visible:=false;
a_bo.Align:=alNone;
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;
end;
procedure Tfra_fee_Recheck.DBEdit18Change(Sender: TObject);
begin
if t_ch_pay.IsEmpty then
begin
p_bo.Visible:=false;
p_bo.Align:=alNone;
p_delete.Visible:=false;
p_delete.Align:=alNone;
p_modify_old.Visible:=false;
p_modify_old.Align:=alNone;
p_modify_new.Visible:=false;
p_modify_new.Align:=alNone;
exit;
end;
if (t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>ύ') or
(t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>')then
begin
p_delete.Visible:=false;
p_delete.Align:=alNone;
p_modify_old.Visible:=false;
p_modify_old.Align:=alNone;
p_modify_new.Visible:=false;
p_modify_new.Align:=alNone;
p_bo.Visible:=true;
p_bo.Align:=alRight;
exit;
end;
if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
begin
p_bo.Visible:=false;
p_bo.Align:=alNone;
p_modify_old.Visible:=false;
p_modify_old.Align:=alNone;
p_modify_new.Visible:=false;
p_modify_new.Align:=alNone;
p_delete.Visible:=true;
p_delete.Align:=alRight;
exit;
end;
if t_ch_pay.FieldByName('<27><><EFBFBD><EFBFBD>״̬').asstring='<27><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>'then
begin
p_bo.Visible:=false;
p_bo.Align:=alNone;
p_delete.Visible:=false;
p_delete.Align:=alNone;
p_modify_new.Visible:=true;
p_modify_new.Align:=alRight;
p_modify_old.Visible:=true;
p_modify_old.Align:=alRight;
exit;
end;
p_bo.Visible:=false;
p_bo.Align:=alNone;
p_delete.Visible:=false;
p_delete.Align:=alNone;
p_modify_old.Visible:=false;
p_modify_old.Align:=alNone;
p_modify_new.Visible:=false;
p_modify_new.Align:=alNone;
end;
procedure Tfra_fee_Recheck.bsSkinButton1Click(Sender: TObject);
begin
fee_Recheck_part(limited_str.text,t_ch_accept,wwDBGrid1,chk_accept.Text,ywlb.text);
end;
procedure Tfra_fee_Recheck.bsSkinButton5Click(Sender: TObject);
begin
fee_Recheck_part(limited_str.text,t_ch_pay,wwDBGrid2,chk_pay.Text,ywlb.text);
end;
procedure Tfra_fee_Recheck.bsSkinButton2Click(Sender: TObject);
begin
fee_Reback(limited_str.text,t_ch_accept,wwDBGrid1,chk_accept.Text,ywlb.Text);
end;
procedure Tfra_fee_Recheck.bsSkinButton7Click(Sender: TObject);
begin
fee_Reback(limited_str.text,t_ch_pay,wwDBGrid2,chk_pay.Text,ywlb.Text);
end;
procedure Tfra_fee_Recheck.wwDBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
fee_color(t_ch_accept,wwDBGrid1,Rect,Field);
end;
procedure Tfra_fee_Recheck.wwDBGrid2DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
fee_color(t_ch_pay,wwDBGrid2,Rect,Field);
end;
procedure Tfra_fee_Recheck.bsSkinButton4Click(Sender: TObject);
begin
fee_shen_check_ok(limited_str.text,t_ch_accept,a_shen_delete,a_shen_modify_old,a_shen_modify_new);
if Panel3.Visible then
t_op_gain.Requery();
if bsSkinPanel9.Visible then
t_op_gain_main.Requery();
end;
procedure Tfra_fee_Recheck.bsSkinButton8Click(Sender: TObject);
begin
fee_shen_check_ok(limited_str.text,t_ch_pay,p_shen_delete,p_shen_modify_old,p_shen_modify_new);
if Panel3.Visible then
t_op_gain.Requery();
if bsSkinPanel9.Visible then
t_op_gain_main.Requery();
end;
procedure Tfra_fee_Recheck.bsSkinButton3Click(Sender: TObject);
begin
fee_shen_check_back(limited_str.text,t_ch_accept,a_shen_delete,a_shen_modify_old,a_shen_modify_new);
end;
procedure Tfra_fee_Recheck.bsSkinButton9Click(Sender: TObject);
begin
fee_shen_check_back(limited_str.text,t_ch_pay,p_shen_delete,p_shen_modify_old,p_shen_modify_new);
end;
procedure Tfra_fee_Recheck.bsSkinButton11Click(Sender: TObject);
begin
try
frm_fee_check_shen:=tfrm_fee_check_shen.Create(self);
frm_fee_check_shen.t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
frm_fee_check_shen.t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_accept.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').Value;
frm_fee_check_shen.t_ch_fee.open;
frm_fee_check_shen.t_ch_fee_new.open;
frm_fee_check_shen.ShowModal;
finally
frm_fee_check_shen.Free;
end;
end;
procedure Tfra_fee_Recheck.bsSkinButton6Click(Sender: TObject);
begin
try
frm_fee_check_shen:=tfrm_fee_check_shen.Create(self);
frm_fee_check_shen.t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:='<27><>';
frm_fee_check_shen.t_ch_fee.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').value:=t_ch_pay.DataSource.DataSet.fieldbyname('<27><><EFBFBD><EFBFBD>').Value;
frm_fee_check_shen.t_ch_fee.open;
frm_fee_check_shen.t_ch_fee_new.open;
frm_fee_check_shen.ShowModal;
finally
frm_fee_check_shen.Free;
end;
end;
procedure Tfra_fee_Recheck.bsSkinPanel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round((bsSkinPanel2.Width-196)/10);
bsSkinDBEdit1.Width:=i;
bsSkinDBEdit2.Width:=i;
bsSkinDBEdit3.Width:=i;
bsSkinDBEdit4.Width:=i;
bsSkinDBEdit5.Width:=i;
bsSkinDBEdit6.Width:=i;
bsSkinDBEdit7.Width:=i;
bsSkinDBEdit8.Width:=i;
bsSkinDBEdit9.Width:=i;
end;
procedure Tfra_fee_Recheck.Panel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel1.Width/8);
bsSkinButton1.Width:=i;
bsSkinButton10.Width:=i;
bsSkinButton2.Width:=i;
bsSkinButton3.Width:=i;
bsSkinButton4.Width:=i;
bsSkinButton13.Width:=i;
bsSkinButton14.Width:=i;
end;
procedure Tfra_fee_Recheck.Panel2Resize(Sender: TObject);
var
i:integer;
begin
i:=round(Panel2.Width/6);
bsSkinButton5.Width:=i;
bsSkinButton12.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton7.Width:=i;
bsSkinButton8.Width:=i;
end;
procedure Tfra_fee_Recheck.t_ch_acceptBeforePost(DataSet: TDataSet);
begin
t_ch_accept['<27><><EFBFBD><EFBFBD>״̬']:=t_ch_accept['<27><><EFBFBD><EFBFBD>״̬'];
t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_ch_accept['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'];
t_ch_accept['<27><><EFBFBD>뿪Ʊ']:=t_ch_accept['<27><><EFBFBD>뿪Ʊ'];
t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_accept['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfra_fee_Recheck.t_ch_payBeforePost(DataSet: TDataSet);
begin
t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:=t_ch_pay['<27><><EFBFBD><EFBFBD>״̬'];
t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>'];
t_ch_pay['<27><><EFBFBD>뿪Ʊ']:=t_ch_pay['<27><><EFBFBD>뿪Ʊ'];
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
end;
procedure Tfra_fee_Recheck.N82Click(Sender: TObject);
begin
fee_balance_view(t_ch_accept);
end;
procedure Tfra_fee_Recheck.N84Click(Sender: TObject);
begin
fee_invoice_view(t_ch_accept);
end;
procedure Tfra_fee_Recheck.N86Click(Sender: TObject);
begin
fee_modify_view(t_ch_accept);
end;
procedure Tfra_fee_Recheck.N88Click(Sender: TObject);
begin
price_person_view;
end;
procedure Tfra_fee_Recheck.MenuItem5Click(Sender: TObject);
begin
fee_balance_view(t_ch_pay);
end;
procedure Tfra_fee_Recheck.MenuItem10Click(Sender: TObject);
begin
fee_check_view(t_ch_pay);
end;
procedure Tfra_fee_Recheck.MenuItem12Click(Sender: TObject);
begin
fee_modify_view(t_ch_pay);
end;
procedure Tfra_fee_Recheck.bsSkinButton10Click(Sender: TObject);
begin
fee_Recheck_all(limited_str.text,t_ch_accept,chk_accept.text,ywlb.text);
end;
procedure Tfra_fee_Recheck.bsSkinButton12Click(Sender: TObject);
begin
fee_Recheck_all(limited_str.text,t_ch_pay,chk_pay.text,ywlb.text);
end;
procedure Tfra_fee_Recheck.DBEdit43Change(Sender: TObject);
begin
if Panel3.Visible then
begin
if (DBEdit43.Text='ƴ<><C6B4><EFBFBD><EFBFBD>Ʊ')then
begin
bsSkinPanel9.Visible:=true;
Panel3.Height:=40;
end
else
begin
bsSkinPanel9.Visible:=false;
Panel3.Height:=20;
end;
end;
end;
procedure Tfra_fee_Recheck.bsSkinPanel1Resize(Sender: TObject);
begin
bsSkinPanel3.Height:=round((bsSkinPanel1.height)/2);
end;
procedure Tfra_fee_Recheck.bsSkinPanel9Resize(Sender: TObject);
var
i:integer;
begin
i:=round((bsSkinPanel9.Width-196)/10);
bsSkinDBEdit11.Width:=i;
bsSkinDBEdit12.Width:=i;
bsSkinDBEdit13.Width:=i;
bsSkinDBEdit14.Width:=i;
bsSkinDBEdit15.Width:=i;
bsSkinDBEdit16.Width:=i;
bsSkinDBEdit17.Width:=i;
bsSkinDBEdit18.Width:=i;
bsSkinDBEdit19.Width:=i;
end;
procedure Tfra_fee_Recheck.bsSkinButton13Click(Sender: TObject);
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close; SQL.Clear;
SQL.Add('update t_ch_fee set <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ=1 where CH_ID='+inttostr(t_ch_accept.FieldbyName('CH_ID').asinteger));
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
t_ch_accept.Requery();
end;
procedure Tfra_fee_Recheck.bsSkinButton14Click(Sender: TObject);
var
aQuery:TADOQuery;
begin
aQuery:=CreateAdoQuery;
try
with aQuery do begin
Close;SQL.Clear;
SQL.Add('update t_ch_fee set <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ=0 where CH_ID='+inttostr(t_ch_accept.FieldbyName('CH_ID').asinteger));
ExecSQL;
end;
finally
FreeAndNil(aQuery);
end;
t_ch_accept.Requery();
end;
procedure Tfra_fee_Recheck.bsSkinDBEdit18Change(Sender: TObject);
begin
if t_op_gain_main.FieldByName('ë<><C3AB><EFBFBD><EFBFBD>').AsFloat<=0 then
bsSkinDBEdit18.font.Color:=clRed
else
bsSkinDBEdit18.font.Color:=clBlue;
end;
procedure Tfra_fee_Recheck.bsSkinDBEdit8Change(Sender: TObject);
begin
if t_op_gain.FieldByName('ë<><C3AB><EFBFBD><EFBFBD>').AsFloat<=0 then
bsSkinDBEdit8.font.Color:=clRed
else
bsSkinDBEdit8.font.Color:=clBlue;
end;
procedure Tfra_fee_Recheck.bsSkinButton15Click(Sender: TObject);
begin
if Trim(bsSkinEdit1.text)='' then
begin
MessageDlg('<27><><EFBFBD>ò<EFBFBD><C3B2><EFBFBD>Ϊ0<CEAA><30><EFBFBD>գ<EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
if t_ch_pay.Locate('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>','Ԫ<><D4AA>',[])then exit;
t_ch_pay.Insert;
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=t_ch_pay.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
t_ch_pay['<27><>׼']:='TEU';
t_ch_pay['<27><><EFBFBD><EFBFBD>']:='<27><>';
t_ch_pay['<27><><EFBFBD><EFBFBD>״̬']:='<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>';
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
t_ch_pay['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
t_ch_pay['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD>']:=now;
t_ch_pay['<27>ұ<EFBFBD>']:='USD';
if t_ch_pay.FieldByName('<27>ұ<EFBFBD>').AsString='USD' then
begin
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=getUsdExRate(t_ch_pay.datasource.dataset.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').asstring);
end;
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=1;
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=FormatFloat('0.00;-0.00;0',StrToFloat(bsSkinEdit1.text));
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=FormatFloat('0.00;-0.00;0',StrToFloat(bsSkinEdit1.text));
t_ch_pay['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:='Ԫ<><D4AA>';
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>˷<EFBFBD>';
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_pay['<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>']:=0;
t_ch_pay['<27><><EFBFBD>뿪Ʊ']:=0;
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_pay['<27><><EFBFBD>ֽ<EFBFBD><D6BD><EFBFBD>']:=0;
t_ch_pay['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
t_ch_pay['<27>Ƿ<EFBFBD><C7B7>渶']:=0;
t_ch_pay['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ']:=0;
t_ch_pay['<27><><EFBFBD><EFBFBD>']:=0;
t_ch_pay.Post;
end;
end.