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

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

2、............4</p><p>　　3.1系統(tǒng)總體設計流程圖...........................4</p><p>　　3.2系統(tǒng)詳細設計.................................5</p><p>　　3.3數(shù)據(jù)庫設計...................................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關于........................................17</p><p>　　4.9退出界面 ............................

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

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

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

10、（5）除以上系統(tǒng)主要需求外還需要以下內(nèi)容完成系統(tǒng)，其中包括啟動頁面，在系統(tǒng)操作時的幫助和關于系統(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)地址、適應癥等內(nèi)容；</p><p>　　（2）用戶信息，包括用戶名及密碼等內(nèi)容；</p><p>　　（3）生產(chǎn)廠家信息，包括生產(chǎn)廠家編號、公司全稱、地址、電話、聯(lián)系人等內(nèi)容；</p><p>　?。?）供應商信息表，包括供應商編號、全稱、地址、聯(lián)系電話、聯(lián)系人、開戶銀行等內(nèi)容；</p><

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

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

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

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

16、的幫助選項以及關于本系統(tǒng)的一些信息；</p><p>　　（7）系統(tǒng)能夠正常的退出，并且有一個退出頁面，顯示是否確定退出以免操作失誤；</p><p><b>　　3.3數(shù)據(jù)庫設計</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.供應商信息表</p><p>　　注：以上都是數(shù)據(jù)庫中相關表，通過各個表的屬性給對應的表中添加相應的數(shù)據(jù)，再導入到程序中進行添加，查詢，修改，刪除，插入等功能。每個表之間建立存儲過程以及觸發(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.供應商信息管理

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 供應商信息報表 noco for 全稱=thisform.combo2.value prev</p><p>　　report form 生產(chǎn)廠家信息報表 noco for 公司全稱=thisform.combo3.value prev</p><p>　　2-6-2.打印界面預覽</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("重復密碼不能為空！",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)將取消你的修改權利！",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.關于</b></p><p>　　4.8.1.幫助界面</p><p><b>　　2-8-1.幫助</b></p><p>　　4.8.2.關于界面</p><p>　　4-8-2.關于界面</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)功能、表單控件及主要屬性、事情相應代碼、程序文件等</p><p><b

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

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

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

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

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

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