【正文】 they were now driven to seek the means of subsistence elsewhere, and they waited sadly to bid farewell to the engineer. James Starr stood upright, at the door of the vast shed in which he had for so many years superintended the powerful machines of the shaft. Simon Ford, the foreman of the Dochart pit, then fiftyfive years of age, and other managers and overseers, surrounded him. James Starr took off his hat. The miners, cap in hand, kept a profound silence. This farewell scene was of a touching character, not wanting in grandeur. My friends, said the engineer, the time has e for us to separate. The Aberfoyle mines, which for so many years have united us in a mon work, are now exhausted. All our researches have not led to the discovery of a new vein, and the last block of coal has just been extracted from the Dochart pit. And in confirmation of his words, James Starr pointed to a lump of coal which had been kept at the bottom of a basket. This piece of coal, my friends, resumed James Starr, is like the last drop of blood which has flowed through the veins of the mine! We shall keep it, as the first fragment of coal is kept, which was extracted a hundred and fifty years ago from the bearings of Aberfoyle. Between these two pieces, how many generations of workmen have succeeded each other in our pits! Now, it is over! The last words which your engineer will address to you are a farewell. You have lived in this mine, which your hands have 。c., were not likely to fail for want of the mineral fuel。 hospital near Lake Placid, and was given shock treatments and released. He married his fianc 閑 , finished his education, and was set up in business in Ilium by his fatherinlaw. Ilium is a particularly good city for optometrists because the General Fe and Foundry Company is there. Every employee is required to own a pair of safety glasses, and to wear them in areas where manufacturing is going on. GFamp。 感謝我的指導老師，在畢業(yè)設計時幫助選題，在設計的過程中提出了許多有益的建議和意見，同時他先進的軟件開發(fā)理念和 思維方式也給我很大的啟發(fā)。在這種壓力下促使我們以最快的速度融入到軟件開發(fā)理論的應用中去，通過這次煅煉，使我們的系統(tǒng)開發(fā)水平各方面都有了較大的進步。 致謝 感謝學校以認真負責的態(tài)度為我們組織這次畢業(yè)設計以及畢業(yè)論文答辨。 2．通過實踐，提高了系統(tǒng)分析的能力，對數(shù)據流圖、數(shù)據字典、系統(tǒng)流程圖等系 統(tǒng)設計工具的使用有了更深刻的認識。漸增式的原型化開發(fā)方法與面向對象的程序設計的結合不但能在系統(tǒng)開發(fā)初期讓用戶了解系統(tǒng)的概貌，而且能使系統(tǒng)開發(fā)模塊化，提高開發(fā)效率，減少出錯。另外一直以來，進行程序設計均采用結構化開發(fā)方法，對系統(tǒng)的全貌難以在開發(fā)前看到，導致實現(xiàn)的系統(tǒng)不滿足需求。感覺到這幾門理論課程的重要性。 本系統(tǒng)的維護模塊 ? 權限更改 權限更改界面 第六章 開發(fā)總結 通過三個多月的系統(tǒng)開發(fā)，資料信息管理系統(tǒng)系統(tǒng)完成。 （ 3）完善性維護 為滿足用戶的需求而進行的維護。 系統(tǒng)維護的內容 按照維護對象的不 同，系統(tǒng)維護的內容可分為以下幾類： （ 1）系統(tǒng)應用程序維護 （ 2）數(shù)據維護 （ 3）代碼維護 （ 4）硬件設備維護 系統(tǒng)維護的類型 系統(tǒng)維護的重點是系統(tǒng)應用軟件的維護工作，按照軟件維護的不同性質，可以劃分為下面四種類型： （ 1）糾錯性維護 診斷和修正系統(tǒng)中遺留的錯誤。換言之，系統(tǒng)維護就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的、正確的工作狀態(tài)。 系統(tǒng)的運行 在安裝了 VF 的計算機上，在程序目錄，雙擊可執(zhí)行文件即可。 內存： 32MB 以上。退出 Visual FoxPro ENDIF 創(chuàng)建“系統(tǒng)用戶管理”表單 “系統(tǒng)用戶管理”表單“ Init”事件代碼： SELECT SYSUSER SET FILTER TO “系統(tǒng)用戶管理”表單“ Refresh”事件代碼： *—— “權限”按鈕的狀態(tài) =bUserPurv *—— “新增”、“修改”和“刪除”按鈕的狀態(tài) =bSysUser =bSysUser =bSysUser *—— 如果數(shù)據表為空 SELECT SYSUSER IF EOF() .AND. BOF() OR RECCOUNT()=0 IF bSysUser=.T. =.T. =.F. =.F. Endif ENDIF 【新增】按鈕的“ Click”事件代碼： DO FORM SetUser With cNew 【修改】按鈕的“ Click”事件代碼： PUBLIC cUserSet cUserSet= DO FORM SetUser With cModify 【刪除】按鈕的“ Click”事件代碼： *—— 確認對話框 YN=MESSAGEBOX(確定刪除用戶 ,4+32,資料管理系統(tǒng) ) *—— 如果確認 IF YN=6 *—— 精確比較方式 SET EXACT ON *—— 如果要刪除的用戶為當前登錄系統(tǒng)用戶 IF ALLTRIM( )=cCurUser *—— 警告對話框 MESSAGEBOX(不能刪除當前用戶 ,48,資料管理系統(tǒng) ) RETURN ENDIF SELECT SysUser *—— 表單中表格控件的數(shù)據源為空 =NULL *—— 邏輯刪除數(shù)據 DELETE *—— 物理刪除數(shù)據 PACK *—— 重新指定表單中表格控件數(shù)據源 =sysuser ENDIF *—— 刷新表單 【權限】按鈕的“ 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ù)據項中的數(shù)據是否正確 LOCAL OK *—— 本地變量的默認值為“ .T.” OK=.T. *—— 精確比較 SET EXACT ON *—— 進入數(shù)據檢查 DO CASE *—— 如果在“新增狀態(tài)”下“用戶名”欄為空 CASE EMPTY( 用戶名 .VALUE) .AND. =cNew MESSAGEBOX(用戶名不能為空 ,48,資料管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“姓名”欄為空 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(指定的用戶名已經存在 ,48,資料管理系統(tǒng) ) .Value= .Setfocus Return ENDIF ENDIF *—— 如果不存在 *—— 獲取表單中各數(shù)據項的值 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