【正文】
End SubPrivate Sub Label2_Click() = End Sub圖58人員檔案查詢Private Sub Command2_Click() = And = And = And = And = And = End SubPrivate Sub Command1_Click()If = 姓名 Then = select * from 陳 where 姓名=39。 amp。 Trim() amp。 39。Exit SubElseIf = 性別 Then = select * from 陳 where 性別=39。 amp。 Trim() amp。 39。Exit SubElseIf = 年齡 Then = select * from 陳 where 年齡=39。 amp。 Trim() amp。 39。Exit SubElseIf = 工作時間 Then = select * from 陳 where 工作時間=39。 amp。 Trim() amp。 39。Exit SubElseIf = 工作部門 Then = select * from 陳 where 工作部門=39。 amp。 Trim() amp。 39。Exit SubElseIf = 職位 Then = select * from 陳 where 職位=39。 amp。 Trim() amp。 39。Exit SubElseIf = 家庭住址 Then = select * from 陳 where 家庭住址=39。 amp。 Trim() amp。 39。Exit SubElseIf = 手機(jī)號碼 Then = select * from 陳 where 手機(jī)號碼=39。 amp。 Trim() amp。 39。Exit SubEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Label3_Click()End Sub圖59人員檔案管理代碼如下:Private Sub Command1_Click()If Len() = 0 Or Len() = 0 Or Len() = 0 Or Len() = 0 Or Len() = 0 Or Len() = 0 Or Len() = 0 Or Len() = 0 ThenMsgBox 員工信息不能為空!, , 重要提示ElseDim conn As New Dim rs As New provider=。data source= amp。 amp。 \ select * from 陳, conn, 2, 2(姓名).Value = (性別).Value = (年齡).Value = (工作時間).Value = (工作部門).Value = (職位).Value = (家庭住址).Value = (手機(jī)號碼).Value = yn = MsgBox(確定信息無誤并添加入檔案嗎?, vbYesNo + vbQuestion, 消息確認(rèn))If yn = vbYes ThenMsgBox 記錄已經(jīng)成功添加, , 記錄狀態(tài)ElseEnd IfEnd IfEnd SubPrivate Sub Command4_Click()Dim nform As New 人員檔案管理Unload MeEnd SubPrivate Sub Command5_Click()Unload MeEnd Sub圖510 幫助界面6 使用說明登錄賬號:admin登錄密碼:123管理員賬號密碼同上7 總結(jié)首先,在這個系統(tǒng)的設(shè)計(jì)過程中,我參考和閱讀了大量的網(wǎng)上搜索信息,用了國家標(biāo)準(zhǔn),行業(yè)標(biāo)準(zhǔn),手冊和專輯等信息。其次,在該系統(tǒng)的開發(fā)中使用了大量以前學(xué)過的知識。通過該系統(tǒng)的開發(fā),提高了綜合理論知識的運(yùn)用,鍛煉了我的分析和解決實(shí)際問題的技能,最主要的是增強(qiáng)了自我學(xué)習(xí)的能力。其中開發(fā)平臺和數(shù)據(jù)庫設(shè)計(jì)工具,使用VB開發(fā)語言及access數(shù)據(jù)庫,這是我之前學(xué)習(xí)到的一點(diǎn)。但是,在設(shè)計(jì)系統(tǒng)中使用的所有研究涉及到了更多的知識,這次畢業(yè)設(shè)計(jì)幫助了我學(xué)習(xí)到了更多的技能??梢哉f,使用計(jì)算機(jī)來解決管理過中出現(xiàn)的任務(wù)繁重、效率低下等問題是一個不錯的方式。在學(xué)習(xí)理論時候,我掌握了基本的理論課程知識和專業(yè)課程知識,同時也產(chǎn)生了一些鏈接和系統(tǒng)設(shè)計(jì)全面的測試計(jì)劃,但這是第一次真正動手設(shè)計(jì)管理軟件的過程,在這個項(xiàng)目中完成的時候,我曾經(jīng)遇到了在克服各種問題及我的能力不足等各方面的重重困難,在困難的過程中也大大提高了我解決問題的能力,讓我學(xué)到了更多的理論知識和實(shí)踐技能。然而,由于缺乏經(jīng)驗(yàn),我設(shè)計(jì)了一個圖形界面相當(dāng)簡單。只有基本功能已被開發(fā)出來。系統(tǒng)借鑒了??一些其他的力量,此次畢業(yè)設(shè)計(jì)是完美的例子,但也有許多不足之處,有待進(jìn)一步研究和改善。實(shí)踐證明,該系統(tǒng)具有良好的發(fā)展前景。