📄 frminputearning.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmInputConEarning
BackColor = &H8000000A&
Caption = "有人售票收银现金录入"
ClientHeight = 7590
ClientLeft = 60
ClientTop = 345
ClientWidth = 10260
ClipControls = 0 'False
Icon = "frmInputEarning.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
Moveable = 0 'False
ScaleHeight = 7590
ScaleWidth = 10260
WindowState = 2 'Maximized
Begin VB.CommandButton cmdExit
Caption = "退出[&X]"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 7230
TabIndex = 55
Top = 6630
Width = 1605
End
Begin VB.CommandButton cmdCancel
Caption = "取消[&C]"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5610
TabIndex = 54
Top = 6630
Width = 1605
End
Begin VB.CommandButton cmdOK
Caption = "确定[&O]"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 3960
TabIndex = 53
Top = 6630
Width = 1605
End
Begin TabDlg.SSTab sstabBk
Height = 6735
Left = 90
TabIndex = 22
Top = 750
Width = 8955
_ExtentX = 15796
_ExtentY = 11880
_Version = 393216
Style = 1
Tabs = 1
TabsPerRow = 1
TabHeight = 706
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = " 投币收入录入 "
TabPicture(0) = "frmInputEarning.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
Begin VB.Frame Frame2
Height = 735
Left = 270
TabIndex = 48
Top = 3630
Width = 8385
Begin VB.TextBox txtToTalMoney
Alignment = 1 'Right Justify
BackColor = &H80000009&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 1830
TabIndex = 50
Text = "0"
Top = 270
Width = 2115
End
Begin VB.TextBox txtTotalNum
Alignment = 1 'Right Justify
BackColor = &H80000004&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 6030
Locked = -1 'True
TabIndex = 49
Text = "0"
Top = 270
Width = 2115
End
Begin VB.Label lblTotalMoney
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "票款收入(元)："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 180
TabIndex = 52
Top = 330
Width = 1680
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总人次(人次)："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4350
TabIndex = 51
Top = 360
Width = 1770
End
End
Begin VB.Frame Frame1
Height = 4065
Left = 120
TabIndex = 23
Top = 555
Width = 8685
Begin VB.TextBox txtDcOP_No
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2760
TabIndex = 63
Text = "0"
Top = 2220
Visible = 0 'False
Width = 1335
End
Begin VB.TextBox TxtAvePrice
Alignment = 1 'Right Justify
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 7170
Locked = -1 'True
TabIndex = 62
TabStop = 0 'False
Text = "1"
Top = 1080
Width = 1335
End
Begin VB.TextBox txtConductorName
Alignment = 1 'Right Justify
BackColor = &H8000000A&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
Left = 6960
TabIndex = 60
TabStop = 0 'False
Top = 720
Width = 1545
End
Begin VB.TextBox txtConductorNo
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6960
TabIndex = 59
Text = "0"
Top = 300
Width = 1545
End
Begin VB.Frame Frame3
Height = 30
Left = 30
TabIndex = 56
Top = 2880
Width = 8475
End
Begin VB.TextBox dtpDate
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1230
Locked = -1 'True
TabIndex = 0
Top = 300
Width = 1365
End
Begin VB.TextBox txtM001
Alignment = 1 'Right Justify
DataField = "PASSWORD"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 7920
MaxLength = 4
TabIndex = 20
Text = "0"
Top = 3390
Visible = 0 'False
Width = 665
End
Begin VB.TextBox txtM002
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 7290
MaxLength = 4
TabIndex = 19
Text = "0"
Top = 3390
Width = 665
End
Begin VB.TextBox txtM005
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6645
MaxLength = 4
TabIndex = 18
Text = "0"
Top = 3390
Width = 665
End
Begin VB.TextBox txtM01
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6015
MaxLength = 4
TabIndex = 17
Text = "0"
Top = 3390
Width = 665
End
Begin VB.TextBox txtM02
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 5370
MaxLength = 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -