VirtualStringTree连接数据库实时刷新问题
VirtualStringTree和DBGird都连接同一数据库表，当点击按钮表的“数量”列的记录发上变化，DBGird的“数量”可以实时刷新，但是怎么能实现VirtualStringTree的“数量”实时刷新？
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, VirtualTrees, StdCtrls, Grids, DBGrids, DB, ADODB;
type
PCustRec = ^TCustRec;
TCustRec = record
id: WideString;
zubie: WideString;
shuliang: WideString;
end;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button1: TButton;
VSTree: TVirtualStringTree;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure VSTreeInitNode(Sender: TBaseVirtualTree;
ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
procedure VSTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
sl: Integer;
begin
sl := ADOQuery1.FieldByName('shuliang').AsInteger;
ADOQuery1.First;
with ADOQuery1 do
begin
Edit;
FieldByName('shuliang').AsInteger := sl + 1;
Post;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
VSTree.BeginUpdate;
VSTree.NodeDataSize := Sizeof(TCustRec);
VSTree.RootNodeCount := ADOQuery1.RecordCount;
VSTree.EndUpdate;
end;
procedure TForm1.VSTreeInitNode(Sender: TBaseVirtualTree;
ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
var
CustomerRecord: PcustRec;
begin
CustomerRecord := Sender.GetNodeData(Node);
Initialize(CustomerRecord^);
CustomerRecord^.id := ADOQuery1.FieldByName('id').AsString;
CustomerRecord^.zubie := ADOQuery1.FieldByName('zubie').AsString;
CustomerRecord^.shuliang := ADOQuery1.FieldByName('shuliang').AsString;
if not ADOQuery1.EOF then ADOQuery1.Next;
end;
procedure TForm1.VSTreeGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
var
CustomerRecord: PcustRec;
begin
CustomerRecord := Sender.GetNodeData(Node);
case Column of
0: CellText := CustomerRecord^.id;
1: CellText := CustomerRecord^.zubie;
2: CellText := CustomerRecord^.shuliang;
else CellText := '';
end;
end;
end.
