203 lines
6.6 KiB
Markdown
203 lines
6.6 KiB
Markdown
# 介绍
|
||
|
||
本笔记用于记录所有编制过的 `Delphi` 脚本，以便于沉淀相关知识
|
||
|
||
## 多属性值拼接至另一属性中
|
||
|
||
从 `fedtusr_substrate_id`、`fedtusr_substrate_id2`、`fedtusr_substrate_id3`、`fedtusr_substrate_id4` 控件中获取值，以逗号为分隔符，按顺序进行拼接，结果输出到 `mmmusr_substrate2` 控件中
|
||
|
||
```Delphi
|
||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||
var
|
||
StringList: TStringList;
|
||
|
||
begin
|
||
// 创建和初始化TStringList
|
||
StringList := TStringList.Create;
|
||
try
|
||
// 如果fedtusr_substrate_id的值不为空，则将值添加到StringList中
|
||
if fedtusr_substrate_id.Text <> '' then
|
||
StringList.Add(fedtusr_substrate_id.Text);
|
||
if fedtusr_substrate_id2.Text <> '' then
|
||
StringList.Add(fedtusr_substrate_id2.Text);
|
||
if fedtusr_substrate_id3.Text <> '' then
|
||
StringList.Add(fedtusr_substrate_id3.Text);
|
||
if fedtusr_substrate_id4.Text <> '' then
|
||
StringList.Add(fedtusr_substrate_id4.Text);
|
||
|
||
// 转换为逗号分隔的字符串
|
||
mmmusr_substrate2.Text := StringList.DelimitedText; // 默认使用逗号作为分隔符
|
||
|
||
// 如果需要指定其他分隔符，可以设置Delimiter属性
|
||
// StringList.Delimiter := ';'; // 设置分隔符为分号
|
||
// Result := StringList.DelimitedText;
|
||
finally
|
||
StringList.Free;
|
||
end;
|
||
end.
|
||
```
|
||
|
||
## 属性值添加至另一属性中
|
||
|
||
`fedtusr_gys` 控件中的值有多个，采取 `;` 进行分隔，现要验证 `fedtusr_shgys` 控件中的值是否存在于 `fedtusr_gys` 控件中，如果不存在，则将其添加进去，并进行排序
|
||
|
||
```Delphi
|
||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||
|
||
var
|
||
gysList: TStringList;
|
||
begin
|
||
try
|
||
// 初始化 TStringList
|
||
gysList := TStringList.Create;
|
||
gysList.Delimiter := ';';
|
||
gysList.StrictDelimiter := True;
|
||
// 将 fedtusr_gys 按分号分隔成列表
|
||
gysList.DelimitedText := fedtusr_gys.Text;
|
||
if gysList.IndexOf(fedtusr_shgys.Text) = -1 then
|
||
begin
|
||
// 如果不存在，则添加到 fedtusr_gys 中
|
||
gysList.Add(fedtusr_shgys.Text);
|
||
gysList.Sort;
|
||
// 将列表重新组合成字符串，使用分号分隔
|
||
fedtusr_gys.Text := gysList.DelimitedText;
|
||
end;
|
||
finally
|
||
gysList.Free;
|
||
end;
|
||
end.
|
||
```
|
||
|
||
## 属性值是否被另一属性所包含校验
|
||
|
||
`fedtusr_gys` 控件中的值有多个，采取 `;` 进行分隔，现要验证 `fedtusr_shgys` 控件中的值是否存在于 `fedtusr_gys` 控件中，如果不存在，则弹窗提示
|
||
|
||
```delphi
|
||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||
|
||
var
|
||
gysList: TStringList;
|
||
begin
|
||
try
|
||
// 初始化 TStringList
|
||
gysList := TStringList.Create;
|
||
gysList.Delimiter := ';';
|
||
gysList.StrictDelimiter := True;
|
||
// 将 fedtusr_gys 按分号分隔成列表
|
||
gysList.DelimitedText := fedtusr_gys.Text;
|
||
if gysList.IndexOf(fedtusr_shgys.Text) = -1 then
|
||
begin
|
||
ShowMessage('默认供应商未包含在供应商列表中');
|
||
end;
|
||
finally
|
||
gysList.Free;
|
||
end;
|
||
end.
|
||
```
|
||
|
||
## 不同属性一致性设置
|
||
|
||
`fedtDrawId` 的值设置为 `fedtItemCode` 的值
|
||
|
||
```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.
|
||
```
|
||
|
||
## 执行SQL语句获取查询结果
|
||
|
||
主要内容为通过 `chiGetFieldValueBySql` 方法去执行 ` SQL ` 语句，通过物料代码去获取指定属性的值，要求是这个物料得先被创建出来，才能正常执行脚本，否则会提示找不到这个物料
|
||
|
||
```Delphi
|
||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||
|
||
Var
|
||
str: String;
|
||
begin
|
||
try
|
||
// 1. 查询usr_333的值
|
||
str := chiGetFieldValueBySql('select usr_333 from pdmitem where itemcode = ''' + fedtItemCode.Text + '''');
|
||
|
||
// 2. 检查查询结果
|
||
if str = '' then
|
||
begin
|
||
ShowMessage('未找到物料编码: ' + fedtItemCode.Text);
|
||
Exit;
|
||
end;
|
||
// 3. 如果usr_333为1，则更新usr_444为1
|
||
if str = '1' then
|
||
begin
|
||
// 执行更新操作
|
||
cbxusr_444.checked := false;
|
||
|
||
// 可选：显示操作成功提示
|
||
ShowMessage('已自动将usr_444更新为1');
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ShowMessage('操作失败: ' + E.Message);
|
||
end;
|
||
end.
|
||
```
|
||
|
||
## 更新是否控件
|
||
|
||
检验 `cbxusr_333` 控件的值，如果为 `false`，那么 `cbxusr_444` 控件的值必须为 `false`
|
||
|
||
```Delphi
|
||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||
|
||
begin
|
||
try
|
||
// 校验逻辑：当 cbxusr_333 未选中时，强制 cbxusr_444 也未选中
|
||
if not cbxusr_333.Checked then
|
||
begin
|
||
// 如果 cbxusr_444 当前是选中状态，则强制取消选中
|
||
if cbxusr_444.Checked then
|
||
begin
|
||
cbxusr_444.Checked := False;
|
||
|
||
// 可选：显示提示信息
|
||
ShowMessage('已自动将444设为未选中状态，因为333未选中');
|
||
end;
|
||
end;
|
||
except
|
||
on E: Exception do
|
||
ShowMessage('执行脚本时出错: ' + E.Message);
|
||
end;
|
||
end.
|
||
```
|
||
|
||
## 更新枚举选项
|
||
|
||
`cbxusr_444` 控件的值必须等于 `cbxusr_333` 控件的值（枚举选项用 `.Text` 可以直接获取，直接赋值，但是不能直接设置在控件上）
|
||
|
||
```Delphi
|
||
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
|
||
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
|
||
|
||
begin
|
||
cbxusr_444.Text := cbxusr_333.Text;
|
||
end.
|
||
``` |