Delphi, 初学者的难题.望大虾指教
qryStage.First; //链接内部服务器SQL的query
qryProductivity.First; //链接外部服务器SQL的query
while not qryStage.Eof or qryProductivity.Eof do //此语句是否存在错误?我按照.net的思路来的
begin
CDS_Output.Insert;
CDS_Outputfac.Value := 'ZD00';
CDS_Outputres.Value := Copy(cbStage.Text,1,3);
if not (cbShift.Text = '') then
begin
if StrToInt(cbStage.Text) in [010,020,030,060] then
begin
CDS_Outputarea.Value := 'DFZ-POWER-SMD';
end
else
begin
CDS_Outputarea.Value := 'DFZ-POWER-SPI';
end;
end;
CDS_Outputdate.Value := qryStage.fieldbyname('outputdate').AsInteger;
CDS_Outputshift.Value := qryStage.fieldbyname('outputPeriod').AsString;
CDS_Outputline.Value := qryStage.fieldbyname('Line').AsString;
CDS_Outputlinetype.Value := qryStage.fieldbyname('Line').AsString;
CDS_Outputitem.Value := qryStage.fieldbyname('bcno').AsInteger;
CDS_Outputmodel.Value := qryStage.fieldbyname('bc_model').AsString;
CDS_Outputpn.Value := qryStage.fieldbyname('bc_part_no').AsString;
CDS_Outputoutput.Value:= qryStage.fieldbyname('OutputQty').AsInteger;
//提取外部服务器SQL资料并显示在Grid上面
CDS_Outputmanpower.Value := qryProductivity.fieldbyname('manpower').AsString;
CDS_Outputlabor.Value := qryProductivity.fieldbyname('labor').AsString;
CDS_Outputqa1.Value := qryProductivity.fieldbyname('qa').AsString;
CDS_Outputonoff1.Value:= qryProductivity.fieldbyname('onoff').AsString;
CDS_Output.Post;
qryStage.Next;
qryProductivity.Next;
end;
end;
procedure Tproductivity.FormCreate(Sender: TObject);
begin
CDS_Output.CreateDataSet;
end;
procedure Tproductivity.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CDS_Output.Destroy;
end;
end.
--------我是分割线---------
问题: 主要是这样,我要做的是:提取本地SQL服务器上的资料.加上外部SQL服务器上的资料合并一起显示在一个Grid控件上
我用了2个Connection,2个query,和2个ds. 共享一个DTicketDateset. 代码如上,问题是肯定存在的.因为初学,所以找不到问题所在.代码格式也是有点问题,还请教明眼人指点指点.(我恨老板,但是没办法,谁让俺是一个专业的程序员呢.要么不学,要学就学到手.)