📄 frmhousetranout.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 frmHouseTranOut
BorderStyle = 1 'Fixed Single
Caption = "调拨出库"
ClientHeight = 5310
ClientLeft = 210
ClientTop = 975
ClientWidth = 9180
Icon = "frmHouseTranOut.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5310
ScaleWidth = 9180
Begin VB.TextBox txtMarker
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 = 7740
MaxLength = 20
TabIndex = 18
Text = "txtMarker"
Top = 4410
Width = 1380
End
Begin FPSpread.vaSpread spd
Height = 2916
Left = 36
OleObjectBlob = "frmHouseTranOut.frx":0442
TabIndex = 1
Top = 1428
Width = 9132
End
Begin LstCtl.ListCtl lct
Height = 300
Left = 72
TabIndex = 19
Top = 4944
Width = 2580
_ExtentX = 4551
_ExtentY = 529
End
Begin VB.Frame fra
BorderStyle = 0 'None
Height = 660
Left = 6900
TabIndex = 12
Top = -120
Width = 2325
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 = 16
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 = 15
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 = 195
Left = 85
TabIndex = 14
Top = 435
Width = 690
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 = 13
Top = 192
Width = 732
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 = 996
Width = 1770
End
Begin UseMaintainCtl.MaiControl mcr
Height = 540
Left = 4200
TabIndex = 20
Top = 4800
Width = 4956
_ExtentX = 8731
_ExtentY = 953
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.增加 &C.清除 &T.转换 &Q.查询 &P.打印 &E退出"
KeyEnabled = "0#1#0#1#1#1#1#1#"
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "经办人："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 6900
TabIndex = 26
Tag = "Dyn"
Top = 4470
Width = 915
End
Begin VB.Line Line4
BorderColor = &H80000005&
X1 = -24
X2 = 9396
Y1 = 912
Y2 = 912
End
Begin VB.Line Line3
BorderColor = &H80000003&
X1 = -24
X2 = 9396
Y1 = 924
Y2 = 924
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "按 F1 键选择调拨请领"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 216
Left = 5088
TabIndex = 25
Top = 672
Width = 2316
End
Begin VB.Label lblAsker
AutoSize = -1 'True
Caption = "lblAsker"
Height = 180
Left = 3576
TabIndex = 24
Tag = "Dyn"
Top = 672
Width = 768
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "请领人:"
Height = 180
Left = 2856
TabIndex = 23
Top = 672
Width = 636
End
Begin VB.Label lblAskSheetID
AutoSize = -1 'True
Caption = "lblAskSheetID"
Height = 180
Left = 1128
TabIndex = 22
Tag = "Dyn"
Top = 672
Width = 1248
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "请领单据号:"
Height = 180
Left = 24
TabIndex = 21
Top = 660
Width = 996
End
Begin VB.Label lblDepart
AutoSize = -1 'True
Caption = "lblDepart"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 216
Left = 4128
TabIndex = 17
Tag = "Dyn"
Top = 1056
Width = 972
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 = 4620
TabIndex = 11
Top = 4470
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 = 5685
TabIndex = 10
Tag = "Dyn"
Top = 4470
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 = 9
Top = 1056
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -