很小的问题 初始化datamodule?把ADOCONNECTION也放在datamodule中,就直接调用就可以呀。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在工程文件中让DataModule先创建! 我的datamodule不是自动创建的,且登陆菜单创建是在主窗口之前 实在不行就把datasource,adoquery都放在启动登陆菜单 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():谢谢你,不过我不能这样做,谁有好办法? 要首先创建数据模块。这是我们的工程文件。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. 谢谢 caoyq(草民呆瓜) 谢谢各位 delphiXE restful提交数据 奇怪的问题 如何给windows目录加密? 紧急问题大求助!!!!!!!!!!!!!!在线等待 怎樣使用activeskin???? 人生,我很迷茫! 我准备学Delphi了,Delphi的师兄师姐,请多关照哟!! Delphi怎么调试程序? 谁有Delphi 5企业级解决方案及应用剖析一书的源代码? 开发、维护DELPHI应用程序用笔记本电脑好,还台式机好?? 有关delphi调用excel中数据的问题 做数据库用DELPHI会后悔...
EntryFrm.ShowModal;
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
Application.CreateForm(TDataModuleFrm, DataModuleFrm);
EntryFrm.Free;
Application.Run;
这是我们的工程文件。
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.
谢谢各位