新手小白写了一个条码打印的程序求大佬完善修改下

错别字

保存标签会重复保存，希望能改同样的信息只保留一条，还有打印预览有大佬能帮忙写一下吗。拜谢 ...

u871

你好，打印预览你可以试试内存画板，我大致写了一下，不过显示位置需要计算一下了，然后保存的时候可以先cha询一下，没有在保存，我也是新手小白，写的不太好，希望对你有帮助。

  

子程序名	返回值类型	公开	备 注
打印预览

变量名	类 型	静态	数组	备 注
局_gdi画板	内存画板
局_字体	字体

局_gdi画板.创建 (画板1.宽度, 画板1.高度, #白色, )
局_gdi画板.字体属性 (“微软雅黑”, 14, , , , , , , )
局_gdi画板.定位写出 (100, 0, 编辑框_领标.内容)
局_gdi画板.定位写出 (40, 30, 编辑框_款号.内容)
局_gdi画板.定位写出 (100, 60, 编辑框_单号.内容)
局_gdi画板.复制到窗口 (画板1.取窗口句柄 (), , )

.版本 2<br /> .子程序 打印预览<br /> .局部变量 局_gdi画板, 内存画板<br /> .局部变量 局_字体, 字体<br /> <br /> 局_gdi画板.创建 (画板1.宽度, 画板1.高度, #白色, )<br /> 局_gdi画板.字体属性 (“微软雅黑”, 14, , , , , , , )<br /> 局_gdi画板.定位写出 (100, 0, 编辑框_领标.内容)<br /> 局_gdi画板.定位写出 (40, 30, 编辑框_款号.内容)<br /> 局_gdi画板.定位写出 (100, 60, 编辑框_单号.内容)<br /> 局_gdi画板.复制到窗口 (画板1.取窗口句柄 (), , )

  

局_SQL语句 ＝ 格式化文本 (“select * from [条码打印] where [单号]='%s'”, 编辑框_单号.内容)
局_记录句柄 ＝ 全局_数据库.cha询 (局_SQL语句)
如果真 (全局_数据库.读 (局_记录句柄, 2) ≠ “”)
信息框 (“已有”, #信息图标, , )
全局_数据库.关闭记录集 (局_记录句柄)
返回 ()

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> 局_SQL语句 ＝ 格式化文本 (“select * from [条码打印] where [单号]='%s'”, 编辑框_单号.内容)<br /> 局_记录句柄 ＝ 全局_数据库.cha询 (局_SQL语句)<br /> .如果真 (全局_数据库.读 (局_记录句柄, 2) ≠ “”)<br />     信息框 (“已有”, #信息图标, , )<br />     全局_数据库.关闭记录集 (局_记录句柄)<br />     返回 ()

错别字

保存标签的时候能重复保存，希望能改成同样的标签只保存一条。还有打印预览有没有大佬能完善一下，实在写不出来，拜谢

传奇

添加的时候就判断存不存在就可以了，

真IKUN

有偿吗？包好使的

limboas

你这是那个打印机，我对接的精臣B3S，完美打印，

limboas

如图例子：

错别字

limboas 发表于 2024-11-5 21:31
你这是那个打印机，我对接的精臣B3S，完美打印，

我用的芯烨,你写了打印预览吗？看你这个例子也只是打印啊

错别字

u871 发表于 2024-11-10 21:22
你好，打印预览你可以试试内存画板，我大致写了一下，不过显示位置需要计算一下了，然后保存的时候可以先ch ...

非常感谢，已经解决了