【文章內(nèi)容簡(jiǎn)介】 的形式報(bào)告出來，或打印錯(cuò)誤報(bào)告，或?qū)崟r(shí)提出錯(cuò)誤警示和修改提示等，幫助用戶盡快正確輸入數(shù)據(jù)。 系統(tǒng)配置設(shè)計(jì) 多種多樣的 的計(jì)算機(jī)技術(shù)產(chǎn)品為信息系統(tǒng)的建設(shè)提供了極大的靈活性，使我們可以 課程設(shè)計(jì)報(bào)告 第 １８ 頁 共 27頁 根據(jù) 應(yīng)用的需要選用不同生產(chǎn)商的性能各異的軟硬件產(chǎn)品，但同時(shí)員工系統(tǒng)設(shè)計(jì)工作帶來了新的困難，那就是面對(duì)眾多廠家生產(chǎn)的產(chǎn)品如何做出最明智的選擇。 本系統(tǒng)的主要設(shè)計(jì)依據(jù)是： 1） 系統(tǒng)的吞吐量 2） 系統(tǒng)的響應(yīng)時(shí)間 3） 系統(tǒng)的可靠性 4） 系統(tǒng)的處理方式 5） 地域范圍 6） 數(shù)據(jù)管理方式 根據(jù)以上六大依據(jù)，本系統(tǒng)最低的計(jì)算機(jī)硬件配置為： 1GHz 32 位 (x86) 或 64 位 (x64) 處理器 185。）。 1 GB 系統(tǒng)內(nèi)存。 DirectX 9 圖形支持， WDDM 驅(qū)動(dòng)程序，至少 128 MB 圖形內(nèi)存 178。， Pixel Shader 和 32 位 /像素。 40 GB 硬盤容量， 15 GB 可用空間。 DVDROM 驅(qū)動(dòng)器 179。 音頻輸出能力。 Inter 訪問能力。 軟件配置為： windows 2021 以上， Access 2021,Visual Basic 中文版 另外，其他系統(tǒng)配置根據(jù)自身公司的需要進(jìn)行選擇。 5 結(jié)束語 本文 介紹 采用 VB結(jié)合 Access數(shù)據(jù)庫開發(fā)的 企業(yè)人事 管理信息系統(tǒng)，提供了用戶的權(quán)限管理、人 事檔案的查詢、添加、刪除、數(shù)據(jù)的導(dǎo)人導(dǎo)出、 工資的管理以及 數(shù)據(jù)庫的備份和恢復(fù)等功能，操作簡(jiǎn)單明了，與 Access和 Excel聯(lián)合辦公緊密，方便人事管理部門進(jìn)行人事檔案查詢和管理，可大大提高工作效率，將會(huì)使 企業(yè) 的人事管理工作步人嶄新的臺(tái)階。本統(tǒng)在實(shí)際的使用過程中還有很多可以完善的地方，譬如各種人事檔案數(shù)據(jù)的匯總、統(tǒng)計(jì)能和數(shù)據(jù)報(bào)表的制作等。不足的是，由于系統(tǒng)所采用的數(shù)據(jù)庫為 Access，雖使用起來比較方便，但網(wǎng)絡(luò)化程度還不高 且只能用于中小型企業(yè) 。總之，該程序可以滿足目前的人事管理的需求，隨著人事管理工作規(guī)范化、信 息化、網(wǎng)絡(luò)化的發(fā)展趨勢(shì)，其應(yīng)用將會(huì)越來越廣泛。 課程設(shè)計(jì)報(bào)告 第 １９ 頁 共 27頁 參 考 文 獻(xiàn) 1. 黃梯云．管理信息系統(tǒng)．高等教育出版社， 2021 2. 鄭阿齊 .Visual Basic 實(shí)用教程 . 電子工業(yè)出版社 ， 2021 3. 黎連業(yè) .管理信息系統(tǒng)設(shè)計(jì)與實(shí)施 .清華大學(xué)出版社， 1998 4. 張曉黎 .Visual Basic+SQL Server 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)與實(shí)例 .人民郵電出版社， 2021 5. 張德 .人力資源開發(fā)和管理 .清華大學(xué)出版社， 1995 6. 許樹柏 .實(shí)用決策方法 —層次分析原理 .天津大學(xué)出版社， 1998 7. 秦 壽康 .綜合評(píng)價(jià)原理和應(yīng)用 .電子工業(yè)出版社， 8. 彭運(yùn)芳 .人力資源開發(fā)的層次分析模型 .系統(tǒng)工程， 2021（第 22 卷，第 4 期： 71～ 73） 9. 張林 .企業(yè)業(yè)績(jī)?cè)u(píng)價(jià)的戰(zhàn)略溝通功能研究 .天津大學(xué)學(xué)報(bào)（社會(huì)學(xué)版）， 2021（第 6 卷， 第 2 期： 146～ 149） 10. 單薇 .利用模糊綜合評(píng)價(jià)實(shí)現(xiàn)企業(yè)水平的量化分析 .數(shù)學(xué)的實(shí)踐和認(rèn)識(shí)， 2021（第 32卷，第 2 期： 206～ 210） 11. 陳捷 .績(jī)效評(píng)估研究的新進(jìn)展 .南京師范大學(xué)（社會(huì)科學(xué)版）， 2021（第 3 期： 81～ 85） 12. 符志明，李 漢玲 .績(jī)效評(píng)價(jià)體系研究 .系統(tǒng)工程與電子技術(shù)， 2021（第 9 期： 23～ 25） ，劉連臣，吳澄 .一種基于目標(biāo)規(guī)劃的 AHP 參數(shù)學(xué)習(xí)算法 .清華大學(xué)學(xué)報(bào)（自然科學(xué)版）， 2021（第 44 卷，第 4 期： 466～ 469） 課程設(shè)計(jì)報(bào)告 第 ２０ 頁 共 27頁 附錄 部分程序代碼 1 系統(tǒng)的登錄 Private Const WS_EX_LAYERED = amp。H80000 Private Const GWL_EXSTYLE = (20) Private Const LWA_ALPHA = amp。H2 Private Const LWA_COLORKEY = amp。H1 Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Dim Alpha As Integer 39。聲明變量 Private Sub cmdDL_Click() If = Then MsgBox 請(qǐng)選擇登陸用戶！ , 48, 錯(cuò)誤提示 Exit Sub End If Call OpenConn SQL = select * from 系統(tǒng)用戶表 where Czy=39。 amp。 amp。 39。 SQL, , 1, 1 If zhuan() = IIf(Trim(IsNull((pass))), , Trim((pass))) Then gCzy = (czy) gCzyqx = (czyqx) Call CloseConn Unload Me Else MsgBox 密碼錯(cuò)誤！ , 48, 錯(cuò)誤提示 End If End Sub Private Sub cmdTC_Click() End End Sub Private Sub Form_Initialize() 課程設(shè)計(jì)報(bào)告 第 ２１ 頁 共 27頁 Call InitCommonControls 39。XP 效果 End Sub Private Sub Form_Load() = 39。外邊框 = = = 39。 Dim Ret As Long Ret = GetWindowLong(, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong , GWL_EXSTYLE, Ret = 20 39。 Call OpenConn SQL = select czy from 系統(tǒng)用戶表 SQL, , 1, 1 Do While Not rs!czy Loop Call CloseConn Call OpenConn SQL = select 公司名稱 from 公司信息 SQL, , 1, 1 If 0 Then gGsmc = rs!公司名稱 Else gGsmc = 公司信息未知 End If Call CloseConn End Sub Private Sub Timer1_Timer() Alpha = Alpha + 5 If Alpha 255 Then = False Exit Sub End If 課程設(shè)計(jì)報(bào)告 第 ２２ 頁 共 27頁 SetLayeredWindowAttributes , 0, Alpha, LWA_ALPHA End Sub 2 基礎(chǔ)檔案查詢 Private Const WS_EX_LAYERED = amp。H80000 Private Const GWL_EXSTYLE = (20) Private Const LWA_ALPHA = amp。H2 Private Const LWA_COLORKEY = amp。H1 Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Dim Alpha As Integer 39。聲明變量 Private Sub cmdDL_Click() If = Then MsgBox 請(qǐng)選擇登陸用戶！ , 48, 錯(cuò)誤提示 Exit Sub End If Call OpenConn SQL = select * from 系統(tǒng)用戶表 where Czy=39。 amp。 amp。 39。 SQL, , 1, 1 If zhuan() = IIf(Trim(IsNull((pass))), , Trim((pass))) Then gCzy = (czy) gCzyqx = (czyqx) Call CloseConn Unload Me Else MsgBox 密碼錯(cuò)誤！ , 48, 錯(cuò)誤提示 End If End Sub Private Sub cmdTC_Click() 課程設(shè)計(jì)報(bào)告 第 ２３ 頁 共 27頁 End End Sub Private Sub Form_Initialize() Call InitCommonControls 39。XP 效果 End Sub Private Sub Form_Load() = 39。外邊框 = = = 39。 Dim Ret As Long Ret = GetWindowLong(, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong , GWL_EXSTYLE, Ret = 20 39。 Call OpenConn SQL = select czy from 系統(tǒng)用戶表 SQL, , 1, 1 Do While Not rs!czy Loop Call CloseConn Call OpenConn SQL = select 公司名稱 from 公司信息 SQL, , 1, 1 If 0 Then gGsmc = rs!公司名稱 Else gGsmc = 公司信息未知 End If Call CloseCo