【正文】 No!39。Farewell, Aragorn! Go to Minas Tirith and save my people! I have failed.39。They have gone: the Halflings: the Orcs have taken them. I think they are not dead. Orcs bound them.39。 His glance strayed to his fallen enemies。 he said. 39。 his horn cloven in two was at his side. Many Orcs lay slain, piled all about him and at his feet. Aragorn knelt beside him. Boromir opened his eyes and strove to speak. At last slow words came. 39。 and as he turned to the left and ran towards them they retreated, until at last he could hear them no more. Drawing his bright sword and crying _Elendil! Elendil!_ he crashed through the trees. A mile, maybe, from Parth Galen in a little glade not far from the la ke he found Boromir. He was sitting with his back to a great tree, as if he was resting. But Aragorn saw that he was pierced with many blackfeathered arrows。 參考文獻： [美 ]Mike Gunderloy 著 張光霞、孫月琴、劉釗 等譯， Visual Basic 開發(fā)指南—— ADO 篇，電子工業(yè)出版社， [美 ]詹寧斯（ ）著 前導(dǎo)工作室譯 ， Visual Basic 6 數(shù)據(jù)庫開發(fā)人員指南，機械工業(yè)出版社， 梁恩主 編著， Visual Basic 編程與實例解析，科學(xué)出版社， 劉瑞新 汪遠征 編著， Visual Basic 程序設(shè)計教程，機械工業(yè)出版社， Microsoft corporation 著 微軟（中國）有限公司譯， Visual Basic 中文版語言參考手冊，北京希望電腦公司， 教育部考試中心，全國計算機等級考試二級教程 —— Access 數(shù)據(jù)庫程序設(shè)計，高教出版社， 附錄： 人事基本信息表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 人員編號 文本 10 必填字段，主鍵 人員姓名 文本 10 必填字段 性別 文本 2 出生年月 日期 /時間 短日期 婚姻狀況 文本 4 民族 文本 16 默認值：“漢族” 政治面貌 文本 10 加入時間 日期 /時間 短日期 籍貫 文本 60 戶口所在地 文本 60 身份證號 文本 20 醫(yī)療保險號 文本 20 聯(lián)系電話 文本 20 電子郵件 EMail 文本 40 聯(lián)系地址 文本 80 郵政編碼 文本 10 部門名稱 文本 20 具體科室 文本 40 職務(wù)名稱 文本 20 任命時間 日期 /時間 短日期 職稱名稱 文本 20 開始時間 日期 /時間 短日期 技術(shù)職務(wù) 文本 10 聘任時間 日期 /時間 短日期 參加工作時間 日期 /時間 短日期 連續(xù)工齡 文本 4 入校工作時間 日期 /時間 短日期 是否合同制 文本 2 學(xué) 歷 文本 10 畢業(yè)院校 文本 40 所學(xué)專業(yè) 文本 40 畢業(yè)時間 日期 /時間 短日期 最高學(xué)位 文本 10 當前狀況 文本 10 個人簡介 備注 獎懲狀況 備注 備注信息 備注 部門表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 部門編號 文本 10 必填字段，主鍵 部門名稱 文本 20 必填字段 部門類別 文本 20 必填字段 科室表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 科室編號 文本 10 必填字段，主鍵 科室名稱 文本 40 必填字段 所屬部 門編號 文本 10 必填字段 教學(xué)記錄表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 當前行號 數(shù)字 長整型 必填字段，主鍵 人員編號 文本 10 必填字段 人員姓名 文本 10 必填字段 教學(xué)時間 日期 /時間 短日期 課程名稱 文本 30 必填字段 職稱變動表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 人員編號 文本 10 必填字段，主鍵 人員姓名 文本 10 必填字段 開始時間 日期 /時間 短日期 結(jié)束時間 日期 /時間 短日期 原職稱名稱 文本 20 現(xiàn)職稱名稱 文本 20 職務(wù)變動表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 人員編號 文本 10 必填字段，主鍵 人員姓名 文本 10 必填字段 開始時間 日期 /時間 短日期 結(jié)束時間 日期 /時間 短日期 所屬部門編號 文本 10 所屬科室編號 文本 10 原職稱名稱 文本 20 現(xiàn)職稱名稱 文本 20 用戶管理： 字段名稱 數(shù)據(jù)類型 字段大小 備注 用戶姓名 文本 10 必填字段，主鍵 用戶密碼 文本 10 必填字段 用戶權(quán)限 數(shù)字 整型 必填字段 0 代表普通用戶， 1代表管理人員 r, but fainter now and desperately the horn was blow ing. Fierce and shrill rose the yells of the Orcs, and suddenly the horncalls ceased. Aragorn raced down the last slope, but before he could reach the hill39。另外，學(xué)院機房的龍老師和賈老師以及新區(qū)計算中心的王雷老師提供場地和畢業(yè)設(shè)計用機。此外，計算中心李博老師和范士勇老師在本系統(tǒng)的開發(fā)過程中也給予我很大的指導(dǎo)和幫助，尤其在系統(tǒng)設(shè)計的困難部分給予我很多幫助。有機會應(yīng)進行修改和完善。 由于設(shè)計時間有限，本系統(tǒng)只設(shè)計成單機使用，以后有機會可以設(shè)計成可以聯(lián)機使用版。 選擇管理人員 (用戶姓名 ) = (用戶密碼 ) = (用戶權(quán)限 ) = 0 a = MsgBox(用戶添加成功！ , , 操作成功！ ) End If Else a = MsgBox(已有此用戶紀錄！ , , 錯誤！ ) End If End If End Sub 圖 八 五、結(jié)束語 本系統(tǒng)經(jīng)過耐心測試，整體運行正常，基本實現(xiàn)了總體設(shè)計階段提出的 各項功能要求，并做到了人機界面友好，功能布局合理美觀，操作簡便，易于使用等特點。 不存在此用戶名，添加新用戶 If = True Then 39。 39。 amp。用戶姓名密碼判斷是否為空 a = MsgBox(用戶姓名或用戶密碼不能為空 , , 錯誤！ ) Else = select * from 用戶管理 where 用戶姓名 = 39。注銷是更換用戶的操作界面；退出是退出人事管理系統(tǒng)。添加用戶是通過在相應(yīng)的輸入框輸入數(shù)據(jù)，點擊確定按鈕后就會把數(shù)據(jù)記錄到數(shù)據(jù)庫中的用戶管理表里；刪除用戶是通過輸入要刪除用戶的姓名和密碼，確認后在用戶管理表中刪除此用戶的記錄。 圖 七 （五）用戶管理 設(shè)計 用戶管理包括添加用戶、刪除用戶、修改密碼、注銷、退出部分，其中添加用戶和刪除用戶是管理人員才可以使用的功能。職務(wù)變動表中只保存某個人員的最后一次職務(wù)變動信息。在職務(wù)變動表中首先通過人員編號判斷是否有此人員記錄，如果沒有則在表中添加一條新記錄，如果有則更改這條記錄。把改動后的信息保存在職務(wù)變動表里 a = MsgBox(記錄已保存！ , , 成功！ ) End Sub 注：代碼中 ming 和 bianhao 是保存人員姓 名和人員編號的變量。 39。 amp。 （ 2）保存 Private Sub Command3_Click() (職務(wù)名稱 ) = (開始時間 ) = ming = (人員姓名 ) bianhao = (人員編號 ) 39。 39。 amp。 39。 amp。 職務(wù)（或職稱）變動錄入 職務(wù)（或職稱）變動錄入是通過人員姓名或人員編號選擇出職 務(wù)（或職稱）變動的人員，按確定按鈕后人員的職務(wù)（或職稱）信息會自動的顯示出來，然后輸入新的信息，按保存按鈕后人員的職務(wù)（或職稱）變動信息將保存在職務(wù)（或職稱）變動表里，并且更改后的信息也將自動保存在人員基本信息表里。人員基本信息中性別、部門名稱、科室名稱、職務(wù)名稱、職稱名稱和是否是合同制設(shè)計成列表的形式。例如職務(wù)（或職稱）變動是不能在人事基本信息表中直接修改的，而是在職務(wù)（ 或職稱）變動表中記錄后再在人事基本信息表中自動更改。只允許進行前邊的瀏覽和刪除操作。 39。 amp。 amp。 amp。 a = If a 0 Then For i = 0 To a 1 0 Next i End If While Not (zd) Wend 39。 from amp。 （ 2）選定字段后，選擇所需記錄 Private Sub Command4_Click() Dim zd As String zd = = select amp。 a = If a 0 Then For i = 0 To a 1 0 Next i End If For Each i In Next i 39。其選擇記錄按鈕、確定按鈕、刪除記錄按鈕、修改記錄按鈕的程序代碼如下： （ 1）選定表，選擇要操作的字段名稱 Private Sub Command3_Click() = select * from amp。進行操作時首先要選擇所要操作的表，選定表后可以進行瀏覽表和添加記錄的操作（例：圖六為修改教學(xué)記錄表中某一條記錄）。 數(shù)據(jù)處理 管理人員可以通過管理系統(tǒng)中的數(shù)據(jù)處理對數(shù)據(jù)庫中人員基本信息表、部門表、科室表、教學(xué)記錄表這幾個表中的數(shù)據(jù)進行處理，處理包括對表或是表內(nèi)某一記錄的瀏覽，在表中添加記錄，對表中某一記錄進行修改或是刪除的操作。職務(wù)（或職稱）變動錄入是將有職務(wù)（或職稱）變動的人員的信息保存在數(shù)據(jù)庫的職務(wù)（或職稱）表中的。其中數(shù)據(jù)處理是可以對人員基本信息表進行瀏覽和部門表、科室表、教學(xué)記錄表進行數(shù)據(jù)處理的。 教學(xué)情況 可以通過輸入課程名稱或課程時間進行查詢，查詢結(jié)果將在本界面下方顯示。 職務(wù)變動查詢和職稱變動查詢可以分別通過選擇人員姓名、單位、職務(wù)（或職稱）、時間等某一條件進行查詢，輸入查詢條件，然后按確定按鈕查詢結(jié)果 將在界面下方顯示。（例：圖五為按所屬部門編號查詢科室信息） 個人信 息查詢 個人基本信息查詢中可以選擇人員編號，或是人員姓名、性別、職稱、具體科室等不同的一個條件或幾個條件組合查詢，然后在輸入框里輸入想要查詢的條件，按確定按鈕就可以查詢