【正文】 參考文獻(xiàn)[1] 王珊、薩師煊著 數(shù)據(jù)庫系統(tǒng)概論（第五版）. 高等教育出版社, [2] 劉金嶺等著 數(shù)據(jù)庫原理及應(yīng)用實(shí)驗(yàn)與課程設(shè)計(jì)指導(dǎo)，清華大學(xué)出版社出版，[3] 錢雪忠等著 數(shù)據(jù)庫原理及技術(shù)課程設(shè)計(jì)(全新正版），清華大學(xué)出版社出版，[4] 周屹著 數(shù)據(jù)庫原理及開發(fā)應(yīng)用－實(shí)驗(yàn)與課程設(shè)計(jì)指導(dǎo), 清華大學(xué)出版社出版，[5] 陸慧娟主編 數(shù)據(jù)庫設(shè)計(jì)與應(yīng)用開發(fā)實(shí)踐，清華大學(xué)出版社 [6] 陶宏才等編著 數(shù)據(jù)庫原理及設(shè)計(jì)，清華大學(xué)出版社 [7] 丁忠俊著 數(shù)據(jù)庫系統(tǒng)原理及應(yīng)用，清華大學(xué)出版社出版，[8] 李曉峰等著 數(shù)據(jù)庫系統(tǒng)原理及應(yīng)用，水利水電出版社，[9] 萬常選著 數(shù)據(jù)庫系統(tǒng)原理與設(shè)計(jì)(第2版)，清華大學(xué)出版社出版，[10] 路游，于玉宗編著 數(shù)據(jù)庫系統(tǒng)課程設(shè)計(jì)，清華大學(xué)出版社 2009 [11]Access 2010數(shù)據(jù)庫應(yīng)用從入門到精通[M]何先軍編,[12] [印] 辛赫（）著 何玉潔，王曉波，車?yán)?，等譯,數(shù)據(jù)庫系統(tǒng)概念、設(shè)計(jì)及應(yīng)用[M],機(jī)械工業(yè)出版社。在這次的課程設(shè)計(jì)中，讓我深深地體現(xiàn)到進(jìn)行軟件開發(fā)不是一件簡單的事情，它需要設(shè)計(jì)者具有全面的專業(yè)知識、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。由于畢業(yè)設(shè)計(jì)時(shí)間比較倉促，所以該系統(tǒng)還有許多不盡如意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。系統(tǒng)的詳細(xì)設(shè)計(jì)根據(jù)系統(tǒng)分析階段的結(jié)論將系統(tǒng)具體化,并完成了各個(gè)模塊的添加、修改、刪除與查詢的功能,直到最后形成一個(gè)完整的可行性的管理系統(tǒng)。在本系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)的過程中主要講述了企業(yè)人事管理信息系統(tǒng)的系統(tǒng)設(shè)計(jì)部分，包括功能模塊設(shè)計(jì)、數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)等。經(jīng)過本學(xué)期的不斷實(shí)踐與探索,企業(yè)人事管理統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)己經(jīng)完成,基本上達(dá)到了預(yù)期的設(shè)計(jì)要求和目的。在不斷的課程設(shè)計(jì)過程中,使我受到了一次用專業(yè)知識、專業(yè)技能分析和解決問題的全面系統(tǒng)的鍛煉。8 設(shè)計(jì)小結(jié) 通過這兩周的課程設(shè)計(jì)實(shí)踐，讓我感覺收獲頗多。詳細(xì)的看出員工的工資錄入。 本界面為工資管理喜用維護(hù)界面，輸入相應(yīng)的部門可進(jìn)行維護(hù)，也可添加新的部門。Delete鍵 If KeyAscii = 46 Then txtItem(Index).Locked = False End If End IfEnd SubPrivate Sub cmdExit_Click()Unload MeEnd Sub ，設(shè)置有用戶名和和用戶登陸密碼，輸入正確的用戶名和密碼可進(jìn)入系統(tǒng)主界面。非數(shù)字不能輸入 If KeyAscii 57 Or KeyAscii 48 Then txtItem(Index).Locked = True Else txtItem(Index).Locked = False End If 39。txtQuantity(Index).Locked = False 39。MsgBox KeyCode 39。EnterToTab KeyCodeEnd SubPrivate Function GetNo() As String GetNo = Format(Now, yymmddhhmmss) Randomize GetNo = GetNo amp。 *39。* amp。 End If End SubPrivate Sub Combo1_Click() Dim MsgText As String Dim intCount As Integer Dim mrcc As 39。 39。 = select * from pay 39。 MsgBox 修改工資成功！, vbOKOnly + vbExclamation, 警告 39。 1 39。 39。If gintMode = 1 Then MsgBox 計(jì)發(fā)工資成功！, vbOKOnly + vbExclamation, 警告 For intCount = 0 To 12 txtItem(intCount) = Next intCount mblChange = False = False 39。 Set mrc = (txtSQL) 39。 39。 amp。 39。 amp。先刪除已有記錄 39。 39。 amp。txtSQL = txtSQL amp。 39。 Month(Format(txtItem(13), yyyymmdd)) amp。 Format(Year(Format(txtItem(13), yyyymmdd)) amp。 39。 Trim(txtId) amp。If gintMode = 1 Then txtSQL = select * from gzshuju where 工資號=39。 ) Then If Not IsDate(txtItem(13)) Then MsgBox 時(shí)間輸入格式不正確，應(yīng)輸入如下格式（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub Else txtItem(13) = Format(txtItem(13), yyyymmdd) End If Else MsgBox 時(shí)間不能為空！, vbOKOnly + vbExclamation, 警告 txtItem(13).SetFocus Exit Sub End If Set db = OpenDatabase( + \) 39。 ) = Then sMeg = 底薪 sMeg = sMeg amp。 39。End If 39。 = False 39。 Else 39。 txtItem(4) = (1) 39。 If Not Then 39。 39。 Format(Now, yyyy/mm/dd) amp。 and kqdate=39。 Format(DateSerial(Year(Now), Month(Now), 1), yyyy/mm/dd) amp。 and kqdate = 39。 39。 amp。 Format(Now, yymm) txtItem(0) = (2） 39。 = False 39。 Else 39。 Set db = OpenDatabase( + \) 39。 39。 Trim(cboItem(0)) amp。txtSQL = select ygid,ygname from manrecord where ygdept=39。 If gintMod