关于exit在程序中的问题(30分)

在工程文件中，如下代码：
Application.Initialize;
Application.CreateForm(TDM, DM);
Application.CreateForm(TMainFrm, MainFrm);
if not assigned(LoginFrm) then
with LoginFrm do
try
LoginFrm := TLoginFrm.Create(Application);
LoginFrm.ShowModal;
if ModalResult = mrCancel then
begin
Application.Terminate;
// Exit;
end;
finally
Free;
end;
Application.Run;
其中，如果数据库用的是access，则在此用exit不会出现错误提示，如果用firebird数据库，则出现错误

楼上的程序结构太不可思议了，应该写成这样：
//先把LoginFrm这一全局变量的定义给删除掉
var
v_result:Integer;
.....
begin
Application.Initialize;
DM := TDM.Create(Application);
try
with TLoginFrm.Create(Application) do
v_result := ShowModal;
finally
Free;
end;
if v_result = mrCancel then

Exit //Application.Terminate
else
Application.CreateForm(TMainFrm, MainFrm);
Application.Run;
end.

有空到我的博客来坐坐： http://xieyunc.blog.163.com/

小宇飞刀 呵呵

cdj000，who？