随笔- 267  文章- 27  评论- 28  阅读- 10万 
03 2016 档案
可以用WMI来获取磁盘及分区编号
摘要:{$APPTYPE CONSOLE} uses SysUtils, ActiveX, ComObj, Variants; function ListDrives : string; var FSWbemLocator : OLEVariant; objWMIService : OLEVariant; colDiskDrives : OLEVariant; ... 阅读全文
posted @ 2016-03-19 08:54 宝兰 阅读(891) 评论(0) 推荐(0) 编辑
TDBGridEh的 搜索面板 TDBGridSearchPanel
摘要:TCustomDBGridEh.Create FSearchPanelControl := TDBGridSearchPanelControlEh.Create(Self); //这里,创建的构造函数是 另外一个类 with FSearchPanelControl do begin Parent := Self; Name := 'FSearchPanelCont... 阅读全文
posted @ 2016-03-16 19:39 宝兰 阅读(873) 评论(0) 推荐(0) 编辑
TADOTable 用过滤事件 后 记录数据和 记录的内容
摘要:用 过滤事件,过滤后 ADOTbTrade.RecordCount 是总数, 但是,记录内容是 过滤后的 ADOTbTrade.First; while not ADOTbTrade.Eof do begin Log( ADOTbTradeid.AsString ); ADOTbTrade.Next 阅读全文
posted @ 2016-03-08 10:10 宝兰 阅读(171) 评论(0) 推荐(0) 编辑
SelectedRows.CurrentRowSelected 和 DeleteItem
摘要:procedure TBMListEh.SetCurrentRowSelected(Value: Boolean); var Index: Integer; Current: TUniBookmarkEh; begin Current := CurrentRow; if Find(Current, 阅读全文
posted @ 2016-03-03 08:59 宝兰 阅读(568) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示