delphi7 type中出现TIntegerField TStringField等，影响运行速度

Question

我做了一个界面，用了比较多的button  adodate等，但是在运行的时候发现在unit中type中出现了如下的代码：
type
    ADODataSet1pro_serial: TIntegerField;
    ADODataSet1st_pro_id: TStringField;
    ADODataSet1pro_name: TStringField;
    ADODataSet1pro_goods_style: TStringField;
    ADODataSet1pro_color2: TStringField;
    ADODataSet1pro_size2: TStringField;
    ADODataSet1pro_price_normal: TBCDField;
    ADODataSet1number: TBCDField;
而且运行速度也变慢了，其中  这个界面的formcreat代码是：
procedure Tsaleform.FormCreate(Sender: TObject);
begin
  edit7.Text:='';
  image1.Visible:=false;
  image2.Visible:=false;
  image3.Visible:=false;
  image4.Visible:=false;
  showdbgrid;
  dzh;
end;其中showdbgrid 和dzh 是调用的 过程我以为就是type中多了以上的代码所以影响速度，因为别的界面中同样用到adodate类 type中不会有 Tinteger Tstring等内容
但是我注销掉这些内容的时候，运行会报错 ：
---------------------------
Debugger Exception Notification
---------------------------
Project HLApos.exe raised exception class EClassNotFound with message 'Class TIntegerField not found'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
求各位高手教我怎么修改，谢谢

Answer 1

把这句注了速度就快了
showdbgrid/

Answer 2

  d_Start := GetTickCount;
  showdbgrid;
  dzh;
  d_End := GetTickCount;
   RaMsgbox(0, PChar('总共花了 ' + floattostr((d_End - d_Start) / 1000.0) + '秒 '),
   '', mb_ok);测试一下到底用了多少时间

Answer 3

就这个界面的formcreat就花了大概5S左右求帮助啊

Answer 4

在FormCreate 的Begin设置断点，单步调试，看哪个语句执行时间过长，或有没有大循环

Answer 5

流浪哥，之前我说过了，这个界面的formcreat是执行时间最长的  Application.CreateForm(Tsaleform, saleform);就是这句
而这个formcreat中的内容最上面有

Answer 6

formcreat执行时间长，那你把form上涉及数据库连接的控件的连接先禁掉看看呢

Answer 7

谢谢 funxu 
 我吧其中的连接dbgrid的adodataset改成了false 速度就变快了，可以仙子的疑问是为什么就关了个adodataset就会这么影响速度？而且别的界面也是这个连接的，速度就不会变慢呢？？？