用vfp @ say 语句写的超市、服装店小票机打印（不需用报表打印，速度最快）

2018-07-21 10:16:07 1.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Go语言AI智能体开发实战：基于LangGraphGo构建下一代工作流引擎在AI应用开发领域，工作流编排是构建复杂智能系统的核心技术。其核心原理是将任务执行过程建模为状态图，通过节点和边的组合定义数据流转路径，实现多步骤推理与工具调用的自动化。这种基于状态图的编程模型，为智能体提供了清晰的“思考-行动-观察”循环抽象，显著提升了复杂业务逻辑的可维护性和可观测性。从技术价值看，它解决了传统代码中状态分散、流程僵化的问题，支持条件分支、并行执行等高级模式，是实现生产级AI应用的关键基础设施。在应用场景上，该技术广泛适用于客服机器人、自动化审批、数据ETL等需要多步骤协调的领域。本文以阅读详情

这里只写了打印8样物品的例子，如果更多可增加：
*打印出小票
SET DEVICE TO print &&设定从打印机输出

*小票格式
@1,1 say "谢谢光临!" font '微软雅黑',9 color RGB(0,0,0)
@3,3 say "浪漫一身服装店" font '微软雅黑',15 color RGB(0,0,0)
@7,1 say "日期："font '微软雅黑',9 color RGB(0,0,0)
@7,7 say DATETIME() font '微软雅黑',9 color RGB(0,0,0)
@8,1 say "- - - - - - - - - - - - - - - - "
@9,1 say "序号货号数量单价" font '微软雅黑',9 color RGB(0,0,0)
xdy=12
xhj=1
*打印第一件
@10,1 say "1 " font '微软雅黑',9 color RGB(0,0,0)
@10,5 say thisform.text10.Value font '微软雅黑',9 color RGB(0,0,0)
@10,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@10,20 say thisform.text18.Value font "微软雅黑",9 color RGB(0,0,0)
*打印第二件
IF NOT EMPTY(thisform.text11.Value ) then
@11,1 say "2 " font '微软雅黑',9 color RGB(0,0,0)
@11,5 say thisform.text11.Value font '微软雅黑',9 color RGB(0,0,0)
@11,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@11,20 say thisform.text19.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF

*打印第三件
IF NOT EMPTY(thisform.text12.Value ) then
@12,1 say "3 " font '微软雅黑',9 color RGB(0,0,0)
@12,5 say thisform.text12.Value font '微软雅黑',9 color RGB(0,0,0)
@12,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@12,20 say thisform.text20.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF
*打印第四件
IF NOT EMPTY(thisform.text13.Value ) then
@13,1 say "4 " font '微软雅黑',9 color RGB(0,0,0)
@13,5 say thisform.text13.Value font '微软雅黑',9 color RGB(0,0,0)
@13,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@13,20 say thisform.text21.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF

*打印第五件
IF NOT EMPTY(thisform.text14.Value ) then
@14,1 say "5 " font '微软雅黑',9 color RGB(0,0,0)
@14,5 say thisform.text14.Value font '微软雅黑',9 color RGB(0,0,0)
@14,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@14,20 say thisform.text22.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF
*打印第六件
IF NOT EMPTY(thisform.text15.Value ) then
@15,1 say "6 " font '微软雅黑',9 color RGB(0,0,0)
@15,5 say thisform.text15.Value font '微软雅黑',9 color RGB(0,0,0)
@15,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@15,20 say thisform.text23.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF
*打印第七件
IF NOT EMPTY(thisform.text16.Value ) then
@16,1 say "7 " font '微软雅黑',9 color RGB(0,0,0)
@16,5 say thisform.text16.Value font '微软雅黑',9 color RGB(0,0,0)
@16,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@16,20 say thisform.text24.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF

*打印第八件
IF NOT EMPTY(thisform.text17.Value ) then
@17,1 say "8 " font '微软雅黑',9 color RGB(0,0,0)
@17,5 say thisform.text17.Value font '微软雅黑',9 color RGB(0,0,0)
@17,18 say "1" font '微软雅黑',9 color RGB(0,0,0)
@17,20 say thisform.text25.Value font "微软雅黑",9 color RGB(0,0,0)
xdy=xdy+1
xhj=xhj+1
ENDIF

@xdy,1 say "- - - - - - - - - - - - - - - - "
@xdy+1,1 say "合计：" font "微软雅黑",10 color RGB(0,0,0)
@xdy+1,8 say STR(xhj,1,0) font '微软雅黑',10 color RGB(0,0,0)
@xdy+1,11 say "件" font "微软雅黑",10 color RGB(0,0,0)
@xdy+1,15 say "总额：" font "微软雅黑",10 color RGB(0,0,0)
@xdy+1,21 say thisform.label31.Caption font "微软雅黑",10 color RGB(0,0,0)
@xdy+1,27 say "元" font "微软雅黑",10 color RGB(0,0,0)
@xdy+3,1 say "- - - - - - - - - - - - - - - - "
Set printer to

...全文