【正文】 結(jié)算操作，默認(rèn)為 .F.。并將項(xiàng)目文件所在的文件夾設(shè)置為默認(rèn)目錄。再按照下列具體信息建立表文件。 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 From1 Alwaysontop .t. Command1 Caption 確定 Autocenter .t. Default .t. Borderstyle 2 Tabindex 2 Caption 用戶登錄 Command2 Cancel .t. Contorlbox .f. Caption 取消 Showwindow 2 Tabindex 3 Window type 1 Textbox1 Name txtname Label1 Autosize .t. Tabindex 0 Caption 用戶名 Textbox2 Name txtpassword Label3 Autosize .t. Passwordchar * Caption 藥品銷售管理系統(tǒng) Tabindex 1 Fontname 隸書(shū) Lable2 Autosize .t. 對(duì)象 屬性 屬性值 對(duì)象 屬性 屬性值 Fontsize 20 Caption 口令 表八 （ 2） 選擇表單為表單設(shè)置兩個(gè)新的屬性 nMaxLogtimes 和nLogtimes,分別用于保存允許用戶最大登錄次數(shù)和當(dāng)前登錄次數(shù) ,初始值分別為 3 和 0。 代碼如下： *首先檢查是否超過(guò)允許的最多登錄次數(shù) =+1 amp。當(dāng)前登錄次數(shù)加 1 if *在超過(guò)允許的最多登錄次數(shù)時(shí)顯示提示信息，并關(guān)閉登錄對(duì)話框 cstr=你已超過(guò)允許的最多登錄次數(shù)，登錄對(duì)話框?qū)㈥P(guān)閉 messagebox(cstr,16,用戶登錄驗(yàn)證 ) amp。顯示提示 amp。關(guān)閉登錄對(duì)話框 else *在允許的最多登錄次數(shù)范圍內(nèi)，首先獲得用戶輸入的登錄信息 cName=alltrim() cPassword=alltrim() *檢驗(yàn)用戶名是否存在 select SysUserData locate for alltrim(用戶名 )==ame if not found() messagebox(用戶名輸入錯(cuò)誤！ ,16,用戶登錄驗(yàn)證 ) =0 =len(cName) return endif *在用戶名正確時(shí)，檢查口令是否正確 if alltrim(口令 )==cPassword *顯示登錄信息通過(guò)驗(yàn)證的信息 messagebox(登錄成功 !,64,用戶登錄驗(yàn)證 ) amp。關(guān)閉登錄對(duì)話框 *保存當(dāng)前用戶信息，下列變量在系統(tǒng)主文件中定義 capp_currentuser=ame capp_currentpwd=cpassword capp_currentpop=權(quán)限 lapp_Logon=.T. amp。lapp_Logon 設(shè)置為 . else messagebox(口令輸入錯(cuò)誤！ ,16,用戶登錄驗(yàn)證 ) = endif endif 上面的 lapp_Longon 變量用于表示是否登錄成功，在系統(tǒng)的啟動(dòng)主程序中將通過(guò)判斷該變量來(lái)決定是結(jié)束程序，還是加載系統(tǒng)菜單。代碼如下： nr=messagebox(你 選擇了退出登錄，是否退出？ ,68,用戶登錄 ) if nr=6 amp。關(guān)閉登錄對(duì)話框表單 endif （ 5）編寫(xiě)表單的 Unload 事件過(guò)程。amp。路徑： sjk\forms\ 3．創(chuàng)建紀(jì)錄導(dǎo)航類。 （ 1） 單擊新建，打開(kāi)“新建類”對(duì)話框，以 mynavigator 作為類名，在“派生于”中選擇 tollbar,在“存儲(chǔ)于”中輸入 作為保存類的文件名。打開(kāi)“類設(shè)計(jì)器”窗口。 （ 3） 按表九所示為工具欄添加四個(gè)命令按鈕。路徑： sjk\class\ 4．創(chuàng)建系統(tǒng)用戶數(shù)據(jù)管理表單 在項(xiàng)目管理器中創(chuàng)建一個(gè)新的表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存系統(tǒng)用戶信息的 SysUserData 表，將表對(duì)應(yīng)的 Cursor1的 Exclusive 屬性設(shè)置為 .t.。然后為表單添加一個(gè)記錄導(dǎo)航條和用于執(zhí)行添加、刪除、修改、保存、退出添加修改以及關(guān)閉表單操作的命令按鈕，如圖四所 示： 圖四 系統(tǒng)用戶 數(shù)據(jù)管理表單 （ 1） 按 表十 設(shè)置表單和控件屬性。 （ 3） 編寫(xiě)表單 Init 事件過(guò)程，在表單加載時(shí)，在表單標(biāo)題欄中顯示 SysUserData 表中的 記錄信息，代碼如下： *根據(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 （ 4） 擴(kuò)展記錄導(dǎo)航類功能。 在首記錄、前一記錄、后一記錄和尾記錄按鈕的單擊事件過(guò)程中，首先執(zhí)行 DODEFAULT（）方法執(zhí)行記錄導(dǎo)航條類的默認(rèn)事件代碼， 即完成記錄導(dǎo)航，然后添加代碼實(shí)現(xiàn)記錄信息顯示功能。 （ 5） 編寫(xiě)添加按鈕的 click 事件過(guò)程。同時(shí)禁用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕，等執(zhí)行完保存或退出添加狀態(tài)之后再啟用。 （ 6） 編寫(xiě)修改按鈕的 click 事件過(guò)程。 （ 7） 編寫(xiě)退出按鈕的 click 事件過(guò)程?；謴?fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，啟用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕。 編寫(xiě)保存按鈕的 click 事件過(guò)程。首先檢驗(yàn)輸入的數(shù)據(jù)是否有效，然后使用 Insert 語(yǔ)句將添加的記錄或使用Replace 語(yǔ)句將修改的當(dāng)前紀(jì)錄保存到 SysUserData 表中。 （ 8） 編寫(xiě)刪除按鈕的 click 事件過(guò)程。 （ 9） 編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。amp。路徑： sjk\forms\ 在項(xiàng)目管理器中創(chuàng)建一個(gè)新表單，在表單的數(shù)據(jù)環(huán)境設(shè)計(jì)器中添加保存系統(tǒng)用戶信息的 SysUserData 表。在表單加載時(shí)，根據(jù)在capp_currentuser 變量中保存的當(dāng)前用戶從 SysUserData 表中獲得用戶的舊口令，并將用戶名和舊口令顯示在表單中。 （ 2） 編寫(xiě)清除按鈕的 click 事件過(guò)程。在單擊確定按鈕時(shí)，首先檢驗(yàn)兩次輸 入的新口令是否相同，如果不相同，則顯示相應(yīng)的提示信息，否則將新口令保存到 SysUserData 表中。 （ 4） 編寫(xiě)關(guān)閉按鈕的 click 事件過(guò)程。amp。從數(shù)據(jù)環(huán)境設(shè)計(jì)器中將 DrugInfo 表的各個(gè)字段拖動(dòng)到表單設(shè)計(jì)窗口中。 對(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)。在表單加載時(shí)，檢驗(yàn) DrugInfo 表中是否有藥品信息記錄，在表單標(biāo)題欄中顯示記錄信息，并將藥品中類組合框控件的 RowSource 屬性設(shè)置為獲得藥品種類信息 SQL SELECT 語(yǔ)句。 （ 4）擴(kuò)展 記錄導(dǎo)航類功能。在首記錄、前一記錄、后一記錄和尾記錄按鈕的單擊 事件過(guò)程中，首先執(zhí)行DODEFAULT（）方法執(zhí)行記錄導(dǎo)航條類的默認(rèn)事件代碼，即完成記錄導(dǎo)航，然后添加代碼實(shí)現(xiàn)記錄信息顯示功能。 （ 5）編 寫(xiě)添加按鈕的 click 事件過(guò)程。同時(shí)禁用記錄導(dǎo)航條、添加、修改 、刪除和關(guān)閉按鈕，在執(zhí)行了保存或退出添加狀態(tài)之后再啟用。 （ 6） 編寫(xiě)修改按鈕的 click 事件過(guò) 程。代碼略。 代碼 略。在單擊保存按鈕時(shí)，保存新添加的記錄或修改的當(dāng)前記錄。然后，恢復(fù)各個(gè)文本框的數(shù)據(jù)綁定屬性和只讀屬性，啟用記錄導(dǎo)航條、添加、修改、刪除和關(guān)閉按鈕，代碼 略。代碼 略。代碼如下： if messagebox(是否退出藥品信息管理？ ,36,藥品信息管理 )=6 amp。關(guān)閉藥品信息管理表單 endif （ 10） 保存表單。執(zhí)行藥品入庫(kù)操作時(shí)，可從列表中選擇藥品名稱和藥品編號(hào)，然后輸入藥品