DELPHI 7 用ADO里的ADOQUERY做主从表，总是报错

Question

exhiStr:='SELECT a.enterpid as enterpid, a.enterpname, a.enterpaddr, a.enterpzip, a.enterptel, a.enterpfax, ' +
        'a.enterpemail,a.enterpweb,a.enterptype, a.enterpsize, a.enterpnature, a.enterpmemo, a.prid, ' +
        'a.prname, a.cldid, a.cldname, a.personid, a.personname, a.personjobs, b.prjenterpid, b.prjid, ' +
        'b.userid, b.enterpimp, b.prjenterpinsdate, b.prjenterpupddate, b.personmain, c.prjname' +
        ' FROM venterpandperson a, prjenterpinfo b, projectinfo c ' +
        ' WHERE (((a.enterpid = b.enterpid) AND (b.prjid = c.prjid)) AND (a.personid = b.personid))';
    RzDBGrid1.DataSource:=DM.DSListEnterp;
    {DM.DSListEnterp.DataSet:=DM.DQListEnterp;}
    DM.DQListEnterp.Close;
    DM.DQListEnterp.sql.clear;
    DM.DQListEnterp.SQL.Add(exhiStr);
    DM.DQListEnterp.Open ;
    {enterpStr:=;}
    DM.DQenterpmore.DataSource:=DM.DSListEnterp;
    DM.DQenterpmore.Close;
    DM.DQenterpmore.SQL.Clear;
    DM.DQenterpmore.SQL.Add('select enterpid,enterpname from enterpinfo where enterpid =:enterpid');
    DM.DQenterpmore.Prepared :=true;
    DM.DQenterpmore.Open;上面这样的代码，总是报parameter object is improperly defined的错误

Answer 1

主从表不是这样做的，Delphi的Demo中有例子，可先看看

Answer 2

你的错误在这一行，设置了:enterpid参数，却没给参数赋值，就打开Query，所以报错了DM.DQenterpmore.SQL.Add('select enterpid,enterpname from enterpinfo where enterpid =:enterpid');

Answer 3

DEMO里是用ADODATASET来做的,用ADOQUERY不可以吗?

Answer 4

{DM.DSListEnterp.DataSet:=DM.DQListEnterp;}老大， 这句话 为什么 注释掉？拿掉后， 应该 就可以了。

Answer 5

我记得主从表很好做的，对ADOQUARY的SQL语句写完整后，设置一个主面一个从面就可以了

Answer 6

DM.DQenterpmore.SQL.Add('select enterpid,enterpname from enterpinfo where enterpid =:enterpid');
这句，设了参数，后面赋值