求助 开发扫描装箱系统，小女子在此谢谢了

任浪漫

haidao123321 发表于 2016-12-9 23:56
4:其实印刷厂打印好的装箱单和之前咱们打印的是一模一样的。都是包含产品名称******2****AAAZR*等信息组 ...

1:产品条码是5位简码+5位供应商代码+6位批号+4-9位流水，二维码是31位字符，用位数大于25位是二维码，小于或等于25位是条形码判断当前扫描的是二维码还是条形码，因为流水码长度不能确定
2:整箱装箱流程是选中满箱复选框，首先扫描印刷厂印制的完整装箱单二维码得到大于25位字符的字符串，从中截取21～25位后用正则式去掉填充的*，只提取数字得到满箱装箱数量，从中截取1～20位后用正则式去掉填充的*，提取剩余字符得到确认要装箱的产品名称(考虑到产品名称条码在二维码不一定13位，但是最多20位)，然后扫描20位产品条码，每扫描一次装箱数量加1，已装数量<满箱数量时，状态栏提示  "xxxxx产品已装A件，还要B件才满箱，请继续扫描产品条码装箱"，当装箱数量=满箱装箱数量时，不提示对话框“ xxxxx产品装箱已满，请确认。”也没有OK件确认，而是在Excel状态栏给出提示："xxxxx产品装箱已满，可以扫描下一单二维码"，并清空sheet2和打印模板数据，不打印装箱单，开始进入下一个整箱的装箱流程（直接扫描下一个二维码），直接用印刷好的成品装箱单封箱。（装箱完成后能不能不用弹出对话框，直接在Excel状态栏提示相关信息来提示装箱结束？然后操作员手动点击窗体的【重新装箱】按钮或者直接扫描新的二维码即可重新装箱）

3:半箱的装箱流程是，只有半箱的就不选择整箱复选框，没有现成的二维码可供扫描，而是通过小于25位产品条码前5位在备份表找到根据计划数计算出的半箱二维码数量1-3位及半箱二维码31位全称，再根据半箱数量来装箱，达到半箱装箱件数就提示半箱装箱完毕，并调用打印装箱单命令打印这个印刷厂没有印制的半箱装箱单，打印完毕清空打印模板和sheet2表，开始准备下一个半箱或者整箱的装箱（半箱装箱 现在的程序已经满足，不用选择复选框 即可 直接扫描条码操作即可，但是你是怎么确认半箱件数是否达到要求呢？看已装件数显示多少件，再手工确认是否达到预想件数手工点击按钮打印半箱装箱单？）
4:打开和关闭工作簿时候清空状态栏提示
5:
6:使用【手动装箱按钮】来手动点击装箱 或者直接再次扫描另一张二维码时清空sheet2数据及打印模板数据，开始重新装箱，（是的）
7:半箱或者整箱的装箱程序都需要对批次 ，流水号进行效验（批次相同，流水号不能相同）

haidao123321

任浪漫 发表于 2016-12-10 07:36
1:产品条码是5位简码+5位供应商代码+6位批号+4-9位流水，二维码是31位字符，用位数大于25位是二维码， ...

是的 老师 您看 这样操作是否简洁一些  从现在的sheet1表格上在插入一个按钮，点击按钮后出现另外一个窗体，用这个窗体2做整箱扫  之前的窗体 代码不变  这样 只需要截取二维码的前13位到备份表里面查询到对应的商品简码，中文名称满箱收容数量(也可通过截取二维码字符串获得）然后通过扫描商品条码+1循环直至已装箱数量=装箱数量时 直接提示 XXXX产品装箱结束 共收容XX颗对话框  点击下一箱装箱 或者再次扫描另一箱二维码 另一箱装箱开始

任浪漫

haidao123321 发表于 2016-12-10 08:21
是的 老师 您看 这样操作是否简洁一些  从现在的sheet1表格上在插入一个按钮，点击按钮后出现另外一个窗 ...

你之前代码是用的那个版本，我有2.2-----2.4.6，你用的具体是哪个版本我就改那个版本试试增加整箱窗体，提供给我文件版本号

haidao123321

任浪漫 发表于 2016-12-10 08:37
你之前代码是用的那个版本，我有2.2-----2.4.6，你用的具体是哪个版本我就改那个版本试试增加整箱窗体， ...

2.45即可 老师

任浪漫

haidao123321 发表于 2016-12-10 10:04
2.45即可 老师

扫描装箱页面X-V2.4.5.1Beta3版.rar (369.77 KB, 下载次数: 22)

2016-12-14 20:32 上传

点击文件名下载附件

代码有些冗余，需要有空的大神修复下多余的代码

扫描装箱页面X-V2.5.0a.rar (489.91 KB, 下载次数: 82)

2016-12-15 14:57 上传

点击文件名下载附件

2.5.0a版本这个文件是正常的 二维码显示也是清晰的

№▁▃风筝﹋

在原有的基础上加了二维码，使用截图的方式截取当前二维码内容为图片，截取后自动保存到指定的路径中，保存的名称为二维码内容，星号用空格代替，然后粘贴到打印模板中进行打印。如果二维码图片已经存在则直接调用，不截图。调整了窗口界面，如图。
初次使用时如果截图的二维码位置不正，可以通过更改“主页”表的B1、B2里面的数值调整位置，更改B3调整二维码的白边大小，其他值保持默认即可。

lcjy11185

小女子相求，很火爆啊。从最初到后面很完善。

任浪漫

№▁▃风筝﹋ 发表于 2016-12-16 14:20
在原有的基础上加了二维码，使用截图的方式截取当前二维码内容为图片，截取后自动保存到指定的路径中，保存 ...

顶一个，做的比我完善。我下面的文件修改了二维码错误生成的代码 原来生成的二维码是20位条码内容，这个是生成的31位二维码内容

扫描装箱页面X-V2.5.2.rar (354.68 KB, 下载次数: 32)

2016-12-16 16:40 上传

点击文件名下载附件

V2.5.3 生成了三个功能区按钮来启动整箱装箱/半箱装箱/生成活动单元格内容的二维码图片到右边一列并调整大小


我在2.5.3里面封装了部分功能区代码，可以在开始菜单功能区点击按钮开启装箱过程和生成二维码
扫描装箱页面X-V2.5.3.rar (492.97 KB, 下载次数: 98)

2016-12-17 10:40 上传

点击文件名下载附件

任浪漫

任浪漫 发表于 2016-12-16 15:12
顶一个，做的比我完善。我下面的文件修改了二维码错误生成的代码 原来生成的二维码是20位条码内容，这个 ...

这段代码是把图片保存到剪贴板
' Clipboard Manager Functions
Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long

Public Sub QRCodeToClipboard()
    If OpenClipboard(0) Then
        Call EmptyClipboard
        Call SetClipboardData0(2, hBmp)
        Call CloseClipboard
    End If
End Sub

http://baike.m.sogou.com/baike/fullLemma.jsp?max=&lid=74488879&fromTitle=EmptyClipboard

haidao123321

谢谢各位老师  我会认真研习 谢谢大家