📄 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 = "零售价"
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 = 1500
Width = 765
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "包装量 "
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 6
Top = 3225
Width = 765
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "最小单位"
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 5
Top = 2805
Width = 765
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "药品编码 "
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 4
Top = 690
Width = 870
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "品名"
ForeColor = &H00FF0000&
Height = 330
Left = 240
TabIndex = 3
Top = 1095
Width = 765
End
End
Begin VB.TextBox Txtkc
Alignment = 1 'Right Justify
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2295
TabIndex = 32
Top = 4200
Width = 2445
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "增加库存数量："
BeginProperty Font
Name = "隶书"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 390
Left = 285
TabIndex = 30
Top = 4200
Width = 2295
End
End
Attribute VB_Name = "Main_Ypwh_Kcxg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
Txtkc.SetFocus
End Sub
Private Sub Form_Load()
For i = 0 To 2
'对应列
Main_Ypwh.MSHFlexGrid1.Col = i
Text1(i).Text = Main_Ypwh.MSHFlexGrid1.Text
Next i
Main_Ypwh.MSHFlexGrid1.Col = 3
Cbojx.Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 4
Text1(4).Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 5
Cbozxdw.Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 6
Text1(6).Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 7
Cbobzdw.Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 8
Text1(8).Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 9
Text1(9).Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 10
Cbozflx.Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 11
Cbolb.Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 12
Cbodmbz.Text = Main_Ypwh.MSHFlexGrid1.Text
Main_Ypwh.MSHFlexGrid1.Col = 13
Text1(13).Text = Main_Ypwh.MSHFlexGrid1.Text
End Sub
Private Sub UpDown1_Change()
Txtkc.Text = UpDown1.Value
End Sub
Private Sub CmdSave_Click()
Dim rs As New ADODB.Recordset
rs.Open "select * from 药品信息表 where 药品编码='" + Text1(0).Text + "'", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
rs.Fields("库存数量") = rs.Fields("库存数量") + Val(Txtkc.Text)
rs.Update
Text1(9).Text = rs.Fields("库存数量")
Else
MsgBox "库存无此药品！"
End If
rs.Close
Main_Ypwh.Adodc1.Refresh
EnaT Main_Ypwh
Unload Me
End Sub
Private Sub CmdCancel_Click()
EnaT Main_Ypwh
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -