【正文】 。 系統(tǒng)功能模塊圖企業(yè)人事信息管理系統(tǒng)員工工資管理員工工資信息查詢員工工資信息修改計(jì)發(fā)員工工資信息員工考勤管理員工考勤信息查詢員工考勤信息修改員工考勤信息添加員工基本信息員工基本信息查詢員工基本信息修改員工基本信息添加系統(tǒng)管理密碼管理用戶管理 圖 2：系統(tǒng)功能模塊圖第五章 系統(tǒng)詳細(xì)設(shè)計(jì) 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。這類要求是指目前不屬于系統(tǒng)開(kāi)發(fā)的范圍，但將來(lái)隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會(huì)提出的要求。通過(guò)對(duì)現(xiàn)行系統(tǒng)的詳細(xì)調(diào)研，主要是從系統(tǒng)的角度理解用戶的需要，確定新系統(tǒng)的綜合要求，并提出這些需求的實(shí)現(xiàn)條件以及需求應(yīng)達(dá)到的標(biāo)準(zhǔn)，也就是確定新系統(tǒng)要做什么，做到什么程度。多數(shù)信息管理系統(tǒng)軟件的數(shù)據(jù)輸入量較大。 。它能提供信息支持企業(yè)或組織的運(yùn)行、管理和決策功能。 SQL Server 提供數(shù)據(jù)倉(cāng)庫(kù)功能，○ 7這個(gè)功能只在 Oracle 和其他更昂貴的 DBMS 中才有。SQL Server2022 是一個(gè)不折不扣的服務(wù)器級(jí)數(shù)據(jù)庫(kù)管理系統(tǒng)，也就是俗稱的數(shù)據(jù)庫(kù)服務(wù)器（Database Server）。不同的企業(yè)具有不同的人事管理制度，這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)?；?VB 的企業(yè)人事信息管理系統(tǒng) [摘要]當(dāng)今社會(huì)，用計(jì)算機(jī)管理公司企業(yè)的人事信息是一個(gè)必然的趨勢(shì)。 本論文的目的及內(nèi)容(1)目的： 目前市面上流行的人事管理系統(tǒng)不少。 [1]SQL Server 這種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)能夠滿足各種類型的企業(yè)客戶和獨(dú)立軟件供應(yīng)商構(gòu)建商業(yè)應(yīng)用程序的需要。SQL Server2022 與以前版本相比較又具有以下新特性： 支持 XML(extensive markup language,可擴(kuò)展標(biāo)記語(yǔ)言)； 強(qiáng)大○ 1 ○ 2的基于 Web 的分析； 支持 OLE DB 和多種查詢； 支持分布式的分區(qū)視圖。管理信息系統(tǒng)在企業(yè)中的應(yīng)用存在三個(gè)要素，這就是人、計(jì)算機(jī)和數(shù)據(jù)。統(tǒng)一的人機(jī)界面不致于會(huì)增加用戶的負(fù)擔(dān)，讓用戶始終用同一種方式思考與操作。對(duì)于一些相對(duì)固定的數(shù)據(jù)，不應(yīng)讓用戶頻頻輸入。這些需求包括：（1）功能需求。數(shù)據(jù)流程圖是描述系統(tǒng)邏輯模型的主要工具，通過(guò)幾個(gè)特定的符號(hào)，可以綜合地反映出信息在系統(tǒng)中的使用、加工處理、傳遞、存儲(chǔ)的整體情況。 針對(duì)一般企業(yè)人事信息管理系統(tǒng)的需求，通過(guò)對(duì)員工工作過(guò)程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：? 員工基本信息：包括的數(shù)據(jù)項(xiàng)有編號(hào)、姓名、性別、出生日期、所在部門(mén)、籍貫、學(xué)歷、專業(yè)、參加工作時(shí)間、進(jìn)入公司時(shí)間、職稱、備注等。 amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(3) amp。 添加 = 0 ElseIf gintMode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgTxet) If = False Then With mrc For intCount = 0 To 2 txtItem(intCount) = .Fields(intCount) Next intCount If Not IsNull(!ygsex) Then cboitem = !ygsex End If For intCount = 3 To 10 If Not IsNull(.Fields(intCount + 1)) Then txtItem(intCount) = .Fields(intCount + 1) End If Next intCount End With txtItem(0).Enabled = False End If = amp。 Trim(txtItem(0) amp。 Trim(txtItem(1) amp。dEndDateamp。 Trim(cboItem(0)) amp。, yyyymmdd) amp。 amp。 修改 End If mblChange = FalseEnd Sub 修改考勤信息Private Sub menuModifycheck_Click() Dim intCount As String If flagEdit Then gintMode = 2 If 1 Then intCount = = select*from checkin where kqid= amp。參考文獻(xiàn)[1]李國(guó)彬，趙麗娟， Server2022 ：西安電子科技大學(xué)出版社， 頁(yè)6 頁(yè)[2]錢雪忠，羅海弛，：清華大學(xué)出版社， 頁(yè)[3]劉韜，駱娟， ：人民 郵電出版社， 頁(yè)5 頁(yè)[4]賴朝安， ：電子工業(yè)出版社， 頁(yè)Development of the Personal Performance Management System Based on VB in industrial enterprise Pan weijuan[Abstract] Current society, manage with puter personnel of incorporated business information one inevitable trend. System this bine pany real personnel information management system , adopt powerful Visual make for proscenium developing instrument of application program, SQL Server2022 as backstage supporter developing instrument and the management information system developed of data base( MIS). The whole system is proceed from the angle of according with easy and simple to handly, the interface is friendly, practical and safe, Have finished the whole course to the information management of personnel in enterprises, settingup of the entering the staff newly, the producing of old staff, the changes of position ,etc. cause the modification of worker39。s information inquiry , counting ,etc. and newlyincreased , old staff of the persons who enter newly revise . Used to prove , the personnel administrative system designed of this text can meet pany39。 Else Call menuAddrecord_ClickEnd IfElseMsgBox 請(qǐng)選擇要修改的記錄？, vbOKOnly + vbExclamation, 警告 = select*from checkin 0End IfEnd Sub 員工工資信息管理模塊的創(chuàng)建 添加員工工資信息窗體的創(chuàng)建Private Sub txtItem_Change() Dim intCount As String Dim dblTotal As Double mblChange = True If (index = 0 And index 8) Or index = 10 Or index = 11 Then dblTotal = 0 For intCount = 0 To 3 If Trim(txtItem(intCount)) Then dblTotal = dblTotal + CDbl(txtItem(intCount)) End If Next intCount For intCount = 4 To 7 If Trim(txtItem(intCount)) Then dblTotal = dblTotal CDbl(txtItem(intCount)) End If Next intCount If Trim(txtItem(10)) Then dblTotal = dblTotal + CDbl(txtItem(10)) End If If Trim(txtItem(11)) Then dblTotal = dblTotal CDbl(txtItem(11)) End If txtItem(8) = Format(dblTotal, ) End If If index = 9 Then If Trim(txtItem(9) amp。 For intCount = 0 To 15 (intCount + 3) = Trim(txtItem(intCount)) Next intCount For intCount = 16 To 17 (intCount + 3) = Trim(txtItem(intCount)) Next intCount If gintMode = 1 Then MsgBox 記錄添加成功！, vbOKOnly + vbExclamation, 警告 For intCount = 0 To 17 txtItem(intCount) = Next intCount mblChange = False ElseIf gintMode = 2 Then MsgBox 記錄修改成功！, vbOKOnly + vbExclamation, 警告 Unload Me End If gintMode = 0End SubPrivate Sub Combo1_Click() Dim sSql As String Dim MsgText As String If gintMode = 1 Then txtSQL = select ygid, ygname from manrecord where ygdept= amp。 Trim(txtId) amp。 ) = Then Select Case intCount Case 0 sMeg = 本月天數(shù) Case 2 sMeg = 應(yīng)出勤天數(shù) Case 3 sMeg = 出勤End Select If intCount 1 Then sMeg = sMeg amp。 ygdate1= amp。 End If If chkItem(2).Value = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 End If If chkItem(1).Value = vbChecked Then If Trim(sQSqlamp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 ) Then I