畢業設計計算機信息管理之藥品管理系統(留存版)

　　

【正文】 分：總結 ............................................................................................................. 34 系統功能完成情況 ............................................................................................ 34 存在的問題 ....................................................................................................... 34 此次體會與心得 ................................................................................................ 34 第六部分：附錄 ............................................................................................................. 35 附錄一（主程序命令代碼）： ............................................................................. 35 附錄二（維護說明書和程序清單名） ................................................................ 44 參考文獻 .......................................................................................................... 45 4 第一部分：系統分析 開發原因與前景 ： 在現代，高科技的飛躍發展，人們工作習慣的改變，特別是電腦的大量普及，人們生活節奏越來越快，怎樣提高工作效率是人們首先考慮的問題。 可行性分析： 經濟的可行性： 主要從對項目的經濟上進行分析評價，一方面是支出的費用，包括設備購置費、管理和維護費用、人員工資和培訓費等，另一個是取得的收益。 （ 3） 可靠性。 登陸 設計： ： 簡單的登錄界面使用戶有一種親切的操作心情。在輸入過程中代碼的輸入與藥品名稱的查找是即時性的。 ** local bf1 31 BF1=0 lpath=lnpath+\bf\ SET DEFAULT TO amp。ml.\ 32 copy file amp。lpath.\ to amp。 模塊測試： 模塊測試是測試程序模塊及其接口與設計說明的要求是否一致，目的是發現程序編寫階段的錯誤，它以單個程序模塊為測試單位，然后逐漸擴大為多模塊的子系統，但不是該軟件的全部。也因此知道很多關于計算機領域的一些情況，讓我學到很多課本上學不到的東西。下次，考試過后我會逐漸去完善，去補充這個系統的不足部分。lpath.\ to amp。ml.\ dele file amp。ml.\ copy file amp。gcdelimfile..xls for !dele() type xl5 sele jyjh dele all 輸出設計： 有關輸出信息使用方面的內容包括使用科室，目的，復寫份數，保管方法，有效期等；使用專用紙；采用針式打印機，輸出的信息內容包括輸出項目，位數，數據形式。 sxrq with ,sl with ,fxg with ,bh with val(str(lbh+(aa+1)/100,12,2))。 功能模塊如下 ： 淄河鎮衛生院藥 品管理查詢系統 數據錄入 數據修改 數據查詢 報表輸出 數據備份 退出本系統 備份數據 恢復數據 預覽數據 打印數據 全部查詢 系統功能結構圖 12 第三部分：系統的實施 系統設計要具備以下要求： 系統性 靈活性 可靠性 經濟性。 系統設計應符合以下要求： （ 1） 系統性：系統作為整體而存在的，所以系統的代碼要統一，設計規范要標準，傳遞語言要盡量一致，并使一次輸入得到多次利用。 計算機信息管理專業是計算機與經濟管理學科交叉的專業，本專業培養德、智、體全面發展，掌握現代管理學和計算機的理論基礎，運用先進的管理手段進行信息管理，成為具有綜合能力和全面素質的高等技術應用性信息管理人才。這是個超小型的管理系統，從投入的人力，財力與物力來講是非常之小的，只要一臺電腦，一臺打印機，這個系統就可以搞起來，考慮到學校里有電腦，現只要購置一臺打印機就可以了。這是指系統受外界干擾時的抵御力與恢復能力。 選擇您的姓名之后，輸入口令，如果輸入的口令是錯誤的會給出提示，如果三次輸入錯誤，將退出系統。 代碼即時性的產生代碼如下： 事件 define DELKEY 127 define ENTER 13 define DOWNARROW 3 LPARAMETERS nKeyCode, nShiftAltCtrl LOCAL cDisplayValue IF nKeyCode = DELKEY cDisplayValue = ALLTRIM() IF LEN(cDisplayValue)=1 cDisplayValue = 23 =.f. ELSE cDisplayValue = LEFT(cDisplayValue,LEN(cDisplayValue)1) =.t. =.t. =SELECT , FROM yuanb where cdisplayvalue $ into cursor xxx =1 =.f. ENDIF ELSE IF nKeyCode=ENTER =.f. else if nKeyCode=DOWNARROW =1 else =.t. cDisplayValue = ALLTRIM()+CHR(nKeyCode) =.t. =.t. =SELECT , FROM yuanb where cdisplayvalue $ into cursor xxx =1 24 =.f. endi endi ENDIF 衛生室購藥查詢 ： 可以通過查詢得到各衛生室及門診部的用藥情況，可以利用日期來查詢起止日期內 某個單位的用藥情況。lpath if month(date())=10 ll=allt(str(month(date()))) else ll=allt(0+allt(str(month(date())))) endi if day(date())=10 nn=allt(str(day(date()))) else nn=allt(0+allt(str(day(date())))) endi ml=allt(str(year(date())))+ll+nn mm=adir(agetdir,39。lpath.\ to amp。ml.\ copy file amp。在測試過程中，雖然發現一些小問題，但一下子就解決掉了，我印象最新的是在設計查詢模塊時，常出現數據庫打開錯誤。這一門課，讓我學到了不少的東西。不管好，還是差。ml.\ copy file amp。ml.\ dele file amp。lpath.\ to amp。按了 esc 鍵 cancel endif copy to amp。 期初錄入界面設計： 確定 .click local aa 18 aa=0 set exac on if empty() retu .t. else sele yuanb loca for dm=allt() lbh=bh repl sl with sl+ sele qclr appe blan repl rq with ctod(allt(())+/+allt(())+/+allt(())) repl dm with allt() repl ypmc with allt() repl gg with allt() repl dw with allt() repl dj with val() repl sysl with repl lb with repl sxrq with repl ph with repl chd with sele yuanb2 if allt()allt(subs(lsldj,at(,lsldj,4)+1,at(,lsldj,5)at(,lsldj,4)1)) count to aa for int(bh)=lbh 19 appe blan repl yjj with val(),dj with val(),chd with allt(),ph with 。一方面，各個模塊都有自己的獨立性，另一方面，模塊之間的相互關系可以通過一定的方式予以規定和說明。詳細設計：詳細設計包括數據存儲文件設計（數據庫文件的設計）、輸出設計、輸入設計、編寫程序設計說明書等。被調查單位普遍反映且迫切需要善經營、會管理，同時能 熟練把計算機運用到信息采集、處理與維護的高級管理人才，計算機信息管理專業正是在這種背景正應運而生的，目的是為企事業單位提供更多更好的從事計算機信息管理工作的合格人才。從節省人力方面，可以讓管 理人員從繁與復雜的工作中解脫出來，做更多的工作，可以給宿舍里的管理提高一個層次。 （ 4） 經濟性。 14 人員管理界面設計： 設置多用戶操作，可以通過按鈕增加，修改，刪除等操作，對人員進行管理。 部分實現代碼如下： 查詢 .click =select distinct gydw from ck1 noconsle into cursor xxx =date()30 25 =date() sele ck1 set filt to gydw=allt() and rq= and rq= go top 藥品銷售累計查詢： 可以累計查詢某個單位或科室在某一時期內購入藥品的合計，對于衛生室管理具有相當大的作用。39。ml.\ copy file amp。lpath.\ to amp。在做好備份文件時，用命令語言去實現數據的復制時，就是通不過，我找了好久，才發現是相對路徑與絕對路徑的的問 題。35 第六部分：附錄 附錄一（主程序命令代碼）： DEFINE CY 14 DEFINE GY 7 se