【正文】 空值 Exit SubElsedepartId = Trim() departName = Trim()strSql = insert into TDepartment (departmentId,departmentName) values( _ amp。 and = and = and = and between amp。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 End SubPrivate Sub cmdPrint_Click() Set = (1).Controls(1).Caption = 請(qǐng)假情況統(tǒng)計(jì)表 (2).Controls(1).Caption = 部門名稱 (2).Controls(2).Caption = 員工名稱 (2).Controls(3).Caption = 出差時(shí)間 (2).Controls(4).Caption = 出差地點(diǎn) (2).Controls(5).Caption = 出差天數(shù) (2).Controls(6).Caption = 登記時(shí)間 (2).Controls(7).Caption = 銷差時(shí)間 (2).Controls(8).Caption = 出差備注 (3).Controls(1).DataField = 部門名稱 (3).Controls(2).DataField = 員工名稱 (3).Controls(3).DataField = 出差時(shí)間 (3).Controls(4).DataField = 出差地點(diǎn) (3).Controls(5).DataField = 出差天數(shù) (3).Controls(6).DataField = 登記時(shí)間 (3).Controls(7).DataField = 銷差時(shí)間 (3).Controls(8).DataField = 出差備注 End SubPrivate Sub cmdQuery_Click() strSql = select as 部門名稱 , as 員工名稱, as 出差時(shí)間, as 出差地點(diǎn), as 出差天數(shù), as 登記時(shí)間, as 銷差時(shí)間, as 出差備注 from TDepartment a, TWorker b,TChuChai c where = amp。3：早退例如：婁京兆是2013年生產(chǎn)部招收的第一位員工，那么他的ID就是071301。該數(shù)據(jù)庫由5個(gè)表組成，部門表、超級(jí)用戶表、用戶表、考勤表、考勤歷史表。通過對(duì)職工出勤管理系統(tǒng)的內(nèi)容和數(shù)據(jù)流程分析及ER圖，設(shè)計(jì)如下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：。對(duì)數(shù)據(jù)庫的關(guān)鍵數(shù)據(jù)應(yīng)要求保密。系統(tǒng)在進(jìn)行相關(guān)操作如刪除員工信息時(shí)使用了存儲(chǔ)過程?；拘畔⒐芾戆ü?jié)假日日期設(shè)置、部門信息管理和員工信息管理。對(duì)于企業(yè)管理人員的要求提高，使企業(yè)在一定的可能下進(jìn)行機(jī)構(gòu)精簡，迫使工作人員繼續(xù)學(xué)習(xí)新知識(shí)，拓寬企業(yè)在市場競爭環(huán)境下的生存空間。(3) 投資回收周期根據(jù)經(jīng)驗(yàn)算法，收益的累計(jì)數(shù)開始超過支出的累計(jì)數(shù)的時(shí)間為1年?？记诠芾硐到y(tǒng)是工作主要是在職工和管理都有之間架起一座橋梁，能相互溝通信息和處理信息。實(shí)現(xiàn)考勤管理現(xiàn)代化是一個(gè)復(fù)雜的系統(tǒng)工程，需要采取科學(xué)的管理方法和先進(jìn)的科技手段。查詢統(tǒng)計(jì)作為考勤管理的一個(gè)重要組成部分，是通過對(duì)考勤情況的調(diào)查，整理和分析，了解考勤情況的發(fā)展趨勢，為各級(jí)領(lǐng)導(dǎo)機(jī)關(guān)制定考出勤的方針，政策，加強(qiáng)干部管理，改革干部制度提供準(zhǔn)確數(shù)字的依據(jù)。通過考勤系統(tǒng)我們能很容易地對(duì)公司員工的信息有一個(gè)基本的了解，可以很方便地知道員工的出勤情況，通過對(duì)員工出勤信息的了解，就能計(jì)算出員工的實(shí)際工資。在過去我們的考勤工作都是人工完成的，不僅浪費(fèi)了很多的人力跟物力，而且無法保證其準(zhǔn)確性和透明度，給企業(yè)的管理帶來了許多的不便。目錄第一章 信息系統(tǒng)概況 4 選題介紹 4 課程設(shè)計(jì)小組基本情況介紹 4 4 5 5第二章 信息系統(tǒng)分析 6 可行性分析 6 技術(shù)可行性分析 6 社會(huì)因素可行性分析 7 可行性分析結(jié)論 7 客戶需求分析 7 系統(tǒng)分析部分 9 業(yè)務(wù)流程圖 9 數(shù)據(jù)流程圖 9 ER圖 11 數(shù)據(jù)字典 12第三章 信息系統(tǒng)設(shè)計(jì) 14 功能結(jié)構(gòu)圖設(shè)計(jì) 14 輸入輸出設(shè)計(jì) 14 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) 15 概念設(shè)計(jì) 15 邏輯結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì) 16 代碼設(shè)計(jì) 18第四章 信息系統(tǒng)實(shí)施 19 源程序 19 添加用戶 19 修改密碼 19 出差情況 19 添加部門 21 部門管理 22 更新部門 24 員工考勤登記 25 請(qǐng)假情況 37 上班時(shí)間設(shè)置 38 上班情況 39 用戶登入 41 添加員工 41 員工管理 44 修改員工 47 主界面 49 模擬運(yùn)行數(shù)據(jù) 52 系統(tǒng)使用說明書 55第五章 參考書籍 56第一章 信息系統(tǒng)概況 選題介紹當(dāng)今社會(huì)，計(jì)算機(jī)已經(jīng)十分普及，性能也日趨完善。隨著現(xiàn)代科技的進(jìn)步，用計(jì)算機(jī)來進(jìn)行考勤的管理也成為現(xiàn)代化企業(yè)運(yùn)作必不可少的一部分。實(shí)踐證明信息技術(shù)已在企業(yè)的管理層面扮演越來越重要的角色。第二章 信息系統(tǒng)分析 可行性分析目前，計(jì)算機(jī)在我國的考勤管理工作中，主要可用來進(jìn)行報(bào)表處理，檔案管理，文書編輯，信息查詢，綜合分析。在管理現(xiàn)代化的浪潮中，考勤管理現(xiàn)代化也勢在必行。同時(shí)由于邏輯不是太復(fù)雜，估計(jì)可以按時(shí)完成此項(xiàng)目。 經(jīng)濟(jì)可行性分析(1) 支出A、在基建投資上，只需要配置一臺(tái)DELL服務(wù)器，大概2萬左右；B、軟件設(shè)計(jì)和開發(fā)費(fèi)用：C、經(jīng)常性指出：（主要是指軟件的維護(hù)費(fèi)用）(2) 收益進(jìn)一步實(shí)現(xiàn)辦公自動(dòng)化，減少人力投資和辦公費(fèi)用，極大提高辦公效率，同時(shí)更好地控制考勤制度，降低成本。對(duì)傳統(tǒng)管理理念的沖擊，可能引起管理層的變動(dòng)和人員調(diào)整。能從整體上體現(xiàn)去每個(gè)員工每日，每月的出勤情況。程序使用三層架構(gòu)思想，采用完全面向?qū)ο蟮乃枷敕椒ㄔO(shè)計(jì)。(用戶對(duì)相關(guān)職工的查詢結(jié)果和報(bào)表)(4) 安全保密系統(tǒng)對(duì)不同權(quán)限的用戶提供不同的功能模塊，對(duì)歷史數(shù)據(jù)的更改和新數(shù)據(jù)的添加只有一定權(quán)限的用戶才能操作，一般用戶只能進(jìn)行查詢操作。在這里我們將要設(shè)計(jì)的是數(shù)據(jù)庫的概念模式。包括用戶名、密碼、姓名、性別、出生日期、籍貫等。包括序列號(hào)、編號(hào)、簽到時(shí)間、簽離時(shí)間等信息。包括記錄號(hào)、編號(hào)、日期、簽到時(shí)間、簽離時(shí)間、遲到、缺勤、早退等信息。在上面的實(shí)體和實(shí)體之間的ER圖設(shè)計(jì)基礎(chǔ)上，將ER圖轉(zhuǎn)化為關(guān)系模型，形成數(shù)據(jù)庫中的表格及表格之間的關(guān)系。員工ID一共分成6位，前兩位表示部門代號(hào)，中間兩位表示進(jìn)入部門年份，后兩位表示員工編號(hào)。2：出差 () amp。 () amp。 dtpEndDate amp。 amp。 RowNumber TransactSQL (strSql) DisConnect MsgBox 刪除成功, vbInformation, strSql = select departmentId as 部門編號(hào), departmentName as 部門名稱 from TDepartment RefreshData adodcDepManage, dgDepManage, strSql Exit Sub End IfEnd SubPrivate Sub cmdUpdate_Click() If RowNumber = 1 Then MsgBox 請(qǐng)先選擇要修改的數(shù)據(jù)! Exit Sub End If vbModalEnd SubPrivate Sub Comselect_Click()Dim m_txtdepartID As StringDim m_txtdepartName As Stringm_txtdepartID = Trim()m_txtdepartName = Trim() If (m_txtdepartID = And m_txtdepartName = ) Then strSql = select departmentId as 部門編號(hào), departmentName as 部門名稱 from TDepartment ElseIf (m_txtdepartID And m_txtdepartName ) Then strSql = select departmentId as 部門編號(hào), departmentName as 部門名稱 _ amp。% amp。 m_txtdepartID ElseIf m_txtdepartName Then strSql = select departmentId as 部門編號(hào), departmentName as 部門名稱 _ amp。 %39。 39。 () amp。 () amp。 workerIdSet rs = TransactSQL(strSql)If = False Then workerPsw = (0)End IfIf = True Then If = True Then If MsgBox(確定要 amp。 departId amp。 today amp。 worktype amp。 ,祝你今天上午工作愉快！ MsgBox 登記成功！ End If End If Else MsgBox 不登記 End If Else If MsgBox(確定要 amp。 , mleaveTime =39。 where departmentId = amp。 and workday= amp。 amp。 worktype amp。 39。 workerId amp。 amp。 departId amp。 amp。 amp。 worktype amp。 ,祝你今天下午工作愉快！ MsgBox 登記成功！ End If End If Else MsgBox 不登記 End If Else If MsgBox(確定要 amp。 , aleaveTime =39。 where departmentId = amp。 and workday= amp。 optaleave(1).Caption amp。 , amp。 ccTime amp。 ccArea amp。 ,39。,39。) TransactSQL (strSql)MsgBox 登記成功End IfEnd SubPrivate Sub cmdOKQJ_Click()Dim departId As IntegerDim workerId As IntegerdepartId = ()workerId = ()If = Or = Or = Then MsgBox 登記項(xiàng)目不能有空值 Exit Sub ElseIf IsDate(txtqjTime) = False Then MsgBox 時(shí)間格式不對(duì)！ = True = 時(shí)間格式： amp。 workerId amp。 39。 amp。 amp。 cdepartId amp。 ctoday amp。 cworkerId amp。 cdepartId amp。 ctoday amp。 cworkerId amp。 Now()txtccLength = Exit SubElse = = FalsedcTime = DateAdd(d, ccLength, ccTime)End If = dcTimeEnd SubPrivate Sub txtqjLength_Change() = qjTime = If = ThenMsgBox 請(qǐng)輸入請(qǐng)假時(shí)長！ElseIf Asc() 48 Or Asc() 57 ThenMsgBox 請(qǐng)輸入數(shù)字！ = Exit SubElseqjLength = End IfIf IsDate(qjTime) = False ThenMsgBox 時(shí)間格式不對(duì)！ = True = 時(shí)間格式：