三．数据库逻辑设计

1、药品入库资料表Drug_import 名 称 说 明 Import_id 药品入库编号 Import_name 入库药品名称 Import_type 入库药品类型 Import_num 药品入库数量 Import_price 药品入库价格 Import_time 入库时间 Prodcom 生产厂商 Prodplace 产地 Buyer 采购员 Checker 验收员 2、库存药品资料表Drug_info 名 称 说 明 Drug_id 库存药品编号 Drug_name 库存药品名称 Drug_type 库存药品类型 Import_price 药品入库价格 Export_price 药品出库价格 Drug_num 药品库存量 Import_time 入库时间 Prodcom 生产厂商 Prodplace 产地 3、药品出库资料表Drug_export 名 称 说 明 Export_id 药品出库编号 Exoprt_name 出库药品名称 Exoprt_type 出库药品类型 Export_num 药品出库数量 Export_price 药品出库价格 Patient_name 购药病人姓名 Patient_num 购药病人编号 Export_time 出库时间 数据类型 INT NVARCHAR NVARCHAR FLOAT FLOAT DATETIME NVARCHAR NVARCHAR NVARCHAR NVARCHAR 是否空 N N N N N N N N N N 字段说明 自增，主键 数据类型 INT NVARCHAR NVARCHAR FLOAT FLOAT FLOAT DATETIME NVARCHAR NVARCHAR 是否空 N N N N N N N N N 字段说明 自增，主键 数据类型 INT NVARCHAR NVACHAR FLOAT FLOAT NVARCHAR NVARCHAR DATETIME 是否空 N N N N N N N N 字段说明 自增，主键 单价 四．软件功能设计及界面设计

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

3

级别 主菜单 子菜单 主菜单 子菜单 主菜单 子菜单 菜单 药品入库管理 添加入库信息 删除入库信息 修改入库信息 查询入库信息 库存药品管理 添加库存信息 删除库存信息 修改库存信息 查询库存信息 药品出库管理 添加出库信息 删除出库信息 修改出库信息 查询出库信息 主菜单 退出药品存销管理系统 主界面如下图所示

名称 Menu_import Menu_im_add Menu_im_del Menu_im_upd Menu_im_que Menu_info Menu_inf_add Menu_inf_del Menu_inf_upd Menu_inf_que Menu_export Menu_ex_add Menu_ex_del Menu_ex_upd Menu_ex_que Menu_quit 单击链接窗口 frm_im_add.Show frm_im_del.Show frm_im_upd.Show frm_im_que.Show frm_inf_add.Show frm_inf_del.Show frm_inf_upd.Show frm_inf_que.Show frm_ex_add.Show frm_ex_del.Show frm_ex_upd.Show frm_ex_que.Show 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

4

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 = \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）药品入库管理系统设计

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

5

单击“添加入库信息”选项，启动frm_im_add.Show.进入“添加入库信息”界面。

单击“取消”按钮，将触发Fault_Click事件，不保存输入文本框的内容而直接返回到主界面。相应的代码如下： Private Sub Fault_Click() Unload Me End Sub

单击“确定”按钮，将触发Cmd_OK_Click事件，把输入的入库药品信息添加到SQL Secer对应的数据表中，相应的代码如下： Private Sub Cmd_OK_Click()

If Trim(Import_name.Text) = \

MsgBox \药品入库名称不能为空!\ Exit Sub End If

If Trim(Import_type.Text) = \

MsgBox \入库药品类型不能为空!\ Exit Sub End If

If Trim(Import_num.Text) = \

MsgBox \药品入库数量不能为空!\

6