清除多余的临时文件

当我们编写代码和修改的时候会在当前文件夹产生一定的带~标识的临时文件,默认情况下是不会自己删除的。 这无疑增加了管理的难度,我们需要定时给清理一下,索性就弄个bat,需要的时候点击一下就可以了。 del *.obj del *.dcu del *.~* del *.hpp del *.dcp del *.dpl del *.cesettings del *.log del *.ilc del *.ild del *.ilf del *.ils del *.tds 将上述代码另存为clear.ba

表单自编号规则

以前开发的规则是从数据库中以计数形式累计+1,但是出现删除单据后会出现变的错乱。 遂又寻找方案,在群里,群主提到了他的编号规则,时间日期,产生一启发。 方案1: 代码:jbbh.Caption:='SC'+FormatDateTime('yymmddhhmmss',Now())+inttostr(Random(9));/ 一句话搞定,另或采用函数: 代码如下: function zibianhao(str1: string): string; {自编号//代码由序