小弟使用delphi不久,近日在编程遇到一个问题特求教一下
小弟使用一个模板,模板Name为data
想要在主窗体中调用data的ADOConnection1,利用Connected属性进行条件判断,
发现下面的语句将出错:
if data.ADOConnection1.Connected=true then
begin
N1.Enabled:=true;
N6.Enabled:=true;
N9.Enabled:=true;
N15.Enabled:=true;
N18.Enabled:=true;
end;出错的信息是这样子的:project project1.exe raised exception class EAccessViolation with message 'Access violation at address 004B7286 in module 'project1.exe'.Read of address 00000068'.Process stopped.Use Step or Run to continue.不知道问题出在哪里?垦请指出
小弟使用一个模板,模板Name为data
想要在主窗体中调用data的ADOConnection1,利用Connected属性进行条件判断,
发现下面的语句将出错:
if data.ADOConnection1.Connected=true then
begin
N1.Enabled:=true;
N6.Enabled:=true;
N9.Enabled:=true;
N15.Enabled:=true;
N18.Enabled:=true;
end;出错的信息是这样子的:project project1.exe raised exception class EAccessViolation with message 'Access violation at address 004B7286 in module 'project1.exe'.Read of address 00000068'.Process stopped.Use Step or Run to continue.不知道问题出在哪里?垦请指出
这样无法判断哦你可以把
N1.Enabled:=true;
N6.Enabled:=true;
N9.Enabled:=true;
N15.Enabled:=true;
N18.Enabled:=true;
这部分代码删除
取代为Showmessage('Connected');
看看还有问题没有
如果没有,问题就在取代的代码中
如果还有那就是你Connection的设置上有问题了
Application.CreateForm(Tdata,data);
//////////////////////
if data.ADOConnection1.Connected=true then
begin
N1.Enabled:=true;
N6.Enabled:=true;
N9.Enabled:=true;
N15.Enabled:=true;
N18.Enabled:=true;
end;
现在我还想问问各位大哥的是:为什么
N1.Enabled:=true;
N6.Enabled:=true;
N9.Enabled:=true;
N15.Enabled:=true;
N18.Enabled:=true;不能实现了呢?我要补充的是,N1......N18是TMenuItem里的Name名,我的目的是想在用户登录之后将菜单项置为可用,还有我的data是数据模板的名称:
TData = class(TDataModule) Data: TData;
为什么
N1.Enabled:=true;
N6.Enabled:=true;
N9.Enabled:=true;
N15.Enabled:=true;
不能实现了呢?我该怎么做?
N18.Enabled:=true;
uses 名字;