- 博客(3)
- 收藏
- 关注
RSS订阅原创 ADO数据集多条件组合无法使用Filter最终解决方案
今天遇到一个问题，查询某部门的数据后，要对这些数据进行多关键字的过滤，当用户在关键字编辑框用空格分开多个关键字，按下回车时就要过滤，将包含所有关键字的记录过滤出来。比如一条记录有20个字段，关键字有3个，当20个字段中的某些字段必须包含这3个关键字才能符合要求，如果只包含1个或2个关键字就要被过滤。 按照经验我首先想到了ADO的Filter，在关键字编辑框的KeyDown事件里写代码，定义Filter字串，然后Filter，一切都那么熟练，但是问题来了，字串的模型是这样的：(字段1 lik...
2020-06-12 16:55:49
838
原创 如何用RzTreeView显示部门结构
我们知道，一个企业、单位分很多部门，部门下面还会分子部门，如果用树形表就能 清晰的显示出部门结构来，一目了然。下面我来介绍下如何使用RzTreeview显示部门结构。 一、主要表结构 DepID nvarchar(50) //内部唯一ID，通常是GUID DepCode nvarchar(20) //部门编码 DepName nvarchar(30) //部门名称 二、代码 procedure TForm1.ADOQueryTypeAfterOpen(DataSet: TDataSet...
2020-06-09 09:52:21
1046
原创 如何使带字母的数字串像Excel一样加流水号
我在做的一个项目里，要求对物料进行编码管理，物料是多级管理的，自然编码里也会有字母和数字，A3B2003之后肯定就是A3B2004了，人是很容易理解的，但程序语言就难说了。我以前只做过纯数字的，带字母的一下子还真找不到对应的函数，所以只有自己做了。 我们知道在Excel里，带字母的数字是可以自动加1的，比如A3B2001，A3B2002，A3B2003，这在Excel里的操作相信很多人都会，但如何在Delphi里实现呢？ 从逻辑上分析，我觉得应该从最后一位开始算起，把后面几位是...
2020-06-05 15:35:24
1588
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人