【VB开源代码栏目提醒】:文章导读:在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-Main_Ypwh_Add.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Main_Ypwh_Add
BackColor = &H00E3D9E6&
ClientHeight = 4815
ClientLeft = 60
ClientTop = 60
ClientWidth = 7905
ControlBox = 0 'False
ForeColor = &H00C0C0C0&
LinkTopic = "Form1"
ScaleHeight = 4815
ScaleWidth = 7905
StartUpPosition = 1 '所有者中心
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = -975
Top = 2805
Visible = 0 'False
Width = 1410
_ExtentX = 2487
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MZJJSFXT"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=MZJJSFXT"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 药品信息表"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.CommandButton CmdCancel
Caption = "(&C)取消"
Height = 375
Left = 4020
TabIndex = 7
Top = 4230
Width = 1830
End
Begin VB.CommandButton CmdSave
Caption = "(&S)保存"
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 = 3750
TabIndex = 30
Top = 1035
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
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
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
上一篇：
nnsrealmagicctrl.cpp
下一篇：
不规则零件优化排样的神经网络混合优化算法
2013-9-1
