【導(dǎo)讀】采購(gòu)報(bào)表等主要功能。圖一顯示了系統(tǒng)的主界面。具有多文檔界面。為主窗口，可以同時(shí)打開(kāi)多個(gè)功能模塊窗口。都使用該類，并進(jìn)一步擴(kuò)展其功能。數(shù)據(jù)綁定可以簡(jiǎn)化數(shù)據(jù)的顯示和保存。立實(shí)現(xiàn)，最后通過(guò)系統(tǒng)集成到一起。本系統(tǒng)是針對(duì)倉(cāng)儲(chǔ)式藥房創(chuàng)建“藥品銷售管理系統(tǒng)”的，·庫(kù)存信息管理：管理藥品的入庫(kù)，庫(kù)存量修改與查詢，可對(duì)購(gòu)物車(chē)記錄進(jìn)行修改。庫(kù)房為用戶取藥，并完成購(gòu)物車(chē)的注銷操作。況制定采購(gòu)計(jì)劃。藥品基本信息數(shù)據(jù)：包含的數(shù)據(jù)項(xiàng)有藥品編號(hào)、名稱、售價(jià)、品編號(hào)、數(shù)量、結(jié)算和日期等。4分別代表系統(tǒng)管理員、銷售員、收銀員、取藥員和采購(gòu)員。種類和廠家，表名為DrugInfo。07101202101其中07為年、10為月、12為日。下限，表名為DrugStore。光臨藥房購(gòu)藥的顧客是動(dòng)態(tài)的，所以數(shù)據(jù)庫(kù)。結(jié)算，表名為ShoppingCars。并將項(xiàng)目文件所在的文件夾設(shè)。然后創(chuàng)建新數(shù)據(jù)庫(kù)命名為DrugManage，將其保。存在默認(rèn)目錄下的Data文件夾中。按表八所示設(shè)置表單和控件屬性。

　　

【正文】 . Command1 Caption 添加 Grid2 recordsourcetype 1別名 Name Cmdadd recordsource Buyreport Command2 Caption 打印 Readonly .t. Name cmdprint Columncount 3 表 十六 圖十一 制定采購(gòu)計(jì)劃表單 （ 3） 編寫(xiě)表單的 Init 事件過(guò)程，在表單加載時(shí)執(zhí)行 SQL SELECT 命令獲得無(wú)庫(kù)存藥品信息，并顯示在表格中，并定義顯示無(wú)庫(kù)存藥品信息和選購(gòu)項(xiàng)目的表格。代碼 略。 （ 4） 編寫(xiě)藥品信息表格的 Afterrowcolchange 事件過(guò)程。在庫(kù)存藥品信息和無(wú)庫(kù)存藥品信息表格中單擊鼠標(biāo)時(shí)，將藥品的名稱和編號(hào)顯示到文本框中。代碼如下： 庫(kù)存藥品信息表格 LPARAMETERS nColIndex select drugstore cNum=編號(hào) select drugInfo locate for 編號(hào) =cNum = 名稱 = cNum 無(wú)庫(kù)存藥品信息表格 LPARAMETERS nColIndex select tempnostore = 名稱 = 編號(hào) （ 5） 編寫(xiě)添加按鈕的 click 事件過(guò)程。在單擊該按 鈕時(shí)將藥品采購(gòu)信息添加到 buyreport 表中，并顯示在選購(gòu)項(xiàng)目表格中。代碼 略。 （ 6） 在項(xiàng)目管理器中創(chuàng)建一個(gè)報(bào)表來(lái)顯示采購(gòu)計(jì)劃，如圖十二所示。在報(bào)表的“頁(yè)標(biāo)頭”部分，放置了報(bào)表標(biāo)題、日期和數(shù)據(jù)項(xiàng)名稱，在“細(xì)節(jié)”部分放置了顯示 buyreport 表記錄的域控件。在設(shè)計(jì)報(bào)表時(shí)，先在報(bào)表的數(shù)據(jù)環(huán)境中添加 buyreport表，然后將該表的字段拖放到報(bào)表的“細(xì)節(jié)”部分，這樣可自動(dòng)插入顯示 buyreport 表記錄的域控件。 圖 十二 （ 7）編寫(xiě)打印按鈕的 click 事件過(guò)程代碼。單擊時(shí)打印采購(gòu)計(jì)劃書(shū)。 if messagebox(是否打印采購(gòu)計(jì)劃報(bào)表 ,36,制訂采購(gòu)計(jì)劃 )=6 *打印藥品采購(gòu)報(bào)表 REPORT FORM report\ TO PRINTER PROMPT NOCONSOLE endif if messagebox(是否刪除當(dāng)前選定的采購(gòu)項(xiàng)目 ,36,制訂采購(gòu)計(jì)劃 )=6 *刪除當(dāng)前選定的采購(gòu)項(xiàng)目 set safety off select buyreport zap endif （ 8）保存表單。路徑： sjk\forms\ 12．創(chuàng)建銷售報(bào)表管理表單 在銷售報(bào)表中，分別按藥品種類顯示各種藥品銷售的詳細(xì)信息，包括藥品名稱、編號(hào)、售價(jià)、進(jìn)價(jià)、數(shù)量、銷售額、利潤(rùn)、銷售日期等數(shù)據(jù)。在銷售報(bào)表管理表單中，可以選擇按月份篩選藥品銷售記錄，并查看這些記錄數(shù)據(jù)、預(yù)覽和打印銷售報(bào)表。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)本地視圖，用于獲得藥品 名稱、編號(hào)、售價(jià)、進(jìn)價(jià)、數(shù)量、銷售額、利潤(rùn)、銷售日期等數(shù)據(jù)。該視圖從 Drugsales 表中獲得銷售藥品的編號(hào)、數(shù)量和日期數(shù)據(jù)，從druginfo 表中獲得藥品的名 稱、售價(jià)、進(jìn)價(jià)等數(shù)據(jù)，并通過(guò)計(jì)算獲得銷售額和利潤(rùn)。其 SQL 代碼如下： SELECT , , , ,。 AS 編號(hào) , , , 號(hào) 。 ( )* AS 利潤(rùn)，； * AS 銷售額， ； FROM drugmanage!druginfo INNER JOIN drugmanage!drugsales 。 ON = 。 ORDER BY （ 2）在項(xiàng)目管理器中創(chuàng)建一個(gè)報(bào)表。在報(bào)表的數(shù)據(jù)環(huán)境中添加salesview 視圖，并按每月銷售藥品的種類進(jìn)行數(shù)據(jù)分組，分組表單式設(shè)為“ +str(month( ))”。如圖十三 圖十三 藥品銷售報(bào)表 （ 3）在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單。 在表單的數(shù)據(jù)環(huán)境中添加 salesview 視圖和 drugsales 表，為表單添加標(biāo)簽、組合框、命令按鈕和表格等控件，如圖十四，并按表十七設(shè)置表單和控件的屬性。 圖十四 銷售報(bào)表管理表單 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Autocenter .t. Combo1 Style 2 Caption 銷售報(bào)表管理 Label1 autosize .t. Showwindow 1 Caption 設(shè)置篩選條件 Command1 Caption 預(yù)覽報(bào)表 Grid1 Deletemark .f. Name Cmdpreview Recordsourcetype 1別名 Command2 Caption 打印報(bào)表 recordsource Salesview Name Cmdprint Readonly .t. Command3 Caption 關(guān)閉 Name Cmdexit 表 十七 （ 4）編寫(xiě)表單的 init 事件過(guò)程。在表單加載時(shí)，從 drugsales 表中獲得藥品銷售日期列表，以便按月份篩選報(bào)表數(shù)據(jù)，代碼如下： select distinct alltrim(str(month(日期 )))+月 as 月份 。 from drugsales into cursor tempDate order by 月份 desc select tempDate (全部 ) if reccount()0 go top with do while not eof() .additem(月份 ) skip enddo endwith endif =1 use amp。amp。關(guān)閉 tempDate 臨時(shí)表 （ 5）編寫(xiě)表單的 resize 事件過(guò)程。在表單大小變化時(shí)自動(dòng)調(diào)整報(bào)表數(shù)據(jù)顯示表格大小，代碼如下： =abs(*) =abs() （ 6）編寫(xiě)“設(shè)置篩選條件”下拉列表的 click 事件過(guò)程。在選擇了篩選 條件時(shí)，根據(jù)選擇設(shè)置 salesview 的篩選條件，代碼如下： cFilter=alltrim() select salesview if cFilter==全部 set filter to else set filter to val(cFilter)=month(日期 ) endif （ 7）編寫(xiě)預(yù)覽報(bào)表按鈕的 click 事件過(guò)程。在單擊該命令按鈕時(shí)顯示藥品銷售報(bào)表，代碼： REPORT FORM report\ PREVIEW （ 8）編寫(xiě)打印報(bào)表按鈕的 click 事件過(guò)程。在單擊時(shí)打印設(shè)置報(bào)表。 if messagebox(是否打印銷售報(bào)表 ,36,銷售報(bào)表管理 )=6 REPORT FORM report\ TO PRINTER PROMPT NOCONSOLE Endif （ 9）編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。單擊時(shí)關(guān)閉表單。 if messagebox(是否退出銷售報(bào)表管理？ ,36,銷售報(bào)表管理 )=6 amp。amp。關(guān)閉銷售報(bào)表管理表單 endif （ 10）保存表單。路徑： sjk\forms\ 13．設(shè)計(jì)啟動(dòng)程序 在啟動(dòng)程序中首先定義用于保存當(dāng)前用戶身份信息的全局變量，然后顯示系統(tǒng)登錄表單。若登錄成功，則打開(kāi)“藥品銷售管理系統(tǒng)”的菜單系統(tǒng)。在項(xiàng)目管理器的“代碼”選項(xiàng)中新建一程序，命名為 main 選擇“項(xiàng)目” /“設(shè)置主文件”命令將其設(shè)置為主文件。代碼如下： *聲明變量 public capp_currentuser amp。amp。用于保存當(dāng)前用戶用戶名 public capp_currentpwd amp。amp。用于保存當(dāng)前用戶口令 public capp_currentpop amp。amp。用于保存當(dāng)前用戶權(quán)限代碼 public lapp_Logon amp。amp。用于保存當(dāng)前用戶是否登錄成功 *設(shè)置初始值 capp_currentuser= capp_currentpwd= capp_currentpop= lapp_Logon=.F. =.f. amp。amp。隱藏 VF 主窗口 set sysmenu to amp。amp。隱藏 VF 系統(tǒng)菜單 =藥品連鎖銷售系統(tǒng) amp。amp。設(shè)置應(yīng)用程序標(biāo)題 DO form forms\ amp。amp。顯示登錄表單 read events amp。amp。建立事件循環(huán) if lapp_logon =.t. amp。amp。顯示 VF 主窗口 DO menu\菜單 amp。amp。顯示系統(tǒng)主表單 read events amp。amp。建立事件循環(huán) endif set sysmenu to default amp。amp?；謴?fù) VF 系統(tǒng)菜單 quit amp。amp。關(guān)閉 VF 主窗口 14． 連編、測(cè)試 對(duì)數(shù)據(jù)庫(kù)進(jìn)行連編測(cè)試。在項(xiàng)目管理器中單擊連編打開(kāi)連編選項(xiàng)對(duì)話框，進(jìn)行連編測(cè)試。 六． 總結(jié) 設(shè)計(jì)數(shù)據(jù)庫(kù)應(yīng)該包含一下幾個(gè)步驟： 1． 系統(tǒng)分析：根據(jù)項(xiàng)目要求，分析項(xiàng)目實(shí)現(xiàn)的可行性、系統(tǒng)應(yīng)具備的主要功能等。 2． 系統(tǒng)模塊設(shè)計(jì)：根據(jù)系統(tǒng)分析，劃分系統(tǒng)功能模塊、建立系統(tǒng)功能模塊圖。 3． 數(shù)據(jù)庫(kù)設(shè)計(jì)：根據(jù)系統(tǒng)功能模塊，畫(huà)出系統(tǒng)基本操作流程圖、根據(jù)數(shù)據(jù)流圖總結(jié)各個(gè)流程節(jié)點(diǎn)使用的數(shù)據(jù) 、根據(jù)數(shù)據(jù)字典設(shè)計(jì)和數(shù)據(jù)庫(kù)管理系統(tǒng)設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫(kù)結(jié)構(gòu)。 4． 詳細(xì)設(shè)計(jì)： 系統(tǒng)功能模塊編程實(shí)現(xiàn)。 5． 系統(tǒng)集成：系統(tǒng)功能模塊集成、測(cè)試運(yùn)行。 七．參考文獻(xiàn)： [1]郭盈發(fā)主編．《數(shù)據(jù)庫(kù)原理與應(yīng)用》 .西安 : 電子科技大學(xué)出版社 ,2021. [2]史嘉權(quán)主編．《數(shù)據(jù)庫(kù)系統(tǒng)教程》 . 北京：清華大學(xué)出版社 . 2021. [3]史濟(jì)民主編．《 FoxPro 及其應(yīng)用系統(tǒng)開(kāi)發(fā)》 .北京：清華大學(xué)出版社 ,2021. [4]薩師煊主編．《數(shù)據(jù)庫(kù)系統(tǒng)概述》 .北京：高等教育出版社 ,2021.