ADOConn连接数据库，弹出错误对话框

powre 2017-09-16 03:53:25

在运行Delphi项目文件时，弹出不知名的错误对话框。请问大神们有过这个经历吗？如何解决？

以下是项目文件的源代码：

program Project1;
uses
Forms,
USC in '进销存系统2\image\USC.pas' {SC},
UDM in '进销存系统2\image\UDM.pas' {DM: TDataModule};

{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TSC, SC);
Application.CreateForm(TDM, DM);
if not DM.ADOConn.Connected then //估计应该是这条语句出错，但数据库手动连接是正常的
begin
halt;
end;
Application.CreateForm(Tmain,main);
SC.Hide;
Sc.FreeOnRelease;
Application.CreateForm(TLOGIN,LOGIN);
LOGIN.ShowModal;
LOGIN.Free;
Application.Run;
end.

...全文

1617 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

jjpweb 2017-09-22

打赏
举报

单步调试吧，看不出来啥

秋天之落叶 2017-09-22

打赏
举报

呵呵，还没结帖啊，不用那么高深，我以前就常遇到这种错误， {DM: TDataModule} 改成 {DM} 立马可以编译。我猜，是因为引用定义太早了造成的。

yct0605 2017-09-22

打赏
举报


program Project1;
uses
  Forms,
  USC in '进销存系统2\image\USC.pas' {SC},
  UDM in '进销存系统2\image\UDM.pas' {DM: TDataModule};

{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TSC, SC);
  Application.CreateForm(Tmain,main);   {如果main是主窗体的话，应该创建在DM的前面}
  Application.CreateForm(TDM, DM);
   if not DM.ADOConn.Connected then       //估计应该是这条语句出错，但数据库手动连接是正常的
    begin
     halt;
     end;
  SC.Hide;
  Sc.FreeOnRelease;
  Application.CreateForm(TLOGIN,LOGIN);
  LOGIN.ShowModal;
  LOGIN.Free;
  Application.Run;
end.