- 博客(86)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 DELPHI的web编程中unidbgrid的自动加行号
还是上图最清楚，我想要得到下面的结果 ：第一列，每行自动编号。只需设置一个unidbgrid的属性即可，如下图。
2023-11-17 21:34:01
18
原创 DELPHI的web编程中unidbgrid的列排序操作
这段代码的主要原理是，通过找到当前表格的datasource的dataset，因为我一般用的是fdoquery查询控件，所以，我是将其中的sort by找到，并替换其后的字段名，再重新执行查询得到排序结果。在unidbgrid中想实现表格列的自动排序，不如在windows窗体程序中方便，需要进行多个设置才能实现。1、unidbgrid的设置，在unidbgrid的控件属性面板上进行，如图。调用的事件是一个通用的排序处理程序，可以放到公用库中去。并在事件中加入相应的处理代码，2、在事件面板中选排序事件。
2023-11-17 21:25:52
21
原创 DELPHI的web编程中unidbgrid的求和footer行
因为自己找到的一些案例中，unidbgrid对某些列求和后，将求和结果一般放在最后一行。我一度怀疑unigui的设计者怎么连基本的使用习惯都不能兼顾，万般吐槽。2、在unidbgrid的ColumnSummaryResult事件中，一定要先保存数据表的游标，在循环执行完再恢复现场，这样在多页的状态下才能保证正常的跳转。其实关键的设置如下，align设置为tobottom则自动将汇总行作为footer列示在表格的底部。求和还有一个事件，需要对表格内部的列数据进行循环处理，得到列求和或列统计的结果。
2023-11-17 21:08:10
18
原创 鼎信诺取数出错解决
今天在外部审计机构审计过程中，需要用鼎信诺审计软件取数，我的系统为用友u9,华为云。在云服务器点击运行取数工具时，弹出多个如图窗口。显示 Jpeg processing erro的错误 ，内容为failed to create temporary file。2） 属性窗口中【高级】-【环境变量】-找到temp路径，点编辑将其原始路径复制下来。3）、在资源管理器中，将复制的路径粘贴到地址栏，进入temp文件夹。1） 首先，进桌面-我的电脑-右键找属性。这样清除该路径文件后，程序已经能正常运行了。
2023-03-10 14:11:22
1245
1
原创 “is not a valid date and time ”错误提示 的【排除故障】
我记得我建库时用的是日期类型，我在delphi中用的也是日期类型，但是asdatetime后赋值到日期时间变量就是通不过，总出此提示。网上查了一下，一般出现这种异常提示的原因是因为Win7系统时间格式不与管家数据库时间字段类型不一致所造。沉下心来一看，不对，我建库时的字段是日期型，不是日期时间型。将其改为日期时间型，两者就匹配上了。
2023-03-01 15:24:58
2269
原创 sqlserver中用日期比较作为where的条件
delete from [kbkj].[dbo].[进项票MX] where datediff(day,创建时间,'2023-01-04')=0。特别要点：在sqlserver中直接用日期字符串作为datediff的参数，不要老是想转换为日期型的，datediff中直接用日期字符串作参数。SELECT DATEDIFF(day,'2021-02-05','2021-02-09') AS DiffDate --返回 4天。datepart：指定返回的日期时间维度(天、小时、分钟)。
2023-01-26 09:19:24
1585
原创 EXCEL附注生成WORD附注（XLS2DOC) 下载
EXCEL附注生成WORD附注工具前后历经十年左右的时间，不停的迭代，不停地修正，基本上是一个比较成形的工具了。能为注册会计师、审计人员、财务人员省下复制粘贴的大量时间，专心于审计实务。目前我申请了一个网站空间供下载，网站主题仍是注册会计师与程序。地址为http://www.hblxysoft.com。欢迎下载试用，在csdn上也有下载。
2023-01-23 18:48:51
369
原创 delphi xe 10.2 中编译64位程序中连接ACCESS数据库的问题
在我编译到64位插件时，在IDE环境中已经测试通过的链接，提示出现'' 未找到提供程序,可能未安装"类似的错误 ，用到的还是TAdoConnection中的JET 驱动（oledb）方式。uid=admin;//mdb和accdb中间有个空格。因为在IDE中已经测试通过，在32位环境下也编译通过了，但在64下编译时出错，可以判断问题出在JET驱动方式连接不支持64位系统。
2022-10-09 13:20:15
1038
原创 钉钉氚云到金碟之三 DELPHI从氚云下载数据
特别注意的是标红处的一些登录参数，要从钉钉氚云专业版系统处获得,然后替换。，才能登录下载.先将测试出来的代码上传，逐步完善说明。
2022-08-05 16:19:27
315
原创 钉钉氚云到金碟之二：测试凭证写入金碟KIS（DELPHI)
新建一个DELPHI 应用程序，建一FORM,放一按钮，最简单的FORM。在按钮中写入测试代码 ，如下：注释一下：1、红色1处，网上基本上搜不到相关代码，金碟的参考代码中也没有，费了九牛二虎之力测试出来。这也是本代码最终能生成凭证的关键所在，一个黑盒子，没这个，进不去。就这在网上，在代码堆城至少费了两天时间。巨抗，金碟的参考代码就省这个，不知啥意思。2、红色2处，这里不是日期型， 是字符型的3、红色3处，这里是出错代码，出错提示很详尽，很具有参考价值。上代码 ，通了就非常简单。procedure TFor
2022-07-13 23:05:49
384
2
原创 不能注册DLL/OCX：RegSvr32失败 0x5
为这个错误累死了，知道是权限的问题，但无从下手，查了一圏网上资料，包括在INNO SETUP安装配置文件中加入64位的标识之类的都做了，包括超级用户ADMINISTRATOR登录 ，还有设置用户权利，没想到仅仅关闭病毒软件就好了。基本是这个转载文的提示启发。WIN10 64位太难得搬弄了。我自己最终这样解决1、一定要关闭360，并且是要完全退出2、关闭Defender，关闭的步骤如下图将关闭防病毒程序配置为已启用===下为转载文章转载https://blog.csdn..
2021-04-06 20:10:59
14248
2
原创 SQL SERVER 在DELPHI中的日期比较处理
问题：在sql serstr := ' select sum(收款) as 收款,SUM(付款) as 付款 , ' //max(日期) as 日期, MIN(htcode) as htcode, + ' MIN(承包人) as 承包人 ' + ' from 收付款X where ' + ' datediff(day,日期 ,''' + formatdatetime('c', rq1) + ''')<=0 ' + ' a...
2021-03-06 13:33:01
386
原创 Left join 会增多数据记录条数的处理方案（SQL SERVER)
Left join 会增多数据记录条数的处理方案A表，左连结到B表，如果B表中关联关键字不唯一时，A表的会增加记录条数，也就是B中关联关键字重复的行数（设为N），会在A表中有该关联关键字的记录会重复（N次）。有两种解决方案======第一方案 if not ViewExists(QryList.Connection, '收付款x') then begin STR := 'create view 收付款x as '; STR := str + ' SEL...
2021-03-06 13:19:58
7892
2
原创 氚云自定义报表
公司在钉钉系统中使用氚云搭建办公审批系统，功能自己也在逐步完善。现在想弄一个今年的合同数量统计、金额统计数作为首页面板。在报表系统中新建一个报表，数据源选合同表，然后将COUNT字段、金额字段拖到面板中去，加入筛选条件，并默认设置为本年时间。在单独进入报表时，显示并无问题，正确显示了本年的合同数，合同金额合计。但是放置到首页后，出现的结果是这些年全部的合同数与合同金额合计。这显示不符合我的...
2020-02-18 17:48:58
1576
原创 word中替换顺序号全半角函数中的体会
因着要完善WORD附注功能的，对WORD中的查找替换进行了一些深入研究，对编程中测试得到的心得做一个备忘记录。（1）、全角字会，我用的是AnsiString变量，这样用LENGHT()函数测试出来的是字符数，而不是字节数。并且copy函数得到的结果也是字符，而不是将全角字符截半成为一个非法字符了。（2）、对于WORD的替换操作放到了函数，便于长期性的操作。procedure Wor...
2020-02-16 15:09:50
236
1
原创 word附注格式研究之二：段落段前距、段后距、行间距的影响因素
研究结论1）、常规代码是 Selection.ParagraphFormat.SpaceBeforeAuto = False Selection.ParagraphFormat.LineUnitBefore = 0 Selection.ParagraphFormat.SpaceBefore = 22、如Selection.ParagraphFor...
2020-02-12 14:02:33
1149
原创 word附注研究：word的缩进影响因素
为了弄清Word中的缩进代码控制因素，近几天进行了大量的测试，得出以下结论1、Word.Options.UseCharacterUnit = True ，资料显示它主要控制段落以字符数作为单位控制缩进，TRUE表示是，FALSE表示，2、经测试无论TRUE,false都不影响3、CharacterUnitFirstLineIndent的优先级，定义了它的值word会以他的值作为...
2020-02-12 12:32:18
718
原创 word闪退故障解决
昨天一天在维护个人编写的WORD插件，在进行一些什么操作后突然发现：进入WORD后，在点击菜单上的【文件】项或右键时就闪退了。先是自救，试图删除全部的Word加载项，但是没有曲道去删除，唯一就是自己的插件在Delphi中自行卸载了。故障依旧。第二就是重新安装Office软件，安装时选择了修复文件。故障依旧第三就是修复windows系统文件，以管理员身份运行了cmd，在命令行中执行sfc...
2020-02-02 06:12:54
9438
原创 word附注生成工具注册问题解决
WORD附注工具经常有用户反应，注册码在发生变化。这种情况可能是因为WINDOWS的管理权限造成的。我的主程序是XLS2DOC.exe，您需要找到这个主文件，然后在主文件上右键选属性，出现以下对话框，勾选【以管理员的身份】运行。如果是EXCEL插件，则搜索EXCEL,EXE文件，同样在右键的属性中勾选【以管理员的身份】运行。...
2019-12-03 14:57:59
993
转载 转：delphi xe ide 无法单步调试
原创delphi xe ide 无法单步调试的解决本文链接：https://blog.csdn.net/lushmily/article/details/52514426最近遇到多起delphi ide无法单步调试的情况，几经折腾无果，只能showmessage,不方便无以言表，但这种情况并不是在所有的项目中出现，当IDE崩溃后出现，在删除项目xxx.dproj文件后，一切OK。/...
2019-12-03 13:27:17
365
转载 Word文档表格中文字有淡灰色背景的去除方法
Word文档表格中文字有淡灰色背景的去除方法这个问题花了我半天的时间试图去解决，去背景色，去边框颜色试尽了，也存为HTM文件试图找出原因，未果。百度文库一搜，出来的结果根本没法解决问题，反而还是误导，但是在百度文库中偶然发现解决方法。本文非原创，引用文地址为：https://wenku.baidu.com/view/3f511a9551e79b8968022636.html。先看现象：...
2019-04-04 16:45:31
15868
4
原创 EXCEL附注生成WORD附注 的调试问题
在EXCEL附注生成WORD附注调试中，遇到Delphi资源重复定义的问题（“Duplicate resource”）出现大量的RESOURCES DISCARDED提示。解决思路:1)按网上的思路，将*.res文件全部删除，删除后让delphi编译重建。未解决2）联想到主要问题产生来源于为了重构软件，将变量及文件命名变得更可读，因此大量采用了另存为新文件名的方式。这样就道...
2019-03-10 13:54:28
1672
原创 xls2doc 工具更新完成
"word格式财务报表附注生成工具" "EXCEL表格转换为WORD文档工具"HTTp://www.cpasoft.com.cn 《xls2doc 工具》软件精致小巧，简单易用，针对性强。 可以一次性将EXCEL表格转化为格式完整的WORD文档，而且生成的WORD文档仍与EXCEL表格保持链接。EXCEL表格修改后，WORD文档可以快速保持同步一致。各种报告，尤其是财务报表附注...
2019-02-04 19:33:58
1626
1
原创 WORD附注工具艰难的调试经历
WORD附注工具艰难的调试经历 费了一整天，解决一个问题，就是关闭窗体时出现 “access violation at address”，"Invalid pointer operation"错误，首先查询了网上的大部分相关网页。 1）网上主要的解决思路是================Delphi 提示“access violation at address”错误解决：通常是对空地址...
2019-02-04 19:31:06
1083
原创 我的最新软件集
<br />卓悦注册会计师考试强化练习系统暂无下载（即将更新）这些软件均为本博客新推出的自编软件，拥有自己的版权。欢迎下载试用。使用中有任何问题请联系abc7105#126.com 中级会计师职称考试强化练习系统进入下载页初级会计师职称考试强化练习系统进入下载页审计工作底稿（能自动填写底稿信息）进入下载页(自由软件）
2011-05-28 07:16:00
898
1
原创 advSTRINGGRID加下列列表框combobox
从blog.org的我的原博客中迁入发表时间：2008-1-2 16:08:181.advstringgrid的相应事件有两个========procedure TForm1.mxgridGetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType);begin with mxgrid do
2009-01-06 19:16:00
1925
原创 variablehandle的使用代码备忘
从blog.org的我的原博客中迁入发表时间：2007-10-11 13:01:22//In page_load vhRecursosSeleccionados.EcoSpace := fEcoSpace; vhRecursosSeleccionados.Element.AsObject := ArrayList.Create; //and then procedure TfrmT
2009-01-06 19:15:00
655
原创 IsPostBack的问题
从blog.org的我的原博客中迁入发表时间：2007-10-14 10:04:52procedure teditnewspage.Page_Load(sender: System.object; e: System.EventArgs);var Id: string; listitem1: listitem; user1: tleftpanel;begin ... Id :=
2009-01-06 19:15:00
616
原创 返回eco列表集的几种方法
从blog.org的我的原博客中迁入发表时间：2007-10-2 14:14:28IObjectList customers = vfs.CreateTypedObjectList(typeof(Customer)); foreach (Customer currentCustomer in someOtherList) customers.Add(currentCustomer);
2009-01-06 19:14:00
448
原创 experssionhandle数据源,在datagrid中利用checkbox显示并编辑boolean类型数据
从blog.org的我的原博客中迁入发表时间：2007-10-8 17:21:08经过艰苦的探索,今天下午还是做出来了,贴出相关代码环境为expressionhandle名为ehperson,是person类的全部实例 ,即express表达式person.allinstances1.aspx文件 " autogeneratecolumns="False" datakeyfie
2009-01-06 19:14:00
687
原创 arraylist与web 控件的绑定
从blog.org的我的原博客中迁入发表时间：2007-10-2 14:06:05procedure TfrmPayment.LoadPayments; var i, j: integer; aPayment: TPayment; begin FBalance := 150; FBondBalance := 250; for i := 0 to 4 do begin
2009-01-06 19:13:00
523
原创 expressionhandle表达式中使用非ocl变量
从blog.org的我的原博客中迁入发表时间：2007-10-1 10:08:47expressionhandle的expression中要使用变量,一般要用到variablehandle变量,很麻烦.如一般的字符串变量可使用以下方法解决 c#eh.Expression = System.String.Format("Person.allInstances->orderBy({0}),
2009-01-06 19:11:00
599
原创 variablehandle与oclvariabl搭配使用的注意要点
从blog.org的我的原博客中迁入发表时间：2007-10-1 10:34:17在expressionhandle和oclpshandle 中要使用一些非字符串变量时,我们可利用variablehandle与oclvariabl生成OCL变量方法来运用 1.加入一个variablehandlE元件,设置其ecospace为定义好的ecospace,设置 staticvaluetyp
2009-01-06 19:11:00
505
原创 DevExpress.XtraGrid的统计功能
从blog.org的我的原博客中迁入发表时间：2007-4-28 17:35:14DevExpress.XtraGrid的统计功能设置ShowFooter = True选中某一列（ID），SummaryItem属性，->设置SummaryType为：count(记录个数）、sum(总和）、Max(该列最大值）......，->再设置DisPlayFormat格式为：static text{
2009-01-06 19:10:00
1393
原创 ECO数据源使用REPEATER控件出错问题
从blog.org的我的原博客中迁入发表时间：2007-1-22 18:51:41 "> type DataBinder.Eval(Container.DataItem,"externalid") %> 在这段程序中始终出错,最后出在大小写上,上
2009-01-06 19:09:00
557
原创 eco中日期字段怎样设置为空
从blog.org的我的原博客中迁入发表时间：2007-2-5 9:10:52MyObject.AsIObject().Properties["MyDateField"].AsObject = null; myobject为对象名
2009-01-06 19:09:00
555
XLS2DOC.zip
2020-03-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人