【正文】 mp。 = False = True = True End If End Sub （ 4）修改記錄 Private Sub Command7_Click() If = 人事基本信息表 Then a = MsgBox(人事基 本信息表不允許修改記錄！ , , 注意！ ) Else = False = False = True End If End Sub 注：如果選擇的是人事基本信息表則不允許進行修改記錄。（例：圖七為職務變動錄入）其中確定按鈕和保存按鈕的程序代碼如下： （ 1）確定 Private Sub Command1_Click() If = True Then = select * from 人 事基本信息表 where 人員編號 =39。 If Not IsNull((職務名稱 )) Then = (職務名稱 ) = (任命時間 ) End If End If End Sub 注 ：確定按鈕作用是在輸入職務變動的人員姓名或人員編號之后，此人員的職務名稱和任命時間會顯示在界面下方相應的地方。代碼前一段是更改人事基本信息表此人員的職務信息，后一段是把此次更改的記錄保存在職務變動表中。修改密碼是用戶修改密碼的界面，其中用戶的姓名是自動顯示在界面上的，用戶只需要輸入原來密碼和新密碼就可以修改密碼了。查詢輸入的用戶姓名是否已經存在 If Then 39。 本系統(tǒng)在開發(fā)過程中得到了指導教師徐衛(wèi)鋒老師的大力支持和細心指導，給予我以及我們做的系統(tǒng)很大的幫助，并且積極與我討論系統(tǒng)的細節(jié)問題，給系統(tǒng)提出了很多寶貴的意見和建議，這樣才使我們的系統(tǒng) 能夠成功的設計出來。 現(xiàn)在 許多的機關單位的人事 管理水平還停留在紙介質的基礎上，這樣的機制 已 經不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。 另外，人事管理工作范圍涉及整個學院，需要處理的數(shù)據(jù)量不是特別龐大復雜，所以小型的 MB 級 DBMS 如 access 就可以勝任此項工作，不需要選擇大型的數(shù)據(jù)庫系統(tǒng)浪費資源。 ADO 是通用數(shù)據(jù)訪問（ UDA，Universal Data Access）戰(zhàn)略的核心技術之一。 （ 3）科室表 用于保存科室信息，包括科室編號、科室名稱、所屬部門名稱。管理人員可以添加、修改、刪除記錄，可以添加或刪除用戶。普通用戶：只擁有查詢數(shù)據(jù)表中數(shù)據(jù)的權力。 39。（主界面如圖四） 因為在人事管理系統(tǒng)中，人事基本信息是整個人事管理的主要部分，所以人員信息的錄入是重要而且工作量較大的工作。 教學情況 可以通過輸入課程名稱或課程時間進行查詢，查詢結果將在本界面下方顯示。進行操作時首先要選擇所要操作的表，選定表后可以進行瀏覽表和添加記錄的操作（例：圖六為修改教學記錄表中某一條記錄）。 from amp。 amp。人員基本信息中性別、部門名稱、科室名稱、職務名稱、職稱名稱和是否是合同制設計成列表的形式。 amp。 39。 圖 七 （五）用戶管理 設計 用戶管理包括添加用戶、刪除用戶、修改密碼、注銷、退出部分，其中添加用戶和刪除用戶是管理人員才可以使用的功能。 amp。 由于設計時間有限，本系統(tǒng)只設計成單機使用，以后有機會可以設計成可以聯(lián)機使用版。 參考文獻： [美 ]Mike Gunderloy 著 張光霞、孫月琴、劉釗 等譯， Visual Basic 開發(fā)指南—— ADO 篇，電子工業(yè)出版社， [美 ]詹寧斯（ ）著 前導工作室譯 ， Visual Basic 6 數(shù)據(jù)庫開發(fā)人員指南，機械工業(yè)出版社， 梁恩主 編著， Visual Basic 編程與實例解析，科學出版社， 劉瑞新 汪遠征 編著， Visual Basic 程序設計教程，機械工業(yè)出版社， Microsoft corporation 著 微軟（中國）有限公司譯， Visual Basic 中文版語言參考手冊，北京希望電腦公司， 教育部考試中心，全國計算機等級考試二級教程 —— Access 數(shù)據(jù)庫程序設計，高教出版社， 附錄： 人事基本信息表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 人員編號 文本 10 必填字段，主鍵 人員姓名 文本 10 必填字段 性別 文本 2 出生年月 日期 /時間 短日期 婚姻狀況 文本 4 民族 文本 16 默認值：“漢族” 政治面貌 文本 10 加入時間 日期 /時間 短日期 籍貫 文本 60 戶口所在地 文本 60 身份證號 文本 20 醫(yī)療保險號 文本 20 聯(lián)系電話 文本 20 電子郵件 EMail 文本 40 聯(lián)系地址 文本 80 郵政編碼 文本 10 部門名稱 文本 20 具體科室 文本 40 職務名稱 文本 20 任命時間 日期 /時間 短日期 職稱名稱 文本 20 開始時間 日期 /時間 短日期 技術職務 文本 10 聘任時間 日期 /時間 短日期 參加工作時間 日期 /時間 短日期 連續(xù)工齡 文本 4 入校工作時間 日期 /時間 短日期 是否合同制 文本 2 學 歷 文本 10 畢業(yè)院校 文本 40 所學專業(yè) 文本 40 畢業(yè)時間 日期 /時間 短日期 最高學位 文本 10 當前狀況 文本 10 個人簡介 備注 獎懲狀況 備注 備注信息 備注 部門表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 部門編號 文本 10 必填字段，主鍵 部門名稱 文本 20 必填字段 部門類別 文本 20 必填字段 科室表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 科室編號 文本 10 必填字段，主鍵 科室名稱 文本 40 必填字段 所屬部 門編號 文本 10 必填字段 教學記錄表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 當前行號 數(shù)字 長整型 必填字段，主鍵 人員編號 文本 10 必填字段 人員姓名 文本 10 必填字段 教學時間 日期 /時間 短日期 課程名稱 文本 30 必填字段 職稱變動表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 人員編號 文本 10 必填字段，主鍵 人員姓名 文本 10 必填字段 開始時間 日期 /時間 短日期 結束時間 日期 /時間 短日期 原職稱名稱 文本 20 現(xiàn)職稱名稱 文本 20 職務變動表： 字段名稱 數(shù)據(jù)類型 字段大小 備注 人員編號 文本 10 必填字段，主鍵 人員姓名 文本 10 必填字段 開始時間 日期 /時間 短日期 結束時間 日期 /時間 短日期 所屬部門編號 文本 10 所屬科室編號 文本 10 原職稱名稱 文本 20 現(xiàn)職稱名稱 文本 20 用戶管理： 字段名稱 數(shù)據(jù)類型 字段大小 備注 用戶姓名 文本 10 必填字段，主鍵 用戶密碼 文本 10 必填字段 用戶權限 數(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。 His glance strayed to his fallen enemies。No!39。 he said. 39。另外，學院機房的龍老師和賈老師以及新區(qū)計算中心的王雷老師提供場地和畢業(yè)設計用機。 選擇管理人員 (用戶姓名 ) = (用戶密碼 ) = (用戶權限 ) = 0 a = MsgBox(用戶添加成功！ , , 操作成功！ ) End If Else a = MsgBox(已有此用戶紀錄！ , , 錯誤！ ) End If End If End Sub 圖 八 五、結束語 本系統(tǒng)經過耐心測試，整體運行正常，基本實現(xiàn)了總體設計階段提出的 各項功能要求，并做到了人機界面友好，功能布局合理美觀，操作簡便，易于使用等特點。用戶姓名密碼判斷是否為空 a = MsgBox(用戶姓名或用戶密碼不能為空 , , 錯誤！ ) Else = select * from 用戶管理 where 用戶姓名 = 39。職務變動表中只保存某個人員的最后一次職務變動信息。 amp。 39。例如職務（或職稱）變動是不能在人事基本信息表中直接修改的，而是在職務（ 或職稱）變動表中記錄后再在人事基本信息表中自動更改。 amp。 （ 2）選定字段后，選擇所需記錄 Private Sub Command4_Click() Dim zd As String zd = = select amp。 數(shù)據(jù)處理 管理人員可以通過管理系統(tǒng)中的數(shù)據(jù)處理對數(shù)據(jù)庫中人員基本信息表、部門表、科室表、教學記錄表這幾個表中的數(shù)據(jù)進行處理，處理包括對表或是表內某一記錄的瀏覽，在表中添加記錄，對表中某一記錄進行修改或是刪除的操作。 職務變動查詢和職稱變動查詢可以分別通過選擇人員姓名、單位、職務（或職稱）、時間等某一條件進行查詢，輸入查詢條件，然后按確定按鈕查詢結果 將在界面下方顯示。主要分為三個功能模塊：查詢系統(tǒng)、管理系統(tǒng)、用戶管理。 amp。所以上述的兩大部分的功能不能對任何使用者無條件開放。其中普通人員是可以進行查詢操作和更改自己密碼；管理人員是可以進行查詢操作，數(shù)據(jù)庫中各表的添加、刪除、瀏覽和修改等數(shù)據(jù)處理，添加、刪除用戶等用戶信息 的操作。此表是人事管理系統(tǒng)中最主要的表，每個人員的基本情況都在此表中都有記錄。 本系統(tǒng)中 VB 和數(shù)據(jù)庫 access2021 連接是通過 VB 中的 ADO 實現(xiàn)的。這就要求所開發(fā)的管理系統(tǒng)具備基本的數(shù)據(jù)庫功能如增添、刪除、修改、查詢以外，還應具備對大量原始數(shù)據(jù)進行自動檢索整理并提取有用信息的更高層次的自動化功能以提高辦公效率。 關鍵詞： 人事管理系統(tǒng)；數(shù)據(jù)庫；分析；設計；表；代碼 Abstract: This is the article of analysis the personnel management system of, including its important demand and functions. The article shows the detail how to implement some important functions with Visual , and gives some reusable codes, with some change this code can easily be used in other systems which have the similar function. Key word: Personnel management system； Database； Analysis； Design； Table； Code 目 錄 一、引言 ┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉ 1 （一）開發(fā)背景┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉ 1 （二）系統(tǒng)硬軟件環(huán)境┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉ 1 1 系統(tǒng)運行環(huán)境┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉ 1 2