自动取款小票制作软件怎么制作

来源：蜘蛛抓取(WebSpider) 时间：2016-02-21 16:52 标签： word 制作小票
VB编写的银行排号机小票打印模块代码_VB教程
您的当前位置：
VB编写的银行排号机小票打印模块代码
VB编写实现带窗体TAB选项卡的排除机取票打印程序。现在很多营业大厅像移动、银行或一些行政服务大厅都有一个排号机设备，用户需要时会自动打印一相排除序号小票，本程序虽不完善，但实现了基本的排队取票打印功能，如果有设备可以配套运行，想了解原理的可参考以下代码。程序两个基本功能，一是自动生成序号，二是打印小票。本代码在界面设计方面也是很不错的，特别是VB窗体TAB的应用，来看界面效果：
核心代码如下：
VERSION 5.00
Object = &{BDC217C8-ED16-11CD-956C-C0A}#1.1#0&; &TABCTL32.OCX&
Begin VB.Form Form1
BorderStyle
'Fixed Single
&编写银行取款排号小票打印程序&
ClientHeight
ClientLeft
ClientWidth
ScaleHeight
ScaleWidth
StartUpPosition =
Begin TabDlg.SSTab SSTab1
TabCaption(0)
&生成号码&
TabPicture(0)
&Form1.frx&:0000
Tab(0).ControlEnabled=
Tab(0).Control(0)=
&cmdExcute&
Tab(0).Control(1)=
Tab(0).Control(2)=
&txtStart&
Tab(0).Control(3)=
Tab(0).ControlCount=
TabCaption(1)
&打印号码&
TabPicture(1)
&Form1.frx&:001C
Tab(1).ControlEnabled=
Tab(1).Control(0)=
Tab(1).Control(0).Enabled=
Tab(1).Control(1)=
&cmdPrint&
Tab(1).Control(1).Enabled=
Tab(1).ControlCount=
TabCaption(2)
TabPicture(2)
&Form1.frx&:0038
Tab(2).ControlEnabled=
Tab(2).Control(0)=
Tab(2).Control(0).Enabled=
Tab(2).Control(1)=
&lblNumber&
Tab(2).Control(1).Enabled=
Tab(2).Control(2)=
&Command1&
Tab(2).Control(2).Enabled=
Tab(2).ControlCount=
mandButton Command1
mandButton cmdPrint
mandButton cmdExcute
Begin VB.TextBox txtEnd
Begin VB.TextBox txtStart
Begin VB.Label lblNumber
BeginProperty Font
Strikethrough
EndProperty
&H000000FF&
Begin VB.Label Label3
'Transparent
&请单击【叫号】按钮&
Begin VB.Label Label2
'Transparent
&请单击【打印】按钮&
Begin VB.Label Label1
'Transparent
Attribute VB_Name = &Form1&
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cn As New Connection
Dim rs As New ADODB.Recordset, rs1 As New ADODB.Recordset
Dim i As Long
Private Sub Command1_Click()
rs1.Open &select * from 排号表 where 标志=1 order by 号码&, cn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount & 0 Then
If rs1.EOF && True Then
lblNumber.Caption = rs1.Fields(&号码&)
cn.Execute (&update 排号表 set 标志=0 where 号码=& & Val(lblNumber.Caption))
rs1.MoveNext
MsgBox &无人等候！&
MsgBox &无人等候！&
Private Sub Form_Load()
cn.Open &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=& & App.Path & &\db_bank.Persist Security Info=False&
rs.Open &select * from 排号表&, cn, adOpenKeyset, adLockOptimistic
Private Sub cmdExcute_Click()
cn.Execute (&delete * from 排号表&)
For i = Val(txtStart) To Val(txtEnd)
cn.Execute &insert into 排号表(号码) values(& & i & &)&
Private Sub cmdPrint_Click()
Dim myval As Integer
rs1.Open &select * from 排号表 where 标志=1 order by 号码&, cn, adOpenKeyset, adLockOptimistic
myval = rs1.RecordCount
If rs.EOF = True Then
rs.MoveFirst
Printer.Font.Size = 14
Printer.Print &中国工商银行欢迎您&;
Printer.Print
Printer.Print
Printer.CurrentX = 500
Printer.Font.Size = 20
Printer.Print rs.Fields(&号码&);
Printer.Print
Printer.Print
Printer.Font.Size = 10
Printer.Print &您办理的人民币业务
有& & myval & &人等候&;
Printer.Print
Printer.Print Now & &
Printer.EndDoc
rs.Fields(&标志&) = 1
rs.Move (1)
里面要用到一个测试数据库，需要的话可下载完整源码包，含有数据库，在这里：怎么制作代购小票_百度知道
怎么制作代购小票
网上有各种小票模板，只要配上一台热敏小票打印机就可以了。和真票据放在一起对比，无论是字样还是纸张都看不出差别。可以打印英文、法文等多种语言，就连购买地也可以选择中国香港、美国等。至于破绽，只有拿条形码到正品专柜一扫，才会真相大白。不过，专柜一般不会提供这种辨别服务。
其他类似问题
为您推荐：
代购的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁取款机小票可以做凭证吗_百度知道
取款机小票可以做凭证吗
取款机小票可以做凭证吗
您的回答被采纳后将获得：
系统奖励20（财富值+经验值）+难题奖励20（财富值+经验值）
我有更好的答案
其他类似问题
为您推荐：
取款机的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁需求发布后1小时内收到服务商响应每个需求平均有10个服务商参与95%以上的需求得到了圆满解决所有需求不向雇主和服务商收取任何佣金粽子包装印刷一键搞定，劲爆低价
有相似问题想解决?专业顾问来帮助您
匹配服务商
选择服务商，签单
服务商工作
验收工作，满意后付款
已投标服务商
综合评分：5颗星
速度：4.95
服务：4.95
态度：4.95
好评率：100%
共有6个服务商参与报价，查看更多服务商报价
参与报价,开始赚钱
提交你的报价和方案
中标后交付作品
获得任务赏金

我要回帖

更多关于 word 制作小票 的文章

 

随机推荐