2022年药房系统delphi .pdf

《2022年药房系统delphi .pdf》由会员分享，可在线阅读，更多相关《2022年药房系统delphi .pdf（26页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、个人资料整理仅限学习使用0 / 26 枣 庄 学 院信息科学与工程学院课程设计任务书题目：药房管理系统的设计姓名：刘斌学号： 201812120229 专业班级：网络工程、2018级本 2 班课程： Delphi 应用程序设计指导教师：燕孝飞职称：讲 师完成时间： 2018年 11月-2018 年 12 月枣庄学院信息科学与工程学院制2018年 12 月 28日课程设计任务书及成绩评定精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 1 页，共 26 页个人资料整理仅限学习使用1 / 26 课程设计的任务和具体要求课程设计要求设计一个小型药库管理系统

2、，应能反应出学生综合利用所学知识完成一定的设计任务的能力，反映出学生理论联系实践的动手能力。具体要求如下：1）明确所要开发系统的设计任务；2）做好需求分析，合理选择设计方案；3）合理设计数据库中各个表的结构及其关系；4）能够设计出美观大方的程序界面；5）养成良好的代码书写习惯；6）在编写程序过程中应注意相关文档的编写；7）综合应用Delphi 各种组件实现程序功能； Core(TM2 Duo CPU ，主频 2.31GHz；内存 3G ；硬盘 320G以上； 1024768 显示分辨率软件环境： Delphi 7.0 SQL Server 2005课程设计进度计划起至日期工作内容备注2018.

3、11.28-2018.12.5 2018.12.6-2018.12.16 2018.12.17-2018.12.28 明确设计思路，设计整体框架和数据库建立整体框架，初步填写各工程代码优化窗体代码，添加皮肤和打印组件完成整体设计并美化完成完成完成参考文献、资料索引序号文献、资料名称编著者出版单位1 李目海 .delhpi应用程序设计M 北京：枣庄学院计算机科学系，2018 2 侯炳辉，沈林兴，彭澎. 毕业设计案例择选M. 北京：清华大学出版社，2000 3 施新刚 . 实效编程百例M. 北京 :人民邮电出版社，2004 4 谭浩强 .Delphi 程序设计 M. 北京：清华大学出版社，2000

4、 5 东名 , 吴名月 .access 数据库管理实务M. 北京：人民邮电出版社，2002 6 乔林 . 参透 Delphi M.北京：中国铁道出版社，2003:75-156 7 沈才梁 .Delphi 7.0程序设计教程M. 北京：北方交通大学出版社，2004 8 张海藩 . 软件工程导论M 北京：清华大学出版社，1998精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 3 页，共 26 页个人资料整理仅限学习使用0 / 26 目 录1 系统介绍. 22 数据库表的结构描述及其关系 2 2.1 数据库概要设计. 2 2.2 数据库设计 . 3 2.

5、3 详细设计及具体功能的实现. 4 2.3 性能需求 . 5 3 软件的模块结构图. 5 4 主要功能模块的流程图. 6 5 主要功能的实现代码. 7 6 程序运行效果及其分析. 347 总结. 36正文1. 系统介绍药房等单位的药品信息和数据纷乱复杂，整理统计费力费时。要做好对企业的管理，企业就必须快速准确地获取自己企业单位的信息，这就要求及时统计数据并方便查看，以及对企业的数据信息进行维护。本软件是利用DELPHI 7.0 设计开发的药房管理系统，是药房信息系统的一个重要组成部分，可实现对药房药品信息的分类管理和数据分析，从而使信息整理快速、准确、简单，以便于相关部门给予统筹安排，从而提高

6、改进传统的管理方法，提高企业管理水平。本文所叙述的内容以及程序代码都是医院药品管理中的常见问题。药房管理系统应具有如下功能模块：1）. 药品信息部分：对药品信息的添加, 删除修改及查询功能的实现. 完成对药品的管理 . 2）. 库存管理部分：对保存药品的库房进行管理, 出入库的时间 , 药品等信息的录入。3）. 销售信息部分：包括对药品的销售情况及销售信息的查询. 4）. 用户权限管理部分 : 系统的退出的实现 . 5）. 帮助部分：用户对系统不理解的时候给与帮助和指导. 6）. 打印部分：实在药品信息、销售和库存的信息的打印. 2. 数据库表的结构描述及其关系精选学习资料 - - - - -

7、 - - - - 名师归纳总结 - - - - - - -第 4 页，共 26 页个人资料整理仅限学习使用1 / 26 21 数据库概要设计根据数据库的要求分析，确定该管理系统应具有的数据实体和数据实体的属性。在医院及药店的药品管理系统中包括的实体对象有药品实体、供应商实体、客户实体、操作员实体等。其每个实体的属性关系如下：1、药品实体中主要包括商品名称、简称、批号、产地、规格、单位、进价、库存等属性，该实体关系如图2.3 所示图 2.3 药品实体图 2.客户实体包括客户编号、客户全称、地址、联系人、电话、其中编号是为每个固定顾客作的编号码，以便查找操作。其客户实体关系如图 2.4 所示: 图

8、 2.4 客户实体图2.2 数据库的设计我采用了 SQLSer ve r2 005 作为后台数据库。1、用户表 table_1 ）：包括操作员和密码；主要用来保存用户信息和密码。2、入库表 table_3 ）：包括商品名称、简称、批号、产地、规格、包装、单位、数量、进价、金额、备注、供应商、日期、经手人、票号，用来保存商品入库的详细信息。3、销售表 。 form2.Show。 form2.Update。 sleep(3000。 form3:=Tform3.Create(application。 form2.Free。 if form3.ShowModal=100 then begin Appl

9、ication.CreateForm(TForm1, Form1。 end 。 Application.Run。End. unit1: unit Unit1。interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, jpeg。type TForm1 = class(TForm MainMenu1: TMainMenu。 N1: TMenuItem。 N2: TMenuItem。 N3: TMenuItem。 N4: TMe

10、nuItem。 N6: TMenuItem。 N5: TMenuItem。销售作业客户供应商销售信息入库作业销售查询库存盘点库存查询价格管理库存信息退货返厂入库信息客户退货入库查询精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 8 页，共 26 页个人资料整理仅限学习使用5 / 26 Image1: TImage。 N7: TMenuItem。 procedure N2Click(Sender: TObject。 procedure N1Click(Sender: TObject。 procedure N3Click(Sender: TObject

11、。 procedure N6Click(Sender: TObject。 procedure N4Click(Sender: TObject。 procedure N7Click(Sender: TObject。 private Private declarations public Public declarations end 。var Form1: TForm1。implementation uses unit4,unit5,unit6,unit7。$R *.dfm procedure TForm1.N2Click(Sender: TObject。begin form5:=Tform5.

12、create(self。form5.Show 。end。procedure TForm1.N1Click(Sender: TObject。begin form4:=Tform4.create(self。form4.Show 。end。procedure TForm1.N3Click(Sender: TObject。begin form6:=Tform6.create(self。form6.Show 。end。procedure TForm1.N6Click(Sender: TObject。begin showmessage(有问题找百度！ 。end。procedure TForm1.N4Cli

13、ck(Sender: TObject。begin form7:=Tform7.create(self。 form7.Show 。end。procedure TForm1.N7Click(Sender: TObject。begin form1.Close。end。End. Unit2: 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 9 页，共 26 页个人资料整理仅限学习使用6 / 26 unit Unit2。interface uses Windows, Messages, SysUtils, Variants, Classes, Graphic

14、s, Controls, Forms, Dialogs, jpeg, ExtCtrls, bsMessages。type TForm2 = class(TForm Image1: TImage。 private Private declarations public Public declarations end 。var Form2: TForm2。implementation $R *.dfm End. Unit3: unit Unit3。interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con

15、trols, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls, bsSkinData, BusinessSkinForm。type TForm3 = class(TForm Image1: TImage。 Label1: TLabel。 Label2: TLabel。 Edit1: TEdit。 Edit2: TEdit。 Button1: TButton。 Button2: TButton。 Button3: TButton。 DataSource1: TDataSource。 ADOConnection1: TADOConnectio

16、n。 ADOQuery1: TADOQuery 。 ADOTable1: TADOTable。 bsBusinessSkinForm1: TbsBusinessSkinForm。 bsSkinData1: TbsSkinData。 bsStoredSkin1: TbsStoredSkin。 procedure Button1Click(Sender: TObject。 procedure Button2Click(Sender: TObject。 private Private declarations public Public declarations 精选学习资料 - - - - - -

17、 - - - 名师归纳总结 - - - - - - -第 10 页，共 26 页个人资料整理仅限学习使用7 / 26 end 。var Form3: TForm3。implementation uses Unit1, Unit2。$R *.dfm procedure TForm3.Button1Click(Sender: TObject。begin ADOQuery1.Close 。 ADOQuery1.SQL.Clear。 ADOQuery1.SQL.Add(select * from table_1 where 用户名 =+edit1.Text+and +密码 =+edit2.Text+

18、。 ADOQuery1.Open 。 if ADOQuery1.Eof then begin showmessage(用户号或密码不正确 。 end else begin ModalResult := 100。 /用户名和密码正确将激活主界面/ end。end。procedure TForm3.Button2Click(Sender: TObject。begin form3.Close 。end。End. Unit4: unit Unit4。interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont

19、rols, Forms, Dialogs, StdCtrls, Grids, DBGrids, ADODB, DB, jpeg, ExtCtrls。type TForm4 = class(TForm Image1: TImage。 Label1: TLabel。 Label2: TLabel。 Edit1: TEdit。 Edit2: TEdit。 DBGrid1: TDBGrid。 GroupBox1: TGroupBox。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Labe

20、l8: TLabel。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 11 页，共 26 页个人资料整理仅限学习使用8 / 26 Edit3: TEdit。 Edit4: TEdit。 Edit5: TEdit。 Edit6: TEdit。 Edit7: TEdit。 Edit8: TEdit。 Button3: TButton。 Button4: TButton。 Button5: TButton。 Button1: TButton。 Button2: TButton。 DataSource1: TDataSource。 ADOConnectio

21、n1: TADOConnection。 ADOQuery1: TADOQuery 。 procedure Button4Click(Sender: TObject。 procedure Button1Click(Sender: TObject。 procedure Button3Click(Sender: TObject。 procedure Button2Click(Sender: TObject。 private Private declarations public Public declarations end 。var Form4: TForm4。implementation $R

22、*.dfm procedure TForm4.Button4Click(Sender: TObject。begin ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select * from table_2 where 药品编号=+edit1.Text+or +药品名称 =+edit2.Text+。 ADOQuery1.open 。 if ADOQuery1.Eof then begin showmessage(药品不存在 。 end else begin ADOQuery1.Close 。 /删除药品信息 ADOQuery1

23、.SQL.Clear 。 ADOQuery1.SQL.Add(delete from table_2 where 药品编号 = +edit3.Text+ 。 ADOQuery1.ExecSQL。 ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select *from table_2 。 ADOQuery1.Open。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 12 页，共 26 页个人资料整理仅限学习使用9 / 26 showmessage(删除成功 。 end end。pr

24、ocedure TForm4.Button1Click(Sender: TObject。begin ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select * from table_2 where 药品编号=+edit1.Text+or +药品名称 =+edit2.Text+。 ADOQuery1.open 。if ADOQuery1.Eof then begin showmessage(没发现该药品 。 ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(

25、select * from table_2 。 ADOQuery1.open 。 exit。 end end。procedure TForm4.Button3Click(Sender: TObject。begin if edit3.Text= then begin showmessage(药品编号不得为空 。 end else ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select * from table_2 where 药品编号 =+edit3.Text+ 。 ADOQuery1.open 。if ADOQuery1

26、.Eof then begin ADOQuery1.Close 。 /添加药品信息 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(insert into table_2 (药品编号 , 药品名称 , 药品产地 , 药品重量 , 进价 , 零售价 values(+edit3.Text+,+edit4.Text+,+edit5.Text+,+edit6.Text+,+edit7.Text+,+edit8.Text+ 。 ADOQuery1.ExecSQL。 ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.

27、Add(select * from table_2 。 ADOQuery1.Open。 showmessage(添加成功 。end else showmessage(错误 , 重复的药品信息 。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 13 页，共 26 页个人资料整理仅限学习使用10 / 26 exit。 ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select *from table_2 。end。procedure TForm4.Button2Click(Sende

28、r: TObject。begin form4.Close。end。End. Unit5: unit Unit5。interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls。type TForm5 = class(TForm Image1: TImage。 Label1: TLabel。 Label2: TLabel。 Label3: T

29、Label。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Label9: TLabel。 Label10: TLabel。 Label11: TLabel。 DBGrid1: TDBGrid。 Button1: TButton。 Button2: TButton。 Edit1: TEdit。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 Edit5: TEdit。 Edit6: TEdit。 Edit7: TEdit。 Edit8: TEdi

30、t。 Edit9: TEdit。 Button3: TButton。 Button4: TButton。 Button5: TButton。 DateTimePicker1: TDateTimePicker。 DateTimePicker2: TDateTimePicker。 DataSource1: TDataSource。精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 14 页，共 26 页个人资料整理仅限学习使用11 / 26 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery 。 pro

31、cedure Button1Click(Sender: TObject。 procedure Button3Click(Sender: TObject。 procedure Button4Click(Sender: TObject。 procedure Button5Click(Sender: TObject。 procedure Button2Click(Sender: TObject。 private Private declarations public Public declarations end 。var Form5: TForm5。implementation $R *.dfm

32、procedure TForm5.Button1Click(Sender: TObject。var c,d:string。begin ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.add(select * from table_3 where 销售日期 = :c and 销售日期 。ADOQuery1.Parameters.ParamByName(c.Value:=datetostr(datetimepicker1.Date。ADOQuery1.Parameters.ParamByName(d.Value:=datetostr(dateti

33、mepicker2.Date。ADOQuery1.Open 。if ADOQuery1.Eof then begin showmessage(没发现该信息 。ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select *from table_3 。ADOQuery1.Open 。exit 。end。end。procedure TForm5.Button3Click(Sender: TObject。begin if edit1.Text= then begin showmessage( 药品编号不得为空 。 exit。end else

34、 if edit5.Text= then begin showmessage( 销售时间不得为空 。 exit。end else if edit6.Text= then begin 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 15 页，共 26 页个人资料整理仅限学习使用12 / 26 showmessage( 销售日期不得为空 。 exit。end else if edit7.Text= then begin showmessage( 结账编号不得为空 。 exit。end else ADOQuery1.Close。ADOQuery1.SQL

35、.Clear。ADOQuery1.SQL.Add(select * from table_3 where 销售日期 =+edit6.Text+and +药品 编 号 =+edit1.Text+and +销 售 时 间 =+edit5.Text+and +结账 编 号=+edit7.Text+ 。ADOQuery1.open。if ADOQuery1.Eof then begin ADOQuery1.Close。 /添加销售信息ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(insert into table_3 (药品编号 , 药品名称 , 药品数量 , 金额 ,

36、销售时间 , 销售日期,结账编号,经手人,结账方式 values(+edit1.Text+,+edit2.Text+,+edit3.Text+,+edit4.Text+,+edit5.Text+,+edit6.Text+,+edit7.Text+,+edit8.Text+,+edit9.Text+ 。ADOQuery1.ExecSQL 。ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select *from table_3 。ADOQuery1.Open 。showmessage( 添加成功 。end else showmessag

37、e( 错误，重复的销售信息 。exit 。ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select *from 销售信息 。end。procedure TForm5.Button4Click(Sender: TObject。begin ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select * from table_3 where 销售日期 =+edit6.Text+and +药品 编 号 =+edit1.Text+and +销 售时 间 =+edit5.Text+

38、and +结账 编 号=+edit7.Text+。ADOQuery1.open。if ADOQuery1.Eof then begin showmessage( 销售信息不存在 。end 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 16 页，共 26 页个人资料整理仅限学习使用13 / 26 else begin ADOQuery1.Close。 /删除销售信息ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(delete from table_3 where 销售日期 = +edit6.Text+and +药品 编

39、号 =+edit1.Text+and +销 售时 间 =+edit5.Text+and +结账 编 号=+edit7.Text+ 。ADOQuery1.ExecSQL 。ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select *from table_3 。ADOQuery1.Open 。showmessage( 删除成功 。end end。procedure TForm5.Button5Click(Sender: TObject。begin if edit1.Text= then begin showmessage( 药品编号不

40、得为空 。 exit。end else if edit2.Text= then begin showmessage( 药品名称不得为空 。 exit。end else if edit3.Text= then begin showmessage( 药品数量不得为空 。 exit。end else if edit4.Text= then begin showmessage( 金额不得为空 。 exit。end else if edit5.Text= then begin showmessage( 销售时间不得为空 。 exit。 end else if edit6.Text= then begin

41、 showmessage( 销售日期不得为空 。 exit。 end else if edit7.Text= then 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 17 页，共 26 页个人资料整理仅限学习使用14 / 26 begin showmessage( 结账编号不得为空 。 exit。 end else if edit8.Text= then begin showmessage( 经手人不得为空 。 exit。end else if edit9.Text= then begin showmessage( 结账方式不得为空 。 exit

42、。end else begin ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select * from table_3 where 销售日期 =+edit6.Text+and +销售时间 =+edit5.Text+and +结账编号 =+edit7.Text+。 ADOQuery1.open。if ADOQuery1.Eof then begin ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select *from table_3 。ADOQuery1.Open 。s

43、howmessage( 修改失败 。exit 。end else ADOQuery1.Close。 /修改销售信息ADOQuery1.SQL.Clear。 ADOQuery1.SQL.Add(update table_3 set 药 品 编 号 =+edit1.Text+,药 品 名 称=+edit2.Text+,药品数量=+edit3.Text+,金额=+edit4.Text+,经手人=+edit8.Text+,结账方式=+edit9.Text+where 销 售 日 期 =+edit6.Text+and +销 售 时 间=+edit5.Text+and +结账编号 =+edit7.Text

44、+。ADOQuery1.ExecSQL 。ADOQuery1.Close。ADOQuery1.SQL.Clear。ADOQuery1.SQL.Add(select *from table_3 。ADOQuery1.Open 。showmessage( 修改成功 。end。end。procedure TForm5.Button2Click(Sender: TObject。begin form5.Close 。end。End. Unit6: 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 18 页，共 26 页个人资料整理仅限学习使用15 / 26 u

45、nit Unit6。interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, jpeg, ExtCtrls。type TForm6 = class(TForm DataSource1: TDataSource。 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery 。 Image1: TImage。 Label1: TLabel。

46、Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 Label8: TLabel。 Label9: TLabel。 Edit1: TEdit。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 Edit5: TEdit。 Edit6: TEdit。 Button1: TButton。 Button2: TButton。 Button3: TButton。 DBGrid1: TDBGrid。 Edit7: TEdit。 Ed

47、it8: TEdit。 Edit9: TEdit。 Button4: TButton。 Button5: TButton。 procedure Button1Click(Sender: TObject。 procedure Button2Click(Sender: TObject。 procedure Button4Click(Sender: TObject。 procedure Button5Click(Sender: TObject。 procedure Button3Click(Sender: TObject。 private Private declarations public Pu

48、blic declarations end 。var Form6: TForm6。implementation 精选学习资料 - - - - - - - - - 名师归纳总结 - - - - - - -第 19 页，共 26 页个人资料整理仅限学习使用16 / 26 $R *.dfm procedure TForm6.Button1Click(Sender: TObject。begin if edit1.Text= then begin showmessage(入库单编号不得为空 。 end else ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQue

49、ry1.SQL.Add(select * from table_4 where 入库单编号 =+edit1.Text+ 。 ADOQuery1.open 。if ADOQuery1.Eof then begin ADOQuery1.Close 。 /添加入库信息 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(insert into table_4 (入库单编号 , 入库日期 , 药品编号 , 药品名称 , 药品数量 ,供应商名称 values(+edit1.Text+,+edit2.Text+,+edit3.Text+,+edit4.Text+,+edit5.

50、Text+,+edit6.Text+ 。 ADOQuery1.ExecSQL。 ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select *from table_4 。 ADOQuery1.Open。 showmessage(添加成功 。end else showmessage(错误，重复的药品 。 exit。 ADOQuery1.Close 。 ADOQuery1.SQL.Clear 。 ADOQuery1.SQL.Add(select *from table_4 。end。procedure TForm6.Button