Delphi 实验报告
系统名称:药房管理系统
班别:xxxxx
学号:xxxxxxx
姓名:xxxx
指导老师:xxxx
药房管理系统实验报告
【摘要】随着医学技术的发展,药的品种类别越来越多,日常管理
药品的工作变得越加的繁重和繁琐,日常业务所涉及的数据量也非
常大,采用相应的软件来管理日常的操作可以辅助前台人员快速完
成任何一笔交易,从而大大提高交易的效率和准确,在增加销售额
的同时也减轻了工作人员的负担。药房管理系统不仅可以节约大量
的人力物力,而且可以提高管理和服务质量。同时软件提供的基础
信息维护、销售信息查询、采购人员可根据药品库存量和药品销售
情况制定采购计划、销售报表管理可以帮助高级管理人员调整销售
策略。
【关键字】药房、管理系统、提高效率
【主题内容】本系统是在 Windows XP 中设计并完成系统的开发任
务的,使用 Delphi 7.0 开发系统程序,使用 SQL Server 2000 作为数
据库管理系统,以 SQL Server 2000 桌面引擎作为数据库的服务器。
根据需求分析,药房管理系统的功能应该包括如下几个方面:
(1)系统用户管理:药房管理系统的使用人员包括销售员、采购员
以及系统高级管理人员,系统用户管理完成对各类使用用户的
添加、修改、删除和查询。
(2)药品信息管理:管理药品的基础信息,包括基本的添加、修改
删除和查询操作。
(3)库存信息管理:管理药品的入库情况,制定库存报表。
(4)前台销售管理、购买结算管理:管理结算购药费用以及提供用
户特定权限的查询服务。
(5)制定采购计划和销售报表管理:这是为采购人员提供的功能,
也为高级管理人员提供改变销售计划的依据。
由此,药房管理系统功能模块结构图可设计如下:
数据库设计是对保存管理系统数据的数据结构进行设计,系统后台
数据库设计的各个表结构可表示如下:
(1)“系统用户”数据表结构
列名 数据类型 长度 允许空
药
房
管
理
系
统
系统用户管理
药品信息管理
库存信息管理
前台销售管理
购买结算管理
客户取药管理
药房高级管理
系统用户删除
修改用户口令
查询用户口令
药品信息添加
药品信息编辑
药品信息查询
药品入库
库存信息修改
制定库存报表
购物车项目编辑
客户购物车创建
购物车项目查询
购物车项目编辑
药品结算与收费
客户购物车注销
制定采购计划
制定销售报表
系统用户添加
Id int 4
否
编号
char 5
否
口令
char 6
否
权限
tingint 1
否
(2)“药品信息”数据表结构
列名 数据类型 长度 允许空
Id int 4
否
编号
char 5
否
名称 varchar 50 否
售价 smallmoney 4 否
进价
smallmoney 4
否
种类
Varchar 10
否
厂家 varchar 50 否
(3)“药品销售”数据表结构
列名 数据类型 长度 允许空
编号
char 5
否
日期 smalldatetime 4 否
药编号 nchar 6 否
数量
tinyint 1
否
(4)”库存数据”表结构
列名 数据类型 长度 允许空
编号
char 5
否
库存
smallint 2
否
下限
smallint 2
否
(5)“购物车记录”表结构
列名 数据类型 长度 允许空
编号
char 5
否
客户名
vaechar 15
否
日期
smalldatetime 4
否
结算
bit 1
否
在数据库设计好之后,开始用 Delphi 7.0 编写设计程序,现将系统主
要的运行模块截图如下:
图 1:登录窗口
代码:
procedure Tlogin_Form.Button1Click(Sender: TObject); ——实现用户登录功能
var
yhm,mm,sqlstr:string;
begin
yhm:=trim(yhm_LEdit.Text);
mm:=trim(mm_LEdit.Text);
sqlstr:='select * from 系统用户 where(编号='''+yhm+''')and(口令='''+mm+''')';
if (length(yhm)>0) or (length(mm)>0) then
begin
with TQuery.Create(nil) do
try
Close;
SessionName:=DM_form.Database1.SessionName;
DatabaseName:=DM_form.Database1.DatabaseName;
SQL.Clear;
SQL.Add(sqlstr);
Open;
if RecordCount > 0 then
begin
DM_form.yhm:=fieldbyname('编号').AsString;
DM_form.qx:=fieldbyname('权限').AsString;
loginok:=true;
end
else
begin
loginok:=false;
showmessage('请确认登录的用户名和密码是否正确!');