24 lines
635 B
Markdown
24 lines
635 B
Markdown
|
# 介绍
|
||
|
|
|
||
|
|
脚本如下：
|
||
|
|
|
||
|
|
```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.
|
||
|
|
```
|