數(shù)據(jù)庫+vb 人事管理系統(tǒng)

1、【精品文檔】如有侵權，請聯(lián)系網(wǎng)站刪除，僅供學習與交流數(shù)據(jù)庫+vb 人事管理系統(tǒng).精品文檔.一、系統(tǒng)定義當今中國經(jīng)濟迅速發(fā)展，各個大中小型企業(yè)迅速崛起，企業(yè)的人員管理漸漸顯露出了弊端，本系統(tǒng)以一個統(tǒng)一的界面，這就很需要一個好的管理系統(tǒng)來管理自己的企業(yè)，傳統(tǒng)低效的人工管理已不合時宜。給公司的普通員工，高級員工，管理員工等提供了不同的操作及管理功能。數(shù)據(jù)庫服務器可配置在獨立的服務器上，也可配置在一臺運行本系統(tǒng)的計算機上。適用于中小型企業(yè)，或獨資的個人小公司。二、需求分析系統(tǒng)綜合需求作為一個公司的人事管理系統(tǒng)，應該給用戶提供方便、友好而簡潔的界面進行應用，并對企業(yè)的運營過程中對員工的整體管理，并將這些

2、數(shù)據(jù)進行邏輯上的融合，以便于用戶查看、分析及管理。針對中小型企業(yè)的運營模式，一般分為：行政部，人事部，銷售部，會計部等幾個部門，對部門里邊的員工和管理者，都有一個對應的數(shù)據(jù)，每個部門的員工信息綜合起來又合成了全公司的員工信息。此系統(tǒng)提供了兩個登錄方式，一個是普通員工的登錄方式，普通員工可以查看自己的信息，部門信息，最新的人事調(diào)動信息，工資信息，以及其他員工的簡單信息；另一個是系統(tǒng)管理員的登錄方式，管理員可以通過此系統(tǒng)對數(shù)據(jù)庫里邊的所有員工信息進行操作，包括添加，修改和刪除，發(fā)布人事調(diào)動信息，輸入員工出勤信息和計算員工工資等操作都有管理員進行操作，以便員工可以查看。部門編號員工編號部門描述三、系

3、統(tǒng)設計員工姓名部門名稱（一）概念結構設計部門名稱性別員工編號行政部等十個部門部門編號職位部門信息部門人數(shù)籍貫員工姓名身份證號碼所在部門編號員工編號婚姻狀況員工姓名員工原職位原部門編號入職時間人事調(diào)動現(xiàn)職位在職狀態(tài)現(xiàn)部門編號文化程度聯(lián)系電話所在部門編號員工編號出勤信息請假天數(shù)員工姓名月出勤天數(shù)加班天數(shù)曠工天數(shù)（二）邏輯結構設計員工信息員工編號intNot null員工姓名Nvarchar(10)null所在部門編號intnull職位Nvarchar(10)null性別Nvarchar(5)null籍貫Nvarchar(30)null身份證號碼bigintnull文化程度Nvarchar(5)nu

4、ll聯(lián)系電話bigintnull入職時間Nvarchar(10)null在職狀態(tài)Nvarchar(10)null婚姻狀況Nvarchar(10)null部門信息部門編號intNot null部門名稱Nvarchar(10)null部門人數(shù)Int null部門描述Nvarchar(50)null月出勤情況員工編號intNot null員工姓名Nvarchar(10)null所在部門編號intNull請假天數(shù)intNull加班天數(shù)intNull曠工天數(shù)intNull月出勤天數(shù)intnull包裝部（行政部，人事部等部門和此表數(shù)據(jù)一樣）部門編號intNot null員工編號Nvarchar(10)nu

5、ll員工編號intNull員工姓名Nvarchar(20)null人事調(diào)動員工編號intNot null員工姓名Nvarchar(20)null原部門編號intNot Null原職位Nvarchar(10)Null現(xiàn)部門編號intNot Null現(xiàn)職位Nvarchar(10)null調(diào)動原因Nvarchar(30)null（三）數(shù)據(jù)庫關系圖四、詳細設計（一）開發(fā)平臺及工具l 開發(fā)工具Vb 6.0l DBMS：Microsoft SQL Server 2005（二）編碼設計系統(tǒng)采用vb應用程序以方便開發(fā)，為數(shù)據(jù)做了很好的界面設計，并且可以進行添加刪除修改存儲等。在數(shù)據(jù)源連接方面，使用ado控件進

6、行數(shù)據(jù)庫的連接，并用datagrid 控件進行數(shù)據(jù)顯示，不過這只是普通用戶進行數(shù)據(jù)查看的界面，并不能對數(shù)據(jù)進行任何操作，而能有對數(shù)據(jù)進行操作權限的管理員就得從登錄界面進入管理界面，對數(shù)據(jù)進行增刪改減。（三）界面設計.主頁.普通用戶登錄.普通員工進入的查詢界面，按菜單進行查詢操作.登錄的員工的本人信息.用視圖對數(shù)據(jù)進行簡單的查詢.部門信息的查看.管理員登錄.管理界面員工的增刪改操作.添加操作.修改操作五、課程設計總結這次課程設計我花了兩個星期的時間來完成，前期做了一些準備工作，了解了一般超市物流管理方面的背景知識，然后再權衡了時間和人力，做了適量簡化，并完成了初步的需求分析。稍作細化后，便開始設

7、計數(shù)據(jù)庫。而后做了界面設計，完成了程序大部分的主要界面。而在編碼方面，我從系統(tǒng)的功能、規(guī)模和實用方面考慮，并沒有去學習和采用過多花哨的新技術，如.net、分布式等企業(yè)級應用。我在規(guī)劃前，進行了近半個月的時間來學習vb6.0的，還有SQL Server中觸發(fā)器和存儲過程的知識和編寫方法。而且在以后的編碼過程中，也在不斷的學習并解決遇到的問題。在數(shù)據(jù)庫設計時，由于有些倉促，沒有深入的考慮外碼約束的問題，使得編碼階段，發(fā)現(xiàn)了一個重大問題。在是十部門中某個部門中增加了某個員工后，在員工信息中并沒有記錄，主要是約束和主鍵沒設置好，并且對觸發(fā)器的使用非常陌生，不過要知道這次的課設，大部分的時間都投在了vb

8、中去了，界面設計太重要了，數(shù)據(jù)庫設計還不如說是界面設計了，很多知識都是現(xiàn)場學現(xiàn)場用的。不過還好，總算做完了，有點累，煩，但是當完成的那一會，還是挺有成就感的，因為這次確實有很大的收獲，知道了一個系統(tǒng)的建立過程是多么的復雜，對以后出去工作應該有些幫助吧。這次課程設計，我更加深入的了解到軟件工程的復雜性，以及前期規(guī)劃分析的重要性。其實在vb這種面向對象的程序設計中，我的瀑布開發(fā)模型并不太合適。而且如果系統(tǒng)再稍微大型一些，以一人之力也難以完成。以后的學習中應該學習一些先進的思想，并多加實踐，從寫程序和軟件架構兩個方面都增強自己的能力。六、參考文獻1.Visual basic 6.0程序設計 2.數(shù)據(jù)

9、庫系統(tǒng)概論（第三版）七、附錄 數(shù)據(jù)庫部分源代碼create database 人事管理系統(tǒng) /數(shù)據(jù)庫創(chuàng)建on primary(name=人事管理系統(tǒng)_dat, filename='F:數(shù)據(jù)庫文件人事管理系統(tǒng)_dat.mdf', size=5MB, maxsize=20MB, filegrowth=10%)log on( name=人事管理系統(tǒng)_log, filename='F:數(shù)據(jù)庫文件人事管理系統(tǒng)_dat.ldf', size=2MB, maxsize=10MB, filegrowth=1MB)use 人事管理系統(tǒng)gocreate table 員工信息(員工編

10、號 int not null,員工姓名 nvarchar(10) not null,所在部門編號 int not null,職位 nvarchar(10) null,性別 nvarchar(5) null,籍貫 nvarchar(30) null,身份證號碼 bigint null,婚姻狀況 nvarchar(5) null,文化程度 nvarchar(10) null,聯(lián)系電話 bigint null,入職時間 datetime null,在職狀態(tài) nvarchar(10) null,primary key(員工編號,員工姓名,所在部門編號)create table 部門信息(部門編號 in

11、t not null,部門名稱 nvarchar(10) null,部門人數(shù) int null,部門描述 nvarchar(50) null,primary key(部門編號)create table 人事部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 行政部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 銷售部(員工編號 int not null,員工姓名 nvarchar(20) null,prim

12、ary key(員工編號)create table 會計部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 生產(chǎn)部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 技術部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 包裝部(員工編號 int not null,員工姓名 nvarchar(20) null,prim

13、ary key(員工編號)create table 采購部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 服務部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 宣傳部(員工編號 int not null,員工姓名 nvarchar(20) null,primary key(員工編號)create table 工資(員工編號 int not null,員工姓名 nvarchar(10) not null,出

14、勤天數(shù) int null,總工資 int null,primary key(員工編號,員工姓名)create table 月出勤情況(員工編號 int not null,員工姓名 nvarchar(10) not null,所在部門編號 int not null,請假天數(shù) int null,加班天數(shù) int null,曠工天數(shù) int null,月全天出勤天數(shù) int null,日期 datetime null,primary key(員工編號,員工姓名,所在部門編號)create table 人事調(diào)動(員工編號 int not null,員工姓名 nvarchar(10) not null,

15、調(diào)動原因 nvarchar(30) null,原部門編號 int not null,原職位 nvarchar(10) null,現(xiàn)部門編號 int not null,現(xiàn)職位 nvarchar(10) null,primary key(員工編號,員工姓名)create table 登錄信息(用戶名 nvarchar(20) null,用戶密碼 nvarchar(20) null)create table 管理員信息(用戶名 nvarchar(20) null,用戶密碼 nvarchar(20) null)create view 員工工資查詢asselect 員工編號,員工姓名,請假天數(shù),加班天數(shù)

16、,曠工天數(shù),月全天出勤天數(shù),總工資from 工資,月出勤情況where 工資.員工編號=月出勤情況.員工編號;create view 部門員工信息asselect 部門編號,部門名稱,員工編號,員工姓名from 員工信息,部門信息where 員工信息.所在部門編號=部門信息.部門編號create view 員工簡單信息查詢asselect 員工編號,員工姓名,所在部門編號,部門名稱,職位,聯(lián)系電話from 員工信息,部門信息where 員工信息.所在部門編號=部門信息.部門編號insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(101,'行政部',0,

17、'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(102,'人事部',0,'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(103,'會計部',0,'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(104,'銷售部',0,'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(105,'包裝部',0,'無')inse

18、rt 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(106,'技術部',0,'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(107,'生產(chǎn)部',0,'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(108,'宣傳部',0,'無')insert 部門信息(部門編號,部門名稱,部門人數(shù),部門描述)values(109,'采購部',0,'無')insert 部門信息(部門編號,部門名

19、稱,部門人數(shù),部門描述)values(110,'服務部',0,'無')insert 行政部(員工編號,員工姓名)values(10101,'劉星')insert 行政部(員工編號,員工姓名)values(10103,'劉小星')insert 行政部(員工編號,員工姓名)values(10104,'劉中星')insert 行政部(員工編號,員工姓名)values(10107,'劉大星')insert 行政部(員工編號,員工姓名)values(10108,'劉笑星')insert 行政部

20、(員工編號,員工姓名)values(10109,'劉校星')insert 月出勤情況(員工編號,員工姓名,所在部門編號,請假天數(shù),加班天數(shù),曠工天數(shù),月全天出勤天數(shù))values(10201,'劉星',102,0,0,0,30)insert 人事調(diào)動(員工編號,員工姓名,原部門編號,原職位,現(xiàn)部門編號,現(xiàn)職位)values(10201,'劉星',101,'經(jīng)理',102,'經(jīng)理')insert 登錄信息(用戶名,用戶密碼)values('10101'，'10101')insert 登

21、錄信息(用戶名,用戶密碼)values('10201'，'10201')insert 管理員信息(用戶名,用戶密碼)values('sa'，'123')vb部分代碼form1 代碼Private Sub 關閉_Click()EndEnd SubPrivate Sub 管理員登陸_Click()frmLogin.ShowUnload MeEnd SubPrivate Sub 員工登陸_Click()frmLogin1.ShowUnload MeEnd Sub管理員登陸代碼Option ExplicitPrivate Sub cmdC

22、ancel_Click() Me.Hide Form1.ShowEnd SubPrivate Sub cmdOK_Click() Dim user As String, pass As String, sqluse As String, sqlpass As String, trsql As String If txtUserName.Text = "" Then MsgBox "請輸入用戶名！", vbExclamation txtUserName.SetFocus Else user = txtUserName.Text End If If txtP

23、assword.Text = "" Then MsgBox "請輸入密碼！", vbExclamation txtPassword.SetFocus Else pass = txtPassword.Text End If sqluse = "SELECT * FROM 管理員信息 WHERE 用戶名='" & user & "'" sqlpass = "SELECT * FROM 管理員信息 WHERE 用戶密碼='" & pass & &

24、quot;'" trsql = "SELECT * FROM 管理員信息 WHERE 用戶名='" & user & "' AND 用戶密碼='" & pass & "'" With Adodc1 .CommandType = adCmdText .RecordSource = sqluse .Refresh If .Recordset.EOF And .Recordset.BOF Then MsgBox "沒有此用戶，請重新輸入!"

25、 Else .RecordSource = sqlpass .Refresh If .Recordset.EOF And .Recordset.BOF Then MsgBox "密碼錯誤，請重新輸入!" Else .RecordSource = trsql .Refresh If .Recordset.EOF And .Recordset.BOF Then MsgBox "無效用戶，請重新輸入!" Else Form8.Show Unload Me End If End If End If End WithEnd SubPrivate Sub rorm_

26、initialize()ChDrive App.PathChDir App.PathEnd Sub員工信息操作Private Sub Command1_Click() '添加用戶Dim user As Integeruser = Val(Text1.Text)With Adodc1 .CommandType = adCmdText .RecordSource = "SELECT * FROM 員工信息 WHERE 員工編號=" & user & "" .Refresh If .Recordset.BOF Then .Records

27、et.AddNew .Recordset.Fields(0).Value = user .Recordset.Fields(1).Value = Text2.Text .Recordset.Fields(2).Value = Val(Text3.Text) .Recordset.Fields(3).Value = Text4.Text .Recordset.Fields(4).Value = Text5.Text .Recordset.Fields(5).Value = Text6.Text .Recordset.Fields(6).Value = Text7.Text .Recordset.

28、Fields(7).Value = Text8.Text .Recordset.Fields(8).Value = Text9.Text .Recordset.Fields(9).Value = Text10.Text .Recordset.Fields(10).Value = Text11.Text .Recordset.Fields(11).Value = Text12.Text .Recordset.Update MsgBox "添加用戶成功" Unload Me Else MsgBox "員工編號已注冊，請重新輸入" Me.Hide End If

29、End WithEnd SubPrivate Sub Command2_Click()Form8.ShowEnd SubPrivate Sub Command3_Click() '修改信息Dim user1 As Integer, user2 As Stringuser1 = Val(Text13.Text)user2 = Text14.TextWith Adodc1 .CommandType = adCmdText .RecordSource = "SELECT * FROM 員工信息 WHERE 員工編號=" & user1 & " A

30、ND 員工姓名='" & user2 & "'" .Refresh If .Recordset.BOF Then MsgBox "你的資料未輸入系統(tǒng),請找管理員" Else .Recordset.Fields(0).Value = Text1.Text .Recordset.Fields(1).Value = Text2.Text .Recordset.Fields(2).Value = Text3.Text .Recordset.Fields(3).Value = Text4.Text .Recordset.F

31、ields(4).Value = Text5.Text .Recordset.Fields(5).Value = Text6.Text .Recordset.Fields(6).Value = Text7.Text .Recordset.Fields(7).Value = Text8.Text .Recordset.Fields(8).Value = Text9.Text .Recordset.Fields(9).Value = Text10.Text .Recordset.Fields(10).Value = Text11.Text .Recordset.Fields(11).Value =

32、 Text12.Text .Recordset.UpdateBatch MsgBox "該員工信息已經(jīng)修改，請查詢確認！" End IfEnd WithEnd SubPrivate Sub Command4_Click() '刪除信息Dim user As Integeruser = Val(Text13.Text)With Adodc1 .CommandType = adCmdText .RecordSource = "SELECT * FROM 員工信息 WHERE 員工編號=" & user & "" .Refresh If .Recordset.BOF Then MsgBox &q