Delphi !存款额 @恩迪夫 + ------------ @如果$PAYMENTCOUNT>0，则 $CHANGE=0 $COUNTER=0 &首期付款 @而$0则 +~ssssssssssssss:~fffff

!存款额 @恩迪夫 + ------------ @如果$PAYMENTCOUNT>0，则 $CHANGE=0 $COUNTER=0 &首期付款 @而$0则 +~ssssssssssssss:~ffffffff.ff !TT_名称+‘更改’，-！总磷量 @如果！那么TP_号码呢 +~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss !TT_NAME+'\：'+！TP_编号 @恩迪夫 @恩迪夫 $COUNTER=$COUNTER+1 &下一次付款 @结束时 @恩迪夫 [页脚] +--------------------------------------- +用户：~sssssssssssswks:~DD !我们的名字！THU工作站ID +代表：~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !DETAIL.SR_名称 @如果！那么我们的参考号是 +我们的参考资料：~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !这是我们的参考资料 @恩迪夫 @如果！那么你的参考文献是什么 +您的推荐人：~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss !这是你的参考资料 @恩迪夫 @如果$MESSAGE1，则 +~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss $MESSAGE1 @恩迪夫 @如果$MESSAGE2那么 +~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss $MESSAGE2 @恩迪夫 @如果$MESSAGE3那么 +~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss $MESSAGE3 @恩迪夫 @如果$MESSAGE4那么 +~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss $MESSAGE4 @恩迪夫 @如果$MESSAGE5那么 +~ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss $MESSAGE5 @恩迪夫

---

是的，但是你的问题是什么？你想从Delphi应用程序打印条形码吗？顺便说一句，这个免费软件库包括用于打印条形码的组件，包括EAN组件。但组件推荐和Delphi编码教程都不是这样。我们应该如何处理所有模板？我们不知道使用该模板的程序，尽管它似乎是用delphi编写的。我可以从我的一个程序（也是用delphi编写的）中给你一个模板，你认为这会对你有帮助吗？我想做的是使用文档id并将该文档id作为EAN128条形码打印在纸条的末尾 HEADER] SELECT * FROM SALES_TRANSACTION_HEADER JOIN STORES ON (ST_ID=TH_STORE_ID) LEFT OUTER JOIN USERS ON (US_STORE_ID=TH_STORE_ID AND US_ID=TH_USER_ID) WHERE TH_ID=?DOCUMENT_ID AND TH_STORE_ID=?STORE_ID AND TH_TYPE=?DOCUMENT_TYPE DETAIL] SELECT * FROM SALES_TRANSACTION_DETAIL JOIN PRINTER_CATEGORY ON (PRC_STORE_ID=?THIS_STORE_ID AND PRC_WORKSTATION_ID=?THIS_WORKSTATION_ID AND PRC_PRINTER_ID=?THIS_PRINTER_ID AND PRC_CATEGORY_ID=TD_CATEGORY_ID1) JOIN STORES ON (ST_ID=TD_STORE_ID) LEFT OUTER JOIN SALES_REPS ON (SR_ID=TD_SALESREP_ID AND ((ST_GLOBAL_REPS = 0 AND SR_STORE_ID=TD_STORE_ID) OR (ST_GLOBAL_REPS 0 AND SR_STORE_ID=(SELECT ST_ID FROM STORES WHERE ST_TYPE = 2)))) WHERE TD_DOCUMENT_ID=?DOCUMENT_ID AND TD_STORE_ID=?STORE_ID AND TD_TYPE=?DOCUMENT_TYPE [SQL_PAYMENT] SELECT * FROM SALES_TRANSACTION_PAYMENT LEFT OUTER JOIN TENDER_TYPES ON (TT_ID=TP_TENDER_ID) WHERE TP_DOCUMENT_ID=?DOCUMENT_ID AND TP_STORE_ID=?STORE_ID AND TP_TYPE=?DOCUMENT_TYPE [HEADER] + +[PRINTLOGO] + + TAX INVOICE + +CASH SALE +Document ID: ~0ddddddd; !TH_ID @IF !TH_PRINTED_COUNT THEN + COPY ~D !TH_PRINTED_COUNT @ELSE + @ENDIF +~SSSSSSSSS ~SSSSSSS !TH_TRANSACTION_DATE,!TH_TRANSACTION_TIME + +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !ST_COMPANYNAME @IF !ST_PHYSICALADDR1 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !ST_PHYSICALADDR1 @ENDIF @IF !ST_PHYSICALADDR2 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !ST_PHYSICALADDR2 @ENDIF @IF !ST_PHYSICALADDR3 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !ST_PHYSICALADDR3 @ENDIF @IF !ST_PHYSICALADDR4 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !ST_PHYSICALADDR4 @ENDIF @IF !ST_PHYSICALADDR5 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !ST_PHYSICALADDR5 @ENDIF @IF !ST_TELEPHONE1 THEN + +Telephone: ~SSSSSSSSSSSSSSSSSSS !ST_TELEPHONE1 @ENDIF @IF !ST_FAX THEN + Fax: ~SSSSSSSSSSSSSSSSSSS !ST_FAX @ENDIF @IF !ST_TAX_NUMBER THEN +VAT Reg #: ~SSSSSSSSSSSSSSSSSSSSSSS !ST_TAX_NUMBER @ENDIF @IF !TH_CUSTOMER_NAME THEN + +To:~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TH_CUSTOMER_NAME @ENDIF @IF !TH_ADDRESS_1 THEN + ~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TH_ADDRESS_1 @ENDIF @IF !TH_ADDRESS_2 THEN + ~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TH_ADDRESS_2 @ENDIF @IF !TH_ADDRESS_3 THEN + ~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TH_ADDRESS_3 @ENDIF @IF !TH_ADDRESS_4 THEN + ~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TH_ADDRESS_4 @ENDIF @IF !TH_ADDRESS_5 THEN + ~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TH_ADDRESS_5 @ENDIF @IF !TH_TELEPHONE THEN +Telephone: ~SSSSSSSSSSSSSSSSSSS !TH_TELEPHONE @ENDIF @IF !TH_ACCOUNTCODE THEN +Account No: ~SSSSSSSSSSSSSSSSSSS !TH_ACCOUNTCODE @ENDIF @IF !TH_EXEMPT_TAX_NUMBER THEN +Tax Number:~SSSSSSSSSSSSSSSSSSSS !TH_EXEMPT_TAX_NUMBER @ENDIF @IF !TH_ORDER_NUMBER THEN +Order Number:~SSSSSSSSSSSSSSSSSSSS !TH_ORDER_NUMBER @ENDIF + +Description Unit +Item Code Price Qty Nett +--------------------------------------- [DETAIL] @IF (!TD_ITEMTYPE 3) THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TD_DESCRIPTION @ELSE +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !TD_DESCRIPTION @ENDIF +~SSSSSSSSSSSSSSS ~fff.ff ~ff.q ~ffff.ff; !TD_PRODUCTCODE,!TD_RETAIL_PRICE,!TD_QTY,!TD_LINE_VALUE @IF !TD_LINE_TAX_ID = 0 THEN +*; @ELSEIF !TD_LINE_TAX_ID = 2 THEN +#; @ENDIF + @IF !TD_DISCOUNT_AMOUNT 0 THEN + Discount on above line ~ffff.ff !TD_DISCOUNT_AMOUNT @ENDIF @IF (!TD_ITEMTYPE = 2) AND (!TD_COLOUR_PACK_SERIAL '') THEN +Colour/Size:~SSSSSSSSSSSSSSSSSSSSSSSSS !TD_COLOUR_PACK_SERIAL @ENDIF @IF (!TD_ITEMTYPE = 3) AND (!TD_COLOUR_PACK_SERIAL '') THEN +Serial #:~SSSSSSSSSSSSSSSSSSSSSSSSSSSS !TD_COLOUR_PACK_SERIAL @ENDIF $COUNT=0 @WHILE $COUNT [SUMMARY] +--------------------------------------- @IF !TH_TRANSACTION_TAX_TYPE THEN + SUB-TOTAL: ~ffffffff.ff !TH_TRANSACTION_TOTAL - !TH_TRANSACTION_TAX - !TH_ADMIN_FEE + !TH_OVERALL_DISCOUNT + !TH_ROUNDING_LOSS @ELSEIF (!TH_ADMIN_FEE 0) OR (!TH_OVERALL_DISCOUNT 0) OR (!TH_ROUNDING_LOSS 0) THEN + SUB-TOTAL: ~ffffffff.ff !TH_TRANSACTION_TOTAL - !TH_ADMIN_FEE + !TH_OVERALL_DISCOUNT + !TH_ROUNDING_LOSS @ENDIF @IF !TH_OVERALL_DISCOUNT THEN + ~sssssssssssssssssss: ~ffffffff.ff 'DISCOUNT (' + !TH_OVERALL_PERCENT + '%)', -!TH_OVERALL_DISCOUNT @ENDIF @IF !TH_ADMIN_FEE THEN + ADMIN CHARGE: ~ffffffff.ff !TH_ADMIN_FEE @ENDIF @IF !TH_TRANSACTION_TAX_TYPE THEN + VAT: ~ffffffff.ff !TH_TRANSACTION_TAX @ELSE + VAT INCLUDED: ~ffffffff.ff !TH_TRANSACTION_TAX @ENDIF @IF !TH_ROUNDING_LOSS 0 THEN + ROUNDING LOSS: ~ffffffff.ff -!TH_ROUNDING_LOSS @ENDIF @IF (!TH_TRANSACTION_TAX_TYPE > 0) OR (!TH_ADMIN_FEE 0) OR (!TH_OVERALL_DISCOUNT 0) OR (!TH_ROUNDING_LOSS 0) THEN + ------------ @ENDIF + TOTAL: ~ffffffff.ff !TH_TRANSACTION_TOTAL @IF !TH_DEPOSIT_AMOUNT THEN + LESS DEPOSIT: ~ffffffff.ff -!TH_DEPOSIT_AMOUNT + TOTAL AFTER DEPOSIT: ~ffffffff.ff !TH_TRANSACTION_TOTAL - !TH_DEPOSIT_AMOUNT @ENDIF + ------------ @IF $PAYMENTCOUNT > 0 THEN $CHANGE = 0 $COUNTER = 0 &FIRSTPAYMENT @WHILE $COUNTER 0 THEN +~ssssssssssssssssssssssss: ~ffffffff.ff !TT_NAME + ' CHANGE', -!TP_AMOUNT @IF !TP_NUMBER THEN +~ssssssssssssssssssssssssssssssssssssss !TT_NAME + ' #: ' + !TP_NUMBER @ENDIF @ENDIF $COUNTER = $COUNTER + 1 &NEXTPAYMENT @ENDWHILE @ENDIF [FOOTER] +--------------------------------------- +User: ~SSSSSSSSSSSSSSSSSSSSSSS Wks: ~DD !US_NAME, !TH_WORKSTATION_ID + Rep: ~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS !DETAIL.SR_NAME @IF !TH_OUR_REFERENCE '' THEN + Our Reference: ~SSSSSSSSSSSSSSSSSSSSSS !TH_OUR_REFERENCE @ENDIF @IF !TH_YOUR_REFERENCE '' THEN +Your Reference: ~SSSSSSSSSSSSSSSSSSSSSS !TH_YOUR_REFERENCE @ENDIF @IF $MESSAGE1 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $MESSAGE1 @ENDIF @IF $MESSAGE2 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $MESSAGE2 @ENDIF @IF $MESSAGE3 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $MESSAGE3 @ENDIF @IF $MESSAGE4 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $MESSAGE4 @ENDIF @IF $MESSAGE5 THEN +~SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $MESSAGE5 @ENDIF