写一个关于关于扫描DATABASE控件，并将所有的DATABASE连接到ORACALE上的函数，请各位大虾帮忙

Question

1、在工程初始化时调用：program project1;...begin
  Application.Initialize;
  ConnecteDatabase;//就在这调用
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Answer 1

      我测了一下好象没什么问题
      1。加入一个datamodule ，改变project 的属性使得 datamodule 先于 主窗体建立
      2.把所有的数据控件(batabase,table,query放到datamodule中
      3。datamoudule oncreate 中写
         Database1.AliasName
         Database1.Connected
         等；
      4。在project中        begin
          Application.Initialize;
          ConnecteDatabase;//初始化ini
          Application.CreateForm(TDataModule2, DataModule2);
           //datamodule 先于 主窗体建立
          Application.CreateForm(TForm1, Form1);
          Application.Run;
        end;        还有不是问题的问题 别忘了在 datamoule中uese TFoursunDatabase的单元
           需要显示数据的窗体uese datamodule的单元；
      最后谢谢你提供了一个练习打字的机会给我