員工信息管理系統(tǒng)設(shè)計說明書

1、 HYPERLINK / 課程設(shè)計講明書 NO.1職員信息治理系統(tǒng)1.需求分析 通過用VB6.0編寫職員信息治理系統(tǒng)，掌握 Visual Basic語言的數(shù)據(jù)類型、表達式、程序結(jié)構(gòu)與流程控件語句、數(shù)組、函數(shù)、過程的概念與使用方法； 掌握程序界面中菜單、工具欄、狀態(tài)欄的設(shè)計方法，能用對話框設(shè)計單文檔程序，掌握MDI多窗體程序的設(shè)計方法； 了解數(shù)據(jù)庫應(yīng)用程序的結(jié)構(gòu)，初步掌握以DATA控件、ADO控件、ADO對象為數(shù)據(jù)源，設(shè)計數(shù)據(jù)庫應(yīng)用程序的方法；。該系統(tǒng)要緊考慮了職員信息治理需求:，支持多條件查詢;修改、添加、查詢、刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。本系統(tǒng)能夠?qū)β殕T差不多信息進行添加，修改，刪除，查

2、詢操作，還能夠?qū)β殕T的調(diào)動信息進行添加，刪除，修改，查詢等操作。真正實現(xiàn)了職員信息治理的自動化和信息化。2概要設(shè)計2.1系統(tǒng)結(jié)構(gòu) 沈 陽 大 學(xué)課程設(shè)計講明書 NO.2治理員登錄治理員登錄修改口令輸入用戶名和密碼推斷用戶名和密碼進入主界面退 出職員信息治理系統(tǒng)1系統(tǒng)2 職員差不多信息3職員調(diào)動信息5關(guān)心退 出添加職員信息修改職員信息查詢職員信息添加調(diào)動信息修改密碼添加用戶刪除職員信息修改調(diào)動信息查詢調(diào)動信息職員差不多信息職員調(diào)動信息刪除調(diào)動信息關(guān)于4打印報表圖1職員信息治理信息 沈 陽 大 學(xué)課程設(shè)計講明書 NO.32.2數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫設(shè)計是數(shù)據(jù)庫治理系統(tǒng)的第二個步驟，應(yīng)依照系統(tǒng)功能模塊繪制

3、系統(tǒng)數(shù)據(jù)流圖，總數(shù)據(jù)字典，設(shè)計數(shù)據(jù)庫結(jié)構(gòu)。依照職員信息治理系統(tǒng)的需求，總結(jié)出下面的數(shù)據(jù)字典：(1)用戶數(shù)據(jù)：內(nèi)部工作人員使用職員信息治理系統(tǒng)的身份數(shù)據(jù)，包括的數(shù)據(jù)項有用戶名、密碼。(2)職員差不多信息數(shù)據(jù)：包括的數(shù)據(jù)項有職員編號、職員姓名、性不、籍貫、年齡、生日、學(xué)歷、專業(yè)、地址、郵編、電話、郵箱、入職時刻、部門、職位等。(3)職員調(diào)職信息數(shù)據(jù)：包括的數(shù)據(jù)項有職員編號、職員姓名、原部門、新部門、原職務(wù)、新職務(wù)、調(diào)出時刻、調(diào)入時刻等。(4)職員人數(shù)信息數(shù)據(jù)：包括的數(shù)據(jù)項有職員人數(shù)。本職員信息治理系統(tǒng)使用Access創(chuàng)建職員信息治理系統(tǒng)的數(shù)據(jù)庫。依照前面分析的數(shù)據(jù)字典，為每一個數(shù)據(jù)建立一個數(shù)據(jù)表。

4、各個數(shù)據(jù)表的的結(jié)構(gòu)分不如下:1)用戶數(shù)據(jù)表用戶數(shù)據(jù)表命名為“用戶表”，其結(jié)構(gòu)如表1所示。其中“用戶名”字段定義為主鍵（Primary Key）.not null表示不同意空值。表1 用戶表結(jié)構(gòu)字段名數(shù)據(jù)類型講明用戶名Char主鍵，字段大小為6密碼Char字段大小為62)職員差不多信息表：其結(jié)構(gòu)如表2所示。其中，“職員編號”字段定義為主鍵（Primary Key）. 沈 陽 大 學(xué)課程設(shè)計講明書 NO.4 沈 陽 大 學(xué)課程設(shè)計講明書 NO.5表2 職員差不多信息數(shù)據(jù)表結(jié)構(gòu)字段名數(shù)據(jù)類型講明編號Varchar自動編號,主鍵姓名Varchar不為空性不char不為空籍貫Varchar不為空年齡In

5、t不為空出生日期smalldatatime不為空學(xué)歷Varchar不為空專業(yè)Varchar不為空地址Varchar不為空郵編Varchar不為空電話Varchar可為空郵箱Varchar可為空入職時刻smalldatatime不為空進入公司時刻smalldatatime不為空參加工作時刻smalldatatime不為空起薪時刻smalldatatime不為空職位Varchar不為空3)職員調(diào)動信息表：其結(jié)構(gòu)如表3所示。包括的數(shù)據(jù)項有職員編號、職員姓名、原部門、新部門、原職務(wù)、新職務(wù)、調(diào)出時刻、調(diào)入時刻等。 沈 陽 大 學(xué)課程設(shè)計講明書 NO.6表3 讀者類不數(shù)據(jù)表結(jié)構(gòu)字段名數(shù)據(jù)類型講明記錄編號

6、char主鍵，字段為1職員編號varchar不為空，字段為8職員姓名varchar不為空原部門varchar不為空新部門varchar不為空原職務(wù)varchar不為空新職務(wù)varchar不為空調(diào)出時刻smalldatatime不為空調(diào)入時刻smalldatatime不為空4)職員人數(shù)信息數(shù)據(jù)：包括的數(shù)據(jù)項有職員人數(shù)表4 職員人數(shù)數(shù)據(jù)表結(jié)構(gòu)字段名數(shù)據(jù)類型講明職員人數(shù)Int主鍵3.詳細設(shè)計3.1運行流程當(dāng)程序運行這后，你首先看到的界面如下圖所示，其中窗體的頂部有菜單編輯器，分不有系統(tǒng)， 職員差不多信息，職員調(diào)動信息，打印報表，關(guān)心等菜單 。窗體作為程序的啟動窗體。使用菜單編輯器為主窗體添加多級子菜

7、單：添加職員信息，修改職員信息，刪除職員信息，查詢職員信息，添加職員調(diào)動信息，刪除職員調(diào)動信息，修改職員調(diào)動信息，查詢職員調(diào)動信息，關(guān)心。系統(tǒng)主窗體如圖2所示 沈 陽 大 學(xué)課程設(shè)計講明書 NO.7圖2 主窗體2.4.2設(shè)計系統(tǒng)治理窗體系統(tǒng)治理菜單下共有3個子菜單,分不是添加用戶，修改密碼和退出。單擊”添加用戶”子菜單,則進入用戶治理窗體。窗體中使用文本框顯示記錄用戶名和密碼字段數(shù)據(jù)。單擊“添加用戶”按鈕可添加用戶名和密碼。單擊“修改密碼”按鈕，可修改用戶的密碼。單擊“退出”按鈕，則關(guān)閉窗體。用戶治理窗體如圖3所示圖3 用戶治理窗體 沈 陽 大 學(xué)課程設(shè)計講明書 NO.8單擊”修改密碼”子菜單

8、,則進入修改密碼窗體。窗體中使用文本框顯示舊密碼，新密碼，確認密碼數(shù)據(jù)。單擊“確定”按鈕可添加修改密碼。數(shù)據(jù)庫的uerinfo表中則相應(yīng)的修改這一條紀(jì)錄。單擊“取消”按鈕，可取消修改用戶的密碼。用戶治理窗體如圖3所示圖4 密碼治理窗體單擊“職員差不多信息”子菜單能夠看到它有四個子菜單。其中單擊“添加職員信息”子菜單，進入職員差不多信息窗體。在窗體中可設(shè)置各種職員信息。單擊“確定”按鈕，可保存當(dāng)前設(shè)置，單擊“取消”按鈕可取消記錄的設(shè)置。添加職員信息窗體如圖5所示。 沈 陽 大 學(xué)課程設(shè)計講明書 NO.9圖5職員信息治理信息其中單擊“查詢職員信息”子菜單，進入查詢職員差不多信息窗體。在窗體中可依照

9、職員編號，職員姓名以及職員的入職時刻，其中任意一項信息，都能夠查詢。單擊“確定”按鈕，開始查詢，單擊“取消”按鈕可取消此操作。添加職員信息窗體如圖6所示。 沈 陽 大 學(xué)課程設(shè)計講明書 NO.10圖6查詢職員差不多信息其中單擊“修改職員信息”子菜單，進入職員修改信息窗體。在窗體中可依照職員編號，職員姓名以及職員的入職時刻，其中任意一項信息，都能夠確定職員的信息。然后右鍵點擊選中的職員信息，則會彈出職員差不多信息表，現(xiàn)在，就能夠修改職員信息了。單擊“確定”按鈕，則會彈出提示框，提示修改成功，數(shù)據(jù)庫中也會相應(yīng)的修改。單擊“取消”按鈕可取消此操作。其中單擊“刪除工信息”子菜單，進入職員刪除信息窗體。

10、在窗體中可依照職員編號，職員姓名以及職員的入職時刻，其中任意一項信息，都能夠確定職員的信息。然后右鍵點擊選中的職員信息，則會彈出菜單提示刪除的操作，現(xiàn)在， 沈 陽 大 學(xué)課程設(shè)計講明書 NO.11就能夠刪除職員信息了。單擊“確定”按鈕，則會彈出提示框，提示刪除成功，數(shù)據(jù)庫中也會相應(yīng)的修改。單擊“取消”按鈕可取消此操作。單擊“職員調(diào)動信息”子菜單能夠看到它有四個子菜單。其中單擊“查詢職員調(diào)動信息”子菜單，進入職員調(diào)動信息窗體。在窗體中可依照職員編號，職員的調(diào)出時刻，其中任意一項信息，都能夠查詢。單擊“確定”按鈕，開始查詢，單擊“取消”按鈕可取消此操作。添加職員信息窗體如圖7所示。圖7查詢職員調(diào)動

11、信息其中單擊“添加職員調(diào)動信息”子菜單，進入職員調(diào)動信息窗體。在窗體中可設(shè)置各種職員調(diào)動信息。單擊“確定”按鈕，可保存當(dāng)前設(shè)置，單擊“取消”按鈕可取消記錄的設(shè)置。添加職員調(diào)動信息窗體如圖8所示。 沈 陽 大 學(xué)課程設(shè)計講明書 NO.12圖8添加職員調(diào)動信息其中單擊“修改職員調(diào)動信息”子菜單，進入職員差不多信息窗體。在窗體中可依照職員編號、職員的調(diào)出時刻，其中任意一項信息，都能夠確定職員的信息。然后右鍵點擊選中的職員信息，則會彈出職員差不多信息表，現(xiàn)在，就能夠修改職員信息了。單擊“確定”按鈕，則會彈出提示框，提示修改成功，數(shù)據(jù)庫中也會相應(yīng)的修改。單擊“取消”按鈕可取消此操作。其中單擊“刪除職員調(diào)

12、動信息”子菜單，進入職員差不多信息窗體。在窗體中可依照職員編號、職員的調(diào)出時刻，其中任意一項信息，都能夠確定職員的信息。然后右鍵點擊選中的職員信息，則會彈出職員差不多信息表，現(xiàn)在，就能夠刪除職員信息了。單擊“確定”按鈕，則會彈出提示框，提示刪除成功，數(shù)據(jù)庫中也會相應(yīng)的修改。單擊“取消”按鈕可取消此操作。 沈 陽 大 學(xué)課程設(shè)計講明書 NO.132.4.4系統(tǒng)登錄職員信息治理系統(tǒng)在啟動時首先顯示登錄窗體，用戶輸入用戶名和密碼后，單擊“確定”按鈕登錄。假如用戶名和密碼正確，則啟動系統(tǒng)主窗體。單擊“取消”按鈕則取消登錄。系統(tǒng)登錄窗體如圖9所示。圖9 系統(tǒng)登錄窗體3.設(shè)計結(jié)果與分析在完成了程序各個功能

13、模塊的創(chuàng)建之后，就能夠運行整個系統(tǒng)了。運行程序，進入系統(tǒng)，界面如圖10所示：圖10 系統(tǒng)主窗體 沈 陽 大 學(xué)課程設(shè)計講明書 NO.14登錄系統(tǒng)由用戶登錄、修改密碼、退出系統(tǒng)等組成。系統(tǒng)治理由添加用戶、修改密碼和退出系統(tǒng)組成,其中治理員中能夠?qū)β殕T的差不多信息進行添加，修改，查詢，刪除操作；還能夠?qū)β殕T的調(diào)動信息進行添加，修改，查詢，刪除操作；還能夠?qū)⒙殕T的差不多信息和職員的調(diào)動信息打印報表。界面如圖11所示：圖11 職員信息打印報表 沈 陽 大 學(xué)課程設(shè)計講明書 NO.15設(shè)計體會通過本次課程設(shè)計，使我從更深的層次了解了VB的設(shè)計技巧和應(yīng)用方法。在程序的編制和調(diào)試過程中，我從中學(xué)到了專門多有

14、用的方法，比如通過本次設(shè)計，我更深刻的體會到了VB系統(tǒng)的方便與有用。在課程設(shè)計的過程中，我對課本上的知識進行了復(fù)習(xí)，從中找出了許多盲點，由衷地感受到學(xué)習(xí)過程中應(yīng)該把學(xué)的知識作扎實，多動手多考慮，如此才能最大限度的減少知識的漏洞。 把課本上的東西變成實際的東西，讓其有使用的價值，是一件專門讓人快樂的事。我切實的體會到VB這門課程是有用處的，它解釋了我平常學(xué)習(xí)中的專門多不明白，讓我增長了專門多見識。 .參考文獻1 劉天惠.Visual Basic程序設(shè)計教程M. 北京: 清華大學(xué)大學(xué)出版社，2003.12-24 2 龔沛曾.Visual Basic程序設(shè)計教程M. 高等教育出版社, 2004.28

15、-453 蔣加伏.Visual Basic程序設(shè)計教程M.北京: 北京郵電大學(xué)出版社，2003.10-564 Microsoft .Visual Basic 6.0 中文版控件大全M北京：電子工業(yè)出版社,2004.1523.附錄 源程序代碼如下：（）用戶登錄窗體Private Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset 沈 陽 大 學(xué)課程設(shè)計講明書 NO.16If Trim(UserName.Text = ) Then MsgBox 沒有輸入用戶名稱，請重新輸入！, vbOKOnly + vbExclamation

16、, 警告 UserName.SetFocus Else 查詢用戶 SQL = select * from UserInfo where UserID= & UserName.Text & Set rs = TransactSQL(SQL) If iflag = 1 Then If rs.EOF = True Then MsgBox 沒有那個用戶，請重新輸入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Else If Trim(rs.Fields(1) = Trim(PassWord.Text) Then rs.Close Me.Hide g

17、UserName = Trim(UserName.Text) 保存用戶名稱 FrmMain.Show Unload Me Else MsgBox 密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = 沈 陽 大 學(xué)課程設(shè)計講明書 NO.17End If End IfElse Unload Me End IfEnd IfpwdCount = pwdCount + 1 推斷輸入次數(shù) If pwdCount = 3 Then Unload Me Exit Sub End IfEnd SubPrivat

18、e Sub Form_Load() pwdCount = 0 gUserName = End SubPrivate Sub PassWord_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd SubPrivate Sub UserName_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd Sub 沈 陽 大 學(xué)課程設(shè)計講明書 NO.18（）添加用戶窗體Option ExplicitPublic str1 As String

19、保存修改時的SQL語句Public ID As Integer 保存記錄編號Private baddflag As Booleanrivate Sub AID_KeyDown(KeyCode As Integer, Shift As Integer) TabToEnter KeyCodeEnd SubPrivate Sub AID_LostFocus() Dim SQL As String Dim rs As New ADODB.Recordset SQL = select SName,SDept,SPosition from StuffInfo where SID= & Me.AID.Tex

20、t & Set rs = TransactSQL(SQL) If rs.EOF = False Then Me.AName = rs(0) 初始化職員姓名 Me.AOldDept = rs(1) Me.AOldPosition = rs(2) ElseMsgBox 職員編號輸入錯誤，或者沒有那個職員！, vbOKOnly + vbExclamation, 警告！ Me.AID = Me.AID.SetFocus Me.AID.ListIndex = 0End If rs.CloseEnd Sub 沈 陽 大 學(xué)課程設(shè)計講明書 NO.19Private Sub cmdCancel_Click()

21、 Unload Me Exit SubEnd Subrivate Sub checkinput() If Me.ANewPosition = Then MsgBox 請輸入新的職務(wù)！, vbOKOnly + vbExclamation, 警告！ Me.ANewPosition.SetFocus ElseIf Me.AOutTime = Or IsDate(Me.AOutTime) = False Then MsgBox 請輸入正確的調(diào)出時刻！, vbOKOnly + vbExclamation, 警告！ Me.AOutTime = Me.AOutTime.SetFocus ElseIf Me.

22、AInTime = Or IsDate(Me.AInTime) = False Then MsgBox 請輸入正確的調(diào)入時刻！, vbOKOnly + vbExclamation, 警告！ Me.AInTime = Me.AInTime.SetFocus Else baddflag = True End IfEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As New ADODB.Recordset 沈 陽 大 學(xué)課程設(shè)計講明書 NO.20baddflag = FalseCall checkinputIf baddflag =

23、 True Then If flag = 1 Then Call checkinput SQL = select * from AlterationInfo Set rs = TransactSQL(SQL)rs.AddNew rs.Fields(1) = Me.AID rs.Fields(2) = Me.AName rs.Fields(3) = Me.AOldDept rs.Fields(4) = Me.ANewDept rs.Fields(5) = Me.AOldPosition rs.Fields(6) = Me.ANewPosition rs.Fields(7) = Me.AOutTi

24、me rs.Fields(8) = Me.AInTime rs.Fields(9) = Me.ARemark rs.Update rs.CloseSQL = update StuffInfo set SDept= & Me.ANewDept & , SPosition= SQL = SQL & Me.ANewPosition & where SID= & Me.AID & TransactSQL (SQL) MsgBox 差不多添加調(diào)動信息！, vbOKOnly + vbExclamation, 添加結(jié)果！ SQL = select * from AlterationInfo order by

25、 ID 沈 陽 大 學(xué)課程設(shè)計講明書 NO.21frmAlterationResult.Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + Person.mdb frmAlterationResult.Adodc1.RecordSource = SQL If SQL Then frmAlterationResult.Adodc1.Refresh End IfElse 修改記錄 Call checkinput SQL = update StuffInfo set SDept= &

26、 Me.ANewDept & , SPosition= SQL = SQL & Me.ANewPosition & where SID= & Me.AID & TransactSQL (SQL) SQL = update AlterationInfo set AOldDept= & Me.AOldDept & ,ANewDept= SQL = SQL & Me.ANewDept & ,AOldPosition= & Me.AOldPosition SQL = SQL & ,ANewPosition= & Me.ANewPosition & ,AOutTime=# & Me.AOutTime S

27、QL = SQL & #,AInTime=# & Me.AInTime & # where ID= & ID TransactSQL (SQL) MsgBox 差不多修改信息！, vbOKOnly + vbExclamation, 修改結(jié)果！ Unload Me SQL = select * from AlterationInfo order by ID frmAlterationResult.Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= + App.Path + Person.mdb frmAl

28、terationResult.Adodc1.RecordSource = SQL If SQL Then frmAlterationResult.Adodc1.Refresh End If 沈 陽 大 學(xué)課程設(shè)計講明書 NO.22Set frmAlterationResult.DataGrid1.DataSource = frmAlterationResult.Adodc1.Recordset frmAlterationResult.DataGrid1.Refresh frmAlterationResult.Show frmAlterationResult.ZOrder 0 Call init

29、 Me.ZOrder 0 End If End IfEnd Sub（3）查詢職員信息窗體Option ExplicitPrivate query As StringPrivate fromdate As StringPrivate todate As StringPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub CombineDate() fromdate = Me.FromYear.Text & - & Me.FromMonth.Text & -1 fromdate = Format(Me.FromYear.Text & - & Me.FromMonth.Text & -1, yyyy-mm-dd) todate = Me.ToYear.Text & - & Me.ToMonth.Text & -