药品存销管理系统

皖西学院计算机科学与技术系实验报告

课程名称数据库原理及应用课程设计

实验项目课程设计

实验类型课程设计

完成人何传喜

所在班级计科0702

指导教师严仍荣李瑞霞徐华丽马艳

完成日期2009年12月18日

一．概述

在计算机技术飞速发展的今天，计算机管理已经在很多领域得到广泛的应用。计算机化已成为医院现代化一个不可或缺的因素。目前很多医院的信息管理还比较落后，劳动强度大且效率低，因此，开发医院管理信息系统将提高医院的各项工作效率。医院的药品管理师一个非常重要的和繁杂的事务，需要完成药品的购入、存储、售出等很多操作，这就使得使用药品存销管理系统来管理这样的事务有着很好的效果。

软件开发环境：window XP，SQL server2000，Visual Basic6.0

二．需求分析

医院药品存销管理系统主要需要实现药品入库信息记录、药品的库存管理、药品出库信息管理等功能。具体要实现的功能包括：

（1）药品入库信息管理功能。记录入库药品名称、价格、数量、业务员、生产厂商等资料，能够实现对药品入库信息的添加、修改、删除和查询功能。（2）药品库存资料管理。记录库存药品的名称、类型、入库价格、销售价格、库存量、入库时间、有效期等资料，能够实现对库存药品信息的添加、修改、删除和查询功能。在病人购买药品取走后，在表中同时删除相应的药品的数量。

（3）药品出库信息管理。记录药品出库的名称、类型、销售价格、数量、病人名称、应付费用等资料，能够实现对出库药品信息的添加、修改、删除和查询功能。

E-R模型图：

①入库药品E-R图

②库存药品E-R图

③出库药品E-R图

三．数据库逻辑设计

四．软件功能设计及界面设计

当系统运行时，首先启动系统主界面frm_main.Show。主界面具体设计如下表所示

级别菜单名称单击链接窗口主菜单药品入库管理Menu_import

子菜单

添加入库信息Menu_im_add frm_im_add.Show

删除入库信息Menu_im_del frm_im_del.Show

修改入库信息Menu_im_upd frm_im_upd.Show

查询入库信息Menu_im_que frm_im_que.Show 主菜单库存药品管理Menu_info

子菜单

添加库存信息Menu_inf_add frm_inf_add.Show

删除库存信息Menu_inf_del frm_inf_del.Show

修改库存信息Menu_inf_upd frm_inf_upd.Show

查询库存信息Menu_inf_que frm_inf_que.Show 主菜单药品出库管理Menu_export

子菜单

添加出库信息Menu_ex_add frm_ex_add.Show

删除出库信息Menu_ex_del frm_ex_del.Show

修改出库信息Menu_ex_upd frm_ex_upd.Show

查询出库信息Menu_ex_que frm_ex_que.Show 主菜单退出药品存销管理系统Menu_quit frm_quit.Show

下面给出主界面实现各界面菜单的操作程序代码：

Private Sub Menu_im_add_Click()

frm_im_add.Show

End Sub

Private Sub Menu_im_del_Click()

frm_im_del.Show

End Sub

Private Sub Menu_im_upd_Click()

frm_im_upd.Show

End Sub

Private Sub Menu_im_que_Click()

frm_im_que.Show

End Sub

Private Sub Menu_inf_add_Click()

frm_inf_add.Show

End Sub

Private Sub Menu_inf_del_Click()

frm_inf_del.Show

End Sub

Private Sub Menu_inf_upd_Click()

frm_inf_upd.Show

End Sub

Private Sub Menu_inf_que_Click()

frm_inf_que.Show

End Sub

Private Sub Menu_ex_add_Click()

frm_ex_add.Show

End Sub

Private Sub Menu_ex_del_Click()

frm_ex_del.Show

End Sub

Private Sub Menu_ex_upd_Click()

frm_ex_upd.Show

End Sub

Private Sub Menu_ex_que_Click()

frm_ex_que.Show

End Sub

Private Sub Menu_quit_Click()

Unload Me

End Sub

在定义一些全局变量和与数据库相关的变量

Public ColVal As String'读取表中列值的变量

Public objConn As New ADODB.Connection

Public objRS As New ADODB.Recordset ‘连接数据库设置

Public Sub OpenDB()

objConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=;Initial Catalog=Drug;Data Source=CST-D22"

'Initial Catalog是数据库名；Data Source是服务器名

objConn.Open

End Sub

Public Sub CloseDB()

objConn.Close

End Sub

（1）药品入库管理系统设计

在药品入库管理系统中需要设计实现如下图中的功能