录入界面继承后，动态创建ADOQuery,DataSource，做不出来.~~

Question

录入界面Simple做好了(有一个DbGrid)，并且在Simple文件里有
procedure TfrmSimple.FormCreate(Sender: TObject);
begin
// 不实现任何操作.
end;2、car文件. 继承自Simple.
TfrmCars = class(TfrmSimple) 
我想在car Create的时候，取出一个表的内容并且显示在DbGrid里.procedure TfrmCars.FormCreate(Sender: TObject);
var
  qyCars :TADOQuery;   
  //定义，但提示这里出错. [Error] carsConfig.pas(29): Undeclared identifier: 'TADOQuery'
  dsCars : TDataSource;
  //错误同上.
begin
  inherited;
 
try
  qyCars := TADOQuery.Create(self);
  dsCars := TDataSource.Create(self);
  //创建  qyCars.Connection := DM.Conn ;
  //连DM里的数据连接.
  dsCars.DataSet := qyCars;  DbGrid1.DataSource := dsCars;
  qyCars.Close;
  qyCars.SQL.Clear();
  qyCars.SQL.Add('select top 100 * from Cars');
  qyCars.Open;
  qyCars.Close ;
  qyCars.Free ;
finally
  qyCars.Close ;
  qyCars.Free ;end;--------
各位大侠给修改一个，怎样写?

Answer 1

uses
  SysUtils,ADODB,DB;