动态创建显示两个数据库表的问题?

Question

表:   PIPELINESET                PIPELINEWORK
项名:   pipeID                      pipeWorkID  
        PipeNo                      PipeNO
        PIpeName                    PipeWorkNo
                                    PipeLineName
                                    UserID
代码:procedure TAttdPipeLineFrm.CreatePipeLinePnlField;
  var
    pTop,pLeft: longint;
  procedure PipeLIneNameField(pFieldName: string)
  begin  procedure CreatePnlPipelineNoField(AFieldName,ACaption: string);
  begin
    with TLabel.Create(PnlPipeLine) do
    begin
      Parent := PnlPipeLine;
      Left := 23;
      Top  := pTop + 30;
      Caption := ACaption;
      Name    := 'lbl' + AFieldName;
    end;
    pTop := pTop + 60;
  end;  procedure CreatePnlPipelineWorkNoField(AFieldName,ACaption: string);
  begin
    with TLabel.Create(PnlPipeLine) do
    begin
      Parent := PnlPipeLine;
      Left := pLeft + 90;
      Top  := pTop;
      Caption := ACaption;
      Name    := 'edt' + AFieldName;
    end;
    pLeft := pLeft + 90;
  end;begin
  inherited;
  pTop := 20;
  pLeft := 30;
  with IDcardDM.dtMaster do
  begin
    Close;
    CommandText := 'select * from AttdPipeLineSet';
    Open;
    First;
    while not Eof do
    begin      if FieldByName('PipeNo').AsString <> '' then
      CreatePnlPipelineNoField(FieldByName('PipeNo').AsString,FieldByName('PipeName').AsString);
      Next;
    end;
  end;
end;这上面的代码只是取到了PipeLineSet上的列名显示,  我想对应的显示在PipeLineWork上的的相关数据,   遇到的问题是怎么在PipeLineSet中顺序取到一个唯一的值给PipeLineWork做循环条件,  改怎么写?

Answer 1

菜鸟的问题,  有答就有分!