出现灾难性故障,急在线等。
程序在本人电脑上运行无任何问题。
在别的没装DELPHI的电脑上,运行时,点击其中的FORM出现灾难性故障。。
是在执行 adoconnection1.connected:=true; //连接数据库
时候出现了问题。所有FORM都是自动创建的,请问该怎么办?
相关代码如下,用到了adoconnection,adotable,adoquery,
procedure TForm3.FormCreate(Sender: TObject);
begin
adoconnection1.connected:=false;
adotable1.Active:=false;
end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adoconnection1.Connected:=false;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
adoconnection1.Connected:=true;
adotable1.Active:=true;
end;