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

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

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