📄 checkfrm.frm
字号:
VERSION 5.00
Begin VB.Form checkfrm
Caption = "统计多次票根"
ClientHeight = 3615
ClientLeft = 45
ClientTop = 330
ClientWidth = 6525
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3615
ScaleWidth = 6525
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 372
Left = 4440
TabIndex = 28
Top = 3120
Width = 972
End
Begin VB.CommandButton cmdok
Caption = "确定"
Height = 372
Left = 1080
TabIndex = 27
Top = 3120
Width = 972
End
Begin VB.TextBox txt5e2
Height = 264
Left = 5040
TabIndex = 26
Top = 600
Width = 972
End
Begin VB.TextBox txt5b2
Height = 264
Left = 3960
TabIndex = 25
Top = 600
Width = 972
End
Begin VB.TextBox txt5e1
Height = 264
Left = 2760
TabIndex = 24
Top = 600
Width = 972
End
Begin VB.TextBox txt5b1
Height = 264
Left = 1680
TabIndex = 23
Top = 600
Width = 972
End
Begin VB.TextBox txt10e2
Height = 264
Left = 5040
TabIndex = 22
Top = 1080
Width = 972
End
Begin VB.TextBox txt10b2
Height = 264
Left = 3960
TabIndex = 21
Top = 1080
Width = 972
End
Begin VB.TextBox txt10e1
Height = 264
Left = 2760
TabIndex = 20
Top = 1080
Width = 972
End
Begin VB.TextBox txt10b1
Height = 264
Left = 1680
TabIndex = 19
Top = 1080
Width = 972
End
Begin VB.TextBox txt15e2
Height = 264
Left = 5040
TabIndex = 18
Top = 1560
Width = 972
End
Begin VB.TextBox txt15b2
Height = 264
Left = 3960
TabIndex = 17
Top = 1560
Width = 972
End
Begin VB.TextBox txt15e1
Height = 264
Left = 2760
TabIndex = 16
Top = 1560
Width = 972
End
Begin VB.TextBox txt15b1
Height = 264
Left = 1680
TabIndex = 15
Top = 1560
Width = 972
End
Begin VB.TextBox txt20b2
Height = 264
Left = 3960
TabIndex = 14
Top = 2040
Width = 972
End
Begin VB.TextBox txt20e2
Height = 264
Left = 5040
TabIndex = 13
Top = 2040
Width = 972
End
Begin VB.TextBox txt20e1
Height = 264
Left = 2760
TabIndex = 12
Top = 2040
Width = 972
End
Begin VB.TextBox txt20b1
Height = 264
Left = 1680
TabIndex = 11
Top = 2040
Width = 972
End
Begin VB.TextBox txt30e2
Height = 264
Left = 5040
TabIndex = 10
Top = 2520
Width = 972
End
Begin VB.TextBox txt30b2
Height = 264
Left = 3960
TabIndex = 9
Top = 2520
Width = 972
End
Begin VB.TextBox txt30e1
Height = 264
Left = 2760
TabIndex = 8
Top = 2520
Width = 972
End
Begin VB.TextBox txt30b1
Height = 264
Left = 1680
TabIndex = 7
Top = 2520
Width = 972
End
Begin VB.Frame Frame2
Caption = "请输入票据起止号"
Height = 2652
Left = 1440
TabIndex = 6
Top = 240
Width = 4812
Begin VB.Line Line11
X1 = 3480
X2 = 3600
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line9
X1 = 3480
X2 = 3600
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line8
X1 = 3480
X2 = 3600
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line7
X1 = 3480
X2 = 3600
Y1 = 960
Y2 = 960
End
Begin VB.Line Line6
X1 = 3480
X2 = 3600
Y1 = 480
Y2 = 480
End
Begin VB.Line Line5
X1 = 1200
X2 = 1320
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line4
X1 = 1200
X2 = 1320
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line3
X1 = 1200
X2 = 1320
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line2
X1 = 1200
X2 = 1320
Y1 = 960
Y2 = 960
End
Begin VB.Line Line1
X1 = 1200
X2 = 1320
Y1 = 480
Y2 = 480
End
End
Begin VB.Frame Frame1
Caption = "票面金额"
Height = 2652
Left = 240
TabIndex = 0
Top = 240
Width = 972
Begin VB.Label Label5
Caption = "5元"
Height = 255
Left = 360
TabIndex = 5
Top = 360
Width = 375
End
Begin VB.Label Label4
Caption = "10元"
Height = 375
Left = 240
TabIndex = 4
Top = 840
Width = 615
End
Begin VB.Label Label3
Caption = "15元"
Height = 372
Left = 240
TabIndex = 3
Top = 1320
Width = 492
End
Begin VB.Label Label2
Caption = "20元"
Height = 255
Left = 240
TabIndex = 2
Top = 1800
Width = 495
End
Begin VB.Label Label1
Caption = "30元"
Height = 255
Left = 240
TabIndex = 1
Top = 2280
Width = 495
End
End
Begin VB.Line Line10
X1 = 4920
X2 = 5040
Y1 = 2640
Y2 = 2640
End
End
Attribute VB_Name = "checkfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdexit_Click()
checkfrm.Hide
Unload Me
End Sub
Private Sub cmdok_Click()
'30元二次票根
Dim je30_2, billb30_2, bille30_2, zs30_2 As Long
billb30_2 = Val(txt30b1.Text)
bille30_2 = Val(txt30e1.Text)
If bille30_2 = 0 Then
je30_2 = 0
Else
je30_2 = (bille30_2 - billb30_2 + 1) * 30
End If
datafrm.txtje30temp.Text = je30_2
If bille30_2 = 0 Then
zs30_2 = 0
Else
zs30_2 = (bille30_2 - billb30_2 + 1)
End If
datafrm.txtzs30temp.Text = zs30_2
datafrm.txt30b1temp.Text = billb30_2
datafrm.txt30e1temp.Text = bille30_2
'30元三次票根
Dim je30_3, billb30_3, bille30_3, zs30_3 As Long
billb30_3 = Val(txt30b2.Text)
bille30_3 = Val(txt30e2.Text)
If bille30_3 = 0 Then
je30_3 = 0
Else
je30_3 = (bille30_3 - billb30_3 + 1) * 30
End If
datafrm.txtje30temp1.Text = je30_3
If bille30_3 = 0 Then
zs30_3 = 0
Else
zs30_3 = (bille30_3 - billb30_3 + 1)
End If
datafrm.txtzs30temp1.Text = zs30_3
datafrm.txt30b2temp.Text = billb30_3
datafrm.txt30e2temp.Text = bille30_3
'20元二次票根
Dim je20_2, billb20_2, bille20_2, zs20_2 As Long
billb20_2 = Val(txt20b1.Text)
bille20_2 = Val(txt20e1.Text)
If bille20_2 = 0 Then
je20_2 = 0
Else
je20_2 = (bille20_2 - billb20_2 + 1) * 20
End If
datafrm.txtje20temp.Text = je20_2
If bille20_2 = 0 Then
zs20_2 = 0
Else
zs20_2 = (bille20_2 - billb20_2 + 1)
End If
datafrm.txtzs20temp.Text = zs20_2
datafrm.txt20b1temp.Text = billb20_2
datafrm.txt20e1temp.Text = bille20_2
'20元三次票根
Dim je20_3, billb20_3, bille20_3, zs20_3 As Long
billb20_3 = Val(txt20b2.Text)
bille20_3 = Val(txt20e2.Text)
If bille20_3 = 0 Then
je20_3 = 0
Else
je20_3 = (bille20_3 - billb20_3 + 1) * 20
End If
datafrm.txtje20temp1.Text = je20_3
If bille20_3 = 0 Then
zs20_3 = 0
Else
zs20_3 = (bille20_3 - billb20_3 + 1)
End If
datafrm.txtzs20temp1.Text = zs20_3
datafrm.txt20b2temp.Text = billb20_3
datafrm.txt20e2temp.Text = bille20_3
'15元二次票根
Dim je15_2, billb15_2, bille15_2, zs15_2 As Long
billb15_2 = Val(txt15b1.Text)
bille15_2 = Val(txt15e1.Text)
If bille15_2 = 0 Then
je15_2 = 0
Else
je15_2 = (bille15_2 - billb15_2 + 1) * 15
End If
datafrm.txtje15temp.Text = je15_2
If bille15_2 = 0 Then
zs15_2 = 0
Else
zs15_2 = (bille15_2 - billb15_2 + 1)
End If
datafrm.txtzs15temp.Text = zs15_2
datafrm.txt15b1temp.Text = billb15_2
datafrm.txt15e1temp.Text = bille15_2
'15元三次票根
Dim je15_3, billb15_3, bille15_3, zs15_3 As Long
billb15_3 = Val(txt15b2.Text)
bille15_3 = Val(txt15e2.Text)
If bille15_3 = 0 Then
je15_3 = 0
Else
je15_3 = (bille15_3 - billb15_3 + 1) * 15
End If
datafrm.txtje15temp1.Text = je15_3
If bille15_3 = 0 Then
zs15_3 = 0
Else
zs15_3 = (bille15_3 - billb15_3 + 1)
End If
datafrm.txtzs15temp1.Text = zs15_3
datafrm.txt15b2temp.Text = billb15_3
datafrm.txt15e2temp.Text = bille15_3
'10元二次票根
Dim je10_2, billb10_2, bille10_2, zs10_2 As Long
billb10_2 = Val(txt10b1.Text)
bille10_2 = Val(txt10e1.Text)
If bille10_2 = 0 Then
je10_2 = 0
Else
je10_2 = (bille10_2 - billb10_2 + 1) * 10
End If
datafrm.txtje10temp.Text = je10_2
If bille10_2 = 0 Then
zs10_2 = 0
Else
zs10_2 = (bille10_2 - billb10_2 + 1)
End If
datafrm.txtzs10temp.Text = zs10_2
datafrm.txt10b1temp.Text = billb10_2
datafrm.txt10e1temp.Text = bille10_2
'10元三次票根
Dim je10_3, billb10_3, bille10_3, zs10_3 As Long
billb10_3 = Val(txt10b2.Text)
bille10_3 = Val(txt10e2.Text)
If bille10_3 = 0 Then
je10_3 = 0
Else
je10_3 = (bille10_3 - billb10_3 + 1) * 10
End If
datafrm.txtje10temp1.Text = je10_3
If bille10_3 = 0 Then
zs10_3 = 0
Else
zs10_3 = (bille10_3 - billb10_3 + 1)
End If
datafrm.txtzs10temp1.Text = zs10_3
datafrm.txt10b2temp.Text = billb10_3
datafrm.txt10e2temp.Text = bille10_3
'5元二次票根
Dim je5_2, billb5_2, bille5_2, zs5_2 As Long
billb5_2 = Val(txt5b1.Text)
bille5_2 = Val(txt5e1.Text)
If bille5_2 = 0 Then
je5_2 = 0
Else
je5_2 = (bille5_2 - billb5_2 + 1) * 5
End If
datafrm.txtje5temp.Text = je5_2
If bille5_2 = 0 Then
zs5_2 = 0
Else
zs5_2 = (bille5_2 - billb5_2 + 1)
End If
datafrm.txtzs5temp.Text = zs5_2
datafrm.txt5b1temp.Text = billb5_2
datafrm.txt5e1temp.Text = bille5_2
'5元三次票根
Dim je5_3, billb5_3, bille5_3, zs5_3 As Long
billb5_3 = Val(txt5b2.Text)
bille5_3 = Val(txt5e2.Text)
If bille5_3 = 0 Then
je5_3 = 0
Else
je5_3 = (bille5_3 - billb5_3 + 1) * 5
End If
datafrm.txtje5temp1.Text = je5_3
If bille5_3 = 0 Then
zs5_3 = 0
Else
zs5_3 = (bille5_3 - billb5_3 + 1)
End If
datafrm.txtzs5temp1.Text = zs5_3
datafrm.txt5b2temp.Text = billb5_3
datafrm.txt5e2temp.Text = bille5_3
checkfrm.Hide
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -