【正文】 如需，請?jiān)L問 為幫助大家作論文時參考，還整理了計(jì)算機(jī)類論文 23 套、機(jī)機(jī)械類論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類各題目開題報(bào)告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) *—— 表單中與數(shù)據(jù)綁定的控件 .ReadOnly=. .ReadOnly=.NOT. bModify .Enabled=bModify .ReadOnly=.NOT. bModify .ReadOnly=.NOT. bModify .ReadOnly=.NOT. bModify .ReadOnly=.NOT. bModify .Enabled=bModify .ReadOnly=.NOT. bModify =bModify *—— 權(quán)限管理相關(guān) IF bDataAdmin=.F. =.F. =.F. =.F. ENDIF “資料信息管理”表單的“ Init”事件代碼： SELECT DataInfo SET FILTER TO =.F. =.F. “資料信息管理”表單的“ Refresh”事件代碼： *—— 選擇所在的工作區(qū) SELECT DataInfo *—— 如果表為空 IF EOF() .AND. BOF() OR RECC。如需，請?jiān)L問 為幫助大家作論文時參考，還整理了計(jì)算機(jī)類論文 23 套、機(jī)機(jī)械類論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類各題目開題報(bào)告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) ENDIF ENDIF *—— 模糊比較 SET EXACT OFF 【退出】按鈕的“ Click”事件代碼： YN=MESSAGEBOX(確定退出 ,4+32,資料管理系統(tǒng) ) IF YN=6 ENDIF 創(chuàng)建“權(quán)限管理”表單 “權(quán)限管理”表單的“ Init”事件代碼： *—— 聲明參數(shù)接收運(yùn)行參數(shù) PARAMETER cUserPurv *—— 使用自定義屬性來保存參數(shù)值 =cUserPurv SELECT Sysuser *—— 獲取要設(shè)置權(quán)限的用戶的原有權(quán)限值 LOCATE FOR ALLTRIM(用戶名 )=ALLTRIM(cUserPurv) IF FOUND() *—— 在表單中顯示權(quán)限情況 =系統(tǒng)用戶 +cUserPurv+的系統(tǒng)權(quán)限 = = = = = = = = = ENDIF 【確定】按鈕的“ Click”事件代碼： *—— 確認(rèn)對話框 YN=MESSAGEBOX(確定保存 ,4+32,資料管理系統(tǒng) ) *—— 如果確認(rèn) IF YN=6 *—— 聲明本地變量保存復(fù)選框的值 LOCAL lbDataBrow,lbDataAdmin,lbUserBrow,lbUserAdmin LOCAL lbLendAdmin,lbLendBrow,lbSysUser,lbUserPurv,lbact *—— 獲取復(fù)選框的值 lbDataAdmin= lbDataBrow= lbUserAdmin= lbUserBrow= lbLendAdmin= lbLendBrow= lbSysUser= lbUserPurv= lbAct= *—— 精確比較 SET EXACT ON *—— 不能取消當(dāng)前用戶的“用戶權(quán)限管理”權(quán)限 IF =cCurUser .AND. lbUserPurv=.F. MESSAGEBOX(不 能取消消當(dāng)用戶的用戶管理權(quán)限 ,48,資料管理系統(tǒng) ) =.T. Return EndIF *—— 開始事務(wù)處理 親愛的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。如需，請?jiān)L問 為幫助大家作論文時參考，還整理了計(jì)算機(jī)類論文 23 套、機(jī)機(jī)械類論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類各題目開題報(bào)告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) *—— 表單中表格控件的數(shù)據(jù)源為空 =NULL *—— 邏輯刪除數(shù)據(jù) DELETE *—— 物理刪除數(shù)據(jù) PACK *—— 重新指定表單中表格控件數(shù)據(jù)源 =sysuser ENDIF *—— 刷新表單 【權(quán)限】按鈕的“ Click”事件代碼： cUserSet=ALLTRIM( ) DO FORM SetPurv With cUserSet 【退出】按鈕的“ Click”事件代碼： YN=MESSAGEBOX(確認(rèn)退出 ,4+32,資料管理系統(tǒng) ) IF YN=6 ENDIF 創(chuàng)建“添加用戶”表單 “添加用戶”表單的“ Init”事件代碼： *—— 聲明參數(shù)用來接收參數(shù)值 PARAMETER cFormMode *—— 使用表單屬性來保存參數(shù)值 =cFormMode *—— 如果表單用來修改用戶 IF =cModify SELECT SysUser *—— 更改表單的標(biāo)題 =修改用戶信息 *—— 在“系統(tǒng)用戶信息”表單中查詢 Locate For 用戶名 =cUserSet IF FOUND() *—— 顯示信息 .Value=用戶名 .Value=姓名 .ReadOnly=.T. ELSE MESSAGEBOX(指定的用戶不存 在 ,48,資料管理系統(tǒng) ) ENDIF ENDIF 【確定】按鈕的“ Click”事件代碼： *—— 聲明本地變量，儲存表單中各數(shù)據(jù)項(xiàng)中的數(shù)據(jù)是否正確 LOCAL OK *—— 本地變量的默認(rèn)值為“ .T.” OK=.T. *—— 精確比較 SET EXACT ON *—— 進(jìn)入數(shù)據(jù)檢查 DO CASE *—— 如果在“新增狀態(tài)”下“用戶名”欄為空 CASE EMPTY( 用戶名 .VALUE) .AND. =cNew MESSAGEBOX(用戶名不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“姓名”欄為空 親愛的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。amp。amp。amp。如需，請?jiān)L問 為幫助大家作論文時參考，還整理了計(jì)算機(jī)類論文 23 套、機(jī)機(jī)械類論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類各題目開題報(bào)告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) “ Unload”事件： *—— 清除事件循環(huán) Clear Events *—— 退出 Visual FoxPro Quit 創(chuàng)建系統(tǒng)用戶管理模塊 創(chuàng)建“系統(tǒng)登錄”表單 【確定】按鈕的“ Click”事件代碼 *—— 改為精確比較 SET EXACT ON *—— 試圖登錄次數(shù)自動加 1 =+1 *—— 選擇“系統(tǒng)用戶信息”表所在的工作區(qū) SELECT SysUser *—— 查找用戶名 LOCATE FOR ALLTRIM( )=ALLTRIM( .VALUE) *—— 如果找到用戶名 IF FOUND() *—— 如果密碼正確 IF ALLTRIM(密碼 )=ALLTRIM( .VALUE) *—— 將登錄的用戶名保存到全局變量中 cCurUser=ALLTRIM(用戶名 ) *—— 調(diào)用“ GetPurv”程序獲取登錄的用戶的權(quán)限信息 DO *—— 退出表單 *—— 調(diào) 用系統(tǒng)主表單 DO FORM MainForm ELSE *—— 如果密碼錯誤 *—— 如果次數(shù)小于 3 IF 3 MESSAGEBOX(密碼錯誤 ,請重新輸入 ,48,資料管理系統(tǒng) ) .VALUE= .VALUE= .SETFOCUS ELSE *—— 如果資料為 3 MESSAGEBOX(用戶名或者密碼錯誤三 次 ,系統(tǒng)無法啟動 ,48,資料管理系統(tǒng) ) *—— 退出表單 *—— 結(jié)束事件循環(huán) CLEAR EVENTS *—— 退出 Visual FoxPro QUIT ENDIF ENDIF ELSE IF 3 MESSAGEBOX(用戶名不存在 ,請重新輸入 ,48,資料管理系統(tǒng) ) .VALUE= .VALUE= .SETFOCUS ELSE MESSAGEBOX(用戶名或者密碼錯誤三次 ,系統(tǒng)無法啟動 ,48,資料管理系統(tǒng) ) CLEAR EVENTS QUIT 親愛的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。amp。 顯示登錄表單 親愛的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。 聲明全局變量，用來保存系統(tǒng)中的登錄用戶 PUBLIC bDataAdmin,bDataBrow,bUserAdmin,bUserBrow,bLendAdmin,bLendBrow,bSysUser,bUserPurv,bAct *—— 調(diào)用登錄表單 DO FORM Logon amp。尋找窗口標(biāo)題 =MESSAGEBOX(程序已經(jīng)運(yùn)行了 ,48,資料管理系統(tǒng) ) QUIT ENDIF =lpWindowName *—— 聲明全局變量 PUBLIC cCurUser amp。 指定日期表達(dá)式的顯示格式為 *—— 避免多次運(yùn)行程序 *—— 聲明 API函數(shù)“ FindWindow” DECLARE Integer FindWindow IN String lpClassName,String lpWindowName lpWindowName=資料管理系統(tǒng) IF .NOT. FindWindow(0,lpWindowName)==0 amp。 顯示四位年代 SET DATE ANSI amp。 關(guān)閉系統(tǒng)菜單 SET CENTURY ON amp。 可關(guān)掉 VFP系統(tǒng)菜單區(qū)域 SET SYSMENU TO amp。 將狀態(tài)欄關(guān)閉 SET SYSMENU OFF amp。 覆蓋時不要確認(rèn) SET STAT BAR OFF amp。 關(guān)閉命令顯示 SET SAFETY OFF amp。 禁止運(yùn)行的程序在按 ESC 鍵被中斷 SET TALK OFF amp。如需，請?jiān)L問 為幫助大家作論文時參考，還整理了計(jì)算機(jī)類論文 23 套、機(jī)機(jī)械類論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類各題目開題報(bào)告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) *—— 如果在記錄指針在數(shù)據(jù)表的末尾 IF RECNO()=RECCOUNT() .OR. EOF() =.T. =.T. =.F. =.F. ELSE *—— 如果記錄指針在數(shù)據(jù)表的首部 IF RECNO()=1 .OR. BOF() =.F. =.F. =.T. =.T. ELSE *—— 如果記錄指針不在數(shù)據(jù)表的首部也不在尾部 =.T. =.T. =.T. =.T. ENDIF ENDIF ENDIF “命令按鈕工具欄”類 【推出】按鈕的“ Click”事件代碼： LOCAL YN YN=Messagebox(確定退出 ,4+32,資料管理系統(tǒng) ) IF YN=6 ENDIF 創(chuàng)建系統(tǒng)主表單 創(chuàng)建主程序 *—— 系統(tǒng)環(huán)境設(shè)置 CLEAR CLEAR ALL SET ESCAPE OFF amp。amp。amp。amp。amp。amp。amp。 程序設(shè)計(jì)（ 部分邏輯及代碼） 創(chuàng)建可視化按鈕 要使鼠標(biāo)指針移動到按鈕上方時鼠標(biāo)指針發(fā)生變化，需要在按鈕的“ MouseMove” 事件中添加代碼。 （ 2） 版本中提供了大量的諸如“數(shù)據(jù)庫設(shè)計(jì)器”、“表單設(shè)計(jì)器”、“菜單設(shè)計(jì)器”、“報(bào)表設(shè)計(jì)器”等開發(fā)設(shè)計(jì)工具和向?qū)Чぞ撸?Wizard） ,使以往費(fèi)時費(fèi)力的開發(fā)工作變得輕松自如。選用該工具有發(fā)下幾方面的優(yōu)點(diǎn)： （ 1） 是目前微機(jī)上最優(yōu)秀的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)軟件，正如其名 親愛的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論