unit1.pas

显示数据表的内容

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, DB, DBTables,
  TeEngine, Series, TeeProcs, Chart, DbChart;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DBChart1: TDBChart;
    Series1: TPieSeries;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer;
  bookmarklist:TBookMarkList;  //定义一个TBookMarkList对象，以保存DBGrid1中的选择
  bookmark:TBookMarkStr;  //定义TBookMarkstr对象，是为了将TBookMarkList对象的内容取出
begin
  bookmark:=table1.bookmark;  //将Table1的BookMark赋给BookMark
  try
    ListBox1.clear;
    bookmarklist:=DbGrid1.SelectedRows;  //将DBGrid1的选择结果保存在BookMarkList中
    for i:=0 to bookmarklist.count-1 do  //将选择结果添加到列表框中
    begin
      Table1.Bookmark:=Bookmarklist[i];
      ListBox1.Items.Add(table1.FieldByName('Name').AsString);
    end;
  finally
  Table1.Bookmark:=Bookmark;
  end;
  BitBtn2.Enabled :=True;//使更新图表按钮可用
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
  i:integer;
  sql:string;
begin
  sql:='select * from animals ';
{动态查询}
  for i:=0 to listbox1.Items.Count -1 do
  begin
  if i=0 then
    sql:=sql+' where name ='''+ListBox1.Items[i]+''''
  else
    sql:=sql+' or name ='''+ListBox1.Items[i]+'''';
  end;
  Query1.Close ;//关闭查询
  Query1.Sql.Clear;//查询过程清除
  Query1.Sql.Add(sql);//添加查询结果
  Query1.Open ;//查询重新可用
end;

end.