1
11moom11
Unregistered / Unconfirmed
GUEST, unregistred user!
我的工程文件
begin
Application.Initialize;
try
Application.CreateForm(TDM, DM);//里面放有连接控件若干个
except
Application.Terminate;
end;
Form_login:= TForm_login.Create(Application);
if Form_login.ShowModal<>mrOK then
begin
Form_login.Close;
Form_login.Release;
Application.Terminate;
我目的是如果数据库路径被改动,程序就结束,可是我改变了数据库路径后,出现一个错误提示,Form_login还是弹了出来,Application.Terminate 好象没有起到作用,怎么回事?
begin
Application.Initialize;
try
Application.CreateForm(TDM, DM);//里面放有连接控件若干个
except
Application.Terminate;
end;
Form_login:= TForm_login.Create(Application);
if Form_login.ShowModal<>mrOK then
begin
Form_login.Close;
Form_login.Release;
Application.Terminate;
我目的是如果数据库路径被改动,程序就结束,可是我改变了数据库路径后,出现一个错误提示,Form_login还是弹了出来,Application.Terminate 好象没有起到作用,怎么回事?