管理信息系統(tǒng)課程設(shè)計(jì)---企業(yè)人事管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：25 大?。?79.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩24頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶(hù)提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　目錄　　1.項(xiàng)目開(kāi)發(fā)的背景…………………………………………2　　2.可行性分析………………………………………………2　　3.企業(yè)人事管理系統(tǒng)分析………………………………3　　4.數(shù)據(jù)庫(kù)設(shè)計(jì)…………………………

2、……………………7　　5.系統(tǒng)設(shè)計(jì)………………………………………………10　　6.開(kāi)發(fā)環(huán)境………………………………………………23　　7.開(kāi)發(fā)總結(jié)………………………………………………23　　8.參考文獻(xiàn)………………………………………………24<

3、;p>　　企業(yè)人事管理系統(tǒng)　　項(xiàng)目開(kāi)發(fā)的應(yīng)用背景　　隨著經(jīng)濟(jì)的發(fā)展，企業(yè)的規(guī)模不斷擴(kuò)大，人員流動(dòng)日趨頻繁，人員檔案的管理的工作量也隨之增加。企業(yè)人事管理是相對(duì)企業(yè)內(nèi)部員工的管理。設(shè)計(jì)集人員、考勤、工資、評(píng)價(jià)等于一體的管理系統(tǒng),為企業(yè)在人事管理等方面提供極大的方便。不但要有利

4、于企業(yè)的統(tǒng)一性管理,而且還要提高企業(yè)的全體員工的工作效率和積極性。主要設(shè)計(jì)成果是：能滿(mǎn)足中小型企業(yè)內(nèi)部員工的集中管理需求，實(shí)現(xiàn)了人員檔案管理、員工考勤管理、評(píng)價(jià)和工資管理等功能。系統(tǒng)操作簡(jiǎn)捷、使用方便。企業(yè)人事管理設(shè)計(jì)不僅保證了核算準(zhǔn)確度，還可以成倍的提高工作效率，而且便于員工各種信息的查詢(xún)。特別是對(duì)人員檔案管理查詢(xún)可以做到更新及時(shí)，更準(zhǔn)確。　　可行性分析&

5、lt;/p>　　可行性分析的目的是說(shuō)明該軟件開(kāi)發(fā)項(xiàng)目的實(shí)現(xiàn)在技術(shù)、經(jīng)濟(jì)和社會(huì)條件方面的可行性。一般的，軟件領(lǐng)域的可行性分析主要考慮3個(gè)因素：經(jīng)濟(jì)、技術(shù)和社會(huì)環(huán)境。　　技術(shù)方面可行性　　本產(chǎn)品的關(guān)鍵技術(shù)在基于Visual Basic編程的程序設(shè)計(jì)與Access 數(shù)據(jù)庫(kù)相結(jié)合，將所有數(shù)據(jù)信息都

6、放入數(shù)據(jù)庫(kù)中進(jìn)行存儲(chǔ)，而這些數(shù)據(jù)信息的調(diào)用則是完全由程序來(lái)完成的，即“程序設(shè)計(jì)數(shù)據(jù)化，數(shù)據(jù)管理程序化”思想。本系統(tǒng)產(chǎn)品采用Visual Basic編程的程序設(shè)計(jì)與Access 數(shù)據(jù)庫(kù)相結(jié)合的方法進(jìn)行開(kāi)發(fā)，而企業(yè)人事管理系統(tǒng)實(shí)現(xiàn)的理論及技術(shù)也日趨成熟，因此企業(yè)人事管理系統(tǒng)應(yīng)用軟件的開(kāi)發(fā)手段是完全可行的。 　　管理的可行性<p&g

7、t;　　最初的人事管理，都是靠人力來(lái)完成的。當(dāng)企業(yè)規(guī)模比較小的時(shí)候，人力可以完成，隨著企業(yè)的規(guī)模越來(lái)越大，企業(yè)的員工越來(lái)越多，依然維持著人力進(jìn)行人事管理，必然會(huì)造成工作效率低，工作錯(cuò)誤增高的問(wèn)題。如果增加人員就會(huì)增加公司的開(kāi)資，這樣增加了企業(yè)的經(jīng)濟(jì)負(fù)擔(dān)。如果有一套系統(tǒng)來(lái)完成這些工作，會(huì)大大的減少人員的工作負(fù)擔(dān)，為企業(yè)節(jié)省開(kāi)支。　　用戶(hù)的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢(xún)，這就要求數(shù)據(jù)

8、庫(kù)結(jié)構(gòu)能充分滿(mǎn)足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)，以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。　　根據(jù)上述系統(tǒng)功能分析，針對(duì)各個(gè)功能模塊的需求，確定出所要設(shè)計(jì)的管理系信系統(tǒng)要滿(mǎn)什么樣的功能。首先注冊(cè)兩種登陸人員的名稱(chēng)，一種是給公司人事管理人員用的帳號(hào)，登陸之后可以在系統(tǒng)中實(shí)現(xiàn)企業(yè)各部門(mén)信息、員工信息、工資信息等的查詢(xún)、錄入、修改和刪除等功能。而對(duì)于企業(yè)一般員

9、工的帳號(hào)來(lái)說(shuō)，只能夠?qū)崿F(xiàn)各種信息的查詢(xún)，并不能實(shí)現(xiàn)信息的錄入和修改，這樣保證了企業(yè)的管理信息的安全。并能夠?qū)崿F(xiàn)各部門(mén)的管理要求。　　3）經(jīng)濟(jì)上的可行性　　系統(tǒng)的經(jīng)濟(jì)方面的可行性應(yīng)該從項(xiàng)目開(kāi)發(fā)的投入金額、收益、收益投資比、投資回收周期和敏感性分析來(lái)考慮。　　會(huì)使用該系統(tǒng)即全面節(jié)

10、省了人力，通過(guò)計(jì)算機(jī)來(lái)實(shí)現(xiàn)對(duì)企業(yè)人事檔案的管理，大大提高了工作效率，節(jié)省了時(shí)間，提高了收益。系統(tǒng)的開(kāi)發(fā)不需要額外增加設(shè)備購(gòu)置費(fèi)、軟件開(kāi)發(fā)費(fèi)、管理和維護(hù)費(fèi)用，且人員培訓(xùn)過(guò)程簡(jiǎn)單費(fèi)用不多。　　運(yùn)行費(fèi)用方面，由于系統(tǒng)比較小，不必進(jìn)行太多的運(yùn)行維護(hù)，系統(tǒng)的開(kāi)發(fā)可以較好地解決因業(yè)務(wù)繁雜而造成的處理效率低，出錯(cuò)率偏高的局面，并可以及時(shí)了解各部門(mén)人員流動(dòng)的情況，為及時(shí)調(diào)整人力決策提供可靠的數(shù)據(jù)支持，從而提高人

11、事管理的工作效率，節(jié)省公司的開(kāi)支。　　企業(yè)人事管理系統(tǒng)分析　　本系統(tǒng)主要是對(duì)企業(yè)人事進(jìn)行管理，和查詢(xún)，從而減少人力工作，能夠簡(jiǎn)單明了的觀察企業(yè)人事的變動(dòng)和員工情況分布，合理的進(jìn)行人員配備。給系統(tǒng)的主要功能有：　　部門(mén)信息管理：部門(mén)查詢(xún)、部門(mén)錄入。　　員工信息管理：?jiǎn)T工基本

12、信息查詢(xún)、員工基本信息添加。　　工資管理：工資報(bào)表、工資計(jì)發(fā)。　　檔案統(tǒng)計(jì)　　部門(mén)信息管理：是管理公司所有部門(mén)的地方，包括對(duì)部門(mén)信息的修改，和新設(shè)立有關(guān)部門(mén)，修改操作只對(duì)管理部門(mén)的人員開(kāi)放，不同人員進(jìn)入只有查詢(xún)?yōu)g覽的功能。　　員工信息

13、管理：對(duì)公司新錄入的員工進(jìn)行檔案輸入，對(duì)多余的員工信息進(jìn)行刪除，和查詢(xún)的功能，便于對(duì)員工信息的及時(shí)了解。　　工資管理：對(duì)員工的工資獎(jiǎng)金等情況進(jìn)行錄入了解。　　檔案統(tǒng)計(jì)：根據(jù)統(tǒng)計(jì)的不同條件對(duì)員工的數(shù)量分布進(jìn)行查詢(xún)，便于管理者了解人員在年齡學(xué)歷等方面的分布，為公司制定生產(chǎn)目標(biāo)做依據(jù)。　　3.1組織結(jié)構(gòu)分析圖</

14、p>　　3.2業(yè)務(wù)流程分析　　總經(jīng)理將工作說(shuō)明書(shū)交給人事部門(mén)，人事部門(mén)按照工作說(shuō)明書(shū)的內(nèi)容選擇能夠勝任的人進(jìn)行招聘，將招聘上來(lái)的人的簡(jiǎn)歷進(jìn)行考核，將不合格的簡(jiǎn)歷反還給應(yīng)聘者，將合格的簡(jiǎn)歷交給錄入員，利用系統(tǒng)進(jìn)行錄入。將錄入的信息交給財(cái)務(wù)部，根據(jù)聘用者的職能給員工做工資，然后將員工的工資表錄入到系統(tǒng)中。<

15、;p>　　業(yè)務(wù)流程圖：　　3.3數(shù)據(jù)字典　　數(shù)據(jù)字典通常包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過(guò)程五個(gè)部分。其中數(shù)據(jù)項(xiàng)是數(shù)據(jù)的最小組成單位，若干個(gè)數(shù)據(jù)項(xiàng)可以組成一個(gè)數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)字典通過(guò)對(duì)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)的定義來(lái)描述數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)的邏輯內(nèi)容。

16、　　數(shù)據(jù)項(xiàng)：1001　　數(shù)據(jù)向名稱(chēng)：?jiǎn)T工編號(hào)　　簡(jiǎn)述:前兩位表示員工所在部門(mén)，后兩位表示員工號(hào)碼　　類(lèi)型寬度：數(shù)字型，4位　　數(shù)據(jù)項(xiàng):10

17、;　　數(shù)據(jù)項(xiàng)名稱(chēng)：部門(mén)編號(hào)　　類(lèi)型寬度：數(shù)字 4位　　員工表包括的內(nèi)容　　部門(mén)信息表包括：　　工資信息表：<b

18、>　　4.數(shù)據(jù)庫(kù)設(shè)計(jì)　　1、數(shù)據(jù)庫(kù)的建立　　該系統(tǒng)的數(shù)據(jù)庫(kù)主要是應(yīng)用Access編輯軟件進(jìn)行編輯的，本系統(tǒng)數(shù)據(jù)庫(kù)的建立其中包括員工信息表、部門(mén)信息表，工資表。　　2、數(shù)據(jù)庫(kù)的連接<p

19、>　　在Visual Basic中，使程序與數(shù)據(jù)庫(kù)的連接有兩種方式，一種使通過(guò)設(shè)置ADO控件的屬性將程序與數(shù)據(jù)庫(kù)進(jìn)行連接，另一種是通過(guò)代碼形式將ADO控件連接數(shù)據(jù)庫(kù)，通過(guò)代碼的形式雖然加大了開(kāi)發(fā)難度，但是有很多的優(yōu)點(diǎn)，所以，在程序開(kāi)發(fā)是選擇了以代碼的形式來(lái)連接數(shù)據(jù)庫(kù)。　　首先是添加新的部件：Microsoft ADO DATA Control 6.0 和 Microsoft DataGr

20、id Grid Contol 6.0 。方法是點(diǎn)擊工程---部件---在需要的這兩個(gè)部件上面劃勾。這樣新的布局就添加成功了。　　具體連接的方法，在窗體上畫(huà)一個(gè)ADODC1部件，然后在上面單擊右鍵，選擇ADODC屬性，點(diǎn)擊“生成”，選擇如圖：　　然后下一步選擇所建立的數(shù)據(jù)庫(kù) 測(cè)試連接　　連接測(cè)試成功之后，點(diǎn)擊確定

21、，選擇數(shù)據(jù)源，如圖：　　5.系統(tǒng)設(shè)計(jì)　　本系統(tǒng)是根據(jù)通過(guò)登錄頁(yè)面進(jìn)入操作的，而且對(duì)不同的用戶(hù)有不同的管理登陸權(quán)限，操作簡(jiǎn)便易行，運(yùn)行成本低。　　下面是該系統(tǒng)部分界面以及代碼的介紹：　　1、登陸界面：

22、;　　輸入的帳號(hào)分為兩種一種可以進(jìn)行修改和查詢(xún)，用戶(hù)名為“boss”密碼為“11”。另一種是員工帳號(hào)，只能進(jìn)行查詢(xún)，用戶(hù)名為“any”,密碼為“12”。輸入相應(yīng)的用戶(hù)名和密碼后，點(diǎn)擊登錄進(jìn)入系統(tǒng)。如果輸入有誤，系統(tǒng)會(huì)提示。　　登錄的實(shí)現(xiàn)代碼為：　　Private Sub Co

23、mmand1_Click()　　If Text1.Text = "boss" And Text2.Text = "11" Then　　Form1.Hide　　MDIForm1.Show　　ElseIf Text1.Text = &q

24、uot;any" And Text2.Text = "12" Then　　Form1.Hide　　Form8.Show　　Else　　MsgBox "您輸入的密碼或用戶(hù)名不符"<

25、/p>　　Text1.Text = ""　　Text2.Text = ""　　End If　　End Sub

26、　推退的代碼：　　Private Sub Command2_Click()　　End　　End Sub　　2主界面：

27、　　用戶(hù)名稱(chēng)“any”登陸的主界面：　　用戶(hù)名“boss”登陸的主界面：　　在各下拉菜單線(xiàn)面找到想要查詢(xún)的項(xiàng)目點(diǎn)擊進(jìn)入　　錄入界面進(jìn)入的代碼　　Private Sub 部門(mén)錄入_Click()

28、　　MDIForm1.Hide　　Form2.Show　　End Sub　　部門(mén)錄入界面：　　添加按鈕的代碼：&l

29、t;p>　　Private Sub Command1_Click()　　BUMEN = False　　Form13.Show　　End Sub　　修改按鈕的代碼：&l

30、t;p>　　Private Sub Command2_Click()　　BUMEN = True　　Form13.Show　　End Sub　　Private Sub DataGrid1_rowcolchange(lastrow

31、 As Variant, ByVal lastcol As Integer)　　Dim sql1 As String　　Dim rs1 As New ADODB.Recordset　　sql1 = "select * from 部門(mén)信息表"　　rs1.

32、Open sql1, cnn, adOpenKeyset, adLockOptimistic　　If rs1.RecordCount > 0 Then　　BH = DataGrid1.Columns("部門(mén)代碼").Text　　A = DataGrid1.Columns("部門(mén)

33、名稱(chēng)").Text　　B = DataGrid1.Columns("領(lǐng)導(dǎo)姓名").Text　　C = DataGrid1.Columns("聯(lián)系電話(huà)").Text　　D = DataGrid1.Columns("聯(lián)系地址").Text</

34、p>　　Else　　MsgBox "未選中數(shù)據(jù)?。?quot;, vbOKOnly + vbExclamation, ""　　BH = ""

35、　End If　　rs1.Close　　End Sub　　Function cnn() As ADODB.Connection　　Set cnn = New ADODB.Con

36、nection　　cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\部門(mén)信息表.mdb;Persist Security Info=False"　　End Function<p

37、>　　刪除按鈕的代碼：　　Private Sub Command3_Click()　　Dim y　　y = MsgBox("要?jiǎng)h除該記錄嗎？", vbYesNo, "刪除記錄")</p&

38、gt;　　If y = vbNo Then　　Exit Sub　　Else　　If Adodc1.Recordset.EOF = True Then　　MsgBox &quo

39、t;沒(méi)有要?jiǎng)h除的紀(jì)錄"　　Exit Sub　　Else　　Adodc1.Recordset.Delete　　MsgBox "刪除成功"<

40、p>　　End If　　End If　　End Sub　　推出按鈕的代碼：　　Private Sub Comman

41、d6_Click()　　Form2.Hide　　MDIForm1.Show　　End Sub　　Private Sub Form_Load()　　Call DataGrid1_rowcolch

42、ange(lastrow, lastcol)　　End Sub　　點(diǎn)擊添加和修改按鈕出現(xiàn)的界面：　　將添加的信息和修改的信息輸入，就可可以實(shí)現(xiàn)，信息的天加與修改。　　保存的代碼：

43、;　　Private Sub Command1_Click()　　If Text1.Text = "" Then　　MsgBox "請(qǐng)輸入部門(mén)代碼"　　Exit Sub&l

44、t;b>　　End If　　If Text2.Text = "" Then　　MsgBox "請(qǐng)輸入領(lǐng)導(dǎo)姓名"　　Exit Sub　　End If&l

45、t;/b>　　If Text3.Text = "" Then　　MsgBox "聯(lián)系地址"　　Exit Sub　　End If

46、　　If Text4.Text = "" Then　　MsgBox "請(qǐng)輸入聯(lián)系電話(huà)"　　Exit Sub　　End If　　Dim rs

47、 As New ADODB.Recordset　　Dim rs1 As New ADODB.Recordset　　If BUMEN = True Then　　sql1 = "select * from 部門(mén)信息表 where 部門(mén)代碼='" & BH & "&

48、#39;"　　rs.Open sql1, cnn, adOpenKeyset, adLockOptimistic　　rs.Fields("部門(mén)代碼") = Text1.Text　　rs.Fields("部門(mén)名稱(chēng)") = Text2.Text

49、　　rs.Fields("領(lǐng)導(dǎo)姓名") = Text3.Text　　rs.Fields("聯(lián)系地址") = Text4.Text　　rs.Fields("聯(lián)系電話(huà)") = Text5.Text　　rs.Update&l

50、t;/b>　　rs.Close　　Else　　SQL = "select * from 部門(mén)信息表"　　rs1.Open SQL, cnn, adOpenKeyset,

51、adLockOptimistic　　rs1.AddNew　　rs1.Fields("部門(mén)代碼") = Text1.Text　　rs1.Fields("部門(mén)名稱(chēng)") = Text2.Text　　rs1.Fields("領(lǐng)導(dǎo)姓

52、名") = Text3.Text　　rs1.Fields("聯(lián)系地址") = Text4.Text　　rs1.Fields("聯(lián)系電話(huà)") = Text5.Text　　rs1.Update　　rs1.Cl

53、ose　　End If　　MsgBox "保存成功??！", vbOKOnly + vbExclamation, ""　　Form2.Adodc1.Refresh<b&g

54、t;　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Function cnn() As ADODB.C

55、onnection　　Set cnn = New ADODB.Connection　　cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\部門(mén)信息表.mdb;Persist Security Info=False&qu

56、ot;　　End Function　　Private Sub Form_Load()　　If BUMEN = True Then　　Me.Caption = "修改部門(mén)信息"　　Text1.Text = BH&

57、lt;/p>　　Text2.Text = A　　Text3.Text = B　　Text4.Text = D　　Text5.Text = C　　Else　　Me.C

58、aption = "添加部門(mén)信息"　　End If　　End Sub　　5.部門(mén)查詢(xún)的界面　　6.員工信息查詢(xún)界面：

59、　　員工基本信息查詢(xún)的代碼：　　Private Sub Command1_Click()　　Dim dzbh As String　　dzbh = Text1.Text　　If dzbh <> "" Then</p&

60、gt;　　Adodc1.Recordset.Filter = "員工姓名='" + dzbh + "'"　　If Adodc1.Recordset.EOF = True Then　　MsgBox "該員工不存在"

61、Text1.Text = ""　　Exit Sub　　Else　　Adodc1.Recordset.Filter = "員工姓名='" + dzbh + "'"&

62、lt;/p>　　End If　　Else　　MsgBox "請(qǐng)輸入員工姓名"　　Exit Sub<b&g

63、t;　　End If　　End Sub　　Private Sub Command2_Click()　　Form4.Hide　　MDIForm1.Show

64、　End Sub　　7.員工信息錄入的界面：　　添加代碼：　　Private Sub Command1_Click()　　If Text1.Text = "" Then&

65、lt;p>　　MsgBox "請(qǐng)輸入員工編號(hào)"　　Exit Sub　　End If　　If Text2.Text = "" Then　　MsgBox

66、"請(qǐng)輸入員工姓名"　　Exit Sub　　End If　　If Text3.Text = "" Then　　MsgBox "請(qǐng)輸入性別"

67、　　Exit Sub　　End If　　If Text4.Text = "" Then　　MsgBox "請(qǐng)輸入年齡"<p&g

68、t;　　Exit Sub　　End If　　If Text6.Text = "" Then　　MsgBox "請(qǐng)輸入學(xué)歷"　　Exit S

69、ub　　End If　　If Text7.Text = "" Then　　MsgBox "請(qǐng)輸入聯(lián)系電話(huà)"　　Exit Sub</

70、p>　　End If　　If Text8.Text = "" Then　　MsgBox "請(qǐng)輸入部門(mén)名稱(chēng)"　　Exit Sub&

71、lt;b>　　End If　　If Text1.Text <> "" Then　　Adodc1.Recordset.Filter = "員工編號(hào)='" + Text1.Text + "'"　　If A

72、dodc1.Recordset.EOF = False Then　　MsgBox "該編號(hào)的員工已經(jīng)存在"　　Exit Sub　　End If　　End If

73、　　Adodc1.Refresh　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("員工編號(hào)") = Text1.Text　　Adodc1.Recordset.Fields(&qu

74、ot;員工姓名") = Text2.Text　　Adodc1.Recordset.Fields("性別") = Text3.Text　　Adodc1.Recordset.Fields("年齡") = Text4.Text　　Adodc1.Recordset.Fie

75、lds("學(xué)歷") = Text5.Text　　Adodc1.Recordset.Fields("聯(lián)系電話(huà)") = Text6.Text　　Adodc1.Recordset.Fields("地址") = Text7.Text　　Adodc1.Record

76、set.Fields("所屬部門(mén)") = Text8.Text　　MsgBox "員工信息錄入成功"　　Text1.Text = ""　　Text2.Text = ""　　Text4.Text

77、 = ""　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text = ""　　Text8.Text = ""&

78、lt;p>　　End Sub　　Private Sub Command2_Click()　　Dim y　　y = MsgBox("要?jiǎng)h除該記錄嗎？", vbYesNo, "刪除記錄")<

79、/p>　　If y = vbNo Then　　Exit Sub　　Else　　If Adodc1.Recordset.EOF = True Then　　MsgBox &

80、quot;沒(méi)有要?jiǎng)h除的紀(jì)錄"　　Exit Sub　　Else　　Adodc1.Recordset.Delete　　MsgBox "刪除成功"&

81、lt;p>　　End If　　End If　　End Sub　　Private Sub Command3_Click()　　Form5.Hide<

82、/p>　　MDIForm1.Show　　End Sub　　8.統(tǒng)計(jì)界面　　統(tǒng)計(jì)功能代碼：　　Function cnn() As A

83、DODB.Connection　　Set cnn = New ADODB.Connection　　cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=Fals

84、e"　　End Function　　Private Sub Command1_Click()　　If Check1.Value = 1 Then　　azzmm = Trim(Text1.Text)　　E

85、lse　　azzmm = ""　　End If　　If Check2.Value = 1 Then　　azgl = Trim(Text2.Text)&l

86、t;b>　　Else　　azgl = ""　　End If　　If Check3.Value = 1 Then　　axb = Trim(Text3.T

87、ext)　　Else　　axb = ""　　End If　　If Check4.Value = 1 Then<

88、;p>　　anl = Trim(Text4.Text)　　Else　　anl = ""　　End If　　Dim rs As New

89、 ADODB.Recordset　　SQL = "select * from 員工信息表 where 所屬部門(mén) like '%" & azzmm & "%' and 性別 like '%" & azgl & "%' and 年齡 like '%" & a

90、xb & "%' and 學(xué)歷 like '%" & anl & "%' "　　rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic　　Label6.Caption = rs.RecordCount&

91、lt;p>　　rs.Close　　End Sub　　Private Sub Command2_Click()　　Form12.Hide　　MDIForm1.Show&

92、lt;p>　　End Sub　　6. 開(kāi)發(fā)環(huán)境　　首先選擇可視化的開(kāi)發(fā)界面的簡(jiǎn)單易操作的開(kāi)發(fā)語(yǔ)言為開(kāi)發(fā)平臺(tái)，充分的利用WINDOWS自帶的資源，既可以減少開(kāi)發(fā)的工作量，也確保了程序的最大兼容性。Microsoft Visual Basic 6.0中文企業(yè)版符合了這項(xiàng)要求，即

93、功能強(qiáng)大，又操作簡(jiǎn)單。Microsoft Visual Basic 6.0中文企業(yè)版在功能方面優(yōu)于Microsoft Visual Basic 6.0的其他版本。對(duì)于數(shù)據(jù)庫(kù)的選擇，對(duì)于中小程序來(lái)說(shuō)，SQL與ACCESS都可以滿(mǎn)足開(kāi)發(fā)的要求，SQL需要另外進(jìn)行安裝，ACCESS集成與OFFICE辦公套件中，安裝簡(jiǎn)便，所以，程序開(kāi)發(fā)時(shí)在數(shù)據(jù)庫(kù)的選擇上選擇了ACCESS2003為系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)，其次，ACCESS2003與Microsoft

94、 Visual Basic 6.0中文企業(yè)版，都是Microsoft公司產(chǎn)品，在程序的接口方面保證的最大的兼容性，具有連接簡(jiǎn)便，不易出錯(cuò)的特點(diǎn)，所以，程序開(kāi)發(fā)在開(kāi)發(fā)環(huán)境的選擇上面選擇了Microsoft Visual Basic 6.0中文企業(yè)版與ACCESS2003 組合來(lái)開(kāi)發(fā)供應(yīng)商管理系統(tǒng)。　　硬件環(huán)境：程序開(kāi)發(fā)基于INTEL或AMD平臺(tái)的PC機(jī)。

95、　軟件環(huán)境：在WINDOWS XP操作系統(tǒng)下，使用Microsoft Visual Basic 6.0 中文版開(kāi)發(fā)軟件進(jìn)行設(shè)計(jì)開(kāi)發(fā)，使用Microsoft Access 2003作為后臺(tái)數(shù)據(jù)庫(kù)進(jìn)行對(duì)程序的支持。　　7.開(kāi)發(fā)總結(jié)　　在做課程設(shè)計(jì)以前，我對(duì)人事管理系統(tǒng)開(kāi)發(fā)的理解還只是停留在理論知識(shí)的水平，沒(méi)有實(shí)際經(jīng)驗(yàn)，而

96、通過(guò)這次畢業(yè)設(shè)計(jì)，在完成了人事管理系統(tǒng)的開(kāi)發(fā)設(shè)計(jì)后，對(duì)管理系統(tǒng)與計(jì)算機(jī)系統(tǒng)的結(jié)合才有了真正的了解。　　首先，在這次課程設(shè)計(jì)中，初始的分析就是一個(gè)困難，主要是因?yàn)閷?duì)人事管理系統(tǒng)的了解太少，以及對(duì)企業(yè)的需求所知甚少，但是通過(guò)閱讀了許多有關(guān)管理學(xué)科的資料，再加上實(shí)際考查，才能夠完成系統(tǒng)的分析和設(shè)計(jì)。　　其次，軟件開(kāi)發(fā)工具的選擇也是一大困難，由于對(duì)軟件開(kāi)發(fā)工具的

97、不熟悉，所以通過(guò)一段時(shí)間的學(xué)習(xí)，以及向同學(xué)和老師的請(qǐng)教，才逐步掌握VB和Access工具。　　最后，在系統(tǒng)分析、設(shè)計(jì)時(shí)，遇到了很多技術(shù)上的困難，但是經(jīng)過(guò)老師的指導(dǎo)和自己不斷的修改與調(diào)試，基本解決了設(shè)計(jì)中的問(wèn)題。　　通過(guò)課程設(shè)計(jì)，達(dá)到了大學(xué)中所學(xué)課程與實(shí)際情況的結(jié)合，是在大學(xué)中所學(xué)知識(shí)的一次綜合應(yīng)用，雖然由于個(gè)人能力的關(guān)系，本系統(tǒng)還有許多不盡如人意之處，但

98、是在課程設(shè)計(jì)中，不管是知識(shí)還是能力都得到了很大程度的提高，而且對(duì)軟件開(kāi)發(fā)工作有了真正的理解和運(yùn)用。　　參考文獻(xiàn)　　易福華主編.系統(tǒng)實(shí)戰(zhàn)與解析.電子工業(yè)出版社　　曾強(qiáng)聰主編.VB程序設(shè)計(jì)與應(yīng)用開(kāi)發(fā)案例教程　　田金蘭主編.VB 使用

眾賞文庫(kù)> 全部分類(lèi)> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

管理信息系統(tǒng)課程設(shè)計(jì)---企業(yè)人事管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

管理信息系統(tǒng)課程設(shè)計(jì)---企業(yè)人事管理系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載