PowerBuilder — 条码打印

PowerBuilder — 条码打印#使用ocx控件使用微软的MSBCODE9.OCX,但是注册老不成功,需要安装office之后才能注册成功,不知道有没有好的处理方法??#使用字体字体下载:http://download.csdn.net/detail/easyboot/9452777字符转换:代码来源http://club.excelhome.net/thread-606919-1-1.html…

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE使用 1年只要46元 售后保障 童叟无欺

# 使用ocx控件

使用微软的MSBCODE9.OCX,但是注册老不成功,需要安装office之后才能注册成功,不知道有没有好的处理方法??

# 使用字体

字体下载:http://download.csdn.net/detail/easyboot/9452777

字符转换:代码来源 http://club.excelhome.net/thread-606919-1-1.html 此帖子的第8楼。条码打印后扫描不出来,需要使用此代码对条码数据进行转换,再使用转换后的数据来生成条码。

/*******************************************************************
函数名称:f_getcode128A()
参数:           as_sourcetext string 源字符串
返回值:    string 转成code128A码后可打印的字符串
功能描述:取code128码字符串
创建人:   JF
创建日期:2009-3-11
版本号:  V1.0
备注:要在PB中正常打印code128码字符串,必须使用PB10以上(支持Unicode码)
*******************************************************************/
//CODE128条码基础知识:
//        CODE128有三个版本
//        CODE128A: 标准数字和字母, 控制符, 特殊字符
//        CODE128B: 标准数字和字母, 小写字母, 特殊字符
//        CODE128C: [00]-[99]的数字对集合, 共100个

//本函数采用CODE128A版本
//条码由 开始位 + [FNC1(为EAN128码时加)] + 数据位 + 检验位 + 结束位 组成
//Code128A检验位计算:(开始位对应的ID值 + 每位数据在整个数据中的位置×每位数据对应的ID值)% 103

//计算过程:
//1.取各字符ASC码乘以字符序号之和(以ASC=32为分界点,大于32减32,小于32加64)
//2.计算校验码
//3.组合条码:开始位+数据位+校验位+停止位

int li_asc_total = 103
int li_asc_tmp,i
char lc_start=char(203)//采用CODE128A版本 ID >95 则ID+100
char lc_stop=char(206)
int li_check_digit
string ls_check_digit


//1.取各字符ASC码乘以字符序号之和(以ASC=32为分界点,大于32减32,小于32加64)
For i = 1 To len(as_sourcetext)
         li_asc_tmp = Asc(mid(as_sourcetext,i, 1))
         If li_asc_tmp >= 32 Then
                  li_asc_total = li_asc_total + (li_asc_tmp - 32) * i
         Else
                  li_asc_total = li_asc_total + (li_asc_tmp + 64) * i
         End If
Next

//2.计算校验码
li_check_digit = mod(li_asc_total,103)

If li_check_digit >= 95 Then//特殊字符
        li_check_digit = li_check_digit + 100
Else
         li_check_digit = li_check_digit + 32
end if
ls_check_digit = char(li_check_digit)
//3.组合条码:开始位+数据位+校验位+停止位
Return lc_start + as_sourcetext + ls_check_digit  + lc_stop

 

转载于:https://www.cnblogs.com/yarightok/p/6895356.html

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/158890.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • h5页面 请在微信客户端打开链接_请在微信客户端打开链接 html「建议收藏」

    h5页面 请在微信客户端打开链接_请在微信客户端打开链接 html「建议收藏」1前言有时候,需要链接只能在微信上打开,如果不是,则提示请在微信客户端打开链接的字眼的网页,网页代码如下:(这个是网页应用授权时,非微信上打开,就会出现,然后把它单独拿出来了)2代码varua=navigator.userAgent.toLowerCase();varisWeixin=ua.indexOf(‘micromessenger’)!=-1;varisAndroid…

  • GRPC Connection Backoff Protocol「建议收藏」

    GRPC Connection Backoff Protocol「建议收藏」GRPCConnectionBackoffProtocol当我们向一个失败的后端进行连接时,通常不希望立即重试(为了避免请求flooding网络或者服务器),而是去做一些某种形式的指数backoff。我们有几个参数:INITINAL_BACKOFF(第一次失败后的重试需要等待多长时间)MULTIPLIER(在一次失败的重试后,backoff的乘回因子)JITTER(随机backoffs的程度)MAX_BACKOFF(backoff的上界)MIN_CONNECT_TIMEOUT(我们

  • CoreOS裸机iso安装和相关配置

    CoreOS裸机iso安装和相关配置

  • pycharm import cv2找不到指定模块_pycharm显示主菜单

    pycharm import cv2找不到指定模块_pycharm显示主菜单首先,我们是要导入opencv(cv2)包,那么这个包是不是必须就在我们这个文件夹下面才行?我认为必须是这样。所以,我们在cmd用pipinstall命令安装,也必须在这个文件夹下执行,并且放到pip.exe一起,我们从opencv官网下好的whl文件也应该放在python/scripts这个里面。在cmd里这样执行,就可以,根据自己的文件夹来,命令仅提供参考:cdC:\Users\YZTang\PycharmProjects\rk-pro\venv\Scriptspipinsta.

  • pychram安装教程

    pychram安装教程前言Pycharm社区版其实基本也够用的,但是,但是,还是想装专业版呢。一、安装pycharm1.下载安装包先去官网下载好安装包,我们这里用Windown环境的普通版就够用了https://www.jetbrains.com/pycharm/download/#section=windows2.安装后面就是一路next,跟装个QQ一样安装完成后,选择稍后重启电脑,然后去桌面打开pycharm…

  • 交叉验证_验证的三种方法

    交叉验证_验证的三种方法什么是交叉验证?它的基本思想就是将原始数据(dataset)进行分组,一部分做为训练集来训练模型,另一部分做为测试集来评价模型。主要是用于小部分数据集中。通过图片可以看出,划分出来的测试集(tes

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号