全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2012
推到 Plurk!
推到 Facebook!

請教各位大大先進,如何使用FASTREPORT4.8版列印條碼

答題得分者是:P.D.
u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-11-04 16:26:06 IP:211.20.xxx.xxx 訂閱
小弟我在FORM裡設了一個CheckListBox元件,要將此元件內的項目列印條碼,目前我只能一次印一個項目
不知我要如何一次就能Preview所有的項目,並且是按一次列印就能夠項這些項目印出條碼
以下是我的程式碼

FOR I:=0 TO (CBPDID.Count-1) DO BEGIN
IF CBPDID.Checked[I]=TRUE THEN
BEGIN
REPORT1.Variables['AAA'] := '''' CBPDID.Items.Strings[I] '''';
REPORT1.ShowReport();
END;
END;
P.D.
版主


發表:571
回覆:3888
積分:3677
註冊:2006-10-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-11-05 10:29:20 IP:118.169.xxx.xxx 未訂閱
最簡單的方式, 把資料轉入資料庫, 由  TDataSet 來控制, 可以使用 kbm資料庫或TClientDataset(MIdas), 都可以無須在程式中再附加實質的資料庫在內
u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-11-05 16:46:20 IP:211.20.xxx.xxx 訂閱

===================引 用 P.D. 文 章===================
最簡單的方式, 把資料轉入資料庫, 由? TDataSet 來控制, 可以使用 kbm資料庫或TClientDataset(MIdas), 都可以無須在程式中再附加實質的資料庫在內


大大
是否可以給我範例嗎
求救了

u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-11-06 10:18:00 IP:211.20.xxx.xxx 訂閱
各位大大好
依大大所示,在FORM裡加了DATESET,且資料庫內有500筆資料,執行後,500筆的條碼都是同一個,
不知要如何將這500筆條碼一次列印出,REPORT元件內的屬性需如何設定呢?及FAST REPORT裡的屬性要如何設定,我要設定DATESET都無法設定

QueryMaster.Close;
QueryMaster.SQL.Clear;
sSQL:='SELECT * FROM MTSI_BC WHERE BCID >= ''' PRTB.Text ''' AND'
' BCID>=''' PRTE.Text ''' AND BCYN=''N'' ORDER BY BCID';
QueryMaster.SQL.Add(sSQL);
QueryMaster.Open;
WHILE NOT QueryMaster.Eof do
begin
REPORT1.Variables['AAA'] := '''' QueryMaster.FieldByName('BCID').AsString '''';
QueryMaster.Next;
end;
REPORT1.ShowReport();


pedro
尊榮會員


發表:152
回覆:1177
積分:865
註冊:2002-06-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-11-06 11:39:09 IP:60.248.xxx.xxx 未訂閱
您好

既然有資料源,
在fastreport的報表設計器,條碼元件,可指定DataSet及DataField
條碼元件要放在DataBand上,跟一般TextObject設法一樣,DataBand的DataSet有多少筆資料,就會列出多少筆

===================引 用 u144142 文 章===================
依大大所示,在FORM裡加了DATESET,且資料庫內有500筆資料,執行後,500筆的條碼都是同一個,
不知要如何將這500筆條碼一次列印出,REPORT元件內的屬性需如何設定呢?及FAST REPORT裡的屬性要如何設定,我要設定DATESET都無法設定

P.D.
版主


發表:571
回覆:3888
積分:3677
註冊:2006-10-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2009-11-06 22:53:41 IP:118.169.xxx.xxx 未訂閱
1.既已用資料庫, 為何又寫程式, 把 while .. end 全段刪除
2.建立一個 FRDataSet, 指向你的 QueryMaster
3.把 FastReport 元件的 DataSet 指向這個 DataSet
4.把 FR 中 AAA 的 Memo變數刪掉, 直接拉條碼元件
5.條碼的來源指向改為 Query的來源
6.程式最後 ShowReport 或其他呼叫列印的指令
7.完成
由於都是在Form中拉元件完成, 沒有自定程式
===================引 用 u144142 文 章===================
各位大大好
依大大所示,在FORM裡加了DATESET,且資料庫內有500筆資料,執行後,500筆的條碼都是同一個,
不知要如何將這500筆條碼一次列印出,REPORT元件內的屬性需如何設定呢?及FAST REPORT裡的屬性要如何設定,我要設定DATESET都無法設定
?
QueryMaster.Close;
? QueryMaster.SQL.Clear;
? sSQL:='SELECT * FROM MTSI_BC WHERE BCID >= ''' PRTB.Text ''' AND'
??? ' BCID>=''' PRTE.Text ''' AND BCYN=''N'' ORDER BY BCID';
? QueryMaster.SQL.Add(sSQL);
? QueryMaster.Open;
? WHILE NOT QueryMaster.Eof do
? begin
REPORT1.Variables['AAA'] := '''' QueryMaster.FieldByName('BCID').AsString '''';
QueryMaster.Next;
? end;
REPORT1.ShowReport();


u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#7 引用回覆 回覆 發表時間:2009-11-09 11:20:14 IP:211.20.xxx.xxx 訂閱
再請教各位大大
依照大大所示,
已建立一個 FRDataSet, 指向 QueryMaster
把 FastReport 元件的 DataSet 指向這個 DataSet
也從FASTREPORT元件裡,再拉一個條碼元件
而且也從FORM裡放一個條碼元件
但是FASTREPORT元件裡的條碼元件,一直無法設定DATESET
必須再FASTREPORT元件裡的DATA再拉一個DATASET元件,這樣條碼元件裡的DATESET才可以設定
是版本的關係嗎4.8版


u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#8 引用回覆 回覆 發表時間:2009-11-09 16:42:22 IP:211.20.xxx.xxx 訂閱
各位大大先進好
依上述為何會出現找不到TfrxBDEQuery
u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#9 引用回覆 回覆 發表時間:2009-11-10 14:58:29 IP:211.20.xxx.xxx 訂閱
謝謝版主大大的指示
關於找不到BDEQuery的問題已解決了
只要use 這個元件就可以了

但是有個問題,要如何設定好我資料庫的密碼,這樣才不用每次列印時都打一次密碼
u144142
一般會員


發表:1
回覆:6
積分:1
註冊:2006-07-19

發送簡訊給我
#10 引用回覆 回覆 發表時間:2009-11-10 16:24:47 IP:211.20.xxx.xxx 訂閱
已全部解決了
哈哈
謝謝版主大人
系統時間:2017-12-16 17:15:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!