請問 要如何列印當前form的資料啊? (非全部資料庫的資料) |
|
尚未結案
|
|
jasonchen613
初階會員   發表：67 回覆：75 積分：28 註冊：2003-03-25 發送簡訊給我 |
各位大大 我想要列印出我主form1正在瀏覽的資料 而並非全部資料庫的資料 以下是我的程式碼:
//這些程式碼是在主form中的列印botton內
procedure TForm1.I1Click(Sender: TObject);
begin
QuickReport5.dataset:=ADOTable1;
QuickReport5.QRDBText1.DataSet:=ADOTable1;
QuickReport5.QRDBText2.DataSet:=ADOTable1;
QuickReport5.QRDBText3.DataSet:=ADOTable1;
QuickReport5.QRDBText4.DataSet:=ADOTable1;
QuickReport5.QRDBText5.DataSet:=ADOTable1;
QuickReport5.QRDBText6.DataSet:=ADOTable1;
QuickReport5.QRDBText7.DataSet:=ADOTable1;
QuickReport5.QRDBText1.DataField:='部別';
QuickReport5.QRDBText2.DataField:='科系';
QuickReport5.QRDBText3.DataField:='班級';
QuickReport5.QRDBText4.DataField:='姓名';
QuickReport5.QRDBText5.DataField:='車牌號碼';
QuickReport5.QRDBText6.DataField:='學年';
QuickReport5.QRDBText7.DataField:='停車證號';
if messagedlg('想要預覽報表畫面嗎？',mtinformation,[mbyes,mbno],0)
=mryes then
QuickReport5.Preview
else
QuickReport5.Print;
end; 以下的程式碼是在TQuickReport5.DetailBand1BeforePrint下：
//因為我有用jpeg檔存在資料庫中 所以才用到以下的程式指令
procedure TQuickReport5.DetailBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
Stream:=TMemoryStream.Create ;
jpgstream:= TJPEGImage.Create;
TBlobField(Form1.ADOTable1.FieldByName('img_filedata')as TBlobField).SaveToStream(Stream);
Stream.Position := 0;
jpgstream.LoadFromStream(Stream);
QRImage1.Picture.Assign(jpgstream);
Stream.Free;
jpgstream.free; end; 另外 以下是我的主form圖:
|
|
hahalin
版主  發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
jasonchen613
初階會員 發表：67 回覆：75 積分：28 註冊：2003-03-25 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
jasonchen613
初階會員 發表：67 回覆：75 積分：28 註冊：2003-03-25 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
所謂的『研究一下』,就是請您充實一下基本功夫 報表的來源是資料庫的話,那麼顯示哪筆資料或是某個區間的資料就必須對於如何過濾篩選資料要懂, ttable可以,用filter, ttquery更好,下sql去取回, 研究方向都跟您報告了,如果還是不懂那麼可能要請您多加充實一下相關的知識,當然您可能會說阿就是不懂才來問,坦白說不是不回應,而是以您目前這樣的程度實在是要跟您報告的內容會太多太多,多到可以寫書籍中的兩章了, 您可以找本delphi專講資料庫的書,幾乎每本都有講到怎麼用ttable,tquery,quickreport,如果您沒有書小弟可以借您一本.
|
|
jasonchen613
初階會員 發表：67 回覆：75 積分：28 註冊：2003-03-25 發送簡訊給我 |
|
|
hahalin
版主 發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我 |
發表時間：2003-10-11 00:06:11
IP:61.13.xxx.xxx 未訂閱
系統時間：2024-05-16 17:36:30
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |