📄 frminputdriearning.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmInputEarning
BackColor = &H8000000A&
Caption = "收银现金录入"
ClientHeight = 7275
ClientLeft = 60
ClientTop = 345
ClientWidth = 10260
ClipControls = 0 'False
Icon = "frmInputDriEarning.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
Moveable = 0 'False
ScaleHeight = 7275
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 = 57
Top = 6090
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 = 56
Top = 6090
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 = 55
Top = 6090
Width = 1605
End
Begin TabDlg.SSTab sstabBk
Height = 6075
Left = 120
TabIndex = 22
Top = 810
Width = 8865
_ExtentX = 15637
_ExtentY = 10716
_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) = "frmInputDriEarning.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 = 120
TabIndex = 50
Top = 4350
Width = 8595
Begin VB.TextBox txtToTalTicket
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 = 4410
Locked = -1 'True
TabIndex = 59
Text = "0"
Top = 240
Width = 1305
End
Begin VB.TextBox txtToTalMoney
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 = 1410
Locked = -1 'True
TabIndex = 52
Text = "0"
Top = 240
Width = 1305
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 = 7140
Locked = -1 'True
TabIndex = 51
Text = "0"
Top = 240
Width = 1305
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 = 255
Left = 2820
TabIndex = 58
Top = 300
Width = 1875
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 = 120
TabIndex = 54
Top = 300
Width = 1440
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 = 5820
TabIndex = 53
Top = 300
Width = 1440
End
End
Begin VB.Frame Frame1
Height = 3435
Left = 120
TabIndex = 23
Top = 495
Width = 8595
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 = 6870
TabIndex = 60
Text = "0"
Top = 2100
Visible = 0 'False
Width = 1545
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 = 1260
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 = 7770
MaxLength = 4
TabIndex = 20
Text = "0"
Top = 2970
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 = 7140
MaxLength = 4
TabIndex = 19
Text = "0"
Top = 2970
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 = 6495
MaxLength = 4
TabIndex = 18
Text = "0"
Top = 2970
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 = 5865
MaxLength = 4
TabIndex = 17
Text = "0"
Top = 2970
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 = 5220
MaxLength = 4
TabIndex = 16
Text = "0"
Top = 2970
Width = 665
End
Begin VB.TextBox txtM05
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 = 4590
MaxLength = 4
TabIndex = 15
Text = "0"
Top = 2970
Width = 665
End
Begin VB.TextBox txtM1
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -