畢業(yè)設計計算機信息管理之藥品管理系統(tǒng)(編輯修改稿)

　

【文章內容簡介】 輸出 數(shù)據(jù)備份 退出本系統(tǒng) 備份數(shù)據(jù) 恢復數(shù)據(jù) 預覽數(shù)據(jù) 打印數(shù)據(jù) 全部查詢 系統(tǒng)功能結構圖 12 第三部分：系統(tǒng)的實施 系統(tǒng)設計要具備以下要求： 系統(tǒng)性 靈活性 可靠性 經(jīng)濟性。 物理配置方案設計： 根據(jù)多方面的因素進行配置，系統(tǒng)的吞量，響應時間，可靠性，單機系統(tǒng)，集中式，采用數(shù)據(jù)庫管理方式。 信息流程圖的設計： ： 一個界面的友好，應以使用者操作方面為前提，還有操作員長期與這些界面打交道，設計一個好的界面是我們程序開發(fā)人員的最高追求，在我看來，編一個程序真的很簡單，一個功能就有很多種 實現(xiàn)的方法，我在設計使用中發(fā)現(xiàn)，用這輸入 存儲 1 處理 中間數(shù) 存儲 2 處理 2 處理 3 輸出 1 輸出 2 13 個版本開發(fā)一個系統(tǒng)，遠不如我用 Powerbuilder 簡單，在那個開發(fā)環(huán)境，不像這個版本，很多東西編起來很礙手礙腳的，放不開。主界面，我起先考慮的也跟大多同學一樣，用菜單生成器，最后發(fā)現(xiàn)，一個小小的系統(tǒng)，功能模塊又非常之小，我就放棄了菜單方式，選用了現(xiàn)在這個樣子。 登陸 設計： ： 簡單的登錄界面使用戶有一種親切的操作心情。 選擇您的姓名之后，輸入口令，如果輸入的口令是錯誤的會給出提示，如果三次輸入錯誤，將退出系統(tǒng)。 14 人員管理界面設計： 設置多用戶操作，可以通過按鈕增加，修改，刪除等操作，對人員進行管理。 15 藥品分類界面設計： 藥品期初設置的一個方面，為保證藥品分類計算時 ，保證數(shù)據(jù)的有效性和立人準確性。 增加代碼如下： if =增加 =39。確定 39。 =+200 =.t. =.t. else =增加 if !empty() sele lb appe blan repl lb with allt() endi 16 = =.t. =.f. endi =39。39。 數(shù)據(jù)存儲設計：主要采用數(shù)據(jù)庫文件存儲形式，制定文件的分類，設定主文件，處理文件，工作文件，后備文件，周轉 文件等。 數(shù)據(jù)存儲界面設計： 首先要把新藥的品種輸入的計算機之中，在增加新藥的時候，如果輸入的代碼是重復的，計算機將提示輸入重復錯誤。 提示代碼重復錄入的 實現(xiàn)代碼如下： if !empty() sele yuanb loca for allt(dm)=allt() if found() 17 mm=messagebox(您輸入的代碼已經(jīng)使用，請重新輸入 ,1+32,提示 ) if mm=1 = retu .f. else retu .t. endi endi endi 增加完新藥以后，需要對當前實有的藥品進行錄入，可以同藥品購入的錄入用 同一個錄入界面，但在以后的使用過程中，賬簿的正確性就不能保證 ，所以最好使用期初錄入界面進行錄入，保證數(shù)據(jù)的完整性。 期初錄入界面設計： 確定 .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 。 sxrq with ,sl with ,fxg with ,bh with val(str(lbh+(aa+1)/100,12,2))。 ysl with ysl+ sele qclr go bott repl bh with val(str(lbh+(aa+1)/100,12,2)) else * if =ctod(subs(lsldj,at(,lsldj,3)+1,at(,lsldj,4)at(,lsldj,3)1)) if =.t. mm=messagebox( 原來的價格為+allt(subs(lsldj,1,at(,lsldj,1)1))+chr(13)+。 是否更改為 +(allt()),1+32,提示 ) if mm=1 sele yuanb2 loca for bh=lbh+ repl sl with sl+,ysl with ysl+ repl yjj with val(),dj with val() sele qclr go bott repl bh with lbh+ else 20 sele yuanb2 loca for bh=lbh+ repl sl with sl+,ysl with ysl+ sele qclr go bott repl bh with lbh+ endi else sele yuanb2 loca for bh=lbh+ repl sl with sl+,ysl with ysl+ sele qclr go bott repl bh with lbh+ endi * else * sele yuanb2 * count to aa for int(bh)=lbh * appe blan * repl yjj with val(),dj with val(),chd with allt(),ph with 。 ** sxrq with ,sl with ,fxg with ,bh with val(str(lbh+(aa+1)/100,12,2)) * sele qclr * go bott * repl bh with val(str(lbh+(aa+1)/100,12,2)) 21 * endi endi =+val()* = = = = = = = =xxxx = ={^2021/12/31} =.f. endi sele yuanb2 set filt to sele qclr set filt to sele yuanb set filt to set exac off 購入藥品界面設計： 22 藥品購入錄入是主要的操作界面，通過輸入藥品的代碼，可以迅速定位到要輸入的藥品名稱上，在輸入的過程中有一定的輸入限制，如進價不能比批發(fā)價格高，失效日期要在現(xiàn)在日期以后，而且在輸入完畢以后，如果不打印，數(shù)據(jù)將不存儲到主數(shù)據(jù)庫中，以保證數(shù)據(jù)的完整性。在輸入過程中代碼的輸入與藥品名稱的查找是即時性的。 代碼即時性的產(chǎn)生代碼如下： 事件 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 衛(wèi)生室購藥查詢 ： 可以通過查詢得到各衛(wèi)生室及門診部的用藥情況，可以利用日期來查詢起止日期內 某個單位的用藥情況。 部分實現(xiàn)代碼如下： 查詢 .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 藥品銷售累計查詢： 可以累計查詢某個單位或科室在某一時期內購入藥品的合計，對于衛(wèi)生室管理具有相當大的作用。 具體查詢代碼的實現(xiàn)如下： 查詢 .click sele ltongj dele all sele distinct gydw from ck1 into cursor xxx sele ltongj appe from dbf(xxx) scan s