請問： 我用QReport要印物料資料標籤時， 資料庫中只有物料編號(material_id)， 例如：material_id='A01','A02'....， 我現已有條碼字型， 我想印出該物料的編號及條碼， 我放二個QRDBText在BandType=rbDetail的QRBand內， QRDBText1印編號，QRDBText2印條碼， 我需要將material_id前後加上星號'*'放到QRDBText2(例：'*A01*')， 然後將QRDBText2的Font-Name設成條碼字型，以期能印出條碼， 請問將materia_id抓出來後前後加上星號的動作如何作?

設一個痊癒變數(例如為S) 然後可以在QRBand的BeforePrint事件寫 s:= '*' query1.FieldByName('material_id').asstring '*'; 就可以把此變數拿到 QRDBText2 中作處理 而且QRDBText1同樣只印編號不會有'*'出現 不知道你是不是要這樣做 天行健 君子當自強不息~~@.@

------
天行健
君子當自強不息~~@.@

請問把"此變數s拿到 QRDBText2 中作處理" 這步驟是在那個事件中撰寫，又要如何處理呢? (假設我一次要印幾十筆material_id資料，會不會每一筆的條碼都是最後一筆的編號呢?) 謝謝指導! 發表人 - tomcheng 於 2004/06/12 19:09:10

引言: 請問把"此變數s拿到 QRDBText2 中作處理" 這步驟是在那個事件中撰寫，又要如何處理呢? (假設我一次要印幾十筆material_id資料，會不會每一筆的條碼都是最後一筆的編號呢?) 謝謝指導! 發表人 - tomcheng 於 2004/06/12 19:09:10

呵呵呵~~~~~~~~ 你這樣問的我都不知道怎麼回答ㄝ 要怎麼處理DBText2的顯示內容 是你自己做決定 我並不知道你要怎麼處理阿 怎麼會問我要怎麼處理< >< > 天行健 君子當自強不息~~@.@

Hi tomcheng,    其實 T.J.B 版大已講出一個大概，我差個花再補充一下， 方法一： 於 SQL Command 中，將'*'加於 material_id 前後並產生一個新的欄位用於列印條碼

select  material_id,
        '*'   material_id   '*' as material_code
from    YourTable

其中 QRDBText1 DtaField 定義為 material_id，QRDBText2 DtaField 定義為 material_Code 並設為條碼字型 方法二： 使用 QRLable 印製條碼(不用QRDBLabel)，將該 QRLabel 設為條碼字型並在 OnPrint 事件中，加入以下程式碼

procedure TForm1.QRLabel1Print(sender: TObject; var Value: String);
begin
    Value := '*'   Query1.FieldByName('material_id').AsString   '*';
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝各位的解答!