2022年药房系统delphi.docx

精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用枣 庄 学 院信息科学与工程学院课程设计任务书题 目：药房治理系统的设计姓 名：刘斌学 号： 202212120229 专业班级：网络工程、2022 级本 2 班课 程： Delphi 应用程序设计指导老师：燕孝飞 职称：讲 师完成时间： 2022 年 11 月-2022 年 12 月枣庄学院信息科学与工程学院制2022年 12 月 28日课程设计任务书及成果评定0 / 26 名师归纳总结 - - - - - - -第 1 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用课程设计的任务和具体要求 课程设计要求设计一个小型药库治理系统,应能反应出同学综合利用所学学问完成 肯定的设计任务的才能,反映出同学理论联系实践的动手才能；具体要求如下：<1）明确所要开发系统的设计任务；<2）做好需求分析,合理挑选设计方案；<3）合理设计数据库中各个表的结构及其关系；<4）能够设计出美观大方的程序界面；<5）养成良好的代码书写习惯；<6）在编写程序过程中应留意相关文档的编写；<7）综合应用 Delphi 各种组件实现程序功能；<8）仔细撰写课程设计总结报告；指导老师签字： _ 日期：指导老师评语 成果： _指导老师签字：日期：1 / 26 名师归纳总结 - - - - - - -第 2 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用课程设计所需软件、硬件等硬件环境： IterlR> CoreTM>2 Duo CPU ,主频 2.31GHz；内存 3G；硬盘 320G以上； 1024× 768 显示辨论率软件环境： Delphi 7.0 SQL Server 2005课程设计进度方案起至日期工作内容完备注2022.11.28-2022.12.5 明确设计思路,设计整体框架和数据库完成2022.12.6-2022.12.16 建立整体框架,初步填写各工程代码完成2022.12.17-2022.12.28 优化窗体代码,添加皮肤和打印组件完成成整体设计并美化参考文献、资料索引序号 文献、资料名称 编著者 出版单位1 李目海 .delhpi 应用程序设计 M 北京：枣庄学院运算机科学系,2022 2 侯炳辉,沈林兴,彭澎 . 毕业设计案例择选 M. 北京：清华高校出版社,2000 3 施新刚 . 实效编程百例 M. 北京 : 人民邮电出版社,2004 4 谭浩强 .Delphi 程序设计 M. 北京：清华高校出版社,2000 5 东名 , 吴名月 .access 数据库治理实务 M. 北京：人民邮电出版社,2002 6 乔林 . 参透 Delphi M. 北京：中国铁道出版社,2003:75-156 7 沈才梁 .Delphi 7.0 程序设计教程 M. 北京：北方交通高校出版社,2004 8 张海藩 . 软件工程导论 M 北京：清华高校出版社,19982 / 26 名师归纳总结 - - - - - - -第 3 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用目 录1 系统介绍 . 22 数据库表的结构描述及其关系 2 2.1 数据库概要设计 . 2 2.2 数据库设计 . 3 2.3 具体设计及具体功能的实现 . 4 2.3 性能需求 . 5 3 软件的模块结构图 . 5 4 主要功能模块的流程图 . 6 5 主要功能的实现代码 . 7 6 程序运行成效及其分析 . 347 总结 正文1. 系统介绍. 36药房等单位的药品信息和数据纷乱复杂,整理统计费劲费时；要做好对 企业的治理,企业就必需快速精确地猎取自己企业单位的信息,这就要求及 时统计数据并便利查看,以及对企业的数据信息进行保护；本软件是利用 DELPHI 7.0 设计开发的药房治理系统,是药房信息系统的一个重要组成部 分,可实现对药房药品信息的分类治理和数据分析,从而使信息整理快速、精确、简洁,以便于相关部门赐予统筹支配,从而提高改进传统的治理方 法,提高企业治理水平；本文所表达的内容以及程序代码都是医院药品治理 中的常见问题；药房治理系统应具有如下功能模块：<1）. 药品信息部分：对药品信息的添加, 删除修改及查询功能的实现. 完成对药品的治理 . <2）. 库存治理部分：对储存药品的库房进行治理 息的录入；, 出入库的时间 , 药品等信<3）. 销售信息部分：包括对药品的销售情形及销售信息的查询 . <4）. 用户权限治理部分 : 系统的退出的实现 . <5）. 帮忙部分：用户对系统不懂得的时候给与帮忙和指导 . <6）. 打印部分：实在药品信息、销售和库存的信息的打印 . 2. 数据库表的结构描述及其关系0 / 26 名师归纳总结 - - - - - - -第 4 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用21 数据库概要设计依据数据库的要求分析,确定该治理系统应具有的数据实体和数据实体的属 性；在医院及药店的药品治理系统中包括的实体对象有药品实体、供应商实 体、客户实体、操作员实体等；其每个实体的属性关系如下：1、药品实体中主要包括商品名称、简称、批号、产地、规格、单位、进价、库存等属性,该实体关系如图2.3 所示进价批号品实图 2.3 药简称商 品 名称体图产地药品库存实体 2.客户包括客户编规格时间单位号、地客户全称、址、联系人、电话、其中编号是为每个固定顾客作的编号码,以便查找操作；其客户实体 关系如图 2.4 所示 : 编号名称地址客户人联系图 2.4 客户实体图联系电话2.2 数据库的设计我采纳了 SQLSer ve r2 005 作为后台数据库；1、用户表 <table_1 ）：包括操作员和密码；主要用来储存用户信息和密码；2、入库表 <table_3 ）：包括商品名称、简称、批号、产地、规格、包装、单 位、数量、进价、金额、备注、供应商、日期、经手人、票号,用来储存商 品入库的具体信息；3、销售表 <table_2 ）：包括商品名称、批号、产地、规格、包装、单位、数 量、单价、金额、备注、客户、日期、经手人、票号,用来储存商品销售的 具体信息；药房的药品治理系统的数据库 E-R 图如图 ：1 / 26 名师归纳总结 - - - - - - -第 5 页,共 26 页精选学习资料 - - - - - - - - - 数量票号M商品名称数量个人资料整理仅限学习使用票号商品名称入库单销售单全称MMM编号1有名称商品名称属于1库存1属于批号编号有1供应商客户1111产地票号有MM属于属于M销售退单有M入库退单数量数量商品名称商品名称票号库存实体中是药品的相关信息,包括商品名称、产地和批号,他和其他表的关系全部为1 对多关系,入库单,销单,入库退单,销售退单都和它有主外键的关系；供应商和客户这两个实体也是作为引用实体存在的,供应商和入库单实体和入库退单实体发生关系,客户和销售单和销售退单发生 1 对多关系；23 具体设计及系统功能的实现经过上述的需求分析和系统分析以及数据库的设计,确定药房的药品治理系统的全部功能和所需数据库,下面依据系统具体设计的任务要求 , 对该软件进行具体的设计及功能实现；在此过程中采纳结构化的设计方法,来改善掌握结构,降低程序的复杂度,从而提高程序的可读性、可测试性、可保护性；软件结构：该软件顶层数据流图如图；登录操作员 24 性能需求身份数据验证处理2 / 26 名师归纳总结 - - - - - - -第 6 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用1、数据精确度 查询时应保证查全率,全部相应域包含查询关键字的记录都应能查到；查询时应保证查准率,查到的记录应与给定的单项或组合查询条件完全匹配；2、时间特性一般操作的响应时间应在 的时间内完成；3、适应性12 秒内,对数据的导入和导出也应在可接受满意个人使用的需求；对前面提到的运行环境要求不应存在困难；3. 软件的模块结构图医药治理系统从功能上可以划分为如下几个功能模块4. 主要功能模块的流程图药房的药品治理系统所处理的信息较多,功能强大,其基于药品治理的系统流程如图 2.2 所示：3 / 26 名师归纳总结 - - - - - - -第 7 页,共 26 页精选学习资料 - - - - - - - - - 医药治理系统的系统流程图库个人资料整理仅限学习使用存5. 主要功能的实现代码 退货返厂盘客户退货点Preject1: program Project1；库存信息销客uses 供 入 Forms, 应 库 windows, 作业 Unit1 in 'Unit1.pas' Form1, 售户作 业 Unit2 in 'Unit2.pas' Form2, Unit3 in 'Unit3.pas' Form3, Unit4 in '.2022-12-15改Unit4.pas' Form4, ；价销销 Unit5 in '.2022-12-15改Unit5.pas' Form5, 库 Unit6 in '.2022-12-15 入库信息改Unit6.pas' Form6, 格售售 Unit7 in '.2022-12-27Unit7.pas' Form7 $R *.res 查 询管信查理息询begin 入库查询 Application.Initialize； form2:=Tform2.Createapplication>； form2.Show； form2.Update； sleep3000>； form3:=Tform3.Createapplication>； form2.Free； if form3.ShowModal=100 then begin Application.CreateFormTForm1, Form1>； end ； Application.Run；End. unit1: unit Unit1；interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, jpeg；type TForm1 = classTForm> MainMenu1: TMainMenu； N1: TMenuItem； N2: TMenuItem； N3: TMenuItem； N4: TMenuItem； N6: TMenuItem； N5: TMenuItem；4 / 26 名师归纳总结 - - - - - - -第 8 页,共 26 页精选学习资料 - - - - - - - - - Image1: TImage；个人资料整理仅限学习使用 N7: TMenuItem； procedure N2ClickSender: TObject> procedure N1ClickSender: TObject>； procedure N3ClickSender: TObject>； procedure N6ClickSender: TObject>； procedure N4ClickSender: TObject>； procedure N7ClickSender: TObject>； private Private declarations public Public declarations end ；var Form1: TForm1；implementation uses unit4,unit5,unit6,unit7；$R *.dfm procedure TForm1.N2ClickSender: TObject>；begin form5:=Tform5.createself>；form5.Show ；end；procedure TForm1.N1ClickSender: TObject>；begin form4:=Tform4.createself>；form4.Show ；end；procedure TForm1.N3ClickSender: TObject>；begin form6:=Tform6.createself>；form6.Show ；end；procedure TForm1.N6ClickSender: TObject>；begin showmessage'有问题找百度！'> ；end；procedure TForm1.N4ClickSender: TObject>；begin form7:=Tform7.createself>； form7.Show ；end；procedure TForm1.N7ClickSender: TObject>；begin form1.Close；end；End. Unit2: 5 / 26 名师归纳总结 - - - - - - -第 9 页,共 26 页精选学习资料 - - - - - - - - - unit Unit2；个人资料整理仅限学习使用interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, bsMessages；type TForm2 = classTForm> 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, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls, bsSkinData, BusinessSkinForm；type TForm3 = classTForm> Image1: TImage； Label1: TLabel； Label2: TLabel； Edit1: TEdit； Edit2: TEdit； Button1: TButton； Button2: TButton； Button3: TButton； DataSource1: TDataSource； ADOConnection1: TADOConnection； ADOQuery1: TADOQuery ； ADOTable1: TADOTable； bsBusinessSkinForm1: TbsBusinessSkinForm； bsSkinData1: TbsSkinData； bsStoredSkin1: TbsStoredSkin； procedure Button1ClickSender: TObject>； procedure Button2ClickSender: TObject>； private Private declarations public Public declarations 6 / 26 名师归纳总结 - - - - - - -第 10 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用 end ；var Form3: TForm3；implementation uses Unit1, Unit2；$R *.dfm procedure TForm3.Button1ClickSender: TObject>；begin ADOQuery1.Close ； ADOQuery1.SQL.Clear； ADOQuery1.SQL.Add'select * from table_1 where 密码 ='+''''+edit2.Text+'''' >； ADOQuery1.Open ； if ADOQuery1.Eof then begin showmessage'用户号或密码不正确'> ； end else begin 用户名 ='+''''+edit1.Text+''''+'and '+' ModalResult := 100； /用户名和密码正确将激活主界面/ end；end；procedure TForm3.Button2ClickSender: TObject>；begin form3.Close ；end；End. Unit4: unit Unit4；interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ADODB, DB, jpeg, ExtCtrls；type TForm4 = classTForm> Image1: TImage； Label1: TLabel； Label2: TLabel； Edit1: TEdit； Edit2: TEdit； DBGrid1: TDBGrid； GroupBox1: TGroupBox； Label3: TLabel； Label4: TLabel； Label5: TLabel； Label6: TLabel； Label7: TLabel； Label8: TLabel；7 / 26 名师归纳总结 - - - - - - -第 11 页,共 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； ADOConnection1: TADOConnection ADOQuery1: TADOQuery ； procedure Button4ClickSender: TObject>； procedure Button1ClickSender: TObject>； procedure Button3ClickSender: TObject>； procedure Button2ClickSender: TObject> private Private declarations public Public declarations end ；var ； Form4: TForm4 implementation $R *.dfm procedure TForm4.Button4ClickSender: 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.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 ；8 / 26 名师归纳总结 - - - - - - -第 12 页,共 26 页精选学习资料 - - - - - - - - - showmessage'删除胜利 '> ；个人资料整理仅限学习使用 end end；procedure TForm4.Button1ClickSender: 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'select * from table_2' > ADOQuery1.open ； exit； end end；procedure TForm4.Button3ClickSender: 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.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.Add'select * from table_2 '> ； ADOQuery1.Open ； showmessage' 添加胜利 '> ；end else 错误 , 重复的药品信息 '> ； showmessage'9 / 26 名师归纳总结 - - - - - - -第 13 页,共 26 页精选学习资料 - - - - - - - - - exit；个人资料整理仅限学习使用 ADOQuery1.Close ； ADOQuery1.SQL.Clear ； ADOQuery1.SQL.Add'select *from table_2 '> ；end；procedure TForm4.Button2ClickSender: 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 = classTForm> Image1: TImage； Label1: TLabel； Label2: TLabel； Label3: TLabel； 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: TEdit； Edit9: TEdit； Button3: TButton； Button4: TButton； Button5: TButton； DateTimePicker1: TDateTimePicker； DateTimePicker2: TDateTimePicker； DataSource1: TDataSource；10 / 26 名师归纳总结 - - - - - - -第 14 页,共 26 页精选学习资料 - - - - - - - - - ADOConnection1: TADOConnection；个人资料整理仅限学习使用 ADOQuery1: TADOQuery ； procedure Button1ClickSender: TObject>； procedure Button3ClickSender: TObject>； procedure Button4ClickSender: TObject>； procedure Button5ClickSender: TObject> procedure Button2ClickSender: TObject>； private Private declarations public Public declarations end ；var Form5: TForm5；implementation $R *.dfm procedure TForm5.Button1ClickSender: TObject>；var c,d:string begin ADOQuery1.Close；ADOQuery1.SQL.Clear；ADOQuery1.SQL.add'select * from table_3 where 销售日期 >= :c and 销售日期 <=:d' > ；ADOQuery1.Parameters.ParamByName'c'>.Value:=datetostrdatetimepicker1.Date>；ADOQuery1.Parameters.ParamByName'd'>.Value:=datetostrdatetimepicker2.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.Button3ClickSender: TObject>；begin if edit1.Text='' then begin showmessage' 药品编号不得为空'> ； exit；end else if edit5.Text='' then begin showmessage' 销售时间不得为空'> ； exit；end else if edit6.Text='' then begin 11 / 26 名师归纳总结 - - - - - - -第 15 页,共 26 页精选学习资料 - - - - - - - - - showmessage' 销