【文章內(nèi)容簡(jiǎn)介】 表單創(chuàng)建兩個(gè)屬性 IsAdding和 IsEditting,分別用于表示添加和編輯狀態(tài)。 （ 3）編寫(xiě)表單 Init 事件過(guò)程。在表單加載時(shí)，檢驗(yàn) DrugInfo 表中是否有藥品信息記錄，在表單標(biāo)題欄中顯示記錄信息，并將藥品中類組合框控件的 RowSource 屬性設(shè)置為獲得藥品種類信息 SQL SELECT 語(yǔ)句。代碼 略。 （ 4）擴(kuò)展 記錄導(dǎo)航類功能。在單擊記錄導(dǎo)航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當(dāng)前記錄時(shí)，在表單標(biāo)題欄中顯示 DrugInfo 表中的記錄信息。在首記錄、前一記錄、后一記錄和尾記錄按鈕的單擊 事件過(guò)程中，首先執(zhí)行DODEFAULT（）方法執(zhí)行記錄導(dǎo)航條類的默認(rèn)事件代碼，即完成記錄導(dǎo)航，然后添加代碼實(shí)現(xiàn)記錄信息顯示功能。 代碼略。 （ 5）編 寫(xiě)添加按鈕的 click 事件過(guò)程。在單擊添加按鈕時(shí)，進(jìn)入添加記錄狀態(tài)，取消各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進(jìn)入編輯狀態(tài)。同時(shí)禁用記錄導(dǎo)航條、添加、修改 、刪除和關(guān)閉按鈕，在執(zhí)行了保存或退出添加狀態(tài)之后再啟用。代碼略。 （ 6） 編寫(xiě)修改按鈕的 click 事件過(guò) 程。在單擊修改時(shí)，進(jìn)入修改記錄狀態(tài)，同上。代碼略。 （ 7） 編寫(xiě)退出按鈕的 click 事件過(guò)程。 代碼 略。 （ 8）編寫(xiě)保存按鈕的 click 事件過(guò)程。在單擊保存按鈕時(shí)，保存新添加的記錄或修改的當(dāng)前記錄。首先檢驗(yàn)輸入的數(shù)據(jù)是否有效，然后使用 Insert語(yǔ)句將添加的記錄或使用 Replace語(yǔ)句將修改的當(dāng)前紀(jì)錄保存到 SysUserData 表中。然后，恢復(fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，啟用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕，代碼 略。 編寫(xiě)刪除按鈕的 click 事件過(guò)程。代碼 略。 （ 9） 編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。代碼如下： if messagebox(是否退出藥品信息管理？ ,36,藥品信息管理 )=6 amp。amp。關(guān)閉藥品信息管理表單 endif （ 10） 保存表單。路徑： sjk\forms\ 在藥品入庫(kù)表單中，顯示藥品名稱和編號(hào)列表。執(zhí)行藥品入庫(kù)操作時(shí)，可從列表中選擇藥品名稱和藥品編號(hào)，然后輸入藥品入庫(kù)數(shù)量，完成藥品入庫(kù)操作。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存藥品庫(kù)存信息的 DrugStore 表，將表對(duì)應(yīng)的 Cursorl 的 Exclusive 屬性設(shè)置為 .t.。 （ 2） 為表單添加標(biāo)簽、組合框、文本框和命 令按鈕等控件，如圖所示： 圖七 藥品入庫(kù)表單 （ 3） 按表 十二設(shè)置表單和控件屬性。 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Autocenter .t. Combo2 Name Cmbnum Borderstyle 2 Style 2下拉列表框 Caption 藥品入庫(kù) 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 入庫(kù)數(shù)量 表 十二 （ 4） 編寫(xiě)表單的 Init 事件過(guò)程，在表單加載時(shí)執(zhí)行 SQL SELECT命令從 Druginfo 表中獲得藥品名稱和藥品編號(hào)，并用獲得的數(shù)據(jù)建立藥品名稱和藥品編號(hào)下拉列表框。代碼 略 。 （ 5）編 寫(xiě)保存按鈕的 click 事件過(guò)程。在單擊保存時(shí)首先檢驗(yàn)是否輸入了藥品入庫(kù)數(shù)量的數(shù)據(jù)，然后檢查指定的藥品是否以存在庫(kù)存記錄。如果存在庫(kù)存記錄，則修改對(duì)應(yīng)的庫(kù)存量，否則添加新的庫(kù)存記錄。代碼 略。 （ 6） 編寫(xiě)藥品名稱下拉列表框的 click 事件過(guò)程。在藥品名稱下拉列表框中選擇時(shí)，自動(dòng)選中藥品編號(hào)列表中的對(duì)應(yīng)編號(hào)；反過(guò)來(lái)，在選擇編號(hào)時(shí)，自動(dòng)選中對(duì)應(yīng)的名稱。代碼如下： *選種藥品名稱對(duì)應(yīng)的編號(hào) = *選種藥品 編號(hào)對(duì)應(yīng)的名稱 = （ 7） 編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。代碼如下： if messagebox(是否退出藥品入庫(kù)？ ,36,藥品入庫(kù) )=6 amp。amp。關(guān)閉藥品入庫(kù)表單 endif 8．創(chuàng)建藥品庫(kù)存數(shù)據(jù)管理表單 （ 1）在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存藥品用戶信息的 DrugStore 表，將表對(duì)應(yīng)的Cursorl 的 Exclusive 屬性設(shè)置為 .t.。從數(shù)據(jù)環(huán)境設(shè)計(jì)器中將DrugStore 表的各個(gè)字段拖動(dòng)到表單設(shè)計(jì)器窗口中。 （ 2）為表單添加一個(gè)記錄導(dǎo)航條和用于執(zhí)行添加、刪除、修改、保存、退出添加修改以及關(guān)閉表單操作的命令按鈕，如圖八所示。 按表十三設(shè)置表單和控件屬性。 （ 3）選擇“表單” /“新建屬性”命令，為表單創(chuàng)建兩個(gè)屬性 IsAdding和 IsEditting，分別用于表示添加和編輯狀態(tài)。 圖八 藥品庫(kù)存數(shù)據(jù)管理表單 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Borderstyle 2 Command1 Caption 修改 Caption 藥品庫(kù)存數(shù)據(jù)管理 Name Cmdedit Showwindow 1 Command2 Caption 刪除 Txt 編號(hào) 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）編寫(xiě) Init 事件過(guò)程，在表單加載時(shí)， 檢驗(yàn) DrugStore 表中是否有藥品信息記錄，在表單標(biāo)題欄中顯示記錄信息。代碼如下 ： *根據(jù) DrugStore 表中是否有記錄顯示提示信息 cmsg=藥品庫(kù)存數(shù)據(jù)管理 if reccount()0 cmsg=cmsg+ [ 當(dāng) 前 記 錄 ：+alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)藥品庫(kù)存數(shù)據(jù) ] endif =cmsg （ 5） 擴(kuò)展記錄導(dǎo)航類功能。在單擊記錄導(dǎo)航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當(dāng)前記錄時(shí)，在表單標(biāo)題欄中顯示 DrugInfo 表中的記錄信息。在首記錄、前一記錄、后一記錄和尾記錄按鈕的單擊事件過(guò)程中，首先執(zhí)行DODEFAULT（）方法執(zhí)行記錄導(dǎo)航條類的默認(rèn)事件代碼，即完成記錄導(dǎo)航，然后添加代碼實(shí)現(xiàn)記錄信息顯示功能。 代碼略。 （ 6）編 寫(xiě)修改按鈕的 click 事件過(guò)程。在單擊添加按鈕時(shí)，進(jìn)入添加記錄狀態(tài)，取消各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進(jìn)入編輯狀態(tài)。同時(shí)禁用記錄導(dǎo)航條、添加、修改 、刪除和關(guān)閉按鈕，在執(zhí)行了保存或退出添加狀態(tài)之后再啟用。代碼 略。 （ 7） 編寫(xiě)退出按鈕的 click 事件過(guò)程。在單擊退出按鈕時(shí)，退出當(dāng)前添加或修改狀態(tài)?；謴?fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，啟用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕。代碼 略。 （ 8）編寫(xiě)保存按鈕的 click 事件過(guò)程。在單擊保存按鈕時(shí)，保存新添加的記錄或修改的當(dāng)前記錄。首先檢驗(yàn)輸入的數(shù)據(jù)是否有效，然后使用 Insert 語(yǔ)句將添加的記錄或使用 Replace 語(yǔ)句將修改的當(dāng)前紀(jì)錄保存到 SysUserData 表中。然后，恢復(fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀 屬性，啟用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕，代碼如下： （ 9）編寫(xiě)刪除按鈕的 click 事件過(guò)程。代碼 略。 （ 10）編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。代碼如下： if messagebox(是否退出藥品庫(kù)存數(shù)據(jù)管理？ ,36,藥品庫(kù)存數(shù)據(jù)管理 )=6 amp。amp。關(guān)閉藥品庫(kù)存數(shù)據(jù)管理表單 endif （ 11） 保存表單。路徑： sjk\forms\ 創(chuàng)建客戶購(gòu)物車就是要為每個(gè)客戶創(chuàng)建一個(gè)保存購(gòu)藥信息的表，該表保存 客戶所購(gòu)藥品的編號(hào)和數(shù)量。在創(chuàng)建購(gòu)物車的同時(shí)，在“購(gòu)物車記錄”表中加入購(gòu)物車的記錄，包括購(gòu)物車編號(hào)、客戶名、日期和結(jié)算等信息。在創(chuàng)建購(gòu)物車時(shí)，需要為購(gòu)物車指定客戶名稱和一個(gè)可唯一標(biāo)識(shí)購(gòu)物車的編號(hào)。購(gòu)物車編號(hào)采用自動(dòng)生成方式，以字母 T 開(kāi)頭，加日期的 6 位數(shù)字和 5 位標(biāo)識(shí)號(hào)組成，如 T07062202101。 （ 1） 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存購(gòu)物車信息的 ShoppingCars 表，將表對(duì)應(yīng)的 Cursorl 的 Exclusive 屬性設(shè)置為 .t.。 （ 2） 為表單添加標(biāo)簽、文本框和命令按鈕等控件，如 圖九所示，按表十四設(shè)置表單及控件屬性。 圖九 創(chuàng)建客戶購(gòu)物車表單 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Autocenter .t. Label1 autosize .t. Borderstyle 2 Caption 編號(hào) Caption 創(chuàng)建購(gòu)物車 Label2 autosize .t. Showwindow 1 Caption 客戶 Command1 Caption 確定 Text1 n