|
|
|
|
|
unit u_fee_check_shen;
|
|
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
|
|
|
|
Dialogs, DB, ADODB, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
|
|
|
|
|
|
dxDBTLCl, dxGrClms, bsSkinCtrls, StdCtrls, Mask, DBCtrls,
|
|
|
|
|
|
BusinessSkinForm;
|
|
|
|
|
|
|
|
|
|
|
|
type
|
|
|
|
|
|
Tfrm_fee_check_shen = class(TForm)
|
|
|
|
|
|
t_ch_fee: TADOQuery;
|
|
|
|
|
|
t_ch_fee1: TDataSource;
|
|
|
|
|
|
t_ch_fee_new: TADOQuery;
|
|
|
|
|
|
t_ch_fee_new1: TDataSource;
|
|
|
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
|
|
|
dxDBGrid1Column3: TdxDBGridMaskColumn;
|
|
|
|
|
|
dxDBGrid1Column4: TdxDBGridMaskColumn;
|
|
|
|
|
|
dxDBGrid1Column5: TdxDBGridDateColumn;
|
|
|
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
|
|
|
Label1: TLabel;
|
|
|
|
|
|
DBEdit1: TDBEdit;
|
|
|
|
|
|
Label2: TLabel;
|
|
|
|
|
|
DBEdit2: TDBEdit;
|
|
|
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
|
|
|
a_modify_old: TbsSkinGroupBox;
|
|
|
|
|
|
Label8: TLabel;
|
|
|
|
|
|
Label9: TLabel;
|
|
|
|
|
|
Label10: TLabel;
|
|
|
|
|
|
Label11: TLabel;
|
|
|
|
|
|
Label12: TLabel;
|
|
|
|
|
|
Label13: TLabel;
|
|
|
|
|
|
Label14: TLabel;
|
|
|
|
|
|
Label15: TLabel;
|
|
|
|
|
|
DBEdit3: TDBEdit;
|
|
|
|
|
|
DBEdit4: TDBEdit;
|
|
|
|
|
|
DBEdit5: TDBEdit;
|
|
|
|
|
|
DBEdit6: TDBEdit;
|
|
|
|
|
|
DBEdit7: TDBEdit;
|
|
|
|
|
|
DBEdit8: TDBEdit;
|
|
|
|
|
|
DBEdit9: TDBEdit;
|
|
|
|
|
|
DBEdit10: TDBEdit;
|
|
|
|
|
|
Label3: TLabel;
|
|
|
|
|
|
DBMemo1: TDBMemo;
|
|
|
|
|
|
a_modify_new: TbsSkinGroupBox;
|
|
|
|
|
|
Label4: TLabel;
|
|
|
|
|
|
Label5: TLabel;
|
|
|
|
|
|
Label6: TLabel;
|
|
|
|
|
|
Label7: TLabel;
|
|
|
|
|
|
Label16: TLabel;
|
|
|
|
|
|
Label17: TLabel;
|
|
|
|
|
|
Label18: TLabel;
|
|
|
|
|
|
Label19: TLabel;
|
|
|
|
|
|
DBEdit11: TDBEdit;
|
|
|
|
|
|
DBEdit12: TDBEdit;
|
|
|
|
|
|
DBEdit13: TDBEdit;
|
|
|
|
|
|
DBEdit14: TDBEdit;
|
|
|
|
|
|
DBEdit15: TDBEdit;
|
|
|
|
|
|
DBEdit16: TDBEdit;
|
|
|
|
|
|
DBEdit17: TDBEdit;
|
|
|
|
|
|
DBEdit18: TDBEdit;
|
|
|
|
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
|
|
|
|
DBEdit19: TDBEdit;
|
|
|
|
|
|
procedure DBEdit19Change(Sender: TObject);
|
|
|
|
|
|
private
|
|
|
|
|
|
{ Private declarations }
|
|
|
|
|
|
public
|
|
|
|
|
|
{ Public declarations }
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
frm_fee_check_shen: Tfrm_fee_check_shen;
|
|
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
|
|
uses u_main;
|
|
|
|
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_fee_check_shen.DBEdit19Change(Sender: TObject);
|
|
|
|
|
|
begin
|
|
|
|
|
|
if t_ch_fee.IsEmpty then
|
|
|
|
|
|
begin
|
|
|
|
|
|
a_modify_new.Visible:=false;
|
|
|
|
|
|
a_modify_old.Visible:=false;
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if DBEdit19.Text='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>'then
|
|
|
|
|
|
begin
|
|
|
|
|
|
a_modify_new.Visible:=false;
|
|
|
|
|
|
a_modify_old.Caption:='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
|
|
|
|
|
|
a_modify_old.Visible:=true;
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
if DBEdit19.Text='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ'then
|
|
|
|
|
|
begin
|
|
|
|
|
|
a_modify_new.Visible:=true;
|
|
|
|
|
|
a_modify_old.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ľ<DEB8>ֵ';
|
|
|
|
|
|
a_modify_old.Visible:=true;
|
|
|
|
|
|
exit;
|
|
|
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
end.
|
