【正文】
設(shè) 錄 置 手 工 加 請(qǐng) 出 補(bǔ) 班 假 差 記 記 記 記 出 錄 錄 錄 勤 圖 系統(tǒng)功能模塊圖 11 數(shù)據(jù)流程設(shè)計(jì) 員工 上下班劃卡 記錄出勤時(shí)間 員工 月度員工 出勤記錄 考勤統(tǒng)計(jì)表 請(qǐng)假、值班、出差 請(qǐng)假、值班、出差 請(qǐng)假、值班、 各種統(tǒng)計(jì)信息 出差記錄 經(jīng)理審批 通過(guò) 考勤員 上下班時(shí)間安排 上下班 管理人 員 時(shí)間安排 圖 系統(tǒng)數(shù)據(jù)流程圖 第四章 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)需求分析 出勤記錄:記錄號(hào)、員工、出入情況、出入時(shí)間 請(qǐng)假記錄:記錄號(hào)、員工、請(qǐng)假起始時(shí)間、假期結(jié)束時(shí)間、請(qǐng)假緣由。 ( 3) 加班記錄: 記錄號(hào)、員工、加班時(shí)間長(zhǎng)度、日期。 ( 1) 正常出勤 : 根據(jù)該單位的需求,對(duì)員工的正??记冢ㄟt到和早退)進(jìn)行每日統(tǒng)計(jì),并輸入到系統(tǒng)中。 按上述三方面進(jìn)行可行性分析、研究后,我們認(rèn)為該項(xiàng)目是可行的。 第二章 系統(tǒng)需求分析 可行性分析 技術(shù)可行性 根據(jù)新系統(tǒng)目標(biāo)來(lái)衡量所需的技術(shù)是否具備,一般可從硬件、軟件的性能要求、環(huán)境條件、技術(shù)人員水平和數(shù)量等方面去考慮和分析,其中開(kāi) 發(fā)人員的技術(shù)力量應(yīng)首先考慮能力與水平,并考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。在這個(gè)文件中,用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中,這些空間稱作表;可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù);使用查詢來(lái)查找并檢索所要的數(shù)據(jù);也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。( 2)軟件要求: Microsoft Windows 95 或更高版本; Microsoft Inter Explorer 或更新的版本。隨著微軟 對(duì)它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高,使得 Visual 越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。實(shí)踐證明信息技術(shù)已在企業(yè)的管理層面扮演越來(lái)越重要的角色。大大減少了公司的人力和物力 ,為公司的考勤以及工資的發(fā)放帶來(lái)很大的便利??记诠芾碜鳛槠髽I(yè)內(nèi)部的一種管理也是如此,由于企業(yè)職工人數(shù)較多,每一位職工的具體實(shí)際情況也不盡相同,日常的考勤工作,如果沒(méi)有一個(gè)完整的管理,后果將不堪設(shè)想。尤其是計(jì)算機(jī)輔助考勤管理僅是近幾年才在我國(guó)得到普及和發(fā)展,而 在許多發(fā)達(dá)國(guó)家計(jì)算機(jī)輔助考勤管理已十分普及??记谝?guī)則的靈活定義,提供和多種考勤機(jī)的接口,并可以手工錄入考勤記錄。在過(guò)去我們的考勤工作都是人工完 成的,不僅浪費(fèi)了很多的人力跟物力,而且無(wú)法保證其準(zhǔn)確性和透明度, 給企業(yè)的管理帶 來(lái)了許多的不便。而后 1992 年推出了 版本 ,1993 年推出了 版本, 1995 年推出了 版本, 1997 年和 1998 年分別推出了 和 版本,而 20xx 年則推出了 Visual 版本。 Visual Basic 程序設(shè)計(jì)是一種面向?qū)ο蟮某绦蛟O(shè)計(jì),它是吸收了軟件工程領(lǐng)域有益的概念和有效的方法而發(fā)展起來(lái)的一種程序設(shè)計(jì)方法。 Access 數(shù)據(jù)庫(kù)由七個(gè)對(duì)象組成:表、查詢、窗體、報(bào)表、頁(yè)、宏以及模塊。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù), 創(chuàng)建一個(gè)窗體。例如,系統(tǒng)投入運(yùn)行后可以提供哪些以前無(wú)法及時(shí)提供的信息,用戶查詢和使用信息的方便程度提高多少、速度增加了多少,對(duì)于管理人員進(jìn)行決策提供了多少幫助等等,同時(shí)可以減少管理人員,從而節(jié)省了大量的工資開(kāi)出。該模塊的主要功能是對(duì)該 單位的員工的基本信息進(jìn)行管理,并能夠?qū)T工的基本信息進(jìn)行查詢,便于修改和刪除。該功能模塊能夠設(shè)置加班的項(xiàng)目名稱和加班費(fèi)(相對(duì)平時(shí)工作日工資),輸入員工的加班數(shù)據(jù)到加班表中。 10 第三章 總體設(shè)計(jì) 系統(tǒng)目標(biāo)設(shè)計(jì) 本系統(tǒng) 是 實(shí)現(xiàn)對(duì) 員工上下班時(shí)間的設(shè)定,員工出入單位情況的記錄,請(qǐng)假、加班、出差情況的記錄, 還有每個(gè)月底進(jìn)行整個(gè)月出勤情況的統(tǒng)計(jì)。 部門設(shè)置:部門編號(hào)、名稱等。 15 圖 用戶登錄界面 系統(tǒng)主菜單窗體設(shè)計(jì) 輸入用戶名和密碼后,單擊“確定”按鈕,進(jìn)入系統(tǒng)主菜單,如圖 所示。 18 圖 員工管理窗體 圖 員工的添加 19 圖 員工的查詢 數(shù)據(jù)庫(kù)管理窗體 設(shè)計(jì) 數(shù)據(jù)庫(kù)窗體設(shè)計(jì)主要與后臺(tái)數(shù)據(jù)庫(kù)相連,主要實(shí)現(xiàn)數(shù)據(jù)庫(kù)的備份,數(shù)據(jù)庫(kù)的初始化,刪除過(guò)期信息,清空憑單傳真壓縮數(shù)據(jù)庫(kù)以及 返回?cái)?shù)據(jù)庫(kù)等。而設(shè)置考勤機(jī)時(shí)間是由考勤人員手工設(shè)置,然后生成的。如圖 。 ( 3) 負(fù)載測(cè)試 負(fù)載測(cè)試主要測(cè)試系統(tǒng)存在大量圖書檢索情況下,系統(tǒng)的運(yùn)行情況。在這幾個(gè)月的開(kāi)發(fā)過(guò)程中,學(xué)到了許多有關(guān)數(shù)據(jù)庫(kù)管理軟件設(shè)計(jì)的東西 ,也對(duì)管理信息系統(tǒng)有了更加全面而深刻的認(rèn)識(shí) 。設(shè)計(jì)中力求界面友好、簡(jiǎn)潔,易于操作。現(xiàn)在開(kāi)發(fā)出來(lái)的軟件對(duì)數(shù)據(jù)庫(kù)的操作還不夠穩(wěn)定常會(huì)出現(xiàn)非法操作,異常處理做的還很欠缺。 amp。 Mid(strATR, 8, 1) 1 End Sub Private Sub mnuCardNew_Click() 1 End Sub Private Sub mnuReadWrite_Click() 1 End Sub Private Sub mnuFileExit_Click() If MsgBox(MDIMsg1, _ vbQuestion + vbYesNo + vbDefaultButton2, _ gTitle) = vbNo Then Exit Sub EndSystem End Sub Private Sub mnuFileReg_Click() 1 SetMenu gLoginGrade = 1 End Sub 32 Private Sub mnuGuardBase_Click() 1 End Sub Private Sub mnuGuardEmployee_Click() vbModal End Sub Private Sub mnuGuardLib_Click() 1 End Sub Private Sub mnuPosSetDate_Click() 1 End Sub Private Sub mnuPowerOff_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOff End Sub Private Sub mnuPowerOn_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOn End Sub Private Sub mnuReadMain_Click() Dim strMain As String * 512 Dim i As Integer, j As Integer, nRet As Integer nRet = OpenComm(0) nRet = IC_ReadMain(0, 256, strMain) If nRet 0 Then MsgBox Error Read Main Memory Exit Sub End If = For i = 0 To 15 For j = 0 To 15 33 = amp。不能顯示有模式 ,因當(dāng)中有顯示非模式的窗體 End With End Sub Private Sub SetMenu(isEnable As Boolean) 39。 amp。Unload MyfrmMain End Sub Private Sub mnuAppDefine_Click() vbModal End Sub Private Sub mnuAppLeave_Click() IntofrmMain gMAINLEAVE End Sub Private Sub mnuAppPlan_C