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;
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;
解决方案 »
- delphi怎么实现半透明不规则窗口呢?
- 请问DBExpress的StoredProcName属性时,不能出现数据库中的存储过程,是什么原因?
- 用解压所控件VCLUnZip解压文件时的一个问题!!!
- 关于树型控件的小问题
- delphi控制word问题
- 请问我在另一台机器上做的APPLICATION窗体怎么引用
- 谁知道怎么判断某一字符串是否在一个字符串数组里?
- 如何在DBGrid里加一列复选框?
- 应用程序服务器的问题--interface not Supported!
- ???????????????????????
- RichEdit的LoadFromStream为什么不能显示带rtf信息的stream?
- 100分求算法
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.
我要的是在 连接数据库(连接时时间较长)
时要 **动态** 显示WELCOME FORM上的字符。 是要用到多线程吧!
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.