关于MDI主窗体、窗体建立次序、及退出程序的问题

Question

现在四个窗体:
 fmFace : fsNornal    封面
fmMain: fsMDIForm;    主窗体
fmLogin: 由你定义     登录
DataMod:              数据模块要求: 
1、程序启动时只显示fmFace（LOGO），不能显示fmMain；
2、fmFace显示完毕后，保存它不消失，然后在后台创建datamod和fmMain ；
3、创建完毕后，时间在8秒 后，隐藏fmFace 或free,然后显示fmMain,再显示登录窗体（里面调用 DataMod 上的ADOConnecton）；
4、在登录窗体上，要求有按钮可以退出整个程序；
5、fmMain上可以退出整个程序。我现在的程序问题就是：最终退出程序时经常报内存错。发生情况是在访问了DataMod里的变量或过程或 数据集时。
请各位：
1、 或给一例程；
2、 或给一工程的 Unit 文件，告诉我如
begin
  Application.Initialize;
  fmFace.Show;
  Application.CreateForm(TfmMain, fmMain);
  Application.CreateForm(TfmFace, fmFace);
等的sourse文件
且给出退出整个程序的可靠代码
3、 我的程序现在在退出时，尝试了：
  Application.Terminate;
  或：postmsg(QUIT) 之类
急！ 

Answer 1

有的说是没free有些窗体，
我试着
DataMod.free;
fmFace.free;
...
也是内存报错！

Answer 2

工程文件正文部分大致如下：
begin
  Application.Initialize;
  fmSplash:=TfmSplash.Create(Application);//logo窗体
  fmSplash.Show;
  fmSplash.Update;
  Application.Title := 'xxx系统';
  Application.CreateForm(TfmMain, fmMain);//主窗体
  Application.CreateForm(TDM, DM);//数据模块
  Application.CreateForm(TfmAbout, fmAbout);//关于
  Application.CreateForm(TfmLogin, fmLogin);//登录
  fmSplash.Hide;
  fmSplash.Close;
  fmLogin.ShowModal;
  Application.Run;
end;

Answer 3

如要显示logo窗体8秒，在
fmSplash.Update;
后加句：
sleep(8000);

Answer 4

请楼上的大虾到
http://www.tanyong.com/test.rar
下载注意:我要求在 login中能退出全部程序.我现在做的系统就是: 只要在login中访问了数据库,再退出整个程序时,内存经常报错!

Answer 5

Application.CreateForm(Tfrm_login, frm_login);后面加一句
frm_login:=Tfrm_login.Create(nil);
可以不？
begin
    
    Application.Initialize;
    splash:=Tsplash.Create(application);
    splash.Show;
    splash.Update;
    Sleep(5000);
    Application.CreateForm(Tdm, dm);
  Application.CreateForm(Tfrm_login, frm_login);
  frm_login:=Tfrm_login.Create(nil);
  try
   splash.Hide;
   splash.Free;
   if frm_login.ShowModal<>mrOK then
   application.terminate;
   finally
    frm_login.Free;
   end;
  Application.Run;
end;

Answer 6

两位再请看一段出错的代码,告诉我为什么出错.
http://www.tanyong.com/err.rar

Answer 7

请email:
[email protected]
[email protected]

Answer 8

打开你的fmlogin，把Visible属性设置为false;