From 826277ed7b5d04da9c8c17ea45e3e4ade856f03b Mon Sep 17 00:00:00 2001
From: SeedList <lanmeredith.study@outlook.com>
Date: Tue, 11 Mar 2025 13:34:52 +0800
Subject: [PATCH] vault backup: 2025-03-11 13:34:52

---
 .../相关操作/4.0-other/999.Delphi脚本记录.md  | 23 +++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
index 709bbfac..52a939bb 100644
--- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
+++ b/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.
 ```
\ No newline at end of file