数据库系统课程设计报告

目录

1绪论 (1)

1.1项目简介 (1)

1.2设计目的 (1)

1.3设计内容 (1)

1.4应用范围 (1)

2需求分析 (1)

2.1数据需求 (1)

2.2事务需求 (2)

2.3详细功能分析 (2)

2.4数据字典 (2)

2.5开发运行环境 (3)

2.6安全保障 (3)

3概念设计 (3)

3.1实体及联系抽象 (3)

3.2E-R图 (4)

3.3关系模式 (5)

4逻辑设计 (5)

4.1各表功能 (5)

4.2各表结构 ...................................................................... 错误!未定义书签。

4.3表关系图 (11)

5物理设计 (11)

5.1物理存储 (11)

5.2完整性约束 (11)

5.3视图设计 ...................................................................... 错误!未定义书签。

5.4触发器设计 .................................................................. 错误!未定义书签。

6系统实现与维护 (13)

6.1模块1 (13)

6.2模块2 (17)

6.3模块3 ........................................................................... 错误!未定义书签。7总结 (1)

7.1系统实现程度 (1)

7.2问题及难点 (1)

7.3收获与体会 (1)

1绪论

1.1项目简介

近年来，中国医药行业迅速发展，药店企业多业态经营，仓储式大型超市、中等规模超市、便利连锁综合发展。随着规模的扩大，传统的医药管理已经不能适应发展的需要，很难在激烈的竞争中生存。通过对从事医药产品的零售、批发等工作企业的深入调查，发现其业务主要包括企业药品销售、出入库管理、企业的财务、人事管理等。医药管理是一项琐碎、复杂而又十分细致的工作。手工进行企业日常的药品销售、出入库的工作，容易出现错账，而且费时费力。

1.2设计目的

设计实验意义及所解决问题：我在设计中需要考虑和克服上述问题，实现企业管理工作的系统化、规范化和自动化。为此要进行了建立数据库的必要性和可行性的分析，需求分析，数据库的概念设计、逻辑设计、物理设计和数据库的实现、运行、维护以及相应的前台的主要功能模块的开发。

1.3设计内容

数据库设计：12张表

PB设计：30个窗口，12个数据窗口，一个菜单窗口，体现12个表格之间的关系，通过对脚本的撰写，在窗口中表现出来

1.4应用范围

本系统适用于医药单位对于货物的进销存以及管理员进行简单的管理。主要体现于用户信息、进货信息、销售信息、商品信息等几方面的管理

2需求分析

2.1数据需求

系统需要处理哪些数据

1.管理员基本信息的输入，包括：管理员编号，管理员姓名，管理员密码

2.药品基本信息的输入，包括：商品编号，商品名称，商品价格，商品数量以及备注

3入库或退货基本信息的输入，包括：进货编号，商品名称，进货价格，进货数量以及备注

4.销售基本信息的输入，包括：销售编号，商品名称，销售价格，数量以及备注

5.报表的生成

2.2事务需求

管理员可以对其他管理员的信息进行查询，可以通过程序对其他管理员的信息进行修改和删除。还可以对所有使用所有操作。

低级权限可以使用查询功能，不能修改和录入信息。

2.3详细功能分析

2.4数据字典

数据字典是描述系统流程图中所有数据流、数据存储、处理功能等信息的集合，其包括4种条目；数据流、数据结构、数据项。建立完善的数据字典是对所收集、整理的数据的一种分析归档方式，为下一步建立数据库和处理数据做准备。

药品销售管理系统数据字典卡片如下所示：

2.5开发运行环境

所用DBMS、开发工具及编程语言等

数据库：sql server2000

开发工具：PB9.0

使用语言：Power Script

2.6安全保障

如何保障系统的安全性

进入主界面前，有登陆界面，只允许管理人员使用。

设有使用权限，最低级权限只有查询权，高级权限可以使用所有操作。

若登录时，用户姓名与密码匹配，则可使用此系统。若不匹配则无法正常操作

3概念设计

3.1实体及联系抽象

药品实体客户实体属性用户密码属性

系统实体联系

3.2E-R图

3.3关系模式

把E-R图转换为关系模式，并画出关系模式图。尽量规范到3NF。

药品信息（药品编号，药品名称，药品类别代号，售价，进价，库存量，供应商，有效期）外码：药品类别代号、供应商药品分类索引信息（药品类别代号，类别说明）

员工信息（员工号，姓名，用户名，密码，职位，权限）客户信息（客户号，客户名称，联系人，联系方式，客户所在城市）

供应商信息（供应商号，供应商名称，联系人，联系方式，供应商所在城市）

药品销售信息（销售编码，销售日期，药品编码，药品名称，单价，数量，供应商，总额，销售员编码）外码：销售员编码、药品编码

4逻辑设计

4.1各表功能

给出数据库所有表的名称及各自功能

操作员表czy_tab：操作员编号，操作员级别，操作员姓名，密码

当日报表drbb_tab：结账日期，操作员，销售总额，销售退货总额，入库总额，入库退货总额

当月报表dybb_tab：结账日期，操作员，销售总额，销售退货总额，入库总额，入库退货总额。

供应商信息gysxx_tab：供应商编号，供应商名称，厂址，联系号码。

仓库信息kc_tab：供应商编号，供应商名称，药品编号，药品名称，仓库名称，数量。客户信息khxx_tab：客户编号，客户名称，联系电话。

入库登记rkdj_tab：供应商编号，供应商名称，药品编号，药品名称，负责人，进价，入库票号，入库日期，仓库名称，入库数量，金额。

入库退货rkth_tab

销售登记xsdj_tab 销售退货xsth_tab

员工信息ygxx_tab 药品信息ypxx_tab

4.2表关系图

在SQL Server中直接找到关系图并截取出来。

5物理设计

5.1物理存储

1.数据库文件的存储位置

2.备份：备份数据库文件120610116数据库备份；

3.还原：120610116数据库备份；

5.2完整性约束

1.主键约束：每个表都有1组主键，主键值不为空且不能重复

2.外键约束：表的主键可做其他表的外键，但数据类型必须完全相同，外键值不能

为空

6系统实现与维护6.1模块1

用户登录

登陆代码：

string ls_id,ls_name,ls_password,ls_permission

string ls_getpassword

ls_id=sle_id.text

select "czy_tab"."czy","czy_tab"."pwd","czy_tab"."czyjb"

into:ls_name,:ls_password,:ls_permission

from"czy_tab"

where"czy_tab"."czybh"=:ls_id;

if sqlca.sqlcode<>0 then

sle_name.text="没找到!"

sle_id.text=""

sle_password.text=""

sle_id.setfocus()

return

end if

sle_name.text=ls_name

ls_getpassword=trim(sle_password.text)

ls_password=trim(ls_password)

if len(ls_password)=0 then ls_password=space(10)

if len(ls_getpassword)=0 or isnull(ls_getpassword) then

ls_getpassword=space(10)

end if

if ls_getpassword<>ls_password then

messagebox("警告","口令错误!")

sle_password.text=""

sle_password.setfocus()

return

end if

gs_id=ls_id

gs_name=ls_name

gs_password=ls_password

gs_permission=ls_permission

open(w_main)

if gs_permission="1" then

mainmenu.m_销售管理.m_销售登记.enabled=true mainmenu.m_销售管理.m_销售退货.enabled=true mainmenu.m_进货管理.m_入库登记.enabled=true mainmenu.m_进货管理.m_入库退货.enabled=true mainmenu.m_进货管理.m_入库报表.enabled=true mainmenu.m_财务管理.m_当日结帐.enabled=true mainmenu.m_财务管理.m_当月结帐.enabled=true mainmenu.m_系统管理.m_增删用户.enabled=true mainmenu.m_系统管理.m_用户密码管理.enabled=true end if

if gs_permission<"1" then

mainmenu.m_销售管理.m_销售登记.enabled=false mainmenu.m_销售管理.m_销售退货.enabled=false mainmenu.m_进货管理.m_入库登记.enabled=false mainmenu.m_进货管理.m_入库退货.enabled=false mainmenu.m_进货管理.m_入库报表.enabled=false mainmenu.m_财务管理.m_当日结帐.enabled=false mainmenu.m_财务管理.m_当月结帐.enabled=false mainmenu.m_系统管理.m_增删用户.enabled=false mainmenu.m_系统管理.m_用户密码管理.enabled=false end if

修改密码

密码确认代码：

string ls_oldpassword,ls_newpassword,ls_renewpassword

ls_oldpassword=trim(sle_oldpassword.text)

ls_newpassword=trim(sle_newpassword.text)

ls_renewpassword=trim(sle_renewpassword.text)

if len(gs_password)=0 or isnull(gs_password)then gs_password=space(10)

end if

if len(ls_oldpassword)=0 or isnull(ls_oldpassword)then ls_oldpassword=space(10)

end if

if len(ls_newpassword)=0 or isnull(ls_newpassword)then ls_newpassword=space(10)

end if

if len(ls_renewpassword)=0 or isnull(ls_renewpassword)then ls_renewpassword=space(10)

end if

ls_newpassword=space(10)

end if

if ls_oldpassword<>gs_password then

messagebox("警告","旧口令不对！")

sle_oldpassword.text=""

sle_oldpassword.setfocus()

return

end if

if ls_newpassword<>ls_renewpassword then messagebox("警告","两次输入的新口令不同！") sle_newpassword.text=""

sle_renewpassword.text=""

sle_newpassword.setfocus()

return

end if

update "czy_tab"

set"pwd"=:ls_newpassword

where"czy_tab"."czybh"=:gs_id;

if sqlca.sqlcode<>0 then

rollback;

messagebox("错误","修改口令失败，请重试！") return

end if

commit;

messagebox("提示","修改口令成功！") close(parent)

6.2模块2

目录

财务管理：结账

string xsze1,xsthze1,rkze1,rkthze1

long xsze,xsthze,rkze,rkthze;long xsze2,xsthze2,rkze2,rkthze2

//统计入库总额

declare cursor1 cursor for select je from rkdj_tab where rkrq=:em_1.text; open cursor1;

fetch cursor1 into :rkze1;

rkze=0

do while sqlca.sqlcode=0

rkze2=long(rkze1)

rkze=rkze+rkze2

fetch cursor1 into :rkze1;

loop

close cursor1;

em_4.text=string(rkze)

//统计入库退货总额

declare cursor2 cursor for select je from rkth_tab where thrq=:em_1.text; open cursor2;

fetch cursor2 into :rkthze1;

rkthze=0

do while sqlca.sqlcode=0

rkthze2=long(rkthze1)

rkthze=rkthze+rkthze2

fetch cursor2 into :rkthze1;

close cursor2;

em_5.text=string(rkthze)

//统计销售总额

declare cursor3 cursor for select je from xsdj_tab where xsrq=:em_1.text; open cursor3;

fetch cursor3 into :xsze1;

xsze=0

do while sqlca.sqlcode=0

xsze2=long(xsze1)

xsze=xsze+xsze2

fetch cursor3 into :xsze1;

loop

close cursor3;

em_2.text=string(xsze)

//统计销售退货总额

declare cursor4 cursor for select je from xsth_tab where thrq=:em_1.text; open cursor4;

fetch cursor4 into :xsthze1;

xsthze=0

do while sqlca.sqlcode=0

xsthze2=long(xsthze1)

xsthze=xsthze+xsthze2

fetch cursor4 into :xsthze1;