![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 58
西出阳关的故人
这个作者很懒,什么都没留下…
展开
-
delphi7下使用ejundatagrid的总结
ejundatagrid是一个国产的中国式报表控件,目前网络上已难见踪影,厂家网址也不失链了。在delphi7下,我用了很多的类excel、类stringgrid的控件,我觉是它是最好使用的控件,没有之一。就因为这个控件,我买了一套授权,且它不支持现在的delphi xe的最新版本,我写的主要程序都没有往xe上迁移。这个控件,可以与excel进行方 便交换数据,只需复制粘贴就可以将excel数据放入自己的软件中,也可以将结果快速导出或复制粘贴到excel,支持常规的公式。原创 2024-03-10 13:30:22 · 871 阅读 · 0 评论 -
财务会计凭证生成科目余额表的思路
这种适合一般的中小企业,数量量不大,我公司十年的数据将近四十万条,这样进行科目余额表的统计也非常快,不存在延迟等时间上不能接受的情况 ,具有一定的适用性。可能规范的用法,尽量减少访问全部数据,将每月的科目余额表作单独的存储,并且对会计凭证要进行记账结账,这样保证数据的访问量较小,并且更高效,只不过开发上麻烦一些。(5)、以上就是我们查询数据的全部内容,因为考虑到接受起止时间,因此,我将其做成了一个sqlserver的函数,全部代码 如下。科目代码,科目名称,一级代码 ,期初 ,借方 ,贷方 ,期末。原创 2024-03-10 13:10:30 · 485 阅读 · 0 评论 -
“is not a valid date and time ”错误提示 的【排除故障】
我记得我建库时用的是日期类型,我在delphi中用的也是日期类型,但是asdatetime后赋值到日期时间变量就是通不过,总出此提示。网上查了一下,一般出现这种异常提示的原因是因为Win7系统时间格式不与管家数据库时间字段类型不一致所造。沉下心来一看,不对,我建库时的字段是日期型,不是日期时间型。将其改为日期时间型,两者就匹配上了。原创 2023-03-01 15:24:58 · 4345 阅读 · 0 评论 -
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 · 2146 阅读 · 0 评论 -
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 · 1231 阅读 · 0 评论 -
钉钉氚云到金碟之三 DELPHI从氚云下载数据
特别注意的是标红处的一些登录参数,要从钉钉氚云专业版系统处获得,然后替换。,才能登录下载.先将测试出来的代码上传,逐步完善说明。原创 2022-08-05 16:19:27 · 399 阅读 · 0 评论 -
钉钉氚云到金碟之二:测试凭证写入金碟KIS(DELPHI)
新建一个DELPHI 应用程序,建一FORM,放一按钮,最简单的FORM。在按钮中写入测试代码 ,如下:注释一下:1、红色1处,网上基本上搜不到相关代码,金碟的参考代码中也没有,费了九牛二虎之力测试出来。这也是本代码最终能生成凭证的关键所在,一个黑盒子,没这个,进不去。就这在网上,在代码堆城至少费了两天时间。巨抗,金碟的参考代码就省这个,不知啥意思。2、红色2处,这里不是日期型, 是字符型的3、红色3处,这里是出错代码,出错提示很详尽,很具有参考价值。上代码 ,通了就非常简单。procedure TFor原创 2022-07-13 23:05:49 · 478 阅读 · 2 评论 -
钉钉氚云到金碟之一:金碟KIS专业版的DELPHI接口
钉钉氚云到金碟之一:金碟KIS专业版的DELPHI接口原创 2022-07-13 22:28:56 · 619 阅读 · 0 评论 -
不能注册DLL/OCX:RegSvr32失败 0x5
为这个错误累死了,知道是权限的问题,但无从下手,查了一圏网上资料,包括在INNO SETUP安装配置文件中加入64位的标识之类的都做了,包括超级用户ADMINISTRATOR登录 ,还有设置用户权利,没想到仅仅关闭病毒软件就好了。基本是这个转载文的提示启发。WIN10 64位太难得搬弄了。我自己最终这样解决1、一定要关闭360,并且是要完全退出2、关闭Defender,关闭的步骤如下图将关闭防病毒程序配置为已启用===下为转载文章转载https://blog.csdn..原创 2021-04-06 20:10:59 · 16280 阅读 · 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 · 499 阅读 · 0 评论 -
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 · 9185 阅读 · 2 评论 -
word中替换顺序号全半角函数中的体会
因着要完善WORD附注功能的,对WORD中的查找替换进行了一些深入研究,对编程中测试得到的心得做一个备忘记录。(1)、全角字会,我用的是AnsiString变量,这样用LENGHT()函数测试出来的是字符数,而不是字节数。并且copy函数得到的结果也是字符,而不是将全角字符截半成为一个非法字符了。(2)、对于WORD的替换操作放到了函数,便于长期性的操作。procedure Wor...原创 2020-02-16 15:09:50 · 272 阅读 · 1 评论 -
word附注研究:word的缩进影响因素
为了弄清Word中的缩进代码控制因素,近几天进行了大量的测试,得出以下结论1、Word.Options.UseCharacterUnit = True ,资料显示它主要控制段落以字符数作为单位控制缩进,TRUE表示是,FALSE表示,2、经测试无论TRUE,false都不影响3、CharacterUnitFirstLineIndent的优先级,定义了它的值word会以他的值作为...原创 2020-02-12 12:32:18 · 852 阅读 · 0 评论