【正文】 . Name Cmdexit Caption 藥品編號 Command5 Caption 添加 Label2 autosize .t. Name Cmdadditem Caption 數(shù)量 enabled .f. Text1 Name Txtname Command6 Caption 刪除 Text2 Name txtnum Name Cmddeleteitem maxlength 6 enabled .f. Text3 Name Txtsum Combo1 Name cmbnum Inputmask 9999 Style 2下拉列表 Grid1 Name Gddruginfo Grid2 Name Gdshoppingcar 對象 屬性 屬性值 對象 屬性 屬性值 Columncount 4 Columncount 5 Readonly .t. Readonly .t. 表 十五 （ 3） 編寫表單的 Init 事件過程。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存購物車信息的 ShoppingCars 表，將表對應(yīng)的 Cursorl 的 Exclusive 屬性設(shè)置為 .t.。關(guān)閉創(chuàng)建客戶購物車表單 endif （ 7）保存表單。代碼如下： if messagebox(是否退出創(chuàng)建客戶購物車表單？ ,36,創(chuàng)建客戶購物車 )=6 amp。 （ 6）編寫關(guān)閉按鈕的 click 事件過程。在單擊該按鈕時(shí)，獲得一個(gè)新的購物車編號。首先執(zhí)行 Create Table 命令創(chuàng)建購物車數(shù)據(jù)表，然后將購物車記錄存入“購物車記錄”數(shù)據(jù)表，代碼 略。代碼如下： *設(shè)置 ShoppingCars 的篩選條件 select shoppingcars go top *按日期篩選記錄 set filter to 日期 =datetime() count to n if n0 *存在當(dāng)天的購物車記錄，獲得最大的日期對應(yīng)的編號 go bottom cNum=編號 *顯示當(dāng)前可用的購物車編號 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 事件過程。 圖九 創(chuàng)建客戶購物車表單 對象 屬性 屬性值 對象 屬性 屬性值 From1 Autocenter .t. Label1 autosize .t. Borderstyle 2 Caption 編號 Caption 創(chuàng)建購物車 Label2 autosize .t. Showwindow 1 Caption 客戶 Command1 Caption 確定 Text1 name Textnumber Name Cmdok Disablebackcolor 255,255,255 Command2 Caption 刷新 Disableforecolor 0,0,0 Name Cmdrefresh Readonly .t. Command3 Caption 關(guān)閉 Text2 Name Txtname Name Cmdexit 表 十四 （ 3）編 寫表單的 Init 事件過程。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存購物車信息的 ShoppingCars 表，將表對應(yīng)的 Cursorl 的 Exclusive 屬性設(shè)置為 .t.。在創(chuàng)建購物車時(shí)，需要為購物車指定客戶名稱和一個(gè)可唯一標(biāo)識購物車的編號。路徑： sjk\forms\ 創(chuàng)建客戶購物車就是要為每個(gè)客戶創(chuàng)建一個(gè)保存購藥信息的表，該表保存 客戶所購藥品的編號和數(shù)量。amp。 （ 10）編寫關(guān)閉按鈕的 click 事件過程。然后，恢復(fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀 屬性，啟用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕，代碼如下： （ 9）編寫刪除按鈕的 click 事件過程。在單擊保存按鈕時(shí)，保存新添加的記錄或修改的當(dāng)前記錄。代碼 略。在單擊退出按鈕時(shí)，退出當(dāng)前添加或修改狀態(tài)。代碼 略。在單擊添加按鈕時(shí)，進(jìn)入添加記錄狀態(tài)，取消各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進(jìn)入編輯狀態(tài)。 代碼略。在單擊記錄導(dǎo)航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當(dāng)前記錄時(shí)，在表單標(biāo)題欄中顯示 DrugInfo 表中的記錄信息。 圖八 藥品庫存數(shù)據(jù)管理表單 對象 屬性 屬性值 對象 屬性 屬性值 From1 Borderstyle 2 Command1 Caption 修改 Caption 藥品庫存數(shù)據(jù)管理 Name Cmdedit Showwindow 1 Command2 Caption 刪除 Txt 編號 Disablebackcolor 255， 255， 255 Name Cmddelete Disableforecolor 0， 0， 0 Command3 Caption 保存 Readonly .t. Name Cmdsave Txt 存量 Disablebackcolor 255， 255， 255 Command 4 Caption 退出 Disableforecolor 0， 0， 0 Name Cmdesc Inputmask 9999 Command5 Caption 關(guān)閉 alignment 0左 Name Cmdexit Readonly .t. Txt 下限 Caption 999 Txt 下限 Disablebackcolor 255， 255， 255 autosize 0左 Disableforecolor 0， 0， 0 Caption .t. 表 十三 （ 4）編寫 Init 事件過程，在表單加載時(shí)， 檢驗(yàn) DrugStore 表中是否有藥品信息記錄，在表單標(biāo)題欄中顯示記錄信息。 按表十三設(shè)置表單和控件屬性。從數(shù)據(jù)環(huán)境設(shè)計(jì)器中將DrugStore 表的各個(gè)字段拖動(dòng)到表單設(shè)計(jì)器窗口中。amp。代碼如下： *選種藥品名稱對應(yīng)的編號 = *選種藥品 編號對應(yīng)的名稱 = （ 7） 編寫關(guān)閉按鈕的 click 事件過程。 （ 6） 編寫藥品名稱下拉列表框的 click 事件過程。如果存在庫存記錄，則修改對應(yīng)的庫存量，否則添加新的庫存記錄。 （ 5）編 寫保存按鈕的 click 事件過程。 對象 屬性 屬性值 對象 屬性 屬性值 From1 Autocenter .t. Combo2 Name Cmbnum Borderstyle 2 Style 2下拉列表框 Caption 藥品入庫 Text1 Name txtnum Showwindow 1 inputmask 9999 Command1 Caption 保存 Label1 autosize .t. Name Cmdsave Caption 藥品名稱 Command2 Caption 關(guān)閉 Label2 autosize txtname Name Cmdexit Caption 0 Combo1 Name Cmbname Label3 autosize .t. Style 2下拉列表框 Caption 入庫數(shù)量 表 十二 （ 4） 編寫表單的 Init 事件過程，在表單加載時(shí)執(zhí)行 SQL SELECT命令從 Druginfo 表中獲得藥品名稱和藥品編號，并用獲得的數(shù)據(jù)建立藥品名稱和藥品編號下拉列表框。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存藥品庫存信息的 DrugStore 表，將表對應(yīng)的 Cursorl 的 Exclusive 屬性設(shè)置為 .t.。路徑： sjk\forms\ 在藥品入庫表單中，顯示藥品名稱和編號列表。amp。 （ 9） 編寫關(guān)閉按鈕的 click 事件過程。 編寫刪除按鈕的 click 事件過程。首先檢驗(yàn)輸入的數(shù)據(jù)是否有效，然后使用 Insert語句將添加的記錄或使用 Replace語句將修改的當(dāng)前紀(jì)錄保存到 SysUserData 表中。 （ 8）編寫保存按鈕的 click 事件過程。 （ 7） 編寫退出按鈕的 click 事件過程。在單擊修改時(shí)，進(jìn)入修改記錄狀態(tài)，同上。代碼略。在單擊添加按鈕時(shí)，進(jìn)入添加記錄狀態(tài)，取消各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進(jìn)入編輯狀態(tài)。 代碼略。在單擊記錄導(dǎo)航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當(dāng)前記錄時(shí)，在表單標(biāo)題欄中顯示 DrugInfo 表中的記錄信息。代碼 略。 （ 3）編寫表單 Init 事件過程。用組合框顯示“種類”字段數(shù)據(jù)，為表單添加一個(gè)記錄導(dǎo)航條和用于執(zhí)行添加、刪除、修改、保存、退出添加修改以及關(guān)閉表單操作的命令按鈕，如圖六所示 圖六 藥品信息管理 （ 1） 按 表十一 設(shè)置表單和控件屬性。關(guān)閉口令修改表單 endif 6．創(chuàng)建藥品信息管理表單 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存藥品信息的 DrugInfo表，將表對應(yīng)的 Cursorl 的 Exclusive屬性設(shè)置為 .t.。 if messagebox(是否退出口令修改？ ,36,口令修改 )=6 amp。代碼 略。單擊清除時(shí)清除輸入的新口令，代碼如下： *清除新口令 = = （ 3） 編寫確定按鈕的 click 事件過程。代碼略。設(shè)計(jì)如 圖五所示表單 圖五 修改口令表單 （ 1 ）編寫表單 Init 事件過程。關(guān)閉系統(tǒng)用戶管理表單 endif （ 10） 保存表單。單擊關(guān)閉時(shí)關(guān)閉表單，代碼如下： if messagebox(是否退出系統(tǒng)用戶管理？ ,36,系統(tǒng)用戶管理 )=6 amp。在單擊刪除時(shí)刪除當(dāng)前記錄，代碼 略。然后，恢復(fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和