- 博客(94)
- 资源 (4)
- 收藏
- 关注
RSS订阅
原创 EXCEL附注生成WORD附注（XLS2DOC) 下载
EXCEL附注生成WORD附注工具前后历经十年左右的时间，不停的迭代，不停地修正，基本上是一个比较成形的工具了。能为注册会计师、审计人员、财务人员省下复制粘贴的大量时间，专心于审计实务。目前我申请了一个网站空间供下载，网站主题仍是注册会计师与程序。地址为http://www.hblxysoft.com。欢迎下载试用，在csdn上也有下载。
2023-01-23 18:48:51
621
原创 delphi7下使用ejundatagrid的总结
ejundatagrid是一个国产的中国式报表控件，目前网络上已难见踪影，厂家网址也不失链了。在delphi7下，我用了很多的类excel、类stringgrid的控件，我觉是它是最好使用的控件，没有之一。就因为这个控件，我买了一套授权，且它不支持现在的delphi xe的最新版本，我写的主要程序都没有往xe上迁移。这个控件，可以与excel进行方 便交换数据，只需复制粘贴就可以将excel数据放入自己的软件中，也可以将结果快速导出或复制粘贴到excel，支持常规的公式。
2024-03-10 13:30:22
830
原创 财务会计凭证生成科目余额表的思路
这种适合一般的中小企业，数量量不大，我公司十年的数据将近四十万条，这样进行科目余额表的统计也非常快，不存在延迟等时间上不能接受的情况 ，具有一定的适用性。可能规范的用法，尽量减少访问全部数据，将每月的科目余额表作单独的存储，并且对会计凭证要进行记账结账，这样保证数据的访问量较小，并且更高效，只不过开发上麻烦一些。（5）、以上就是我们查询数据的全部内容，因为考虑到接受起止时间，因此，我将其做成了一个sqlserver的函数，全部代码 如下。科目代码，科目名称，一级代码 ，期初 ，借方 ，贷方 ，期末。
2024-03-10 13:10:30
449
原创 delphi7中出现“无法更改以命令对象为源的记录集对象..“的错误解决
这个错误信息通常表示在关闭窗体时，有一个或多个数据库组件（如 TTable、TQuery 或 TDataSource）正在尝试修改或关闭它们的数据集，但由于某种原因无法完成。得到这些信息后，我检视了我的程序中用到了数据库编辑的控件，有些控件是直接编辑数据库并且同步的，我找到这些数据库控件关闭后，我直接在释放资源前将其关闭，错误信息消失。：如果一个数据集被其他组件引用，如 DBGrid 或其他数据集的 MasterSource，而这个组件还在使用数据集，那么在尝试关闭数据集时就可能出现这个错误。
2024-03-10 12:46:07
349
原创 delphi中自定义自己的定时器
最近用上了rpt工具，但是用rpt自带的工具执行起一些定时任务不方便，有些功能不能自主，于是我在delphi中用定时器制作了自己的定时执行程序。这段代码首先获取当前的小时、分钟、秒和毫秒，然后根据不同的时间条件执行相应的操作。这段代码在窗体创建时，将定时器的间隔设置为 10 分钟（以毫秒为单位），然后启用定时器，以便触发相应的定时事件。2、在窗体的formcreate事件中加入以下关键代码，让定时器按自己规定的时间节奏开始运行起来。，在每个小时的第一分钟根据当前小时的奇偶性执行。
2024-01-04 14:36:04
716
原创 delphi中format日期格式的小要点
我要delphi中要用到会计期间的比较，环境是sqlserver数据库，用sql语句查询某一会计月度的数据记录。
2023-12-27 17:44:37
479
原创 delphi的unigui web开发中使用font awesome 字体
"fa-lg" 是一个可选的类，用来增加图标的大小。如果你中选后面的一个显示出来的只有一个框，因为fa负责设置好字体为awesome字体，才能正确显示。它提供了许多预定义的、可以通过 CSS 类名引用的图标。因此，整体上，这行代码设置了 UniLabel3 的标题为一个大号的复古相机图标，后面跟着文本 "fa-lg"。在哪里呢，我截图出来，这是相其css文件及其路径，可以看出css是经过压缩的，我们vs code将其格式化。格式化后的css,这样就好多了，其中，我们可以看到其中的各种样式的设置。
2023-12-17 16:24:13
1053
原创 DELPhi的web编程中unidbgrid的各种样式自定义
经过艰苦的摸索，终于能够对Unidbgrid进行自如的格式设置了，这是我最终的效果。
2023-12-09 14:25:15
605
原创 DELPHI的web编程中unidbgrid的自动加行号
还是上图最清楚，我想要得到下面的结果 ：第一列，每行自动编号。只需设置一个unidbgrid的属性即可，如下图。
2023-11-17 21:34:01
76
原创 DELPHI的web编程中unidbgrid的列排序操作
这段代码的主要原理是，通过找到当前表格的datasource的dataset，因为我一般用的是fdoquery查询控件，所以，我是将其中的sort by找到，并替换其后的字段名，再重新执行查询得到排序结果。在unidbgrid中想实现表格列的自动排序，不如在windows窗体程序中方便，需要进行多个设置才能实现。1、unidbgrid的设置，在unidbgrid的控件属性面板上进行，如图。调用的事件是一个通用的排序处理程序，可以放到公用库中去。并在事件中加入相应的处理代码，2、在事件面板中选排序事件。
2023-11-17 21:25:52
174
原创 DELPHI的web编程中unidbgrid的求和footer行
因为自己找到的一些案例中，unidbgrid对某些列求和后，将求和结果一般放在最后一行。我一度怀疑unigui的设计者怎么连基本的使用习惯都不能兼顾，万般吐槽。2、在unidbgrid的ColumnSummaryResult事件中，一定要先保存数据表的游标，在循环执行完再恢复现场，这样在多页的状态下才能保证正常的跳转。其实关键的设置如下，align设置为tobottom则自动将汇总行作为footer列示在表格的底部。求和还有一个事件，需要对表格内部的列数据进行循环处理，得到列求和或列统计的结果。
2023-11-17 21:08:10
165
原创 鼎信诺取数出错解决
今天在外部审计机构审计过程中，需要用鼎信诺审计软件取数，我的系统为用友u9,华为云。在云服务器点击运行取数工具时，弹出多个如图窗口。显示 Jpeg processing erro的错误 ，内容为failed to create temporary file。2） 属性窗口中【高级】-【环境变量】-找到temp路径，点编辑将其原始路径复制下来。3）、在资源管理器中，将复制的路径粘贴到地址栏，进入temp文件夹。1） 首先，进桌面-我的电脑-右键找属性。这样清除该路径文件后，程序已经能正常运行了。
2023-03-10 14:11:22
2269
1
原创 “is not a valid date and time ”错误提示 的【排除故障】
我记得我建库时用的是日期类型，我在delphi中用的也是日期类型，但是asdatetime后赋值到日期时间变量就是通不过，总出此提示。网上查了一下，一般出现这种异常提示的原因是因为Win7系统时间格式不与管家数据库时间字段类型不一致所造。沉下心来一看，不对，我建库时的字段是日期型，不是日期时间型。将其改为日期时间型，两者就匹配上了。
2023-03-01 15:24:58
4137
原创 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
2115
原创 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
1205
原创 钉钉氚云到金碟之三 DELPHI从氚云下载数据
特别注意的是标红处的一些登录参数，要从钉钉氚云专业版系统处获得,然后替换。，才能登录下载.先将测试出来的代码上传，逐步完善说明。
2022-08-05 16:19:27
393
原创 钉钉氚云到金碟之二：测试凭证写入金碟KIS（DELPHI)
新建一个DELPHI 应用程序，建一FORM,放一按钮，最简单的FORM。在按钮中写入测试代码 ，如下：注释一下：1、红色1处，网上基本上搜不到相关代码，金碟的参考代码中也没有，费了九牛二虎之力测试出来。这也是本代码最终能生成凭证的关键所在，一个黑盒子，没这个，进不去。就这在网上，在代码堆城至少费了两天时间。巨抗，金碟的参考代码就省这个，不知啥意思。2、红色2处，这里不是日期型， 是字符型的3、红色3处，这里是出错代码，出错提示很详尽，很具有参考价值。上代码 ，通了就非常简单。procedure TFor
2022-07-13 23:05:49
465
2
原创 不能注册DLL/OCX：RegSvr32失败 0x5
为这个错误累死了，知道是权限的问题，但无从下手，查了一圏网上资料，包括在INNO SETUP安装配置文件中加入64位的标识之类的都做了，包括超级用户ADMINISTRATOR登录 ，还有设置用户权利，没想到仅仅关闭病毒软件就好了。基本是这个转载文的提示启发。WIN10 64位太难得搬弄了。我自己最终这样解决1、一定要关闭360，并且是要完全退出2、关闭Defender，关闭的步骤如下图将关闭防病毒程序配置为已启用===下为转载文章转载https://blog.csdn..
2021-04-06 20:10:59
15987
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
486
原创 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
9064
2
原创 氚云自定义报表
公司在钉钉系统中使用氚云搭建办公审批系统，功能自己也在逐步完善。现在想弄一个今年的合同数量统计、金额统计数作为首页面板。在报表系统中新建一个报表，数据源选合同表，然后将COUNT字段、金额字段拖到面板中去，加入筛选条件，并默认设置为本年时间。在单独进入报表时，显示并无问题，正确显示了本年的合同数，合同金额合计。但是放置到首页后，出现的结果是这些年全部的合同数与合同金额合计。这显示不符合我的...
2020-02-18 17:48:58
1685
原创 word中替换顺序号全半角函数中的体会
因着要完善WORD附注功能的，对WORD中的查找替换进行了一些深入研究，对编程中测试得到的心得做一个备忘记录。（1）、全角字会，我用的是AnsiString变量，这样用LENGHT()函数测试出来的是字符数，而不是字节数。并且copy函数得到的结果也是字符，而不是将全角字符截半成为一个非法字符了。（2）、对于WORD的替换操作放到了函数，便于长期性的操作。procedure Wor...
2020-02-16 15:09:50
269
1
原创 word附注格式研究之二：段落段前距、段后距、行间距的影响因素
研究结论1）、常规代码是 Selection.ParagraphFormat.SpaceBeforeAuto = False Selection.ParagraphFormat.LineUnitBefore = 0 Selection.ParagraphFormat.SpaceBefore = 22、如Selection.ParagraphFor...
2020-02-12 14:02:33
1334
原创 word附注研究：word的缩进影响因素
为了弄清Word中的缩进代码控制因素，近几天进行了大量的测试，得出以下结论1、Word.Options.UseCharacterUnit = True ，资料显示它主要控制段落以字符数作为单位控制缩进，TRUE表示是，FALSE表示，2、经测试无论TRUE,false都不影响3、CharacterUnitFirstLineIndent的优先级，定义了它的值word会以他的值作为...
2020-02-12 12:32:18
843
原创 word闪退故障解决
昨天一天在维护个人编写的WORD插件，在进行一些什么操作后突然发现：进入WORD后，在点击菜单上的【文件】项或右键时就闪退了。先是自救，试图删除全部的Word加载项，但是没有曲道去删除，唯一就是自己的插件在Delphi中自行卸载了。故障依旧。第二就是重新安装Office软件，安装时选择了修复文件。故障依旧第三就是修复windows系统文件，以管理员身份运行了cmd，在命令行中执行sfc...
2020-02-02 06:12:54
11852
原创 word附注生成工具注册问题解决
WORD附注工具经常有用户反应，注册码在发生变化。这种情况可能是因为WINDOWS的管理权限造成的。我的主程序是XLS2DOC.exe，您需要找到这个主文件，然后在主文件上右键选属性，出现以下对话框，勾选【以管理员的身份】运行。如果是EXCEL插件，则搜索EXCEL,EXE文件，同样在右键的属性中勾选【以管理员的身份】运行。...
2019-12-03 14:57:59
1123
转载 转：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
450
转载 Word文档表格中文字有淡灰色背景的去除方法
Word文档表格中文字有淡灰色背景的去除方法这个问题花了我半天的时间试图去解决，去背景色，去边框颜色试尽了，也存为HTM文件试图找出原因，未果。百度文库一搜，出来的结果根本没法解决问题，反而还是误导，但是在百度文库中偶然发现解决方法。本文非原创，引用文地址为：https://wenku.baidu.com/view/3f511a9551e79b8968022636.html。先看现象：...
2019-04-04 16:45:31
19828
5
原创 EXCEL附注生成WORD附注 的调试问题
在EXCEL附注生成WORD附注调试中，遇到Delphi资源重复定义的问题（“Duplicate resource”）出现大量的RESOURCES DISCARDED提示。解决思路:1)按网上的思路，将*.res文件全部删除，删除后让delphi编译重建。未解决2）联想到主要问题产生来源于为了重构软件，将变量及文件命名变得更可读，因此大量采用了另存为新文件名的方式。这样就道...
2019-03-10 13:54:28
1765
原创 xls2doc 工具更新完成
"word格式财务报表附注生成工具" "EXCEL表格转换为WORD文档工具"HTTp://www.cpasoft.com.cn 《xls2doc 工具》软件精致小巧，简单易用，针对性强。 可以一次性将EXCEL表格转化为格式完整的WORD文档，而且生成的WORD文档仍与EXCEL表格保持链接。EXCEL表格修改后，WORD文档可以快速保持同步一致。各种报告，尤其是财务报表附注...
2019-02-04 19:33:58
1717
1
原创 WORD附注工具艰难的调试经历
WORD附注工具艰难的调试经历 费了一整天，解决一个问题，就是关闭窗体时出现 “access violation at address”，"Invalid pointer operation"错误，首先查询了网上的大部分相关网页。 1）网上主要的解决思路是================Delphi 提示“access violation at address”错误解决：通常是对空地址...
2019-02-04 19:31:06
1260
原创 我的最新软件集
<br />卓悦注册会计师考试强化练习系统暂无下载（即将更新）这些软件均为本博客新推出的自编软件，拥有自己的版权。欢迎下载试用。使用中有任何问题请联系abc7105#126.com 中级会计师职称考试强化练习系统进入下载页初级会计师职称考试强化练习系统进入下载页审计工作底稿（能自动填写底稿信息）进入下载页(自由软件）
2011-05-28 07:16:00
921
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
1964
原创 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
676
原创 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
640
XLS2DOC.zip
2020-03-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人