- 博客(30)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 project test.exe raised exception class $C0000005 with message ‘access violation at 0x7613bb52:read
project test.exe raised exception class $C0000005 with message 'access violation at 0x7613bb52:read of address 0x6ffef03c'.
2024-01-19 14:23:13
390
原创 Lazarus连接MSSQLServer的字段显示＜widememo＞问题
sql server中字段设置为Nvarchr(MAX)的，在lazarus用ODBC连接并查询出来在DBGrid中显示，网上找不到解决方案，一点一点的试，终于解决。1、在属性栏里，将sqlquery的active属性点击为true（不连接步骤2打不开字段，如果步骤2看不到字段，记得将ODBCConnection连接点击为true）2、双击sqlquery打开编辑字段，点击+增加全部字段。
2023-08-25 15:57:58
191
原创 Lazarus连接MSSQLServer的连接问题
另外，Lazarus中使用属性时，发现自动提示的属性或方法后面有的加了一把小锁，不知何意，使用时发现有时不能正常的反馈结果，难道是受限制或和其他属性一并使用的提示？自动提示的Prepared属性后有一把小锁，反馈的结果不是实际的计数，第一次是20，再刷新可能会显示实际计数，这是在PacketRecord：=-1的情况下出现的问题。另外，在3.0RC1和2.2.6版本，你想用拼音录入 //显示全部 时，当联想显示过程到 //县市区 后，系统自动退出。测试后，微软的拼音录入没问题，手心录入法有问题。
2023-08-23 12:21:28
564
4
原创 FDQuery的排序方法
FDQuery的字段排序查了很久网上竟然找不到，最后看到一个信息，竟然是非常奇葩的存在。FDQuery.indexfieldnames:='字段:D';FDQuery.indexfieldnames:='字段:A';FireDAC的资料真实很少啊。
2023-08-02 11:30:44
240
原创 FastReport分组、填充空格、分页和小计
网上找到了分组、填充空格和分页，但是fastreport有一个问题，一旦用child1填充空格后，GroupFooter1的小计就无法显示了，需要加一个累计项单独小计，备忘一下，以供大家参考。以下是打印记账凭证的代码，一张A4的纸上打印三张，每张凭证可以填写8个分录项：var GPage,GIndex,FGIndex:integer; PageList:array of integer; PageLine: integer; PageMaxRow: integer=8; jf,d...
2021-12-23 14:48:14
1953
原创 解决Microsoft SQL Server Management Studio启动时出现cannot find one or more components错误的问题
也不知道误删了什么玩意，启动Microsoft SQL Server Management Studio，出现cannot find one or more components错误，按照网上的教程，试了很多种方法，均不得要领。经过测试多次，基本解决了我自己的问题，大家参考吧。1、删除Microsoft Visual Studio 2010 Shell(Isolate)-CHS，也可以跳过该步...
2019-04-17 15:41:05
9079
10
转载 FireDAC知识积累
开始学习FireDAC，没有什么资料，现在开始积累：http://www.cnblogs.com/lzl_17948876/p/5404618.htmlFireDAC 连接SQL Server一些要注意的地方TFDConnection:1、FetchOptions.Mode 设置为fmAll, 返回全部结果, 否则默认只返回前50条, 效果与open以后再执行FetchAll一样...
2018-12-17 17:16:33
1702
原创 ADO.SQL.ADD修改数据后刷新小技巧
用数据控件的edit和post方法，在DBGRID中可以实时显示变更后的数据，用ADO.SQL.add却不能，修改数据后用刷新也不能显示修改过的数据，除非你重新查询一下。这几天偶然发现，使用ADO.close再使用ADO.open后，数据表中的数据刷新了，呵呵。其实方法本来就有，但本人一直不知道，对自己来说算是一个新发现，就是不知道这种刷新对系统运行有什么影响没有。记录一下，以备后查。...
2018-08-04 19:27:38
781
原创 Delphi XE10.2.3总是打开CPU调试窗口
将XE10.2换成XE10.2.3，用了一段时间发现，调试错误中断时，总是调出CPU窗口，不能定位错误代码行。换回XE10.2后一切正常。搜了很多网上的指南，均不能解决问题，还是继续用10.2吧。2018.8.3010.2.3.2661是这种情况，3231也是这种情况，这么不长进啊！ ...
2018-07-14 11:47:53
1354
5
原创 关于自定义 DBGridEh 的 IndicatorTitle 表头下拉菜单项的方法
因为DBGridEh的字段有不想被显示的，而定义显示全部菜单项能选择被禁止的Columns，所以需要选择菜单项。BlueStorm给出一种自定义类的方法https://bbs.csdn.net/topics/392410238type TDBGridEh = Class(DBGridEh.TDBGridEh) public procedure DefaultBuildIndicator...
2018-07-05 22:41:07
698
原创 Delphi XE10.2 判断汉字的方法
查了一下网上的方法，大部分用ord、bytetype或ord+bytetype方法，但不知道为什么，XE10.2下判断的结果不对。用ORD的，函数的参数应该是WideChar，string无论如何转变都不行，查了一下，有的说以前版本可以支持直接强制转换，可是在高版本下就是不行。研究了一下，XE10.2版本下通过：var s1:string;if (ord(s1[1]) < 40869) an...
2018-06-26 21:32:27
1617
2
原创 Delphi重复使用ADOquery时要避免相互干扰的问题
以前想过，没当回事，这次偶尔发现确实有问题。我一般是ADOQuery1..5（基本上临时查询使用），循环使用，但有可能会出问题，那就是两个界面都用ADO1查询时，另外判断ADO.isempty时，会交叉干扰。比如A窗体的ADO1-->delete和B窗体的ADO1-->delete，你先查询A窗体的ADO1，B窗体删除时判断ADO1不为空，会通过判断，但删除时报错，毕竟字段不同，要是字...
2018-05-23 14:36:02
1649
原创 使用dbExpress的SimpleDataSet控件连接MSSQL2014时出现错误的解决方法
Delphi XE 10.2+SQL Server 2014使用dbExpress的SimpleDataSet控件连接MSSQL2014时出现错误：'DBX Error: Driver could not be properly initialized. Client library may be missing, not installed properly, of the wrong ve...
2018-04-25 10:18:46
668
原创 ADOQuery.Filter三个以上条件字符串的写法
一般不用ADOQuery.Filter作为条件，这次偶然用了一下，竟然出错连连，找了网上很久也不得骑姐。看到对Filter条件的解释，说 and 两边的结果必须为真，尝试将：ADOQuery.Filter：='((A=a) or (B=b)) and (C=c)' 显示First chance exception at $749F3EF2. Exception class EOleExceptio...
2018-04-14 20:22:31
3563
原创 VB.net的ComboBox下拉单使用空行或空值问题
Public da As SqlDataAdapter Public dt As New DataSet Public cn As New SqlConnection() Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown dt.Cl...
2018-03-14 16:00:38
2128
1
转载 CheckListBox中选项的两种拖放方式
今天调整系统的一些技巧部分，用到了拖放，在网上搜集了两种方式，略作修正，备忘一下。我喜欢第一种方式，拖放时在选择框内显示可拖放状态，第二种限制在可选择的项上显示可拖放状态，但第二种简单一些。网上还有一种方式，托过的项上全部为选择状态，很不好看，就不再记录了。我习惯了用Sender，原作用的是Source，没有测试，同一个对象，应该是可以的。 // CheckListBox两种拖放方式，第一种pro...
2018-02-11 23:50:25
546
原创 DBGridEh设置选中的行的颜色
DBGridEh设置选中行的颜色，查了3天，一脸懵逼，我能找到网上的全是错误的，或许是我的版本太高了，不支持。尤其是参数State总是提示错误，类型不符。点击单元格，或者单元格获得焦点后，整行被指定的颜色覆盖（如果是设置内容颜色，你自己选择font），正确的也是简单的写法（我最烦动不动就一大篇实现一个简单的功能）。一、设置光标所在行的颜色在getcellparams事件中if DBgrideh1....
2017-09-07 10:57:13
5121
3
原创 adoquery.sql相同变量赋值的方法
在以adoquery.sql赋值语句中，如果两个变量相同，语句中使用相同的变量，竟然提示变量找不到，前没遇到：adoquery.sql.add('update 表 set a=：a，b=：a，c=：c where 条件');adoquery.parameters.parambyname('a').value:=1;(写两次也不行)10.2竟然不支持，改成：adoquery.sq
2017-08-28 09:37:21
912
原创 Edit判断修改后的处理
Edit类的控件，判断Modified后，如果再次循环，其Modified状态依然不变，而此判断会出问题，除非你清除全部结果。我习惯显示不变，下次的时候清空数据，所以，判断其修改后要恢复其状态，下期才能不出问题。if Edit.Modified:=true thenbegin......Edit.Modified:=false;end;这么一个小问题竟然要追踪调试才发现
2017-08-28 09:24:11
593
原创 Excel导入SQL时，如何动态获得Sheet的名字
发了一个问题贴，2位前辈回复后，不得要领，试了2整天，没有一个能正常运行的，本想放弃了，最后一次终于试出来了。竟然还是驱动的问题，驱动驱动驱动，重要的事情说三遍。我一直尝试使用delphi提供的驱动连接数据文件，全部不能正常使用。 OpenDialog1.Execute; ADOConnection1.close; ADOConnection1.ConnectionS
2017-08-07 23:16:35
920
原创 delphi使用ADO在sql数据库存取图片的方法
delphi使用ADO在sql数据库存取图片的方法新手参考，老鸟绕行我一直不认为能把代码写的和天书一样的程序员是好的程序员，那不过是因为我真的对delphi也就是略懂皮毛，太深了看不懂。网上查询数据库存取图片的方式，看的是一头雾水，有人提出保存路径使用时再调用，方法很好，但现实很残酷，在客户端使用时才发现，无法调用服务器端的路径和图片（我指的服务器也就是一台部门使用的普通的PC
2017-07-27 11:33:36
2148
原创 Ehlib组件DBGridEh自动排序之正常运行
根据Ehlib使用说明之自动排序并显示标记（▽降序△升序），仅设置属性不用写代码实现点击标题头自动排序。DBGridEh组件可以在标题行单元格中显示小三角形升、降排序标志符图片，在运行时可点击标题行，图片自动切换并做相应排序。1）设置全部列为排序字段，具体属性设置如下： DBGridEh.ColumDefValues.Titles.TitleButton:=True; DBGr
2017-07-14 22:39:47
1131
2
原创 delphi xe10.2自带的sha1sha2
uses单元加入system.hash。使用sha1直接调用edit3.Text := system.hash.THashSHA1.GetHashString(edit1.Text);使用 system.hash.THashSHA2.参数设置如下：class function GetHashString(const AString: string; AHashV
2017-07-03 15:05:05
4789
原创 delphi自带md5的使用
delphi自带md5的使用方法，在xe10.2版本测试通过。uses单元中加入IdHashMessageDigestprocedure TForm1.Button1Click(Sender: TObject);var MD5: TIdHashMessageDigest5;begin MD5 := TIdHashMessageDigest5.Create
2017-07-03 00:21:53
9572
原创 delphi xe10.2可以使用tostring
经常使用VBnet的数据类型转换，感觉.tostring非常好用，比delphi的xxtostr（）好用多了，前几天装上delphi xe10.2，发现也可以使用.tostring了，感觉很爽。说实话，用来用去的PB、VBnet，还是回到了delphi，也是习惯了，感觉D还是写起来顺畅，逻辑也清晰，尤其是控件和语句结合的很方便。不过，非IT的业余人员，也就是用一下基本功能，谁好用就用谁呗，
2017-06-27 13:10:04
3186
3
原创 VB .NET 将DataSet修改后的数据使用update写到数据表中
用到了显示表格，修改数据，写回数据表的项目，几乎用了两天的事件查询电子书和网页资料，竟然无法找到将DataSet修改后的数据使用update写到数据表中的任何一个正确的代码，几乎快崩溃了，看来我真的不是学VB的脑袋啊，几乎忍不住要转回delphi了，就在刚才抱着最后一次运行的绝望修改后，TNND竟然可以了，真想说粗话，谁说VB好学了，你过来，我保证不打死你！我确认我的代码基本正确，也参考了帮助
2017-05-30 23:22:48
6730
4
原创 VB .NET把Excel中的数据导入SQL SERVER数据库
其实不算原创，论坛里有人发的，我正好项目写到这里，缺的语句较多，无法运行，我补充了一下，可以简单的运行了，测试了一下，速度还不错。VS2015可用，自己添加窗体和控件吧，只需要一个OpenFileDialog和Button，默认文件中带有字段名。Public Class Form1 Private Sub Button1_Click(sender As Object, e As
2017-05-18 11:08:09
6021
2
原创 VB .NET 读取数据库数据处理后再循环插入数据库
读取数据库数据处理后再插入数据库，很多语句都可以使用inset into实现，但有些批量处理业务，需要逐条记录处理后，在写回数据库。网上查了很多资料，竟然没有这样的例子，很是奇怪，难道我学的路子不对头？小白学习过程中的记录，高手勿笑，有不当之处烦请指点。Private Sub Button9_Click(sender As Object, e As EventArgs) Handles
2017-05-07 19:12:53
1230
1
原创 TreeView1鼠标点击节点触发的单击事件
说实话，刚刚从Delphi改成VB.net，delphi本是菜鸟，VB也就是菜鸟中的菜鸟了，根本不是开什么博，就算是学习的一些心得吧，仅仅是记录一下，以便后期使用而已，请方家勿笑。查了很多资料，竟然查不到TreeView1节点的应用，全是什么增加、遍历什么的，自己测试了很久，其实应该是TreeView1_NodeMouseClick事件才是node中正确的鼠标点击事件。vb .ne
2017-03-15 14:39:22
26104
5
PB使用Delphi生成的mysha1.dll加密字符串
2018-11-08
双系统修复工具
2016-05-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人