【正文】 5． 系統(tǒng)集成：系統(tǒng)功能模塊集成、測(cè)試運(yùn)行。 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)。 六． 總結(jié) 設(shè)計(jì)數(shù)據(jù)庫(kù)應(yīng)該包含一下幾個(gè)步驟： 1． 系統(tǒng)分析：根據(jù)項(xiàng)目要求，分析項(xiàng)目實(shí)現(xiàn)的可行性、系統(tǒng)應(yīng)具備的主要功能等。關(guān)閉 VF 主窗口 14． 連編、測(cè)試 對(duì)數(shù)據(jù)庫(kù)進(jìn)行連編測(cè)試。恢復(fù) VF 系統(tǒng)菜單 quit amp。建立事件循環(huán) endif set sysmenu to default amp。顯示系統(tǒng)主表單 read events amp。顯示 VF 主窗口 DO menu\菜單 amp。建立事件循環(huán) if lapp_logon =.t. amp。顯示登錄表單 read events amp。設(shè)置應(yīng)用程序標(biāo)題 DO form forms\ amp。隱藏 VF 系統(tǒng)菜單 =藥品連鎖銷售系統(tǒng) amp。隱藏 VF 主窗口 set sysmenu to amp。用于保存當(dāng)前用戶是否登錄成功 *設(shè)置初始值 capp_currentuser= capp_currentpwd= capp_currentpop= lapp_Logon=.F. =.f. amp。用于保存當(dāng)前用戶權(quán)限代碼 public lapp_Logon amp。用于保存當(dāng)前用戶口令 public capp_currentpop amp。用于保存當(dāng)前用戶用戶名 public capp_currentpwd amp。代碼如下： *聲明變量 public capp_currentuser amp。若登錄成功，則打開(kāi)“藥品銷售管理系統(tǒng)”的菜單系統(tǒng)。關(guān)閉銷售報(bào)表管理表單 endif （ 10）保存表單。 if messagebox(是否退出銷售報(bào)表管理？ ,36,銷售報(bào)表管理 )=6 amp。 if messagebox(是否打印銷售報(bào)表 ,36,銷售報(bào)表管理 )=6 REPORT FORM report\ TO PRINTER PROMPT NOCONSOLE Endif （ 9）編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。在單擊該命令按鈕時(shí)顯示藥品銷售報(bào)表，代碼： REPORT FORM report\ PREVIEW （ 8）編寫(xiě)打印報(bào)表按鈕的 click 事件過(guò)程。在表單大小變化時(shí)自動(dòng)調(diào)整報(bào)表數(shù)據(jù)顯示表格大小，代碼如下： =abs(*) =abs() （ 6）編寫(xiě)“設(shè)置篩選條件”下拉列表的 click 事件過(guò)程。amp。在表單加載時(shí)，從 drugsales 表中獲得藥品銷售日期列表，以便按月份篩選報(bào)表數(shù)據(jù)，代碼如下： select distinct alltrim(str(month(日期 )))+月 as 月份 。 在表單的數(shù)據(jù)環(huán)境中添加 salesview 視圖和 drugsales 表，為表單添加標(biāo)簽、組合框、命令按鈕和表格等控件，如圖十四，并按表十七設(shè)置表單和控件的屬性。在報(bào)表的數(shù)據(jù)環(huán)境中添加salesview 視圖，并按每月銷售藥品的種類進(jìn)行數(shù)據(jù)分組，分組表單式設(shè)為“ +str(month( ))”。 ON = 。 AS 編號(hào) , , , 號(hào) 。該視圖從 Drugsales 表中獲得銷售藥品的編號(hào)、數(shù)量和日期數(shù)據(jù)，從druginfo 表中獲得藥品的名 稱、售價(jià)、進(jìn)價(jià)等數(shù)據(jù)，并通過(guò)計(jì)算獲得銷售額和利潤(rùn)。在銷售報(bào)表管理表單中，可以選擇按月份篩選藥品銷售記錄，并查看這些記錄數(shù)據(jù)、預(yù)覽和打印銷售報(bào)表。 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）保存表單。 圖 十二 （ 7）編寫(xiě)打印按鈕的 click 事件過(guò)程代碼。在報(bào)表的“頁(yè)標(biāo)頭”部分，放置了報(bào)表標(biāo)題、日期和數(shù)據(jù)項(xiàng)名稱，在“細(xì)節(jié)”部分放置了顯示 buyreport 表記錄的域控件。代碼 略。代碼如下： 庫(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ò)程。 （ 4） 編寫(xiě)藥品信息表格的 Afterrowcolchange 事件過(guò)程。 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Autocenter .t. Text1 Name Txtname Borderstyle 2 Disablebackcolor 255,255,255 Caption 制訂采購(gòu)計(jì)劃 Disableforecolor 0,0,0 Showwindow 1 Readonly .t. Label1 autosize .t. Text2 Name Txtnum Caption 名稱 Disablebackcolor 255,255,255 Label2 autosize .t. Disableforecolor 0,0,0 Caption 編號(hào) Readonly .t. Label3 autosize .t. Text3 Name Txtsum Caption 采購(gòu)量 Inputmask 9999 Label4 autosize .t. Grid1 recordsourcetype 1別名 Caption 庫(kù)存藥品信息 Columncount Drugstore Label5 autosize .t. Readonly .t. Caption 無(wú)庫(kù)存藥品信息 Grid2 recordsourcetype 1別名 Label6 autosize .t. Columncount 5 Caption 采購(gòu)項(xiàng)目 Readonly .t. 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)目的表格。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加 Drugstore,drugsales,buyreport 表，將 buyreport表對(duì)應(yīng)的 cursorl 的 exclusive 屬性設(shè)置為 .t.。 （ 14）保存表單。 （ 13）編寫(xiě)刪除按鈕的 click 事件過(guò)程。在填寫(xiě)了藥品編號(hào)和數(shù)量之后，單擊添加按鈕將其添加到客戶選購(gòu)項(xiàng)目列表中。關(guān)閉藥品銷售表單 endif （ 10）編寫(xiě)“藥品編號(hào)”文本框的 InteractiveChange 事件過(guò)程，在輸入藥品編號(hào)時(shí)，在藥品信息表格中顯示與之匹配的藥品信息，代碼： *設(shè)置藥品信息臨時(shí)表 tempInfo 的過(guò)濾條件 select tempInfo cFilter=alltrim() if empty(cFilter) set filter to else set filter to cFilter $ 編號(hào) endif （ 11） 編寫(xiě)藥品信息表格的 Afterrowcolchange 事件過(guò)程。單擊該按鈕時(shí)關(guān)閉表單，代碼： if messagebox(是否退出藥品銷售？ ,36,藥品 銷售 )=6 amp。amp。刪除當(dāng)前購(gòu)物車 *刪除購(gòu)物車記錄 select shoppingcars delete while 編號(hào) ==cNum pack *刷新購(gòu)物車列表 ,執(zhí)行 SQL SELECT 語(yǔ)句獲得購(gòu)物車編號(hào) select 編號(hào) ,客戶 from ShoppingCars 。cNum amp。amp。 （ 8）編寫(xiě)刪除購(gòu)物車按鈕的 click 事件過(guò)程。 （ 7）編寫(xiě)關(guān)閉購(gòu)物車按鈕的 click 事件過(guò)程。在單擊該按鈕時(shí)打開(kāi)從購(gòu)物車編號(hào)列表選中的客戶購(gòu)物車，并顯示該客戶選購(gòu)的藥品。在表單大小發(fā)生變化 時(shí)自動(dòng)調(diào)整表格大小，代碼如下： *調(diào)整表格高度 =abs() =abs() （ 5）編寫(xiě)購(gòu)物車編號(hào)列表的 click 事件過(guò)程。代碼 略。 圖十 藥品銷售表單 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Autocenter .t. Command1 Caption 打開(kāi) Borderstyle 2 Name Cmdopen Caption 藥品銷售 Command2 Caption 關(guān)閉購(gòu)物車 Showwindow 1 Name Cmdclose Label1 autosize .t. Enabled .f. Caption 購(gòu)物車編號(hào) Command3 Caption 刪除購(gòu)物車 Label2 autosize .t. Name Cmddeletecar Caption 客戶 Command4 Caption 退出 Label1 autosize .t