人事管理系統(tǒng)

1、計算機科學(xué)與技術(shù)專業(yè)薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇

2、膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁

3、肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆

4、羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀

5、聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄

6、莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿

7、膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃

8、蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁膁肄蒁袃羄莃蒀薃膀

9、艿蒀蚅羃膅葿螈膈肁薈袀羈莀薇薀螄芅薆螞罿芁薅襖螂膇薄薄肇肅薄蚆袀莂薃螈肆羋薂袁衿膄蟻薀肄肀蝕蚃袇荿蠆裊肂蒞蚈羇羅芁蚈蚇膁膇芄蝿羃肅芃袂腿莁節(jié)薁羂芇莂蚄膇膃莁螆羀聿莀羈螃蒈荿蚈肈莄莈螀袁芀莇袃肇膆莆薂衿肂莆蚄肅莀蒅螇袈芆蒄衿肅膂蒃蕿袆膈蒂螁 數(shù)據(jù)庫技術(shù)與應(yīng)用課程設(shè)計報告 題 目 人事管理系統(tǒng)學(xué)生姓名專 業(yè) 計算機科學(xué)與技術(shù)班 級學(xué) 號2011年 12 月18日目 錄一、 設(shè)計并開發(fā)人事管理系統(tǒng) 1二、 需求分析 2三、 概念設(shè)計 4四、 邏輯設(shè)計 6五、 具體設(shè)計 8六、 程序使用說明 15七、 小組分工及設(shè)計體會 20一、設(shè)計并開發(fā)人事管理系統(tǒng)一直以來人們使用傳統(tǒng)人工的方式管理員工檔案，這種管

10、理方式存在著許多缺點，譬如：效率低、保密性差，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計算機科學(xué)日漸成熟，其強大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。人事管理信息系統(tǒng)的出現(xiàn)輕而易舉的解決了傳統(tǒng)管理人員檔案的方法的缺點。伴隨著人事管理信息系統(tǒng)的廣泛應(yīng)用，它已經(jīng)成為了任何一家企業(yè)公司都不可缺少的組成部分，它的存在使得管理者更容易了解自己公司的員工,便于分配人員,易于進(jìn)行調(diào)整。所以人事管理信息系統(tǒng)能夠為管理人員提供充足的信息和快捷的查詢手段。二、需求分析人事管理系統(tǒng)題目要求：1、 基本信息包括：（1

11、） 人員基本信息：編號、姓名、性別、出生日期、參加工作日期住址、電話等；（2） 來本單位的日期及來自的單位； （3） 職稱及評定的時間和工資級別； （4） 職工的獎懲登錄； 2、 工資的確定：基本工資與職稱和級別有關(guān)； 職務(wù)補助、房補由職稱決定； 工齡津貼由工齡決定； 洗理費由性別決定； 另有每人獎金不同。3、查詢員工的各項基本信息；4、查詢每個職工的詳細(xì)工資清單。5、用戶管理：信息錄入、工資計算的工作人員及普通職工查詢自己的信息 人事管理系統(tǒng)需求分析：設(shè)計內(nèi)容：設(shè)計如下主要功能模塊人事檔案管理模塊。人員薪酬管理模塊。人員培訓(xùn)管理模塊。各類報表生成模塊。人員內(nèi)部調(diào)動、離崗管理模塊。人員獎懲情況

12、管理模塊。分析：1. 登錄2. 工作人員 職工管理 ： 查詢、更新 編號、姓名、性別、出生日期、參加工作日期、住址、電話、來自本單位日期、來自的單位、職稱。 獎懲登錄。 工資管理 ： 查詢、更新 工資級別、基本工資、職務(wù)補助、房補、工齡津貼、洗理費、獎金。3. 職工 登錄后，可以查詢基本信息，查詢來自的單位的日期及來自的單位，職稱，評定的時間和工資級別。 獎懲登錄。 查看詳細(xì)工資的清單。系統(tǒng)流程圖:登錄驗證 管理員 職工個人信息查詢查看個人獎懲查看工資清單管理職工信息人員培訓(xùn)管理管理報表管理工資獎懲三、概念設(shè)計通過對數(shù)據(jù)庫基本信息的分析，建立e-r圖如下：職稱工資級別職稱名管理員密碼登錄帳號職

13、工編號姓名性別出生日期住址電話來自本單位的時間來自的單位參加工作日期基本工資評定時間職務(wù)補助房補工齡工齡津貼工齡年數(shù)評定計算獎懲編號1金額內(nèi)容登陸培訓(xùn)培訓(xùn)時間編號經(jīng)費四、邏輯設(shè)計將e-r圖進(jìn)行總結(jié)、歸納，建立如下關(guān)系圖:職工（編號 姓名 性別 出生日期 參加工作日期 住址 電話 來自單位 來自單位的時間 職稱名 評定時間 工齡年數(shù) 編號1 ）職稱（職稱名 工資級別 基本工資 職務(wù)補助 房補 ）工齡（工齡年數(shù) 工齡津貼）獎懲（編號1 金額 內(nèi)容）管理員（登錄帳號 密碼）五、具體設(shè)計1、表結(jié)構(gòu)及數(shù)據(jù)詞典的設(shè)計（1） 總體結(jié)構(gòu)人事管理系統(tǒng)共包含6個表，其結(jié)構(gòu)如下：人事管理系統(tǒng) 職工表 職稱表 工齡表

14、獎懲 管理員表（2） 表結(jié)構(gòu)及數(shù)據(jù)詞典（3）1) 職工表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串編號 varchar50是否姓名 varchar50是是性別char10是是出生日期datetime8是是參加工作日期datetime8是是住址varchar50是是電話varchar50是是來自本單位的時間datetime8是是職稱名varchar50是是評定時間datetime8是是編號1varvhar50是是數(shù)據(jù)詞典編號=各職工的編號，1-50個字符或數(shù)字姓名=各職工的姓名，1-50個字符性別=各職工的性別，1-10個字符出生日期=各職工的出生日期，1-8個數(shù)字參加工作日期=各職工的

15、工資日期，1-8個數(shù)字住址=各職工的住址，1-50個字符電話=各職工的電話，1-50個字符來自本單位的時間=各職工來單位的時間，1-8個數(shù)字職稱名=各職工的職稱名，1-50個字符評定時間=各職工的評定時間，1-8個數(shù)字 年、月、日編號1=獎懲登錄編號，1-50個字符或數(shù)字2）職稱表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串職稱名varchar50是否工資級別 int4是是基本工資money8是是職務(wù)補助money8是是房補money8是是職稱名=各職工的職稱名，1-50個字符或數(shù)字工資級別=各職工的工資級別，1-4個字符基本工資=各職工的基本工資，1-8個數(shù)字職務(wù)補助=各職工的職務(wù)補助

16、，1-8個數(shù)字房補=各職工的房補，1-8個數(shù)字3）工齡表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串工齡年數(shù)varchar50是否工齡津貼 money8是是工齡年數(shù)=各職工的工齡年數(shù)，1-50個字符或數(shù)字工資津貼=各職工的工資津貼，1-8個數(shù)字4）洗理費表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串性別varchar50是否金額 money8是是性別=各職工的性別，1-50個字符或數(shù)字金額=各職工的金額，1-8個數(shù)字5）管理員表表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串登錄帳號varchar50是否密碼 varchar50是是登錄帳號=管理員的登錄帳號，1-50個字符或數(shù)字密

17、碼=管理員的密碼，1-50個字符或數(shù)字6）獎懲表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小必填字段允許空字符串編號1varchar50是否內(nèi)容 varchar50是是2、應(yīng)用程序的模塊圖及模塊分析 （1）應(yīng)用程序的模塊圖人事管理系統(tǒng)管理員登陸模塊職工登陸模塊職工獎懲登陸模塊更新模塊查詢模塊（2）模塊分析人事管理系統(tǒng)共包含職工登陸模塊、職工獎懲登錄模塊、管理員登錄模塊、查詢模塊和更新模塊五個模塊。1.職工登陸模塊： 模塊內(nèi)容：此模塊包括職工姓名、職工編號的輸入。 模塊功能：通過運行此模塊，匹配輸入正確的職工姓名和職工編號，則允許進(jìn)入人事管理系統(tǒng)。2.職工獎懲登陸模塊： 模塊內(nèi)容：此模塊包括職工編號的輸入。 模

18、塊功能：通過運行此模塊，匹配輸入正確的職工編號，則允許進(jìn)入獎懲查看頁面。3.管理員登錄模塊模塊內(nèi)容：此模塊包括管理員登錄帳號、密碼的輸入。模塊功能：通過此模塊，匹配的輸入正確的管理員登錄帳號和密碼，則允許進(jìn)入管理員操作頁面。 4.查詢模塊 模塊內(nèi)容：此模塊可以查看職工的詳細(xì)信息和工資信息。 模塊功能：通過此模塊，職工與管理員都可以完成相應(yīng)的查詢工作。職工可以查詢自己的基本信息而管理員可以查詢所有的職工信息。5.更新模塊 模塊內(nèi)容：此模塊可以實現(xiàn)修改信息的功能。 模塊功能：此模塊是對管理員應(yīng)用的，管理員可以修改職工的個人信息等等。 六、程序使用說明使用人事管理系統(tǒng)，必須先輸入員工號和密碼，經(jīng)確認(rèn)

19、后方可進(jìn)入系統(tǒng)主界面進(jìn)行操作。您可以選擇使用菜單項進(jìn)行操作，也可以直接點擊相應(yīng)的標(biāo)簽進(jìn)入其他的功能使用。1、菜單項的使用（1）主頁面：（2）進(jìn)入系統(tǒng)之后，顯示人員管理的主模塊的功能，如下圖（3）可以進(jìn)入職工頁面具體查看職工個人信息。（4）點擊人員檔案管理模塊，可以對人員進(jìn)行操作（5）進(jìn)入添加修改可以對員工進(jìn)行操作。（6）人員薪酬管理模塊（7）人員培訓(xùn)管理。（8）報表生成管理 （9）人員調(diào)動管理模塊（10）數(shù)據(jù)備份，恢復(fù)（10）人員獎懲情況主要代碼：1， 登錄模塊private sub command1_click()登陸 檢測帳號密碼是否為空 if text1.text = then msgb

20、ox 帳號不能為空！, vbcritical, 登陸錯誤 exit sub end if if text2.text = then msgbox 密碼不能為空！, vbcritical, 登陸錯誤 exit sub end if 連接數(shù)據(jù)庫 set ado_conn = new adodb.connection set ado_rs = new adodb.recordset str_cs = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=人事管理系統(tǒng);data

21、source=freeskyc-fd1640 str_rs = select * from 管理員表 where 登錄賬號= & trim(text1.text) & sqlconnect ado_conn, ado_rs, str_cs, str_rs 檢測帳號是否存在 if ado_rs.eof = false then 如果帳號存在 if trim(ado_rs.fields(登錄賬號) = trim(text1.text) and trim(ado_rs.fields(密碼) = trim(text2.text) then 管理系統(tǒng)主界面.show else 帳號密碼錯誤 msgbox

22、 帳號、密碼錯誤，請重新輸入！, vbcritical, 登陸錯誤 end if else 如果帳號不存在 msgbox 帳號不存在，請重新輸入！, vbcritical, 登陸錯誤 end if 斷開數(shù)據(jù)庫連接 sqldisconnect ado_rs end subprivate sub command2_click()dim intresult as integer請求用戶確認(rèn)是否真的退出系統(tǒng)登錄intresult = msgbox(你選擇了退出系統(tǒng)登錄，退出將不能啟動企業(yè)人事管理系統(tǒng)！ & vbcrlf_ & 是否真的退出？, vbyesno, 登錄驗證)if intresult =

23、vbyes then end根據(jù)用戶選擇結(jié)束應(yīng)用程序end sub2，員工添加，修改，刪除private sub command1_click()adodc1.recordset.addnewmsgbox 請輸入員工信息，不能為空！end subprivate sub command2_click()adodc1.recordset.fields(編號) = trim(text1.text)adodc1.recordset.fields(姓名) = trim(text2.text)adodc1.recordset.fields(性別) = trim(text3.text)adodc1.reco

24、rdset.fields(出生日期) = trim(text4.text)adodc1.recordset.fields(參加工作日期) = trim(text5.text)adodc1.recordset.fields(住址) = trim(text6.text)adodc1.recordset.fields(電話) = trim(text7.text)adodc1.recordset.fields(來自本單位的時間) = trim(text8.text)adodc1.recordset.fields(職稱名) = trim(text9.text)adodc1.recordset.field

25、s(評定時間) = trim(text10.text)adodc1.recordset.fields(工齡年數(shù)) = trim(text11.text)adodc1.recordset.fields(編號1) = trim(text12.text)adodc1.recordset.updateend subprivate sub command3_click()dim intresult as integer請求用戶確認(rèn)是否真的退出添加員工intresult = msgbox(你選擇了取消添加員工，取消將不能添加！ & vbcrlf_ & 是否真的取消？, vbyesno, 提示)if int

26、result = vbyes then根據(jù)用戶選擇結(jié)束應(yīng)用程序adodc1.recordset.cancelupdateend ifend subprivate sub command4_click()dim intresult as integerintresult = msgbox(確認(rèn)刪除？, vbyesno)if intresult = vbyes thenadodc1.recordset.deleteadodc1.recordset.movenextif adodc1.recordset.eof then adodc1.recordset.movelastend ifend subp

27、rivate sub command5_click()unload meend sub3，數(shù)據(jù)備份，恢復(fù)private sub command2_click() 連接數(shù)據(jù)庫 set ado_conn = new adodb.connection set ado_rs = new adodb.recordset str_cs = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=人事管理系統(tǒng);data source=freeskyc-fd1640 str_rs = se

28、lect * from 管理員表 where 登錄賬號= & trim(text1.text) & sqlconnect ado_conn, ado_rs, str_cs, str_rs ado_conn.execute backup database 人事管理系統(tǒng) to disk= & text1.text & msgbox 已保存到 & text1.text & 。備份成功。, vbinformation, 備份成功 sqldisconnect ado_rsend subprivate sub command3_click()on error resume next commondialo

29、g2.cancelerror = true commondialog2.showopen if err = cdlcancel then exit sub text2.text = commondialog2.filenameend subprivate sub command4_click() 連接數(shù)據(jù)庫 set ado_conn = new adodb.connection set ado_rs = new adodb.recordset str_cs = provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=人事管理系統(tǒng);data source=freeskyc-fd1640 str_rs = select * from 管理員表 where 登錄賬號= & trim(text1.text) & sqlconnect ado_conn, ado_rs, str_cs, str_rs ado_conn.execute use master ado_conn.execute restore database 人事管理系統(tǒng) from disk= & text2.te