我是第一次用Quick Report,所以有很多不懂的地方,而且我用的書籍:李勁編的 "精通Delphi" 很少說到Quick Report.請問各位高手有那些網頁有教用Quick Report嗎? 我有2個form, form1要求使用者輸入student number., Query1 是select * from studentfile where stno = student number Query2 是select * from grade where stno = studentnumber form2 是印出Query1和Query2的資料 但我不知道 QuickRep1 的dataset要設什麼,QRDBText的dataset, datafield要設什麼?

一個Query1及一個QuickRep就可以了..QuickRep上要把你的報表格式擺好 ..都要擺在Form2上面.. 使用者輸入-->Edit1.Text; 有一個列印的按鈕按下後.. procedure TForm1.Button1Click(Sender: TObject); begin try Form2 := TForm2.Create(SELF); Form2.Query1.Close; Form2.Query1.SQL.CLEAR; Form2.Query1.Close; Form2.Query1.SQL.Clear; Form2.Query1.SQL.ADD(' select * from studentfile,grade ' ' Where grade.stno = studentfile.stno ' ' AND grade.stno ' #39 Edit1.Text #39); Form2.Query1.Open; if Form2.Query1.IsEmpty then begin MessageDlg('無資料', mtWarning, [mbok], 0); Screen.Cursor := crdefault; Form2.Query1.Close; Abort; end else begin Form2.QuickRep1.Preview; Form2.QuickRep1.QRPrinter.Free; Form2.QuickRep1.QRPrinter := nil; end; finally Form2.Free; end; end;

引言: 我是第一次用Quick Report,所以有很多不懂的地方,而且我用的書籍:李勁編的 "精通Delphi" 很少說到Quick Report.請問各位高手有那些網頁有教用Quick Report嗎? 我有2個form, form1要求使用者輸入student number., Query1 是select * from studentfile where stno = student number Query2 是select * from grade where stno = studentnumber form2 是印出Query1和Query2的資料 但我不知道 QuickRep1 的dataset要設什麼,QRDBText的dataset, datafield要設什麼?

發表人 - chih 於 2002/12/30 13:20:14

QuickRep1 的dataset要設成您要之資料表名稱,無法列印2個query 的,想辦法 搞成一個queryX. QRDBText的dataset, 就設成queryX datafield 設成 QueryX之欄名,您可在設計期,隨便在QueryX的 sql打入模擬 sql敘述,再將此 QueryX active 起來,即可在 QueryX 之 Fieldedit 加入 所有欄名, 這時您使用 Qrdbtext 時,即可選則欄位名稱了. 請試試.