unit1.~pas

Delphi_7.0数据库开发源代码。有内容十一章节

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, FMTBcd, DB, SqlExpr, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    ListView1: TListView;
    SQLConnection1: TSQLConnection;
    SQLDataSet1: TSQLDataSet;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j:Integer;
begin
  //判断是否有SQL语句
  if Edit1.Text = '' then
  begin
    ShowMessage('No SQL Statement!');
    exit;
  end;

  //执行SQL语句
  if SQLDataSet1.Active then
    SQLConnection1.Close;
  SQLDataSet1.CommandText := Edit1.Text;
  SQLDataSet1.Open;

  //将返回的数据集送到TListView显示。
		//先显示各列的标题
  ListView1.Items.Clear;
  ListView1.Columns.Clear;
  for i := 0 to SQLDataSet1.Fields.Count do
    with ListView1.Columns.Add do
      if i = 0 then
        Caption := 'NO.'
      else
        Caption := SQLDataSet1.Fields[i - 1].DisplayLabel ;
  j := 1;
  //接着显示数据
  SQLDataSet1.First;
  while not SQLDataSet1.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption := IntToStr(j);
      for i := 0 to SQLDataSet1.Fields.Count - 1 do
        SubItems.Add(SQLDataSet1.Fields[i].AsString);
    end;
    inc(j);
    SQLDataSet1.Next;
  end;
end;

end.