vault backup: 2025-03-11 13:34:52

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

@@ -96,4 +96,27 @@ begin
       	gysList.Free;
   	end;
 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 Trim(fedtItemCode.Text) <> '' then
+  begin
+    // 如果 物料编码 不为空，则将 代号 的值设置为 物料编码 的值
+    fedtDrawId.Text := fedtItemCode.Text;
+  end
+  else
+  begin
+    // 如果 物料编码 为空，则清空 代号
+   fedtDrawId.Text := '';
+  end;
+end.
 ```