目錄

第一章 概述 1
1.1 項(xiàng)目背景與意義 1
1.2 可行性分析 1
1.2.1 技術(shù)可行性 1
1.2.2 經(jīng)濟(jì)可行性 2
1.2.3 運(yùn)行可行性 2
1.3 相關(guān)技術(shù)與開(kāi)發(fā)工具介紹 3
1.3.1 Visual Basic 6.0簡(jiǎn)介 3
1.3.2 Access數(shù)據(jù)庫(kù)的介紹 5
第2章 總體設(shè)計(jì) 6
2.1 員工請(qǐng)假管理系統(tǒng)簡(jiǎn)介 6
2.1.1 整體說(shuō)明 6
2.1.2 具體需求說(shuō)明 6
2.2 需求分析 7
2.2.1 總體功能需求 7
2.2.2 業(yè)務(wù)流程圖 7
2.2.3 數(shù)據(jù)庫(kù)設(shè)計(jì) 7
2.2.4 功能模塊劃分及層次關(guān)系 10
2.2.5 系統(tǒng)組成 11
第三章 詳細(xì)設(shè)計(jì)及實(shí)現(xiàn) 12
3.1. 系統(tǒng)登錄 12
3.1.1 功能設(shè)計(jì) 12
3.1.2 功能實(shí)現(xiàn) 12
3.2 基礎(chǔ)單元設(shè)置模塊 13
3.2.1 功能設(shè)計(jì) 13
3.2.2 功能實(shí)現(xiàn) 14
3.3 員工管理模塊 15
3.3.1 功能設(shè)計(jì) 15
3.3.2 功能實(shí)現(xiàn) 16
3.4 員工查詢模塊 18
3.4.1 功能設(shè)計(jì) 18
3.4.2 功能實(shí)現(xiàn) 18
3.5請(qǐng)假管理模塊 20
3.5.1功能設(shè)計(jì) 20
3.5.2 功能實(shí)現(xiàn) 21
3.6 請(qǐng)假查詢模塊 23
3.6.1 功能設(shè)計(jì) 23
3.6.2 功能實(shí)現(xiàn) 23
結(jié)束語(yǔ) 25
致謝 26
參考文獻(xiàn) 27
第2章 總體設(shè)計(jì)
2.1 員工請(qǐng)假管理系統(tǒng)簡(jiǎn)介
2.1.1 整體說(shuō)明
(1)實(shí)現(xiàn)員工請(qǐng)假管理的的信息化管理
(2)實(shí)現(xiàn)員工請(qǐng)假管理的基礎(chǔ)要求
(3)具有查詢功能
(4)具有報(bào)表及打印功能
(5) 多用戶操作
2.1.2 具體需求說(shuō)明
(1) 功能：
實(shí)現(xiàn)員工請(qǐng)假的工常管理功能
(2) 可用性：
要求具有良好的界面接口,符合Microsoft 的GUI標(biāo)準(zhǔn)。
(3) 易用性：
具有一定電腦基礎(chǔ)的操作員基本上無(wú)需要專(zhuān)門(mén)培訓(xùn)，如需培訓(xùn)，培訓(xùn)時(shí)間不超過(guò)一周就可完全掌握
(4) 性能：
性能良好，有完善的錯(cuò)誤出現(xiàn)功能，盡可能的在用戶輸入端做出完善的出錯(cuò)處理。滿足不超過(guò)一萬(wàn)員工的中小企業(yè)的數(shù)據(jù)處理需求
(5) 數(shù)據(jù)庫(kù)支持標(biāo)準(zhǔn)：
Microsoft ADO 2.7標(biāo)準(zhǔn)。
(6) 設(shè)計(jì)約束：
開(kāi)發(fā)工具為Microsoft VB 6.0 數(shù)據(jù)庫(kù)采用ACCESS 2000.系統(tǒng)性能將會(huì)受到開(kāi)發(fā)工具及數(shù)據(jù)庫(kù)的制約
(7) 第三方控件：
不需要購(gòu)買(mǎi)任何第三方控件
(8) 接口
用戶界面：統(tǒng)一的界面風(fēng)格。只有一個(gè)主程序
硬件接口：無(wú)特別要求
網(wǎng)絡(luò)接口：無(wú)特別要求
數(shù)據(jù)接口：本系統(tǒng)數(shù)據(jù)可支持Microsoft 所有支持的格式轉(zhuǎn)換
2.2 需求分析
2.2.1 總體功能需求
(1)系統(tǒng)界面友好大方，方便用戶操作。
(2)管理員有自己的帳號(hào)和密碼，并有添加管理員和刪除管理員帳號(hào)的功能。
(3)可以對(duì)員工的基本信息進(jìn)行管理，包括增刪改等操作。
(4)實(shí)現(xiàn)員工請(qǐng)假的登記，包括增刪改等操作。
(5)系統(tǒng)應(yīng)提供查詢功能，包括基本信息的查詢和請(qǐng)假信息的查詢。
(6)系統(tǒng)有打印功能。
2.2.2 業(yè)務(wù)流程圖

圖2-1 系統(tǒng)業(yè)務(wù)流程圖
2.2.4 功能模塊劃分及層次關(guān)系
根據(jù)需求，把系統(tǒng)劃分為以下幾個(gè)模塊：
(1)系統(tǒng)登錄模塊
提供用戶登錄功能，要求用戶輸入用戶名和密碼。
(2)基礎(chǔ)單元管理
主要包括對(duì)部門(mén)、文化程度、職務(wù)、職稱(chēng)、政治面貌、請(qǐng)假類(lèi)型、銷(xiāo)假標(biāo)志、婚姻狀況的設(shè)置。
(3)操作員管理
即系統(tǒng)管理員的管理，包括添加管理員、和刪除管理員.
(4)員工管理
對(duì)公司員工的管理，包括添加、刪除、修改員工基本信息等。
(5)員工查詢
按條件查詢員工的基本信息。
(6)請(qǐng)假管理
添加、刪除或是修改員工請(qǐng)假信息。
(7)請(qǐng)假查詢
查詢員工請(qǐng)假信息。
系統(tǒng)層次關(guān)系如下：
本文轉(zhuǎn)載自在這里插入圖片描述
http://www.biyezuopin.vip/onews.asp?id=12564
圖2-2 系統(tǒng)模塊示意圖

2.2.5 系統(tǒng)組成
1> modMain.bas (公用模塊，系統(tǒng)公共變量，數(shù)據(jù)庫(kù)連接)
2> frmLogin.frm (登錄窗體)
3> frmMain.frm (主窗體，系統(tǒng)主界面)
4> frmOperator.frm (操作員管理窗體，操作員的增，刪，修改)
5> frmEmployees.frm (員工信息管理窗體，員工的增，刪，改，查詢,打印)
6> frmLeavel.frm (請(qǐng)假管理，請(qǐng)假的增，刪，改，查詢，打印)
7> frmUnit.frm (基礎(chǔ)單元的設(shè)置，學(xué)歷，職務(wù)等)
8> frmEmpAdd.frm (員工增加窗體，員工信息輸入)
9> frmLeavelAdd.frm (請(qǐng)假信息增加窗體，請(qǐng)假信息的輸入，修改)
10> frmEmpQuery.frm (員工信息的詳細(xì)查詢窗體，各種信息查詢)
11> frmAbout.frm (“關(guān)于我們”窗體，軟件的一些信息)
12> prjEmis.vbp (主工程文件)

Private Sub flexLeavel_SelChange()
Dim vtempdata As Variant
Call frmEmployees.GetFlexGridFirstColValue(flexLeavel, strLvlFirstFieldValue) '從表格中提取員工工作證號(hào)
If strLvlFirstFieldValue <> Empty Then
    If Not (rctLeavelList.BOF And rctLeavelList.EOF) Then
        rctLeavelList.MoveFirst
        rctLeavelList.Find ("Emp_ID = " & "'" & Trim(strLvlFirstFieldValue) & "'")
        txtEmp_ID.Text = rctLeavelList.Fields("Emp_ID")
        txtEmp_Name.Text = rctLeavelList.Fields("Emp_Name")
        If rctLeavelList.Fields("Depart_Id") <> Empty Then
            dcbDepartID.BoundText = rctLeavelList.Fields("Depart_Id")
        Else
            dcbDepartID.Text = Empty
        End If
           dcbLeavelStatus.BoundText = rctLeavelList.Fields("LS_ID")
           dcbLeavelType.BoundText = rctLeavelList.Fields("Leavel_ID")
        If rctLeavelList.Fields("Leavel_days") <> Empty Then
            txtLeavel_days.Text = rctLeavelList.Fields("Leavel_days")
        Else
            txtLeavel_days.Text = Empty
        End If
        If rctLeavelList.Fields("Leavel_matter") <> Empty Then
            txtLeavel_matter.Text = rctLeavelList.Fields("Leavel_matter")
        Else
            txtLeavel_matter.Text = Empty
        End If
        If rctLeavelList.Fields("Examine_opinion") <> Empty Then
            txtExamine_opinion.Text = rctLeavelList.Fields("Examine_opinion")
        Else
            txtExamine_opinion.Text = Empty
        End If
        If rctLeavelList.Fields("Examine_person") <> Empty Then
            txtExamine_person.Text = rctLeavelList.Fields("Examine_person")
        Else
            txtExamine_person.Text = Empty
        End If
        vtempdata = rctLeavelList.Fields("Leavel_start_time")
        If vtempdata <> Empty Then
           mskLeavel_start_time.Text = Format(vtempdata, "yyyy-mm-dd")
        Else
           mskLeavel_start_time.Text = "    -  -  "
        End If
        vtempdata = rctLeavelList.Fields("Leavel_end_time")
        If vtempdata <> Empty Then
           MaskLeavel_end_time.Text = Format(vtempdata, "yyyy-mm-dd")
        Else
            MaskLeavel_end_time.Text = "    -  -  "
        End If
    End If
Else
    Call DetialClear
End If
End Sub

文章來(lái)源地址http://www.zghlxwxcb.cn/news/detail-440245.html

到了這里，關(guān)于基于VB的員工請(qǐng)假管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！