畢業(yè)設(shè)計(jì)計(jì)算機(jī)信息管理之藥品管理系統(tǒng)樣本

高等函授專科畢業(yè)設(shè)計(jì)（論文）計(jì)算機(jī)信息管理之藥物管理系統(tǒng)【摘要】隨著全球以信息技術(shù)為主導(dǎo)科技革命進(jìn)程加快，人類社會(huì)逐漸由工業(yè)社會(huì)進(jìn)入信息社會(huì)。信息技術(shù)是當(dāng)代最具潛力新生產(chǎn)力，信息資源是經(jīng)濟(jì)和社會(huì)發(fā)展重要戰(zhàn)略資源。信息化成為各國(guó)經(jīng)濟(jì)和科技競(jìng)爭(zhēng)制高點(diǎn)，信息化限度已成為衡量一種國(guó)家和地區(qū)當(dāng)代化水平和綜合實(shí)力重要標(biāo)志。隨著國(guó)內(nèi)市場(chǎng)經(jīng)濟(jì)迅速發(fā)展和加入WTO，公司信息化限度規(guī)定越來(lái)越高，而現(xiàn)階段計(jì)算機(jī)信息管理普及率并不高，公司中計(jì)算機(jī)資源得不到及時(shí)充分運(yùn)用，信息解決效率跟不上形勢(shì)發(fā)展，近幾年諸多單位對(duì)計(jì)算機(jī)信息管理專業(yè)人才需求越來(lái)越大。被調(diào)查單位普遍反映且迫切需要善經(jīng)營(yíng)、會(huì)管理，同步能純熟把計(jì)算機(jī)運(yùn)用到信息采集、解決與維護(hù)高檔管理人才，計(jì)算機(jī)信息管理專業(yè)正是在這種背景正應(yīng)運(yùn)而生，目是為企事業(yè)單位提供更多更好從事計(jì)算機(jī)信息管理工作合格人才。計(jì)算機(jī)信息管理專業(yè)是計(jì)算機(jī)與經(jīng)濟(jì)管理學(xué)科交叉專業(yè)，本專業(yè)培養(yǎng)德、智、體全面發(fā)展，掌握當(dāng)代管理學(xué)和計(jì)算機(jī)理論基本，運(yùn)用先進(jìn)管理手段進(jìn)行信息管理，成為具備綜合能力和全面素質(zhì)高等技術(shù)應(yīng)用性信息管理人才?！竞诵脑~】信息技術(shù)信息資源信息化公司信息化限度

目錄第一某些：系統(tǒng)分析 4第二某些：系統(tǒng)設(shè)計(jì) 62.1總體設(shè)計(jì)： 62.2詳細(xì)設(shè)計(jì)： 62.2.1數(shù)據(jù)庫(kù)設(shè)計(jì)： 62.2.1模塊設(shè)計(jì)： 11第三某些：系統(tǒng)實(shí)行 123.1主程序界面設(shè)計(jì)： 123.1.1登陸設(shè)計(jì)：： 133.1.2人員管理界面設(shè)計(jì)： 143.1.3藥物分類界面設(shè)計(jì)： 153.2數(shù)據(jù)存儲(chǔ)界面設(shè)計(jì)： 163.3查詢?cè)O(shè)計(jì) 243.3.1衛(wèi)生室購(gòu)藥查詢： 243.3.2藥物銷售合計(jì)查詢： 253.4報(bào)表輸出設(shè)計(jì)： 283.5備份設(shè)計(jì) 30第四某些：系統(tǒng)測(cè)試 334.1模塊測(cè)試： 334.2系統(tǒng)測(cè)試： 33第五某些：總結(jié) 345.1系統(tǒng)功能完畢狀況 345.2存在問(wèn)題 345.3本次體會(huì)與心得 34第六某些：附錄 356.1附錄一（主程序命令代碼）： 356.2附錄二（維護(hù)闡明書(shū)和程序清單名） 446.3參照文獻(xiàn) 45第一某些：系統(tǒng)分析1.1開(kāi)發(fā)因素與前景：在當(dāng)代，高科技奔騰發(fā)展，人們工作習(xí)慣變化，特別是電腦大量普及，人們生活節(jié)奏越來(lái)越快，如何提高工作效率是人們一方面考慮問(wèn)題。宿舍管理特別是學(xué)校宿舍管理是一種非常繁瑣與復(fù)雜一項(xiàng)工作，一種因素就是工作量大，不好管。對(duì)于一種學(xué)校而言，更應(yīng)當(dāng)運(yùn)用某些本地資源，提高管理力度，對(duì)學(xué)生負(fù)責(zé)，對(duì)國(guó)家負(fù)責(zé)。1.2可行性分析：1.2.1經(jīng)濟(jì)可行性：重要從對(duì)項(xiàng)目經(jīng)濟(jì)上進(jìn)行分析評(píng)價(jià)，一方面是支出費(fèi)用，涉及設(shè)備購(gòu)買(mǎi)費(fèi)、管理和維護(hù)費(fèi)用、人員工資和培訓(xùn)費(fèi)等，另一種是獲得收益。這是個(gè)超小型管理系統(tǒng)，從投入人力，財(cái)力與物力來(lái)講是非常之小，只要一臺(tái)電腦，一臺(tái)打印機(jī)，這個(gè)系統(tǒng)就可以搞起來(lái)，考慮到學(xué)校里有電腦，現(xiàn)只要購(gòu)買(mǎi)一臺(tái)打印機(jī)就可以了。從節(jié)約人力方面，可以讓管理人員從繁與復(fù)雜工作中解脫出來(lái)，做更多工作，可以給宿舍里管理提高一種層次。1.2.2技術(shù)上可行性：技術(shù)上可行性分析要考慮將來(lái)要采用硬件和軟件技術(shù)能否滿足顧客（這里是校方）提出規(guī)定（如計(jì)算機(jī)容量、速度等）。此外，還要考慮開(kāi)發(fā)人員水平，做為計(jì)算機(jī)信息管理專業(yè)畢業(yè)優(yōu)等生，數(shù)據(jù)庫(kù)設(shè)計(jì)方面對(duì)于咱們應(yīng)當(dāng)還過(guò)得去，在宿舍里生活了兩年，對(duì)這個(gè)管理模試應(yīng)當(dāng)比較熟。宿舍管理系統(tǒng)編寫(xiě)，是十分好編，我想幾天就可以寫(xiě)出程序，再花上三來(lái)天調(diào)試，籌劃一種星期就可以完畢投入使用了。1.3結(jié)論：通過(guò)以上兩點(diǎn)分析，編寫(xiě)或開(kāi)發(fā)這個(gè)宿舍管理系統(tǒng)是可行，只要這個(gè)系統(tǒng)能實(shí)現(xiàn)對(duì)學(xué)生數(shù)據(jù)輸入、修改、刪除、打印、瀏覽與查詢就可以了。如果技術(shù)方面可行，瀏覽與查詢方面功能應(yīng)當(dāng)編寫(xiě)得強(qiáng)大一點(diǎn)，再好有條件組合查詢，可以實(shí)現(xiàn)按男女生分類查詢，也可以按專業(yè)、寢室號(hào)、籍貫等分類查詢，以便學(xué)校方面管理人員可以很以便查詢想要數(shù)據(jù)，以便進(jìn)行統(tǒng)一管理，統(tǒng)一安排。第二某些：系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)任務(wù)是：在系統(tǒng)分析基本上，按照9邏輯模型規(guī)定，科學(xué)合理地進(jìn)行系統(tǒng)總體設(shè)計(jì)和詳細(xì)物理設(shè)計(jì)，為下一階段系統(tǒng)實(shí)行提供必要技術(shù)資料。涉及總體設(shè)計(jì)與詳細(xì)設(shè)計(jì)?？傮w設(shè)計(jì)：總體設(shè)計(jì)涉及子系統(tǒng)劃分，代碼設(shè)計(jì)、設(shè)計(jì)規(guī)范制定、信息系統(tǒng)流程圖設(shè)計(jì)、功能構(gòu)造圖設(shè)計(jì)和系統(tǒng)物理配備方案設(shè)計(jì)等。詳細(xì)設(shè)計(jì)：詳細(xì)設(shè)計(jì)涉及數(shù)據(jù)存儲(chǔ)文獻(xiàn)設(shè)計(jì)（數(shù)據(jù)庫(kù)文獻(xiàn)設(shè)計(jì)）、輸出設(shè)計(jì)、輸入設(shè)計(jì)、編寫(xiě)程序設(shè)計(jì)闡明書(shū)等。系統(tǒng)設(shè)計(jì)應(yīng)符合如下規(guī)定：系統(tǒng)性：系統(tǒng)作為整體而存在，因此系統(tǒng)代碼要統(tǒng)一，設(shè)計(jì)規(guī)范要原則，傳遞語(yǔ)言要盡量一致，并使一次輸入得到多次運(yùn)用。靈活性。系統(tǒng)應(yīng)靈活，對(duì)環(huán)境變化要有很強(qiáng)適應(yīng)性。這規(guī)定咱們盡量采用模塊化構(gòu)造，提高各某些獨(dú)立性，盡是減少各子系統(tǒng)之間數(shù)據(jù)依賴性?？煽啃?。這是指系統(tǒng)受外界干擾時(shí)抵抗力與恢復(fù)能力。經(jīng)濟(jì)性。這是咱們也要考慮問(wèn)題。2.1總體設(shè)計(jì)：考慮到咱們是一種小型管理系統(tǒng)，程序編寫(xiě)方面并不復(fù)雜，因此某些不必要方面就可以省略了，如：代碼設(shè)計(jì)方面，設(shè)計(jì)規(guī)范制定方面等等。從系統(tǒng)吞吐量，響應(yīng)時(shí)間方面考慮，當(dāng)前機(jī)器是達(dá)得到規(guī)定，還留下了一點(diǎn)空間。2.2詳細(xì)設(shè)計(jì)：2.2.1數(shù)據(jù)庫(kù)設(shè)計(jì)：在一種藥物管理查詢系統(tǒng)這樣一種系統(tǒng)中，運(yùn)用數(shù)據(jù)庫(kù)是十分必要，某些藥物數(shù)據(jù)資料保存，修改，查詢都要與數(shù)據(jù)打交道，因此選好存儲(chǔ)類型，選好一種適當(dāng)數(shù)據(jù)庫(kù)是十分重要，考慮到實(shí)際狀況，我就用foxpro6.0做了。數(shù)據(jù)庫(kù)設(shè)計(jì)重要任務(wù)是決定數(shù)據(jù)庫(kù)字段名，字段類型，字段長(zhǎng)度等。在此只列舉三個(gè)數(shù)據(jù)庫(kù)文獻(xiàn)文獻(xiàn)構(gòu)造。表構(gòu)造：F:\F\LL\VFP\批發(fā)\\YUANB.DBF數(shù)據(jù)記錄數(shù)：1837近來(lái)更新時(shí)間：10/19/06備注文獻(xiàn)塊大?。?4代碼頁(yè)：936字段字段名類型寬度小數(shù)1BH數(shù)值型52DM字符型113YPMC字符型184GG字符型105DW字符型86DJ數(shù)值型1327DJ2數(shù)值型1328JJ數(shù)值型1329PFJ數(shù)值型13210SL數(shù)值型11211LB字符型1012FXG數(shù)值型713FXG1數(shù)值型714QZB邏輯型115NCS數(shù)值型1216SXRQ備注型417BL數(shù)值型818YSL數(shù)值型14**總計(jì)**177表構(gòu)造：F:\F\LL\VFP\批發(fā)\DATA\CK.DBF數(shù)據(jù)記錄數(shù)：14近來(lái)更新時(shí)間：09/03/07代碼頁(yè)：936字段字段名類型寬度小數(shù)位索引排序Nulls1DJH字符型142RQ日期型83GYDW字符型164BH數(shù)值型925DM字符型126YPMC字符型267GG字符型108DW字符型109DJ數(shù)值型10410GYSL數(shù)值型12211PH字符型1212SXRQ日期型813CHD字符型3014LB字符型1015ZHD字符型616FXG數(shù)值型7217DY邏輯型1**總計(jì)**202表構(gòu)造：F:\F\LL\VFP\批發(fā)\DATA\YUANB2.DBF數(shù)據(jù)記錄數(shù)：2034近來(lái)更新時(shí)間：09/03/07代碼頁(yè)：936字段字段名類型寬度小數(shù)1BH數(shù)值型1222DJ數(shù)值型1243YJJ數(shù)值型1344CHD字符型205PH字符型146SXRQ日期型87SL數(shù)值型1228FXG數(shù)值型1049QZB邏輯型110YSL數(shù)值型142**總計(jì)**1172.2.1模塊設(shè)計(jì)：模塊化是一種重要設(shè)計(jì)思想。功能模塊設(shè)計(jì)目都是為了把一種系統(tǒng)分解成某些規(guī)模較小、功能較簡(jiǎn)樸、更易于建立和修改某些。一方面，各個(gè)模塊均有自己獨(dú)立性，另一方面，模塊之間互有關(guān)系可以通過(guò)一定方式予以規(guī)定和闡明。功能模塊如下：淄河鎮(zhèn)衛(wèi)生院藥物管理查詢系統(tǒng)淄河鎮(zhèn)衛(wèi)生院藥物管理查詢系統(tǒng)數(shù)據(jù)錄入數(shù)據(jù)修改數(shù)據(jù)查詢報(bào)表輸出數(shù)據(jù)備份退出本系統(tǒng)備份數(shù)據(jù)恢復(fù)數(shù)據(jù)預(yù)覽數(shù)據(jù)打印數(shù)據(jù)所有查詢系統(tǒng)功能構(gòu)造圖第三某些：系統(tǒng)實(shí)行系統(tǒng)設(shè)計(jì)要具備如下規(guī)定：1、系統(tǒng)性2、靈活性3、可靠性4、經(jīng)濟(jì)性。物理配備方案設(shè)計(jì)：依照多方面因素進(jìn)行配備，系統(tǒng)吞量，響應(yīng)時(shí)間，可靠性，單機(jī)系統(tǒng)，集中式，采用數(shù)據(jù)庫(kù)管理方式。信息流程圖設(shè)計(jì)：輸入輸入存儲(chǔ)1解決中間數(shù)存儲(chǔ)2解決2解決3輸出1輸出23.1主程序界面設(shè)計(jì)：一種界面和諧，應(yīng)以使用者操作方面為前提，尚有操作員長(zhǎng)期與這些界面打交道，設(shè)計(jì)一種好界面是咱們程序開(kāi)發(fā)人員最高追求，在我看來(lái)，編一種程序真很簡(jiǎn)樸，一種功能就有諸各種實(shí)現(xiàn)辦法，我在設(shè)計(jì)使用中發(fā)現(xiàn)，用這個(gè)版本開(kāi)發(fā)一種系統(tǒng)，遠(yuǎn)不如我用Powerbuilder8.1簡(jiǎn)樸，在那個(gè)開(kāi)發(fā)環(huán)境，不像這個(gè)版本，諸多東西編起來(lái)很礙手礙腳，放不開(kāi)。主界面，我起先考慮也跟大多同窗同樣，用菜單生成器，最后發(fā)現(xiàn)，一種小小系統(tǒng)，功能模塊又非常之小，我就放棄了菜單方式，選用了當(dāng)前這個(gè)樣子。3.1.1登陸設(shè)計(jì)：簡(jiǎn)樸登錄界面使顧客有一種親切操作心情。選取您姓名之后，輸入口令，如果輸入口令是錯(cuò)誤會(huì)給出提示，如果三次輸入錯(cuò)誤，將退出系統(tǒng)。3.1.2設(shè)立多顧客操作，可以通過(guò)按鈕增長(zhǎng)，修改，刪除等操作，對(duì)人員進(jìn)行管理。3.1.3藥物期初設(shè)立一種方面，為保證藥物分類計(jì)算時(shí)，保證數(shù)據(jù)有效性和立人精確性。增長(zhǎng)代碼如下：ifthis.caption="增長(zhǎng)"this.caption='擬定'thisform.width=thisform.width+200thisform.text1.setfocusthisform.autocenter=.t.mand4.enabled=.t.elsethis.caption="增長(zhǎng)"if!empty(thisform.text1.value)selelb appeblan repllbwithallt(thisform.text1.value)endithisform.width=thisform.width-200thisform.autocenter=.t.mand4.enabled=.f.endithisform.text1.value=''thisform.list1.requerythisform.refresh數(shù)據(jù)存儲(chǔ)設(shè)計(jì)：重要采用數(shù)據(jù)庫(kù)文獻(xiàn)存儲(chǔ)形式，制定文獻(xiàn)分類，設(shè)定主文獻(xiàn)，解決文獻(xiàn)，工作文獻(xiàn)，后備文獻(xiàn)，周轉(zhuǎn)文獻(xiàn)等。3.2數(shù)據(jù)存儲(chǔ)界面設(shè)計(jì)：一方面要把新藥物種輸入計(jì)算機(jī)之中，在增長(zhǎng)新藥時(shí)候，如果輸入代碼是重復(fù)，計(jì)算機(jī)將提示輸入重復(fù)錯(cuò)誤。提示代碼重復(fù)錄入實(shí)當(dāng)代碼如下：Dmtxt.validif!empty(this.value) seleyuanb locaforallt(dm)=allt(this.value) iffound() mm=messagebox("您輸入代碼已經(jīng)使用，請(qǐng)重新輸入",1+32,"提示")ifmm=1 this.value="" retu.f.else retu.t.endi endiendithisform.refresh增長(zhǎng)完新藥后來(lái)，需要對(duì)當(dāng)前實(shí)有藥物進(jìn)行錄入，可以同藥物購(gòu)入錄入用同一種錄入界面，但在后來(lái)使用過(guò)程中，賬簿對(duì)的性就不能保證，因此最佳有效期初錄入界面進(jìn)行錄入，保證數(shù)據(jù)完整性。期初錄入界面設(shè)計(jì)：擬定.clicklocalaaaa=0setexaconifempty(thisform.sl.value)retu.t.elseseleyuanblocafordm=allt(thisform.dm.value)lbh=bhreplslwithsl+thisform.sl.valueseleqclrappeblanreplrqwithctod(allt((thisform.year.value))+"/"+allt((thisform.month.value))+"/"+allt((thisform.day.value)))repldmwithallt(thisform.dm.value)replypmcwithallt(thisform.ypmc.value)replggwithallt(thisform.gg.value)repldwwithallt(thisform.dw.value)repldjwithval(thisform.dj.value)replsyslwiththisform.sl.valuerepllbwiththisform.lb.valuereplsxrqwiththisform.sxrq.valuereplphwiththisform.ph.valuereplchdwiththisform.chd.valueseleyuanb2ifallt(thisform.chd.value)<>allt(subs(lsldj,at(",",lsldj,4)+1,at(",",lsldj,5)-at(",",lsldj,4)-1)) counttoaaforint(bh)=lbh appeblan replyjjwithval(thisform.dj.value),djwithval(thisform.dj.value),chdwithallt(thisform.chd.value),phwiththisform.ph.value; sxrqwiththisform.sxrq.value,slwiththisform.sl.value,fxgwith1.3,bhwithval(str(lbh+(aa+1)/100,12,2)); yslwithysl+thisform.sl.value seleqclr gobott replbhwithval(str(lbh+(aa+1)/100,12,2)) else * ifthisform.sxrq.value=ctod(subs(lsldj,at(",",lsldj,3)+1,at(",",lsldj,4)-at(",",lsldj,3)-1)) ifthisform.nmodi=.t. mm=messagebox("本來(lái)價(jià)格為"+allt(subs(lsldj,1,at(",",lsldj,1)-1))+chr(13)+; "與否更改為"+(allt(thisform.dj.value)),1+32,"提示") ifmm=1 seleyuanb2 locaforbh=lbh+thisform.lquerybh/100 replslwithsl+thisform.sl.value,yslwithysl+thisform.sl.value replyjjwithval(thisform.dj.value),djwithval(thisform.dj.value) seleqclr gobott replbhwithlbh+thisform.lquerybh/100 else seleyuanb2 locaforbh=lbh+thisform.lquerybh/100 replslwithsl+thisform.sl.value,yslwithysl+thisform.sl.value seleqclr gobott replbhwithlbh+thisform.lquerybh/100 endi else seleyuanb2 locaforbh=lbh+thisform.lquerybh/100 replslwithsl+thisform.sl.value,yslwithysl+thisform.sl.value seleqclr gobott replbhwithlbh+thisform.lquerybh/100 endi* else* seleyuanb2* counttoaaforint(bh)=lbh* appeblan* replyjjwithval(thisform.dj.value),djwithval(thisform.dj.value),chdwithallt(thisform.chd.value),phwiththisform.ph.value;** sxrqwiththisform.sxrq.value,slwiththisform.sl.value,fxgwith1.3,bhwithval(str(lbh+(aa+1)/100,12,2)) * seleqclr * gobott * replbhwithval(str(lbh+(aa+1)/100,12,2)) *endi endi thisform.hj.value=thisform.hj.value+val(thisform.dj.value)*thisform.sl.valuethisform.dm.value=""thisform.ypmc.value="" thisform.gg.value=""thisform.dw.value=""thisform.lb.value=""thisform.dj.value=""thisform.chd.value=""thisform.ph.value="xxxx"thisform.sl.value=0.00thisform.sxrq.value={^/12/31}thisform.nmodi=.f.thisform.refreshendithisform.dm.setfocusseleyuanb2setfilttoseleqclrsetfilttoseleyuanbsetfilttosetexacoffthisform.refresh購(gòu)入藥物界面設(shè)計(jì)：藥物購(gòu)入錄入是重要操作界面，通過(guò)輸入藥物代碼，可以迅速定位到要輸入藥物名稱上，在輸入過(guò)程中有一定輸入限制，如進(jìn)價(jià)不能比批發(fā)價(jià)格高，失效日期要在當(dāng)前日期后來(lái)，并且在輸入完畢后來(lái)，如果不打印，數(shù)據(jù)將不存儲(chǔ)到主數(shù)據(jù)庫(kù)中，以保證數(shù)據(jù)完整性。在輸入過(guò)程中代碼輸入與藥物名稱查找是即時(shí)性。代碼即時(shí)性產(chǎn)生代碼如下：Dm.keypress事件#defineDELKEY127#defineENTER13#defineDOWNARROW3LPARAMETERSnKeyCode，nShiftAltCtrlLOCALcDisplayValueIFnKeyCode=DELKEY cDisplayValue=ALLTRIM(THIS.Value) IFLEN(cDisplayValue)=1 cDisplayValue="" thisform.list1.visible=.f. ELSE cDisplayValue=LEFT(cDisplayValue,LEN(cDisplayValue)-1) thisform.list1.visible=.t. thisform.lockscreen=.t. thisform.list1.RowSource="SELECTyuanb.dm,yuanb.ypmc,yuanb.gg,yuanb.dwFROMyuanbwherecdisplayvalue$yuanb.dmintocursorxxx" thisform.list1.value=1 thisform.lockscreen=.f. ENDIFELSE IFnKeyCode=ENTER THISFORM.lsearch thisform.list1.visible=.f. thisform.dm.setfocus else ifnKeyCode=DOWNARROW thisform.list1.setfocus thisform.list1.value=1 else thisform.list1.visible=.t. cDisplayValue=ALLTRIM(THIS.Value)+CHR(nKeyCode) thisform.list1.visible=.t. thisform.lockscreen=.t. thisform.list1.RowSource="SELECTyuanb.dm,yuanb.ypmc,yuanb.gg,yuanb.dwFROMyuanbwherecdisplayvalue$yuanb.dmintocursorxxx" thisform.list1.value=1 thisform.lockscreen=.f. endi endi ENDIF3.3查詢?cè)O(shè)計(jì)3.3.1衛(wèi)生室購(gòu)藥查詢：可以通過(guò)查詢得到各衛(wèi)生室及門(mén)診部用藥狀況，可以運(yùn)用日期來(lái)查詢起止日期內(nèi)某個(gè)單位用藥狀況。某些實(shí)當(dāng)代碼如下：查詢.clickthisform.c1.rowsource="selectdistinctgydwfromck1noconsleintocursorxxx"thisform.t1.value=date()-30thisform.t2.value=date()seleck1setfilttogydw=allt(thisform.c1.value)andrq>=thisform.t1.valueandrq<=thisform.t2.valuegotopthisform.refresh3.3.2可以合計(jì)查詢某個(gè)單位或科室在某一時(shí)期內(nèi)購(gòu)入藥物共計(jì)，對(duì)于衛(wèi)生室管理具備相稱大作用。詳細(xì)查詢代碼實(shí)現(xiàn)如下：查詢.clickseleltongjdeleallseledistinctgydwfromck1intocursorxxxseleltongjappefromdbf("xxx")scan seleck1 sumdj*gysltoaaforlb<>"中草藥"andgydw=ltongj.gydwandrq>=thisform.r1.valueandrq<=thisform.r2.value sumdj*gysltobbforlb="中草藥"andgydw=ltongj.gydwandrq>=thisform.r1.valueandrq<=thisform.r2.value seleltongj replxywithaa,zhcywithbb,hjwithaa+bb,rqwithallt(dtoc(thisform.r1.value))+allt(dtoc(thisform.r2.value))endscanseleltongjsumxytoaathisform.xy.value=str(aa,14,2)sumzhcytoaathisform.zhcy.value=str(aa,14,2)sumhjtoaathisform.hj.value=str(aa,14,2)thisform.list1.rowsourcetype=2thisform.list1.rowsource="ltongj"某品種藥物模糊查詢：在忘掉某種藥物代碼時(shí)，可以用這個(gè)查詢來(lái)查找某種藥物代碼和名稱，可以按代碼查詢，也可以按名稱查詢，非常簡(jiǎn)便易用。某些查詢代碼如下：查詢.clickifthisform.list1.listcount>=1 fori=1tothisform.list1.listcount thisform.list1.removeitem(1) endfendi ifthisform.optiongroup1.value=1 thisform.list1.rowsource="selectdm,ypmc,gg,dwfromyuanbwherellmc$dmintocursorxxx"else thisform.list1.rowsource="selectdm,ypmc,gg,dwfromyuanbwherellmc$ypmcintocursorxxx"endi藥名購(gòu)藥籌劃界面：這個(gè)界面使用使購(gòu)藥更加以便，并且可以保存為EXCEL文獻(xiàn)加以修改和保存。如下為保存為EXCEL文獻(xiàn)某些代碼：gcdelimfile=putfile('delimitedfile:'，(dtoc(date()))+"購(gòu)藥籌劃"，'XLS')ifempty(gcdelimfile)&&按了esc鍵cancelendifcopyto&gcdelimfile..xlsfor!dele()typexl5selejyjhdeleall3.4報(bào)表輸出設(shè)計(jì)：關(guān)于輸出信息使用方面內(nèi)容涉及使用科室，目，復(fù)寫(xiě)份數(shù)，保管辦法，有效期等；使用專用紙；采用針式打印機(jī)，輸出信息內(nèi)容涉及輸出項(xiàng)目，位數(shù)，數(shù)據(jù)形式。報(bào)表輸出實(shí)現(xiàn)功能模塊：在生成數(shù)據(jù)后來(lái)直接打印數(shù)據(jù)，其中預(yù)覽略圖如下：購(gòu)入藥物總報(bào)告表：購(gòu)入藥物報(bào)表普通為三份。出庫(kù)藥物報(bào)表：本報(bào)表一式三聯(lián)。銷藥合計(jì)記錄報(bào)表：3.5備份設(shè)計(jì)數(shù)據(jù)備份：在系統(tǒng)退出時(shí)自動(dòng)備份，這樣做可以減輕操作，保證數(shù)據(jù)完整性。*Bf.prg*localbf1BF1=0lpath=lnpath+"\bf\"SETDEFAULTTO&lpathifmonth(date())>=10 ll=allt(str(month(date())))else ll=allt("0"+allt(str(month(date()))))endiifday(date())>=10 nn=allt(str(day(date())))else nn=allt("0"+allt(str(day(date())))) endiml=allt(str(year(date())))+ll+nn mm=adir(agetdir,'','d')fori=1tommifagetdir(i,1)=mlbf1=1elsebf1=2endiendflpath=lnpath+'\data\'ifbf1=2md&mlcopyfile&lpath.\yuanb.dbfto&ml.\yuanb.dbfcopyfile&lpath.\yuanb.fptto&ml.\yuanb.fptcopyfile&lpath.\yuanb.cdxto&ml.\yuanb.cdxcopyfile&lpath.\yuanb2.cdxto&ml.\yuanb2.cdxcopyfile&lpath.\yuanb2.dbfto&ml.\yuanb2.dbfcopyfile&lpath.\kl.dbfto&ml.\kl.dbfcopyfile&lpath.\ck1.dbfto&ml.\ck1.dbfcopyfile&lpath.\gr1.dbfto&ml.\gr1.dbfendiifbf1=1 delefile&ml.\yuanb.dbf delefile&ml.\yuanb2.dbf delefile&ml.\kl.dbf delefile&ml.\ck1.dbf delefile&ml.\gr1.dbfcopyfile&lpath.\yuanb.dbfto&ml.\yuanb.dbfcopyfile&lpath.\yuanb.fptto&ml.\yuanb.fptcopyfile&lpath.\yuanb.cdxto&ml.\yuanb.cdxcopyfile&lpath.\yuanb2.dbfto&ml.\yuanb2.dbfcopyfile&lpath.\yuanb2.cdxto&ml.\yuanb2.cdxcopyfile&lpath.\kl.dbfto&ml.\kl.dbfcopyfile&lpath.\ck1.dbfto&ml.\ck1.dbfcopyfile&lpath.\gr1.dbfto&ml.\gr1.dbf endiSETDEFAULTTO&lnpath備份程序自動(dòng)為備份數(shù)據(jù)選取文獻(xiàn)夾，自動(dòng)以當(dāng)前時(shí)期作為文獻(xiàn)夾名稱，即以便了使用，又可以使后來(lái)工作更加以便。第四某些：系統(tǒng)測(cè)試測(cè)試辦法種類諸多，什么黑盒呀，白盒測(cè)試呀！一定要打到適合自己才最佳，我這里重要運(yùn)用了如下兩種測(cè)試，一種是運(yùn)營(yíng)測(cè)試，一種是模塊測(cè)試。4.1模塊測(cè)試：模塊測(cè)試是測(cè)試程序模塊及其接口與設(shè)計(jì)闡明規(guī)定與否一致，目是發(fā)現(xiàn)程序編寫(xiě)階段錯(cuò)誤，它以單個(gè)程序模塊為測(cè)試單位，然后逐漸擴(kuò)大為多模塊子系統(tǒng)，但不是該軟件所有。在測(cè)試過(guò)程中，雖然發(fā)現(xiàn)某些小問(wèn)題，但一下子就解決掉了，我印象最新是在設(shè)計(jì)查詢模塊時(shí)，常浮現(xiàn)數(shù)據(jù)庫(kù)打開(kāi)錯(cuò)誤。在做好備份文獻(xiàn)時(shí)，用命令語(yǔ)言去實(shí)現(xiàn)數(shù)據(jù)復(fù)制時(shí)，就是通但是，我找了好久，才發(fā)現(xiàn)是相對(duì)途徑與絕對(duì)途徑問(wèn)題。最后，搞好了，又發(fā)現(xiàn)把這個(gè)子程序放到別目錄下時(shí)，又浮現(xiàn)了問(wèn)題。實(shí)在沒(méi)有辦法，我調(diào)用了DOS命令去實(shí)現(xiàn)，雖然這其中稍微復(fù)雜了一點(diǎn)，但問(wèn)題是解決了。4.2系統(tǒng)測(cè)試：系統(tǒng)測(cè)試是對(duì)該軟件系統(tǒng)做整體測(cè)試，也稱整體測(cè)試，目在于發(fā)現(xiàn)設(shè)計(jì)階段構(gòu)造錯(cuò)誤，如模塊接口定義缺陷等，這個(gè)測(cè)試我是把各個(gè)子程序有機(jī)結(jié)合起來(lái)，連接成一種整體系統(tǒng)，在測(cè)試過(guò)程之中，我發(fā)現(xiàn)界面差錯(cuò)不齊，很不統(tǒng)一。最后通過(guò)重復(fù)修改才逐漸完善起來(lái)。最后定型就是你所看到。第五某些：總結(jié)5.1系統(tǒng)功能完畢狀況從系統(tǒng)功能完畢狀況方面考慮，這個(gè)管理系統(tǒng)應(yīng)當(dāng)說(shuō)是比較成功，功能也比較完善，界面也不錯(cuò)，有記錄輸入、查詢、數(shù)據(jù)報(bào)表輸出及數(shù)據(jù)記錄備份，不論從指引教師或同窗方面評(píng)價(jià)是比較高，如果稍做些修改，可以加入到別企事業(yè)單位系統(tǒng)里面，作為藥物管理查詢系統(tǒng)補(bǔ)充。5.2存在問(wèn)題固然，一種程序，一種系統(tǒng)不也許盡善盡美，由于學(xué)生我還要參加十月份本科考試，時(shí)間方面有所制約。局限性之處，但愿你批評(píng)指正，以便修改完善。不論好，還是差。下次，考試過(guò)后我會(huì)逐漸去完善，去補(bǔ)充這個(gè)系統(tǒng)局限性某些。5.3本次體會(huì)與心得編一種完整系統(tǒng)，寫(xiě)上這樣多頁(yè)文檔，我還是第一次，最重要是：我在做這個(gè)綜合伙業(yè)時(shí)，把此前學(xué)內(nèi)容又重溫了一遍，學(xué)得更透，更深，更全面了。尚有一點(diǎn)，由于做這個(gè)作業(yè)，不懂得，我有時(shí)到網(wǎng)上某些討論組里去發(fā)貼子，向高手請(qǐng)教，因而結(jié)識(shí)了好幾種在計(jì)算機(jī)領(lǐng)域工作朋友。讓我懂得，不會(huì)一定要問(wèn)，學(xué)無(wú)止境，有時(shí)我在編一大堆程序，還不如人家三、二句功能強(qiáng)。也因而懂得諸多關(guān)于計(jì)算機(jī)領(lǐng)域某些狀況，讓我學(xué)到諸多課本上學(xué)不到東西。這一門(mén)課，讓我學(xué)到了不少東西。第六某些：附錄6.1附錄一（主程序命令代碼）：#DEFINECY14#DEFINEGY7setconsoleoffclosallsetdeleonsetsafeoffsetexacoffsetsysmenuoffsetstatusbaroffonshutdownquitcCurrentProcedure=SYS(16,1)nPathStart=AT(":",cCurrentProcedure)-1nLenOfPath=RAT("\"，cCurrentProcedure)-(nPathStart)SETDEFAULTTO(SUBSTR(cCurrentProcedure，nPathStart，nLenofPath))zoomwindowscreenmaxtit='藥物批發(fā)系統(tǒng)'modiwindowscreentitletit_screen.alwaysontop=.f.publicxingm,check,lnpathlnpath=SUBSTR(cCurrentProcedure，nPathStart，nLenofPath)check=.f.xingm=""usedata\ckpackuseusedata\ltongjpackuseusedata\zbdeleallpackuseusedata\grpackuseusedata\nquerypackusesetexclofftit="淄川區(qū)淄河鎮(zhèn)衛(wèi)生院藥物批發(fā)系統(tǒng)"modiwindowscreentitletit_screen.closable=.t._screen.icon="phone01.ico"_screen.picture="001.jpg"_screen.closable=.f.doprg\bh.prgdoformscx\kl1readeventsdoprg\checkbh1 setsysmenunosave大小寫(xiě)轉(zhuǎn)換程序（js.prg）ParameterHJ,HJDhjd=""ifhj<0 hj=-hj hjd="負(fù)"endiDIMErmb(10)rmb(1)="佰"rmb(2)="拾"rmb(3)="萬(wàn)"rmb(4)="仟"rmb(5)="佰"rmb(6)="拾"rmb(7)="元"rmb(8)=""rmb(9)="角"rmb(10)="分"DIMEchp(10)chp(1)="壹"chp(2)="貳"chp(3)="叁"chp(4)="肆"chp(5)="伍"chp(6)="陸"chp(7)="柒"chp(8)="捌"chp(9)="玖"chp(10)="零"DIMEjg(10)FORi=1TO10jg(i)=""ENDFIFVAL(SUBS(STR(hj,10,2),1,1))=0jg(1)=""ELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),1,1))=ijg(1)=chp(i)+rmb(1)elsejg(1)=""ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),2,1))=0IFVAL(SUBS(STR(hj,10,2),1,1))=0jg(2)=""ELSEjg(2)=chp(10)ENDIELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),2,1))=ijg(2)=chp(i)+rmb(2)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),3,1))=0IFVAL(SUBS(STR(hj,10,2),1,1))=0.and.val(SUBS(STR(hj,10,2),2,1))=0IFVAL(SUBS(STR(hj,10,2),2,1))=0jg(3)=""ELSEjg(3)=chp(10)ENDIELSEjg(3)=rmb(3)ENDIELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),3,1))=ijg(3)=chp(i)+rmb(3)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),4,1))=0IFVAL(SUBS(STR(hj,10,2),3,1))=0jg(4)=""ELSEjg(4)=chp(10)ENDIELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),4,1))=ijg(4)=chp(i)+rmb(4)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),5,1))=0IFVAL(SUBS(STR(hj,10,2),4,1))=0jg(5)=""ELSEjg(5)=chp(10)ENDIELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),5,1))=ijg(5)=chp(i)+rmb(5)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),6,1))=0IFVAL(SUBS(STR(hj,10,2),5,1))=0jg(6)=""ELSEjg(6)=chp(10)ENDIELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),6,1))=ijg(6)=chp(i)+rmb(6)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),7,1))=0IFVAL(SUBS(STR(hj,10,2),6,1))=0jg(7)=""ENDIELSEFORi=1TO10IFVAL(SUBS(STR(hj,10,2),7,1))=ijg(7)=chp(i)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),9,1))=0IFVAL(SUBS(STR(hj,10,2),10,1))=0jg(9)=""ELSEIFHJ>0jg(9)=CHP(10)ELSEjg(9)=""ENDIENDIELSEFORi=1TO9IFVAL(SUBS(STR(hj,10,2),9,1))=ijg(9)=chp(i)+RMB(9)ENDIENDFENDIIFVAL(SUBS(STR(hj,10,2),9,1))=0jg(10)=""ENDIFORi=1TO10IFVAL(SUBS(STR(hj,10,2),10,1))=ijg(10)=chp(i)+rmb(10)ENDIENDFIFhj>=1ifint(hj)=hjjg(8)=rmb(7)+"整"ELSEJG(8)=RMB(7)ENDIELSEjg(8)=rmb(8)ENDIFORi=1TO10hjd=ALLT(hjd)+ALLT(jg(i))ENDFretuhjd菜單用生成器生成，重要程序代碼如下：**************************************************************菜單定義******************************************