📄 frm_xfjs.frm
字号:
VERSION 5.00
Begin VB.Form frm_xfjs
BorderStyle = 3 'Fixed Dialog
Caption = "结算"
ClientHeight = 3810
ClientLeft = 30
ClientTop = 420
ClientWidth = 6210
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3810
ScaleWidth = 6210
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdICC
Caption = "验卡(&M)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 960
TabIndex = 12
Top = 3120
Width = 1452
End
Begin VB.TextBox txtxfKL
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 10
Top = 2400
Width = 1692
End
Begin VB.TextBox txtxfK
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1440
MaxLength = 8
TabIndex = 9
Top = 1920
Width = 1692
End
Begin VB.CommandButton Command1
Caption = "取消(&C)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4080
TabIndex = 7
Top = 3120
Width = 1452
End
Begin VB.CommandButton cmdxfJS
Caption = "结算(&G)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 2520
TabIndex = 6
Top = 3120
Width = 1452
End
Begin VB.OptionButton Option3
Caption = "积分"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 4200
TabIndex = 4
Top = 1320
Visible = 0 'False
Width = 852
End
Begin VB.OptionButton Option2
Caption = "电子钱包"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 2760
TabIndex = 3
Top = 1320
Width = 1332
End
Begin VB.OptionButton Option1
Caption = "现金"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 1560
TabIndex = 2
Top = 1320
Width = 852
End
Begin VB.Label Label4
Caption = "找 零："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 240
TabIndex = 11
Top = 2400
Width = 1212
End
Begin VB.Label Label3
Caption = "收现金："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 240
TabIndex = 8
Top = 1920
Width = 1212
End
Begin VB.Label Label2
Caption = "实收金额："
BeginProperty Font
Name = "宋体"
Size = 16.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 372
Left = 240
TabIndex = 5
Top = 720
Width = 2772
End
Begin VB.Label Label1
Caption = "结算类型："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 240
TabIndex = 1
Top = 1320
Width = 1212
End
Begin VB.Label Label5
Caption = "帐 单 号："
BeginProperty Font
Name = "宋体"
Size = 16.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 372
Left = 240
TabIndex = 0
Top = 240
Width = 2892
End
End
Attribute VB_Name = "frm_xfjs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim sMoney As Currency
Dim sType As String '支付类型
Dim sHybh(1024) As String '会员编号
Dim sHybhLast As String
Dim sKsye As Currency '卡上余额
Dim sListNo As Integer
Dim sBeforeMoney As Currency
Dim sBeforeTimes As Long
Dim sCardid As String
Dim CardID As String '物理卡号
Dim sKey As String '默认密码
Dim sKeyLast As String '用户密码
Dim sKeyPin As String '用户密码因子 物理卡号+物理卡号
Dim skeyPI(8) As Byte
Dim skeyID(8) As Byte
Dim skeyLA(8) As Byte
Dim pbOut(3) As Byte
Dim sN As Integer
Private Sub cmdICC_Click() '验卡
'检查卡上余额或积分是否够当次消费
Dim pbOut(3) As Byte
icdev = dc_init(100, 115200) ''打开读写器，建立连接
If icdev < 0 Then
icdev = dc_init(100, 115200)
If icdev < 0 Then
MsgBox "未检测到IC卡读写器，请检查！", vbInformation + vbOKOnly, "中芯德立提示信息": Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -