From 97e91388696b5dd075a7283d6ae763cf0f34ba16 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Wed, 30 Jul 2025 14:41:58 +0800
Subject: [PATCH] =?UTF-8?q?=E5=90=88=E5=90=8C=E8=B0=83=E6=95=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 合同管理(ContractManagement.dll)/U_ConInPutNX.dfm |  8 ++++----
 合同管理(ContractManagement.dll)/U_ConInPutNX.pas | 14 +++++++-------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm b/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
index b306838..7871898 100644
--- a/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
+++ b/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
@@ -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
diff --git a/合同管理(ContractManagement.dll)/U_ConInPutNX.pas b/合同管理(ContractManagement.dll)/U_ConInPutNX.pas
index b8fb48c..6e52dce 100644
--- a/合同管理(ContractManagement.dll)/U_ConInPutNX.pas
+++ b/合同管理(ContractManagement.dll)/U_ConInPutNX.pas
@@ -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