請教各位大大先進,如何使用FASTREPORT4.8版列印條碼 |
答題得分者是:P.D.
|
u144142
一般會員 發表:1 回覆:6 積分:1 註冊:2006-07-19 發送簡訊給我 |
小弟我在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.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
u144142
一般會員 發表:1 回覆:6 積分:1 註冊:2006-07-19 發送簡訊給我 |
|
u144142
一般會員 發表:1 回覆:6 積分:1 註冊:2006-07-19 發送簡訊給我 |
各位大大好
依大大所示,在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 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
您好
既然有資料源, 在fastreport的報表設計器,條碼元件,可指定DataSet及DataField 條碼元件要放在DataBand上,跟一般TextObject設法一樣,DataBand的DataSet有多少筆資料,就會列出多少筆 ===================引 用 u144142 文 章=================== 依大大所示,在FORM裡加了DATESET,且資料庫內有500筆資料,執行後,500筆的條碼都是同一個, 不知要如何將這500筆條碼一次列印出,REPORT元件內的屬性需如何設定呢?及FAST REPORT裡的屬性要如何設定,我要設定DATESET都無法設定 |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
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 發送簡訊給我 |
|
u144142
一般會員 發表:1 回覆:6 積分:1 註冊:2006-07-19 發送簡訊給我 |
|
u144142
一般會員 發表:1 回覆:6 積分:1 註冊:2006-07-19 發送簡訊給我 |
|
u144142
一般會員 發表:1 回覆:6 積分:1 註冊:2006-07-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |