【正文】 nge 事件過程，在輸入藥品編號時，在藥品信息表格中顯示與之匹配的藥品信息，代碼： *設置藥品信息臨時表 tempInfo 的過濾條件 select tempInfo cFilter=alltrim() if empty(cFilter) set filter to else set filter to cFilter $ 編號 endif （ 11） 編寫藥品信息表格的 Afterrowcolchange 事件過程。amp。cNum amp。 （ 8）編寫刪除購物車按鈕的 click 事件過程。在單擊該按鈕時打開從購物車編號列表選中的客戶購物車，并顯示該客戶選購的藥品。代碼 略。 （ 1） 在項目管理器中創(chuàng)建一個新的表單，在表單的數(shù)據(jù)環(huán)境設計器中添加保存購物車信息的 ShoppingCars 表，將表對應的 Cursorl 的 Exclusive 屬性設置為 .t.。代碼如下： if messagebox(是否退出創(chuàng)建客戶購物車表單？ ,36,創(chuàng)建客戶購物車 )=6 amp。在單擊該按鈕時，獲得一個新的購物車編號。代碼如下： *設置 ShoppingCars 的篩選條件 select shoppingcars go top *按日期篩選記錄 set filter to 日期 =datetime() count to n if n0 *存在當天的購物車記錄，獲得最大的日期對應的編號 go bottom cNum=編號 *顯示當前可用的購物車編號 n=val(right(um,5)) cNum=left(um,7) n=n+1 um=um+STRTRAN(str(n,5), ,0) =um else set date to ymd =T+STRTRAN(dtoc(date()),/,)+00001 endif （ 4）編寫確定按鈕的 click 事件過程。 （ 1） 在項目管理器中創(chuàng)建一個新的表單，在表單的數(shù)據(jù)環(huán)境設計器中添加保存購物車信息的 ShoppingCars 表，將表對應的 Cursorl 的 Exclusive 屬性設置為 .t.。路徑： sjk\forms\ 創(chuàng)建客戶購物車就是要為每個客戶創(chuàng)建一個保存購藥信息的表，該表保存 客戶所購藥品的編號和數(shù)量。 （ 10）編寫關閉按鈕的 click 事件過程。在單擊保存按鈕時，保存新添加的記錄或修改的當前記錄。在單擊退出按鈕時，退出當前添加或修改狀態(tài)。在單擊添加按鈕時，進入添加記錄狀態(tài)，取消各個文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進入編輯狀態(tài)。在單擊記錄導航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當前記錄時，在表單標題欄中顯示 DrugInfo 表中的記錄信息。 按表十三設置表單和控件屬性。amp。 （ 6） 編寫藥品名稱下拉列表框的 click 事件過程。 （ 5）編 寫保存按鈕的 click 事件過程。 （ 1） 在項目管理器中創(chuàng)建一個新的表單，在表單的數(shù)據(jù)環(huán)境設計器中添加保存藥品庫存信息的 DrugStore 表，將表對應的 Cursorl 的 Exclusive 屬性設置為 .t.。amp。 編寫刪除按鈕的 click 事件過程。 （ 8）編寫保存按鈕的 click 事件過程。在單擊修改時，進入修改記錄狀態(tài)，同上。在單擊添加按鈕時，進入添加記錄狀態(tài)，取消各個文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進入編輯狀態(tài)。在單擊記錄導航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當前記錄時，在表單標題欄中顯示 DrugInfo 表中的記錄信息。 （ 3）編寫表單 Init 事件過程。關閉口令修改表單 endif 6．創(chuàng)建藥品信息管理表單 在項目管理器中創(chuàng)建一個新的表單，在表單的數(shù)據(jù)環(huán)境設計器中添加保存藥品信息的 DrugInfo表，將表對應的 Cursorl 的 Exclusive屬性設置為 .t.。代碼 略。代碼略。關閉系統(tǒng)用戶管理表單 endif （ 10） 保存表單。在單擊刪除時刪除當前記錄，代碼 略。在單擊保存按鈕時，保存新添加的記錄或修改的當前記錄。在單擊退出按鈕時，退出當前添加或修改狀態(tài)。添加的 click 事件過程代碼 略。代碼略。 對象 屬性 屬性值 對象 屬性 屬性值 From1 Autocenter .t. Txt 用戶名 Disablebackcolor 255,255,255 Borderstyle 2 disableforecolor 0,0,0 Caption 系統(tǒng)用戶管理 Format !t Showwindow 1 Maxlength 5 Command1 Caption 添加 Readonly .t. Name Cmdadd Txt 口令 Disablebackcolor 255,255,255 Command2 Caption 修改 Disableforecolor 0,0,0 Name cmdedit Inputmast 999999 Command3 Caption 刪除 Maxlength 6 Name cmddelete Readonly .t. Command4 Caption 保存 Txt 權(quán)限 Disablebackcolor 255,255,255 Name cmdsave disableforecolor 0,0,0 Command5 Caption 退出 Inputmast 9 Name cmdesc Maxlength 1 Command6 Caption 關閉 Readonly .t. Name cmdexit 表十 （ 2） 選擇“表單” /“新建屬性”命令，為表單創(chuàng)建兩個屬性IsAdding 和 IsEditting,分別用于表示添加和編輯狀態(tài)。 控件 屬性 屬性值 Command1 Caption 首記錄 Name cmdfirst Command2 Caption 前一記錄 Name cmdprevious Command3 Caption 后一記 錄 Name cmdnext Command4 Caption 尾記錄 Name cmdlast 表九 （ 4）在工具欄中雙擊首記錄打開代碼窗口編寫 click 事件過程，代碼如下： go top 依次編寫前一記錄 click 事件過程代碼： go top 后一記錄 click 事件過程代碼： skip if eof() go bottom endif 尾記錄 click 事件過程代碼： go bottom （ 5）設計完成如圖三所示工具欄 , 保存。然后單擊確定。清除事件循環(huán) （ 6）保存登錄表單。amp。amp。amp。amp。 結(jié)構(gòu)如表七： 數(shù)據(jù)表 表名稱 文件名 系統(tǒng)用戶數(shù)據(jù)表 SysUserData 藥品信息數(shù)據(jù)表 DrugInfo 藥品銷售數(shù)據(jù)表 DrugSales 藥品庫存數(shù)據(jù)表 DrugStore 購物車記錄表 ShoppingCars 表七 2．創(chuàng)建系統(tǒng)用戶登錄表單 在項目管理器的“文檔”中選中“表單”，創(chuàng)建如圖 2 所示表單 圖 二 系統(tǒng)用戶登錄表單 （ 1） 按 表八 所示 設置表單和控件屬性。 五． 具體操作過程： 1．創(chuàng)建項目和數(shù)據(jù)庫 創(chuàng)建名稱為 DrugManage 的項 目。 結(jié)構(gòu)如表四： 字段名 數(shù)據(jù)類型 寬度 是否允許為NULL 編號 字符型 6 否 存量 數(shù)值型 4 否 下限 數(shù)值型 3 否 表四 編號與藥品信息表中的編號一致。 藥品 銷售 數(shù)據(jù)表 用于保存每種藥的銷售紀錄數(shù)據(jù)，包 括銷售紀錄編號、日期、數(shù)量、藥編號，表名為 DrugSales。 ? 客戶購物車數(shù)據(jù)：包含的數(shù)據(jù)項有購物車編號、客戶名、藥品編號、數(shù)量、結(jié)算和日期等。 ? 根據(jù)系統(tǒng)數(shù)據(jù)流圖以及一般藥房銷售管理系統(tǒng)的需求，總結(jié)出如下數(shù)據(jù)字典： ? 系統(tǒng)用戶數(shù)據(jù)：包含的數(shù)據(jù)項有系統(tǒng)用戶名、登錄口令和權(quán)限代碼。 制定采購計劃：購物人員根據(jù)藥品 庫存量和藥品銷售情況制定采購計劃。 購買結(jié)算管理：根據(jù)客戶購物車記錄結(jié)算購藥費用，并可對購物車記錄進行修改。 庫存信息管理：管理藥品的入庫，庫存量修改與查詢，制定庫存報表。 系統(tǒng)用戶管理：藥房的使用人員涉及前臺銷售員、收銀員、取藥員、采購員以及系統(tǒng) 高級管理員，系統(tǒng)用戶管理完成對各類使用人員系統(tǒng)帳戶的添加、修改、刪除和查詢。 （ 4） 使用菜單系統(tǒng)來集成系統(tǒng)功能。 （ 2） 創(chuàng)建了一個自定義類來實現(xiàn)記錄導航。藥品銷售管理系統(tǒng) 一． 系統(tǒng)簡介： 該系統(tǒng)具有系統(tǒng)用戶管理、藥品信息管理、庫存管理、藥品入庫、藥品銷售、購買結(jié)算、取藥管理、制定銷售和采購報表等主要功能。系統(tǒng)以 Visual Foxpro 窗口作為主窗口，可以同時打開多個 功能模塊窗口。利用數(shù)據(jù)綁定可以簡化數(shù)據(jù)的顯示和保存。 二． 系統(tǒng)分析： 本系統(tǒng)是針對倉儲式藥房創(chuàng)建“藥品銷售管理系統(tǒng)”的，主要有以下功能： 三． 系統(tǒng)模塊設計： 四． 數(shù)據(jù)庫設計 ? 根據(jù)系統(tǒng)功能模塊和藥房銷售管理流程，繪制 藥房銷售系統(tǒng)數(shù)據(jù) 流圖。 ? 藥品庫存數(shù)據(jù)：包含的數(shù)據(jù)項有藥品編號、庫 存量和庫存下限等。結(jié)構(gòu)如 表二 ： 字段名 數(shù)據(jù)類型 寬度 是否允許為NULL 編號 字符型 6 否 名稱 字符型 25 否 售價 數(shù)值型 6 否 進價 數(shù)值型 6 否 種類 字符型 10 否 廠家 字符型 50 否 表二 編號如 A00001， B00002。 藥品庫存數(shù)據(jù)表 用于保存每種藥的庫存信息，包括庫存編號、庫存量和庫存下限，表名為 DrugStore。結(jié)構(gòu)如 表六 ： 字段名 數(shù)據(jù)類型 寬度 是否允許為NULL 編號 字符型 11 否 客戶 字符型 10 否 日期 日期時間型 8 否 結(jié)算 邏輯型 1