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

1、<p><b>　　目錄</b></p><p>　　一、項目說明…………………………………………………………2</p><p>　　二、系統(tǒng)分析…………………………………………………………4</p><p>　　三、系統(tǒng)設(shè)計…………………………………………………………5</p><p>　　四、程序設(shè)計………

2、…………………………………………………14</p><p>　　五、系統(tǒng)測試…………………………………………………………37</p><p>　　六、設(shè)計總結(jié)…………………………………………………………38 </p><p>　　七、參考文獻(xiàn)、致謝………………………………………………39</

3、p><p>　　醫(yī)藥銷售系統(tǒng)課程設(shè)計報告</p><p><b>　　項目說明 </b></p><p><b>　?。ㄒ唬╉椖勘尘?lt;/b></p><p>　　隨著中國經(jīng)濟(jì)的快速發(fā)展，醫(yī)藥生產(chǎn)企業(yè)迫切需要采用新的銷售管理方法來加強(qiáng)內(nèi)部醫(yī)藥代表管理和客戶管理，高效的處理銷售業(yè)務(wù)，掌握銷售狀況，降低運作成

4、本。同時醫(yī)藥代表也希望有方便實用的工具，以便進(jìn)行各類數(shù)據(jù)的查詢，管理以及提交。以往的醫(yī)藥信息管理系統(tǒng)由于技術(shù)的限制，已經(jīng)無法適應(yīng)醫(yī)藥的發(fā)展。因此開發(fā)新的醫(yī)藥系統(tǒng)迫在眉睫。 </p><p>　　醫(yī)藥銷售管理系統(tǒng)用于管理與藥品相關(guān)的信息與活動，但不包括產(chǎn)品信息、庫存數(shù)據(jù)與銷售活動。使用了基于Visual FoxPro技術(shù)為系統(tǒng)奠定了安全、穩(wěn)定、高效、炫麗的技術(shù)基礎(chǔ)。給公司提供方便，穩(wěn)定的服務(wù)。</p>

5、<p><b>　　（二）使用環(huán)境 </b></p><p>　　醫(yī)藥企業(yè)的市場營銷環(huán)境是一個復(fù)雜的系統(tǒng)工程，它由相互作用、互相依賴的若干要素組成。一般可以分為內(nèi)部和外部或宏觀和微觀兩個方面?，F(xiàn)分別介紹如下。 </p><p>　　宏觀營銷環(huán)境：醫(yī)藥企業(yè)宏觀營銷環(huán)境，是指影響企業(yè)生產(chǎn)經(jīng)營的經(jīng)濟(jì)環(huán)境、科技環(huán)境、政治法律環(huán)境、社會文化環(huán)境和自然環(huán)境等要素（

6、詳細(xì)內(nèi)容參閱本章余下內(nèi)容）。它們共同組成了企業(yè)生產(chǎn)經(jīng)營的制約力量，具體地規(guī)定或引導(dǎo)企業(yè)生產(chǎn)什么、生產(chǎn)多少、如何生產(chǎn)、如何銷售等。用在通常意義上說，這是企業(yè)不可控制的因素，只能順應(yīng)它、利用它，而較少地能夠改變它。這幾個方面的內(nèi)容各自又可細(xì)分為若干個子項目，也都會直接或間接、有形或無形地影響著企業(yè)的生產(chǎn)經(jīng)營活動。因此，醫(yī)藥企業(yè)在進(jìn)行市場營銷環(huán)境分析時，首先應(yīng)對外部宏觀環(huán)境進(jìn)行科學(xué)嚴(yán)謹(jǐn)?shù)恼{(diào)查研究，以期把不利變?yōu)橛欣?，使其營銷活動完全符合環(huán)境的

7、要求。 </p><p>　　(2)微觀營銷環(huán)境：醫(yī)藥企業(yè)市場營銷微觀環(huán)境是指對企業(yè)營銷活動產(chǎn)生直接影響的介于 4Ps 策略與宏觀環(huán)境之間的一種營銷環(huán)境，它包括營銷部門所在的企業(yè)、供應(yīng)商、營銷中介、顧客、信息、競爭者和公眾等因素。一個企業(yè)能否成功地開展?fàn)I銷活動，不僅取決于能否適應(yīng)宏觀環(huán)境的變化，適應(yīng)和供應(yīng)者環(huán)境是指那些向醫(yī)藥企業(yè)提供開展市場營銷活動所需物資與資金的企業(yè)的狀況。醫(yī)藥企業(yè)的營銷活動，包括供、產(chǎn)、銷

8、各個不同環(huán)節(jié)，都需要大量的物資與資金作保證，因而需要許多部門或企業(yè)為之服務(wù)，為之供應(yīng)所需的一切。通常醫(yī)藥企業(yè)的供應(yīng)者有以下成員組成：</p><p>　?、?資源供應(yīng)者。他們生產(chǎn)醫(yī)藥企業(yè)所需要的機(jī)械設(shè)備、原材料、能源及零部件等生產(chǎn)資源，或者提供所需的資金，并把這些資源供應(yīng)給企業(yè)。</p><p>　?、?物資供應(yīng)商。物資供應(yīng)商即物資經(jīng)營部門，他們收購生產(chǎn)企業(yè)生產(chǎn)的各種物質(zhì)資料，再提供給需要

9、這些產(chǎn)品的醫(yī)藥企業(yè)。</p><p>　?、?運輸部門。他們把資源供應(yīng)者生產(chǎn)的物資運送到物資供應(yīng)商或購買的醫(yī)藥企業(yè)手中，也從物資供應(yīng)商那里把物資運送給各個醫(yī)藥企業(yè)。</p><p>　?、?便利供應(yīng)部門，如保險公司、咨詢機(jī)構(gòu)等，他們?yōu)槲镔Y的供應(yīng)提供各種方便條件，共同完成向醫(yī)藥企業(yè)提供物資與資金方面的任務(wù)。影響微觀環(huán)境的變化也是非常重要的。以下是企業(yè)微觀營銷環(huán)境主要內(nèi)容。 </p>

10、;<p><b>　?。ㄈ┫到y(tǒng)設(shè)計思想</b></p><p>　　本系統(tǒng)的設(shè)計思想是，系統(tǒng)采用模塊化的程序設(shè)計方法，既便于系統(tǒng)功能的各種組合和修改，又便于管理人員的維護(hù)。系統(tǒng)應(yīng)具備數(shù)據(jù)庫維護(hù)功能，及時根據(jù)用戶的需求進(jìn)行數(shù)據(jù)的查詢、添加、刪除、修改等操作。</p><p><b>　?。ㄋ模╉椖恳?guī)劃</b></p>

11、<p><b>　?。?）分工：</b></p><p>　　組長：xx，進(jìn)行系統(tǒng)程序設(shè)計，完成連編，組織成員任務(wù)分配等系列工作。 </p><p>　　文秘：xxx，負(fù)責(zé)課程設(shè)計報告，指導(dǎo)成員工作，負(fù)責(zé)打印等工作。</p><p>　　組員：xxx，負(fù)責(zé)部分表單設(shè)計，制作表格等工作。</p><p>　　組員

12、：xx，負(fù)責(zé)部分表單設(shè)計，制作表格等工作。</p><p><b>　?。?）進(jìn)度：</b></p><p>　　2012年6月5日：分配小組，組織成員，進(jìn)行討論。</p><p>　　2012年6月6日：到圖書館查閱資料，確定主題，并進(jìn)行討論。</p><p>　　2012年6月7日至8號：完成系統(tǒng)設(shè)計，并完成連編，成

13、功運行系統(tǒng)。</p><p>　　2012年6月9號至10號：系統(tǒng)程序的檢驗，完成課程設(shè)計報告，并檢查相關(guān)系統(tǒng)。</p><p><b>　　系統(tǒng)分析</b></p><p><b>　　組織模塊功能圖</b></p><p><b>　?。ǘ┫到y(tǒng)流程圖</b></p&

14、gt;<p><b>　　系統(tǒng)設(shè)計</b></p><p><b>　?。ㄒ唬?shù)據(jù)庫的設(shè)計</b></p><p>　　在創(chuàng)建應(yīng)用系統(tǒng)之前，必須先考慮與數(shù)據(jù)有關(guān)的一些問題。比如系統(tǒng)需要使用和處理哪些數(shù)據(jù)，這些數(shù)據(jù)組織成幾個表才方便程序的設(shè)計和用戶的使用，每個表需要設(shè)計哪些字段合適，每個字段應(yīng)該定義成什么數(shù)據(jù)類型，需要建立哪些索引才便

15、于操作等等。 </p><p>　　本系統(tǒng)共設(shè)計了7個表，分別是、藥品信息表（yaopinxinxi） 、客戶信息表（kehuxinxi）、供應(yīng)商表（gongyingshang）、備忘錄信息表（beiwangluxinxi）、藥品入庫信息表（rukuxinxi）和藥品出庫信息表（chukuxinxi）。用戶密碼表（pass）</p><p>　　數(shù)據(jù)庫7個表的結(jié)構(gòu)分別如下： </p&

16、gt;<p><b>　　藥品信息表</b></p><p><b>　　客戶信息表</b></p><p><b>　　供應(yīng)商表</b></p><p><b>　　備忘錄信息表</b></p><p><b>　　藥品入庫信息表

17、</b></p><p><b>　　藥品出庫信息表</b></p><p><b>　　用戶密碼表</b></p><p>　　選擇系統(tǒng)菜單中“數(shù)據(jù)庫”菜單下的“新建表…”選項建立新的數(shù)據(jù)庫后，“新建表”對話框中單擊“新建表”按鈕，按照如上分別建立這7個數(shù)據(jù)表。數(shù)據(jù)表都建立完成后，截圖如下：</p>

18、;<p><b>　　(二)創(chuàng)建主程序</b></p><p>　　打開mis項目文件，在 “項目管理器-mis”窗口中，單擊“代碼”選項卡，選中“程序”項，單擊項目管理器窗口右邊的“新建”按鈕。就可在新彈出的程序代碼編輯窗口中輸入程序的以下代碼內(nèi)容，保存即可。</p><p>　　public bwl</p><p>　　bwl

19、=substr(alltrim(sys(5)+curdir()),1,len(alltrim(sys(5)+curdir()))-1)</p><p>　　set default to &bwl </p><p>　　Set path to forms;progs;reports;menus;data;graphics;graphics\pic;graphics\ico<

20、/p><p>　　set exact on</p><p>　　set confirm off</p><p>　　set escape on</p><p>　　set safety on</p><p>　　set status off</p><p>　　set scoreboard off&

21、lt;/p><p>　　set decimals to 3</p><p>　　set talk off</p><p>　　set sysformats on</p><p>　　set century on</p><p>　　set date to ansi</p><p>　　zoom wi

22、ndow screen max</p><p><b>　　close all</b></p><p>　　release window 常用</p><p>　　set sysmenu to</p><p>　　_screen.caption="歡迎使用醫(yī)藥營銷系統(tǒng)"</p><

23、p>　　_screen.picture="14.jpg"</p><p>　　_screen.minbutton=.f.</p><p>　　_screen.maxbutton=.f.</p><p>　　_screen.controlbox=.f.</p><p>　　do form fm.scx</p>

24、;<p>　　read even</p><p>　　（三）Fm.scx系統(tǒng)密碼驗證主表單設(shè)計</p><p><b>　　控件設(shè)置：</b></p><p>　?。?）表單的“Load”代碼：</p><p>　　public ca,cb,cc &&設(shè)置全局變量，記錄RGB( )函數(shù)的自

25、變量的值</p><p><b>　　ca=0</b></p><p><b>　　cb=0</b></p><p><b>　　cc=0</b></p><p>　?。?）表單的“Unload”代碼：</p><p>　　release ca,cb,c

26、c &&釋放全局變量</p><p><b>　　標(biāo)簽主要屬性設(shè)置</b></p><p>　　文本框的主要屬性設(shè)置</p><p>　　命令按鈕的主要屬性設(shè)置</p><p>　　(1)“確定”按鈕的“Click”事件代碼如下：</p><p>　　public yhkl,yh

27、name &&定義全局變量，記錄登錄用戶的名稱和密碼，以便系統(tǒng)分配用戶權(quán)限</p><p>　　yhkl=alltrim(thisform.text2.value) &&保存用戶輸入的名稱和密碼</p><p>　　yhname=alltrim(thisform.text1.value)</p><p>　　use pass &

28、;&打開保存已注冊用戶的用戶名和密碼的表文件</p><p>　　*以下代碼是檢驗用戶名稱和密碼</p><p>　　loca all for lower(alltrim(yhm))=lower(alltrim(yhname))</p><p><b>　　if eof()</b></p><p>　　*不是合法

29、注冊用戶，給出警告</p><p>　　=messagebox('你不是合法注冊用戶！',0,'真遺憾')</p><p><b>　　return</b></p><p>　　thisform.text1.setfocus</p><p><b>　　else</b>

30、;</p><p>　　*用戶名正確，再檢驗用戶密碼</p><p>　　lsyhlx=alltrim(yhlx)</p><p>　　if lower(alltrim(yhmm))=lower(alltrim(yhkl))</p><p><b>　　use</b></p><p>　　thi

31、sform.release</p><p>　　set dele on </p><p>　　set notify off </p><p>　　set cent on</p><p>　　set date to ansi</p><p><b>　　close all</b></p

32、><p>　　RELEASE WINDOW 常用</p><p>　　MODIFY WINDOW SCREEN TITLE " 醫(yī)藥銷售系統(tǒng) ver1.0 </p><p>　　登錄用戶:"+yhname+"("+lsyhlx+")"+" 今天

33、是："+dtoc(date())</p><p>　　_SCREEN.ICON="face05.ico"</p><p>　　_SCREEN.picture="pc1.jpg"</p><p>　　ZOOM WINDOW SCREEN MAX </p><p>　　_SCREEN.contro

34、lbox=.f.</p><p>　　do mainmenu.mpr &&當(dāng)用戶名和密碼都正確時，關(guān)閉當(dāng)前表單，運行主菜單進(jìn)行系統(tǒng)</p><p><b>　　else</b></p><p>　　*不是合法注冊用戶，給出警告</p><p>　　=messagebox('密碼不正確，請你再好好

35、想想！',0,'真遺憾')</p><p><b>　　return</b></p><p>　　thisform.text2.setfocus</p><p><b>　　endif </b></p><p><b>　　Endif</b></p

36、><p>　　(2)“取消”按鈕的“Click”事件代碼如下：</p><p>　　thisform.release</p><p>　　clear even</p><p><b>　　Quit</b></p><p>　　(3)“計時器”控件Interval屬性為100?！癟imer”代碼如下：&

37、lt;/p><p><b>　　if ca<255</b></p><p><b>　　ca=ca+1</b></p><p><b>　　else</b></p><p><b>　　ca=90</b></p><p><

38、b>　　endif</b></p><p><b>　　if cb<255</b></p><p><b>　　cb=cb+1</b></p><p><b>　　else</b></p><p><b>　　cb=180</b>&

39、lt;/p><p><b>　　endif</b></p><p><b>　　if cc<255</b></p><p><b>　　cc=cc+1</b></p><p><b>　　else</b></p><p><

40、b>　　cc=1</b></p><p><b>　　endif</b></p><p>　　If Thisform.Label2.left>thisform.width</p><p>　　thisform.label2.forecolor=rgb(ca,cb,cc)</p><p>　　Thi

41、sform.Label2.left=-199</p><p>　　thisform.label2.left=Thisform.Label2.left+10 </p><p><b>　　Else</b></p><p>　　thisform.label2.forecolor=rgb(ca,cb,cc)</p><p>　

42、　Thisform.Label2.left=Thisform.Label2.left+10</p><p><b>　　EndIf</b></p><p>　　If Thisform.Label5.Left<=-394</p><p>　　Thisform.Label5.Left=thisform.width </p>&l

43、t;p>　　Thisform.Label5.Left = Thisform.Label5.Left -10</p><p><b>　　Else</b></p><p>　　Thisform.Label5.Left = Thisform.Label5.Left -10</p><p><b>　　EndIf</b>&

44、lt;/p><p>　　Thisform.refresh </p><p>　?。ㄈ┫到y(tǒng)菜單的設(shè)計</p><p>　　（1）“系統(tǒng)管理”子菜單編輯為“密碼管理”、“\-”“退出系統(tǒng)”</p><p>　　①“密碼管理”的過程代碼：</p><p>　　set dele on</p><p>　

45、　dele all for len(alltrim(yhm))=0</p><p>　　loca all for alltrim(yhm)=alltrim(yhname)</p><p>　　if alltrim(yhlx)="系統(tǒng)管理員"</p><p><b>　　use</b></p><p>

46、;　　do form mmgl</p><p><b>　　else</b></p><p>　　nAnswer=messagebox('很抱歉!您不是系統(tǒng)管理員無權(quán)查閱和更改用戶名和密碼!',0,'警告!')</p><p><b>　　use </b></p>&l

47、t;p><b>　　return</b></p><p><b>　　Endif</b></p><p>　?、凇巴顺鱿到y(tǒng)”的過程代碼：</p><p>　　ans=messagebox("確信要退出系統(tǒng)嗎？",4,"確認(rèn)信息")</p><p><

48、;b>　　if ans=6</b></p><p><b>　　close all</b></p><p>　　clear event</p><p><b>　　quit</b></p><p><b>　　else</b></p><p

49、><b>　　return</b></p><p><b>　　Endif</b></p><p>　?。?）“信息操作管理”子菜單編輯為“客戶信息管理”和“供應(yīng)商信息管理”</p><p>　?、佟翱蛻粜畔⒐芾怼钡倪^程代碼:</p><p>　　use kehuxinxi</p>

50、<p><b>　　pack</b></p><p><b>　　use</b></p><p>　　do form kehu </p><p>　?、凇肮?yīng)商信息管理”的過程代碼:</p><p>　　use gongyingshang</p><p>&l

51、t;b>　　pack</b></p><p><b>　　use</b></p><p>　　do form gys</p><p>　　（3）“藥品管理”子菜單編輯為“藥品入庫管理”和“藥品出庫管理”</p><p>　?、佟八幤啡霂旃芾怼钡倪^程代碼：</p><p>　　us

52、e rukuxinxi</p><p><b>　　pack</b></p><p><b>　　use</b></p><p>　　do form yprk</p><p>　?、凇八幤烦鰩旃芾怼钡倪^程代碼：</p><p>　　use chukuxinxi</p&g

53、t;<p><b>　　pack</b></p><p><b>　　use</b></p><p>　　do form ypck</p><p>　?。?）“記錄查詢”子菜單編輯為“藥品入庫查詢”和“藥品出庫查詢”</p><p>　　①“藥品入庫查詢”的過程代碼：</p>

54、;<p>　　use rukuxinxi</p><p><b>　　pack</b></p><p><b>　　use</b></p><p>　　do form rkjl</p><p>　?、凇八幤烦鰩觳樵儭钡倪^程代碼：</p><p>　　use ch

55、ukuxinxi</p><p><b>　　pack</b></p><p><b>　　use</b></p><p>　　do form ckjl</p><p>　　(5)“其他”子菜單編輯為“備忘錄”</p><p>　?、佟皞渫洝钡倪^程代碼：</p>

56、<p>　　use beiwangluxinxi</p><p><b>　　pack</b></p><p><b>　　use</b></p><p>　　do form bwl</p><p><b>　　程序設(shè)計</b></p><p&

57、gt;　　本系統(tǒng)除去主表單設(shè)計外，內(nèi)容表單分別有密碼管理表單、客戶信息表單、供應(yīng)商表單、藥品入庫表單、藥品出庫表單、入庫記錄查詢表單、出庫記錄查詢表單、備忘錄表單等8個項目表單。其主要程序設(shè)計如下：</p><p>　?。ㄒ唬㎝mgl.scx密碼管理表單設(shè)計</p><p>　?。?）表單的主要屬性：</p><p>　　AutoCenter=.T.</p&g

58、t;<p>　　BorderStyle=“2-固定對話框”</p><p>　　Caption=“用戶密碼管理”</p><p>　　Height=299</p><p>　　Icon=“c:\mis\graphics\ico\control panel.ico”</p><p>　　MaxButton=.F.</p>

59、;<p>　　MinButton=.F.</p><p><b>　　Width=582</b></p><p>　　WindowState=0-普通</p><p>　?。?）文本框的主要屬性：</p><p>　　ControlSource=“無”</p><p>　　Enabl

60、ed=.f.</p><p>　　FontName=“宋體”</p><p>　　FontSize=11</p><p><b>　　Height=25</b></p><p>　?。?）組合框的主要屬性：</p><p>　　BoundColumn=1</p><p>　

61、　ColumnWidths=“無”</p><p>　　ControlSource=“無”</p><p>　　Enabled=.f.</p><p>　　FirstElement=1</p><p>　　FontName=“宋體”</p><p>　　FontSize=11</p><p>&

62、lt;b>　　Height=25</b></p><p><b>　　Left=380</b></p><p>　　ReadOnly=.f.</p><p>　　RowSource=“系統(tǒng)管理員，普通用戶”</p><p>　　RowSourceType=“1-值”</p><p&g

63、t;　　SelectOnEntry=.t.</p><p>　　Style=“0-下拉組合框”</p><p><b>　　Top=258</b></p><p><b>　　Width=114</b></p><p>　?。?）表格控件的主要屬性：</p><p>　　Co

64、lumnCount=3</p><p>　　DeleteMark=.f.</p><p>　　Enabled=.t.</p><p>　　FontName=“宋體”</p><p>　　FontSize=11</p><p>　　GridLineColor=“0,0,255”</p><p>　

65、　GridLineWidth=1</p><p>　　HeaderHeight=20</p><p>　　Height=223</p><p><b>　　Left=9</b></p><p>　　ReadOnly=.t.</p><p>　　RecordMark=.t.</p>&

66、lt;p>　　RecordSource=“pass”</p><p>　　RecordSourceType=“1-別名”</p><p>　　RowHeight=20</p><p><b>　　Top=27</b></p><p><b>　　Width=485</b></p>

67、<p>　　（5）表單的“Init”事件代碼：</p><p>　　public xgbzhi,rec</p><p>　　xgbzhi=.f.</p><p><b>　　rec=0</b></p><p>　　set deleted on</p><p>　　thisform.co

68、mmand2.enabled=.t.</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command3.enabled=.t.</p><p>　　thisform.command4.enabled=.f.</p><p>　　thisform.command5.enabl

69、ed=.t.</p><p>　　thisform.command6.enabled=.f.</p><p>　　thisform.command2.setfocus</p><p>　?。?）“刪除”命令按鈕的“Click”事件代碼：</p><p><b>　　sele pass</b></p><

70、;p>　　if eof().or.bof()</p><p>　　nAnswer=messagebox('你還沒有選擇要刪除的注冊用戶記錄！請選定一個要刪除的用戶！',0,'警告！')</p><p><b>　　return</b></p><p><b>　　endif</b>&l

71、t;/p><p><b>　　dele</b></p><p>　　thisform.command2.enabled=.t.</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command3.enabled=.t.</p><p>

72、;　　thisform.command4.enabled=.f.</p><p>　　thisform.command5.enabled=.t.</p><p>　　thisform.command6.enabled=.f.</p><p>　　Thisform.refresh</p><p>　?。?）“修改”命令按鈕的“Click”事件代

73、碼：</p><p>　　if eof().or.bof()</p><p>　　nAnswer=messagebox('你還沒有選擇要修改的注冊用戶記錄！請選定一個要修改的用戶！',0,'警告！')</p><p><b>　　return</b></p><p><b>　　

74、endif</b></p><p>　　thisform.text1.enabled=.t.</p><p>　　thisform.text2.enabled=.t.</p><p>　　thisform.combo1.enabled=.t.</p><p>　　thisform.command2.enabled=.f.</

75、p><p>　　thisform.command1.enabled=.f.</p><p>　　thisform.command3.enabled=.f.</p><p>　　thisform.command4.enabled=.t.</p><p>　　thisform.command5.enabled=.t.</p><p

76、>　　thisform.command6.enabled=.t.</p><p>　　thisform.grid1.enabled=.f.</p><p>　　rec=recno()</p><p>　　thisform.text1.value=yhm</p><p>　　thisform.text2.value=yhmm</p&

77、gt;<p>　　thisform.combo1.value=yhlx</p><p>　　xgbzhi=.t.</p><p>　　thisform.text1.setfocus</p><p>　?。?）“增加”命令按鈕的“Click”事件代碼：</p><p>　　thisform.text1.enabled=.t.<

78、;/p><p>　　thisform.text2.enabled=.t.</p><p>　　thisform.combo1.enabled=.t.</p><p>　　thisform.command2.enabled=.f.</p><p>　　thisform.command3.enabled=.f.</p><p>

79、;　　thisform.command1.enabled=.f.</p><p>　　thisform.command4.enabled=.t.</p><p>　　thisform.command5.enabled=.t.</p><p>　　thisform.command6.enabled=.t.</p><p>　　thisform.

80、grid1.enabled=.f.</p><p>　　thisform.text1.value=space(20)</p><p>　　thisform.text2.value=space(20)</p><p>　　thisform.combo1.value="普通用戶"</p><p>　　xgbzhi=.f.<

81、;/p><p><b>　　rec=0</b></p><p>　　thisform.text1.setfocus</p><p>　　（9）“保存”命令按鈕的“Click”事件代碼：</p><p>　　if len(alltrim(thisform.text1.value))=0 .or.len(alltrim(this

82、form.text2.value))=0</p><p>　　nAnswer=messagebox('用戶名、用戶密碼不能為空值！請再仔細(xì)檢查一下！',0,'警告！')</p><p><b>　　return</b></p><p>　　thisform.text1.gotfocus</p>&l

83、t;p><b>　　endif</b></p><p>　　if alltrim(thisform.combo1.value)!="普通用戶".and.;</p><p>　　alltrim(thisform.combo1.value)!="系統(tǒng)管理員"</p><p>　　nAnswer=mess

84、agebox('用戶類型只允許為“普通用戶”或“系統(tǒng)管理員”！請再仔細(xì)檢查一下！',0,'警告！')</p><p><b>　　return</b></p><p>　　thisform.combo1.setfocus</p><p><b>　　endif</b></p>

85、<p><b>　　sele pass</b></p><p>　　dele all for len(alltrim(yhm))=0</p><p><b>　　if xgbzhi</b></p><p>　　set dele on</p><p><b>　　go rec<

86、;/b></p><p><b>　　dele</b></p><p>　　locate all for alltrim(yhm)=alltrim(thisform.text1.value)</p><p>　　if .not.eof()</p><p>　　nAnswer=messagebox('用戶名已

87、存在！請換改用其他名字！',0,'警告！')</p><p>　　set dele off</p><p><b>　　go rec</b></p><p><b>　　recall</b></p><p>　　set dele on</p><p>

88、<b>　　return</b></p><p>　　thisform.text1.gotfocus</p><p><b>　　endif</b></p><p>　　set dele off</p><p><b>　　go rec</b></p><p

89、><b>　　recall</b></p><p>　　repl yhm with alltrim(thisform.text1.value)</p><p>　　repl yhmm with alltrim(thisform.text2.value)</p><p>　　repl yhlx with alltrim(thisform.c

90、ombo1.value)</p><p>　　set dele on</p><p><b>　　else</b></p><p>　　locate all for yhm=alltrim(thisform.text1.value)</p><p>　　if .not.eof()</p><p>

91、　　nAnswer=messagebox('用戶名已存在！請換改用其他名字！',0,'警告！')</p><p><b>　　return</b></p><p>　　thisform.text1.gotfocus</p><p><b>　　endif</b></p><

92、;p>　　appe blank</p><p><b>　　go bott</b></p><p>　　repl yhm with alltrim(thisform.text1.value)</p><p>　　repl yhmm with alltrim(thisform.text2.value)</p><p>

93、;　　repl yhlx with alltrim(thisform.combo1.value)</p><p><b>　　endif</b></p><p>　　thisform.text1.value=space(20)</p><p>　　thisform.text2.value=space(20)</p><p&g

94、t;　　thisform.combo1.value="普通用戶"</p><p>　　thisform.text1.enabled=.f.</p><p>　　thisform.text2.enabled=.f.</p><p>　　thisform.combo1.enabled=.f.</p><p>　　thisfor

95、m.command2.enabled=.t.</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.command3.enabled=.t.</p><p>　　thisform.command4.enabled=.f.</p><p>　　thisform.command5.e

96、nabled=.t.</p><p>　　thisform.command6.enabled=.f.</p><p>　　thisform.grid1.enabled=.t.</p><p>　　Thisform.refresh</p><p>　?。?0）“取消”命令按鈕的“Click”事件代碼：</p><p>　

97、　thisform.text1.value=""</p><p>　　thisform.text2.value=""</p><p>　　thisform.combo1.value=""</p><p>　　thisform.text1.enabled=.f.</p><p>　　t

98、hisform.text2.enabled=.f.</p><p>　　thisform.combo1.enabled=.f.</p><p>　　thisform.command2.enabled=.t.</p><p>　　thisform.command3.enabled=.t.</p><p>　　thisform.command1.

99、enabled=.t.</p><p>　　thisform.command4.enabled=.f.</p><p>　　thisform.command5.enabled=.t.</p><p>　　thisform.grid1.enabled=.t.</p><p>　　this.enabled=.f.</p><p

100、>　　thisform.text1.setfocus</p><p>　?。?1）“退出”命令按鈕的“Click”事件代碼：</p><p>　　release xgbzhi,rec</p><p>　?。ǘ㎏ehu.scx客戶信息表單設(shè)計</p><p><b>　　控件設(shè)置：</b></p>&

101、lt;p>　?。?）“添加”按鈕的 Click事件代碼： </p><p>　　ThisForm.Cmdbc.Enabled = .T. &&使保存按鈕處于可用狀態(tài) </p><p>　　Select kehuxinxi &&選擇客戶信息表 </p><p>　　If RECCOUNT()=0 then &&如果

102、表中的記錄數(shù)為零，則客戶編號為1 </p><p><b>　　kehubh=1 </b></p><p>　　Else &&如果表中的記錄數(shù)不為零，則客戶編號為最大客戶編號加1 </p><p>　　Select MAX(bh) as zuidabh From kehuxinxiinto cursortemp </p&g

103、t;<p>　　kehubh=zuidabh+1 </p><p><b>　　Endif </b></p><p>　　ThisForm.Text1.Value =kehubh &&將計算出來的客戶編號寫到文本框Text1中 </p><p>　　ThisForm.Text2.SetFocus </p>

104、;<p>　?。?）“保存”按鈕的 Click事件代碼： </p><p>　　*將各個文本框中的信息存入變量中以便于操作 </p><p>　　a=ThisForm.Text1.Value </p><p>　　b=ThisForm.Text2.Value </p><p>　　c=ThisForm.Text3.Value &

105、lt;/p><p>　　d=ThisForm.Text4.Value </p><p>　　e=ThisForm.Text5.Value </p><p>　　Insert Into kehuxinxi(bh,xm,dh,dzh,yx) Values(a,b,c,d,e) &&將輸入的信息插入表中 </p><p>　　ThisF

106、orm.Cmdtj.SetFocus &&保存完信息后使添加按鈕獲得焦點 </p><p>　　ThisForm.Grid1.ReFresh </p><p>　　ThisForm.Cmdbc.Enabled = .F. </p><p>　?。?）每一個“Text”文本框的 Click 過程的代碼： </p><p>　　

107、*將相關(guān)記錄的信息顯示在相應(yīng)的文本框中 </p><p>　　ThisForm.Text1.Value=bh </p><p>　　ThisForm.Text2.Value=xm </p><p>　　ThisForm.Text3.Value=dh </p><p>　　ThisForm.Text4.Value=dzh </p>

108、<p>　　ThisForm.Text5.Value=yx </p><p>　　ThisForm.Cmdbc.Enabled = .F. &&禁用保存按鈕 </p><p>　?。?）“刪除”按鈕的 Click事件代碼： </p><p>　　Selectkehuxinxi </p><p>　　Delete f

109、or bh=ThisForm.Text1.Value &&將編號為文本框Text1中內(nèi)容的記錄刪除 </p><p>　　ThisForm.Grid1.Refresh &&刷新客戶信息表 </p><p>　　ThisForm.Cmdshch.Enabled= .F. </p><p>　?。?）“Text2”文本框的 Interac

110、tivChange過程的代碼： </p><p>　　xm1=Alltrim(ThisForm.Text2.Value) </p><p>　　Selectkehuxinxi</p><p>　　Seek xm1Order xm </p><p>　　ThisForm.Grid1.Refresh </p><p>　　

111、Gys.scx供應(yīng)商信息表單的設(shè)計</p><p><b>　　控件設(shè)置：</b></p><p>　　（1）“編號”文本框的 InteractiveChang事件代碼： </p><p>　　ThisForm.Grid1.RecordSource="Select * From gongyingshang Where (bh like

112、 '%'+bianhao+'%') into cursor temp" </p><p>　　ThisForm.Grid1.Refresh </p><p>　　（2）“公司名稱”文本框的 InteractiveChang事件代碼： </p><p>　　mingcheng=Alltrim(ThisForm.Txtmch.V

113、alue) </p><p>　　ThisForm.Grid1.RecordSource="Select * From gongyingshang Where (gsmch like '%'+mingcheng+'%') </p><p>　　into cursor ep" </p><p>　　ThisForm.

114、Grid1.Refresh </p><p>　?。?）“添加”按鈕的 Click事件代碼： </p><p>　　*查詢編號有無重的 </p><p>　　bianhao=Alltrim(ThisForm.Txtbh.Value) </p><p>　　Select gongyingshang </p><p>　　

115、seek bianhao order bh </p><p>　　If Found() </p><p>　　=Messagebox("此編號已經(jīng)存在，請檢查！??！") </p><p>　　ThisForm.Txtbh.Setfocus </p><p>　　Return &&提前結(jié)束本次過程 &l

116、t;/p><p><b>　　Endif </b></p><p>　　*查詢單位名稱有無重的 </p><p>　　mingcheng=Alltrim(ThisForm.Txtmch.Value) </p><p>　　Select gongyingshang </p><p>　　Seek min

117、gcheng order gsmch </p><p>　　IfFound() </p><p>　　=Messagebox("此公司名稱已經(jīng)存在,請檢查?。。。?quot;) </p><p>　　ThisForm.Txtmch.Setfocus </p><p>　　Return &&提前結(jié)束本次過程 &l

118、t;/p><p><b>　　Endif </b></p><p>　　c=ThisForm.Txtdh.Value </p><p>　　d=ThisForm.Txtdzh.Value </p><p>　　e=ThisForm.Txtwzh.Value </p><p>　　f=ThisForm.

119、Txtjyyl.Value </p><p>　　If bianhao<>"" and mingcheng<>"" then </p><p>　　Insert into gongyingshang Values(bianhao,mingcheng,c,d,e,f) </p><p>　　ThisFor

120、m.Txtbh.Value="" </p><p>　　ThisForm.Txtmch.Value="" </p><p>　　ThisForm.Txtdh.Value="" </p><p>　　ThisForm.Txtdzh.Value="" </p><p>

121、;　　ThisForm.Txtwzh.Value="" </p><p>　　ThisForm.Txtjyyl.Value="" </p><p>　　ThisForm.Grid1.Refresh </p><p><b>　　else </b></p><p>　　=Messag

122、ebox("請輸入編號和公司名稱?。?！") </p><p><b>　　Endif </b></p><p>　?。?）“刪除”按鈕的 Click事件代碼： </p><p>　　Select gongyingshang</p><p>　　delete for gsmch=ThisForm.Txt

123、mch.Value </p><p>　　ThisForm.Txtbh.Setfocus </p><p>　　ThisForm.Txtbh.Value="" </p><p>　　ThisForm.Txtmch.Value="" </p><p>　　ThisForm.Txtdh.Value=&quo

124、t;" </p><p>　　ThisForm.Txtdzh.Value="" </p><p>　　ThisForm.Txtwzh.Value="" </p><p>　　ThisForm.Txtjyyl.Value="" </p><p>　　ThisForm.Refr

125、esh </p><p>　　（5）“修改確定”按鈕的 Click事件代碼： </p><p>　　a=ThisForm.Txtbh.Value </p><p>　　b=ThisForm.Txtmch.Value </p><p>　　c=ThisForm.Txtdh.Value </p><p>　　d=ThisF

126、orm.Txtdzh.Value </p><p>　　e=ThisForm.Txtwzh.Value </p><p>　　f=ThisForm.Txtjyyl.Value </p><p>　　Select gongyingshang </p><p>　　If a<>"" and b<>&qu

127、ot;" then </p><p>　　Update gongyingshangSet bh=a,gsmch=b,dh=c,dzh=d,wzh=e,jyyl=f Where bh=a </p><p><b>　　Endif </b></p><p>　　ThisForm.Refresh </p><p>　

128、?。?）“退出”按鈕的 Click事件代碼： </p><p>　　ThisForm.Release </p><p>　　（7）Form1 的 Init 過程代碼： </p><p>　　set delete on &&設(shè)置刪除標(biāo)志有效 </p><p>　?。?）Form1 的 Deactivate過程代碼： </p

129、><p>　　*在關(guān)閉窗口時，將設(shè)置了邏輯刪除標(biāo)記的記錄物理刪除 </p><p>　　IfUsed("gongyingshang ")Then </p><p>　　Select gongyingshang </p><p><b>　　Use </b></p><p><

130、b>　　Endif </b></p><p><b>　　Select 0 </b></p><p>　　Use gongyingshang </p><p><b>　　Pack </b></p><p><b>　　Use </b></p>

131、<p>　　Ypru.scx藥品入庫表單的設(shè)計</p><p><b>　　控件設(shè)置：</b></p><p>　?。?） “藥品編號”文本框的 InteractiveChange事件代碼如下： </p><p>　　bh=AllTrim(ThisForm.Text1.Value) </p><p>　　&am

132、p;&藥品庫存一覽表的數(shù)據(jù)源是藥品信息表，查詢條件可以是模糊信息，查詢結(jié)果存入臨時表中。 </p><p>　　ThisForm.Gridkc.RecordSource="Select * From 藥品信息 Where (ypbh Like '%'+bh+'%') Into Cursor </p><p><b>　　temp&

133、quot; </b></p><p>　　&&其中查詢語句中的“%”是通配符，代表多個字符， “%+bh+% ”意思是只要條件中包含變量 </p><p>　　bh代表的信息就符合條件。 </p><p>　　Select 藥品信息 &&選擇藥品信息表 </p><p>　　Seek bh Orde

134、r ypbh &&查找編號按藥品編號排序 </p><p>　　ThisForm.Txtmch.Value=ypmch &&輸入編號時，對應(yīng)的名稱出現(xiàn)在Txtmch中 </p><p>　　ThisForm.Gridkc.Refresh &&表格刷新 </p><p>　　（2）“模糊

135、查詢”中“輸入關(guān)鍵字”文本框 InteractiveChange事件的代碼： </p><p>　　bltj=AllTrim(ThisForm.Text13.Value) </p><p><b>　　Do Case </b></p><p>　　Case ThisForm.Combo1.Value=1 </p><p&g