【正文】 ) TransactSQL (strSql) MsgBox 登記成功 End If End Sub Private Sub cmdOKQJ_Click() Dim departId As Integer Dim workerId As Integer departId = () workerId = () If = Or = Or = Then MsgBox 登記項(xiàng)目不能有空值 Exit Sub ElseIf IsDate(txtqjTime) = False Then MsgBox 時(shí)間格式不對(duì)！ = True = 時(shí)間格式： amp。 ccTime amp。 where departmentId = amp。 amp。 workerId amp。 and workday= amp。 worktype amp。 () amp。 m_txtdepartID ElseIf m_txtdepartName Then strSql = select departmentId as 部門編號(hào) , departmentName as 部門名稱 _ amp。 dtpEndDate amp。 在上面的實(shí)體和實(shí)體之間的 ER 圖設(shè)計(jì)基礎(chǔ)上，將 ER 圖轉(zhuǎn)化為關(guān)系模型，形成數(shù)據(jù)庫(kù)中的表格及表格之間的關(guān)系。 . . 在這里我們將要設(shè)計(jì)的是數(shù)據(jù)庫(kù)的概念模式。 對(duì)傳統(tǒng)管理理念的沖擊，可能引起管理層的變動(dòng)和人員調(diào)整。 . . 第二章 信息系統(tǒng)分析 可行性分析 目前，計(jì)算機(jī)在我國(guó)的 考勤 管理工作中，主要可用來(lái)進(jìn) 行報(bào)表處理，檔案管理，文書(shū)編輯，信息查詢，綜合分析。 . . 目錄 第一章 信息系統(tǒng)概況 ...................................... 3 選題介紹 .................................................... 3 課程設(shè)計(jì)小組基本情況介紹 ................... 錯(cuò)誤 !未定義書(shū)簽。 查詢 統(tǒng)計(jì)作為 考勤 管理的一個(gè)重要組成部分，是通過(guò)對(duì) 考勤 情況的調(diào)查，整理和分析，了解 考勤情況 的發(fā)展趨勢(shì)，為各級(jí)領(lǐng)導(dǎo)機(jī)關(guān)制定 考出勤 的方針，政策，加強(qiáng)干部管理，改革干部制度提供準(zhǔn)確數(shù)字的依據(jù)。對(duì) 于企業(yè)管理人員的要求提高，使企業(yè)在一定的可能下進(jìn)行機(jī)構(gòu)精簡(jiǎn)，迫使工作人員繼續(xù)學(xué)習(xí)新知識(shí)，拓寬企業(yè)在市場(chǎng)競(jìng)爭(zhēng)環(huán)境下的生存空間。 通過(guò)對(duì)職工出勤管理系統(tǒng)的內(nèi)容和數(shù)據(jù)流程分析及 ER 圖，設(shè)計(jì)如下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 信息 。 該數(shù)據(jù)庫(kù) 由 5 個(gè)表組成，部門表、超級(jí)用戶表、用戶表、考勤表、考勤歷史表。 . . ConnectToDB RefushDataGrid adodcChuChai, dgChuChai, strSql DisConnect End Sub Private Sub Form_Load() strSql = Select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) Do While Not ((1).Value) () = (0).Value Loop = 0 End Sub 添加部門 Dim departId As Integer Dim departName As String If = Then MsgBox 部門名稱不能有空值 Exit Sub Else departId = Trim() departName = Trim() strSql = insert into TDepartment (departmentId,departmentName) values( _ amp。 from TDepartment where departmentName like 39。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 . . End Sub Private Sub cmdOk_Click() Dim psw As String Dim worktype As Integer Dim workerPsw As String Dim pwdCount As Integer pwdCount = 0 Dim departId As Integer Dim workerId As Integer departId = () workerId = () strSql = select workerPsw from TWorker where departmentId= amp。 ) TransactSQL (strSql) = False = True = 歡迎 amp。 today amp。 and workday= amp。 nowtime amp。 departId amp。 39。 Now() Exit Sub Else = False qjReason = Trim() strSql = insert into TQingJia (departmentId,workerId,qjTime,qjLength,djTime,qjReason) values( _ amp。 39。 amp。 39。,39。 and workerId = amp。 workerId amp。 , 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。 ElseIf (m_txtdepartID ) Then strSql = select departmentId as 部門編號(hào) , departmentName as 部門名稱 from TDepartment where departmentId = amp。 and amp。 邏輯結(jié)構(gòu)設(shè)計(jì)設(shè)計(jì) 根據(jù)職工考勤管理系統(tǒng)的功能要求，選取 SQLServer 2020 作為后臺(tái)數(shù)據(jù)庫(kù)。 輸出 提示登錄成功進(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)人姓名、所屬部門、出差的開(kāi)始時(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)模式。 (2)使用方面的可行性 由于新系統(tǒng)的客戶端只要求用瀏覽器，管理者與人員完全有能力使用此系統(tǒng)，并且新系統(tǒng)的研制和開(kāi)發(fā)是充分考慮工作人員對(duì)考勤的易于管理，提高工作效率，界面友好，操作簡(jiǎn)單方便，能完全滿足職工的使用要求。所以說(shuō)，考勤管理系統(tǒng)的開(kāi)發(fā)具有非常重要的意義。 課程設(shè)計(jì)小組成員的基本情況介紹 ....... 錯(cuò)誤 !未定義書(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è)明顯的問(wèn)題，比如說(shuō)統(tǒng)計(jì)資料缺乏準(zhǔn)確性，及時(shí)性，需要花費(fèi)大量的人力，物力，財(cái)力等。對(duì)于企業(yè)的管理者與職工之間管理方式的轉(zhuǎn)變和擴(kuò)充。 包括 部門編號(hào)、部門名稱、部門人數(shù)等 。分別如下表所示： 表 310 出差表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 出差時(shí)間 ccTime 日期 /時(shí)間 否 出差地點(diǎn) ccArea 文本 是 出差天數(shù) ccLength 數(shù)字 是 登記時(shí)間 dcTime 日期 /時(shí)間 是 銷差時(shí)間 xcTime 日期 /時(shí)間 是 出差備注 ccContent 文本 是 表 311部門表 名稱 字 段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 唯一表示部門 部門名稱 departmentName 文本 否 部門名稱 . . 表 312 請(qǐng)假表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 請(qǐng)假時(shí)間 qjTime 日期 /時(shí)間 否 請(qǐng)假天數(shù) qjLength 數(shù)字 是 登記時(shí)間 djTime 日期 /時(shí)間 是 請(qǐng)假原因 qjReason 文本 是 銷假時(shí)間 xjTime 日期 /時(shí)間 是 是否曠工 ynKg 是 /否 是 表 313 上班表 名稱 字段 類型 為空性 備注 部門代號(hào) departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 工作日期 workday 日期 /時(shí)間 否 上午上班時(shí)間 mstartTime 日期 /時(shí)間 是 下午上班時(shí)間 astartTime 日期 /時(shí)間 是 上午下班時(shí)間 mleaveTime 日期 /時(shí)間 是 下午下班時(shí)間 aleaveTime 日期 /時(shí)間 是 上班類型 1 workmsType 數(shù)字 是 存放工作類型 表中的 typeId 0：正常上班 1：請(qǐng)假 2：出差 3：早退 4：遲到 上班類型 2 workmlType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 上班類型 3 workasType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 上班類型 4 workalType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 表 314 用戶表 名稱 字段 類型 為空性 備注 用戶名 username 文本 否 密碼 password 文本 否 真實(shí)姓名 realname 文本 否 注冊(cè)時(shí)間 regtime 日期 /時(shí)間 否 . . 權(quán)限 permission 數(shù)字 否 0:管理員 1:普通用戶 表 315 員工表 名稱 字段 類型 為空性 備