高手们，请帮我看看呀！！做了一个程序，有密码输入窗！运行是出现了如下问题：。。。。。 (50分)

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #1

出现了这样的问题提示！
project program1.exe raised exception class Eolesyserror with
message '尚未调用 CoInitialize '.process stopped . use step or
run to continue.
，以前用DBE控件和access，也是同样的方法却没有错，
现在用的是ADO控件，数据库为access就出错，是什么原因呢？[]
请您帮忙，谢谢！
（没有分了只有50了）

 

D

drawpharos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #2

把你生成和显示密码输入框的代码，还有出错附近的代码贴上来！
（用单步跟踪看运行到那一行出错）

 

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #3

主程序代码：
begin
form2:=tform2.Create(application); 〈===运行到此就出错了！[]
form2.ShowModal;
if form2.ModalResult =1 then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
密码窗的代码：
。。。。
if (用户名为真) and (密码为真) then
modalresult:=mrok
else
showmessage('用户名或密码错误啦！不要乱来嘛！！');
。。。。。。

 

D

drawpharos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #4

Form2的oncreate或onactive都写什么了吗？
是不是有数据库操作？
操作间有没有建立连接贺打开数据库？

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #5

》》 form2:=tform2.Create(application); 〈===运行到此就出错了！[]

在option中 Auto createform 中去掉了form2没有？？？

 

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #6

procedure TForm2.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bhdata/数据库.mdb;Persist Security Info=False';
adoconnection1.Connected:=true;
end;
在form1里也有类似的代码！onactive里没有东西！
》》to jrp 已经去掉了，加到了右边的Available forms里了！

 

D

drawpharos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #7

将onformcreate改为onformshow
onformactive事件的限制很多，好些类型的代码需要放到其他事件中去！

 

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #8

>>>>>>drawpharos
>>>>>>将onformcreate改为onformshow
我按你说的做了，并且把oncreate里的去掉了！
但还是出现同样错误！[][][][]

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #9

[]呵呵，不好意思，发言错误。
看看这个
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=725469

 

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #10

>>>>>kingdeezj,
>>>>>form2:=tform2.Create(application);
>>>>>改成form2:=tform2.Create(nil);
还是一样的错误！！！
我怎么办啊！怎么样DBE的控件，几乎一样的代码就没有出现现在的错误呢！
（DBE用的是静态的连接）[][][][]

 

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #11

[][][][][]
高手，有劳您了！
帮帮我吧！

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #12

[]呵呵，不好意思，发言错误。
看看这个
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=725469

 

F

fan_dph

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #13

重新启动一下计算机试试！

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #14

有一个很简单的方法修改如下：
begin
Application.Initialize;
form2:=tform2.Create(application); 〈===写在Initialize语句后面。
form2.ShowModal;
if form2.ModalResult =1 then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

 

O

oulin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #15

>>>>kingdeezj
你早就该告诉我最简单的方法了！
我喜欢最简单的方法！

你能解析以下为什么这样吗？？
谢谢！！！[][][][][][][][][^][^][^][^][^]

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #16

呵呵，还不因为没有初始化。看这个贴子：
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=725469