图4.8库存提示界面
系统主要通过如下主要代码实现销售功能
更新库存
Adodc1.Recordset.Update
Text11.Text = Val(Text11.Text) - Val(Text2.Text)
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
计算总额
Text17.Text = Val(Text9.Text) * Val(Text2.Text)
x = x + Val(Text17.Text)
Text6.Text = x
4.3.2仓库管理模块
该模块主要完成药品信息的维护和查询，其中查询功能可以分别按药品代码、药品名称、药品类别或过期药品来查询。
如下是仓库管理模块的实现界面：
1.仓库管理员登录界面
图4.9管理员登录界面
2.药品信息查询
（1）输入代码“101003”的查询结果界面
图4.10按药品编码的查询结果结果界面
（2）输入药品名称“白加黑”的查询结果界面
图4.11按药品名称的查询结果界面
（3）选择药品类别“处方药”的查询结果界面
图4.12按药品类别的查询结果界面
（4）按过期药品查询的结果界面
图4.13按过期药品的查询结果界面
系统主要通过如下主要代码实现查询功能
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medicinecode= '" & Text1 & "'"
Adodc1.Refresh
.
4.3.3日常管理模块
该模块可以进行用户信息和供应商信息的维护及查询，主要是对药品信息、销售信息、用户信息和供应商信息的查询。
如下是日常管理模块的实现界面：
1.管理者登录界面
图4.19按供应商所在城市的查询结果界面
系统主要通过如下主要代码实现查询功能
Adodc1.RecordSource = " select saleno as 销售编码,amount as 总额,saledate as 销售日期,workno as 销售员编号 from salemaintable where saleno='" & Trim(Text12.Text) & "'"
Adodc1.Refresh
第五章 设计总结
在课程设计阶段，首先对医药管理进行了了解，仔细分析了该管理对系统功能的要求，并根据这些功能要求对系统进行定义，确定系统必须做什么。但由于对医药管理了解不多，需求分析难免不够完善，但是基本需求都考虑到了，并用文档准确记录了系统的需求。之后着手对系统的设计工作，首先是概念结构设计，根据需求分析结果总结系统内实体及联系并绘制系统的局部ER图和全局ER图。然后是逻辑结构设计，结合需求分析与概念结构设计把设计好的ER图转换为DBMS（SQL Server 2000）所支持的数据模型所符合的逻辑结构。最后运用开发工具VB6.0进行功能的编码实现。
该系统最终能够基本实现绝大多数功能，但是也有很多不做之处，如药品进库信息功能，对新进药品进行入库存储，但是由于进价跟有效期的变化不能只是对该药品的库存量更改。进价可以运用加成定价法更改，但有效期尚未想到解决方案。希望老师给与意见及帮助，使系统功能更加完善。
在这次课程设计中虽然遇到过很多的困难，但我从中学到了很多有用的知识，通过不断的翻阅资料，各个问题的解决使我对系统的设计越来越感兴趣。相信我从这次课程设计所学到的东西可以让我在以后的学习及工作中受益无限。
附录
实验程序源代码
1.登录界面代码：（以销售员登录为例，仓库管理员和日常管理者登录与此类似，不再赘述）
在主界面菜单“销售管理“内编写代码如下：
Private Sub A1_Click()
登录.Show
登录.Adodc1.RecordSource = "select * from userinfor where power=' 销售 '"
登录.Adodc1.Refresh
登录.Option1.Value = True
登录.Option1.Visible = True
登录.Option2.Value = False
登录.Option2.Visible = False
登录.Option3.Value = False
登录.Option3.Visible = False
A = 1: B = 0: C = 0
End Sub
在Text2的GotFocus事件内编写如下代码以确定用户的准确性
Private Sub Text2_GotFocus()
Adodc1.RecordSource = "select * from userinfor where userregname= '" & Text1 & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "无此用户，请重新输入!", , "提示"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
在Command1的Click事件内编写如下代码检验用户密码
Private Sub Command1_Click()
Dim x As String, y As String
Text1.SetFocus
If Val(Text2.Text) = Val(Text4.Text) Then
MsgBox "输入正确", , "提示"
Text1.Text = ""
Text2.Text = ""
Unload Me
If A = 1 Then
FrmMain.A2.En
