try    cn.Open;    form1.show;(WELCOME)
  except
    showmessage('错误源:'+cn.errors.Item[0].Get_Source
       +chr(10)+'描述:'+cn.errors.Item[0].Get_Description
       +chr(10)+'状态:'+cn.errors.Item[0].Get_SQLState
       +chr(10)+'错误代码:'+inttostr(cn.Errors.Item[0].Get_Number)
       +chr(10)+'NATIVE错误:'+inttostr(cn.Errors.Item[0].Get_NativeError)
        );    result:=false;
    cn.Close;
    exit;
connect_wizard.SHOW;
//SQL CONNECT WIZARD
  end;

解决方案 »

  1.   

    1。先创建SPLASH窗体。(普通窗体)
    2。Project|option中把SPLASH设置为Available
    3。修改你的DPR文档。
    begin
    application.initialize;
    From2:=form2.create(application); //form2为SPLASH
    Form2.show;
    form2.update;
    applicatoin.createform(TForm1,Form1);//Form1为主窗体
    //可以加SLEEP()延时。
    Form2.hide;
    Form2.free;
    Application.run;
    end.
      

  2.   


      我要的是在 连接数据库(连接时时间较长)
      时要 **动态** 显示WELCOME FORM上的字符。  是要用到多线程吧!    
      

  3.   

    program Mclient;uses
      Forms,
      com in 'com.pas' {fcom},
      vishex in 'vishex.pas' {Fvishex},
      sz in 'sz.pas' {fsz},
      visch in 'visch.pas' {fvisch},
      uimage in 'uimage.pas' {fimage},
      GIFImage in 'gifimage.pas',
      addimage in 'addimage.pas' {faddimage},
      main in 'main.pas' {Fmain},
      mdata in 'mdata.pas' {fmdata: TDataModule},
      energy in 'energy.pas' {fenergy},
      logno in 'logno.pas' {Flogno},
      look in 'look.pas' {flook},
      admdel in 'admdel.pas' {fadmdel},
      admedit in 'admedit.pas' {fadmedit},
      admini in 'admini.pas' {fadmin},
      other in 'other.pas' {fother};{$R *.RES}begin
      Application.Initialize;
      try
      begin
       Application.Title := '三相电子式多功能电度表抄表软件';
       Application.CreateForm(Tfmdata, fmdata);
       flogno:= Tflogno.Create(Application);
       flogno.ShowModal;
      if logno.logno_ok then
      begin
      Application.CreateForm(TFmain, Fmain);
      Application.CreateForm(TFlogno, Flogno);
      Application.CreateForm(Tfcom, fcom);
      Application.CreateForm(Tfvisch, fvisch);
      Application.CreateForm(TFvishex, Fvishex);
      Application.CreateForm(Tfimage, fimage);
      Application.CreateForm(Tfsz, fsz);  
      Application.CreateForm(Tfaddimage, faddimage);
      Application.CreateForm(Tfenergy, fenergy);
      Application.CreateForm(Tflook, flook);
      Application.CreateForm(Tfadmdel, fadmdel);
      Application.CreateForm(Tfadmedit, fadmedit);
      Application.CreateForm(Tfadmin, fadmin);
      Application.CreateForm(Tfother, fother);
      end;
      Application.Run;
      end;
              except
                  begin                   application.Terminate;
                  end;
      end;end.
      

  4.   

    flogno可以更换成你喜欢的启动界面