【導(dǎo)讀】親愛的朋友,注意啦!此套設(shè)計除此論文資料外，還包括完整源程序。另外，本站免費提供計算機類各題目開題報告.請聯(lián)系QQ810354974獲取。維護，以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)庫一致性和。完整性強，數(shù)據(jù)安全性好的庫。而后者則要求應(yīng)用程序功能完備，易使用等特點。語言原理，VFP數(shù)據(jù)庫技術(shù)進行了較深的學(xué)習(xí)和應(yīng)用。主要完成對資料管理系統(tǒng)。的要求分析，功能模塊劃分，并由此設(shè)計了數(shù)據(jù)庫結(jié)構(gòu)和應(yīng)用程序。管理三方面要求。面功能及對數(shù)據(jù)庫的支持，先構(gòu)造一個原型，逐步增加功能，最終滿足需求。統(tǒng)中大量采用SQL查詢語句，界面友好，功能較強。采用SQLSERVER作為數(shù)據(jù)庫，解決訪問速度及數(shù)據(jù)共享的問題。力求易于使用，具有較高的擴展性和可維護性。第二章系統(tǒng)分析----------------------------------------------------------------------------4. 系統(tǒng)的初步調(diào)查-------------------------------------------------------------------4. 第三章系統(tǒng)設(shè)計----------------------------------------------------------------------------10. 第五章系統(tǒng)運行與維護-------------------------------------------------------------------51. 之為“信息資源”，信息資源的處理已經(jīng)成為當今世界上一項主要的社會活動。息時代”的開始，它使學(xué)校管理現(xiàn)代化成為可能。

　　

【正文】 用戶為當前登錄系統(tǒng)用戶 IF ALLTRIM( )=cCurUser *—— 警告對話框 MESSAGEBOX(不能刪除當前用戶 ,48,資料管理系統(tǒng) ) RETURN ENDIF SELECT SysUser 親愛的朋友 ,注意啦 ! 此套設(shè)計除此論文資料外，還包括完整源程序。如需，請訪問 為幫助大家作論文時參考，還整理了計算機類論文 23 套、機機械類論文 50 套，歡迎下載以作參考 另外，本站免費提供計算機類各題目開題報告 .請聯(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(確認退出 ,4+32,資料管理系統(tǒng) ) IF YN=6 ENDIF 創(chuàng)建“添加用戶”表單 “添加用戶”表單的“ Init”事件代碼： *—— 聲明參數(shù)用來接收參數(shù)值 PARAMETER cFormMode *—— 使用表單屬性來保存參數(shù)值 =cFormMode *—— 如果表單用來修改用戶 IF =cModify SELECT SysUser *—— 更改表單的標題 =修改用戶信息 *—— 在“系統(tǒng)用戶信息”表單中查詢 Locate For 用戶名 =cUserSet IF FOUND() *—— 顯示信息 .Value=用戶名 .Value=姓名 .ReadOnly=.T. ELSE MESSAGEBOX(指定的用戶不存 在 ,48,資料管理系統(tǒng) ) ENDIF ENDIF 【確定】按鈕的“ Click”事件代碼： *—— 聲明本地變量，儲存表單中各數(shù)據(jù)項中的數(shù)據(jù)是否正確 LOCAL OK *—— 本地變量的默認值為“ .T.” OK=.T. *—— 精確比較 SET EXACT ON *—— 進入數(shù)據(jù)檢查 DO CASE *—— 如果在“新增狀態(tài)”下“用戶名”欄為空 CASE EMPTY( 用戶名 .VALUE) .AND. =cNew MESSAGEBOX(用戶名不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“姓名”欄為空 親愛的朋友 ,注意啦 ! 此套設(shè)計除此論文資料外，還包括完整源程序。如需，請訪問 為幫助大家作論文時參考，還整理了計算機類論文 23 套、機機械類論文 50 套，歡迎下載以作參考 另外，本站免費提供計算機類各題目開題報告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) CASE EMPTY( 姓名 .Value) MESSAGEBOX(姓名不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“密碼”欄為空 CASE EMPTY(ALLTRIM( 密碼 .Value)) .AND. EMPTY(ALLTRIM(認密碼 .VALUE)) MESSAGEBOX(密碼不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果兩次密碼不一致 CASE ALLTRIM( .Value) ALLTRIM( 確認密碼 .VALUE) MESSAGEBOX(密碼與確認密碼不一致 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. ENDCASE *—— 如果檢測無誤 IF OK=.T. LOCAL sUser,cName,cPart,cPass,nNum sUser=ALLTRIM( 用戶名 .Value) IF =cNew *—— 檢測添加的用戶名名稱是否存在 SELECT Sysuser Count FOR 用戶名 =sUser TO nNum *—— 如果存在 IF nNum0 MESSAGEBOX(指定的用戶名已經(jīng)存在 ,48,資料管理系統(tǒng) ) .Value= .Setfocus Return ENDIF ENDIF *—— 如果不存在 *—— 獲取表單中各數(shù)據(jù)項的值 cName=ALLTRIM( 姓名 .Value) cPass=ALLTRIM( 密碼 .Value) *—— 確定對話框 YN=MESSAGEBOX(確定保存 ,4+32,資料管理系統(tǒng) ) *—— 如果確 認 IF YN=6 IF =cNew *—— 添加記錄 INSERT INTO SysUser(用戶名 ,密碼 ,姓名 ) VALUES (sUser,cPass,cName) ELSE *—— 修改信息 Begin Trans Update SysUser Set 姓名 =cName Where 用戶名 =sUser Update SysUser Set 密碼 =cPass Where 用戶名 =sUser END TRANS ENDIF *—— 對話框 IF =cNew MESSAGEBOX(添加成功 ,64,資料管理系統(tǒng) ) ELSE MESSAGEBOX(修改成功 ,64,資料管理系統(tǒng) ) ENDIF *—— 退出表單 親愛的朋友 ,注意啦 ! 此套設(shè)計除此論文資料外，還包括完整源程序。如需，請訪問 為幫助大家作論文時參考，還整理了計算機類論文 23 套、機機械類論文 50 套，歡迎下載以作參考 另外，本站免費提供計算機類各題目開題報告 .請聯(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ù)接收運行參數(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”事件代碼： *—— 確認對話框 YN=MESSAGEBOX(確定保存 ,4+32,資料管理系統(tǒng) ) *—— 如果確認 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 *—— 不能取消當前用戶的“用戶權(quán)限管理”權(quán)限 IF =cCurUser .AND. lbUserPurv=.F. MESSAGEBOX(不 能取消消當用戶的用戶管理權(quán)限 ,48,資料管理系統(tǒng) ) =.T. Return EndIF *—— 開始事務(wù)處理 親愛的朋友 ,注意啦 ! 此套設(shè)計除此論文資料外，還包括完整源程序。如需，請訪問 為幫助大家作論文時參考，還整理了計算機類論文 23 套、機機械類論文 50 套，歡迎下載以作參考 另外，本站免費提供計算機類各題目開題報告 .請聯(lián)系 810354974 獲取 (請先加 為好友，再聯(lián)系 ) BEGIN TRANS *—— 更新指定系統(tǒng)用戶的權(quán)限信息 UPDATE SYSUSER Set 資 料 信 息 管 理 =lbDataAdmin WHERE 用戶名 = UPDATE SYSUSER Set 資料信息瀏覽 =lbDataBrow WHERE 用戶名 = UPDATE SYSUSER Set 用 戶 信 息 管 理 =lbUserAdmin WHERE 用 戶 名 = UPDATE SYSUSER Set 用戶信息瀏覽 =lbUserBrow WHERE 用戶名 = UPDATE SYSUSER Set 借 閱 信 息 管 理 =lbLendAdmin WHERE 用 戶 名 = UPDATE SYSUSER Set 借閱信息瀏覽 =lbLendBrow WHERE 用戶名 = UPDATE SYSUSER Set 系統(tǒng)用戶管理 =lbSysUser WHERE 用戶名 = UPDATE SYSUSER Set 用戶權(quán)限管理 =lbUserPurv WHERE 用戶名 = UPDATE SYSUSER Set 資料借還操作 =lbAct WHERE 用戶名 = END TRANS *—— 如果更新了當 前登錄系統(tǒng)用戶的權(quán)限 IF =cCurUser *—— 重新獲取當前登錄系統(tǒng)用戶的權(quán)限信息 Do ENDIF *—— 模糊比較 SET EXACT OFF *—— 信息對話框 MESSAGEBOX(權(quán)限設(shè)置完成 ,64,資料管理系統(tǒng) ) *—— 退出當前表單 ENDIF 【退出】按鈕的“ Click”事件代碼： YN=MESSAGEBOX(確定退出 ,4+32,資料管理系統(tǒng) ) IF YN=6 ENDIF 創(chuàng)建信息管理模塊 創(chuàng)建“資料信息管理”表單 “資料信息管理”表單的“ ModeControl”方法： *—— 聲明本地變量 LOCAL bModify,bBrowse,OK *—— 使用本地變量存儲屬性值 bModify= bBrowse= *—— 對屬性賦初值 OK=.T. *—— 根據(jù)變量的值來設(shè)置控件的狀態(tài) *—— 移動記錄工具欄 =.NOT. bModify *—— 查詢工具欄 =.NOT. bModify *—— 表格控件 =.NOT. bModify *—— 控制工具欄中“保存”和”取消”按鈕 =bBrowse =bBrowse *—— 控制工具欄中其他按鈕 =.NOT. bModify =.NOT. bModify =. =.NOT. bModify 親愛的朋友 ,注意啦 ! 此套設(shè)計除此論文資料外，還包括完整源程序。如需，請訪問 為幫助大家作論文時參考，還整理了計算機類論文 23 套、機機械類論文 50 套，歡迎下載以作參考 另外，本站免費提供計算機類各題目開題報告 .請聯(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 R