【正文】 ： 員工表是該系統(tǒng)的主要組成部分 ，設(shè)置該表是十分必要的 。 支持系統(tǒng)的數(shù)據(jù)庫 本系統(tǒng)具體采用 Office 組件的 Access[6] 的數(shù)據(jù)庫設(shè)計，通過 VB 程序下的外接程序 和 連接，在庫 中的 5 個表聯(lián)系，其中有個在運行中生成的表 (今日簽到表 )。 圖 32 系統(tǒng) ER 圖 6 系統(tǒng)開發(fā)平臺 支持系統(tǒng)的軟 件 (1) 運行環(huán)境 ： VB [5]是 WINDOWS 95/98 或 WINDOWS NT 下的一個應(yīng)用程序，本身對軟硬件沒有特殊要求。 (3) 部門信息 。通過分析，本系統(tǒng)需要如下實體： (1) 員工基本信息 。 (5) 輸入模塊 ： 可以以表單輸入或直接添加修改。 3 系統(tǒng)的 概要 設(shè)計 系統(tǒng)功能模塊設(shè)計 根據(jù) 功能分析及數(shù)據(jù)庫 分析 結(jié)果，本系統(tǒng) 將具備如 圖 31 所示 的功能模塊 ： 圖 31 系統(tǒng)模塊總體圖 各 模塊 的 作用如下： (1) 命令按鈕 ： 隱藏或顯示工具條。 包括的數(shù)據(jù)項有 ： 部門 、 姓名 、員工號、 本月天數(shù)。 包括數(shù)據(jù)項有 ： ID、 部門編號、 部門名稱。 包括的數(shù)據(jù)項有 ： 編號 、 姓名 、 部門 、 性別 、 生日 、 籍貫 、 學(xué)歷 、 專業(yè) 、 參加工作時間 、 進(jìn)入公司時間 、 起薪時間 、 職稱 、 職稱時間 、 入黨時間 、專業(yè)技術(shù)職稱、 備注。它 是通過一個圖形框容器來實現(xiàn)的。這是一個不經(jīng)過數(shù)據(jù)庫的表格的方式來建立的動態(tài) 表格，它和ADO[2]的連接是通過 ADODCN 來連接的。 一般來說，有兩個管理員已經(jīng)足夠了。由于公司的集團化，公司有多個部門，為了使該系統(tǒng)能在公司內(nèi)部具有通用性 ， 為此，將員工的編號的位數(shù)設(shè)為 5 位。 包括姓名、 性別 、 籍貫。 (2) 員工簽 到。這些優(yōu)點能夠極大地提高企業(yè)管理的效率 ， 也是企業(yè)科學(xué)化、正規(guī)化管理 ， 與世界接軌的重要條件。 操作可行性 本考勤系統(tǒng)對于該公司來說，在現(xiàn)有的基礎(chǔ)上是行的通的，因為本公司的信息化建設(shè)是比較高的，早在八十年代，本公司的領(lǐng)導(dǎo)高屋建瓴的制 訂的信息化建設(shè)的藍(lán)圖，并于九十年代初期就開始了實質(zhì)性的建設(shè)，到目前，該公司的建設(shè)和基礎(chǔ)建設(shè)同步。 技術(shù)可行性 采用 Visual basic 和 Acess2020 軟件 ， 使用可視化編程技術(shù) [1]， 運用 簡便、快捷的開 發(fā)工具，通過 模塊 、 數(shù)據(jù)控件和各個 工具 箱 的屬性的設(shè)置， 即可 實現(xiàn) 本考勤系統(tǒng) 。 為此開發(fā)了該系統(tǒng)來滿足用戶的要求， 使企業(yè)更 快 、更 好 的發(fā)展， 以適應(yīng)市場和社會的發(fā)展需求。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的發(fā)展需求。該系統(tǒng) 能夠完成 員工 考勤 的自動化 管理。華豐公司員工考勤系統(tǒng)是 根據(jù) 該公司 的實際需求 ，采用 Visual Basic 和 Access 開發(fā)的一個員工考勤系統(tǒng)。提高企業(yè)的管理水平，必須全方位地提高企業(yè)的管理意識。 考勤系統(tǒng)管理方面 的信息化與科學(xué)化，已成為現(xiàn)代化生活水平步 入高臺階的重要標(biāo)志。 1 系統(tǒng)可行性分析 公司考勤系統(tǒng)的開發(fā)是一個在預(yù)定的系統(tǒng)規(guī)模之內(nèi)解決的，所以它能帶來很大的經(jīng)濟效益，值得去花費一定的人力，才力和物力去開發(fā)的。開發(fā)本考勤系統(tǒng)的過程中， 從分析 、 設(shè)計 、 編碼 、 運行 、 測試 的角度來看 ， 所需要支出的費用相對使用本系統(tǒng)后 帶來的巨大的經(jīng)濟效益來說是 微不足道的 。 例如 ： 檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 員工基本信息 包括 ① 員工基本資料：姓名、性別、籍貫、出生日期、地址、 政治面貌 ； ② 員工聯(lián)系方式 ； ③ 員工詳細(xì)資料 ； ④ 個人簡介。 (3) 員工查找（對已經(jīng)簽到的員工進(jìn)行按員工 編號查詢，并顯示其基本信息，也可以以姓名和部門 進(jìn)行 查找） 。 (5)部 門維護(hù)。密碼維護(hù)是為該考勤系統(tǒng)設(shè)計的 ， 只有進(jìn)入該系統(tǒng)的人才能有資格進(jìn)行用戶和密碼的設(shè)置 。 （ 8） 簽到總表。 此退出的和以前的所有功能都不是用命令來實現(xiàn)的。 員工登記過程數(shù)據(jù)流程分析圖如圖 21 所示 ： 3 圖 21 員工登記過程數(shù)據(jù)流程圖 通過對員工登記過程的內(nèi)容和數(shù)據(jù)流程分析 ， 設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu) ： (1) 員工基本信息 。 (3) 部門信息 。 (2) 考勤信息 。 考 勤信息管理的過程流程圖如圖 23 所示 ： 圖 23 考勤信息管理的過程流程圖 通過考勤信息管理 過程流程圖分析 ， 設(shè)計 下面所示的 數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu) ： 員工查找 包括 的數(shù)據(jù)項 有 ： 編號 、 姓名 、 部門 、 性別 、 生日 、 籍貫 、 學(xué)歷 、 專業(yè) 、 參加工作時間 、 進(jìn)入公司時間 、 起薪時間 、 調(diào)入部門時間 、 職稱 、 職稱時間 、 入黨時間 、職稱、 專業(yè)技 術(shù)職稱、 備注。 (4) 統(tǒng)計模塊 ： 可以按編號、部門、姓名統(tǒng)計?？梢圆捎?ER 圖的方法來進(jìn)行數(shù)據(jù)結(jié)構(gòu)分析。 包括的數(shù)據(jù)項有 ： 姓名、 密碼。 根據(jù)本系統(tǒng)所需的如下實體設(shè)計出本系統(tǒng)的 E— R 圖 如 下 圖 32 所示 。 (3) 軟件要求： WINDOWS 95/98 或 WINDOWS NT 以上版本。 現(xiàn)在 給出 其中一些模塊的 重 要算法 的 NS 圖如下 所示 ： 圖 41 登陸模塊用戶驗證的 NS 圖 圖 42 保存記錄的 NS 圖 7 數(shù)據(jù)庫表的設(shè)計 根據(jù)系統(tǒng)設(shè)計所需要的功能模塊，將本系統(tǒng)所需要的數(shù)據(jù)表設(shè)計如下 ： (1) 部門表 ： 部門表作為數(shù)據(jù)庫的一部分，設(shè)置部門表以便進(jìn)行管理和 將來的 評 比工作。該表結(jié)構(gòu)和內(nèi)容如表 45所示： 表 45 今日簽到情況表 編號 姓名 性別 簽 到時間 簽到次數(shù) 0001 肖豐新 男 20200503 1 (4) 用戶表 ： 用戶表是登陸信息服務(wù)的 ， 它對該系統(tǒng)安全性和管理權(quán)限起決定作用，為了防止員工作弊現(xiàn)象，該用戶表是保密的，不向非管理員開放 。 設(shè)計該窗體時，所用到的控件及其屬性設(shè)置如下： 表 51 窗體用到的控件屬性表 登陸界面 運行效果 如圖 51 所示： 圖 51 登陸界面圖 控件 屬性 設(shè)置 Labl1 caption 公司考勤系統(tǒng) Labl2 Caption 用戶名 Labl3 Caption 密碼 Text1 NULL Text2 NULL ADODC1 Caption 用戶表 Command1 Caption 登陸 Command2 caption 取消 9 實現(xiàn)該模塊功能的主要代碼如下： Private Sub Command1_Click() If Not Then End If Do While Not If !用戶名 = Then If !密碼 = Then Unload check Unload begain Exit Sub Else MsgBox 密碼錯誤 , 16, 公司考勤系統(tǒng) = Exit Sub End If Else End If Loop MsgBox 沒有這個管理員 , 48, 公司考勤系統(tǒng) 主界面的顯示 該界面 可以 完成幾乎所有的功能 。 運行界面 如圖 53 所示 ： 圖 53 友好導(dǎo)航 12 實現(xiàn)該模塊功能的主要代碼如 下： Public transdata As Long Private Sub Image1 Click(Index As Integer) End Sub Private Sub Command1 Click() = False = True For i = 0 To 7 Picture1(i).Left = 240 Next i = 6582 End Sub 簽到模塊 考勤界面是通過信息提示框來實現(xiàn)的，提 示框的實現(xiàn)是利用 VB 提供的函數(shù)Msgbox[9]。統(tǒng)計是用 來實現(xiàn)的。 運行界面 如圖 56 所示 ： 15 圖 56 簽到統(tǒng)計界面 實現(xiàn)該模塊功能的主要代碼如下： private Sub Command15_Click() Dim ii As Integer If = Then = 2020 End If If Then ii = MsgBox(是否真的刪除 amp。 月的簽到信息？ , 292, 公司考勤系統(tǒng) ) If ii = 6 Then = Trim() If Not Then End If Do While Not If = Year(!簽到日期 ) And = Month(!簽到日期 ) Then End If Loop = 1000 = = End If End If End Sub 16 查找模塊 員工的查找界面是唯一圖片容器功能的設(shè)計，它的查找結(jié)果是通過 SSTABLE 控件 [10]來實現(xiàn)的。 amp。 amp。 amp。 amp。 刪除用戶，添加用戶，修改密碼都是一個按鈕 。 當(dāng)然，由于開發(fā)過程時間的限制 ,沒有作好充分的調(diào)查工作和需求分析，軟件也存在一定的不足。 amp。 28 ! 員工姓名 amp。 !性別 amp。 ! 員工姓名 amp。 !性別 amp。H80000002 Label1(2).ForeColor = amp。H80000002 Label1(6) .ForeColor = amp。H80000009 End Sub Private Sub List1_DblClick() transdata = Val(Trim(Left(, 5))) End Sub Private Sub Option1_Click() = False = True = False End Sub Private Sub Option2_Click() = False = False = True End Sub Private Sub Text7_Change() If Len() 6 Then = End If End Sub Private Sub Text8_Change() If Len() 10 Then = End If End Sub Private Sub Text9_Change() If Len() 10 Then = End If End Sub Private Sub Timer1_Timer() 33 = 0 End Sub Private Sub hidall() Picture1(0).Visible = False Picture1(1).Visible = False Picture1(2).Visible = False Picture1(3).Visible = False Picture1(4).Visible = False Picture1(5).Visible = False Picture1(6) .Visible = False Picture1(7).Visible = False Picture1(8).Visible = False End Sub