随笔分类 -  Delphi

rmReport 自适应行高（自动行高）
摘要：这个问题 1.先中主项数据--属性--stretched(伸展):true 选中主项数据中的所有列--属性--其他属性--自动折行 --伸展 阅读全文
posted @ 2017-08-03 16:13 伪装大牛 阅读(692) 评论(0) 推荐(0)
delphi 7 mdi子窗体。。。无法更改以命令对象为源的记录集对象的 ActiveConnection 属性。
摘要：问题是这样的 我做了一个小程序 把 adoconnection放到了主窗体 连接的是access数据库; 新建了一个子窗体继承自FBase 新建了一个pubulic方法 qrySearch 实现了打开表; formCreate调用了qrySearch方法 ; public procedure qry 阅读全文
posted @ 2017-04-15 12:02 伪装大牛 阅读(1038) 评论(0) 推荐(0)
adostoredproc用法 因为用的少每次还得看一下代码，记下来
摘要：{1.关闭2.清除参数（固定的可省略）3.参数赋值4.打开（或执行）如果有感知控件的话 就会显示出结果}ADOStoredProc1.close; //关闭 ADOStoredProc1.parameters.parambyname(’@dwmc’).value:=’某某单位’; //参数传值 ADOStoredProc1.prepared:=true; //数据库做准备 ADOStored... 阅读全文
posted @ 2017-02-07 08:39 伪装大牛 阅读(575) 评论(0) 推荐(0)
SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问 （也就是跨数据库访问出错）
摘要：delphi ado 跨数据库访问 语句如下 报错内容是：SQL Server 阻止了对组件 'Ad Hoc Distributed Queries' 的 STATEMENT'OpenRowset/OpenDatasource' 的访问，因为此组件已作为此服务器安全配置的一部分而被关闭。系统管理员可 阅读全文
posted @ 2016-12-03 09:45 伪装大牛 阅读(338) 评论(0) 推荐(0)
关于delphi7的四舍五入
摘要：round 函数是银行用的 采用了 四舍六入5留偶 网上找到了个实现方法 先乘1000，用Trunc取整，除10取余，余数再取整，如果大于5，进位，小于5不进位。 函数就好写了 现在只写一个保留两个小数的例子 用到的可以扩展一下 阅读全文
posted @ 2016-08-02 09:10 伪装大牛 阅读(528) 评论(0) 推荐(0)
关于delphi exit 继承
摘要：父类窗体frm 继承下来一个子类 form2 父类按钮代码 子类按钮 除了2 别的都show出来了 所以父类中的 exit 只在父类中起做用 阅读全文
posted @ 2016-07-22 17:13 伪装大牛 阅读(234) 评论(0) 推荐(0)
delphi 取硬盘号
摘要：function GetVolumeID: string;var vVolumeNameBuffer: array[0..255] of Char; vVolumeSerialNumber: DWORD; vMaximumComponentLength: DWORD; vFileSystem... 阅读全文
posted @ 2015-12-15 09:12 伪装大牛 阅读(270) 评论(0) 推荐(0)
delphi 实现最小化系统托盘（rz控件最简单 评论）
摘要：1、new -->application 2、在form1中加入一个tPopMenu 命名为pm1 3、uses ShellAPI; 4、定义一个常量在 const WM_TRAYMSG = WM_USER + 101; 5、在private中生命变量 NotifyIcon: TNotifyIcon 阅读全文
posted @ 2015-06-23 17:00 伪装大牛 阅读(1973) 评论(1) 推荐(0)
Delphi 实现数字转大写
摘要：从网上找的一段代码/// /// 小写转大写/// /// /// function MoneyConvert(mmje: real): string;const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; functi... 阅读全文
posted @ 2015-05-08 20:55 伪装大牛 阅读(1131) 评论(0) 推荐(0)
Delphi dll 断点调试
摘要：1.dll 要有一个依托的exe（怎么做 相信用dll了一定知道）2.选项中的compling中的debugging中的选项，linking中的所有选项3.最后一个也就是最重要的 run中的parameters中的 host application选中依托的exe程序注：有时设好了设断点还是不执行 ... 阅读全文
posted @ 2015-04-19 10:25 伪装大牛 阅读(760) 评论(0) 推荐(0)
delphi 并发取数据库id问题
摘要：这段时间有个项目id频繁出现 id冲突的问题 一真找不到原因 后来想到了个办法 在新建取id时先把到到的id保存起来上代码 望大神指点下/// /// 到表中的最大id/// /// 字段名--必须是int型/// 表名/// 临时数据集/// 字段/// function TMainForm.Ge... 阅读全文
posted @ 2015-04-18 11:03 伪装大牛 阅读(490) 评论(0) 推荐(0)
delphi 取cpu号
摘要：从网上找的取cpu号 在d7中测试通过了 push,move,pop 。。。有点难现在的水平我也就只能拿来主义了/// /// 取cpu号/// /// function TForm1.GetCPUID: string;var _eax, _ebx, _ecx, _edx: Longword; ... 阅读全文
posted @ 2015-04-16 17:55 伪装大牛 阅读(559) 评论(0) 推荐(0)
delphi 默认值
摘要：只有全局变量才可以赋初值i:integer=0; 阅读全文
posted @ 2015-04-15 08:31 伪装大牛 阅读(678) 评论(0) 推荐(0)