很小的问题

[hlilna]

我的datasource,adoquery都放在datamodule中，我启动登陆菜单时要访问数据集，我想先初始化datamodule却报错，

[hlilna]

我的datamodule不是自动创建的，且登陆菜单创建是在主窗口之前

[di2000]

实在不行就把datasource,adoquery都放在启动登陆菜单

[hlilna]

di2000(敢耍大刀的人):但我的database还是在datamodule中，

EntryFrm := TEntryFrm.Create(Application); //创建它的时候datamodule还没创建
EntryFrm.ShowModal;
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
Application.CreateForm(TDataModuleFrm, DataModuleFrm);
EntryFrm.Free;
Application.Run;

[zfmich]

你可以在主窗体中调用登录窗体。我们就是这样做的。

[hlilna]

zfmich():谢谢你，不过我不能这样做，谁有好办法？

[hlilna]

我想知道

[caoyq]

要首先创建数据模块。
这是我们的工程文件。
begin
Application.Initialize;
FormSplash:=TFormSplash.Create(Application);
FormSplash.show;//闪现窗体
FormSplash.Refresh;
Application.HelpFile := 'fa2000.hlp';
Application.Title := '********管理系统';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TFormDesk, FormDesk);
Application.CreateForm(TDataModuleConnect, DataModuleConnect);
Application.CreateForm(TDataModuleDataPub2000, DataModuleDataPub2000);
Application.CreateForm(TDMClient_FA2000, DMClient_FA2000);
Application.CreateForm(TDMClientPUB, DMClientPUB);
Application.CreateForm(TDMClientHF, DMClientHF);
Application.CreateForm(TDMClient_GLX, DMClient_GLX);
Application.CreateForm(TFormLogin, FormLogin);
FormLogin.showmodal;//登陆窗体
FormLogin.free;
Application.Run;
end.

[zenartus]

我想是顺序问题

[hlilna]

谢谢 caoyq(草民呆瓜)　
谢谢各位

[zfmich]

初始化datamodule?
把ADOCONNECTION也放在datamodule中，就直接调用就可以呀。

[liang_z]

在工程文件中让DataModule先创建！