管理信息系統(tǒng)課程設(shè)計(jì) 醫(yī)藥管理信息系統(tǒng)

1、目錄一、項(xiàng)目說(shuō)明2 二、系統(tǒng)分析4 三、系統(tǒng)設(shè)計(jì)5 四、程序設(shè)計(jì)14 五、系統(tǒng)測(cè)試37六、設(shè)計(jì)總結(jié)38 七、參考文獻(xiàn)、致謝39醫(yī)藥銷(xiāo)售系統(tǒng)課程設(shè)計(jì)報(bào)告一、項(xiàng)目說(shuō)明（一）項(xiàng)目背景隨著中國(guó)經(jīng)濟(jì)的快速發(fā)展，醫(yī)藥生產(chǎn)企業(yè)迫切需要采用新的銷(xiāo)售管理方法來(lái)加強(qiáng)內(nèi)部醫(yī)藥代表管理和客戶管理，高效的處理銷(xiāo)售業(yè)務(wù)，掌握銷(xiāo)售狀況，降低運(yùn)作成本。同時(shí)醫(yī)藥代表也希望有方便實(shí)用的工具，以便進(jìn)行各類(lèi)數(shù)據(jù)的查詢，管理以及提交。以往的醫(yī)藥信息管理系統(tǒng)由于技術(shù)的限制，已經(jīng)無(wú)法適應(yīng)醫(yī)藥的發(fā)展。因此開(kāi)發(fā)新的醫(yī)藥系統(tǒng)迫在眉睫。醫(yī)藥銷(xiāo)售管理系統(tǒng)用于管理與藥品相關(guān)的信息與活動(dòng)，但不包括產(chǎn)品信息、庫(kù)存數(shù)據(jù)與銷(xiāo)售活動(dòng)。使用了基于Visual F

2、oxPro 技術(shù)為系統(tǒng)奠定了安全、穩(wěn)定、高效、炫麗的技術(shù)基礎(chǔ)。給公司提供方便，穩(wěn)定的服務(wù)。（二）使用環(huán)境醫(yī)藥企業(yè)的市場(chǎng)營(yíng)銷(xiāo)環(huán)境是一個(gè)復(fù)雜的系統(tǒng)工程，它由相互作用、互相依賴的若干要素組成。一般可以分為內(nèi)部和外部或宏觀和微觀兩個(gè)方面?，F(xiàn)分別介紹如下。(1宏觀營(yíng)銷(xiāo)環(huán)境：醫(yī)藥企業(yè)宏觀營(yíng)銷(xiāo)環(huán)境，是指影響企業(yè)生產(chǎn)經(jīng)營(yíng)的經(jīng)濟(jì)環(huán)境、科技環(huán)境、政治法律環(huán)境、社會(huì)文化環(huán)境和自然環(huán)境等要素（詳細(xì)內(nèi)容參閱本章余下內(nèi)容）。它們共同組成了企業(yè)生產(chǎn)經(jīng)營(yíng)的制約力量，具體地規(guī)定或引導(dǎo)企業(yè)生產(chǎn)什么、生產(chǎn)多少、如何生產(chǎn)、如何銷(xiāo)售等。用在通常意義上說(shuō)，這是企業(yè)不可控制的因素，只能順應(yīng)它、利用它，而較少地能夠改變它。這幾個(gè)方面的內(nèi)容各

3、自又可細(xì)分為若干個(gè)子項(xiàng)目，也都會(huì)直接或間接、有形或無(wú)形地影響著企業(yè)的生產(chǎn)經(jīng)營(yíng)活動(dòng)。因此，醫(yī)藥企業(yè)在進(jìn)行市場(chǎng)營(yíng)銷(xiāo)環(huán)境分析時(shí)，首先應(yīng)對(duì)外部宏觀環(huán)境進(jìn)行科學(xué)嚴(yán)謹(jǐn)?shù)恼{(diào)查研究，以期把不利變?yōu)橛欣?，使其營(yíng)銷(xiāo)活動(dòng)完全符合環(huán)境的要求。(2微觀營(yíng)銷(xiāo)環(huán)境：醫(yī)藥企業(yè)市場(chǎng)營(yíng)銷(xiāo)微觀環(huán)境是指對(duì)企業(yè)營(yíng)銷(xiāo)活動(dòng)產(chǎn)生直接影響的介于 4Ps 策略與宏觀環(huán)境之間的一種營(yíng)銷(xiāo)環(huán)境，它包括營(yíng)銷(xiāo)部門(mén)所在的企業(yè)、供應(yīng)商、營(yíng)銷(xiāo)中介、顧客、信息、競(jìng)爭(zhēng)者和公眾等因素。一個(gè)企業(yè)能否成功地開(kāi)展?fàn)I銷(xiāo)活動(dòng)，不僅取決于能否適應(yīng)宏觀環(huán)境的變化，適應(yīng)和供應(yīng)者環(huán)境是指那些向醫(yī)藥企業(yè)提供開(kāi)展市場(chǎng)營(yíng)銷(xiāo)活動(dòng)所需物資與資金的企業(yè)的狀況。醫(yī)藥企業(yè)的營(yíng)銷(xiāo)活動(dòng)，包括供、產(chǎn)、銷(xiāo)各

4、個(gè)不同環(huán)節(jié)，都需要大量的物資與資金作保證，因而需要許多部門(mén)或企業(yè)為之服務(wù)，為之供應(yīng)所需的一切。通常醫(yī)藥企業(yè)的供應(yīng)者有以下成員組成： 資源供應(yīng)者。他們生產(chǎn)醫(yī)藥企業(yè)所需要的機(jī)械設(shè)備、原材料、能源及零部件等生產(chǎn)資源，或者提供所需的資金，并把這些資源供應(yīng)給企業(yè)。 物資供應(yīng)商。物資供應(yīng)商即物資經(jīng)營(yíng)部門(mén)，他們收購(gòu)生產(chǎn)企業(yè)生產(chǎn)的各種物質(zhì)資料，再提供給需要這些產(chǎn)品的醫(yī)藥企業(yè)。 運(yùn)輸部門(mén)。他們把資源供應(yīng)者生產(chǎn)的物資運(yùn)送到物資供應(yīng)商或購(gòu)買(mǎi)的醫(yī)藥企業(yè)手中，也從物資供應(yīng)商那里把物資運(yùn)送給各個(gè)醫(yī)藥企業(yè)。 便利供應(yīng)部門(mén)，如保險(xiǎn)公司、咨詢機(jī)構(gòu)等，他們?yōu)槲镔Y的供應(yīng)提供各種方便條件，共同完成向醫(yī)藥企業(yè)提供物資與資金方面的任務(wù)。

5、影響微觀環(huán)境的變化也是非常重要的。以下是企業(yè)微觀營(yíng)銷(xiāo)環(huán)境主要內(nèi)容。（三）系統(tǒng)設(shè)計(jì)思想本系統(tǒng)的設(shè)計(jì)思想是，系統(tǒng)采用模塊化的程序設(shè)計(jì)方法，既便于系統(tǒng)功能的各種組合和修改，又便于管理人員的維護(hù)。系統(tǒng)應(yīng)具備數(shù)據(jù)庫(kù)維護(hù)功能，及時(shí)根據(jù)用戶的需求進(jìn)行數(shù)據(jù)的查詢、添加、刪除、修改等操作。（四）項(xiàng)目規(guī)劃（1）分工：組長(zhǎng)：xx ，進(jìn)行系統(tǒng)程序設(shè)計(jì)，完成連編，組織成員任務(wù)分配等系列工作。文秘：xxx ，負(fù)責(zé)課程設(shè)計(jì)報(bào)告，指導(dǎo)成員工作，負(fù)責(zé)打印等工作。 組員：xxx ，負(fù)責(zé)部分表單設(shè)計(jì)，制作表格等工作。 組員：xx ，負(fù)責(zé)部分表單設(shè)計(jì)，制作表格等工作。（2）進(jìn)度：2012年6月5日：分配小組，組織成員，進(jìn)行討論。20

6、12年6月6日：到圖書(shū)館查閱資料，確定主題，并進(jìn)行討論。 2012年6月7日至8號(hào)：完成系統(tǒng)設(shè)計(jì)，并完成連編，成功運(yùn)行系統(tǒng)。 2012年6月9號(hào)至10號(hào)：系統(tǒng)程序的檢驗(yàn)，完成課程設(shè)計(jì)報(bào)告，并檢查相關(guān)系統(tǒng)。二、系統(tǒng)分析（一） 組織模塊功能圖 （二）系統(tǒng)流程圖 三、系統(tǒng)設(shè)計(jì)（一）數(shù)據(jù)庫(kù)的設(shè)計(jì)在創(chuàng)建應(yīng)用系統(tǒng)之前，必須先考慮與數(shù)據(jù)有關(guān)的一些問(wèn)題。比如系統(tǒng)需要使用和處理哪些數(shù)據(jù)，這些數(shù)據(jù)組織成幾個(gè)表才方便程序的設(shè)計(jì)和用戶的使用，每個(gè)表需要設(shè)計(jì)哪些字段合適，每個(gè)字段應(yīng)該定義成什么數(shù)據(jù)類(lèi)型，需要建立哪些索引才便于操作等等。本系統(tǒng)共設(shè)計(jì)了7個(gè)表，分別是、藥品信息表（yaopinxinxi ） 、客戶信息表（k

7、ehuxinxi ）、供應(yīng)商表（gongyingshang ）、備忘錄信息表（beiwangluxinxi ）、藥品入庫(kù)信息表（rukuxinxi ）和藥品出庫(kù)信息表（chukuxinxi ）。用戶密碼表6（pass ）數(shù)據(jù)庫(kù)7個(gè)表的結(jié)構(gòu)分別如下：藥品信息表 供應(yīng)商表7 選擇系統(tǒng)菜單中“數(shù)據(jù)庫(kù)”菜單下的“新建表”選項(xiàng)建立新的數(shù)據(jù)庫(kù)后，“新建表”對(duì)話框中單擊“新建表”按鈕，按照如上分別建立這7個(gè)數(shù)據(jù)表。數(shù)據(jù)表都建立完成后，截圖如下： 8(二 創(chuàng)建主程序打開(kāi)mis 項(xiàng)目文件，在 “項(xiàng)目管理器-mis ”窗口中，單擊“代碼”選項(xiàng)卡，選中“程序”項(xiàng)，單擊項(xiàng)目管理器窗口右邊的“新建”按鈕。就可在新彈出的

8、程序代碼編輯窗口中輸入程序的以下代碼內(nèi)容，保存即可。public bwlbwl=substr(alltrim(sys(5+curdir(,1,len(alltrim(sys(5+curdir(-1set default to &bwl Set path toforms;progs;reports;menus;data;graphics;graphicspic;graphicsicoset exact on set confirm off set escape on set safety on set status off set scoreboard off set decimals

9、to 3 set talk offset sysformats on set century on set date to ansizoom window screen max close allrelease window 常用 set sysmenu to_screen.caption="歡迎使用醫(yī)藥營(yíng)銷(xiāo)系統(tǒng)" _screen.picture="14.jpg" _screen.minbutton=.f.9_screen.maxbutton=.f. _screen.controlbox=.f. do form fm.scx read even（三）Fm

10、.scx 系統(tǒng)密碼驗(yàn)證主表單設(shè)計(jì) 控件設(shè)置：（1）表單的“Load ”代碼：public ca,cb,cc &&設(shè)置全局變量，記錄RGB( 函數(shù)的自變量的值 ca=0 cb=0 cc=0（2）表單的“Unload ”代碼：release ca,cb,cc &&釋放全局變量標(biāo)簽主要屬性設(shè)置 10 public yhkl,yhname &&定義全局變量，記錄登錄用戶的名稱和密碼，以便系統(tǒng)分配用戶權(quán)限use pass &&打開(kāi)保存已注冊(cè)用戶的用戶名和密碼的表文件 *以下代碼是檢驗(yàn)用戶名稱和密碼loca all for lower(all

11、trim(yhm=lower(alltrim(yhname if eof(*不是合法注冊(cè)用戶，給出警告=messagebox('你不是合法注冊(cè)用戶！',0,' 真遺憾' return*用戶名正確，再檢驗(yàn)用戶密碼 lsyhlx=alltrim(yhlxif lower(alltrim(yhmm=lower(alltrim(yhkl usethisform.release set dele on set notify off set cent onset date to ansi close allRELEASE WINDOW 常用MODIFY WINDOW SCR

12、EEN TITLE " 醫(yī)藥銷(xiāo)售系統(tǒng) ver1.0 登錄用戶:"+yhname+"("+lsyhlx+""+" 今天是："+dtoc(date(_SCREEN.ICON="face05.ico"_SCREEN.picture="pc1.jpg"ZOOM WINDOW SCREEN MAX_SCREEN.controlbox=.f.do mainmenu.mpr &&當(dāng)用戶名和密碼都正確時(shí)，關(guān)閉當(dāng)前表單，運(yùn)行主菜單進(jìn)行系統(tǒng)else*不是合法注冊(cè)用戶，給出警告=m

13、essagebox('密碼不正確，請(qǐng)你再好好想想！',0,' 真遺憾' returnendifEndif(2“取消”按鈕的“Click ”事件代碼如下：thisform.releaseclear evenQuit(3“計(jì)時(shí)器”控件Interval 屬性為100?！癟imer ”代碼如下：if ca<255ca=ca+1elseca=90endifif cb<255cb=cb+1elsecb=180endifif cc<255cc=cc+1elsecc=1endifElseEndIfElseEndIfThisform.refresh（三）系統(tǒng)菜單

14、的設(shè)計(jì) （1）“系統(tǒng)管理”子菜單編輯為“密碼管理”、“-”“退出系統(tǒng)”“密碼管理”的過(guò)程代碼：set dele ondele all for len(alltrim(yhm=0loca all for alltrim(yhm=alltrim(yhnameif alltrim(yhlx="系統(tǒng)管理員"usedo form mmglelsenAnswer=messagebox('很抱歉! 您不是系統(tǒng)管理員無(wú)權(quán)查閱和更改用戶名和密碼!',0,' 警告!'usereturnEndif“退出系統(tǒng)”的過(guò)程代碼：ans=messagebox("確

15、信要退出系統(tǒng)嗎？",4," 確認(rèn)信息"if ans=6close allclear eventquitelsereturnEndif（2）“信息操作管理”子菜單編輯為“客戶信息管理”和“供應(yīng)商信息管理”“客戶信息管理”的過(guò)程代碼:use kehuxinxipackusedo form kehu“供應(yīng)商信息管理”的過(guò)程代碼:use gongyingshangpackusedo form gys（3）“藥品管理”子菜單編輯為“藥品入庫(kù)管理”和“藥品出庫(kù)管理”“藥品入庫(kù)管理”的過(guò)程代碼：use rukuxinxipackusedo form yprk“藥品出庫(kù)管理”的過(guò)

16、程代碼：use chukuxinxipackusedo form ypck（4）“記錄查詢”子菜單編輯為“藥品入庫(kù)查詢”和“藥品出庫(kù)查詢”“藥品入庫(kù)查詢”的過(guò)程代碼：use rukuxinxipackusedo form rkjl“藥品出庫(kù)查詢”的過(guò)程代碼：use chukuxinxipackusedo form ckjl(5“其他”子菜單編輯為“備忘錄”“備忘錄”的過(guò)程代碼：use beiwangluxinxipackusedo form bwl四、程序設(shè)計(jì)本系統(tǒng)除去主表單設(shè)計(jì)外，內(nèi)容表單分別有密碼管理表單、客戶信息表單、供應(yīng)商表單、藥品入庫(kù)表單、藥品出庫(kù)表單、入庫(kù)記錄查詢表單、出庫(kù)記錄查詢

17、表單、備忘錄表單等8個(gè)項(xiàng)目表單。其主要程序設(shè)計(jì)如下：（一）Mmgl.scx密碼管理表單設(shè)計(jì) （1）表單的主要屬性：AutoCenter=.T.BorderStyle=“2-固定對(duì)話框”Caption=“用戶密碼管理”Height=299Icon=“c:misgraphicsicocontrol panel.ico”MaxButton=.F.MinButton=.F.Width=582WindowState=0-普通（2）文本框的主要屬性：ControlSource=“無(wú)”Enabled=.f.FontName=“宋體”FontSize=11Height=25（3）組合框的主要屬性：BoundC

18、olumn=1ColumnWidths=“無(wú)”ControlSource=“無(wú)”Enabled=.f.FirstElement=1FontName=“宋體”FontSize=11Height=25Left=380ReadOnly=.f.RowSource=“系統(tǒng)管理員，普通用戶” RowSourceType=“1-值”SelectOnEntry=.t.Style=“0-下拉組合框”Top=258Width=114（4）表格控件的主要屬性：ColumnCount=3DeleteMark=.f.Enabled=.t.FontName=“宋體”FontSize=11GridLineColor=“0,

19、0,255”GridLineWidth=1HeaderHeight=20Height=223Left=9ReadOnly=.t.RecordMark=.t.RecordSource=“pass ”RecordSourceType=“1-別名” RowHeight=20Top=27Width=485（5）表單的“Init ”事件代碼：public xgbzhi,recxgbzhi=.f.rec=0set deleted onsele passif eof(.or.bof(nAnswer=messagebox('你還沒(méi)有選擇要?jiǎng)h除的注冊(cè)用戶記錄！請(qǐng)選定一個(gè)要?jiǎng)h除的用戶！',0,&#

20、39; 警告！'return endif deleif eof(.or.bof(nAnswer=messagebox('你還沒(méi)有選擇要修改的注冊(cè)用戶記錄！請(qǐng)選定一個(gè)要修改的用戶！',0,' 警告！'return endif（8）“增加”命令按鈕的“Click ”事件代碼：ifnAnswer=messagebox('用戶名、用戶密碼不能為空值！請(qǐng)?jiān)僮屑?xì)檢查一下！',0,' 警告！'returnreturnsele passdele all for len(alltrim(yhm=0 if xgbzhiset dele on

21、go rec delenAnswer=messagebox('用戶名已存在！請(qǐng)換改用其他名字！',0,' 警告！'set dele off go rec recallset dele on returnset dele off go rec recallnAnswer=messagebox('用戶名已存在！請(qǐng)換改用其他名字！',0,' 警告！'returnappe blank go bottrelease xgbzhi,rec（二）Kehu.scx客戶信息表單設(shè)計(jì) 控件設(shè)置： （1）“添加”按鈕的 Click事件代碼：If REC

22、COUNT(=0 then &&如果表中的記錄數(shù)為零，則客戶編號(hào)為1 kehubh=1Else &&如果表中的記錄數(shù)不為零，則客戶編號(hào)為最大客戶編號(hào)加1 Select MAX(bh as zuidabh From kehuxinxiinto cursortemp kehubh=zuidabh+1 EndifInsert Into kehuxinxi(bh,xm,dh,dzh,yx Values(a,b,c,d,e &&將輸入的信息插入表中（三）Gys.scx 供應(yīng)商信息表單的設(shè)計(jì) （1）“編號(hào)”文本框的 InteractiveChang事件代碼：

23、（3）“添加”按鈕的 Click事件代碼： *查詢編號(hào)有無(wú)重的Return &&提前結(jié)束本次過(guò)程 Endif*查詢單位名稱有無(wú)重的Seek mingcheng order gsmch IfFound(If bianhao<>"" and mingcheng<>"" then=Messagebox("請(qǐng)輸入編號(hào)和公司名稱！" Endif（4）“刪除”按鈕的 Click事件代碼： Select gongyingshangThisForm.Refresh（6）“退出”按鈕的 Click事件代碼： Th

24、isForm.Release（7）Form1 的 Init 過(guò)程代碼： set delete on &&設(shè)置刪除標(biāo)志有效（8）Form1 的 Deactivate過(guò)程代碼：*在關(guān)閉窗口時(shí)，將設(shè)置了邏輯刪除標(biāo)記的記錄物理刪除 IfUsed("gongyingshang "Then Select gongyingshangUse Endif Select 0Use gongyingshang Pack Use（四）Ypru.scx藥品入庫(kù)表單的設(shè)計(jì) 控件設(shè)置： &&藥品庫(kù)存一覽表的數(shù)據(jù)源是藥品信息表，查詢條件可以是模糊信息，查詢結(jié)果存入臨時(shí)表中。

25、&&其中查詢語(yǔ)句中的“%”是通配符，代表多個(gè)字符， “%+bh+% ”意思是只要條件中包含變量bh 代表的信息就符合條件。Select 藥品信息 &&選擇藥品信息表Seek bh Order ypbh &&查找編號(hào)按藥品編號(hào)排序Select 藥品信息Seek bltj Order ypmchSelect 藥品信息Seek bltj Order ypbhSelect 藥品信息Seek bltj Order yplySelect 藥品信息 Seek bltj Order jyySelect 藥品信息 Seek bltj Order lxr ENDCA

26、SEInsert Into rukujilu(ypbh,ypmch,yply,lxr,jhrq,zhl,shl,jj,pfj,shj values(blbh,blmch,blly,bllxr,DATETIME(,blzhl,blshl,bljj,blpfj,blshj && 將信息寫(xiě)入入庫(kù)記錄中 Select 藥品信息 &&選擇表藥品信息 Seek blbh Order ypbh&&查找藥品編號(hào)的值，如果找到，說(shuō)明表中有此藥品編號(hào)的相應(yīng)信息，沒(méi)找到則說(shuō)明此藥品編號(hào)是新藥品編號(hào)。IfFound( &&如果找到此藥品編號(hào)，則更新相關(guān)記

27、錄信息 Update 藥品信息Setypmch=blmch,shl=blshl+shl,jhrq=datetime(,yply=blly,yxrq=blqx, zhl=blzhl,lxr=bllxr,jj=bljj,shj=blshj,pfj=blpfj Where ypbh=blbh Else &&如果沒(méi)有找到此藥品編號(hào)，則插入相關(guān)記錄信息Insert Into 藥品信息(ypbh,ypmch,yply,lxr,jhrq,yxrq,zhl,shl,jj,pfj,shj Values(blbh,blmch,blly,bllxr,DATETIME(,blqx,blzhl,blsh

28、l,bljj,blpfj,blshj Endif（4）單擊 Grid 控件時(shí)的相關(guān)代碼放到了對(duì)象 Grid 的 Text1 的 Gotfocus 過(guò)程中，相關(guān) 代碼如下： Select 藥品信息（5） “退出”按鈕的代碼如下： ThisForm.Release（五）Ypck.scx藥品出庫(kù)表單的設(shè)計(jì) 控件設(shè)置： If not Used("kehuxinxi"Then &&如果表“kehuxinxi ”沒(méi)有打開(kāi)，則打開(kāi) Select0Use kehuxinxi EndifSelectkehuxinxi Seek chxbhOrder bhSeek chxbhO

29、rder ypbh（3）“數(shù)量”文本框 LostFocus 事件的代碼： Select 藥品信息（6）“新出庫(kù)”按鈕 Click事件的代碼： riqi=DTOS(DATE(Select distinct chkbh From chukuxinxi Where SUBSTR(chkbh,1,8=ALLTRIM(riqi into cursortempxchk0Select tempxchk0 ListSelect COUNT(* as shumu From tempxchk0 INTO CURSOR tempxchk Selecttempxchk ListIf shumu=0 then shum

30、ubianhao='01' ElseIf shumu<10 thenshumubianhao='0' + ALLTRIM(STR(shumu+1 Elseshumubianhao=STR(shumu+1 Endif EndifIf Used("tempxchk" then Select tempxchk Use EndifUpdate 藥品信息 Set shl=shl-shuliang Where ypbh=yaopinbianhao *將新出庫(kù)的藥品信息寫(xiě)入到出庫(kù)信息表中Insert Into chukuxinxi(chkbh,ypb

31、h,ypmch,shj,shl,khbh,khmch,xshrq,czy values(chukubh,yaopinbianhao,yaopinmch,shoujia,shuliang,kehubianhao,kehumch,datetime(,caozuoyuan （8）“客戶資料”按鈕 Click 事件的代碼： DoForm kehu（9）“結(jié)算打印”按鈕 Click 事件的代碼： ReportForm chukuPreview（六）Rkjl.scx 入庫(kù)記錄查詢表單的設(shè)計(jì) 控件設(shè)置： （1）Form1 的 Init 事件代碼：ThisForm.Refresh（3）“退出”按鈕 Click

32、事件的代碼： ThisForm.Release（七）Ckjl.scx出庫(kù)記錄查詢表單的設(shè)計(jì) 控件設(shè)置： （1）Form1 的 Init 事件代碼：ThisForm.Refresh（3） “退出”按鈕 Click事件的代碼： ThisForm.Release（八）Bwl.scx備忘錄表單的設(shè)計(jì) 控件設(shè)置： 示備忘錄為新制定，為假表示備忘錄為修改過(guò)的。（2）制定備忘錄（3）刪除備忘錄在備忘錄表格中雙擊要?jiǎng)h除的記錄，則【刪除備忘錄】按鈕可用，其中代碼如下： Delete &&刪除當(dāng)前記錄（4）修改備忘錄在備忘錄表格中雙擊要?jiǎng)h除的記錄，則“刪除備忘錄”按鈕變?yōu)榭捎脿顟B(tài)，其中代碼如 下：

33、beiwanglu=.F. &&beiwanglu為假表示對(duì)現(xiàn)有備忘錄進(jìn)行修改 （5）保存?zhèn)渫汭fbeiwanglu &&如果beiwanglu 為真，則執(zhí)行制定備忘錄的相關(guān)操作 InsertIntobeiwangluxinxi(nr,zdsj,zdrValues(neirong,DATETIME(,ren Else &&如果為假，則執(zhí)行修改備忘錄的相關(guān)操作 Replace nr Withneirong,zdsj With DATETIME(（6）Grid 控件的相關(guān)操作Grid1的Text1的gotfocus 過(guò)程中對(duì)應(yīng)的相關(guān)代碼如下： Se

34、lect beiwangluxinxi五、系統(tǒng)測(cè)試所有表單程序制作完成后，就需要進(jìn)行系統(tǒng)測(cè)試，以進(jìn)行系統(tǒng)對(duì)項(xiàng)目的整體性能測(cè)試，對(duì)系統(tǒng)程序錯(cuò)誤進(jìn)行修改。測(cè)試系統(tǒng)是否完善。（一）測(cè)試方法（1）打開(kāi)“項(xiàng)目管理器”對(duì)話框。（2）單擊“連編”按鈕，彈出“連編選項(xiàng)”對(duì)話框。（3）在“連編選項(xiàng)”對(duì)話框的“操作”欄中選擇“連編可執(zhí)行文件”單選鈕。在“選項(xiàng)”欄中選擇“重新編譯全部文件”和“顯示錯(cuò)誤”。（4）單擊“確定”按鈕，并在“另存為”對(duì)話框中輸入生成文件的文件名：醫(yī)藥管理系統(tǒng).EXE, 完成連編。如果連編出現(xiàn)錯(cuò)誤，可根據(jù)錯(cuò)誤提示逐步改正錯(cuò)誤。重復(fù)以上過(guò)程即可。（5）連編獲得成功后，可在“項(xiàng)目管理器”中選擇主程序，選擇運(yùn)行?；蛘业竭B編后的文件醫(yī)藥管理系統(tǒng).EXE ，系統(tǒng)運(yùn)行檢查各表單運(yùn)行狀況。（二）測(cè)試結(jié)果醫(yī)藥管理系統(tǒng).EXE 能夠成功運(yùn)行，各表單程序能夠運(yùn)轉(zhuǎn)，無(wú)表單代碼錯(cuò)誤。醫(yī)藥銷(xiāo)售系統(tǒng)設(shè)計(jì)制作成功！六、設(shè)計(jì)總結(jié)藥品在人們平常生活中是不可缺少的，如何能夠處理好藥品的信息，及時(shí)了解各種藥品的需求就尤關(guān)重要，所以藥品管理系統(tǒng)能夠良好的滿足的大眾對(duì)藥品的了解和需求，提高大家的生活效率，具有良好的可推廣性。Visual F