免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?
123下一页
最近访问板块 发新帖
查看: 7866 | 回复: 24
打印 上一主题 下一主题

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序? [复制链接]

灌木林

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2004-09-08 16:24 |只看该作者 |倒序浏览
如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?
hliu

论坛徽章:
0
2楼 [报告]
发表于 2004-09-08 19:17 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

AFP不是支持条形码打印吗
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
qingzhou

论坛徽章:
0
3楼 [报告]
发表于 2004-09-09 13:51 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

说来话长，基于OS/400利用CLP、RPG是可以实现条形码的打印。
不过实现起来有点难度。。。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
mamei

论坛徽章:
0
4楼 [报告]
发表于 2004-09-09 18:34 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

我们已经是在打印文件用硬代码写的！

不过，如果换个型号的打印机就不能用了
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
zhurisoft

论坛徽章:
0
5楼 [报告]
发表于 2004-09-09 19:21 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

标签（价签）自由排版打印系统-LabelPrint v1.0  
  特点：
1、 普通打印机 无需使用专业的打印机即可打印商品的标签/价签。
2、 操作简单 界面操作简单，可编辑出任何形式的商品的标签和价签。
3、支持图像 支持图像的汇入，可丰富标签/价签的内容。
4、 排版打印同步 提供“所见即所得”，所编辑的内容、尺寸、大小与打印时相同。
5、数据格式自由 LabelPrint不限制数据的格式，您只需将数据导出文本，在系统中导入并与所编辑的内容连接即可打印。
6、支持多种条码 支持常见的32种条码，如：Ean13，Ean8，Ean128，Code39，Code128，Jan13，UpcA等等。
7、支持模版方式 用户可将自己绘制好的标签保存为模版，后续使用此样式的标签时无需重新绘制。
http://www.longesoft.com/products/LabelPrint.exe
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
winner_530

论坛徽章:
0
6楼 [报告]
发表于 2004-09-10 14:32 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

是否是 for AS400、windows、unix等？！！！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
灌木林

论坛徽章:
0
7楼 [报告]
发表于 2004-09-15 13:10 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

FOR AS/400
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
winner_530

论坛徽章:
0
8楼 [报告]
发表于 2004-09-15 16:29 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

我只会在windows上作条码，想学学如何在400上作！哈哈哈！！！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
qingzhou

论坛徽章:
0
9楼 [报告]
发表于 2004-09-16 09:03 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

基于OS/400平台生成“条形码”打印图形的实现过程简介如下：

1)CHGSYSLIBL QSYS2989

2)在QAPWSRC下创建程序：
  LIBRARY/QAPWSRC(TEST),type为TXT。

  2. Columns . . . :    1  71           Browse                      LIBRARY/QAPWSRC
  3. SEU==>;                                                                    TEST
  4. FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7  
  5.         *************** Beginning of data *************************************
  6. 0001.00 ADDAPW LINE(12 12) MAGNIFY((59 07 3))                                   
  7. 0002.00 ADDAPW LINE(15 15) MAGNIFY((12 18 3))                                   
  8. 0003.00 ADDAPW LINE(18 18) MAGNIFY((90 06 3))                                   
  9. 0004.00 ADDAPW LINE(21 21) MAGNIFY((90 02 3))                                   
  10. 0005.00 ADDAPW LINE(21 21) MAGNIFY((105 02 3))                                 
  11. 0006.00                                                                        
  12. 0007.00                                                                        
  13. 0008.00 ADDAPW LINE(30 30) SYMBOL(20 15 CODE39 CODE39 IBMIR)                    
  14.         ****************** End of data ****************************************
  15.                                                                                 
  16.                                                                                 
  17.                                                                                 
  18.                                                                                 
  19.                                                                                 
  20.                                                                                 
  21.                                                                                 
  22.                                                                                 
  23. F3=Exit   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle   F12=Cancel      
  24. F16=Repeat find        F24=More keys                                          
  25.                                          (C) COPYRIGHT IBM CORP. 1981, 2002.   
复制代码


3)其中“ADDAPW LINE(30 30) SYMBOL(20 15 CODE39 CODE39 IBMIR)”中关键实现条形码打印的是“SYMBOL(20 15 CODE39 CODE39 IBMIR)”，如果最后一句改为“ADDAPW LINE(30 30)”将只输入数字而无法输出条形码。                    

  1.                                    (ADDAPW)                                    
  2.                                                                                 
  3.   输入选择，并按“执行”键。                                                   
  4.                                                                                 
  5.                                                                                 
  6.                                   >; 30            Number                        
  7.                                   >; 30            Number                        
  8.                                                                                 
  9.                                                   Number                        
  10.                                                   Number                        
  11.                                     3             Character value               
  12.                 + 尚有其余值                                                   
  13.                                                                                 
  14.                                   >; 20            Number                        
  15.                                   >; 15            Number                        
  16.                                   >; CODE39        Name                          
  17.                                   >; CODE39        Name                          
  18.                                   >; IBMIR         Name, *LIBL, *CURLIB         
  19.                                                                                 
  20.                                                   Number                        
  21.                                                   Number                        
  22.                                                   Character value               
  23.                 + 尚有其余值                                                   
  24.                                                                                 
  25.                                                                        尚有 ...
复制代码


4)Library：IBMIR所含信息如下：


  2.                           Work with Objects Using PDM                  S*******
  3.                                                                                 
  4. Library . . . . .   IBMIR            Position to . . . . . . . .               
  5.                                       Position to type  . . . . .               
  6.                                                                                 
  7. Type options, press Enter.                                                     
  8.    2=Change       3=Copy        4=Delete      5=Display       7=Rename         
  9.    8=Display description        9=Save       10=Restore      11=Move ...        
  10.                                                                                 
  11. Opt  Object      Type        Attribute   Text                                 
  12.       CODE39      *FILE       LF38        SYMBOL LF                             
  13.       CODE39     *FILE       PF38-DTA    SMALL SYM PF                          
  14.       CODE39#     *FILE       PF38-DTA    MEDIUM SYM PF                        
  15.       CODE39@     *FILE       PF38-DTA    LARGE SYM PF                          
  16.       CODE39A     *FILE       LF38        SYMBOL LF                             
  17.       CODE39A    *FILE       PF38-DTA    SMALL SYM PF                          
  18.       CODE39A#    *FILE       PF38-DTA    MEDIUM SYM PF                        
  19.       CODE39A@    *FILE       PF38-DTA    LARGE SYM PF                          
  20.       CODE39C     *FILE       LF                                                
  21.       CODE39C    *FILE       PF-DTA                                            
  22.       CODE39C#    *FILE       PF-DTA                                            
  23.       CODE39C@    *FILE       PF-DTA                                            
  24.       CODE39D     *FILE       LF                                                
  25.       CODE39D    *FILE       PF-DTA                                            
  26.       CODE39D#    *FILE       PF-DTA                                            
  27.       CODE39D@    *FILE       PF-DTA                                            
  28.       CODE39E     *FILE       LF                                                
  29.       CODE39E    *FILE       PF-DTA                                            
  30.       CODE39E#    *FILE       PF-DTA                                            
  31.       CODE39E@    *FILE       PF-DTA                                            
  32.                                                                                 
  33.                                                                                 
  34.                                                                          Bottom
  35. Parameters or command                                                         
  36. ===>;                                                                           
  37. F3=Exit          F4=Prompt            F5=Refresh           F6=Create           
  38. F9=Retrieve      F10=Command entry    F23=More options     F24=More keys      
复制代码


暂且提供至此，有什么疑问请继续。。。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
Sillycube

论坛徽章:
0
10楼 [报告]
发表于 2004-09-16 15:17 |只看该作者

如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?

惭愧!惭愧!居然是故人相见,哎!水品下降!太丢脸了!
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP