📄 frmhouseask.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 frmHouseAsk
BorderStyle = 1 'Fixed Single
Caption = "请领入库"
ClientHeight = 5370
ClientLeft = 210
ClientTop = 975
ClientWidth = 9180
Icon = "frmHouseAsk.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5370
ScaleWidth = 9180
Begin FPSpread.vaSpread spd
Height = 2880
Left = 0
OleObjectBlob = "frmHouseAsk.frx":0442
TabIndex = 2
Top = 1020
Width = 9135
End
Begin VB.Frame fra
BorderStyle = 0 'None
Height = 630
Left = 4470
TabIndex = 17
Top = -135
Width = 5004
Begin VB.Label lblCancel
AutoSize = -1 'True
Caption = "作废"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 180
Left = 3648
TabIndex = 23
Top = 144
Width = 396
End
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 = 22
Top = 168
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 = 21
Top = 432
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 = 20
Top = 432
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 = 192
Left = 888
TabIndex = 19
Top = 192
Visible = 0 'False
Width = 732
End
Begin VB.Label lblAskStatus
AutoSize = -1 'True
Caption = "lblAskStatus"
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 = 3336
TabIndex = 18
Top = 408
Width = 1248
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 = 1236
MaxLength = 20
TabIndex = 0
Text = "txtSheetID"
Top = 645
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 = 345
IMEMode = 1 'ON
Left = 1200
ScrollBars = 2 'Vertical
TabIndex = 3
Text = "txtComment"
Top = 4290
Width = 7800
End
Begin LstCtl.ListCtl lct
Height = 324
Left = 36
TabIndex = 10
Top = 4956
Width = 2496
_ExtentX = 4392
_ExtentY = 582
End
Begin UseMaintainCtl.MaiControl mcr
Height = 585
Left = 4215
TabIndex = 4
Top = 4815
Width = 4950
_ExtentX = 8731
_ExtentY = 1032
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 = "&R.更新 &A.增加 &D.作废 &C.清除 &T.转换 &Q.查询 &P.打印 &E退出"
KeyEnabled = "0#1#1#1#1#1#0#1#"
End
Begin VB.TextBox txtDepart
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4035
TabIndex = 1
Text = "txtDepart"
Top = 660
Width = 2085
End
Begin VB.Line Line4
BorderColor = &H80000005&
X1 = -30
X2 = 9390
Y1 = 4740
Y2 = 4740
End
Begin VB.Line Line3
BorderColor = &H80000003&
X1 = -30
X2 = 9390
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 = 16
Top = 3990
Width = 975
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 = 15
Tag = "Dyn"
Top = 3990
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 = 210
Left = 165
TabIndex = 14
Top = 750
Width = 1050
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 = 510
TabIndex = 13
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -