【正文】 入庫數(shù)量，完成藥品入庫操作。 （ 2） 為表單添加標簽、組合框、文本框和命 令按鈕等控件，如圖所示： 圖七 藥品入庫表單 （ 3） 按表 十二設置表單和控件屬性。代碼 略 。在單擊保存時首先檢驗是否輸入了藥品入庫數(shù)量的數(shù)據(jù)，然后檢查指定的藥品是否以存在庫存記錄。代碼 略。在藥品名稱下拉列表框中選擇時，自動選中藥品編號列表中的對應編號；反過來，在選擇編號時，自動選中對應的名稱。代碼如下： if messagebox(是否退出藥品入庫？ ,36,藥品入庫 )=6 amp。關閉藥品入庫表單 endif 8．創(chuàng)建藥品庫存數(shù)據(jù)管理表單 （ 1）在項目管理器中創(chuàng)建一個新的表單，在表單的數(shù)據(jù)環(huán)境設計器中添加保存藥品用戶信息的 DrugStore 表，將表對應的Cursorl 的 Exclusive 屬性設置為 .t.。 （ 2）為表單添加一個記錄導航條和用于執(zhí)行添加、刪除、修改、保存、退出添加修改以及關閉表單操作的命令按鈕，如圖八所示。 （ 3）選擇“表單” /“新建屬性”命令，為表單創(chuàng)建兩個屬性 IsAdding和 IsEditting，分別用于表示添加和編輯狀態(tài)。代碼如下 ： *根據(jù) DrugStore 表中是否有記錄顯示提示信息 cmsg=藥品庫存數(shù)據(jù)管理 if reccount()0 cmsg=cmsg+ [ 當 前 記 錄 ：+alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無藥品庫存數(shù)據(jù) ] endif =cmsg （ 5） 擴展記錄導航類功能。在首記錄、前一記錄、后一記錄和尾記錄按鈕的單擊事件過程中，首先執(zhí)行DODEFAULT（）方法執(zhí)行記錄導航條類的默認事件代碼，即完成記錄導航，然后添加代碼實現(xiàn)記錄信息顯示功能。 （ 6）編 寫修改按鈕的 click 事件過程。同時禁用記錄導航條、添加、修改 、刪除和關閉按鈕，在執(zhí)行了保存或退出添加狀態(tài)之后再啟用。 （ 7） 編寫退出按鈕的 click 事件過程。恢復各個文本框的數(shù)據(jù)綁定屬性和只讀屬性，啟用記錄導航條、添加、修改、刪除和關閉按鈕。 （ 8）編寫保存按鈕的 click 事件過程。首先檢驗輸入的數(shù)據(jù)是否有效，然后使用 Insert 語句將添加的記錄或使用 Replace 語句將修改的當前紀錄保存到 SysUserData 表中。代碼 略。代碼如下： if messagebox(是否退出藥品庫存數(shù)據(jù)管理？ ,36,藥品庫存數(shù)據(jù)管理 )=6 amp。關閉藥品庫存數(shù)據(jù)管理表單 endif （ 11） 保存表單。在創(chuàng)建購物車的同時，在“購物車記錄”表中加入購物車的記錄，包括購物車編號、客戶名、日期和結(jié)算等信息。購物車編號采用自動生成方式，以字母 T 開頭，加日期的 6 位數(shù)字和 5 位標識號組成，如 T07062202101。 （ 2） 為表單添加標簽、文本框和命令按鈕等控件，如 圖九所示，按表十四設置表單及控件屬性。在表單加載時自動產(chǎn)生一個購物車編號，首先檢查 ShoppingCars 中是否有記錄，如果有則用最大的編號加 1 得到新的購物車編號，否則，用標示 號 00001以及日期的 6 位數(shù)字組成購物車編號。在單擊該按鈕時執(zhí)行購物車創(chuàng)建操作。 （ 5）編寫刷新按鈕的 click 事件過程。代碼與表單的 Init 代碼相同。單擊關閉按鈕時關閉表單。amp。路徑： sjk\forms\ 在藥品銷售表單中，可執(zhí)行打開和關閉購物車 、向?qū)з徫镘囂砑?、修改或刪除項目，以及刪除購物車操作。 （ 2） 為表單添加標簽、文本框和命令按鈕等控件，如圖十所示，按表十五設置表單及控件屬性。在表單加載時，獲得購物車編號列表和藥品信息表格，顯示默認購物車的客戶姓名。 （ 4）編寫表單的 Resize 事件過程。當從購物車編號列表中選擇購物車時，自動顯示對應的客戶姓名，代碼如下： cItem= select ShoppingCars locate for 編號 ==cItem =客戶 （ 6）編寫打開按鈕的 click 事件過程。代碼 略。在單擊該按鈕時，關閉當前客戶購物車，代碼 略。在單擊該按鈕時，刪除當前客戶購物車，代碼如下： *刪除當前選定得購物車 cNum= if messagebox(是否刪除購物車 +cNum+？ ,36,藥品銷售 )=6 amp。選擇刪除當前購物車 drop table amp。amp。 into CURSOR temp order by 編號 select temp go top do while not eof() (編號 ) skip enddo *設置默認選項 if reccount()0 =1 go top =客戶 else = *無購物車記錄，禁用各個功能按鈕 =.F. =.F. =.F. =.F. =.F. endif use amp。關閉臨時表 temp endif （ 9）編寫退出按鈕的 click 事件過程。amp。在藥品信息表格中單擊時，將對應藥品的編號填寫到“藥品編號”文本框中，代碼如下： LPARAMETERS nColIndex select tempInfo =編號 （ 12）編寫添加按鈕的 click 事件過程。代碼 略。在單擊該按鈕時刪除購物車中的當前項目，代碼 略。路徑： sjk\forms\ 制訂采購計劃表單可分別顯示有庫存和無庫存藥品的信息，采購員根據(jù)這些信息制訂采購計劃。 （ 2） 為表單為表單添加標簽、文本框和命令按鈕等控件，如圖十一和表十 六 設置表單及控件屬性。代碼 略。在庫存藥品信息和無庫存藥品信息表格中單擊鼠標時，將藥品的名稱和編號顯示到文本框中。在單擊該按 鈕時將藥品采購信息添加到 buyreport 表中，并顯示在選購項目表格中。 （ 6） 在項目管理器中創(chuàng)建一個報表來顯示采購計劃，如圖十二所示。在設計報表時，先在報表的數(shù)據(jù)環(huán)境中添加 buyreport表，然后將該表的字段拖放到報表的“細節(jié)”部分，這樣可自動插入顯示 buyreport 表記錄的域控件。單擊時打印采購計劃書。路徑： sjk\forms\ 12．創(chuàng)建銷售報表管理表單 在銷售報表中，分別按藥品種類顯示各種藥品銷售的詳細信息，包括藥品名稱、編號、售價、進價、數(shù)量、銷售額、利潤、銷售日期等數(shù)據(jù)。 （ 1） 在項目管理器中創(chuàng)建一個本地視圖，用于獲得藥品 名稱、編號、售價、進價、數(shù)量、銷售額、利潤、銷售日期等數(shù)據(jù)。其 SQL 代碼如下： SELECT , , , ,。 ( )* AS 利潤，； * AS 銷售額， ； FROM drugmanage!druginfo INNER JOIN drugmanage!drugsales 。 ORDER BY （ 2）在項目管理器中創(chuàng)建一個報表。如圖十三 圖十三 藥品銷售報表 （ 3）在項目管理器中創(chuàng)建一個新的表單。 圖十四 銷售報表管理表單 對象 屬性 屬性值 對象 屬性 屬性值 From1 Autocenter .t. Combo1 Style 2 Caption 銷售報表管理 Label1 autosize .t. Showwindow 1 Caption 設置篩選條件 Command1 Caption 預覽報表 Grid1 Deletemark .f. Name Cmdpreview Recordsourcetype 1別名 Command2 Caption 打印報表 recordsource Salesview Name Cmdprint Readonly .t. Command3 Caption 關閉 Name Cmdexit 表 十七 （ 4）編寫表單的 init 事件過程。 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。關閉 tempDate 臨時表 （ 5）編寫表單的 resize 事件過程。在選擇了篩選 條件時，根據(jù)選擇設置 salesview 的篩選條件，代碼如下： cFilter=alltrim() select salesview if cFilter==全部 set filter to else set filter to val(cFilter)=month(日期 ) endif （ 7）編寫預覽報表按鈕的 click 事件過程。在單擊時打印設置報表。單擊時關閉表單。amp。路徑： sjk\forms\ 13．設計啟動程序 在啟動程序中首先定義用于保存當前用戶身份信息的全局變量，然后顯示系統(tǒng)登錄表單。在項目管理器的“代碼”選項中新建一程序，命名為 main 選擇“項目” /“設置主文件”命令將其設置為主文件。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。在項目管理器中單擊連編打開連編選項對話框，進行連編測試。 2． 系統(tǒng)模塊設計：根據(jù)系統(tǒng)分析，劃分系統(tǒng)功能模塊、建立系統(tǒng)功能模塊圖。 4． 詳細設計： 系統(tǒng)功能模塊編程實現(xiàn)。 七．參考文獻： [1]郭盈發(fā)主編．《數(shù)據(jù)庫原理與應用》 .西安 : 電子科技大學出版社 ,2021. [2]史嘉權主編．《數(shù)據(jù)庫系統(tǒng)教程》 . 北京：清華大學出版社 . 2021. [3]史濟民主編．《 FoxPro 及其應用系統(tǒng)開發(fā)》 .北京：清華大學出版社 ,2021. [4]薩師煊主編．《數(shù)據(jù)庫系統(tǒng)概述》 .北京：高等教育出版社 ,2021.