动态创建显示两个数据库表的问题?
表: 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做循环条件, 改怎么写?