📄 frminput.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmInput
Caption = "填写入库单"
ClientHeight = 7605
ClientLeft = 585
ClientTop = 2310
ClientWidth = 9735
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmInput.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 7605
ScaleWidth = 9735
Begin MSFlexGridLib.MSFlexGrid GridClient
Height = 2325
Left = 1230
TabIndex = 54
Top = 1530
Width = 2325
_ExtentX = 4101
_ExtentY = 4101
_Version = 393216
Cols = 1
FixedRows = 0
FixedCols = 0
BackColorBkg = 16777215
SelectionMode = 1
Appearance = 0
End
Begin Manage.xpcmdbutton cmdCancel
Height = 465
Left = 7140
TabIndex = 42
Top = 7020
Width = 1425
_ExtentX = 2514
_ExtentY = 820
Caption = "取 消"
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
End
Begin Manage.xpcmdbutton cmdSave
Height = 465
Left = 4950
TabIndex = 41
Top = 7020
Width = 1425
_ExtentX = 2514
_ExtentY = 820
Caption = "保 存"
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
End
Begin VB.PictureBox pic
Appearance = 0 'Flat
BackColor = &H80000005&
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 6855
Left = 60
ScaleHeight = 6825
ScaleWidth = 9585
TabIndex = 0
Top = 60
Width = 9615
Begin MSComctlLib.ListView lvwBM
Height = 1575
Left = 1830
TabIndex = 49
Top = 4350
Width = 7275
_ExtentX = 12832
_ExtentY = 2778
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
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
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编码"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "单位"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "价格"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "厂家"
Object.Width = 2540
EndProperty
End
Begin Manage.xpcmdbutton cmdSearch
Height = 315
Left = 2700
TabIndex = 53
Top = 1110
Width = 345
_ExtentX = 609
_ExtentY = 556
Caption = ">>"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComCtl2.DTPicker dtpEna
Height = 345
Left = 1350
TabIndex = 52
Top = 2970
Width = 1785
_ExtentX = 3149
_ExtentY = 609
_Version = 393216
Format = 20119553
CurrentDate = 37707
End
Begin MSComCtl2.DTPicker dtpOut
Height = 345
Left = 4410
TabIndex = 51
Top = 1110
Width = 1785
_ExtentX = 3149
_ExtentY = 609
_Version = 393216
Format = 20119553
CurrentDate = 37707
MinDate = 37622
End
Begin MSComCtl2.DTPicker dtpIn
Height = 345
Left = 7500
TabIndex = 50
Top = 690
Width = 1755
_ExtentX = 3096
_ExtentY = 609
_Version = 393216
Format = 20119553
CurrentDate = 37707
MinDate = 37622
End
Begin VB.TextBox txtSF
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Height = 315
Left = 1320
TabIndex = 48
Top = 6390
Width = 7935
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 8
Left = 5550
TabIndex = 46
Top = 2550
Width = 1335
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 7
Left = 3180
TabIndex = 45
Top = 2550
Width = 1335
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 10
Left = 1350
TabIndex = 44
Top = 2970
Width = 1755
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 11
Left = 4440
TabIndex = 43
Top = 2970
Width = 1755
End
Begin Manage.xpcmdbutton cmdAdd
Height = 285
Left = 6300
TabIndex = 38
Top = 3510
Width = 1065
_ExtentX = 1879
_ExtentY = 503
Caption = "添 加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 12
Left = 7500
TabIndex = 37
Top = 2970
Width = 1755
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 9
Left = 7920
TabIndex = 36
Top = 2550
Width = 1335
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 6
Left = 900
TabIndex = 35
Top = 2550
Width = 1335
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 5
Left = 8040
TabIndex = 34
Top = 2130
Width = 1215
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 4
Left = 5520
TabIndex = 33
Top = 2130
Width = 1155
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 3
Left = 3360
TabIndex = 32
Top = 2130
Width = 1125
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 2
Left = 900
TabIndex = 31
Top = 2130
Width = 1605
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 1
Left = 6360
TabIndex = 30
Top = 1710
Width = 2895
End
Begin VB.TextBox txt
Appearance = 0 'Flat
Height = 315
Index = 0
Left = 1200
TabIndex = 29
Top = 1710
Width = 2895
End
Begin MSFlexGridLib.MSFlexGrid Grid
Height = 2055
Left = 60
TabIndex = 27
Top = 3870
Width = 9465
_ExtentX = 16695
_ExtentY = 3625
_Version = 393216
Rows = 6
Cols = 9
FixedCols = 0
BackColorBkg = 15921906
SelectionMode = 1
AllowUserResizing= 1
Appearance = 0
FormatString = " 商品编码|^ 商品名称|^ 单 位|^ 进 价|^ 数 量|^ 金 额|^ 货 位|^ 有效期截止|^ 发 票 号"
End
Begin VB.TextBox txtRK
Appearance = 0 'Flat
Height = 315
Index = 5
Left = 7500
TabIndex = 13
Top = 1110
Width = 1755
End
Begin VB.TextBox txtRK
Appearance = 0 'Flat
Height = 315
Index = 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -