[〓⑤⑦⑤⑥⑧③①②〓] invited Ma] [①⑤⑧⑧①⑧⑧⑧ official website hct728 point c0 m qryStage.First; // links inside the SQL Server Query
qryProductivity.First; // links to external SQL Server's Query
the while not qryStage.Eof or qryProductivity.Eof do / / this statement if there are errors I come .net accordance with the idea of?
the begin
CDS_Output.Insert;
CDS_Outputfac.Value: = 'ZD00';
CDS_Outputres.Value: = Copy (cbStage.Text, 1, 3);
iF not (cbShift. = the Text '') the then
the begin
IF StrToInt (cbStage.Text) in [010,020,030,060] the then
the begin
CDS_Outputarea.Value: = 'the DFZ-the POWER-SMD';
End
the else
the begin
CDS_Outputarea.Value: = 'the DFZ-the POWER-the 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.
I'm dividing line -------- ---------
Problem: The main is the case, I have to do is: to extract information on the local SQL server consolidation coupled with data on an external SQL server is displayed on a Grid control with
I spent two Connection, 2 query, and two ds. Sharing a DTicketDateset. As the code, the problem is certainly exist, because novice, it can not find the problem. Code format is a little problem, but also to ask discerning pointing pointing . (I hate the boss, but no way, Who is a professional programmer I do. either do not learn, to learn to Xue Daoshou.)