📄 frmhousecheckbus.frm
字号:
VERSION 5.00
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Object = "{33E9552B-797C-11D2-900E-444553540000}#31.0#0"; "LSTCTL.OCX"
Object = "{3656C817-4709-11D2-900E-444553540000}#61.0#0"; "MAINTAINCTL.OCX"
Begin VB.Form frmHouseCheckBus
BorderStyle = 1 'Fixed Single
Caption = "盘"
ClientHeight = 5295
ClientLeft = 210
ClientTop = 855
ClientWidth = 9180
Icon = "frmHouseCheckBus.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5295
ScaleWidth = 9180
Begin FPSpread.vaSpread spd
Height = 2880
Left = 60
OleObjectBlob = "frmHouseCheckBus.frx":0442
TabIndex = 3
Top = 990
Width = 9135
End
Begin VB.Frame fra
BorderStyle = 0 'None
Height = 660
Left = 6960
TabIndex = 15
Top = -120
Width = 2220
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "时 间:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 192
Left = 72
TabIndex = 19
Top = 168
Visible = 0 'False
Width = 672
End
Begin VB.Label lblHander
AutoSize = -1 'True
Caption = "lblHandler"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 192
Left = 888
TabIndex = 18
Tag = "Dyn"
Top = 432
Visible = 0 'False
Width = 1056
End
Begin VB.Label lblTHandler
AutoSize = -1 'True
Caption = "操作员:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 192
Left = 72
TabIndex = 17
Top = 432
Visible = 0 'False
Width = 696
End
Begin VB.Label lblDate
AutoSize = -1 'True
Caption = "lblDate"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 195
Left = 900
TabIndex = 16
Top = 180
Visible = 0 'False
Width = 735
End
End
Begin VB.TextBox txtSheetID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 330
Left = 1020
MaxLength = 20
TabIndex = 0
Text = "txtSheetID"
Top = 636
Width = 1770
End
Begin VB.TextBox txtComment
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 1 'ON
Left = 1200
ScrollBars = 2 'Vertical
TabIndex = 1
Text = "txtComment"
Top = 4290
Width = 7890
End
Begin LstCtl.ListCtl lct
Height = 348
Left = 36
TabIndex = 8
Top = 4908
Width = 2448
_ExtentX = 4313
_ExtentY = 609
End
Begin UseMaintainCtl.MaiControl mcr
Height = 516
Left = 4212
TabIndex = 2
Top = 4812
Width = 4956
_ExtentX = 8731
_ExtentY = 900
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Status = 0
BackColorForAdd = -2147483638
BackColorForUpdate= -2147483638
ButtonCaption = " &A.确认 &T.转换 &P.打印 &E退出"
KeyEnabled = "0#1#0#1#1#0#1#1#"
End
Begin VB.Line Line4
BorderColor = &H80000005&
X1 = -60
X2 = 9360
Y1 = 4740
Y2 = 4740
End
Begin VB.Line Line3
BorderColor = &H80000003&
X1 = -60
X2 = 9360
Y1 = 4755
Y2 = 4755
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "零售金额:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5190
TabIndex = 14
Top = 3960
Width = 945
End
Begin VB.Label lblCGMoney
AutoSize = -1 'True
Caption = "lblCGMoney"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 6255
TabIndex = 13
Tag = "Dyn"
Top = 3960
Width = 1050
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "单 据 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 192
Left = 36
TabIndex = 12
Top = 696
Width = 936
End
Begin VB.Label LblYY
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注:"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 225
Left = 480
TabIndex = 11
Top = 4350
Width = 570
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "盘"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 3360
TabIndex = 10
Top = 90
Width = 330
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "盘"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000C&
Height = 312
Index = 1
Left = 3312
TabIndex = 9
Top = 48
Width = 336
End
Begin VB.Line Line2
BorderColor = &H80000003&
X1 = 48
X2 = 9468
Y1 = 588
Y2 = 588
End
Begin VB.Line Line1
BorderColor = &H80000005&
X1 = 48
X2 = 9468
Y1 = 576
Y2 = 576
End
Begin VB.Label lblCMoney
AutoSize = -1 'True
Caption = "lblCMoney"
BeginProperty Font
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -