【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-frmItemLook.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Begin VB.Form frmItemLook
BorderStyle = 1 'Fixed Single
Caption = "商品查询"
ClientHeight = 4665
ClientLeft = 3615
ClientTop = 2265
ClientWidth = 4695
ControlBox = 0 'False
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4665
ScaleWidth = 4695
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame1
Caption = "输入商品编号"
ForeColor = &H00C00000&
Height = 4455
Left = 120
TabIndex = 1
Top = 120
Width = 4455
Begin VB.TextBox txtSubcat
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
Locked = -1 'True
TabIndex = 15
Top = 2040
Width = 2655
End
Begin VB.TextBox txtCategory
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
Locked = -1 'True
TabIndex = 13
Top = 1680
Width = 2655
End
Begin VB.TextBox txtOnhand
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
Locked = -1 'True
TabIndex = 12
Top = 2760
Width = 1335
End
Begin VB.TextBox txtSupplier
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
Locked = -1 'True
TabIndex = 10
Top = 2400
Width = 2655
End
Begin VB.TextBox txtPrice
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
Locked = -1 'True
TabIndex = 6
Top = 1080
Width = 1335
End
Begin
VB.TextBox txtDescrip
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
Locked = -1 'True
TabIndex = 4
Top = 720
Width = 2655
End
Begin VB.TextBox txtSku
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1680
TabIndex = 0
Top = 360
Width = 2655
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "商品子类 :"
ForeColor = &H00C00000&
Height = 255
Left = 120
TabIndex = 16
Top = 2160
Width = 1455
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "商品大类 :"
ForeColor = &H00C00000&
Height = 255
Left = 360
TabIndex = 14
Top = 1800
Width = 1215
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "库存数量:"
ForeColor = &H00C00000&
Height = 255
Left = 600
TabIndex = 11
Top = 2880
Width = 975
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
Caption = "供应商 :"
ForeColor = &H00C00000&
Height = 255
Left = 600
TabIndex = 9
Top = 2520
Width = 975
End
Begin VB.Label Label5
Caption = " 单击<ESCAPE> 退出"
ForeColor = &H000000C0&
Height = 255
Left = 1320
TabIndex = 8
Top = 3960
Width = 2415
End
Begin VB.Label Label4
Alignment = 2 'Center
Caption = "单击 <ENTER>执行
查询"
ForeColor = &H000000C0&
Height = 255
Left = 120
TabIndex = 7
Top = 3600
Visible = 0 'False
Width = 4215
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "商品价格:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 600
TabIndex = 5
Top = 1200
Width = 975
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "商品描述:"
ForeColor = &H00C00000&
Height = 255
Left = 120
TabIndex = 3
Top
相关文章
2013-9-1
