📄 frmhwbm.frm
字号:
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "Vsflex7.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmHwBm
Caption = "货物档案"
ClientHeight = 7065
ClientLeft = 1920
ClientTop = 2520
ClientWidth = 10530
KeyPreview = -1 'True
LinkTopic = "Form3"
LockControls = -1 'True
ScaleHeight = 7065
ScaleWidth = 10530
Begin TabDlg.SSTab SSTab1
Height = 5985
Left = 30
TabIndex = 7
Top = 630
Width = 10485
_ExtentX = 18494
_ExtentY = 10557
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "货物档案"
TabPicture(0) = "frmHwBm.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "货物档案列表"
TabPicture(1) = "frmHwBm.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame(1)"
Tab(1).Control(1)= "Flex(0)"
Tab(1).ControlCount= 2
Begin VB.Frame Frame
Height = 1215
Index = 1
Left = -74910
TabIndex = 12
Top = 420
Width = 10155
Begin VB.CommandButton Command
Caption = "查询(&R)"
Height = 405
Index = 0
Left = 2760
TabIndex = 23
Tag = "CMDQUERY"
Top = 690
Width = 1635
End
Begin VB.TextBox Text
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 5
Left = 7170
TabIndex = 21
Tag = "TXTQRYHWBMCODE|HWBMCODE"
Top = 255
Width = 2565
End
Begin VB.ComboBox Combo
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 2
Left = 1830
TabIndex = 20
Tag = "CBXQRYHWBM_HWFLNO|HWFLCODE"
Top = 240
Width = 2565
End
Begin VB.TextBox Text
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 4
Left = 7170
TabIndex = 22
Tag = "TXTQRYHWBMMC|HWBMMC"
Top = 720
Width = 2565
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "货物分类"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 8
Left = 90
TabIndex = 19
Top = 210
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "货物名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 7
Left = 5430
TabIndex = 18
Top = 750
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "货物编码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 6
Left = 5430
TabIndex = 17
Top = 255
Width = 1485
End
End
Begin VB.Frame Frame
Height = 4935
Index = 0
Left = 270
TabIndex = 8
Top = 750
Width = 8955
Begin VB.CheckBox Check
Caption = "停用"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Index = 0
Left = 5460
TabIndex = 6
Tag = "CHKHWBMISSTOP"
Top = 390
Width = 1425
End
Begin VB.ComboBox Combo
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 2040
TabIndex = 5
Tag = "CBXHWBM_HWDWNO"
Top = 3690
Width = 1185
End
Begin VB.ComboBox Combo
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 0
Left = 2040
TabIndex = 0
Tag = "CBXHWBM_HWFLNO|HWFLCODE"
Top = 450
Width = 2565
End
Begin VB.TextBox Text
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 3
Left = 2040
TabIndex = 4
Tag = "TXTHWBMSIZE"
Top = 3042
Width = 4065
End
Begin VB.TextBox Text
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 2
Left = 2040
TabIndex = 3
Tag = "TXTHWBMEMC"
Top = 2394
Width = 2565
End
Begin VB.TextBox Text
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 2040
TabIndex = 2
Tag = "TXTHWBMMC"
Top = 1746
Width = 4065
End
Begin VB.TextBox Text
BackColor = &H8000000E&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
Left = 2040
TabIndex = 1
Tag = "TXTHWBMCODE"
Top = 1098
Width = 4065
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "计量单位"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 5
Left = 300
TabIndex = 16
Top = 3660
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "货物分类"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 4
Left = 300
TabIndex = 15
Top = 420
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "规格"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 3
Left = 300
TabIndex = 14
Top = 3012
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "英文名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 2
Left = 300
TabIndex = 13
Top = 2364
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "货物编码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 0
Left = 300
TabIndex = 10
Top = 1068
Width = 1485
End
Begin VB.Label Label
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "货物名称"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 300
TabIndex = 9
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -