摘要: 我们在用Delphi编译完程序,准备发布产品时,总希望随产品发布个性信息以标示产品的来源以及开发者等信息,就像windows的程序一样,使我们一看属性就知道他是微软的产品,这些在Delphi中是如何实现的呢?下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。 第一,给exe文件添加版 阅读全文
posted @ 2018-08-19 23:56 penginfo 阅读(333) 评论(0) 推荐(0) 编辑
摘要: delete 多表删除的使用 1、从数据表t1中把那些id值在数据表t2里有匹配的记录全删除掉DELETE t1 FROM t1,t2 WHERE t1.id=t2.id 或DELETE FROM t1 USING t1,t2 WHERE t1.id=t2.id 2、从数据表t1里在数据表t2里没有 阅读全文
posted @ 2018-08-19 23:43 penginfo 阅读(9427) 评论(0) 推荐(1) 编辑
摘要: 数据库设计规范是个技术含量相对低的话题,只需要对标准和规范的坚持即可做到。当系统越来越庞大,严格控制数据库的设计人员,并且有一份规范书供执行参考。在程序框架中,也有一份强制性的约定,当不遵守规范时报错误。 以下20个条款是我从一个超过1000个数据库表的大型ERP系统中提炼出来的设计约定,供参考。 阅读全文
posted @ 2018-07-24 11:05 penginfo 阅读(406) 评论(0) 推荐(0) 编辑
摘要: [tip] 组件模板(Component Template)是指修改后保存下来供以后再使用的一个或一组组件。 [/tip] 组件模板可用来创建、保存和重复使用组件组。实际上,组件模板不必是一组组件,完全可以是单个组件。举一个小例子对理解组件模板的用途会很有帮助,但先要简要介绍一下Windows编辑控 阅读全文
posted @ 2018-07-15 21:33 penginfo 阅读(208) 评论(0) 推荐(0) 编辑
摘要: maxHeight := 0; with cxPageControl1.ActivePage do begin for i := 0 to ControlCount 1 do begin t := TControl(Controls[i]); if maxHeight 21 then cxPageC 阅读全文
posted @ 2017-08-21 15:07 penginfo 阅读(377) 评论(0) 推荐(0) 编辑
摘要: function CheckProcessExist(const AFileName: string): Boolean; var //用于获得进程列表 hSnapshot: THandle; //用于查找进程 lppe: TProcessEntry32; //用于判断进程遍历是否完成 Found: 阅读全文
posted @ 2017-03-14 23:18 penginfo 阅读(1526) 评论(0) 推荐(0) 编辑
摘要: 1.Format 根据指定所需要的格式,格式化字符串。 原型: function Format(const Format: string; const Args: array of const): string; 例子: var s: string; begin //指令类型 type s := F 阅读全文
posted @ 2017-03-11 22:23 penginfo 阅读(2806) 评论(0) 推荐(0) 编辑
摘要: Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明: function Format(const Format: string; const Args: array of const): string; ove 阅读全文
posted @ 2017-03-11 22:05 penginfo 阅读(153) 评论(0) 推荐(0) 编辑
该文被密码保护。 阅读全文
posted @ 2017-03-10 22:23 penginfo 阅读(2) 评论(0) 推荐(0) 编辑
摘要: 库是否存在 if exists(select from master..sysdatabases where name=N'库名') print 'exists' else print 'not exists' 判断要创建的表名是否存在 if exists (select from dbo.syso 阅读全文
posted @ 2017-03-01 17:40 penginfo 阅读(642) 评论(0) 推荐(0) 编辑
摘要: 脚本备注示例 阅读全文
posted @ 2017-02-18 16:27 penginfo 阅读(361) 评论(0) 推荐(0) 编辑
摘要: ``` delphi procedure TfmPcSpriceAdj.btnGdsTypeKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var str1,str2: string; begin inherited; case Key of VK_RETURN: begin ... 阅读全文
posted @ 2016-11-02 00:56 penginfo 阅读(187) 评论(0) 推荐(0) 编辑
摘要: 1.过程备注 { 过程名: 作者: 日期: 参数: 返回值: 功能: } 阅读全文
posted @ 2016-10-29 20:29 penginfo 阅读(83) 评论(0) 推荐(0) 编辑