【導(dǎo)讀】藥品信息管理系統(tǒng)是在。理化、科學(xué)化，其實(shí)用性強(qiáng)，用戶(hù)界面友好。息技術(shù)和應(yīng)用，一些經(jīng)濟(jì)發(fā)達(dá)國(guó)家信息產(chǎn)業(yè)發(fā)展迅速。當(dāng)前，我國(guó)處于國(guó)民經(jīng)濟(jì)。各行各業(yè)將面臨信。息應(yīng)用研究與發(fā)展的大課題以及信息化技術(shù)改造的大任務(wù)、大工程。量動(dòng)態(tài)信息難以及時(shí)、準(zhǔn)確、全面地獲得。作人員的工作量，提高效率。為了適應(yīng)信息技術(shù)應(yīng)用大眾化的趨勢(shì)，提高應(yīng)用技。習(xí)能發(fā)揮作用，另一方面，也能解決單位當(dāng)前所面臨的一些實(shí)際問(wèn)題。理人員從繁重的勞動(dòng)中解放出來(lái)，特編制本系統(tǒng)。在微機(jī)上使用的關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)有Dbase、FoxBASE+、Clipper、Oracle等等，DBASEII、Dbaseiii、DBASEIIIPLUS、DBASEIV）、DBASEIII曾被譽(yù)為“大眾數(shù)據(jù)。1986年6月美國(guó)的FOXSOFTWARE公司成功地在DBASE的基礎(chǔ)上推出。Macintoch操作平臺(tái)的32位版本。根本不作修改就可運(yùn)行在90年代的操作系統(tǒng)WINDOWS等圖形界面下”。1995年6月，微軟公司推出了VISUALFORWINDOWS. VFP5專(zhuān)用版面向?qū)ο蟮臄?shù)據(jù)庫(kù)開(kāi)發(fā)系統(tǒng)繼承了VFP3傳統(tǒng)優(yōu)勢(shì)，它具有。ActiveX擴(kuò)展，增加了一些功能，改進(jìn)了連接特點(diǎn)和增加了開(kāi)發(fā)環(huán)境。發(fā)者帶來(lái)了極大的方便。

　　

【正文】 組合，它還應(yīng)該包括供應(yīng)、銷(xiāo)售、市場(chǎng)營(yíng)銷(xiāo)、客戶(hù)服務(wù)、需求預(yù)測(cè)，以及其他更多的東西。如果一個(gè) ERP 系統(tǒng)真正想要最大限度地提高其生產(chǎn)能力，它必須能夠非常融洽地和其他關(guān)鍵性的商務(wù)領(lǐng)域進(jìn)行交流。 當(dāng)前 , 隨著經(jīng)濟(jì)的全球化以及中國(guó)經(jīng)濟(jì)改革的逐漸深化，制造業(yè)面臨著越來(lái)越激烈的競(jìng)爭(zhēng)，改善企業(yè)內(nèi)部以及整個(gè)供應(yīng)鏈各個(gè)環(huán)節(jié)的管理、調(diào)度及資源配置，迅速適應(yīng)客戶(hù)的新需求和市場(chǎng)新機(jī)遇的能力，是中國(guó)企業(yè)贏得競(jìng)爭(zhēng)勝利的決定性因素 。設(shè)計(jì)本系統(tǒng)正是為了適應(yīng)這種形勢(shì)。在有限的時(shí)間內(nèi)憑個(gè)人 之力是很難實(shí)現(xiàn)所有的功能。因此系統(tǒng)有基本目標(biāo)和長(zhǎng)遠(yuǎn)目標(biāo)。系統(tǒng)設(shè)計(jì)基本的目標(biāo)是盡可能實(shí)現(xiàn)物流控制自動(dòng)化，長(zhǎng)遠(yuǎn)目標(biāo)是實(shí)現(xiàn) ERP 管理。 系統(tǒng)投入使用后，將大大減少公司的管理部門(mén)的勞動(dòng)量， 改善 了 企業(yè)內(nèi)部以及整個(gè)供應(yīng)鏈各個(gè)環(huán)節(jié)的管理、調(diào)度及資源配置 ，使得管理合理規(guī)范。盡量合理的控制物流，尤其是材料庫(kù)存的控制，將材料控制到只在需要的時(shí)候向需要的部門(mén)按需要的數(shù)量，提供所需要的物料，也就是說(shuō)，它既防止物料供應(yīng)滯后于對(duì)他們的要求，也防止了物料過(guò)早地出產(chǎn)和進(jìn)貨，以免增加庫(kù)存，造成物資和資金的積壓。 本系統(tǒng)采用 Vfp 為主要開(kāi)發(fā) 工具，結(jié)合 NT 操作系統(tǒng)。既考慮了系統(tǒng)的需求，又兼顧了運(yùn)行的效率，以及今后系統(tǒng)的功能拓展等。具有運(yùn)行效率、開(kāi)發(fā)周期短、擴(kuò)展能力強(qiáng)、技術(shù)規(guī)范等特點(diǎn)。 主要技術(shù)包括： 財(cái)務(wù)上的存貨概念知識(shí) 生產(chǎn)與運(yùn)作管理知識(shí) ● 關(guān)系數(shù)據(jù)庫(kù)技術(shù) 當(dāng)然，系統(tǒng)還有需要改進(jìn)的地方。例如本系統(tǒng)的幫助系統(tǒng)還很欠缺。這一點(diǎn)對(duì)于沒(méi)有電腦操作經(jīng)驗(yàn)的使用者來(lái)說(shuō)是很重要的。 8． 2心得體會(huì) 通過(guò)本青雅管理系統(tǒng)的開(kāi)發(fā)，我對(duì)軟件開(kāi)發(fā)過(guò)程有了更清晰的了解，首先是問(wèn)題定義、需求分析，然后是功能設(shè)計(jì)、詳細(xì)設(shè)計(jì)等，并對(duì)軟件測(cè)試的方法、手段有了較深的理解 ，同時(shí)對(duì)制造業(yè)的流程有了一個(gè)系統(tǒng)的認(rèn)識(shí)。在開(kāi)發(fā)過(guò)程還認(rèn)真學(xué)習(xí)了與系統(tǒng)相關(guān)的知識(shí)，極大地拓寬了我的知識(shí)面 ,我感到收獲不小。 在系統(tǒng)的開(kāi)發(fā)初期，必須要熟悉企業(yè)的管理流程，初步了解 ERP 的相關(guān)知識(shí)，這樣才能進(jìn)入到設(shè)計(jì)的過(guò)程中去。從開(kāi)始熟悉這些知識(shí)到對(duì)整體設(shè)計(jì)有了解，再?gòu)母乓O(shè)計(jì)、詳細(xì)設(shè)計(jì)到開(kāi)始編碼，以及最后的測(cè)試，整個(gè)過(guò)程感覺(jué)很充實(shí)，雖然遇到了不少困難，但當(dāng)我通過(guò)自己查資料、或是向指導(dǎo)老師請(qǐng)教以及向同事請(qǐng)教，而設(shè)計(jì)出解決方案并成功實(shí)現(xiàn)時(shí)，那種成就感和滿足感足以鼓勵(lì)自己加班加點(diǎn)的辛苦。 因?yàn)橐郧坝羞^(guò)使用 VFP 設(shè)計(jì)管 理軟件的經(jīng)驗(yàn)，在這次設(shè)計(jì)的過(guò)程中，我遇到專(zhuān)業(yè)知識(shí)方面的困難不是非常多，主要困難集中在管理知識(shí)、財(cái)務(wù)知識(shí)等方面的不足上。尤其是財(cái)務(wù)方面的知識(shí)，比如按月加權(quán)平均算法的實(shí)現(xiàn)，怎樣處理材料收發(fā)存金額計(jì)算的誤差等，在實(shí)際的開(kāi)發(fā)中我深刻的體會(huì)到了自己做課程設(shè)計(jì)和實(shí)際客戶(hù)的要求之間的距離，比如金額問(wèn)題，一般存儲(chǔ)單價(jià)保存小數(shù)點(diǎn)后 4 位即可，精確一點(diǎn)的保存到 6 位，但是不管是四位還是六位，當(dāng)數(shù)據(jù)達(dá)到萬(wàn)或十萬(wàn)時(shí)，總帳和明細(xì)帳之間必然會(huì)產(chǎn)生誤差，而財(cái)務(wù)上要求的是一份錢(qián)都不能差，這是我當(dāng)時(shí)遇到的最束手無(wú)策問(wèn)題，整整查了兩天的有關(guān)于財(cái)務(wù)做帳的規(guī)定及特殊情況的處理知識(shí)，又和項(xiàng)目主管進(jìn)行了詳細(xì)的討論之后才使這個(gè)問(wèn)題得以解決。 還有就是操作界面的方面問(wèn)題，盡管在設(shè)計(jì)的過(guò)程中，我們時(shí)刻考慮到了操作界面的友好性，但實(shí)際情況是遠(yuǎn)遠(yuǎn)不能滿足客戶(hù)的要求，考慮到軟件使用群體將是一群幾乎沒(méi)有任何電腦操作經(jīng)驗(yàn)的人，我們正在考慮設(shè)計(jì)出一種傻瓜式的界面。 經(jīng)過(guò)這 3 個(gè)月的畢業(yè)設(shè)計(jì)實(shí)習(xí)，確實(shí)學(xué)到了不少的東西，同時(shí)也深感自己知識(shí)的欠缺。雖然即將畢業(yè)，但在以后的學(xué)習(xí)工作中，一定要繼續(xù)堅(jiān)持不段地學(xué)習(xí)新興的專(zhuān)業(yè)知識(shí)及相關(guān)的非專(zhuān)業(yè)知識(shí)，只有這樣才能緊跟時(shí)代的潮流。 第七章 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師 老師身上學(xué)到了很多東西。 老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中 老師的助手 老師也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 第八章 附錄 一、 程序 * * This file is a generated, frameworkenabling ponent * created by APPBUILDER * (c) Microsoft Corporation * Frameworkgenerated application startup program * for C:\YYGL\YYGL Project INCLUDE [..\] IF TYPE([]) = C AND 。 UPPER() == UPPER(APP_CLASSNAME) MESSAGEBOX(APP_ALREADY_RUNNING_LOC,48, 。 ) IF VARTYPE() = O () ENDIF RETURN ENDIF RELEASE APP_GLOBAL PUBLIC APP_GLOBAL LOCAL lcLastSetTalk, llAppRan, lnSeconds, loSplash LOCAL ARRAY laCheck[1] lcLastSetTalk=SET(TALK) loSplash = .NULL. SET TALK OFF IFDEF APP_SPLASHCLASS IF NOT EMPTY(APP_SPLASHCLASS) loSplash = NEWOBJECT(APP_SPLASHCLASS, APP_SPLASHCLASSLIB) IF VARTYPE(loSplash) = O lnSeconds = SECONDS() () ENDIF ENDIF ENDIF APP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB) IF VARTYPE(APP_GLOBAL) = O 。 AND ACLASS(laCheck,APP_GLOBAL) 0 AND 。 ASCAN(laCheck,UPPER(APP_SUPERCLASS)) 0 =[APP_GLOBAL] = APP_MEDIATOR_NAME IFDEF APP_CD APP_CD ENDIF IFDEF APP_PATH APP_PATH ENDIF IFDEF APP_INITIALIZE APP_INITIALIZE ENDIF IF VARTYPE(loSplash) = O IF SECONDS() lnSeconds + APP_SPLASHDELAY =INKEY(APP_SPLASHDELAY(SECONDS()lnSeconds),MH) ENDIF () loSplash = .NULL. ENDIF RELEASE laCheck, loSplash, lnSeconds IF NOT () IF TYPE([]) = C MESSAGEBOX(APP_CANNOT_RUN_LOC,16, 。 ) () ELSE MESSAGEBOX(APP_CANNOT_RUN_LOC,16) ENDIF ELSE llAppRan = .T. ENDIF IF TYPE([]) = L IF * the Release() method was not used * but we39。ve somehow gotten out of READ EVENTS... () ENDIF ELSE RELEASE APP_GLOBAL ENDIF ELSE MESSAGEBOX(APP_WRONG_SUPERCLASS_LOC,16) RELEASE APP_GLOBAL ENDIF IF lcLastSetTalk==ON SET TALK ON ELSE SET TALK OFF ENDIF IF TYPE([APP_GLOBAL]) = O * nonread events app RETURN APP_GLOBAL ELSE RETURN llAppRan ENDIF inname=alltrim() indate=alltrim() indept=alltrim() indoct=alltrim() inroom=alltrim() select patient_name as 藥品名稱(chēng) ,。 patient_gender as 分類(lèi) ,。 patient_date_start as 入庫(kù)時(shí)間 ,。 patient_dept as 劑型 ,。 patient_state as 英文名稱(chēng) ,。 patient_doc as 單價(jià) ,。 patient_room as 存量 ,。 patient_bed as 助記符 。 from patient。 where patient_name=inname。 and patient_date_start=indate。 and patient_dept=indept。 and patient_doc=indoct。 and patient_room=inroom inname=alltrim() indate=alltrim() indept=alltrim() indoct=alltrim() inroom=alltrim() select patient_name as 藥品名稱(chēng) ,。 patient_gender as 分類(lèi) ,。 patient_date_start as 入庫(kù)時(shí)間 ,。 patient_dept as 劑型 ,。 patient_state as 英文名稱(chēng) ,。 patient_doc as 單價(jià) ,。 patient_room as 存量 ,。 patient_bed as 助記符 。 from patient。 where patient_name=inname。 and patient_date_start=indate。 and patient_dept=indept。 and patient_doc=indoct。 and patient_room=inroom。 inname=alltrim() ingend=alltrim() indate=alltrim() indept=alltrim() instat=alltrim() indoct=alltrim() inroom=alltrim() inbedd=alltrim() cMessageTitle=39。管理系統(tǒng) 39。 cMessageText=39。確定要添加嗎？ 39。 nDialogType=4+32 nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 set order to patient_na seek inname if !found() insert into patient values (inname,ingend,indate,indept,instat,indoct,inroom,inbedd) messagebox(添加完畢 ,48,操作成功 ) else messagebox(藥品名稱(chēng)重復(fù) ,48,錯(cuò)誤 ) endif =39。39。 =39。39。 =39。39。 =39。39。 =39。39。