藥房(藥庫(kù))系統(tǒng)delphi

1、棗莊學(xué)院信息科學(xué)與項(xiàng)目學(xué)院課程設(shè)計(jì)任務(wù)書題目：藥房管理系統(tǒng)的設(shè)計(jì)姓名：劉斌學(xué)號(hào)：2專業(yè)班級(jí)：網(wǎng)絡(luò)項(xiàng)目、 2018級(jí)本2班課 程:Delphi應(yīng)用程序設(shè)計(jì)指導(dǎo)教師：燕孝飛 職稱:講師完成時(shí)間：2018年11月-2018年12月棗莊學(xué)院信息科學(xué)與項(xiàng)目學(xué)院制2018年12月28日課程設(shè)計(jì)任務(wù)書及成績(jī)?cè)u(píng)定課程設(shè)計(jì)的任務(wù)和具體要求課程設(shè)計(jì)要求設(shè)計(jì)一個(gè)小型藥庫(kù)管理系統(tǒng)，應(yīng)能反應(yīng)出學(xué)生綜合利用所學(xué)知識(shí)完成 一定的設(shè)計(jì)任務(wù)的能力，反映出學(xué)生理論聯(lián)系實(shí)踐的動(dòng)手能力。具體要求如下：1）明確所要開發(fā)系統(tǒng)的設(shè)計(jì)任務(wù)；2）做好需求分析，合理選擇設(shè)計(jì)方案；3 ）合理設(shè)計(jì)數(shù)據(jù)庫(kù)中各個(gè)表的結(jié)構(gòu)及其關(guān)系；4）能夠設(shè)計(jì)出美觀大方

2、的程序界面；5）養(yǎng)成良好的代碼書寫習(xí)慣；6 ）在編寫程序過程中應(yīng)注意相關(guān)文檔的編寫；7）綜合應(yīng)用Delphi各種組件實(shí)現(xiàn)程序功能； Core(TM2 Duo CPU，主頻 2.31GHz;內(nèi)存 3G硬盤320G以上；1024X 768顯示分辨率軟件環(huán)境：Delphi 7.0 SQL Server 2005課程設(shè)計(jì)進(jìn)度計(jì)劃起至日期工作內(nèi)容備注明確設(shè)計(jì)思路，設(shè)計(jì)整體框架和數(shù)據(jù)庫(kù) 建立整體框架，初步填寫各項(xiàng)目代碼 優(yōu)化窗體代碼，添加皮膚和打印組件完成整體設(shè)計(jì)并美化完成 完成 完成參考文獻(xiàn)、資料索引序號(hào)文獻(xiàn)、資料名稱編著者出版單位1 李目海.delhpi應(yīng)用程序設(shè)計(jì)M.北京：棗莊學(xué)院計(jì)算機(jī)科學(xué)系，20

3、182 侯炳輝，沈林興，彭澎.畢業(yè)設(shè)計(jì)案例擇選M.北京：清華大學(xué)出版社，20003 施新剛.實(shí)效編程百例M.北京：人民郵電出版社，20044 譚浩強(qiáng).Delphi程序設(shè)計(jì)M.北京：清華大學(xué)出版社，20005 東名，吳名月.access數(shù)據(jù)庫(kù)管理實(shí)務(wù)M.北京：人民郵電出版社，20026 喬林.參透Delphi M.北京：中國(guó)鐵道出版社，2003:75-1567 沈才梁.Delphi 7.0程序設(shè)計(jì)教程M.北京：北方交通大學(xué)出版社，20048 張海藩.軟件項(xiàng)目導(dǎo)論M 北京：清華大學(xué)出版社，1998目錄1系統(tǒng)介紹 22數(shù)據(jù)庫(kù)表的結(jié)構(gòu)描述及其關(guān)系 22.1數(shù)據(jù)庫(kù)概要設(shè)計(jì) 22.2數(shù)據(jù)庫(kù)設(shè)計(jì) .32.3

4、詳細(xì)設(shè)計(jì)及具體功能的實(shí)現(xiàn) 42.3性能需求 53軟件的模塊結(jié)構(gòu)圖 54主要功能模塊的流程圖 65主要功能的實(shí)現(xiàn)代碼 .76程序運(yùn)行效果及其分析 .347總結(jié) 36正文1. 系統(tǒng)介紹藥房等單位的藥品信息和數(shù)據(jù)紛亂復(fù)雜，整理統(tǒng)計(jì)費(fèi)力費(fèi)時(shí)。要做好對(duì) 企業(yè)的管理，企業(yè)就必須快速準(zhǔn)確地獲取自己企業(yè)單位的信息，這就要求及 時(shí)統(tǒng)計(jì)數(shù)據(jù)并方便查看，以及對(duì)企業(yè)的數(shù)據(jù)信息進(jìn)行維護(hù)。本軟件是利用 DELPHI 7.0設(shè)計(jì)開發(fā)的藥房管理系統(tǒng)，是藥房信息系統(tǒng)的一個(gè)重要組成部 分，可實(shí)現(xiàn)對(duì)藥房藥品信息的分類管理和數(shù)據(jù)分析，從而使信息整理快速、 準(zhǔn)確、簡(jiǎn)單，以便于相關(guān)部門給予統(tǒng)籌安排，從而提高改進(jìn)傳統(tǒng)的管理方 法，提高企業(yè)

5、管理水平。本文所敘述的內(nèi)容以及程序代碼都是醫(yī)院藥品管理 中的常見問題。藥房管理系統(tǒng)應(yīng)具有如下功能模塊：1).藥品信息部分：對(duì)藥品信息的添加，刪除修改及查詢功能的實(shí)現(xiàn).完成 對(duì)藥品的管理.2).庫(kù)存管理部分：對(duì)保存藥品的庫(kù)房進(jìn)行管理，出入庫(kù)的時(shí)間，藥品等信 息的錄入。3).銷售信息部分：包括對(duì)藥品的銷售情況及銷售信息的查詢.4).用戶權(quán)限管理部分：系統(tǒng)的退出的實(shí)現(xiàn).5).幫助部分：用戶對(duì)系統(tǒng)不理解的時(shí)候給與幫助和指導(dǎo). form2.Show 。銷銷售查詢form2.Updatesleep(3000。form3:=Tform3.Create(application form2.Free 。if f

6、orm3.ShowModal=100 thenbeginApplication.CreateForm(TForm1, Form1 end 。Application.RunEnd.unit1: unit Unit1 interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls, jpeg。typeTForm1 = class(TFormMainMenu1: TMainMenuN1: TMenuItemN2: TMenuItemN3:

7、 TMenuItemN4: TMenuItemN6: TMenuItemN5: TMenuItemImagel: Tlmage 。N7: TMenuItem 。procedure N2Click(Sender: TObject。procedure N1Click(Sender: TObject。procedure N3Click(Sender: TObject。procedure N6Click(Sender: TObject。procedure N4Click(Sender: TObject。procedure N7Click(Sender: TObject。private Private

8、declarations public Public declarations end 。varForm1: TForm1 。implementationuses unit4,unit5,unit6,unit7。$R *.dfmprocedure TForm1.N2Click(Sender: TObject 。beginform5:=Tform5.create(self 。form5.Show。endoprocedure TForm1.N1Click(Sender: TObject 。beginform4:=Tform4.create(self 。form4.Show 。endoprocedu

9、re TForm1.N3Click(Sender: TObject 。beginform6:=Tform6.create(self 。form6.Show。endoprocedure TForm1.N6Click(Sender: TObject 。beginshowmessage(有問題找百度！endoprocedure TForm1.N4Click(Sender: TObject 。beginform7:=Tform7.create(self 。form7.Show 。endoprocedure TForm1.N7Click(Sender: TObject 。beginform1.Close

10、 。endoEnd.Unit2:unit Unit2 。interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, bsMessages。typeTForm2 = class(TFormImage1: TImage 。private Private declarations public Public declarations end 。varForm2: TForm2 。implementation$R *.dfmEnd.Uni

11、t3:unit Unit3 。interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DB, ADODB, jpeg, ExtCtrls, bsSkinData, BusinessSkinForm 。typeTForm3 = class(TFormImage1: TImage 。Label1: TLabel。Label2: TLabel。Edit1: TEdit。Edit2: TEdit。Button1: TButton。Button2:

12、TButton。Button3: TButton。DataSource1: TDataSource 。ADOConnection1: TADOConnection 。ADOQuery1: TADOQuery 。ADOTable1: TADOTable 。bsBusinessSkinForm1: TbsBusinessSkinForm 。bsSkinData1: TbsSkinData 。bsStoredSkin1: TbsStoredSkin 。procedure Button1Click(Sender: TObject。procedure Button2Click(Sender: TObje

13、ct。private Private declarations public Public declarations end varForm3: TForm3 。implementationuses Unitl, Unit2 。$R *.dfmprocedure TForm3.Button1Click(Sender: TObject 。beginADOQuery1.Close。ADOQuery1.SQL.CIear 。ADOQuery1.SQL.Add(select * from table_1 where用戶名=+”+edit1.Text+and +密碼=+edit2.Text+” 。ADO

14、Queryl.Open 。if ADOQueryl.Eof thenbeginshowmessage( 用戶號(hào)或密碼不正確 。endelsebeginModalResult := 100。/用戶名和密碼正確將激活主界面 /end 。end。procedure TForm3.Button2Click(Sender: TObject 。beginform3.Close。endoEnd.Unit4:unit Unit4 。interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dia

15、logs, StdCtrls, Grids, DBGrids, ADODB, DB, jpeg, ExtCtrls。typeTForm4 = class(TFormImagel: TImage 。Labell: TLabel。Label2: TLabel。Editl: TEdit。Edit2: TEdit。DBGridl: TDBGrid 。GroupBoxI: TGroupBox 。Label3: TLabel。Label4: TLabel。Label5: TLabel。Label6: TLabel。Label7: TLabel。Label8: TLabel。Edit3: TEditEdit

16、4: TEditEdit5: TEditEdit6: TEditEdit7: TEditEdit8: TEditButton3: TButtonButton4: TButtonButton5: TButtonButtonl: TButton。Button2: TButton。DataSourcel: TDataSource 。ADOConnectionl: TADOConnection 。ADOQueryl: TADOQuery 。procedure Button4Click(Sender: TObject。procedure Button1Click(Sender: TObject。proc

17、edure Button3Click(Sender: TObject。procedure Button2Click(Sender: TObject。private Private declarations public Public declarations end 。varForm4: TForm4 。implementation$R *.dfmprocedure TForm4.Button4Click(Sender: TObject 。beginADOQuery1.Close 。ADOQuery1.SQL.Clear 。ADOQuery1.SQL.Add(select * from tab

18、le_2 where藥品編號(hào) =+edit1.Text+or +藥品名稱=+edit2.Text+”。ADOQueryl.open 。if ADOQueryl.Eof thenbeginshowmessage(藥品不存在。endelsebeginADOQueryl.Close。/刪除藥品信息ADOQueryl.SQL.Clear 。ADOQuery1.SQL.Add(delete from table_2 where藥品編號(hào)=+edit3.Text+ADOQueryl.ExecSQL。ADOQueryl.Close 。ADOQueryl.SQL.Clear 。ADOQuery1.SQL.Add

19、(select *from table_2。ADOQueryl.Open。showmessage( 刪除成功。endend。procedure TForm4.Button1Click(Sender: TObject 。beginADOQuery1.Close。ADOQuery1.SQL.Add(select * from table_2 where藥品編號(hào) =+edit1.Text+or +藥品名稱=+edit2.Text+”。ADOQueryl.open。if ADOQueryl.Eof thenbeginshowmessage(沒發(fā)現(xiàn)該藥品。ADOQueryl.Close。ADOQuery

20、1.SQL.Add(select * from table_2 。ADOQueryl.open。exit 。endend。procedure TForm4.Button3Click(Sender: TObject 。beginif edit3.Text= thenbeginshowmessage(藥品編號(hào)不得為空 。endelseADOQueryl.Close。ADOQuery1.SQL.Add(select * from table_2 where藥品編號(hào)=+edit3.Text+ 。ADOQueryl.open。if ADOQueryl.Eof thenbeginADOQueryl.Clo

21、se。/添加藥品信息。ADOQuery1.SQL.Add(insert into table_2 (藥品編號(hào)，藥品名稱，藥品產(chǎn)地，藥品重量，進(jìn)價(jià)，零售價(jià)values(+edit3.Text+”+,+edit4.Text+”+,+edit5.Text+”+,+”+ edit6.Text+,+”+edit7.Text+,+”+edit8.Text+”+。ADOQueryl.ExecSQL。ADOQueryl.Close。ADOQuery1.SQL.Add(select * from table_2 。ADOQueryl.Open。showmessage( 添加成功。endelseshowmessa

22、ge( 錯(cuò)誤，重復(fù)的藥品信息。exit 。ADOQueryl.Close 。ADOQueryl.SQL.CIear 。ADOQuery1.SQL.Add(select *from table_2 。end。procedure TForm4.Button2Click(Sender: TObject 。beginform4.Close 。end。End.Unit5:unit Unit5 。interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls,

23、StdCtrls, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls typeTForm5 = class(TFormImage1: 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。Button

24、2: 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 。ADOConnectionl: TADOConnectio

25、n 。ADOQueryl: TADOQuery 。procedure 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 。varForm5: TForm5 。i

26、mplementation$R *.dfmprocedure TForm5.Button1Click(Sender: TObject 。var c,d:string 。beginADOQuery1.Close。ADOQuery1.SQL.add(select * from table_3 where銷售日期 =:c and銷售日期 ADOQuery1.Parameters.ParamByName(c.Value:=datetostr(datetimepicker1.Date。ADOQuery1.Parameters.ParamByName(d.Value:=datetostr(datetime

27、picker2.Date。ADOQueryl.Open if ADOQueryl.Eof then begin showmessage(沒發(fā)現(xiàn)該信息 。ADOQueryl.Close。ADOQuery1.SQL.Add(select *from table_3。ADOQueryl.Openexit 。endoendoprocedure TForm5.Button3Click(Sender: TObject 。beginif edit1.Text= thenbegin showmessage(藥品編號(hào)不得為空 。exit 。 endelseif edit5.Text= thenbegin sho

28、wmessage(銷售時(shí)間不得為空。exit 。 endelseif edit6.Text= thenbeginshowmessage(銷售日期不得為空。 endexitelseif edit7.Text= thenbeginshowmessage(結(jié)賬編號(hào)不得為空。 endexitelseADOQueryl.Close。ADOQuery1.SQL.Add(select * from table 品編號(hào)=+edit1.Text+”+and =+edit7.Text+” 。3 where+銷售日期=+edit6.Text+”+and +藥銷售時(shí) 間=+edit5.Text+and+結(jié)賬 編號(hào)AD

29、OQueryl.open。if ADOQueryl.Eof thenbeginADOQueryl.Close。/添加銷售信息。ADOQuery1.SQL.Add(insert into table_3 (期 ， 結(jié) 賬 編 號(hào)藥品編號(hào)，藥品名稱，藥品數(shù)量，金額，銷售時(shí)間，銷售日 經(jīng) 手 人 ， 結(jié) 賬 方values(+edit1.Text+”+,+edit2.Text+”+,+edit3.Text+”+,+”+ edit4.Text+,+”+edit5.Text+,+”+edit6.Text+”+,+”+edit7.Text+ +,+edit8.Text+”+,+”+edit9.Text+”

30、+。ADOQueryl.ExecSQLADOQueryl.Close。ADOQuery1.SQL.Add(select *from table_3 。ADOQueryl.Openshowmessage(添加成功。endelseshowmessage(錯(cuò)誤，重復(fù)的銷售信息。 exit 。ADOQueryl.Close。ADOQuery1.SQL.Add(select *from銷售信息end。procedure TForm5.Button4Click(Sender: TObject 。beginADOQuery1.Close。ADOQuery1.SQL.Add(select * from tab

31、le_3 where銷售日期=+edit6.Text+”+and +品編號(hào)=+edit1.Text+”+and+銷售時(shí) 間=+”+edit5.Text+and+=+edit7.Text+”。藥 結(jié)賬編號(hào)ADOQuery1.open。if ADOQuery1.Eof thenbeginshowmessage(銷售信息不存在。 endelsebeginADOQueryl.Close。/刪除銷售信息。ADOQuery1.SQL.Add(delete from table_3 where 銷售日期 =+edit6.Text+and +藥品編號(hào)=+edit1.Text+”+and+銷售時(shí) 間=+”+ed

32、it5.Text+and+結(jié)賬 編號(hào)=+edit7.Text+”。ADOQuery1.ExecSQLADOQuery1.Close。ADOQuery1.SQL.Add(select *from table_3。ADOQuery1.Openshowmessage(刪除成功。endend。procedure TForm5.Button5Click(Sender: TObject 。beginif edit1.Text= thenbeginshowmessage(藥品編號(hào)不得為空 。exit 。endelseif edit2.Text= thenbeginshowmessage(藥品名稱不得為空 。

33、exit 。endelseif edit3.Text= thenbeginshowmessage(藥品數(shù)量不得為空 。exit 。endelseif edit4.Text= thenbeginshowmessage(金額不得為空。exit 。endelseif edit5.Text= thenbeginshowmessage(銷售時(shí)間不得為空。exit 。endelseif edit6.Text= thenbeginshowmessage(銷售日期不得為空。exit 。endelseif edit7.Text= thenbeginshowmessage(結(jié)賬編號(hào)不得為空。exit 。endel

34、se if edit8.Text= thenbeginshowmessage(經(jīng)手人不得為空 。exit 。endelse if edit9.Text= thenbeginshowmessage(結(jié)賬方式不得為空。exit 。endelsebeginADOQueryl.Close。ADOQuery1.SQL.Add(select * from table_3 where銷售日期=+edit6.Text+”+and +銷售時(shí)間=+”+edit5.Text+”+and +結(jié)賬編號(hào)=+edit7.Text+。ADOQueryl.open。if ADOQueryl.Eof thenbeginADOQu

35、eryl.Close。ADOQuery1.SQL.Add(select *from table_3。ADOQueryl.Openshowmessage(修改失敗。exit 。endelseADOQueryl.Close。/ 修改銷售信息ADOQueryl.SQL.CIear oADOQuery1.SQL.Add(updatetable_3 set 藥 品編號(hào)=+”+edit1.Text+,藥品名稱=+edit2.Text+”+,藥.品數(shù)量=+”+edit3.Text+”+,金額=+edit4.Text+”+,經(jīng)手 人=+edit8.Text+”+,結(jié)賬方式=+edit9.Text+”+wher

36、e銷售日期=+”+edit6.Text+and+銷售時(shí)間=+edit5.Text+and+結(jié)賬編號(hào)=+edit7.Text+。ADOQueryl.ExecSQLADOQueryl.Close。ADOQuery1.SQL.Add(select *from table_3ADOQueryl.Openshowmessage(修改成功。endoendoprocedure TForm5.Button2Click(Sender: TObject beginform5.Close 。endoEnd.Unit6:unit Unit6 。interfaceusesWindows, Messages, SysUt

37、ils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, jpeg, ExtCtrlsDataSource1: TDataSource 。ADOConnection1: TADOConnection 。ADOQuery1: TADOQuery 。Image1: TImage 。Label1: TLabel。Label2: TLabel。Label3: TLabel。Label4: TLabel。Label5: TLabel。Label6: TLabel。Labe

38、l7: 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。Edit8: TEdit。Edit9: TEdit。Button4: TButton。Button5: TButton。procedure Button1Click(Sender: TObject。p

39、rocedure Button2Click(Sender: TObject。procedure Button4Click(Sender: TObject。procedure Button5Click(Sender: TObject。procedure Button3Click(Sender: TObject。private Private declarations public Public declarations end 。varForm6: TForm6 implementation$R *.dfmprocedure TForm6.Button1Click(Sender: TObject

40、 。beginif edit1.Text=thenbeginshowmessage(入庫(kù)單編號(hào)不得為空 。endelseADOQuery1.Close 。ADOQuery1.SQL.CIear 。ADOQuery1.SQL.Add(select * from table_4 where入庫(kù)單編號(hào)=+”+edit1.Text+” 。ADOQueryl.open 。if ADOQueryl.Eof thenbeginADOQueryl.Close 。 /添加入庫(kù)信息ADOQueryl.SQL.Clear 。ADOQuery1.SQL.Add(insert into table_4 (入庫(kù)單編號(hào)，入

41、庫(kù)日期，藥品編號(hào)，藥品名稱，藥品數(shù)量，供應(yīng)商名稱values(+edit1.Text+”+,+edit2.Text+”+,+edit3.Text+”+,+”+ edit4.Text+,+”+edit5.Text+,+”+edit6.Text+”+。ADOQueryl.ExecSQL。ADOQueryl.Close 。ADOQueryl.SQL.Clear 。ADOQuery1.SQL.Add(select *from table_4 。ADOQueryl.Open。showmessage( 添加成功 。endelseshowmessage( 錯(cuò)誤，重復(fù)的藥品 。exit 。ADOQueryl.

42、Close 。ADOQueryl.SQL.Clear 。ADOQuery1.SQL.Add(select *from table_4 。endoprocedure TForm6.Button2Click(Sender: TObject 。beginADOQueryl.Close。ADOQuery1.SQL.Add(select * from table_4 where入庫(kù)單編號(hào)=+”+edit1.Text+” 。ADOQueryl.open。if ADOQueryl.Eof thenbeginshowmessage( 入庫(kù)單不存在。endelsebeginADOQueryl.Close。/刪除

43、庫(kù)存信息ADOQueryl.SQL.CIear 。ADOQuery1.SQL.Add(delete from table_4 where入庫(kù)單編號(hào)=+edit1.Text+”ADOQueryl.ExecSQL。ADOQuery1.Close 。ADOQuery1.SQL.Clear 。ADOQuery1.SQL.Add(select *from table_4。ADOQuery1.Open。showmessage( 刪除成功。endend。procedure TForm6.Button4Click(Sender: TObject 。beginADOQuery1.Close。ADOQuery1.SQL.Add(select * from table_4 where入庫(kù)日期 =+edit7.Text+or +藥品編號(hào)=+edit8.Text+”+or+藥品名稱=+edit9.Text+”。ADOQueryl.open。if ADOQueryl.Eof thenbegin showmessage(沒發(fā)現(xiàn)該藥品。ADOQueryl.Close。ADOQuery1.SQL.Add(select * from