R
ruik
Unregistered / Unconfirmed
GUEST, unregistred user!
数据模块中有一adoconnection1,设置好数据源。另一窗体引用它,在窗体的create事件中
调用一过程,在过程中动态创建了一adoquery。下面是自定义过程的代码:
procedure TfrmPAdd.Read_PAdd_Set(SName:String);
var
QDBCHECK : TADOQUERY;
BEGIN
TRY
QDBCHECK := TADOQUERY.Create(APPLICATION.OWNER);
QDBCHECK.Connection := DM.ADOConnection1;
QDBCHECK.Close;
QDBCHECK.SQL.Clear;
QDBCHECK.SQL.Add('SELECT * FROM SetUser');
QDBCHECK.SQL.Add(' WHERE SOption = ''' + SName + '''');
QDBCHECK.Open;
………………
提示这一行有问题 QDBCHECK.Connection := DM.ADOConnection1;
大概是说QDBCHECK没有初始化,在uses 中我已引用了数据模块。
我试验了一下,不引用数据模块上的adoconnection,直接放一adoconnection在窗体
上并设置好,编译完全通过。难道不能引用数据模块??不可能,请教朋友们帮我解决
一下。
调用一过程,在过程中动态创建了一adoquery。下面是自定义过程的代码:
procedure TfrmPAdd.Read_PAdd_Set(SName:String);
var
QDBCHECK : TADOQUERY;
BEGIN
TRY
QDBCHECK := TADOQUERY.Create(APPLICATION.OWNER);
QDBCHECK.Connection := DM.ADOConnection1;
QDBCHECK.Close;
QDBCHECK.SQL.Clear;
QDBCHECK.SQL.Add('SELECT * FROM SetUser');
QDBCHECK.SQL.Add(' WHERE SOption = ''' + SName + '''');
QDBCHECK.Open;
………………
提示这一行有问题 QDBCHECK.Connection := DM.ADOConnection1;
大概是说QDBCHECK没有初始化,在uses 中我已引用了数据模块。
我试验了一下,不引用数据模块上的adoconnection,直接放一adoconnection在窗体
上并设置好,编译完全通过。难道不能引用数据模块??不可能,请教朋友们帮我解决
一下。