【文章內(nèi)容簡(jiǎn)介】 if endif *根據(jù) SysUserData 表中是否有記錄顯示提示信息 cmsg=系統(tǒng)用戶管理 if reccount()0 cmsg=cmsg+ [當(dāng)前記錄： +alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)系統(tǒng)用戶數(shù)據(jù) ] endif =cmsg （ 10） 編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。單擊關(guān)閉時(shí)關(guān)閉表單，代碼如下： if messagebox(是否退出系統(tǒng)用戶管理？ ,36,系統(tǒng)用戶管理 )=6 amp。amp。關(guān)閉系統(tǒng)用戶管理表單 endif （ 11） 保存表單。路徑： sjk\forms\ 在項(xiàng)目管理器中創(chuàng)建一個(gè)新表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存系統(tǒng)用戶信息的 SysUserData 表。設(shè)計(jì)如圖五所示表單 圖五 修改口令表單 （ 1） 編寫(xiě)表單 Init 事件過(guò)程。在表單加載時(shí)，根據(jù)在 capp_currentuser 變量中保存的當(dāng)前用戶從 SysUserData 表中獲得用戶的舊口令，并將用戶名和舊口令顯示在表單中。代碼如下： *顯示用戶名 =capp_currentuser *顯示用戶口令 select sysuserdata locate for alltrim(用戶名 )=capp_currentuser =口令 （ 2） 編寫(xiě)清除按鈕的 click 事件過(guò)程。單擊清除時(shí)清除輸入的新口令，代碼如下： *清除新口令 = = （ 4） 編寫(xiě)確定按鈕的 click 事件過(guò)程。在單擊確 定按鈕時(shí)，首先檢驗(yàn)兩次輸入的新口令是否相同，如果不相同，則顯示相應(yīng)的提示信息，否則將新口令保存到 SysUserData 表中。代碼如下： *檢查兩次輸入的口令是否相同 with thisform IF .. messagebox(兩次輸入的新口令不相同 ,16,口令修改 ) .=K amp。amp。K 表示在文本框獲得焦點(diǎn)時(shí)選中全部文本 . return endif *獲得輸入的新口令 cpwd=alltrim(.) *修改口令 select sysuserdata replace 口令 with cpwd while 用戶名 =capp_currentuser capp_currentpwd=cpwd messagebox(口令修改成功 ,64,口令修改 ) .=cpwd .= .= Endwith （ 5） 編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。 if messagebox(是否退出口令修改？ ,36,口令修改 )=6 amp。amp。關(guān)閉口令修改表單 endif 6．創(chuàng)建藥品信息管理表單 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存藥品信息的 DrugInfo 表，將表對(duì)應(yīng)的 Cursorl 的 Exclusive 屬性設(shè)置為 .t.。從數(shù)據(jù)環(huán)境設(shè)計(jì)器中將 DrugInfo 表的各個(gè)字段拖動(dòng)到表單設(shè)計(jì)窗口中。用組合框顯示“種類(lèi)”字段數(shù)據(jù)，為表單添加一個(gè)記錄導(dǎo)航條和用于執(zhí)行 添加、刪除、修改、保存、退出添加修改以及關(guān)閉表單操作的命令按鈕，如圖六所示 圖六 藥品信息管理 （ 1） 按 表十一 設(shè)置表單和控件屬性。 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Autocenter .t. txt 編號(hào) Disablebackcolor 確定 Borderstyle 2 Disableforecolor .t. Caption 藥品信息管理 Format 2 Showwindow 1 maxlength .t. Command1 Caption 添加 Readonly 取消 Name Cmdadd Combo1 Disablebackcolor 3 Command2 Caption 修改 Disableforecolor txtname Name Cmdedit Readonly 0 Command3 Caption 刪除 Name txtpassword Name Cmddelete Sorted * Command4 Caption 保存 Rowsourcetype 1 Name Cmdsave Controlsource .t. Command5 Caption 退出 Txt 進(jìn)價(jià) Disablebackcolor 口令 Name Cmdesc Disableforecolor .t. Command6 Caption 關(guān)閉 Inputmask 2 Name Cmdexit Alignment .t. Txt 廠家 Disablebackcolor 255,255,255 Readonly 取消 Disableforecolor 0,0,0 Txt 售價(jià) Disablebackcolor 3 Readonly .t. Disableforecolor txtname Txt 名稱 Disablebackcolor 255,255,255 Inputmask 0 Disableforecolor 0,0,0 Alignment txtpassword Readonly .t. Readonly * 表 十一 （ 2）選擇“表單” /“新建屬性”命令，為表單創(chuàng)建兩個(gè)屬性 IsAdding 和 IsEditting,分別用于表示添加和編輯狀態(tài)。 （ 3）編寫(xiě)表單 Init 事件過(guò)程。在表單加載時(shí)，檢驗(yàn) DrugInfo 表中是否有藥品信息記錄，在表單標(biāo)題欄中顯示記錄信息，并將藥品中類(lèi)組合框控件的RowSource 屬性設(shè)置為獲得藥品種類(lèi)信息 SQL SELECT 語(yǔ)句。代碼如下； *根據(jù) DrugInfo 表中是否有記錄顯示提示信息 cmsg=藥品信息管理 if reccount()0 cmsg=cmsg+ [當(dāng)前記錄： +alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)藥品信息數(shù)據(jù) ] endif =cmsg *使用 SQL SELECT 語(yǔ)句創(chuàng)建藥品類(lèi)型下拉列表 =select distinct 種類(lèi) from druginfo into CURSOR temp （ 4） 擴(kuò)展記錄導(dǎo)航類(lèi)功能。在單擊記錄導(dǎo)航條中的首記錄、前一記錄、后一記錄和尾記錄按鈕改變當(dāng)前記錄時(shí)，在表單標(biāo)題欄中顯示 DrugInfo 表中的記錄信息。在首記錄、前一記錄、后一記錄和尾記錄按鈕的單擊事件過(guò)程中，首先執(zhí)行 DODEFAULT（）方法執(zhí)行記錄導(dǎo)航條類(lèi)的默認(rèn)事件代碼，即完成記錄導(dǎo)航，然后添加代碼實(shí)現(xiàn)記錄信息顯示功能。 ? 首記錄按鈕的單擊事件過(guò)程代碼如下 ： DODEFAULT( ) amp。amp。執(zhí)行記錄導(dǎo)航條類(lèi)的默認(rèn)方法 *根據(jù) DrugInfo 表中是否有記錄顯示提示信息 cmsg=藥品信息管理 if reccount()0 cmsg=cmsg+ [當(dāng)前記錄： 1/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)藥品信息數(shù)據(jù) ] endif =cmsg ? 前一記錄按鈕的單擊事件過(guò)程代碼如下： DODEFAULT( ) amp。amp。執(zhí)行記錄導(dǎo)航條類(lèi)的默認(rèn)方法 *根據(jù) DrugInfo 表中是否有記錄顯示提示信息 cmsg=藥品信息管理 if reccount()0 cmsg=cmsg+ [當(dāng)前記錄： +alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)藥品信息數(shù)據(jù) ] endif =cmsg ? 后 一記錄按鈕的單擊事件過(guò)程代碼如下： DODEFAULT( ) amp。amp。執(zhí)行記錄導(dǎo)航條類(lèi)的默認(rèn)方法 *根據(jù) DrugInfo 表中是否有記錄顯示提示信息 cmsg=藥品信息管理 if reccount()0 cmsg=cmsg+ [當(dāng)前記錄： +alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)藥品信息數(shù)據(jù) ] endif =cmsg ? 尾記錄的單擊事件過(guò)程代碼如下： DODEFAULT( ) amp。amp。執(zhí)行記錄導(dǎo)航條類(lèi)的默認(rèn)方法 *根據(jù) DrugInfo 表中是否有記錄顯示提示信息 cmsg=藥品信息管理 if reccount()0 cmsg=cmsg+ [當(dāng)前記錄： +alltrim(str(reo()))+/+alltrim(str(reccount()))+] else cmsg=cmsg+ [無(wú)藥品信息數(shù)據(jù) ] endif =cmsg （ 5） 編寫(xiě)添加按鈕的 click 事件過(guò)程。在單擊添加按鈕時(shí)，進(jìn)入添加記 錄狀態(tài)，取消各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，并清空，使其進(jìn)入編輯狀態(tài)。同時(shí)禁用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕，在執(zhí)行了保存或退出添加狀態(tài)之后再啟用。代碼如下： *取消各個(gè)文本框數(shù)據(jù)綁定屬性，在保存后再恢復(fù) 名稱 .controlsource= 名稱 .value= 編號(hào) .controlsource= 編號(hào) .value= = = 售價(jià) .controlsource= 售價(jià) .value= 進(jìn)價(jià) .controlsource= 進(jìn)價(jià) .value= 廠家 .controlsource= 廠家 .value= *取消文本框的只讀屬性 名稱 .readonly=.f. 編號(hào) .readonly=.f. =.f. 售價(jià) .readonly=.f. 進(jìn)價(jià) .readonly=.f. 廠家 .readonly=.f. =.T. amp。amp。設(shè)置添加狀態(tài)標(biāo)志 =藥品信息管理 [添加記錄 ] amp。amp。修改表單標(biāo)題 =.f. amp。amp。禁用記錄導(dǎo)航條 =.f. amp。amp。禁用添加按鈕 =.f. amp。amp。禁用修改按鈕 =.f. amp。amp。禁用刪除按鈕 =.f. amp。amp。禁用退出按鈕 （ 6） 編寫(xiě)修改按鈕的 click 事件過(guò)程。在單擊修改時(shí)，進(jìn)入修改記錄狀態(tài)，同上。代碼如下： if reccount()1 return amp。amp。在無(wú)記錄時(shí)直接返回 endif *取消各個(gè)文本框 數(shù)據(jù)綁定屬性，在保存后再恢復(fù) 名稱 .controlsource= 編號(hào) .controlsource= = 售價(jià) .controlsource= 進(jìn)價(jià) .controlsource= 廠家 .controlsource= *取消文本框的只讀屬性 名稱 .readonly=.f. 編號(hào) .readonly=.f. =.f. 售價(jià) .readonly=.f. 進(jìn)價(jià) .readonly=.f. 廠家 .readonly=.f. =.T. amp。amp。設(shè)置修改狀態(tài)標(biāo)志 =藥品信息管理 [修改記錄 ] amp。amp。修改表單標(biāo)題 =.f. amp。amp。禁用記錄導(dǎo)航條 =.f. amp。amp。禁用添加按鈕 =.f. amp。amp。禁用修改按鈕 =.f. amp。amp。禁用刪除按鈕 =.f. amp。amp。禁用退出按鈕 （ 7） 編寫(xiě)退出按鈕的 click 事件過(guò)程。 代碼如下： *退出當(dāng)前修改或添加狀態(tài) if or nReo=reo() amp。amp。記錄當(dāng)前記錄編號(hào) *恢復(fù)各個(gè)文本框數(shù)據(jù)綁定屬性 名稱 .controlsource= 編號(hào) .controlsource= = 售價(jià) .controlsource= 進(jìn)價(jià) .controlsource= 廠家 .controlsource= *恢復(fù)文本框的只讀屬性 名稱 .readonly=.T. 編號(hào) .readonly=.T. =.T. 售價(jià) .readonly=.T. 進(jìn)價(jià) .readonly=.T. 廠家 .readonly=.T. go nreo *清除編輯和添加狀態(tài)標(biāo)記 =.f. =.f. =藥品信息管理 amp。amp。修改表單標(biāo)題 =.t. amp。amp。重新啟用記錄導(dǎo)航條 =.t. amp。amp。重新啟用退出按鈕 =.t. amp。amp。重新 啟用添加按鈕 =.t. amp。amp。重新啟用修改按鈕 =.t. amp。amp。重新啟用刪除按鈕 endif *根據(jù) DrugInfo 表中是否有記錄顯示提示信息 cmsg=藥品信息管理 if reccount()0 cmsg=cmsg+