畢業設計計算機信息管理之藥品管理系統-免費閱讀

　　

【正文】 35 第六部分：附錄 附錄一（主程序命令代碼）： DEFINE CY 14 DEFINE GY 7 set console off clos all set dele on set safe off set exac off set sysmenu off set status bar off on shutdown quit cCurrentProcedure = SYS(16,1) nPathStart = AT(:,cCurrentProcedure) 1 nLenOfPath = RAT(\, cCurrentProcedure) (nPathStart) SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)) zoom window screen max tit=39。不足之處，希望你的批評指正，以便修改完善。在做好備份文件時，用命令語言去實現數據的復制時，就是通不過，我找了好久，才發現是相對路徑與絕對路徑的的問 題。lpath.\ to amp。lpath.\ to amp。ml.\ dele file amp。ml.\ copy file amp。ml.\ copy file amp。39。amp。 部分實現代碼如下： 查詢 .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 藥品銷售累計查詢： 可以累計查詢某個單位或科室在某一時期內購入藥品的合計，對于衛生室管理具有相當大的作用。 提示代碼重復錄入的 實現代碼如下： if !empty() sele yuanb loca for allt(dm)=allt() if found() 17 mm=messagebox(您輸入的代碼已經使用，請重新輸入 ,1+32,提示 ) if mm=1 = retu .f. else retu .t. endi endi endi 增加完新藥以后，需要對當前實有的藥品進行錄入，可以同藥品購入的錄入用 同一個錄入界面，但在以后的使用過程中，賬簿的正確性就不能保證 ，所以最好使用期初錄入界面進行錄入，保證數據的完整性。 14 人員管理界面設計： 設置多用戶操作，可以通過按鈕增加，修改，刪除等操作，對人員進行管理。功能模塊設計的目的都是為了把一個系統分解成一些規模較小的、功能較簡單的、更易于建立和修改的部分。 （ 4） 經濟性。總體設計：總體設計包括子系統的劃分，代碼設計、設計規范制定、信息系統流程圖設計、功能結構圖設計和系統物理配置方案設計等。從節省人力方面，可以讓管 理人員從繁與復雜的工作中解脫出來，做更多的工作，可以給宿舍里的管理提高一個層次。隨著我國市場經濟的迅速發展和加入 WTO，企業信息化程度的要求越來越高，而現階段計算機信息管理普及率并不高，企業中計算機資源得不到及時充分的利用，信息處理效率跟不上形勢的發展，近幾年很多單位對計算機信息管理專業人才需求越來越大。被調查單位普遍反映且迫切需要善經營、會管理，同時能 熟練把計算機運用到信息采集、處理與維護的高級管理人才，計算機信息管理專業正是在這種背景正應運而生的，目的是為企事業單位提供更多更好的從事計算機信息管理工作的合格人才。 技術上的可行性： 技術上的可行性分析要考慮將來要采用的硬件和軟件技術能否滿足用戶（這里是校方）提出的要求（如計算機的容量、速度等）。詳細設計：詳細設計包括數據存儲文件設計（數據庫文件的設計）、輸出設計、輸入設計、編寫程序設計說明書等。這是我們也要考慮的問題。一方面，各個模塊都有自己的獨立性，另一方面，模塊之間的相互關系可以通過一定的方式予以規定和說明。 15 藥品分類界面設計： 藥品期初設置的一個方面，為保證藥品分類計算時 ，保證數據的有效性和立人準確性。 期初錄入界面設計： 確定 .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 。 具體查詢代碼的實現如下： 查詢 .click sele ltongj dele all sele distinct gydw from ck1 into cursor xxx sele ltongj appe from dbf(xxx) scan sele ck1 sum dj*gysl to aa for lb 中 草 藥 and gydw= and rq= and rq= 26 sum dj*gysl to bb for lb= 中 草 藥 and gydw= and rq= and rq= sele ltongj repl xy with aa,zhcy with bb,hj with aa+bb,rq with allt(dtoc())+allt(dtoc()) endscan sele ltongj sum xy to aa =str(aa,14,2) sum zhcy to aa =str(aa,14,2) sum hj to aa =str(aa,14,2) =2 =ltongj 某品種藥品的模糊查詢： 在忘記某種藥品的代碼時，可以用這個查詢來查找某種藥品的代碼和名稱，可以按代碼查詢，也可以按名稱查詢，非常簡便易用。按了 esc 鍵 cancel endif copy to amp。,39。lpath.\ to amp。lpath.\ to amp。ml.\ dele file amp。ml.\ copy file amp。ml.\ copy file amp。最后，搞好了，又發現把這個子程序放到別的目錄下時，又出現了問題。不管好，還是差。藥品批發系統 39。這一門課，讓我學到了不少的東西。 存在的問題 當然，一個程序，一個系統不可能盡善盡美的，因為學生我還要參加十月份的本科考試，時間方面有所制約。在測試過程中，雖然發現一些小問題，但一下子就解決掉了，我印象最新的是在設計查詢模塊時，常出現數據庫打開錯誤。ml.\ copy file amp。ml.\ copy file amp。ml.\ dele file amp。lpath.\ to amp。lpath.\ to amp。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。) if empty(gcdelimfile) amp。 代碼即時性的產生代碼如下： 事件 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 衛生室購藥查詢 ： 可以通過查詢得到各衛生室及門診部的用藥情況，可以利用日期來查詢起止日期內 某個單位的用藥情況。 數據存儲界面設計： 首先要把新藥的品種輸入的計算機之中，在增加新藥的時候，如果輸入的代碼是重復的，計算機將提示輸入重復錯誤。 選擇您的姓名之后，輸入口令，如果輸入的口令是錯誤的會給出提示，如果三次輸入錯誤，將退出系統。 表結構 : F:\F\LL\VFP\批發 \\ 數據記錄數 : 1837 最近更新的時間 : 10/19/06 備注文件塊大小 : 64 代碼頁 : 936 字段 字段名 類型 寬度 小數 1