📄 datafrm.frm
字号:
TabIndex = 25
Top = 1680
Width = 1092
End
Begin VB.TextBox txt5b
Height = 264
Left = 2400
TabIndex = 24
Top = 1680
Width = 1092
End
Begin VB.TextBox txt10e
Height = 264
Left = 3600
TabIndex = 23
Top = 2160
Width = 1092
End
Begin VB.TextBox txt10b
Height = 264
Left = 2400
TabIndex = 22
Top = 2160
Width = 1092
End
Begin VB.TextBox txt15e
Height = 264
Left = 3600
TabIndex = 21
Top = 2640
Width = 1092
End
Begin VB.TextBox txt15b
Height = 264
Left = 2400
TabIndex = 20
Top = 2640
Width = 1092
End
Begin VB.TextBox txt20e
Height = 264
Left = 3600
TabIndex = 19
Top = 3120
Width = 1092
End
Begin VB.TextBox txt20b
Height = 264
Left = 2400
TabIndex = 18
Top = 3120
Width = 1092
End
Begin VB.TextBox txt30e
Height = 264
Left = 3600
TabIndex = 17
Top = 3600
Width = 1092
End
Begin VB.TextBox txt30b
Height = 264
Left = 2400
TabIndex = 16
Top = 3600
Width = 1092
End
Begin VB.Frame Frame2
Caption = "请输入票据起止号"
Height = 2652
Left = 1800
TabIndex = 15
Top = 1320
Width = 3495
Begin VB.Line Line6
X1 = 1680
X2 = 1800
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line4
X1 = 1680
X2 = 1800
Y1 = 1920
Y2 = 1920
End
Begin VB.Line Line3
X1 = 1680
X2 = 1800
Y1 = 1440
Y2 = 1440
End
Begin VB.Line Line2
X1 = 1680
X2 = 1800
Y1 = 960
Y2 = 960
End
Begin VB.Line Line1
X1 = 1800
X2 = 1680
Y1 = 480
Y2 = 480
End
End
Begin VB.Frame Frame1
Caption = " 票面金额"
Height = 2652
Left = 240
TabIndex = 9
Top = 1320
Width = 1092
Begin VB.Label Label10
Caption = "5元"
Height = 255
Left = 480
TabIndex = 14
Top = 360
Width = 375
End
Begin VB.Label Label9
Caption = "10元"
Height = 255
Left = 360
TabIndex = 13
Top = 840
Width = 495
End
Begin VB.Label Label8
Caption = "15元"
Height = 252
Left = 360
TabIndex = 12
Top = 1320
Width = 372
End
Begin VB.Label Label7
Caption = "20元"
Height = 375
Left = 360
TabIndex = 11
Top = 1800
Width = 495
End
Begin VB.Label Label6
Caption = "30元"
Height = 255
Left = 360
TabIndex = 10
Top = 2280
Width = 495
End
End
Begin VB.TextBox txtsfname
Height = 270
Left = 1200
TabIndex = 8
Top = 720
Width = 1335
End
Begin MSComCtl2.DTPicker DTPriqi
Height = 375
Left = 6240
TabIndex = 6
Top = 720
Width = 1695
_ExtentX = 2990
_ExtentY = 661
_Version = 393216
Format = 24510464
CurrentDate = 37597
End
Begin VB.ComboBox Combobc
Height = 300
Left = 3960
TabIndex = 5
Text = "白"
Top = 720
Width = 972
End
Begin VB.ComboBox Combobz
Height = 300
Left = 3960
TabIndex = 3
Text = "一"
Top = 240
Width = 972
End
Begin VB.ComboBox Combostation
Height = 300
Left = 6240
TabIndex = 1
Text = "天津收费站"
Top = 240
Width = 1695
End
Begin VB.Frame Frame4
Caption = "请输入收费员工号"
Height = 1095
Left = 5760
TabIndex = 75
Top = 1320
Width = 2415
Begin VB.Label Label12
Caption = "工号："
Height = 255
Left = 240
TabIndex = 76
Top = 480
Width = 615
End
End
Begin VB.Label Label4
Caption = "日期："
Height = 255
Left = 5520
TabIndex = 73
Top = 840
Width = 615
End
Begin VB.Label Label11
Caption = "工号："
Height = 255
Left = 480
TabIndex = 70
Top = 360
Width = 615
End
Begin VB.Line Line5
X1 = 3089.464
X2 = 3208.29
Y1 = 4615.385
Y2 = 4615.385
End
Begin VB.Label Label5
Caption = "姓名："
Height = 255
Left = 480
TabIndex = 7
Top = 840
Width = 735
End
Begin VB.Label Label3
Caption = "班次："
Height = 375
Left = 3240
TabIndex = 4
Top = 840
Width = 615
End
Begin VB.Label Label2
Caption = "班组："
Height = 255
Left = 3240
TabIndex = 2
Top = 360
Width = 615
End
Begin VB.Label Label1
Caption = "收费站："
Height = 255
Left = 5400
TabIndex = 0
Top = 360
Width = 735
End
End
Attribute VB_Name = "datafrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim m_enable As Boolean
Dim rwdate As String
Dim piao5, piao10, piao15, piao20, piao30 As String
Option Explicit
Private Sub FlatScrollBar1_Change()
End Sub
Private Sub Check1_Click()
m_enable = Not m_enable
If m_enable Then
cmdcheck.Enabled = True
Else
cmdcheck.Enabled = False
End If
End Sub
Private Sub cmdcancel_Click()
End Sub
Private Sub cmdcheck_Click()
checkfrm.Show
End Sub
Private Sub cmdexit_Click()
datafrm.Hide
Unload Me
End Sub
Private Sub cmdok_Click()
Dim condata As New ADODB.Connection
Dim cmddata As New ADODB.Command
Dim strcnn As String
'30元票面
Dim je30_1, je30_2, je30_3, billb30_1, bille30_1, zs30_1, zs30_2, zs30_3 As Long
billb30_1 = Val(txt30b.Text)
bille30_1 = Val(txt30e.Text)
je30_2 = Val(txtje30temp.Text)
zs30_2 = Val(txtzs30temp.Text)
je30_3 = Val(txtje30temp1.Text)
zs30_3 = Val(txtzs30temp1.Text)
If bille30_1 = 0 Then
je30_1 = 0
Else
je30_1 = (bille30_1 - billb30_1 + 1) * 30
End If
If bille30_1 = 0 Then
zs30_1 = 0
Else
zs30_1 = (bille30_1 - billb30_1 + 1)
End If
If m_enable Then
datamfrm.txtje30.Text = je30_1 + je30_2 + je30_3
datamfrm.txtzs30.Text = zs30_1 + zs30_2 + zs30_3
Else
datamfrm.txtje30.Text = je30_1
datamfrm.txtzs30.Text = zs30_1
End If
'20元票面
Dim je20_1, je20_2, je20_3, billb20_1, bille20_1, zs20_1, zs20_2, zs20_3 As Long
billb20_1 = Val(txt20b.Text)
bille20_1 = Val(txt20e.Text)
je20_2 = Val(txtje20temp.Text)
zs20_2 = Val(txtzs20temp.Text)
je20_3 = Val(txtje20temp1.Text)
zs20_3 = Val(txtzs20temp1.Text)
If bille20_1 = 0 Then
je20_1 = 0
Else
je20_1 = (bille20_1 - billb20_1 + 1) * 20
End If
If bille20_1 = 0 Then
zs20_1 = 0
Else
zs20_1 = (bille20_1 - billb20_1 + 1)
End If
If m_enable Then
datamfrm.txtje20.Text = je20_1 + je20_2 + je20_3
datamfrm.txtzs20.Text = zs20_1 + zs20_2 + zs20_3
Else
datamfrm.txtje20.Text = je20_1
datamfrm.txtzs20.Text = zs20_1
End If
'15元票面
Dim je15_1, je15_2, je15_3, billb15_1, bille15_1, zs15_1, zs15_2, zs15_3 As Long
billb15_1 = Val(txt15b.Text)
bille15_1 = Val(txt15e.Text)
je15_2 = Val(txtje15temp.Text)
zs15_2 = Val(txtzs15temp.Text)
je15_3 = Val(txtje15temp1.Text)
zs15_3 = Val(txtzs15temp1.Text)
If bille15_1 = 0 Then
je15_1 = 0
Else
je15_1 = (bille15_1 - billb15_1 + 1) * 15
End If
If bille15_1 = 0 Then
zs15_1 = 0
Else
zs15_1 = (bille15_1 - billb15_1 + 1)
End If
If m_enable Then
datamfrm.txtje15.Text = je15_1 + je15_2 + je15_3
datamfrm.txtzs15.Text = zs15_1 + zs15_2 + zs15_3
Else
datamfrm.txtje15.Text = je15_1
datamfrm.txtzs15.Text = zs15_1
End If
'10元票面
Dim je10_1, je10_2, je10_3, billb10_1, bille10_1, zs10_1, zs10_2, zs10_3 As Long
billb10_1 = Val(txt10b.Text)
bille10_1 = Val(txt10e.Text)
je10_2 = Val(txtje10temp.Text)
zs10_2 = Val(txtzs10temp.Text)
je10_3 = Val(txtje10temp1.Text)
zs10_3 = Val(txtzs10temp1.Text)
If bille10_1 = 0 Then
je10_1 = 0
Else
je10_1 = (bille10_1 - billb10_1 + 1) * 10
End If
If bille10_1 = 0 Then
zs10_1 = 0
Else
zs10_1 = (bille10_1 - billb10_1 + 1)
End If
If m_enable Then
datamfrm.txtje10.Text = je10_1 + je10_2 + je10_3
datamfrm.txtzs10.Text = zs10_1 + zs10_2 + zs10_3
Else
datamfrm.txtje10.Text = je10_1
datamfrm.txtzs10.Text = zs10_1
End If
'5元票面
Dim je5_1, je5_2, je5_3, billb5_1, bille5_1, zs5_1, zs5_2, zs5_3 As Long
billb5_1 = Val(txt5b.Text)
bille5_1 = Val(txt5e.Text)
je5_2 = Val(txtje5temp.Text)
zs5_2 = Val(txtzs5temp.Text)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -