unit1.pas

来自「Delphi7应用编程150例附书源码.rar」· PAS 代码 · 共 47 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
    TempQuery:TQuery;
begin
    TempQuery:=TQuery.Create(nil);
    TempQuery.DatabaseName:= 'DBDEMOS';
    TempQuery.SQL.Add('Select * from animals');
    TempQuery.Open;
    if TempQuery.Eof and TempQuery.Eof then
    begin
        ShowMessage('没有记录');
    end
    else
    begin
        TempQuery.Last;
        TempQuery.First;
        ShowMessage('记录数目为:'+IntToStr(TempQuery.RecordCount));
    end;
end;

end.