2015年4月16日
摘要: vari:integer;t:OleVariant;begint:=EmbeddedWB1.Document;fori:=0tot.all.length-1dobeginift.all.item(i).tagName='INPUT'thenbeginift.all.item(i).type='che... 阅读全文
posted @ 2015-04-16 21:26 宝兰 阅读(322) 评论(0) 推荐(0) 编辑
2015年3月21日
摘要: 你好1你好2你好3 阅读全文
posted @ 2015-03-21 10:23 宝兰 阅读(96) 评论(0) 推荐(0) 编辑
2015年3月9日
摘要: http://www.02t.cn/article/code/102.htmlhttps://msdn.microsoft.com/en-us/library/windows/desktop/ms687393(v=vs.85).aspx一段代码,从2007转到XE 下,编译,运行,发现WinExec... 阅读全文
posted @ 2015-03-09 12:08 宝兰 阅读(747) 评论(0) 推荐(0) 编辑
2015年3月8日
摘要: http://www.computerperformance.co.uk/win8/windows8-uac-disable.htmhttps://msdn.microsoft.com/en-us/library/cc232765.aspx 阅读全文
posted @ 2015-03-08 13:40 宝兰 阅读(171) 评论(0) 推荐(0) 编辑
摘要: -【定制网格数据单元】 在数据单元中显示字段值为图形。 TDBGridEh allows to show bitmaps from TImageList component depending on field values. TDBGridEh 可以根据字段的值显示TImageList 组件中... 阅读全文
posted @ 2015-03-08 09:24 宝兰 阅读(342) 评论(0) 推荐(0) 编辑
2015年3月7日
摘要: procedure TFormLOrder.ModifyDB;var F: Integer;begin with TADOQuery.Create(nil) do try// ConnectionString := GetAdoAccConStr(SoftPath + SendDataD... 阅读全文
posted @ 2015-03-07 20:43 宝兰 阅读(715) 评论(0) 推荐(0) 编辑
2015年3月5日
摘要: 读取cds文件数据。FileName一定要在设计时输入,否则程序运行时,不会自动读取cds文件。因为FORM创建时,数据集组件也相应创建,如果是在运行时 设置FileName,那么是在数据集组件创建好后 才能给FileName赋值,所以不会自动读取cds文件。这样的话,就是不灵活,因为IDE下,没法... 阅读全文
posted @ 2015-03-05 10:15 宝兰 阅读(252) 评论(0) 推荐(0) 编辑
2015年3月3日
摘要: unit Unit2;interfaceuses SysUtils, Classes, DB, DBClient;type TDataModule2 = class(TDataModule) ClientDataSet1: TClientDataSet; DataSource1: T... 阅读全文
posted @ 2015-03-03 21:18 宝兰 阅读(424) 评论(0) 推荐(0) 编辑
2015年3月2日
摘要: DbgridEh 对应数据集ADOTable1,其中有个字段 部门编码,另外增加查找字段比如 部门名称ADOTable2对应查找数据集,包含 部门编码和 部门名称字段。ADOTable1 打开后,再运行ADOTable2.Close;ADOTable2.Open;后记录不是在第一个,需要再ADOTa... 阅读全文
posted @ 2015-03-02 10:48 宝兰 阅读(351) 评论(0) 推荐(0) 编辑
2015年3月1日
摘要: unit EhLibConsts;interfaceresourcestring SClearSelectedCellsEh = '清除选择的单元?'; SInvalidTextFormatEh = '错误的文本格式'; SInvalidVCLDBIFFormatEh = '错误的 VCLDB... 阅读全文
posted @ 2015-03-01 21:10 宝兰 阅读(385) 评论(0) 推荐(0) 编辑