管理信息系統(tǒng)課程設(shè)計---企業(yè)人事管理系統(tǒng)_第1頁
已閱讀1頁,還剩24頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)

文檔簡介

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

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

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

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

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

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

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

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

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

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

11、事管理的工作效率,節(jié)省公司的開支。</p><p>  企業(yè)人事管理系統(tǒng)分析</p><p>  本系統(tǒng)主要是對企業(yè)人事進行管理,和查詢,從而減少人力工作,能夠簡單明了的觀察企業(yè)人事的變動和員工情況分布,合理的進行人員配備。給系統(tǒng)的主要功能有:</p><p>  部門信息管理:部門查詢、部門錄入。</p><p>  員工信息管理:員工基本

12、信息查詢、員工基本信息添加。</p><p>  工資管理:工資報表、工資計發(fā)。</p><p><b>  檔案統(tǒng)計</b></p><p>  部門信息管理:是管理公司所有部門的地方,包括對部門信息的修改,和新設(shè)立有關(guān)部門,修改操作只對管理部門的人員開放,不同人員進入只有查詢?yōu)g覽的功能。</p><p>  員工信息

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

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

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

16、<p><b>  數(shù)據(jù)項:1001</b></p><p>  數(shù)據(jù)向名稱:員工編號</p><p>  簡述:前兩位表示員工所在部門,后兩位表示員工號碼</p><p>  類型寬度:數(shù)字型,4位</p><p><b>  數(shù)據(jù)項:10</b></p><p>

17、;  數(shù)據(jù)項名稱:部門編號</p><p>  類型寬度:數(shù)字 4位</p><p><b>  員工表包括的內(nèi)容</b></p><p><b>  部門信息表包括:</b></p><p><b>  工資信息表:</b></p><p><b

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

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

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

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

22、;</p><p>  輸入的帳號分為兩種一種可以進行修改和查詢,用戶名為“boss”密碼為“11”。另一種是員工帳號,只能進行查詢,用戶名為“any”,密碼為“12”。輸入相應(yīng)的用戶名和密碼后,點擊登錄進入系統(tǒng)。如果輸入有誤,系統(tǒng)會提示。</p><p><b>  登錄的實現(xiàn)代碼為:</b></p><p>  Private Sub Co

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

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

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

26、 推退的代碼:</b></p><p>  Private Sub Command2_Click()</p><p><b>  End</b></p><p><b>  End Sub</b></p><p><b>  2主界面:</b></p>

27、<p>  用戶名稱“any”登陸的主界面:</p><p>  用戶名“boss”登陸的主界面:</p><p>  在各下拉菜單線面找到想要查詢的項目點擊進入</p><p><b>  錄入界面進入的代碼</b></p><p>  Private Sub 部門錄入_Click()</p>

28、<p>  MDIForm1.Hide</p><p>  Form2.Show</p><p><b>  End Sub</b></p><p><b>  部門錄入界面:</b></p><p><b>  添加按鈕的代碼:</b></p>&l

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

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

31、 As Variant, ByVal lastcol As Integer)</p><p>  Dim sql1 As String</p><p>  Dim rs1 As New ADODB.Recordset</p><p>  sql1 = "select * from 部門信息表"</p><p>  rs1.

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

33、名稱").Text</p><p>  B = DataGrid1.Columns("領(lǐng)導姓名").Text</p><p>  C = DataGrid1.Columns("聯(lián)系電話").Text</p><p>  D = DataGrid1.Columns("聯(lián)系地址").Text</

34、p><p><b>  Else</b></p><p>  MsgBox "未選中數(shù)據(jù)??!", vbOKOnly + vbExclamation, ""</p><p><b>  BH = ""</b></p><p><b> 

35、 End If</b></p><p><b>  rs1.Close</b></p><p><b>  End Sub</b></p><p>  Function cnn() As ADODB.Connection</p><p>  Set cnn = New ADODB.Con

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

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

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

39、t;沒有要刪除的紀錄"</p><p><b>  Exit Sub</b></p><p><b>  Else</b></p><p>  Adodc1.Recordset.Delete</p><p>  MsgBox "刪除成功"</p><

40、p><b>  End If</b></p><p><b>  End If</b></p><p><b>  End Sub</b></p><p><b>  推出按鈕的代碼:</b></p><p>  Private Sub Comman

41、d6_Click()</p><p>  Form2.Hide</p><p>  MDIForm1.Show</p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p>  Call DataGrid1_rowcolch

42、ange(lastrow, lastcol)</p><p><b>  End Sub</b></p><p>  點擊添加和修改按鈕出現(xiàn)的界面:</p><p>  將添加的信息和修改的信息輸入,就可可以實現(xiàn),信息的天加與修改。</p><p><b>  保存的代碼:</b></p>

43、;<p>  Private Sub Command1_Click()</p><p>  If Text1.Text = "" Then</p><p>  MsgBox "請輸入部門代碼"</p><p><b>  Exit Sub</b></p><p>&l

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

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

46、<p>  If Text4.Text = "" Then</p><p>  MsgBox "請輸入聯(lián)系電話"</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  Dim rs

47、 As New ADODB.Recordset</p><p>  Dim rs1 As New ADODB.Recordset</p><p>  If BUMEN = True Then</p><p>  sql1 = "select * from 部門信息表 where 部門代碼='" & BH & "&

48、#39;"</p><p>  rs.Open sql1, cnn, adOpenKeyset, adLockOptimistic</p><p>  rs.Fields("部門代碼") = Text1.Text</p><p>  rs.Fields("部門名稱") = Text2.Text</p>

49、<p>  rs.Fields("領(lǐng)導姓名") = Text3.Text</p><p>  rs.Fields("聯(lián)系地址") = Text4.Text</p><p>  rs.Fields("聯(lián)系電話") = Text5.Text</p><p><b>  rs.Update&l

50、t;/b></p><p><b>  rs.Close</b></p><p><b>  Else</b></p><p>  SQL = "select * from 部門信息表"</p><p>  rs1.Open SQL, cnn, adOpenKeyset,

51、adLockOptimistic</p><p>  rs1.AddNew</p><p>  rs1.Fields("部門代碼") = Text1.Text</p><p>  rs1.Fields("部門名稱") = Text2.Text</p><p>  rs1.Fields("領(lǐng)導姓

52、名") = Text3.Text</p><p>  rs1.Fields("聯(lián)系地址") = Text4.Text</p><p>  rs1.Fields("聯(lián)系電話") = Text5.Text</p><p>  rs1.Update</p><p><b>  rs1.Cl

53、ose</b></p><p><b>  End If</b></p><p>  MsgBox "保存成功!!", vbOKOnly + vbExclamation, ""</p><p>  Form2.Adodc1.Refresh</p><p><b&g

54、t;  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Function cnn() As ADODB.C

55、onnection</p><p>  Set cnn = New ADODB.Connection</p><p>  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\部門信息表.mdb;Persist Security Info=False&qu

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

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

58、aption = "添加部門信息"</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p><b>  5.部門查詢的界面</b></p><p>  6.員工信息查詢界面:</p>

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

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

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

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

63、t;  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  Form4.Hide</p><p>  MDIForm1.Show</p><p><b> 

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

65、lt;p>  MsgBox "請輸入員工編號"</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If Text2.Text = "" Then</p><p>  MsgBox

66、"請輸入員工姓名"</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If Text3.Text = "" Then</p><p>  MsgBox "請輸入性別"

67、</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If Text4.Text = "" Then</p><p>  MsgBox "請輸入年齡"</p><p&g

68、t;<b>  Exit Sub</b></p><p><b>  End If</b></p><p>  If Text6.Text = "" Then</p><p>  MsgBox "請輸入學歷"</p><p><b>  Exit S

69、ub</b></p><p><b>  End If</b></p><p>  If Text7.Text = "" Then</p><p>  MsgBox "請輸入聯(lián)系電話"</p><p><b>  Exit Sub</b></

70、p><p><b>  End If</b></p><p>  If Text8.Text = "" Then</p><p>  MsgBox "請輸入部門名稱"</p><p><b>  Exit Sub</b></p><p>&

71、lt;b>  End If</b></p><p>  If Text1.Text <> "" Then</p><p>  Adodc1.Recordset.Filter = "員工編號='" + Text1.Text + "'"</p><p>  If A

72、dodc1.Recordset.EOF = False Then</p><p>  MsgBox "該編號的員工已經(jīng)存在"</p><p><b>  Exit Sub</b></p><p><b>  End If</b></p><p><b>  End If

73、</b></p><p>  Adodc1.Refresh</p><p>  Adodc1.Recordset.AddNew</p><p>  Adodc1.Recordset.Fields("員工編號") = Text1.Text</p><p>  Adodc1.Recordset.Fields(&qu

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

75、lds("學歷") = Text5.Text</p><p>  Adodc1.Recordset.Fields("聯(lián)系電話") = Text6.Text</p><p>  Adodc1.Recordset.Fields("地址") = Text7.Text</p><p>  Adodc1.Record

76、set.Fields("所屬部門") = Text8.Text</p><p>  MsgBox "員工信息錄入成功"</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text4.Text

77、 = ""</p><p>  Text5.Text = ""</p><p>  Text6.Text = ""</p><p>  Text7.Text = ""</p><p>  Text8.Text = ""</p>&

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

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

80、quot;沒有要刪除的紀錄"</p><p><b>  Exit Sub</b></p><p><b>  Else</b></p><p>  Adodc1.Recordset.Delete</p><p>  MsgBox "刪除成功"</p>&

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

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

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

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

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

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

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

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

89、 ADODB.Recordset</p><p>  SQL = "select * from 員工信息表 where 所屬部門 like '%" & azzmm & "%' and 性別 like '%" & azgl & "%' and 年齡 like '%" & a

90、xb & "%' and 學歷 like '%" & anl & "%' "</p><p>  rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic</p><p>  Label6.Caption = rs.RecordCount</p>&

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

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

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

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

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

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

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

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

溫馨提示

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

評論

0/150

提交評論