人事工資管理系統(tǒng)(er圖數(shù)據(jù)流程圖系統(tǒng)功能模塊結構圖源代碼)-課程設計-資料下載頁
2025-09-04 21:09本頁面
【導讀】調(diào)管理,強調(diào)信息的現(xiàn)代社會中它變得越來越普及。計算機技術的飛速發(fā)展,數(shù)據(jù)。庫技術作為數(shù)據(jù)管理的一個有效的手段,在各行各業(yè)中得到越來越廣泛的應用。該程序在設計過程中嚴格遵循軟件工程學的方法,用分階段的。“人事工資管理系統(tǒng)”。數(shù)據(jù)庫系統(tǒng)的特性。人事管理系統(tǒng)主要用于企業(yè)內(nèi)部員工的檔案、工資、考勤、化、智能化、科學化和正規(guī)化不可缺少的管理軟件。本系統(tǒng)是根據(jù)企業(yè)管理的一些實際情況而編制的一套自動化。人事管理系統(tǒng)針對企業(yè)員工信息的處理工作采用計算機進行全面的現(xiàn)代化管理,期的更新與刪除工作,人事管理系統(tǒng)力求以方便快捷的途徑去管理職工的信息，法的修改、刪除等操作。系統(tǒng)開發(fā)的總體任務是要實現(xiàn)企業(yè)人事信息關系的系統(tǒng)化,規(guī)范化和自動化。人事變動的詳細記錄,包括崗位和部門的調(diào)整,便于掌握人員的動向,及時調(diào)整人才的分配。信息,通過相互之間的作用形成數(shù)據(jù)的流動。
【正文】 ion, 警告 Text1(intCount).SetFocus Exit Sub End If Next intCount If Trim(Text1(3) amp。 ) = Then MsgBox 出生日期不能為空 , vbOKOnly + vbExclamation, 警告 End If If Trim(Text1(3) amp。 ) Then If Not IsDate(Text1(3)) Then MsgBox 出生日期應為 (yyyymmdd)!, vbOKOnly + vbExclamation, 警告 Text1(3).SetFocus Exit Sub Else Text1(3) = Format(Text1(3), yyyymmdd) End If End If If Trim(Text1(2) amp。 ) = Then MsgBox 年齡不能為空 , vbOKOnly + vbExclamation, 警告 沈 陽 大 學 課程設計說明書 Exit Sub End If If gintMode = 1 Then txtSQL = select * from dangan where ygid=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, msgtext) If = False Then MsgBox 有重復記錄 , vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus End If txtSQL = delete * from dangan where ygid=39。 amp。 Trim(Text1(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, msgtext) txtSQL = select * from dangan Set mrc = ExecuteSQL(txtSQL, msgtext) For intCount = 0 To 1 (intCount) = Trim(Text1(intCount)) Next intCount For intCount = 2 To 5 (intCount) = Trim(Text1(intCount)) Next intCount For intCount = 6 To 10 (intCount) = Trim(Text1(intCount)) Next intCount (11) = Trim() If gintMode = 1 Then MsgBox 添加記錄成功 , vbOKOnly, 提示 For i = 0 To 10 Text1(i).Text = Next i 0 1 End If Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim rectemp As Recordset 人事工資管理系統(tǒng) (ER 圖 +數(shù)據(jù)流程圖 +系統(tǒng)功能模塊結構圖 +源代碼 ) Dim sSql As String Dim msgtext As String For intCount = 0 To 3 If Trim(txtItem(intCount) amp。 ) = Then Select Case intCount Case 0 sMeg = 本月天數(shù) Case 2 sMeg = 應出勤天數(shù) Case 3 sMeg = 出勤 End Select If intCount 1 Then sMeg = sMeg 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=39。 amp。 Trim(txtid) amp。 39。 and kqdate= 39。 amp。 Format( amp。 amp。 amp。 01, yyyymmdd) amp。 39。 If = False Then MsgBox 已經(jīng)存在該員工在該月的考勤記錄！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = delete * from renshi1 where id=39。 amp。 Trim(Text(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, msgtext) txtSQL = select * from renshi1 Set mrc = ExecuteSQL(txtSQL, msgtext) For intCount = 0 To 2 (intCount) = Trim(Text(intCount)) Next intCount MsgBox 添加記錄成功 !, vbOKOnly, 提示 1 = True = True 沈 陽 大 學 課程設計說明書 = True End If If gintMode = 2 Then txtSQL = select * from renshi1 Set mrc = ExecuteSQL(txtSQL, msgtext) (intCount) = Text(intCount).Text MsgBox 記錄修改成功 !, vbOKOnly, 提示 = True = True = True End If End If txtSQL = select * from department Set mrc = ExecuteSQL(txtSQL, msgtext) For intCount = 0 To 2 (intCount) = Trim(Text(intCount)) MsgBox 記錄添加成功！ , vbOKOnly + vbExclamation, 警告 = True = 修改 For i = 0 To 2 Text(i).Text = mblchange = False Next i ElseIf = 修改 Then txtSQL = select * from department where dpid=39。 amp。 Trim(Text(0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, msgtext) For i = 0 To 2 (i) = Text(i).Text Next i For intCount = 0 To 2 Text(intCount).Enabled = True mybookmark = Next intCount MsgBox 記錄修改成功！ , vbOKOnly + vbExclamation, 警告 Unload Me End If End Sub
公司管理相關推薦
鄂ICP備17016276號-1