藥品管理系統(tǒng)課程設(shè)計報告

1、<p><b>　　目錄 </b></p><p>　　1本組課題及任務(wù)分配...............................2</p><p>　　2系統(tǒng)需求及調(diào)查分析...............................3</p><p>　　3系統(tǒng)設(shè)計.............................

2、............4</p><p>　　3.1系統(tǒng)總體設(shè)計流程圖...........................4</p><p>　　3.2系統(tǒng)詳細設(shè)計.................................5</p><p>　　3.3數(shù)據(jù)庫設(shè)計...................................6</p>

3、<p>　　4系統(tǒng)實施.........................................8</p><p>　　4.1啟動功能.....................................8</p><p>　　4.2登錄界面.....................................9</p><p>　　4.

4、3主界面界面..................................10</p><p>　　4.4信息查詢界面................................10</p><p>　　4.5信息管理界面................................11</p><p>　　4.6打印界面................

5、....................12 </p><p>　　4.7系統(tǒng)管理....................................13</p><p>　　4.8關(guān)于........................................17</p><p>　　4.9退出界面 ............................

6、.......18</p><p>　　5設(shè)計體會........................................19</p><p>　　6參考書目........................................20 </p><p>　　1本組課題及任務(wù)分配<

7、/p><p><b>　　系統(tǒng)要求及調(diào)查分析</b></p><p><b>　　2.1系統(tǒng)要求</b></p><p>　　經(jīng)過對藥品管理的要求分析，可知要完成此系統(tǒng)需要時系統(tǒng)具有以下一些基本的功能，以便適合用戶操作及管理。</p><p>　　(1)系統(tǒng)用戶在初始化藥品管理的時候，要能添加藥品，建立

8、藥品庫，對所有藥品實行編碼并生成相應(yīng)的編號。藥品添加要把藥品所有信息進行添加，包括藥品編號、藥品通用名、劑型、規(guī)格、生產(chǎn)地址、適應(yīng)癥等內(nèi)容；對于添加的藥品數(shù)據(jù)信息也可以進行相應(yīng)的修改，或者刪除，全憑用戶需要。</p><p>　?。?）系統(tǒng)用戶需要能使用正確的密碼登陸進入主程序，并且在主程序中能對密碼進行修改以及添加新用戶和注銷以往用戶。</p><p>　?。?）系統(tǒng)能夠準確的查詢和管理

9、生產(chǎn)廠家信息，生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等內(nèi)容；對于添加的生產(chǎn)廠家信息也可以進行相應(yīng)的修改或者刪除以上各種操作全可憑用戶的需求而定。</p><p>　?。?）系統(tǒng)能夠準確的查詢和管理供應(yīng)商信息，包括供應(yīng)商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容；對于添加的供應(yīng)商信息可以由用戶進行相應(yīng)的修改或者刪除等操作，全由用戶需求而定。</p><p>　　

10、（5）除以上系統(tǒng)主要需求外還需要以下內(nèi)容完成系統(tǒng)，其中包括啟動頁面，在系統(tǒng)操作時的幫助和關(guān)于系統(tǒng)的信息，以及最后的退出頁面。</p><p><b>　　2.2調(diào)查分析</b></p><p>　　通過對藥品管理系統(tǒng)的分析和功能的需求，經(jīng)調(diào)查分析后可知系統(tǒng)需要以下表格及內(nèi)容來充實各個方面的信息和完成一些基本的實踐性操作。</p><p>　?。?/p>

11、1）藥品信息，包括藥品編號、藥品通用名、劑型、規(guī)格、生產(chǎn)地址、適應(yīng)癥等內(nèi)容；</p><p>　?。?）用戶信息，包括用戶名及密碼等內(nèi)容；</p><p>　?。?）生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等內(nèi)容；</p><p>　?。?）供應(yīng)商信息表，包括供應(yīng)商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容；</p><

12、;p><b>　　系統(tǒng)設(shè)計</b></p><p>　　3.1系統(tǒng)總體設(shè)計流程圖</p><p><b>　　3.2系統(tǒng)詳細設(shè)計</b></p><p>　　由上節(jié)系統(tǒng)設(shè)計流程圖可知系統(tǒng)的大概流程，又經(jīng)過對藥品管理的要求分析，及系統(tǒng)需求可知要完成此系統(tǒng)需要時系統(tǒng)具有以下一些基本的功能，以便適合用戶操作及管理。也就是藥

13、品管理系統(tǒng)的詳細設(shè)計有如下內(nèi)容。</p><p>　?。?）點擊快捷方式后能夠顯現(xiàn)出啟頁面并順序顯示出登陸表單以便于下一步的操作。</p><p>　　(2)系統(tǒng)用戶在初始化藥品管理的時候，要能添加藥品，建立藥品庫，對所有藥品實行編碼并生成相應(yīng)的編號。藥品添加要把藥品所有信息進行添加，包括藥品編號、藥品通用名、劑型、規(guī)格、生產(chǎn)地址、適應(yīng)癥等內(nèi)容；</p><p>　

14、　對于添加的藥品數(shù)據(jù)信息也可以進行相應(yīng)的修改，或者刪除，全憑用戶需要。</p><p>　　（3）系統(tǒng)能夠準確的查詢和管理生產(chǎn)廠家信息，生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等內(nèi)容；</p><p>　　對于添加的生產(chǎn)廠家信息也可以進行相應(yīng)的修改或者刪除以上各種操作全可憑用戶的需求而定；</p><p>　?。?）系統(tǒng)能夠準確的查詢和管理供應(yīng)商

15、信息，包括供應(yīng)商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容；</p><p>　　對于添加的供應(yīng)商信息可以由用戶進行相應(yīng)的修改或者刪除等操作，全由用戶需求而定； </p><p>　?。?）系統(tǒng)用戶需要能使用正確的密碼登陸進入主程序，并且在主程序中能對密碼進行修改以及添加新用戶和注銷以往用戶；</p><p>　?。?）具有一個關(guān)于頁面，能夠顯示對本系統(tǒng)

16、的幫助選項以及關(guān)于本系統(tǒng)的一些信息；</p><p>　?。?）系統(tǒng)能夠正常的退出，并且有一個退出頁面，顯示是否確定退出以免操作失誤；</p><p><b>　　3.3數(shù)據(jù)庫設(shè)計</b></p><p><b>　　3.3.1.用戶表</b></p><p>　　3.3.2.藥品信息表</p

17、><p>　　3.3.3.生產(chǎn)廠家信表</p><p>　　3.3.4.供應(yīng)商信息表</p><p>　　注：以上都是數(shù)據(jù)庫中相關(guān)表，通過各個表的屬性給對應(yīng)的表中添加相應(yīng)的數(shù)據(jù)，再導(dǎo)入到程序中進行添加，查詢，修改，刪除，插入等功能。每個表之間建立存儲過程以及觸發(fā)器來進行手動的查詢，存儲。</p><p><b>　　系統(tǒng)實施</b

18、></p><p><b>　　4.1啟動界面</b></p><p><b>　　4-1.啟動頁面</b></p><p>　　啟動代碼：this.timer1.Interval=100</p><p>　　Public i as Integer</p><p>&l

19、t;b>　　i=1</b></p><p>　　轉(zhuǎn)入登錄頁面代碼：i=i+1</p><p>　　if i=20 then</p><p>　　do form 登錄表單.scx</p><p>　　thisform.release</p><p><b>　　Endif</b>&

20、lt;/p><p><b>　　4.2.登錄界面</b></p><p><b>　　4-2.登錄頁面</b></p><p>　　登錄代碼：count=count+1</p><p>　　loca for ALLTRIM(用戶表.用戶名)==alltrim(thisform.combo1.value)

21、</p><p>　　IF thisform.text1.Value==""</p><p>　　MESSAGEbox("輸入不能為空！")</p><p><b>　　else</b></p><p>　　if found()and ALLTRIM(用戶表.密碼)==alltri

22、m(thisform.text1.value)</p><p>　　DO FORM 主界面.scx</p><p>　　release thisform</p><p><b>　　else</b></p><p>　　if count<3 then</p><p>　　=messagebo

23、x("輸入有誤！",48,"警告")</p><p><b>　　else</b></p><p>　　messagebox("對不起您是非法用戶，系統(tǒng)將自動退出！",48,"警告")</p><p><b>　　quit</b></p&

24、gt;<p><b>　　endif</b></p><p><b>　　endif</b></p><p><b>　　Endif</b></p><p><b>　　4.3.主界面界面</b></p><p><b>　　4-3

25、.主界面</b></p><p>　　代碼：thisform.windowstate=0 </p><p>　　do 主菜單.mpr with this,"T"</p><p>　　thisform.release</p><p>　　4.4.信息查詢界面</p><p>　　4-4.生

26、產(chǎn)廠家信息查詢</p><p>　　代碼：cz=ALLTRIM(Thisform.Text1.value) </p><p>　　n=RECNO() </p><p><b>　　GO TOP </b></p><p><b>　　SCAN </b></p><p>　　

27、IF 生產(chǎn)廠家信息表.編號=cz OR 生產(chǎn)廠家信息表.公司全稱=cz </p><p>　　Thisform.Text1.value=""</p><p>　　Thisform.Text1.SetFocus </p><p>　　Thisform.Refresh </p><p><b>　　RETURN &

28、lt;/b></p><p><b>　　ENDIF </b></p><p><b>　　ENDSCAN </b></p><p>　　MESSAGEBOX("該生產(chǎn)廠家信息不存在！",0,"查找失敗")</p><p><b>　　GO n

29、 </b></p><p>　　Thisform.Text1.Value=""</p><p>　　Thisform.Text1.SetFocus </p><p>　　Thisform.Refresh</p><p>　　4.5.信息管理界面</p><p>　　4-5.供應(yīng)商信息管理

30、</p><p><b>　　4.6.打印界面</b></p><p>　　4-6-1.打印界面</p><p><b>　　代碼：</b></p><p>　　report form 藥品信息報表 noco for 通用名=thisform.combo1.value prev</p>

31、<p>　　report form 供應(yīng)商信息報表 noco for 全稱=thisform.combo2.value prev</p><p>　　report form 生產(chǎn)廠家信息報表 noco for 公司全稱=thisform.combo3.value prev</p><p>　　2-6-2.打印界面預(yù)覽</p><p><b>　

32、　4.7.系統(tǒng)管理</b></p><p>　　4.7.1.修改密碼界面</p><p>　　4-7-1.修改密碼</p><p>　　代碼：if empty(thisform.text4.value)</p><p>　　mess=messagebox("用戶名不能為空！",48,"警告"

33、)</p><p><b>　　else</b></p><p>　　if empty(thisform.text1.value)</p><p>　　mess=messagebox("舊密碼不能為空！",48,"警告") </p><p><b>　　else&

34、lt;/b></p><p>　　if empty(thisform.text2.value) </p><p>　　mess=messagebox("新密碼不能為空！",48,"警告")</p><p><b>　　else</b></p><p>　　if empty(t

35、hisform.text3.value)</p><p>　　mess=messagebox("重復(fù)密碼不能為空！",48,"警告")</p><p><b>　　else</b></p><p>　　if alltrim(thisform.text2.value)<>alltrim(this

36、form.text3.value) or len(alltrim(thisform.text2.value))<>len(alltrim(thisform.text3.value))</p><p>　　mess=messagebox("二次密碼不一致！",48,"警告")</p><p><b>　　else</b>

37、;</p><p>　　locate for alltrim(用戶名)==alltrim(thisform.text4.value) and alltrim(密碼)==alltrim(thisform.text1.value)</p><p><b>　　if eof()</b></p><p>　　mess=messagebox("

38、密碼錯誤，系統(tǒng)將取消你的修改權(quán)利！",48,"警告")</p><p>　　thisform.release</p><p><b>　　else</b></p><p>　　repl 密碼 with alltrim(thisform.text3.value)</p><p>　　mess=

39、messagebox("密碼修改成功！",48,"信息")</p><p>　　thisform.release</p><p><b>　　endif</b></p><p><b>　　endif</b></p><p><b>　　endif

40、</b></p><p><b>　　endif </b></p><p><b>　　endif </b></p><p><b>　　endif</b></p><p>　　4.7.2.用戶注冊界面</p><p>　　4-7-2.用

41、戶注冊</p><p>　　代碼：use 用戶表 excl </p><p>　　public u1,pw1 </p><p>　　u1=allt(thisform.text1.value) </p><p>　　pw1=allt(thisform.text2.value) </p><p>　　if empty(th

42、isform.text1.value) </p><p>　　messagebox ("用戶名不能為空！",48+0,"添加新用戶") </p><p>　　thisform.text1.setfocus </p><p><b>　　else </b></p><p

43、>　　locate for allt(用戶名)==u1 </p><p>　　if found() </p><p>　　messagebox("該用戶名已存在",48+0,"添加新用戶") </p><p>　　thisform.text1.setfocus </p><p>

44、;<b>　　else </b></p><p>　　if thisform.text2.value==thisform.text3.value </p><p>　　tempstr='' </p><p>　　for i=1 to len(trim(pw1)) </p&g

45、t;<p>　　tempchr=bitxor(asc(subs(pw1,i,1)),123) </p><p>　　tempstr=tempstr+chr(tempchr) </p><p>　　endfor </p><p>　　dimension b(1,2) </p><p

46、>　　b[1,1]=u1 </p><p>　　b[1,2]=tempstr </p><p>　　append from array b </p><p>　　messagebox("添加成功",48+0,"添加新用戶") </p><p>　　

47、release thisform </p><p>　　else </p><p>　　messagebox("兩次密碼輸入不一致,請重新輸入",48+0,"添加新用戶") </p><p>　　thisform.text3.setfocus </p><p&g

48、t;<b>　　endif </b></p><p><b>　　endif </b></p><p><b>　　endif </b></p><p>　　4.7.3.注銷用戶界面</p><p>　　4-7-3.注銷用戶</p><p>　　代碼

49、：USE 用戶表.dbf EXCLUSIVE </p><p>　　LOCATE ALL FOR 用戶名=ALLTRIM(thisform.Text1.value)</p><p><b>　　IF EOF()</b></p><p>　　MESSAGEBOX("注銷用戶不存在！",48,"溫馨提示")&

50、lt;/p><p><b>　　ELSE</b></p><p>　　IF thisform.Text1.Value==""</p><p>　　MESSAGEBOX("注銷不能為空！",48,"溫馨提示")</p><p><b>　　else</

51、b></p><p>　　a=messagebox("是否刪除？",4+32+0,"溫馨提示")</p><p><b>　　if a=6</b></p><p>　　dele ALL FOR 用戶名=ALLTRIM(thisform.Text1.value) </p><p&g

52、t;<b>　　pack</b></p><p>　　messagebox("刪除成功！")</p><p><b>　　ENDIF</b></p><p><b>　　ENDIF</b></p><p>　　thisform.Refresh</p&g

53、t;<p><b>　　4.8.關(guān)于</b></p><p>　　4.8.1.幫助界面</p><p><b>　　2-8-1.幫助</b></p><p>　　4.8.2.關(guān)于界面</p><p>　　4-8-2.關(guān)于界面</p><p><b>　

54、　4.9.退出界面</b></p><p><b>　　4-9.退出</b></p><p><b>　　代碼：quit</b></p><p>　　以上即為系統(tǒng)實施的主要內(nèi)容，包括每一功能模塊的表單界面、實現(xiàn)功能、表單控件及主要屬性、事情相應(yīng)代碼、程序文件等</p><p><b

55、>　　設(shè)計體會</b></p><p>　　為了提高我們的實踐能力，讓我們學(xué)以致用，能靈活運用所學(xué)的知識進行再創(chuàng)造，學(xué)校特安排我們進行為期三周的數(shù)據(jù)庫應(yīng)用課程設(shè)計實習(xí)，并安排了指導(dǎo)老師幫助輔導(dǎo)，讓我們在規(guī)范化、嚴謹化、實用化上面有了很大進展。</p><p>　　在此次藥品管理系統(tǒng)程序開發(fā)過程中，有很多東西值得我們思考并總結(jié)。</p><p>　　

56、開發(fā)過程大體可分為以下幾個步驟：</p><p>　?。?）思考總體設(shè)計方案：總體結(jié)構(gòu)和模塊外部設(shè)計，功能分配。思考要實現(xiàn)整個程序大體需要的幾個模塊和其中用到的代碼語言，數(shù)據(jù)庫語言基本操作符、語句等。</p><p>　?。?）畫出總體設(shè)計方案流程圖：用流程圖的形式展現(xiàn)我們的基本編程思想。</p><p>　?。?）流程圖具體化：即將流程圖中的幾大模塊的具體實現(xiàn)思考

57、清楚，可以用流程圖的形式展現(xiàn)．并想好實現(xiàn)的關(guān)鍵代碼。</p><p>　?。?）編輯程序代碼：這是一個至關(guān)重要復(fù)雜而且需要反復(fù)修改的環(huán)節(jié)，在此環(huán)節(jié)中你將發(fā)現(xiàn)總體設(shè)計和模塊思想會存在很多問題，需不斷改進．如何實現(xiàn)各函數(shù)功能，達到預(yù)期效果也將是一項繁復(fù)的工作。</p><p>　　（5）代碼的調(diào)試：在調(diào)試過程中會遇到很多需要精化的地方，需要十足的耐心與細心，不斷改進完善程序。</p>

58、;<p>　　（6）最后修飾：程序可以正確運行之后，再不影響程序功能的情況下，運用各種輔助性符號，使界面更加美觀漂亮，操作更人性化．增強程序的新意與可行性?！?lt;/p><p>　　通過這次課程設(shè)計，使我們更加熟悉的掌握了數(shù)據(jù)庫語言的運用。幫助我們熟悉了更多數(shù)據(jù)庫語言及其功能，提高了我們的動手能力，學(xué)到了許多解決實際問題的寶貴經(jīng)驗．我們每個人都通過課程設(shè)計對理論知識的理解進一步加深，也對學(xué)科間的相互聯(lián)

59、系真正做到了學(xué)以致用。另一方面對收集資料、查閱文獻、方案制定等實踐能力也得到了很好的鍛煉，促進了我對所學(xué)知識的應(yīng)用能力；同時，發(fā)現(xiàn)問題、分析歸納、綜合比較的邏輯分析能力、處理問題等能力也得到了很好的提高。也挖掘出了我們潛在的能力，使我們對自己更有自信，對編程也更有興趣。我相信，只要努力、勤奮、堅持不懈，就沒有什么做不到的事，不能還沒開始就退縮，要勇于拼搏，敢于創(chuàng)新。</p><p><b>　　參考書目

60、</b></p><p>　?。?）謝維成等編寫的《Visual FoxPro 6.0實用教程》 清華大學(xué)出版社</p><p>　　（2）李雁翎等編寫的《Visual FoxPro應(yīng)用基礎(chǔ)與面向?qū)ο蟪绦蛟O(shè)計教程》 高等教育出版社</p><p>　?。?）明日科技、周桓、徐微等編寫的《Visual FoxPro 數(shù)據(jù)庫系統(tǒng)開發(fā)精選案例》 人民郵電出版社