【導讀】維護，以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)庫一致性和。完整性強，數(shù)據(jù)安全性好的庫。而后者則要求應(yīng)用程序功能完備，易使用等特點。語言原理，VFP數(shù)據(jù)庫技術(shù)進行了較深的學習和應(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)編碼與實現(xiàn)--------------------------------------------------------------------20. 開發(fā)工具的選擇-------------------------------------------------------------------21. 第五章系統(tǒng)運行與維護-------------------------------------------------------------------51. 第六章開發(fā)總結(jié)---------------------------------------------------------------------------53. 附錄：參考文獻------------------------------------------------------------------------------54. 之為“信息資源”，信息資源的處理已經(jīng)成為當今世界上一項主要的社會活動。在計算機在硬件方面的發(fā)展已達到了每三個月更新?lián)Q代一次的驚人速度。構(gòu)化、面向?qū)ο?、可視化的語言。

　　

【正文】 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 *—— 聲明本地變量保存復選框的值 LOCAL lbDataBrow,lbDataAdmin,lbUserBrow,lbUserAdmin LOCAL lbLendAdmin,lbLendBrow,lbSysUser,lbUserPurv,lbact *—— 獲取復選框的值 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ù)處理 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ù)據(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 RECCOUNT()=0 =.T. =.F. IF bDataAdmin=.T. =.T. ENDIF =.T. ENDIF 【新增】按鈕的“ Click”事件代碼： *—— 選擇“資料信息”表所在的工作區(qū) SELECT DataInfo *—— 保存記錄號 =RECNO() *—— 到末記錄 GO BOTTOM *—— 聲明本地變量 LOCAL sNum *—— 數(shù)據(jù)表最后一條記錄的值 sNum= *—— 數(shù)據(jù)表末尾新增記錄 APPEND BLANK *—— 新增記錄的“資料編號”值為自動增加的值 .Value=AutoAdd(sNum) *—— 表單進入修改狀態(tài) =.T. =.T. *—— 新增記錄的“存檔日期”值為系統(tǒng)當前日期 .Value=Date() *—— 刷新表單 【修改】按鈕的“ Click”事件代碼： *—— 選擇“資料信息”表所在的工作區(qū) SELECT DataInfo *—— 保存記錄指針位置 =RECNO() *—— 表單進入修改狀態(tài) =.T. =.T. *—— 刷新表單 【刪除】按鈕的“ Click”事件代碼： *—— 確認對話框 YN=MESSAGEBOX(確定刪除 ,4+32,資料管理系統(tǒng) ) *—— 如果確認 IF YN=6 *—— 設(shè)置表格控件的數(shù)據(jù)源為空 =NULL SELECT DataInfo *—— 邏輯刪除 DELETE *—— 物理刪除 PACK *—— 設(shè)置表格控件的數(shù)據(jù)源 =DataInfo *—— 如果刪除后表為空 IF EOF() .AND. BOF() .OR. RECCOUNT()=0 ELSE *—— 如果不為空，移動記錄指針 IF EOF() SKIP1 ELSE SKIP ENDIF ENDIF *—— 刷新表單 ENDIF 【保存】按鈕的“ Click”事件代碼： *—— 聲明本地變量 LOCAL OK,YN *—— 本地變量賦初值 OK=.T. *—— 檢查表單中數(shù)據(jù)項的輸入情況 DO CASE *—— 如果“資料編號”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(資料編號不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“資料名稱”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(資料名稱不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“資料類型”為空 CASE EMPTY( 資料類型 .Value) MESSAGEBOX(資料類型 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. ENDCASE *—— 如果檢測無誤 IF OK=.T. *—— 確認對話框 YN=MESSAGEBOX(確定保存 ,4+32,資料管理系統(tǒng) ) IF YN=6 *—— 試圖保存，如果保存失 敗 IF TABLEUPDATE(.F.)=.F. MESSAGEBOX(資料編號重復 ,48,資料管理系統(tǒng) ) .SetFocus ELSE *—— 保存成功 *—— 回到瀏覽狀態(tài) =.F. =.F. ENDIF *—— 刷新表單 ENDIF ENDIF 【取消】按鈕的“ Click”事件代碼： *—— 聲明本地變量 LOCAL YN *—— 確認對話框 YN=MESSAGEBOX(確定取消 ,4+32,資料管理系統(tǒng) ) *—— 如果確認 IF YN=6 *—— 選擇“資料信息”表所在工作區(qū) SELECT DatAInfo *—— 取消對記錄的修改 TABLEREVERT(.F.) *—— 如果“資料信息”表為空 IF EOF() .AND. BOF() .OR. RECCOUNT()=0 *—— 表單初始化 ELSE *—— 回到瀏覽狀態(tài) GO =.F. =.F. ENDIF *—— 刷新表單 ENDIF 【查詢】按鈕的“ Click”事件代碼： LOCAL SelTJ *—— 查詢條件默認為“ .T.” SelTJ=.T. *—— 如果 SearchKey1 文本框中的值非空 IF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM() + 39。 $ 資料編號 ENDIF *—— 如果 SearchKey2 文本框中的值非空 IF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 +ALLTRIM()+ 39。 $ 資料名稱 ENDIF *—— 如果 SearchKey3 文本框中的值非空 IF .NOT. EMPTY(ALLTRIM()) SelTJ=SelTJ + AND 39。 + ALLTRIM()+ 39。 $ 所屬部門 ENDIF *—— 選擇“資料信息”表所在工作區(qū) SELECT DataInfo *—— 清除可能存在的過濾條件 SET FILTER TO *—— 設(shè)置過濾條件 SET FILTER TO amp。SelTJ *—— GO TOP *—— 刷新表單 創(chuàng)建“用戶信息管理”表單 “用戶信息管理”表單的“ ModeControl”方法 *—— 聲明本地變量 LOCAL bModify,bBrowse,OK *—— 使用本地變量存儲屬性值 bModify= bBrowse= *—— 對屬性賦初值 OK=.T. *—— 根據(jù)變量的值來設(shè)置控件的狀態(tài) *— — 移動記錄工具欄 =.NOT. bModify *—— 查詢工具欄 =.NOT. bModify *—— 表格控件 =.NOT. bModify *—— 控制工具欄中“新增”和”退出”按鈕 =.NOT. bModify =.NOT. bModify *—— 控制工具欄中其他按鈕 =. =.NOT. bModify =bBrowse =bBrowse *—— 表單中與數(shù)據(jù)綁定的控件 .ReadOnly=.NOT. bModify .ReadOnly=.NOT. bModify .ReadOnly=.NOT. bModify .ReadOnly=.NOT. bModify .Enabled=bModify *—— 權(quán)限管理相關(guān) IF bUserAdmin=.F. =.F. =.F. =.F. ENDIF “用戶信息管理”表單的“ Init”事件代碼： SELECT UserInfo SET FILTER