LanHeron/WorkNote
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

vault backup: 2025-05-17 11:21:17

Browse Source
This commit is contained in:
SeedList
2025-05-17 11:21:17 +08:00
parent c37dbd4db1
commit 8f7096d016
1 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
View File

@ -425,3 +425,27 @@ end.
## 枚举项联动
```Delphi
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
begin
//注释：在下面添加您的脚本代码
if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FPurchaseUnitId.Text = '') then
fedtusr_FPurchaseUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FPurchasePriceUnitId.Text = '') then
fedtusr_FPurchasePriceUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FSaleUnitId.Text = '') then
fedtusr_FSaleUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FSalePriceUnitId.Text = '') then
fedtusr_FSalePriceUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FStoreUnitID.Text = '') then
fedtusr_FStoreUnitID.itemindex := fedtusr_FBaseUnitId.itemindex;
if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FMinIssueUnitId.Text = '') then
fedtusr_FMinIssueUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
end.
```