lyhoo163的专栏

这样，使用一个字段就可以记录众选一的项目，同时通过窗口直观，可以显示完整的待选择的子项目名称，通过鼠标选择，非常直观便捷，最重要的是，可以节省字段。例如对评估师表的设计，通常一个项目的四个选项，分别使用四个bit字段来实施，实际操作中，对一个量表，基本数据，加上师表评估字段，再加上计分统计字段，大致254个字段。日常我们对数据库表的设计，都是按用途进行设置，按需盆字段，常常会因为字段太多，引起读取数据操作，同时，有时也会超过表的字段限制。也可以，与ITEMS一致，字段的类型就为，nvarchar。

另一种，是由字段"流水”，由1至Count循环，选取空位，无空位Count+1。这种方式，需要对流水号出现的重复，或无效流水，进行删除处理（人工处理，或软件代码判别）。第二种方式，软件代码比较复杂，略了，需要读取数据，再进行处理。一种是由字段"流水”，读取最大号+1，这种方式，容易造成跳号。本人比较喜欢第一种方式，无需维护，不就是一种编号吗！如：03-01-2023-W-0001。区编号-机构类型-年份-性别-流水。

sDBComboBox1.Items值中，有一行空行，删除该空行后，问题解决。通过，这一解决方案，我们在找问题，不能一味地在源代码中找，同时在控件的参数中，也可能出错引起访问的错误。原本是在源代码中，查找出错处。

3、地址的冲突，关键是参数地址的冲突，在Delphi中，自身使用的一些参数名称上的冲突，时常出现。因此，将打印代码中的局部变量FileName，改成要FileMane。2、执行打印代码，再执行读取 sName:=ClientDataSet1.FieldByName('姓名').AsString;在使用参数时，不要和Delphi的VCL 使用的名称一致，在使用与VCL常用的名称一致时，前。养老习惯，可以避免一些，不必要的出错。都能单独执行，无错误；往往这些出错，编辑软件的问题，但作业编程者，应规避。

ClientDataSet的最大好处，就是建立能内存表，特别DataSnap三层运用中，主要使用ClientDataSet与运程的服务器中的数据表，建立读取存贮关系。1、ClientDataSet与DBEdit等VCL关联时，只要的对一条数据行进行编辑修改数据，ClientDataSe的ChangeCount 就是自动加一。2、ClientDataSet与DBRichEdit关联时，在DBRichEdit中编辑修改后，ClientDataSe的ChangeCount没有反映。

执行Append后，编译器末能将ClientDataSet的state值，变更为dsInsert。通过强制执行Edit，让ClientDataSet的state值，变更为dsEdit(效果与dsInsert一致)。

1、执行“显示数据后”，再执行Append，出错，说明ClientDataSet处于编辑状态；3、加入 ClientDataSet1.ReadOnly:=False无效；2、加入 ClientDataSet1.Active:=True无效；2、执行二次Append或Insert，可以不出错 ，但会加入二行数据行。这个代码一执行，彻底让ClientDataSet处于编辑状态，解决问题。问题是Append，并及时加入一行，录入字符出错。1、在执行显示代码最后，加入以下。（1）使用第三方控件。

在应用软件中，通常将软件的功能分为若干个子程序，通过主程序调用。那么，通过众多客户来 说明，如果设置各人的权限呢?这样，对于每个窗口，用户就是二个权限：一是进入浏览权限，二是编辑打印的权限。这里，要建立数据表，将模块、菜单、窗口和指定的二个权限，进行关联。通过（用户）登录名和密码，读取相关模块的权限，进入模块（子程序）。（2）编辑的权限，可对数据进行修改、增加、删除操作；这样，对不是很严格的管理权限的单位，不设置，就有权。3、 在模块程序中，设置“本模块”的管理权限。2、设置模块、菜单、窗口的数据关系。

代码写好 ，执行中，出现"Access violation at address 00402452 in module 'MedicalRec.exe'.Read of address FFFFFFC"。3、当ClientDataSet数据集循环中，某字段读写磁盘中Txt文件后，就不能对ClientDataSet重新赋值。如下：数据集循环时，不直接读写磁盘，需是调用另一个对单条数据进行读写的操作。2、当ClientDataSet数据集，单独一行数据段读写磁盘中Txt文件后，正常。真正的原理，不得而知。

SQL:='select * from 财务_收费汇总 Where (收费小计=''0.0001'')';SQL:='select * from 财务_收费汇总 Where (收费小计=''0.0001'')';SQL 语句 指定money类型字段 排除零的运用。

TDemo 备注纯文本的二种存贮方式，数据库使用过程中，对于TDeme控件，对应数据库的分为nvarchar(n)类型字段。通常使用二种格式的文本：1）单纯文本2）带换行符的文本

Windows Server 2008R2，通过镜像安装，开机自动登录Administrator，安装服务器程序， 自启程序后，无管理员权限。为了保持无密码自动登录，不想改动2008服务器的用户。实践中，发现应用程序，当2008启动后，再执行，就可以获取管理员权限。为此，编个程序，先自启动，等待1-5分我钟后，再执行应用程序。

我在调用模块时，为保障用户使用顺畅，只能调用一个模块。近期脑洞一开，可否同时调用二个模块，这样，软件可以浏览全部窗口。同时，设置一个Boolean全局参数EXEKeep2，确定业务员能打开二个模块，否则。这样，业务就能完全兼顾查看，软件的全部窗口。1、建立业务员使用记录，记录操作时，例如登录退出模块、保存、删除数据的详细记录。这样，C/S可以操作一个主业务模块，同时调用另一个模块。3、调用模块时，保持一个模块EXE，其他模块，调用时删除线程。五、让主程序同时能调用二个模块，解决C/S，全功能窗口的调用。

在使用RichView过程中，出现多段落文本的导入，例如，由原数据字段保存的文本，通过程序导入时， 本人找到一种的方式，就是通过StringList逐行导入。

最近，发现有一台windows2008R2t服务器，运行DataSnap编程的SERVER服务程序，出现不能远程传递上传、下载文件问题，造成不能及时升级软件问题。 那么从服务器端、客户端、VPN专线连接、服务器代码、客户端代码，逐个找原因，终于找到。是服务器上的SERVER程序末以管理员身份运行。

浪报表 Grid++Report 图像打印，使用PictureBox控件。

地在将文字存入数据库时，常通过TStringList进行逐行分段处理后，再通过DBMemo存入数据。但是Delphi的TStringList控件，通过Text存入数据时，它的最后一行是一个换页符。在打印时，就会多出一个空白行。正常的打印：一个空白行，有时造成打印的溢出。问题解决：一、Delphi10以下TStringList，默认最后一行有#13#10字符（换页），可以通过删除最后的#13#10字符 编程做一个函数解决：function PrintText(S:s..

SQLite 轻型数据库

当数据集有选择的时候，比如选择性打印，而且这种选择是随用户的主观意念决定时。在DBGrid上设置选择项，就非常必要和非常有用了。    在DBGrid上设置选择项，操作如下：    一、加入DB单元，因为要DB相关设置。uses DB;    二、在Table的字段设置一个可供选择的字段，例使用中文字段“选择”,属性：bit。    三、显示Table的DBGrid中，将该

EXCEL数据导入数据库表

当数据集有选择的时候，比如选择性打印，而且这种选择是随用户的主观意念决定时。在DBGrid上设置选择项，就非常必要和非常有用了。    在DBGrid上设置选择项，操作如下：    一、加入DB单元，因为要DB相关设置。uses DB;    二、在Table的字段设置一个可供选择的字段，例使用中文字段“选择”,属性：bit。    三、显示Table的DBGrid中，将该

将EXCEL文件数据导入数据库表的方法

DBGridEh，可以很广方便地设置表中表。但是，使用中还是要注意环节。这是本人使用的一点经验，提供大家参考共享。

DBGridEh的Footer的设置。DBGridEh物有的Footer，极大地方便用户，能通过增加Footer，显示字段的和（小计）和其它特殊的统计要求。

ClientDataSet1 cannot perform this operation on a closed dataset.错误

对于DataSnap三层数据库软件，对于日期格式要求比较严格，如日期采用“yyyy-MM-dd”格式，人工输入时，常会出现错误，将“2014-01-01”会错误录入成“2014-1-1”。为了避免用户录入错误。在DBGrid录入时，通过DateTimePicker规范录入格式，起到减少错误的效果。笔者通过参考网上的例子，通过DateTimePicker与DBGrid两控件的结合，将DateTime