人事管理系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上第一章 緒論隨著計算機(jī)的日益普及和網(wǎng)絡(luò)的發(fā)展,數(shù)據(jù)庫的應(yīng)用范圍越來越廣,數(shù)據(jù)庫應(yīng)用的功能也越來越強(qiáng),因此編寫管理信息系統(tǒng)應(yīng)用程序也顯得尤為重要,在強(qiáng)調(diào)管理,強(qiáng)調(diào)信息的現(xiàn)代社會中它變得越來越普及。人事管理是任何企事業(yè)單位都需要進(jìn)行的一項工作,因此,開發(fā)制作人事管理系統(tǒng)具有較大的社會現(xiàn)實意義,同時人事管理系統(tǒng)是一切應(yīng)用系統(tǒng)的典范,它具有一切應(yīng)用系統(tǒng)的特征,系統(tǒng)結(jié)構(gòu)與現(xiàn)實生活緊密結(jié)合,具體直觀,具有典范的數(shù)據(jù)庫系統(tǒng)的特性。人事管理系統(tǒng)主要用于企業(yè)內(nèi)部員工的檔案、工資、考勤、評價的管理,便于公司領(lǐng)導(dǎo)掌握人員的動向,及時調(diào)整人才的分配,同時也減少了手工操作帶來的一些繁瑣與不便,

2、使員工情況的記錄和統(tǒng)計變得十分簡單.這些優(yōu)點可以極大的提高企業(yè)對人事管理的效率.因此,人事管理系統(tǒng)是企事業(yè)信息化、智能化、科學(xué)化和正規(guī)化不可缺少的管理軟件。本系統(tǒng)開發(fā)的目的一方面從提高人事管理工作的效率出發(fā)，擺脫過去由人用紙和筆進(jìn)行的費時費力的繁重工作，即利用成熟的計算機(jī)系統(tǒng)來實現(xiàn)商品管理工作的自動化。本系統(tǒng)根據(jù)企業(yè)管理的一些實際情況而編制的一套自動化的人事管理系統(tǒng)。人事管理系統(tǒng)針對企業(yè)員工信息的處理工作采用計算機(jī)進(jìn)行全面的現(xiàn)代化管理,主要包括:.員工基本信息的管理.員工評價的管理.員工考勤信息的管理.員工工資的管理.企業(yè)內(nèi)部人事變動的管理.企業(yè)部門管理用戶通過輸入員工的基本信息、考勤信息等,

3、由系統(tǒng)自動生成相應(yīng)的統(tǒng)計數(shù)據(jù)及工資統(tǒng)計報表以供用戶查詢、打印,另外用戶還可以對這些基本信息進(jìn)行定期的更新與刪除工作,人事管理系統(tǒng)力求以方便快捷的途徑去管理手工操作的每繁瑣數(shù)據(jù)。人事管理系統(tǒng)的數(shù)據(jù)要求具有一定的保密性禁止非法用戶使用。在用戶使用過程中對用戶的權(quán)限具有一定的限制,防止個別用戶對員工信息做出修改、刪除等操作。本文首先介紹了人事管理系統(tǒng)所涉及工具和一些相關(guān)的理論知識，并注重介紹了企業(yè)管理系統(tǒng)和數(shù)據(jù)庫,其中包括對Visual Basic 6.0 和SQL SERVER 2000的使用和特點進(jìn)行了介紹，然后對所做系統(tǒng)進(jìn)行總體設(shè)計，數(shù)據(jù)庫的設(shè)計和詳細(xì)設(shè)計，從這三個方面詳細(xì)闡明系統(tǒng)的設(shè)計過程，

4、最后，在編程實現(xiàn)的過程中，介紹本人使用Visual Basic 6.0對數(shù)據(jù)庫基應(yīng)用程序進(jìn)行設(shè)計、開發(fā)與實現(xiàn)的思路、算法、并得出結(jié)論。第二章 需求分析21 系統(tǒng)需求分析系統(tǒng)分析是開發(fā)管理信息系統(tǒng)的關(guān)鍵性階段，是一個從不斷認(rèn)識和逐步細(xì)化的過程，是下一階段的工作基礎(chǔ)，是為下一階段進(jìn)行物理方案設(shè)計、解決“怎么做”提供依據(jù)，基關(guān)鍵性主要體現(xiàn)在“理解需求”和“表達(dá)需求”兩方面。通過對現(xiàn)行系統(tǒng)的詳細(xì)調(diào)研，主要是從系統(tǒng)的角度理解用戶的需要，確定新系統(tǒng)的綜合要求，并提出這些需求的實現(xiàn)條件以及需求應(yīng)達(dá)到的標(biāo)準(zhǔn)，也就是確定新系統(tǒng)要做什么，做到什么程度。這些需求包括：（1）功能需求。確定新系統(tǒng)應(yīng)做什么，這是最主要的

5、需求。（2）性能需求。給出所開發(fā)的新系統(tǒng)的技術(shù)性能指標(biāo)，包括存儲容量限制、運(yùn)行時間限制、安全保密性等。（3）環(huán)境需求。這是對系統(tǒng)運(yùn)行以及所處環(huán)境的要求。例如，在硬件方面采用什么機(jī)型、有什么硬件設(shè)備等；在軟件方面，采用什么支持系統(tǒng)運(yùn)行的系統(tǒng)軟件（指操作系統(tǒng)、數(shù)據(jù)庫管理系統(tǒng)）。（4）未來需求。這類要求是指目前不屬于系統(tǒng)開發(fā)的范圍，但將來隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會提出的要求。了解這類要求的目的是在開發(fā)過程中，可對系統(tǒng)將來可能的擴(kuò)展與修改做準(zhǔn)備。一旦需要時，就比較容易進(jìn)行補(bǔ)充和修改了。（都是理論知識，沒有關(guān)聯(lián)上你所作的系統(tǒng)。所以建議上面的段落刪除，改成功能模塊分析）22 數(shù)據(jù)流程圖數(shù)據(jù)流程

6、圖是系統(tǒng)結(jié)構(gòu)化分析行之有效的工具，它抽象地描述了系統(tǒng)數(shù)據(jù)處理的情況，但卻無法表達(dá)各個處理的詳細(xì)內(nèi)容，因此還要對數(shù)據(jù)流程圖中出現(xiàn)的數(shù)據(jù)流和處理等做進(jìn)一步的補(bǔ)充說明，這就是數(shù)據(jù)字典和變換邏輯說明。在人事管理系統(tǒng)中，包括部門設(shè)置、員工信息、人員調(diào)動和福利信息4個功能模塊。部門設(shè)置主要是對該單位的部門進(jìn)行管理，如增刪部門信息。員工信息功能模塊主要是對該單位員工的基本信息進(jìn)行管理，并能夠?qū)T工的基本信息進(jìn)行查詢，以便于修改和刪除。人員調(diào)動模塊主要是實現(xiàn)本單位人事調(diào)動的管理，該模塊設(shè)置了員工的基本信息表，操作人員能夠從該表中直接獲得員工的基本信息，再進(jìn)行人員調(diào)動操作，同時也保存了人員調(diào)動的歷史信息。福利信

7、息模塊主要是對本單位員工的福利信息進(jìn)行管理。 人事管理系統(tǒng)需求框圖 （你這不是系統(tǒng)需求框圖只是一個簡單的系統(tǒng)結(jié)構(gòu)框圖） 人事管理系統(tǒng)中的基本信息包括部門信息、員工信息、人員調(diào)動和福利信息。（1） 部門信息。部門信息功能模塊包括新增部門和刪除部門。在刪除部門時，會對該部門是否有員工進(jìn)行檢查，如果有員工則系統(tǒng)要求刪除完員工信息后再進(jìn)行部門的刪除。該功能模塊是整個系統(tǒng)的開始。只有設(shè)置好了部門的基本信息才能進(jìn)行后續(xù)功能的實現(xiàn)。（2） 員工信息。員工信息功能模塊包括新增員工、刪除員工、修改員工和查詢員工基本信息。該功能模塊主要是對系統(tǒng)的初始化和對員工的基本信息進(jìn)行管理和維護(hù)?？紤]到該單位人員較多，設(shè)置了

8、員工基本信息查詢，操作人員可以按本員工編號、姓名或部門進(jìn)行查詢，對查詢結(jié)果進(jìn)行維護(hù)，減少了操作人員的工作難度。（3）人員調(diào)動功能。人員調(diào)度功能模塊包括員工基本信息查詢、歷史題動心和人員調(diào)動3部分組成，員工基本信息查詢是為了方便人員調(diào)動，操作人員在進(jìn)行人員調(diào)動時可以單機(jī)查詢到的人員信息直接進(jìn)行部門的調(diào)動。歷史調(diào)動信息用于保存每一次人員調(diào)動的操作一遍以后查詢?nèi)藛T調(diào)動信。（2） 福利信息功能。按照單位的需求設(shè)置了此項功能，該功能模塊主要是對本單位員工的福利信息進(jìn)行。2.2.2 系統(tǒng)管理子系統(tǒng)流程圖：用戶表是否登錄成功登錄信息用戶登錄圖2-1 系統(tǒng)管理子系統(tǒng)的數(shù)據(jù)流程圖（1、你的系統(tǒng)那么多功能模塊，為

9、什么只有一個功能模塊數(shù)據(jù)流程圖2、無系統(tǒng)頂層流程圖。）2.3數(shù)據(jù)字典數(shù)據(jù)字典（DD：Data Directory）描述各數(shù)據(jù)（包括文字型數(shù)據(jù)）的類型和長度等屬性以及它們在數(shù)據(jù)庫中的組成結(jié)構(gòu)。在類系型數(shù)據(jù)庫中，數(shù)據(jù)以基表、記錄、字段來組織（基表由記錄組成，記錄由字段組成）。數(shù)據(jù)字典是關(guān)于數(shù)據(jù)的數(shù)據(jù)表和視圖，系統(tǒng)管理員可以通過數(shù)據(jù)字典獲取全面的數(shù)據(jù)庫信息，根據(jù)上述分析，本系統(tǒng)的數(shù)據(jù)字典設(shè)計如下：（1）系統(tǒng)用戶管理數(shù)據(jù)：管理數(shù)據(jù)包括用戶名、密碼、權(quán)限和數(shù)據(jù)庫處理，其中用戶名分為系統(tǒng)管理員和用戶，登錄系統(tǒng)后按各自的權(quán)限不同有不同的管理部分。（2）題庫表數(shù)據(jù)：此數(shù)據(jù)表只能系統(tǒng)管理員使用，實現(xiàn)題庫的編輯（

10、錄入，添加愛和修改）和查詢。與你的系統(tǒng)無關(guān)。建議以表格的形式描述數(shù)據(jù)字典第三章、概念結(jié)構(gòu)設(shè)計3.1.功能描述:該信息管理系統(tǒng)可以在Windows 2000 Server平臺上運(yùn)行，開發(fā)工具采用Visual Basic語言開發(fā)。其工作流程為：用戶登錄通過權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。3.1.1登錄模塊：（你的登錄模塊的界面要有）（這塊應(yīng)該放在詳細(xì)設(shè)計而不是概念結(jié)構(gòu)設(shè)計里）(1)系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問之前，要對進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶

11、在輸入正確的密碼后方可進(jìn)入系統(tǒng)。(2)主界面在該界面窗口中，共有文件、數(shù)據(jù)、關(guān)于等所有系統(tǒng)功能，用戶可以操作菜單的方式快捷地使用系統(tǒng)。(3)更改密碼：使用本表單可以方便地修改用戶的密碼，以防密碼泄露后對數(shù)據(jù)的安全性造成威脅。系統(tǒng)操作流程圖：錯誤信息系統(tǒng)主界面系統(tǒng)登錄界面系統(tǒng)管理輸入操作員及密碼數(shù)據(jù)庫檢查密碼錯誤密碼正確功能界面功能處理先有登錄界面。核對身份才能進(jìn)主界面?。∨袛嗫蛐枰昧庑伪硎緦ν淖?，錯往哪走圖 3-1系統(tǒng)操作流程圖3.1.2 部門信息模塊ER圖（不要單獨把它作為一小節(jié)。就是1、2、3、按照這分類。另每幅圖旁邊需要文字說明）每幅圖都要有圖號和圖名例如：上圖可以表示為圖3-1 部

12、門實體聯(lián)系圖后面類似問題3.1.3 員工信息模塊ER圖3.1.4 人員調(diào)動模塊ER圖3.1.5 福利信息模塊ER圖第四章、邏輯結(jié)構(gòu)設(shè)計5.1 數(shù)據(jù)庫設(shè)計（1） 部門信息表。公司部門表用來放置公司部門信息，該表包含了部門編號和部門信息。該表的字段設(shè)計如表5-1所示。（表同樣要表明表名和表號。后面同理）字段名稱說明數(shù)據(jù)類型備注Depart_id部門編號char主鍵Depart_name部門名稱char(2) 員工信息表。公司員工表用來放置員工信息，該表包含了員工編號、員工姓名、部門編號、性別、出生日期、家庭住址、聯(lián)系電話、籍貫等。該表的字段設(shè)計如表所示。字段名稱說明數(shù)據(jù)類型備注Staff_id員工

13、編號charStaff_name員工姓名charStaff_depid部門編號charStaff_sex性別charStaff_birthday出生日期datetimeStaff_addr家庭住址charStaff_tel聯(lián)系電話varcharStaff_birthplace籍貫charStaff_degree學(xué)歷charStaff_major專業(yè)charStaff_incomptime工作日期datetimeStaff_bwage基本工資moneyStaff_position工作職位charStaff_idcard身份證char（3） 人員調(diào)動表。人員調(diào)用表用于放置人員在公司調(diào)動崗位的信息，

14、該表包含了人事編號、人事姓名、新部門、原部門、變更日期、變更原因。該表的字段設(shè)計如表所示。字段名稱說明數(shù)據(jù)類型備注Transfer_id人事編號inStaff_name人事姓名charNewdepart_name新部門charDepart_name原部門charTransfer_time變更日期datetimeTransfer_reason變更原因char(4) 員工福利表。員工福利表用來放置員工的福利信息，該表包含員工編號、養(yǎng)老保險、醫(yī)療保險、住房補(bǔ)貼。該表的字段設(shè)計如表所示。字段名稱說明數(shù)據(jù)類型備注Staff_id員工編號charWelfare_pension養(yǎng)老保險moneyWelfar

15、e_medical醫(yī)療保險moneyWelfare_house住房補(bǔ)貼moneyWelfare_others其他money第五章、詳細(xì)設(shè)計5.1 登錄模塊的設(shè)計登錄模塊主要是認(rèn)證登錄人的身份是否合法，登錄權(quán)限也要進(jìn)行認(rèn)證。當(dāng)用戶名用戶密碼錯誤時會進(jìn)行報錯，當(dāng)用戶身份合法后會進(jìn)行權(quán)限檢查，根據(jù)權(quán)限開放或者限制其能使用的功能。根據(jù)登錄模塊主要功能，可得流程圖：每幅圖都要有圖號和圖名Y開 始輸入用戶名和密碼判斷用戶名是否存在判斷密碼正確否登錄主界面結(jié) 束NY YN圖5-2 登錄流程圖登錄界面5.2部門管理模塊部門管理窗體是對該單位的部門進(jìn)行管理，在該界面中主要是對單位部門信息進(jìn)行管理，添加或刪除部門

16、信息。5.3員工信息模塊人員信息設(shè)置窗體主要用來記錄作為員工本人的一些基本情況和其他相關(guān)的情況，并設(shè)置對員工信息進(jìn)行管理的按鈕。在員工信息設(shè)置窗體中單擊“添加”或者“編輯”按鈕，將彈出如圖所示的員工信息表窗體，在該窗口中可以添加或者編輯員工信息。 員工信息表窗體 5.3.1 窗體界面設(shè)計 Frmstaff窗體上的主要組件及其屬性如表所示。組件名稱屬性FormfrmstaffCaption屬性為“form”datagriddatagrid數(shù)據(jù)綁定控件AdobcRsstaff_adodccommandbuttoncmdaddtext屬性為“添加”commandbuttoncmddeltext屬性為

17、“刪除”commandbuttoncmdedittext屬性為“編輯”commandbuttoncmdquerytext屬性為“查詢”commandbuttoncmdexittext屬性為“退出”optionOption1Caption屬性為“員工編號”textboxtxtqueryidoptionOption2Caption屬性為“員工姓名”textboxtxtquerynameoptionOption3Caption屬性為“部門名稱”comboboxcomquerydeptcommandbuttonCommand(1)執(zhí)行查詢commandbuttonCommand(2)返回 員工信息表窗

18、體界面5.3.2 窗體功能實現(xiàn)（1）在該窗體中可以查看公司員工的詳細(xì)個人信息。（2）單擊“添加”按鈕彈出“員工信息表”窗口，在其中可以添加員工信息。（3）單擊“刪除”按鈕刪除員工信息。（4）只需選中某條記錄，然后單擊“修改”按鈕，可以對選中的員工信息進(jìn)行編輯，增加員工和修改員工使用的是同一個窗體。（5）單擊“查找”按鈕可以在設(shè)置員工信息時方便地使用查詢操作，查詢員工信息窗口如圖所示。（6）單擊“退出”按鈕將退出該系統(tǒng)。5.4 人事調(diào)動設(shè)置窗體在本模塊中可完成人員在各個部門間的調(diào)動、查看人員的調(diào)動歷史情況和對調(diào)動歷史數(shù)據(jù)進(jìn)行維護(hù)和處理?？紤]到單位的員工較多，為了更快的得到員工信息，方便進(jìn)行員工調(diào)

19、動，在該窗口中創(chuàng)建了一個查詢框，可以實現(xiàn)員工基本信息的查詢功能。5.4.1窗體界面設(shè)計frmTransfer窗體上的主要組件及其屬性如表所示組件名稱屬性FormFrmtransferCaption屬性為“form”SstabSstab1Caption屬性為“員工基本信息”和“歷史調(diào)動信息”DatagridDatagrid1數(shù)據(jù)網(wǎng)絡(luò)，放置員工基本信息LabelLabel(0)Caption屬性為“人事編號”TextboxTxttransidLabelLabel(1)Caption屬性為“員工姓名”TextboxTxtnamelabelLabel(2)Caption屬性為“原部門”TextboxT

20、xtolddeptLabelLabel(3)Caption屬性為“新部門”ComboboxComnewdeptLabelLabel(4)Caption屬性為“變更日期”ComboboxDttransdataLabelLabel(5)Caption屬性為“變更原因”TextboxTxttransreasoncommandbuttonCommand1(0)Caption屬性為“執(zhí)行查詢”commandbuttonCommand1(1)Caption屬性為“執(zhí)行查詢”commandbuttonCommand1(2)Caption屬性為“返回”commandbuttonCmdok“確定”按鈕comma

21、ndbuttoncmdcancel“取消”按鈕Datagrid2Datagrid2數(shù)據(jù)網(wǎng)絡(luò)，放置歷史調(diào)動信息 人事調(diào)動界面5.4.2 窗體功能實現(xiàn)（1） 單擊“執(zhí)行查詢”按鈕將出現(xiàn)查詢窗口，在其中可以根據(jù)“員工編號”、“員工姓名”或“部門名稱來查詢員工信息”（2） 在窗體的下方選擇新部門以及輸入變更原因后，單擊“確定”按鈕，將執(zhí)行人事調(diào)用操作。（3） 單擊“歷史調(diào)動信息”選項卡，在其中可以查看員工的歷史調(diào)動信息5.5福利信息模塊在福利信息中包含為員工繳納的各種社會保險信息。本模塊用來管理員工福利信息管理員可以產(chǎn)看員工福利信息，并對員工福利信息進(jìn)行添加、刪除和修改等常規(guī)數(shù)據(jù)庫操作。 福利信息窗體

22、5.6 公共模塊。（1）聲明公共變量。下列代碼中聲明公共變量，用來放置用戶在程序中要使用到的數(shù)據(jù)庫變量。Public rsPsw As New ADODB.RecordsetPublic rsdel As New ADODB.RecordsetPublic rsStaff As New ADODB.RecordsetPublic rsDept As New ADODB.RecordsetPublic rsTrans As New ADODB.RecordsetPublic isedit As Boolean '是否用于編輯Public cn As New ADODB.Connectio

23、n '數(shù)據(jù)源（2） 創(chuàng)建condatabase（）。下列代碼用于創(chuàng)建condatabase（）函數(shù)。從效率上考慮，建立與數(shù)據(jù)庫的連接時一個比較費時的操作，因此，數(shù)據(jù)庫連接設(shè)計為整個模塊公用，創(chuàng)建condatabase（）函數(shù)，在程序啟動時創(chuàng)建與數(shù)據(jù)庫的連接。Public Sub condatabase() '創(chuàng)建連接到feiyong數(shù)據(jù)庫的記錄源 '連接本地數(shù)據(jù)庫busywxpSet cn = New ADODB.Connectioncn.Open "Driver=SQL Server;Server=busywxp;Uid=SA;Pwd=;Database=w

24、age"End Sub（3） 創(chuàng)建check_condatabase（）函數(shù)。 在代碼中創(chuàng)建check_condatabase（）函數(shù)，假如數(shù)據(jù)庫連接狀態(tài)為1，調(diào)用check_condatabase（）函數(shù)，連接數(shù)據(jù)庫。Public Sub check_condatabase()If cn.State = 1 ThenElse Call condatabaseEnd IfEnd Sub（4） 創(chuàng)建close_condatabase（）函數(shù)。 在代碼中創(chuàng)建close_condatabase（）函數(shù)，在關(guān)閉程序時，需要關(guān)閉這個數(shù)據(jù)庫連接，創(chuàng)建close_condatabase（）函數(shù)用來

25、關(guān)閉數(shù)據(jù)庫連接。Public Sub close_condatabase() '關(guān)閉數(shù)據(jù)源If cn.State = 1 Then cn.CloseEnd IfEnd Sub （5）創(chuàng)建Adodc()。 代碼采用現(xiàn)在最為流行的ADO來進(jìn)行數(shù)據(jù)庫的連接與操作。Public Function Adodc(conString As String, adodc_name As Adodc, grid As DataGrid)Dim cnStr As StringcnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User

26、ID=sa;Initial Catalog=Wage;Data Source=busywxp"With adodc_name .ConnectionString = cnStr .CommandType = adCmdText .RecordSource = conString Set grid.DataSource = adodc_name .RefreshEnd WithEnd Function第六章、總結(jié)畢業(yè)的時間一天一天的臨近，畢業(yè)設(shè)計也接近了尾聲。在不斷的努力下我的畢業(yè)設(shè)計終于完成了。在沒有做畢業(yè)設(shè)計以前覺得畢業(yè)設(shè)計只是對這幾年來所學(xué)知識的大概總結(jié)，但是真的面對畢業(yè)設(shè)計時發(fā)

27、現(xiàn)自己的想法基本是錯誤的。畢業(yè)設(shè)計不僅是對前面所學(xué)知識的一種檢驗，而且也是對自己能力的一種提高。通過這次畢業(yè)設(shè)計使我明白了自己原來知識太理論化了，面對單獨的課題的是感覺很茫然。自己要學(xué)習(xí)的東西還太多，以前老是覺得自己什么東西都會，什么東西都懂，有點眼高手低。通過這次畢業(yè)設(shè)計，我才明白學(xué)習(xí)是一個長期積累的過程，在以后的工作、生活中都應(yīng)該不斷的學(xué)習(xí)，努力提高自己知識和綜合素質(zhì)。通過此次畢業(yè)設(shè)計，我不僅把知識融會貫通，而且豐富了大腦，同時在查找資料的過程中也了解了許多課外知識，開拓了視野，認(rèn)識了將來電子的發(fā)展方向，使自己在專業(yè)知識方面和動手能力方面有了質(zhì)的飛躍。畢業(yè)設(shè)計是我作為一名學(xué)生即將完成學(xué)業(yè)的

28、最后一次作業(yè)，他既是對學(xué)校所學(xué)知識的全面總結(jié)和綜合應(yīng)用，又為今后走向社會的實際操作應(yīng)用鑄就了一個良好開端，畢業(yè)設(shè)計是我對所學(xué)知識理論的檢驗與總結(jié)，能夠培養(yǎng)和提高設(shè)計者獨立分析和解決問題的能力；是我在校期間向?qū)W校所交的最后一份綜和性作業(yè)。 總之，不管學(xué)會的還是學(xué)不會的的確覺得困難比較多，真是萬事開頭難，不知道如何入手。最后終于做完了有種如釋重負(fù)的感覺。此外，還得出一個結(jié)論：知識必須通過應(yīng)用才能實現(xiàn)其價值！有些東西以為學(xué)會了，但真正到用的時候才發(fā)現(xiàn)是兩回事，所以我認(rèn)為只有到真正會用的時候才是真的學(xué)會了。 在此要感謝我們的指導(dǎo)老師對我悉心的指導(dǎo)，感謝老師給我的幫助。在設(shè)計過程中，我通過查閱大量有關(guān)資

29、料，與同學(xué)交流經(jīng)驗和自學(xué)，并向老師請教等方式，使自己學(xué)到了不少知識，也經(jīng)歷了不少艱辛，但收獲同樣巨大。在整個設(shè)計中我懂得了許多東西，也培養(yǎng)了我獨立工作的能力，樹立了對自己工作能力的信心，相信會對今后的學(xué)習(xí)工作生活有非常重要的影響。而且大大提高了動手的能力，使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時的喜悅。雖然這個設(shè)計做的也不太好，但是在設(shè)計過程中所學(xué)到的東西是這次畢業(yè)設(shè)計的最大收獲和財富，使我終身受益。致謝 經(jīng)過四個多月的構(gòu)思與設(shè)計，在指導(dǎo)老師的精心指導(dǎo)和安排下，本系統(tǒng)已經(jīng)設(shè)計完畢。其使用功能基本符合需要，具有一定的實用性。但是由于時間比較倉促，加上本人軟件設(shè)計經(jīng)驗的不足。因此，在分析問題

30、、解決問題時顯得不夠嚴(yán)密、完善，還需要在以后的工作中不斷地改進(jìn)和完善。在這次的畢業(yè)設(shè)計中，讓我深深地體現(xiàn)到進(jìn)行軟件開發(fā)不是一件簡單的事情，它需要設(shè)計者具有全面的專業(yè)知識、縝密的思維、嚴(yán)謹(jǐn)?shù)墓ぷ鲬B(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。最后，我要衷心感謝老師在我的設(shè)計過程中給予我的極大幫助，使我能夠及時、順利地完成此次的畢業(yè)設(shè)計。同時，也要感謝我的老師和同學(xué)們在本系統(tǒng)的設(shè)計過程中給予我的支持和幫助。參考文獻(xiàn) 參考文獻(xiàn)的格式不正確請參考：6覃征等. 數(shù)字圖像融合. 西安交通大學(xué)出版社, 20047鐘力，胡曉峰重疊圖像拼接算法J中國圖像圖形學(xué)報，1998，3(5)注意逗號和句號

31、的使用1 Visual Basic 6.0 程序設(shè)計教程(高等教育出版社) 龔沛曾 陸慰民 楊志強(qiáng) 編著2 MSDN - Microstft Developers'NetWork Microstft 1998 Microstft 編著3Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實例導(dǎo)航（人民郵電出版社） 劉萌 周學(xué)明 郭安源 編著4Visual Basic 程序設(shè)計教程(北方交通大學(xué)出版社) 李振亭 編著 5Visual Basic 用戶編程手冊（人民郵電出版社） 林永 張樂強(qiáng) 編著6數(shù)據(jù)庫系統(tǒng)概論（高等教育出版社） 薩師煊 王珊 編著7現(xiàn)代軟件工程（北京希望電子出版社） 孫涌 編著8

32、Visual Basic數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航（人民郵電出版社）9VB控件應(yīng)用編程實例教程（北京希望電子出版社） 張學(xué)忠 王福成 編著10Office 2000中文版（清華大學(xué)出版社） 東方人華 編著11VB數(shù)據(jù)庫程序設(shè)計高手（科學(xué)出版社） 溫賢發(fā) 編著12軟件需求（電子工業(yè)出版社） Soren Lauesen 編著 劉曉暉 譯13VB6.0中文版教程（電子工作出版社） 新智工作室 14.羅運(yùn)摸. 完全掌握SQL server2000.北京:機(jī)械工業(yè)出版社,2001.6 15.Delphi7程序設(shè)計與開發(fā)技術(shù)大全.北京：人民郵電出版社，2006.316.Delphi7完美經(jīng)典.北京：中國鐵道出

33、版社，2003.717.羅運(yùn)摸. 完全掌握SQL server2000.北京:機(jī)械工業(yè)出版社,2001.618.趙增敏. SQL Server 7.0 實用教程.北京:電子工業(yè)出版社,2001.419.Marco Cantù. Mastering Borland Delphi 2005. USA:SYBEX20.Marco Cantù. Mastering Delphi 7. USA:SYBEX21.MICHAEL OTEY. Microsoft SQL Server 2005 New Features.22.潘孝銘，辛明海 軟件文檔編寫，2004，高等教育出版社附錄員工信

34、息窗體代碼編寫（1） cmdadd按鈕件響應(yīng)事件。此代碼的作用是單擊“添加”按鈕，彈出“員工信息表”窗口。 Cmdadd按鈕控件響應(yīng)事件代碼Private Sub cmdadd_Click()frmStaffEdit.Show vbModalisedit = FalseEnd Sub（2） cmddel按鈕控件響應(yīng)事件。代碼的作用是單擊“刪除”按鈕，彈出是否刪除警告提示框，如果選擇“是”，將刪除指定員工的信息。 Cmddel按鈕控件響應(yīng)事件代碼Private Sub cmddel_Click()If rsStaff_Adodc.Recordset.BOF <> True Then

35、Dim Msg As String Msg = "是否刪除 " Msg = Msg & Trim(rsStaff_Adodc.Recordset.Fields(1) & " 這條紀(jì)錄!" If rsStaff_Adodc.Recordset.RecordCount <> 0 Then t = MsgBox(Msg, vbOKCancel + vbExclamation, "注意了：）") If t = 1 Then rsStaff_Adodc.Recordset.Delete Else Exit Sub E

36、nd If Else MsgBox "當(dāng)前無記錄可供刪除！", vbOKOnly + vbExclamation, "注意了：）" End IfElse MsgBox "當(dāng)前無記錄可供刪除！", vbOKOnly + vbExclamation, "注意了：）"End IfEnd Sub（3） cmdedit按鈕控件響應(yīng)事件。代碼的作用是單擊“編輯”按鈕，獲取選中的員工信息，彈出“員工信息”表，在“員工信息”表中可以編輯員工信息。 Cmdedit按鈕控件響應(yīng)事件代碼Private Sub cmdedit_Click

37、()isedit = TrueCall loadTextfrmStaffEdit.Show vbModalEnd Sub（4）cmdexit按鈕控件的響應(yīng)事件。代碼的作用是單擊“退出”按鈕，將退出員工信息窗口。 Cmdexit按鈕控件的響應(yīng)事件Private Sub cmdexit_Click()Unload MeEnd Sub（5）cmdquery下拉列表框的響應(yīng)事件。代碼的作用是在下拉列表框中裝載數(shù)據(jù)庫中部門名稱信息。Cmdquery下拉列表框的響應(yīng)事件Private Sub cmdquery_Click()Picture1.Visible = TrueCall check_condata

38、baseIf rsDept.State = 1 Then rsDept.Close'獲得部門的名稱rsDept.Open "select depart_name from depart", cn, adOpenStatic, adLockOptimisticIf rsDept.BOF <> True And rsDept.EOF <> True ThencomQueryDept.Clear Do Until rsDept.EOF comQueryDept.AddItem rsDept.Fields(0) rsDept.MoveNext Loo

39、pEnd IfEnd Sub（6）創(chuàng)建loadtext()函數(shù)。代碼用于創(chuàng)建loadText()函數(shù)，其作用是從數(shù)據(jù)庫中獲得相應(yīng)的數(shù)據(jù)記錄，并顯示在文本框中。 創(chuàng)建loadText()函數(shù) 代碼Private Sub loadText()Call check_condatabaseSet rsDept = New ADODB.RecordsetIf rsDept.State = 1 Then rsDept.Close'獲得部門的名稱rsDept.Open "select depart_name from depart where depart_id='" &

40、amp; rsStaff_Adodc.Recordset.Fields(2) & "' ", cn, adOpenStatic, adLockOptimisticWith frmStaffEdit .txtId.Text = rsStaff_Adodc.Recordset.Fields(0) .txtName.Text = rsStaff_Adodc.Recordset.Fields(1) .comDept.Text = Trim(rsDept.Fields(0).Value) .comSex.Text = rsStaff_Adodc.Recordset.F

41、ields(3) .dtBirthday.Value = rsStaff_Adodc.Recordset.Fields(4) .txtAddr.Text = rsStaff_Adodc.Recordset.Fields(5) .txtTel.Text = rsStaff_Adodc.Recordset.Fields(6) .txtBirthplace.Text = rsStaff_Adodc.Recordset.Fields(7) .comDegree.Text = rsStaff_Adodc.Recordset.Fields(8) .txtMajor.Text = rsStaff_Adodc

42、.Recordset.Fields(9) .dtIncomptime.Value = rsStaff_Adodc.Recordset.Fields(10) .txtBwage.Text = rsStaff_Adodc.Recordset.Fields(11) .txtPosition.Text = rsStaff_Adodc.Recordset.Fields(12) .txtIdcard.Text = rsStaff_Adodc.Recordset.Fields(13) End WithEnd Sub（7）創(chuàng)建Adodc()函數(shù)。代碼用于創(chuàng)建Adodc()函數(shù)來連接數(shù)據(jù)庫。 創(chuàng)建Adodc()

43、函數(shù) 代碼Public Function Adodc(conString As String, adodc_name As Adodc, grid As DataGrid)Dim cnStr As StringcnStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Wage;Data Source=busywxp"With adodc_name .ConnectionString = cnStr .CommandType = adCmdText .RecordSo

44、urce = conString Set grid.DataSource = adodc_name .Refresh End WithEnd Function（8）員工信息設(shè)置窗體裝載事件。代碼的作用是當(dāng)用戶打開該窗體時，在窗體中顯示全部數(shù)據(jù)信息。 員工信息設(shè)置窗體裝載事件代碼如下：Private Sub Form_Load()Dim strstaff As Stringstrstaff = "select staff_id as 員工編號,staff_name as 員工姓名," & _ "staff_depid as 部門編號,staff_sex as

45、 性別,staff_birthday as" & _ " 出生日期,staff_addr as 家庭住址,staff_tel as 聯(lián)系電話," & _ "staff_birthplace as 籍貫,staff_degree as 學(xué)歷,staff_major as 專業(yè)," & _ "staff_incomptime as 工作日期,staff_bwage as 基本工資,staff_position as 工作職位," & _ "staff_idcard as 身份證 from

46、 staff"Call Adodc(strstaff, rsStaff_Adodc, DataGrid1)End Sub（9）command1(1)-“執(zhí)行查詢”按鈕和command1(2)-“返回”按鈕代碼相同，“執(zhí)行查詢”按鈕的cancel屬性為false，“返回”按鈕的cencel屬性為true. 此兩個按鈕的代碼為：Private Sub Command1_Click(Index As Integer)On Error GoTo errDim strstaff As StringSelect Case Index Case 0 If Option1.Value = True

47、Then If txtQueryId <> "" Then strstaff = "select staff_id as 員工編號,staff_name as 員工姓名," & _ "staff_depid as 部門編號,staff_sex as 性別,staff_birthday as" & _ " 出生日期,staff_addr as 家庭住址,staff_tel as 聯(lián)系電話," & _ "staff_birthplace as 籍貫,staff_degree

48、 as 學(xué)歷,staff_major as 專業(yè)," & _ "staff_incomptime as 工作日期,staff_bwage as 基本工資,staff_position as 工作職位," & _ "staff_idcard as 身份證 from staff where staff_id='" & txtQueryId.Text & "'" Call Adodc(strstaff, rsStaff_Adodc, DataGrid1) Else MsgBox &q

49、uot;請輸入要查詢的員工編號！", vbInformation + vbOKOnly, "注意" End If End If If Option2.Value = True Then If txtQueryName <> "" Then strstaff = "select staff_id as 員工編號,staff_name as 員工姓名," & _ "staff_depid as 部門編號,staff_sex as 性別,staff_birthday as" & _

50、" 出生日期,staff_addr as 家庭住址,staff_tel as 聯(lián)系電話," & _ "staff_birthplace as 籍貫,staff_degree as 學(xué)歷,staff_major as 專業(yè)," & _ "staff_incomptime as 工作日期,staff_bwage as 基本工資,staff_position as 工作職位," & _ "staff_idcard as 身份證 from staff where staff_name='"

51、& txtQueryName.Text & "'" Call Adodc(strstaff, rsStaff_Adodc, DataGrid1) Else MsgBox "請輸入要查詢的員工姓名！", vbInformation + vbOKOnly, "注意" End If End If If Option3.Value = True Then If comQueryDept <> "" Then Call check_condatabase If rsDept.State =

52、 1 Then rsDept.Close '獲得部門的編號 rsDept.Open "select depart_id from depart where depart_name='" & comQueryDept.Text & "' ", cn, adOpenStatic, adLockOptimistic strstaff = "select staff_id as 員工編號,staff_name as 員工姓名," & _ "staff_depid as 部門編號,staff_sex as 性別,staff_birthday as" & _ " 出生日期,staff_addr as 家庭住址,staff_tel as 聯(lián)系電話," & _