藥品管理系統(tǒng)實(shí)習(xí)報(bào)告

1、河 南 城 建 學(xué) 院實(shí)習(xí)報(bào)告 實(shí) 習(xí) 類 別： 數(shù)據(jù)庫應(yīng)用課程設(shè)計(jì) 實(shí) 習(xí) 課 題： 藥品管理系統(tǒng) 系 別： 測繪與城市空間信息系 專 業(yè)： 測繪工程 姓 名 學(xué) 號： 謝亞坤061411248 楊希光061411249 張金鵬061411252 張棟梁061411254 指 導(dǎo) 教 師： 毛政利、苗東利 邢曉娜、張宏敏 完 成 時(shí) 間： 2012年12月 21 / 22文檔可自由編輯打印 目錄 1本組課題及任務(wù)分配.22系統(tǒng)需求及調(diào)查分析.33系統(tǒng)設(shè)計(jì).4 3.1系統(tǒng)總體設(shè)計(jì)流程圖.4 3.2系統(tǒng)詳細(xì)設(shè)計(jì).5 3.3數(shù)據(jù)庫設(shè)計(jì).64系統(tǒng)實(shí)施.8 4.1啟動(dòng)功能.8 4.2登錄界面.9 4.

2、3主界面界面.10 4.4信息查詢界面.10 4.5信息管理界面.11 4.6打印界面.12 4.7系統(tǒng)管理.13 4.8關(guān)于.17 4.9退出界面 .185設(shè)計(jì)體會(huì).196參考書目.20 1本組課題及任務(wù)分配 本組課題：藥品管理系統(tǒng) 任務(wù)分配： 謝亞坤：用戶表、藥品信息表、生產(chǎn)信息表、供應(yīng)商信息表、登陸頁面及最后的修改美化。 楊希光：啟動(dòng)界面、用戶注冊表單、注銷用戶表單、修改密碼表單及其退出表單。 張金鵬：生產(chǎn)廠家信息查詢表單、供應(yīng)商信息查詢表單、藥品信息查詢表單以及關(guān)于表單。 張棟梁：生產(chǎn)廠家信息管理表單、供應(yīng)商信息管理表單、藥品信息管理表單以及幫助表單。2. 系統(tǒng)要求及調(diào)查分析 2.1系

3、統(tǒng)要求 經(jīng)過對藥品管理的要求分析，可知要完成此系統(tǒng)需要時(shí)系統(tǒng)具有以下一些基本的功能，以便適合用戶操作及管理。 (1)系統(tǒng)用戶在初始化藥品管理的時(shí)候的時(shí)候，要能添加藥品，建立藥品庫，對所有藥品實(shí)行編碼并生成相應(yīng)的編號。藥品添加要把藥品所有信息進(jìn)行添加，包括藥品編號、藥品通用名、劑型、規(guī)格、生產(chǎn)地址、適應(yīng)癥等內(nèi)容；對于添加的藥品數(shù)據(jù)信息也可以進(jìn)行相應(yīng)的修改，或者刪除，全憑用戶需要。 （2）系統(tǒng)用戶需要能使用正確的密碼登陸進(jìn)入主程序，并且在主程序中能對密碼進(jìn)行修改以及添加新用戶和注銷以往用戶。 （3）系統(tǒng)能夠準(zhǔn)確的查詢和管理生產(chǎn)廠家信息，生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等

4、內(nèi)容；對于添加的生產(chǎn)廠家信息也可以進(jìn)行相應(yīng)的修改或者刪除以上各種操作全可憑用戶的需求而定。 （4）系統(tǒng)能夠準(zhǔn)確的查詢和管理供應(yīng)商信息，包括供應(yīng)商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容；對于添加的供應(yīng)商信息可以由用戶進(jìn)行相應(yīng)的修改或者刪除等操作，全由用戶需求而定。 （5）除以上系統(tǒng)主要需求外還需要以下內(nèi)容完成系統(tǒng)，其中包括啟動(dòng)頁面，在系統(tǒng)操作時(shí)的幫助和關(guān)于系統(tǒng)的信息，以及最后的退出頁面。 2.2調(diào)查分析 通過對藥品管理系統(tǒng)的分析和功能的需求，經(jīng)調(diào)查分析后可知系統(tǒng)需要以下表格及內(nèi)容來充實(shí)各個(gè)方面的信息和完成一些基本的實(shí)踐性操作。 （1）藥品信息，包括藥品編號、藥品通用名、劑型、規(guī)格、生

5、產(chǎn)地址、適應(yīng)癥等內(nèi)容； （2）用戶信息，包括用戶名及密碼等內(nèi)容； （3）生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等內(nèi)容； （4）供應(yīng)商信息表，包括供應(yīng)商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容；3. 系統(tǒng)設(shè)計(jì) 3.1系統(tǒng)總體設(shè)計(jì)流程圖 用戶注冊 注銷用戶 修改密碼 幫 助 關(guān) 于 供應(yīng)商信息查詢生產(chǎn)廠家信息管理 藥品信息管理 供應(yīng)商信息查詢 生產(chǎn)廠家信息查詢 藥品信息查詢 系統(tǒng)管理 打 印 退 出 關(guān) 于 維 護(hù) 查 詢 菜單界面 登陸頁面 程序啟動(dòng) 3.2系統(tǒng)詳細(xì)設(shè)計(jì) 由上節(jié)系統(tǒng)設(shè)計(jì)流程圖可知系統(tǒng)的大概流程，又經(jīng)過對藥品管理的要求分析，及系統(tǒng)需求可知要完成此系統(tǒng)

6、需要時(shí)系統(tǒng)具有以下一些基本的功能，以便適合用戶操作及管理。也就是藥品管理系統(tǒng)的詳細(xì)設(shè)計(jì)有如下內(nèi)容。 （1）點(diǎn)擊快捷方式后能夠顯現(xiàn)出啟頁面并順序顯示出登陸表單以便于下一步的操作。(2)系統(tǒng)用戶在初始化藥品管理的時(shí)候的時(shí)候，要能添加藥品，建立藥品庫，對所有藥品實(shí)行編碼并生成相應(yīng)的編號。藥品添加要把藥品所有信息進(jìn)行添加，包括藥品編號、藥品通用名、劑型、規(guī)格、生產(chǎn)地址、適應(yīng)癥等內(nèi)容；對于添加的藥品數(shù)據(jù)信息也可以進(jìn)行相應(yīng)的修改，或者刪除，全憑用戶需要。 （3）系統(tǒng)能夠準(zhǔn)確的查詢和管理生產(chǎn)廠家信息，生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等內(nèi)容； 對于添加的生產(chǎn)廠家信息也可以進(jìn)行相應(yīng)的

7、修改或者刪除以上各種操作全可憑用戶的需求而定； （4）系統(tǒng)能夠準(zhǔn)確的查詢和管理供應(yīng)商信息，包括供應(yīng)商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容； 對于添加的供應(yīng)商信息可以由用戶進(jìn)行相應(yīng)的修改或者刪除等操作，全由用戶需求而定； （5）系統(tǒng)用戶需要能使用正確的密碼登陸進(jìn)入主程序，并且在主程序中能對密碼進(jìn)行修改以及添加新用戶和注銷以往用戶； （6）具有一個(gè)關(guān)于頁面，能夠顯示對本系統(tǒng)的幫助選項(xiàng)以及關(guān)于本系統(tǒng)的一些信息； （7）系統(tǒng)能夠正常的退出，并且有一個(gè)退出頁面，顯示是否確定退出以免操作失誤； 3.3數(shù)據(jù)庫設(shè)計(jì) 3.3.1.用戶表 3.3.2.藥品信息表 3.3.3.生產(chǎn)廠家信表 3.3.4

8、.供應(yīng)商信息表注：以上都是數(shù)據(jù)庫中相關(guān)表，通過各個(gè)表的屬性給對應(yīng)的表中添加相應(yīng)的數(shù)據(jù)，再導(dǎo)入到程序中進(jìn)行添加，查詢，修改，刪除，插入等功能。每個(gè)表之間建立存儲(chǔ)過程以及觸發(fā)器來進(jìn)行手動(dòng)的查詢，存儲(chǔ)。4. 系統(tǒng)實(shí)施 4.1啟動(dòng)界面 4-1.啟動(dòng)頁面啟動(dòng)代碼：this.timer1.Interval=100Public i as Integeri=1轉(zhuǎn)入登錄頁面代碼：i=i+1if i=20 thendo form 登錄表單.scxthisform.releaseEndif 4.2.登錄界面 4-2.登錄頁面登錄代碼：count=count+1loca for ALLTRIM(用戶表.用戶名)=al

9、ltribo1.value)IF thisform.text1.Value=""MESSAGEbox("輸入不能為空！")elseif found()and ALLTRIM(用戶表.密碼)=alltrim(thisform.text1.value)DO FORM 主界面.scxrelease thisformelseif count<3 then=messagebox("輸入有誤！",48,"警告")elsemessagebox("對不起您是非法用戶，系統(tǒng)將自動(dòng)退出！",48,"

10、警告")quitendifendifEndif 4.3.主界面界面 4-3.主界面代碼：thisform.windowstate=0 do 主菜單.mpr with this,"T"thisform.release 4.4.信息查詢界面 4-4.生產(chǎn)廠家信息查詢代碼：cz=ALLTRIM(Thisform.Text1.value) n=RECNO() GO TOP SCAN IF 生產(chǎn)廠家信息表.編號=cz OR 生產(chǎn)廠家信息表.公司全稱=cz Thisform.Text1.value=""Thisform.Text1.SetFocus Thi

11、sform.Refresh RETURN ENDIF ENDSCAN MESSAGEBOX("該生產(chǎn)廠家信息不存在！",0,"查找失敗")GO n Thisform.Text1.Value=""Thisform.Text1.SetFocus Thisform.Refresh 4.5.信息管理界面 4-5.供應(yīng)商信息管理 4.6.打印界面 4-6-1.打印界面代碼：report form 藥品信息報(bào)表 noco for 通用名=bo1.value prevreport form 供應(yīng)商信息報(bào)表 noco for 全稱=bo2.value

12、 prevreport form 生產(chǎn)廠家信息報(bào)表 noco for 公司全稱=bo3.value prev 2-6-2.打印界面預(yù)覽 4.7.系統(tǒng)管理 4.7.1.修改密碼界面 4-7-1.修改密碼代碼：if empty(thisform.text4.value) mess=messagebox("用戶名不能為空！",48,"警告")else if empty(thisform.text1.value) mess=messagebox("舊密碼不能為空！",48,"警告") else if empty(thisf

13、orm.text2.value) mess=messagebox("新密碼不能為空！",48,"警告") else if empty(thisform.text3.value) mess=messagebox("重復(fù)密碼不能為空！",48,"警告") else if alltrim(thisform.text2.value)<>alltrim(thisform.text3.value) or len(alltrim(thisform.text2.value)<>len(alltrim(thi

14、sform.text3.value) mess=messagebox("二次密碼不一致！",48,"警告") else locate for alltrim(用戶名)=alltrim(thisform.text4.value) and alltrim(密碼)=alltrim(thisform.text1.value) if eof() mess=messagebox("密碼錯(cuò)誤，系統(tǒng)將取消你的修改權(quán)利！",48,"警告") thisform.release else repl 密碼 with alltrim(thi

15、sform.text3.value) mess=messagebox("密碼修改成功！",48,"信息") thisform.release endif endif endif endif endif endif 4.7.2.用戶注冊界面 4-7-2.用戶注冊代碼：use 用戶表 excl public u1,pw1 u1=allt(thisform.text1.value) pw1=allt(thisform.text2.value) if empty(thisform.text1.value) messagebox ("用戶名不能為空！&q

16、uot;,48+0,"添加新用戶") thisform.text1.setfocus else locate for allt(用戶名)=u1 if found() messagebox("該用戶名已存在",48+0,"添加新用戶") thisform.text1.setfocus else if thisform.text2.value=thisform.text3.value tempstr='' for i=1 to len(trim(pw1) tempchr=bitxor(asc(subs(pw1,i,1),1

17、23) tempstr=tempstr+chr(tempchr) endfor dimension b(1,2) b1,1=u1 b1,2=tempstr append from array b messagebox("添加成功",48+0,"添加新用戶") release thisform else messagebox("兩次密碼輸入不一致,請重新輸入",48+0,"添加新用戶") thisform.text3.setfocus endif endif endif 4.7.3.注銷用戶界面 4-7-3.注銷用戶

18、代碼：USE 用戶表.dbf EXCLUSIVE LOCATE ALL FOR 用戶名=ALLTRIM(thisform.Text1.value)IF EOF()MESSAGEBOX("注銷用戶不存在！",48,"溫馨提示")ELSEIF thisform.Text1.Value=""MESSAGEBOX("注銷不能為空！",48,"溫馨提示")elsea=messagebox("是否刪除？",4+32+0,"溫馨提示")if a=6dele ALL FO

19、R 用戶名=ALLTRIM(thisform.Text1.value) packmessagebox("刪除成功！")ENDIFENDIFthisform.Refresh 4.8.關(guān)于 4.8.1.幫助界面 2-8-1.幫助 4.8.2.關(guān)于界面 4-8-2.關(guān)于界面4.9.退出界面 4-9.退出代碼：quit以上即為系統(tǒng)實(shí)施的主要內(nèi)容，包括每一功能模塊的表單界面、實(shí)現(xiàn)功能、表單控件及主要屬性、事情相應(yīng)代碼、程序文件等5. 設(shè)計(jì)體會(huì)為了提高我們的實(shí)踐能力，讓我們學(xué)以致用，能靈活運(yùn)用所學(xué)的知識進(jìn)行再創(chuàng)造，學(xué)校特安排我們進(jìn)行為期三周的數(shù)據(jù)庫應(yīng)用課程設(shè)計(jì)實(shí)習(xí)，并安排了指導(dǎo)老師幫助輔導(dǎo)，讓我們在規(guī)范化、嚴(yán)謹(jǐn)化、實(shí)用化上面有了很大進(jìn)展。在此次藥品管理系統(tǒng)程序開發(fā)過程中，有很多東西值得我們思考并總結(jié)。開發(fā)過程大體可分為以下幾個(gè)步驟：（1）思考總體設(shè)計(jì)方案：總體結(jié)構(gòu)和模塊外部設(shè)計(jì)，功能分配。思考要實(shí)現(xiàn)整個(gè)程序大體需要的幾個(gè)模塊和其中用到的代碼語言，數(shù)據(jù)庫語言基本操作符、語句等。（2）畫出總體設(shè)計(jì)方案流程圖：用流程圖的形式展現(xiàn)我們的基本編程思想。（3）流程圖具體化：即將流程圖中的幾大模塊的具體實(shí)現(xiàn)思考清楚，可以用流程圖的形式展現(xiàn)并想好實(shí)現(xiàn)的關(guān)鍵代碼。（4）編輯程序代碼：這是一個(gè)至關(guān)重要復(fù)雜而且需要反復(fù)修改的環(huán)