用ado使用数据模块的问题?(50分)

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在窗体
上并设置好,编译完全通过。难道不能引用数据模块??不可能,请教朋友们帮我解决
一下。
 
你的数据模块是否第一个创建的模块?
project -> options -> auto create forms
 
不是的。
 
谢谢xiao_ping的提醒,我把DM窗体放到第一个自动创建的窗体上就没事了。
也谢谢另一个朋友willknow,他给另一位朋友的回答很详细,正是我要的答案。来后也
给分。
 
to xiao_ping:
我刚才单独给你25分没想到分配不出去,这样,委屈一下,待willknow来后一起给。若他不
来,就给你。分太少,不好意思,还望以后帮助。
 
哈哈,我来了.
 
没想到,歪打正着.
 
啥原因不清楚啊,,,我想听听。
 
多人接受答案了。
 
顶部