【正文】 否 表 317 上班類型表 名稱 字段 類型 為空性 備注 類型代號(hào) typeId 數(shù)字 否 類型名稱 typeName 文本 是 代碼設(shè)計(jì) 部門代號(hào)為兩位數(shù)，按照創(chuàng)建時(shí)間早晚排行。包括員工請(qǐng)假、出差、早退、遲到、上班。 包括 部門編號(hào)、部門名稱、部門人數(shù)等 。 (3) 數(shù)據(jù) 輸入：通過(guò)登錄系統(tǒng)輸入職工上班下班，以及請(qǐng)假、出差等信 息。對(duì)于企業(yè)的管理者與職工之間管理方式的轉(zhuǎn)變和擴(kuò)充。這一特點(diǎn)非常適合計(jì)算機(jī)特點(diǎn)，通過(guò)網(wǎng)絡(luò) inter 技術(shù)，發(fā)揮計(jì)算機(jī)的信息傳輸速度快、準(zhǔn)確度高的優(yōu)勢(shì)。其工作除涉及到干部的基本情況統(tǒng)計(jì)之外，還包括 職工 的工資統(tǒng)計(jì)， 職工的考勤 情況統(tǒng)計(jì)， 職工的 獎(jiǎng)懲情況統(tǒng)計(jì)， 職工的出差 情況統(tǒng)計(jì)， 職工的請(qǐng)假 情況統(tǒng)計(jì)等方面，其涉及的面之廣，數(shù)據(jù)量之大可想而知，若利用手工進(jìn)行 考勤 的統(tǒng)計(jì)工作，大致要經(jīng)過(guò) 考勤 統(tǒng)計(jì)查 詢 ， 考勤的 統(tǒng)計(jì)資料的整理， 考勤 統(tǒng)計(jì)分析三個(gè)過(guò) 程，但這種手工統(tǒng)計(jì)過(guò)程，存在著幾個(gè)明顯的問題，比如說(shuō)統(tǒng)計(jì)資料缺乏準(zhǔn)確性，及時(shí)性，需要花費(fèi)大量的人力，物力，財(cái)力等。現(xiàn)在利用計(jì)算機(jī)來(lái)管理我們的考勤工作，大大降低了工作人員的工作量，提高了工作效率，使原本復(fù)雜和枯燥無(wú)味的工作變得簡(jiǎn)單而輕松了，而且也實(shí)用、安全。 課程設(shè)計(jì)小組成員的基本情況介紹 ....... 錯(cuò)誤 !未定義書簽。比如說(shuō)，小到圖書館的圖書管理，超市或網(wǎng)吧的收費(fèi) 管理， KTV 的點(diǎn)歌系統(tǒng)，大到航空、鐵路的售票，全國(guó)人口戶籍的管理等等。所以說(shuō)，考勤管理系統(tǒng)的開發(fā)具有非常重要的意義。 而且一個(gè)完善的考勤系統(tǒng)應(yīng)做到以下幾點(diǎn)： ? 提高了考勤管理效率，減輕勞動(dòng)強(qiáng)度； ? 提高信息處理速度和準(zhǔn)確性； ? 為考勤負(fù)責(zé)人提供更方便、科學(xué)的服務(wù)項(xiàng)目 技術(shù)可行性分析 系統(tǒng)開發(fā)環(huán)境 : Windows xp sp3 + vs2020 + sqlserver2020 技術(shù) 已經(jīng)比較成熟，和其他應(yīng)用開發(fā)語(yǔ)言比起來(lái)有很大的優(yōu)勢(shì)，所以利用這些技術(shù)是完全可以完成這些功能的。 (2)使用方面的可行性 由于新系統(tǒng)的客戶端只要求用瀏覽器，管理者與人員完全有能力使用此系統(tǒng)，并且新系統(tǒng)的研制和開發(fā)是充分考慮工作人員對(duì)考勤的易于管理，提高工作效率，界面友好，操作簡(jiǎn)單方便，能完全滿足職工的使用要求。 節(jié)假日管理 :節(jié)假日的設(shè)置和查看； (2) 特點(diǎn) 實(shí)現(xiàn)了管理員和員工登陸信息的自動(dòng)判斷！根據(jù)不同的身份顯示不同的功能菜單。 輸出 提示登錄成功進(jìn)入系統(tǒng)主頁(yè)面 表 32 員工上班 名稱、標(biāo)識(shí)符 上班 輸入 選擇部門、姓名，點(diǎn)擊上班 輸出 提示上班成功信息 . . 表 33 員工下班 名稱、標(biāo)識(shí)符 下班 輸入 輸入部門、姓名，點(diǎn)擊上班 輸出 提示下班成功信息 表 34 修改密碼 名稱、標(biāo)識(shí)符 修改密碼 輸入 管理員輸入用戶名、原始密碼、新設(shè)定的密碼 輸出 提示修改密碼成功信息 表 35 申請(qǐng) 請(qǐng)假 名稱、標(biāo)識(shí)符 申請(qǐng)請(qǐng)假 輸入 輸入請(qǐng)假人姓名、所屬部門、請(qǐng)假時(shí)間、請(qǐng)假時(shí)長(zhǎng)、請(qǐng)假原因 輸出 提示請(qǐng)假申請(qǐng)已經(jīng)提交信息 表 36 申請(qǐng)出差 名稱、標(biāo)識(shí)符 申請(qǐng)出差 輸入 申請(qǐng)人姓名、所屬部門、出差的開始時(shí)間、出差地點(diǎn)、出差原因 輸出 提示出差申請(qǐng)已經(jīng)提交信息 表 37 員工添加 名稱、標(biāo)識(shí)符 添加員工 輸入 輸入部門、姓名、性別、年齡、進(jìn)公司時(shí)間、個(gè)人密碼 輸出 提示添加已完成 表 38 部門添加 名稱、標(biāo)識(shí)符 部門添加 輸入 輸入部門名稱 輸出 提示添加已完成 表 39 上下班時(shí)間設(shè)定 名稱、標(biāo)識(shí)符 上、下班時(shí)間設(shè)定 輸入 上、下班時(shí)間 輸出 提示設(shè)置成功 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 概念設(shè)計(jì) 數(shù)據(jù)庫(kù)一般分為三級(jí)模式：外模式、概念模式和內(nèi)模式。 信息 。 邏輯結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì) 根據(jù)職工考勤管理系統(tǒng)的功能要求，選取 SQLServer 2020 作為后臺(tái)數(shù)據(jù)庫(kù)。 . . 第四章 信息系統(tǒng)實(shí)施 源程序 添加用戶 Dim m_clsUser As clsUser Private Sub cmdReg_Click() Set m_clsUser = New clsUser txtUserName, txtPassword, txtPasswordConfirm, txtRealName, boPermission, txtRegTime, frmAddUser End Sub Private Sub Form_Load() 管理員 , 0 普通用戶 , 1 = 0 End Sub Private Sub cmdClose_Click() Unload Me End Sub 修改密碼 Dim m_clsUser As clsUser Private Sub cmdChPwdOk_Click() Set m_clsUser = New clsUser txtChUser, txtOldPwd, txtNewPwd, txtNewPwdagain, frmChPwd End Sub Private Sub Form_Load() End Sub Private Sub cmdChPwdCancel_Click() Unload Me End Sub 出差情況 Dim strSql As String Dim rs As New Recordset . . Private Sub cboDept_Click() strSql = Select * from TWorker where departmentId= amp。 and amp。) TransactSQL (strSql) MsgBox 添加成功 End If End Sub Public Sub init() = num = 0 strSql = select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) If Not And Not Then num = rs(0) num = num + 1 = CStr(num) Else . . = 1 End If End Sub Private Sub cmdreadd_Click() Call init End Sub Private Sub Form_Load() num = 0 strSql = select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) If Not And Not Then num = rs(0) num = num + 1 = CStr(num) Else = 1 End If End Sub 部門管理 Dim strSql As String Dim RowNumber As Integer Private Sub cmdadd_Click() vbModal End Sub Private Sub cmddel_Click() If ConnectToDB() = False Then MsgBox 數(shù)據(jù)庫(kù)連接失敗 ! Exit Sub End If If MsgBox(你真的要?jiǎng)h除嗎 , vbInformation + vbYesNo, ) = vbYes Then strSql = delete from TDepartment where departmentId = amp。 ElseIf (m_txtdepartID ) Then strSql = select departmentId as 部門編號(hào) , departmentName as 部門名稱 from TDepartment where departmentId = amp。 m_strDepartName amp。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 End Sub Private Sub cboYourDepQJ_Click() strSql = Select * from TWorker where departmentId= amp。 _ . . values( amp。 , amp。 worktype amp。 workerId amp。 么？ , vbOKCancel) = vbOK Then psw = InputBox(請(qǐng)輸入員工密碼： , 輸入密碼) If yanzhengPWD(labwele, psw, workerPsw) = False Then Exit Sub = False Else Call getTime If DateDiff(s, nowtime, astart) = 0 Then worktype = 6 Else worktype = 4 End If If yanzheng(departId, workerId, today) Then If asrecord(departId, workerId, today) Then strSql = update TShangBan set workasType = amp。 and workerId = amp。 _ values( amp。,39。 optastart(0).Caption amp。 39。 amp。 amp。 ccLength amp。 39。 。 Now() Exit Sub Else = False qjReason = Trim() strSql = insert into TQingJia (departmentId,workerId,qjTime,qjLength,djTime,qjReason) values( _ amp。 amp。 39。 ,祝你生活幸福！ MsgBox 登 記成功！ Else MsgBox 你已經(jīng)下班，不必再登記！ End If Else MsgBox 對(duì)不起 ，你還沒有上班，請(qǐng)先上班！ , vbOKOnly + vbExclamation, 請(qǐng)遵守公司上下班秩序