2022年药房系统delphi.docx

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

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

2、设计的任务和具体要求 课程设计要求设计一个小型药库治理系统,应能反应出同学综合利用所学学问完成 肯定的设计任务的才能,反映出同学理论联系实践的动手才能；具体要求如下：1）明确所要开发系统的设计任务；2）做好需求分析,合理挑选设计方案；3）合理设计数据库中各个表的结构及其关系；4）能够设计出美观大方的程序界面；5）养成良好的代码书写习惯；6）在编写程序过程中应留意相关文档的编写；7）综合应用 Delphi 各种组件实现程序功能； CoreTM2 Duo CPU ,主频 2.31GHz；内存 3G；硬盘 320G以上； 1024 768 显示辨论率软件环境： Delphi 7.0 SQL Serv

3、er 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. 北京 : 人民邮电出版社,200

4、4 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 数

5、据库表的结构描述及其关系 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 设计开发的药房治理系统,是药房信息系统的一个重要组成部

6、分,可实现对药房药品信息的分类治理和数据分析,从而使信息整理快速、精确、简洁,以便于相关部门赐予统筹支配,从而提高改进传统的治理方 法,提高企业治理水平；本文所表达的内容以及程序代码都是医院药品治理 中的常见问题；药房治理系统应具有如下功能模块：1）. 药品信息部分：对药品信息的添加, 删除修改及查询功能的实现. 完成对药品的治理 . 2）. 库存治理部分：对储存药品的库房进行治理 息的录入；, 出入库的时间 , 药品等信3）. 销售信息部分：包括对药品的销售情形及销售信息的查询 . 4）. 用户权限治理部分 : 系统的退出的实现 . 5）. 帮忙部分：用户对系统不懂得的时候给与帮忙和指导 .

7、 6）. 打印部分：实在药品信息、销售和库存的信息的打印 . 2. 数据库表的结构描述及其关系0 / 26 名师归纳总结 - - - - - - -第 4 页,共 26 页精选学习资料 - - - - - - - - - 个人资料整理 仅限学习使用21 数据库概要设计依据数据库的要求分析,确定该治理系统应具有的数据实体和数据实体的属 性；在医院及药店的药品治理系统中包括的实体对象有药品实体、供应商实 体、客户实体、操作员实体等；其每个实体的属性关系如下：1、药品实体中主要包括商品名称、简称、批号、产地、规格、单位、进价、库存等属性,该实体关系如图2.3 所示进价批号品实图 2.3 药简称商 品

8、 名称体图产地药品库存实体 2.客户包括客户编规格时间单位号、地客户全称、址、联系人、电话、其中编号是为每个固定顾客作的编号码,以便查找操作；其客户实体 关系如图 2.4 所示 : 编号名称地址客户人联系图 2.4 客户实体图联系电话2.2 数据库的设计我采纳了 SQLSer ve r2 005 作为后台数据库；1、用户表 table_1 ）：包括操作员和密码；主要用来储存用户信息和密码；2、入库表 table_3 ）：包括商品名称、简称、批号、产地、规格、包装、单 位、数量、进价、金额、备注、供应商、日期、经手人、票号,用来储存商 品入库的具体信息；3、销售表 ； form2.Show； f

9、orm2.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,

10、 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 N1ClickS

11、ender: 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

12、.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 showmessa

13、ge有问题找百度！ ；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, Sy

14、sUtils, 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,

15、 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: TDataSourc

16、e； ADOConnection1: TADOConnection； ADOQuery1: TADOQuery ； ADOTable1: TADOTable； bsBusinessSkinForm1: TbsBusinessSkinForm； bsSkinData1: TbsSkinData； bsStoredSkin1: TbsStoredSkin； procedure Button1ClickSender: TObject； procedure Button2ClickSender: TObject； private Private declarations public Public d

17、eclarations 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.Addselect * from table_1 where 密码 =+edit

18、2.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, Vari

19、ants, 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:

20、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； DataSource

21、1: 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: T

22、Form4 implementation $R *.dfm procedure TForm4.Button4ClickSender: TObject；begin ADOQuery1.Close ； ADOQuery1.SQL.Clear ； ADOQuery1.SQL.Addselect * from table_2 where 药品编号=+edit1.Text+or +药品名称 =+edit2.Text+； ADOQuery1.open ； if ADOQuery1.Eof then begin showmessage 药品不存在 ； end else begin ADOQuery1.Clo

23、se ； / 删除药品信息 ADOQuery1.SQL.Clear ； ADOQuery1.SQL.Adddelete from table_2 where 药品编号 = +edit3.Text+ ； ADOQuery1.ExecSQL； ADOQuery1.Close ； ADOQuery1.SQL.Clear ； ADOQuery1.SQL.Addselect *from table_2 ； ADOQuery1.Open ；8 / 26 名师归纳总结 - - - - - - -第 12 页,共 26 页精选学习资料 - - - - - - - - - showmessage删除胜利 ；个人

24、资料整理仅限学习使用 end end；procedure TForm4.Button1ClickSender: TObject；begin ADOQuery1.Close ； ADOQuery1.SQL.Clear ； ADOQuery1.SQL.Addselect * from table_2 where 药品编号=+edit1.Text+or +药品名称 =+edit2.Text+； ADOQuery1.open ；if ADOQuery1.Eof then begin showmessage 没发觉该药品 ； ADOQuery1.Close ； ADOQuery1.SQL.Clear ；

25、 ADOQuery1.SQL.Addselect * 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.Addselect * from table_2 where 药品编号 =+edit3.Text+ ； ADOQuery1.open

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

27、DOQuery1.SQL.Addselect * from table_2 ； ADOQuery1.Open ； showmessage 添加胜利 ；end else 错误 , 重复的药品信息 ； showmessage9 / 26 名师归纳总结 - - - - - - -第 13 页,共 26 页精选学习资料 - - - - - - - - - exit；个人资料整理仅限学习使用 ADOQuery1.Close ； ADOQuery1.SQL.Clear ； ADOQuery1.SQL.Addselect *from table_2 ；end；procedure TForm4.Button2

28、ClickSender: 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；

29、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； Ed

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

31、ery ； 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 *.d

32、fm procedure TForm5.Button1ClickSender: TObject；var c,d:string begin ADOQuery1.Close；ADOQuery1.SQL.Clear；ADOQuery1.SQL.addselect * from table_3 where 销售日期 = :c and 销售日期 ；ADOQuery1.Parameters.ParamByNamec.Value:=datetostrdatetimepicker1.Date；ADOQuery1.Parameters.ParamByNamed.Value:=datetostrdatetimep

33、icker2.Date；ADOQuery1.Open；if ADOQuery1.Eof then begin showmessage 没发觉该信息 ；ADOQuery1.Close；ADOQuery1.SQL.Clear；ADOQuery1.SQL.Addselect *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 销