【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-Main_Ypwh_Kcxg.frm，希望本篇文章对您学习有所帮助。
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Main_Ypwh_Kcxg
BackColor = &H00E3D9E6&
ClientHeight = 5430
ClientLeft = 60
ClientTop = 60
ClientWidth = 7905
ControlBox = 0 'False
ForeColor = &H00C0C0C0&
LinkTopic = "Form1"
ScaleHeight = 5430
ScaleWidth = 7905
StartUpPosition = 1 '所有者中心
Begin MSComCtl2.UpDown UpDown1
Height = 315
Left = 4740
TabIndex = 31
Top = 4185
Width = 270
_ExtentX = 476
_ExtentY = 556
_Version = 393216
Max = 100000000
Enabled = -1 'True
End
Begin VB.CommandButton CmdCancel
Caption = "(&C)取消"
Height = 375
Left = 4065
TabIndex = 7
Top = 4785
Width = 1830
End
Begin VB.CommandButton CmdSave
Caption = "(&A)增加"
Height = 375
Left = 2250
TabIndex = 8
Top = 4785
Width = 1830
End
Begin VB.Frame Frame1
BackColor = &H00FFC0C0&
Caption = "增加库存药品"
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 3750
Left = 285
TabIndex = 0
Top = 255
Width = 7350
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 285
Index = 8
Left = 3735
TabIndex = 33
Top = 1050
Width = 3345
End
Begin VB.ComboBox Cbodmbz
Height = 300
Left = 3735
Locked = -1 'True
TabIndex = 29
Top = 2775
Width = 3345
End
Begin VB.ComboBox Cbobzdw
Height = 300
Left = 3750
Locked = -1 'True
TabIndex = 28
Top = 585
Width = 3345
End
Begin VB.ComboBox Cbozxdw
Height = 300
Left = 1050
Locked = -1 'True
TabIndex = 27
Top = 2760
Width = 1650
End
Begin VB.ComboBox Cbojx
Height = 300
Left = 1035
Locked = -1 'True
TabIndex = 26
Top = 1875
Width = 1650
End
Begin VB.ComboBox Cbolb
Height = 300
Left = 3750
Locked = -1 'True
TabIndex = 25
Top = 2325
Width = 3345
End
Begin VB.ComboBox Cbozflx
Height = 300
Left = 3750
Locked = -1 'True
TabIndex = 24
Top = 1890
Width = 3345
End
Begin VB.TextBox Text1
Height = 285
Index = 13
Left = 3750
Locked = -1 'True
TabIndex = 18
Top = 3195
Width = 3345
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 285
Index = 9
Left = 3750
Locked = -1 'True
TabIndex = 17
Top = 1455
Width = 3345
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 285
Index = 6
Left = 1035
Locked = -1 'True
TabIndex = 16
Top = 3195
Width = 1650
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
Height = 285
Index = 4
Left = 1035
Locked = -1 'True
TabIndex = 12
Top = 2325
Width = 1650
End
Begin VB.TextBox Text1
Height = 285
Index = 2
Left = 1035
Locked = -1 'True
TabIndex = 9
Top = 1455
Width = 1650
End
Begin VB.TextBox Text1
Height = 285
Index = 1
Left = 1020
Locked = -1 'True
TabIndex = 2
Top = 1020
Width = 1650
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
Height = 285
Index = 0
Left = 1035
Locked = -1 'True
TabIndex = 1
Top = 615
Width = 1650
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "库存数量"
ForeColor = &H00FF0000&
Height = 330
Left = 2880
TabIndex = 23
Top = 1500
Width = 765
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "生产企业"
ForeColor = &H00FF0000&
Height = 330
Left = 2880
TabIndex = 22
Top = 3225
Width = 765
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "自费类型"
ForeColor = &H00FF0000&
Height = 330
Left = 2880
TabIndex = 21
Top = 1920
Width = 765
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "类别 "
ForeColor = &H00FF0000&
Height = 330
Left = 2880
TabIndex = 20
Top = 2355
Width = 870
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "毒麻标志"
ForeColor = &H00FF0000&
Height = 330
Left = 2880
TabIndex = 19
Top = 2805
Width = 765
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "规格"
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 15
Top = 2355
Width = 765
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "
相关文章
2013-9-1
