计算机二级DELPHI控件:ListView控件使用方法计算机二级考试

文章作者 100test 发表时间 2009:04:30 03:54:35
来源 100Test.Com百考试题网

　　2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
ListView拥有灵活易用的特点，它是Windows的标准控件。做过数据库的朋友都知道，ListView在插入大量的数据时会很慢很慢（如果你是用*DBGrid，那就算了:）。通过测试，即使是使用oracle10g，列出10w条数据也要几十秒（也可能是我机子太慢了），而且还占用很大的内存。参照msdn里面的内容，说简单点是这样的：因为ListView插入一条Item时，它会同时插入Item所对应的数据，也就是说ListView中的Item拥有一块数据区，这数据区用来保存Item的信息（标题、字体等等）。所以Item一多，初始化这些数据区就很慢了。
　　而Virtual List不一样，ListView中每一条Item不会拥有自己的数据，当要显示数据时，它会发送消息问父窗体索要显示的内容。所以在父窗体接受相应的消息，再配合数据库记录的移动，就可以实现数据库结合Virtual List的功能了。
　　具体实现方法如下（Delphi7和Delphi2006都封装了Virtual List，老Delphi没试过）：
　　首先，在窗体上添加一个控件：TListview(Win32页)、不用改名。
　　添加如下代码：
　　procedure TForm1.FormCreate( Sender: TObject ).
　　begin
　　with ListView1 do
　　begin
　　ViewStyle := vsReport.
　　OwnerData := True.
　　Items.Count := 10000. // 注意：在此处必须主动的设置Virtual List的行数
　　with Columns.Add do
　　Caption := ’行号’.
　　end.
　　end.
　　// ListView的OnData事件
　　procedure TForm1.ListView1Data( Sender: TObject. Item: TListItem ).
　　begin
　　Item.Caption := IntToStr( Item.Index ).
　　end.
　　大家可以看到，OnData事件用来接收Virtual List传过来的需要显示的Item，大家可以在这个事件里对Item的相关信息进行显示。
　　注意：由于Virtual List的Item不保存任何数据，所以在OnData事件中经过显示后的Item仍然不具有任何数据。因此，即使遍历完所有Item的显示，还会不停的激发OnData事件，Virtual List的Item需要你给它数据进行显示，而不是给它数据进行保存。
　　正因为Virtual List有这个特性，所以我们可以很好的利用这个特性和数据库结合。因为我们用数据库保存数据，而用Virtual List把它显示出来。我们可以通过OnData事件中Item的索引值（Item.Index)来移动ado记录集指针(Recordset.Move)到这个指针，然后获取当前记录集上的数据显示出来就可以了。
　　只要改上面的两个地方：
　　Items.Count := Recordset.RecordCount. // 获取记录集的行数
　　在OnData里面：
　　Items.Caption := Recordset.Fields[ Item.Index ].Value.
　　……
　　相信大家都知道原理了，那么动手做吧：）
　　在压缩包里带了两个代码，一个是简单的Virtual List演示，另外一个是Virtual List结合ado列出数据的演示。
　　大家可以在msdn上通过索引“VListVw: Virtual ListView Control Sample”，可以了解一下VirtualList的sdk例子。
　　unit untMain.
　　interface
　　uses
　　Windows,
　　Messages,
　　SysUtils,
　　Variants,
　　Classes,
　　Graphics,
　　Controls,
　　Forms,
　　Dialogs,
　　ADODB_TLB,
　　ComCtrls,
　　StdCtrls,
　　TVLUtils.
　　type
　　TfrmMain = class( TForm )
　　lvwMain: TListView.
　　btnStart: TButton.
　　procedure FormCreate( Sender: TObject ).
　　procedure btnStartClick( Sender: TObject ).
　　procedure lvwMainData( Sender: TObject. Item: TListItem ).
　　procedure FormDestroy( Sender: TObject ).