LanHeron/WorkNote
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/main'

Browse Source
This commit is contained in:
Togo
2025-07-10 10:42:45 +08:00
parent 8c6026b056 425f58cdf0
commit 27f8e1a7ce
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -622,7 +622,7 @@ end.
## 根据输入内容在数据库中查询，获取查询结果作为下拉列表以供选择 ## 根据输入内容在数据库中查询，获取查询结果作为下拉列表以供选择
根据在 `fedtusr_sqlmj` 控件中输入的内容， 根据在 `fedtusr_sqlmj` 控件中输入的内容，在数据库中进行查询，并将查询结果去重后，列出头十条作为下拉选择，以供 `fedtusr_sqlmj` 控件选择
```delphi ```delphi
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs, uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
@ -645,4 +645,6 @@ begin
end; end;
end; end;
end. end.
``` ```
前置要求