我是手工编写的。请各位帮我看看,谢谢!
procedure TForm1.FormShow(Sender: TObject);
begin
QuickRep1.DataSet:=U_dm1.datamodule1.Adoquery1;
QRDBText1.Dataset:=U_dm1.dataModule1.ADOquery1;
QRDBText1.DataField:=U_dm1.datamodule1.ADOQuery1.Fields[1].asstring;
QRDBText2.Dataset:=U_dm1.dataModule1.ADOQuery1;
QRDBText2.DataField:=U_dm1.dataModule1.ADOQuery1.Fields[3].Asstring;
QRDBText3.Dataset:=U_dm1.dataModule1.ADOQuery1;
QRDBText3.DataField:=U_dm1.datamodule1.ADoQuery1.Fields[2].Asstring;
QRDBText4.Dataset:=U_dm1.dataModule1.adoQuery1;
QRDBText4.DataField:=U_dm1.dataModule1.ADOQuery1.Fields[4].asstring;
QRDBText5.Dataset:=U_dm1.dataModule1.ADOQuery1;
QRDBText5.DataField:=U_dm1.datamodule1.ADOQuery1.Fields[5].Asstring;
QRDBText6.Dataset:=U_dm1.dataModule1.ADOQuery1;
QRDBText6.DataField:=U_dm1.dataModule1.ADOQuery1.Fields[6].asstring;
QRDBText7.DataSet:=U_dm1.DataModule1.ADOQuery1;
QRDBText7.DataField:=U_dm1.DataModule1.ADOQuery1.Fields[6].AsString;
QRDBText9.DataSet:=U_dm1.DataModule1.ADOQuery1;
QRDBText9.DataField:=U_dm1.DataModule1.ADOQuery1.Fields[7].AsString;
end;
该设的应该够设置了吧?