介绍

在窗体表单或对象常规属性中支持 Delphi 脚本来实现一些特性化操作

脚本编辑器

这是一个编辑、检查脚本的窗体

由主菜单、工具栏、控件区、脚本编辑区、函数/变量区、错误提示区组成，界面如下图：

布局介绍

文件

保存或者关闭脚本编辑器

操作：检查语法正确性

查找/替换/查找下一个：TXT文本功能

设置：

修改 Tab 键跳转列数：设置缩进列数
工具栏：显示脚本编辑器常用操作

控件区

显示源窗体中的编辑控件，双击控件节点时，在脚本编辑器的当前光标位置增加控件名称，支持节点拖动

脚本编辑区

编辑脚本的地方。编辑时支持模糊匹 配控件区 的控件名和 函数/变量区 的函数或变量名；

如果文本是控件名，输入 “ . ” 将提示控件支持的属性或方法

按 “ Tab ” 键支持选择文本的定长缩进

按 “ Shift + Tab ” 键支持选择文本的定长反缩进

支持文本搜索、搜索替换功能

使用的脚本为 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.

函数/变量区

显示系统支持的变量和函数，双击节点时，在 脚本编辑区 的当前光标位置增加变量或函数名称，鼠标移到树节点时，提示信息窗显示变量类型或函数原型，支持节点拖动

执行sql获取字符串

此函数作用为执行 SQL 语句，去获取字符串结果

案例如下

chiGetFieldValueBySql('select top 1 usr_sqlmj from pdmitem where usr_sqlmj like ''%' + str + '%''')

获取的结果赋值给变量

str := chiGetFieldValueBySql('select usr_333 from pdmitem where itemcode = ''' + fedtItemCode.Text + '''');

执行sql填充下拉框

此函数作用为执行 SQL 语句，将获取到的结果作为下拉选项提供给下拉框，需要写入两个参数，第一个为 SQL 语句，第二个为要接收结果的控件（接收结果的控件，其 按钮类型 必须为下拉，详见根据输入内容在数据库中查询，获取查询结果作为下拉列表以供选择说明）

案例如下：

chiFillComboBox('select distinct top 10 usr_sqlmj from pdmitem where usr_sqlmj like ''%' + str + '%''',fedtusr_sqlmj);

错误提示区

执行保存或 检查语法正确性 命令时，如果脚本存在错误，则错误信息被显示在 错误提示区，双击错信息行时，在 脚本编辑区 中对于的错误行用红色背景标记

4.2 KiB Raw Blame History Unescape Escape

介绍