vault backup: 2025-08-18 13:29:47

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

@@ -786,3 +786,47 @@ begin
 end.
 ```
 
+## 消息弹窗确认后执行脚本
+
+点击按钮后，弹出消息弹窗，需要进行一次确认校验，点击确认后，才会执行脚本
+
+```delphi
+uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+var
+  TempStr: string;
+begin
+if Application.MessageBox( '确定同步吗', '同步确认', 1) = 1 then 
+  begin
+    TempStr := '';
+    
+     if fedtusr_lb.Text <> '' then
+    begin
+      TempStr := TempStr + fedtusr_lb.Text;
+    end;
+    
+     if fedtusr_KHMC.Text <> '' then 
+     begin
+      if TempStr <> '' then
+        TempStr := TempStr + '-'; // 添加分隔符       
+        TempStr := TempStr +fedtusr_KHMC.Text;
+      end;
+      
+    if fedtusr_khth.Text <> '' then
+    begin
+      if TempStr <> '' then
+        TempStr := TempStr + '-'; // 添加分隔符
+      TempStr := TempStr + fedtusr_khth.Text;
+    end;
+    
+    if fedtusr_banbh.Text <> '' then
+    begin
+      if TempStr <> '' then
+        TempStr := TempStr + '/'; // 添加分隔符
+      TempStr := TempStr + fedtusr_banbh.Text;
+    end;
+    
+      mmmmuf_4.Text := TempStr; // 直接赋值
+  end;
+end.
+```