问题好象出在数据模块中用到的TQUERY组件太多,或者两个TQUERY同时连接了同一个数据表,发生重复打开数据库的错误.
但是,我不确定,想听听各位高手的高见!!在此拜谢了!!!

解决方案 »

  1.   

    program CII;uses
      Forms,
      MainForm in 'MainForm.pas' {Main},
      InputControl in 'InputControl.pas' {InputControlForm: TFrame},
      Source in 'Source.pas' {Data_Module: TDataModule},
      InputControl1 in 'InputControl1.pas' {Input: TFrame};{$R *.RES}begin
      Application.Initialize;
      Application.CreateForm(TMain, Main);
      Application.CreateForm(TData_Module, Data_Module); //同志们问题在这里!!!
      Application.Run;
    end.
    你们看到了没有,数据模块是建立在主窗体之后的!!!!你们明白了吧!!!!
    你的程序一定在主窗体的Create中用到了数据模块 是吧!!