【VB开源代码栏目提醒】:网学会员为需要VB开源代码的朋友们搜集整理了Main_Ypwh_Update.frm相关资料,希望对各位网友有所帮助!
VERSION 5.00
Begin VB.Form Main_Ypwh_Update
BackColor = &H00E3D9E6&
ClientHeight = 4815
ClientLeft = 60
ClientTop = 60
ClientWidth = 7905
ControlBox = 0 'False
ForeColor = &H00C0C0C0&
LinkTopic = "Form1"
ScaleHeight = 4815
ScaleWidth = 7905
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton CmdCancel
Caption = "(&C)取消"
Height = 375
Left = 4020
TabIndex = 7
Top = 4230
Width = 1830
End
Begin VB.CommandButton CmdSave
Caption = "(&M)修改"
Height = 375
Left = 2205
TabIndex = 8
Top = 4230
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
Locked = -1 'True
TabIndex = 30
Top = 1020
Width = 3345
End
Begin VB.ComboBox Cbodmbz
Height = 300
Left = 3735
TabIndex = 29
Top = 2775
Width = 3345
End
Begin VB.ComboBox Cbobzdw
Height = 300
Left = 3750
TabIndex = 28
Top = 585
Width = 3345
End
Begin VB.ComboBox Cbozxdw
Height = 300
Left = 1050
TabIndex = 27
Top = 2760
Width = 1650
End
Begin VB.ComboBox Cbojx
Height = 300
Left = 1035
TabIndex = 26
Top = 1875
Width = 1650
End
Begin VB.ComboBox Cbolb
Height = 300
Left = 3750
TabIndex = 25
Top = 2325
Width = 3345
End
Begin VB.ComboBox Cbozflx
Height = 300
Left = 3750
TabIndex = 24
Top = 1890
Width = 3345
End
Begin VB.TextBox Text1
Height = 285
Index = 13
Left = 3750
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
TabIndex = 16
Top = 3195
Width = 1650
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
Height = 285
Index = 4
Left = 1035
TabIndex = 12
Top = 2325
Width = 1650
End
Begin VB.TextBox Text1
Height = 285
Index = 2
Left = 1035
TabIndex = 9
Top = 1455
Width = 1650
End
Begin VB.TextBox Text1
Height = 285
Index = 1
Left = 1020
TabIndex = 2
Top = 1020
Width = 1650
End
Begin VB.TextBox Text1
BackColor = &H00FFFFFF&
Height = 285
Index = 0
Left = 1035
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 = "零售价"
ForeColor = &H00FF0000&
Height = 165
Left = 2880
TabIndex = 14
Top = 1095
Width = 765
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "剂型 "
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 13
Top = 1920
Width = 870
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "包装单位"
ForeColor = &H00FF0000&
Height = 330
Left = 2880
TabIndex = 11
Top = 690
Width = 765
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "拼音码"
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 10
Top =