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;
解决方案 »
- C++ 的编译器就是慢啊?
- Opendialog和SaveDialog目录访问问题?
- 生日散分
- 写了一个生成树的类,生成树的时候有问题,不知道那里原因。
- 如何让已处于运行阶段的执行程序不再让它重复运行且恢复原窗口大小并置最前端?
- 在Delphi里面怎么声明链表,我是死活都通不过去。
- 急救!!!
- delphi打开帮助后不能关机?
- 将数据库内容导入Excel并保存(附源代码):procedure WriteDatasetToExcel(AQueryName: TQuery; AStrVar: String);
- 十万火急!!!急!急!急!Delphi中Table的onUpdateRecord 事件到底是什么回事?
- 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.