宝兰 - 博客园

摘要： {$APPTYPE CONSOLE} uses SysUtils, ActiveX, ComObj, Variants; function ListDrives : string; var FSWbemLocator : OLEVariant; objWMIService : OLEVariant; colDiskDrives : OLEVariant; ... 阅读全文

posted @ 2016-03-19 08:54 宝兰阅读(884) 评论(0) 推荐(0) 编辑

2016年3月16日

TDBGridEh的搜索面板 TDBGridSearchPanel

摘要： TCustomDBGridEh.Create FSearchPanelControl := TDBGridSearchPanelControlEh.Create(Self); //这里，创建的构造函数是另外一个类 with FSearchPanelControl do begin Parent := Self; Name := 'FSearchPanelCont... 阅读全文

posted @ 2016-03-16 19:39 宝兰阅读(850) 评论(0) 推荐(0) 编辑

2016年3月8日

TADOTable 用过滤事件后记录数据和记录的内容

摘要：用过滤事件，过滤后 ADOTbTrade.RecordCount 是总数，但是，记录内容是过滤后的 ADOTbTrade.First; while not ADOTbTrade.Eof do begin Log( ADOTbTradeid.AsString ); ADOTbTrade.Next 阅读全文

posted @ 2016-03-08 10:10 宝兰阅读(170) 评论(0) 推荐(0) 编辑

2016年3月3日

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 宝兰阅读(565) 评论(0) 推荐(0) 编辑

公告