【正文】
模塊測試測試是進行代碼審查,從數(shù)據(jù)類型,變量聲明,數(shù)據(jù)結(jié)構(gòu)進行審查,然后進行功能測試,從輸入一些簡單的數(shù)據(jù)開始執(zhí)行一遍,觀測運行期間變量的變化,運行中值的變化范圍。 amp。 dEndDateamp。 ) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在此員工檔案編號的記錄! , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus txtItem(0).SelStart = 0 txtItem(0).SelLength = Len(txtItem(0)) Exit Sub End If End If txtSQL = delete from manrecord where ygid= amp。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic 39。這是對系統(tǒng)運行以及所處環(huán)境的要求。一個優(yōu)秀的管理信息系統(tǒng)應(yīng)該提供在線求助功能,這將給用戶帶來極大的方便。在 Visual Basic 環(huán)境下,利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具,使用 Windows 內(nèi)部的應(yīng)用程序接口(API)函數(shù),以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù),可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 第二章 系統(tǒng)的開發(fā)環(huán)境本系統(tǒng)使用的操作平臺是 Windows 2022,前臺使用 Visual ,后臺數(shù)據(jù)庫為 SQL Server 2022,下面對程序設(shè)計所需軟件做一下介紹。整個系統(tǒng)從符合操作簡便、界面友好、實用安全的角度出發(fā),完成了企業(yè)中對人事信息管理的全過程,包括新進員工的加入、老員工的轉(zhuǎn)出、職位等的變動引起職工信息的修改、員工信息查詢、統(tǒng)計等人事管理工作以及新進員工的新增、老員工修改等管理工作。 圖形化用戶界面,使系統(tǒng)管理和數(shù)據(jù)庫管理更加直觀、簡單。計算機技術(shù)是 MIS 得以實施的主要技術(shù)。以增加人機親和力。企業(yè)人事信息管理系統(tǒng)數(shù)據(jù)流程圖: 員工登記基本信息錄入員工基本信息管理考勤管理考勤信息管理員工工資設(shè)置員工工資管理計發(fā)員工工資員工當(dāng)月工資 圖 1:企業(yè)人事信息管理系統(tǒng)數(shù)據(jù)流程圖 第四章 系統(tǒng)總體設(shè)計 功能描述 該信息管理系統(tǒng)可以在 Windows 2022 Server 平臺上運行,開發(fā)工具采用 Visual Basic 語言開發(fā)。UID=sa。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 End If If chkItem(2).Value = vbChecked Then dBeginDate = Format(CDate(cboYear(0) 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。 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。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。 修改 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。, yyyymmdd) amp。dEndDateamp。 Trim(txtItem(0) amp。 不能為空! MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount If Trim(txtItem(3) amp。 針對一般企業(yè)人事信息管理系統(tǒng)的需求,通過對員工工作過程的內(nèi)容和數(shù)據(jù)流程分析,設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu):? 員工基本信息:包括的數(shù)據(jù)項有編號、姓名、性別、出生日期、所在部門、籍貫、學(xué)歷、專業(yè)、參加工作時間、進入公司時間、職稱、備注等。這些需求包括:(1)功能需求。統(tǒng)一的人機界面不致于會增加用戶的負擔(dān),讓用戶始終用同一種方式思考與操作。SQL Server2022 與以前版本相比較又具有以下新特性: 支持 XML(extensive markup language,可擴展標(biāo)記語言); 強大○ 1 ○ 2的基于 Web 的分析; 支持 OLE DB 和多種查詢; 支持分布式的分區(qū)視圖。 本論文的目的及內(nèi)容(1)目的: 目前市面上流行的人事管理系統(tǒng)不少。不同的企業(yè)具有不同的人事管理制度,這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)。 SQL Server 提供數(shù)據(jù)倉庫功能,○ 7這個功能只在 Oracle 和其他更昂貴的 DBMS 中才有。 。通過對現(xiàn)行系統(tǒng)的詳細調(diào)研,主要是從系統(tǒng)的角度理解用戶的需要,確定新系統(tǒng)的綜合要求,并提出這些需求的實現(xiàn)條件以及需求應(yīng)達到的標(biāo)準(zhǔn),也就是確定新系統(tǒng)要做什么,做到什么程度。 系統(tǒng)功能模塊圖企業(yè)人事信息管理系統(tǒng)員工工資管理員工工資信息查詢員工工資信息修改計發(fā)員工工資信息員工考勤管理員工考勤信息查詢員工考勤信息修改員工考勤信息添加員工基本信息員工基本信息查詢員工基本信息修改員工基本信息添加系統(tǒng)管理密碼管理用戶管理 圖 2:系統(tǒng)功能模塊圖第五章 系統(tǒng)詳細設(shè)計 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢,這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。 ) = Then Select Case intCount Case 0 sMeg = 編號 Case 1 sMeg = 姓名 Case 2 sMeg = 部門End Select sMeg = sMeg amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) = select*from manrecord flagEdit = True End If End If Else MsgBox 請選擇要刪除的記錄?, vbOKOnly + vbExclamation, 警告 = select*from manrecord 0End IfEnd Sub 查詢員工信息窗體的創(chuàng)建 Private Sub cmdOK_Click() Dim dBeginDate As String Dim dEndDateTemp As Date Dim dEndDate As String If chkItem(0).Value = vbChecked Then sQSql = ygname= amp。 yadate1 = amp。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) cboItem(0).AddItem Trim(mrc!ygdept) cboItem(0).ListIndex = 0 = amp。s personnel management respect39。 Trim(cboItem(0)) amp。 不能為空! MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If End If Next intCount If gintMode = 1 Then txtSQL = select * from checkin where kqid= amp。 amp。 End Select Next i Loop End With End If End SubPrivate Sub msgLis_MouseUp(Button As Integer, Shift As Integer, X As String, Y As String) If Button = 2 And Shife = 0 Then PopupMenu End IfEnd SubPrivate Sub menuModifyrecord_Click() Dim intCount As String If flagEdit Then gintMode = 2 If 1 Then intCount = = select*from manrecord where ygid= amp。PWD=End FunctionPublic Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys {TAB} End IfEnd SubPublic gintMode As IntegerPublic flagEdit As IntegerSub Main() Dim fLogin As New FrmLogin vbModal If Not Then 39。系統(tǒng)需要完成功能主要有:? 有關(guān)企業(yè)員工各種信息的輸入,包括員工基本信息、所在部門、工作信息和工作簡歷等。數(shù)據(jù)的作用也不能忽視,它是系統(tǒng)開發(fā)的基礎(chǔ)。 豐富的○ 2 ○ 3編程接口工具,為用戶進行程序設(shè)計提供了更大的選擇余地。經(jīng)過實際使用證明,本文所設(shè)計的人事信息管理系統(tǒng)可以滿足企業(yè)人事信息管理方面的需要。 (2)內(nèi)容 能夠錄入人事的基本資料,在操作上能夠完成諸如添加、修改、刪除