Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

合同调整

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-30 14:41:58 +08:00
parent 836e44ad27
commit 97e9138869
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
View File

@ -679,7 +679,7 @@ object frmConInPutNX: TfrmConInPutNX
#20869#38144
#22806#38144)
end
object BtnEditC1: TBtnEditC
object jiaohuodidian: TBtnEditC
Tag = 2
Left = 892
Top = 58
@ -687,10 +687,10 @@ object frmConInPutNX: TfrmConInPutNX
Height = 20
Hint = 'jiaohuodidian/'#20132#36135#22320#28857
TabOrder = 24
OnBtnUpClick = BtnEditC1BtnUpClick
OnBtnUpClick = jiaohuodidianBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object BtnEditC2: TBtnEditC
object PayMent: TBtnEditC
Tag = 2
Left = 892
Top = 84
@ -698,7 +698,7 @@ object frmConInPutNX: TfrmConInPutNX
Height = 20
Hint = 'PayMent/'#20184#27454#26041#24335
TabOrder = 25
OnBtnUpClick = SellBankNoBtnUpClick
OnBtnUpClick = jiaohuodidianBtnUpClick
OnBtnDnClick = BuyNameBtnDnClick
end
object begfkts: TEdit

14
合同管理(ContractManagement.dll)/U_ConInPutNX.pas
View File

@ -117,9 +117,9 @@ type
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label11: TLabel;
BtnEditC1: TBtnEditC;
jiaohuodidian: TBtnEditC;
Label12: TLabel;
BtnEditC2: TBtnEditC;
PayMent: TBtnEditC;
Label13: TLabel;
begfkts: TEdit;
Label15: TLabel;
@ -147,7 +147,7 @@ type
procedure v1PRTPricePropertiesEditValueChanged(Sender: TObject);
procedure TSBtnUpClick(Sender: TObject);
procedure v1Column10PropertiesEditValueChanged(Sender: TObject);
procedure BtnEditC1BtnUpClick(Sender: TObject);
procedure jiaohuodidianBtnUpClick(Sender: TObject);
private
fuserName: string;
procedure InitData();
@ -1049,12 +1049,12 @@ begin
end;
end;
procedure TfrmConInPutNX.BtnEditC1BtnUpClick(Sender: TObject);
procedure TfrmConInPutNX.jiaohuodidianBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TbtnEditc(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1065,8 +1065,8 @@ begin
if ShowModal = 1 then
begin
SellBankNo.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
SellBankName.Text := Trim(ClientDataSet1.fieldbyname('Note').AsString);
TbtnEditc(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally