資源描述：
《實(shí)訓(xùn)報(bào)告(第三組實(shí)訓(xùn)報(bào)告)new》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。
1、連云港職業(yè)技術(shù)學(xué)院實(shí)訓(xùn)報(bào)告課程名稱：信息系統(tǒng)開(kāi)發(fā)與應(yīng)用項(xiàng)目名稱：人力資源管理系統(tǒng)姓名：周長(zhǎng)青學(xué)號(hào)：090104130組別:第三組2011年11月6日一、實(shí)訓(xùn)題目人力資源管理系統(tǒng)（人力資源管理系統(tǒng)所實(shí)現(xiàn)的功能是能夠在本系統(tǒng)中查詢，增加，刪除員工的信息，實(shí)現(xiàn)對(duì)員工信息的管理）二、實(shí)訓(xùn)要求建立員工基本信息數(shù)據(jù)庫(kù)，通過(guò)vf數(shù)據(jù)編程建立數(shù)據(jù)交換窗口與數(shù)據(jù)庫(kù)鏈接，實(shí)現(xiàn)數(shù)據(jù)交換，便于數(shù)據(jù)庫(kù)數(shù)據(jù)信息的管理。員工信息在本系統(tǒng)能夠進(jìn)行查詢，增加，刪除等，起到對(duì)員工基本信息，員工職位薪水的管理，員工流動(dòng)情況的分析添加的作用是在添加的窗體之
2、中輸入詳細(xì)的員工信息然后通過(guò)VB來(lái)進(jìn)行對(duì)數(shù)據(jù)庫(kù)的增加來(lái)實(shí)現(xiàn)功能。刪除的作用是有些調(diào)走或離職的員工信息進(jìn)行清除。一旦刪除只能通過(guò)添加功能進(jìn)行彌補(bǔ)。查詢的功能是通過(guò)輸入員工號(hào)來(lái)對(duì)查詢個(gè)別需要了解的員工的信息。。三個(gè)選項(xiàng)的功能一致，但用戶點(diǎn)擊人事信息的來(lái)查詢整體員工職位情況的時(shí)候會(huì)出現(xiàn)一個(gè)員工人事信息窗口，這個(gè)窗口集合了所有人事信息。三、任務(wù)分工四、設(shè)計(jì)功能登陸界面主菜單員工信息人事信息員工基本信息增加員工刪除員工人事情況人事調(diào)動(dòng)圖1-流程圖五、數(shù)據(jù)結(jié)構(gòu)1、數(shù)據(jù)庫(kù)建立（1）用“Access2003”這個(gè)軟件來(lái)建立學(xué)生信息數(shù)
3、據(jù)庫(kù)。（2）在使用向?qū)?chuàng)建表，然后依次輸入需要建立的字段名稱。當(dāng)完成向?qū)?，建立好新的?shù)據(jù)庫(kù)后，應(yīng)該對(duì)其進(jìn)行屬性的設(shè)置（設(shè)計(jì)視圖）圖2、設(shè)計(jì)完成的數(shù)據(jù)庫(kù)圖3、設(shè)計(jì)視圖2、數(shù)據(jù)庫(kù)與工程間的綁定（1）當(dāng)數(shù)據(jù)庫(kù)建立好之后，需要把數(shù)據(jù)庫(kù)與VB進(jìn)行綁定，點(diǎn)擊開(kāi)始菜單，選擇設(shè)置，然后點(diǎn)擊控制面板，找到管理工具，雙擊數(shù)據(jù)源，選擇第三個(gè)進(jìn)行添加。圖4、數(shù)據(jù)庫(kù)與工程的綁定再點(diǎn)“添加”，如下圖：圖四、數(shù)據(jù)源創(chuàng)建點(diǎn)第二個(gè)，添加文件，如下圖：圖5、數(shù)據(jù)源建立完成（2）建立工程，在桌面點(diǎn)“MicrosoftVisualBasic6.0”1．打開(kāi)
4、這個(gè)軟件后，建立新工程，取名為“人力資源管理系統(tǒng)”。如圖圖6、人力資源管理界面2、建立登陸界面圖7、登陸界面3、在新建頁(yè)面添加控件adodc1,DataGrid，F(xiàn)rame和菜單編輯器。然后在空白的地方右擊鼠標(biāo)，打開(kāi)菜單編輯器，在菜單編輯器里面進(jìn)行菜單名稱的命名圖8、主菜單界面4、建立查詢員工窗口圖9、員工查詢界面5、添加員工窗口圖10、添加員工界面6、刪除員工窗口圖11、刪除員工窗口7、在新建立的工程里，點(diǎn)部件如下圖：圖12、數(shù)據(jù)按鈕設(shè)置8.接著畫(huà)出上面窗口的按鈕，將按鈕與數(shù)據(jù)庫(kù)進(jìn)行綁定，并設(shè)定如下：圖13、數(shù)據(jù)鏈
5、接圖14、數(shù)據(jù)鏈接9.再選上面的那個(gè)窗體，并設(shè)定為：圖15、數(shù)據(jù)鏈接六、程序代碼設(shè)計(jì)(1)跳轉(zhuǎn)登陸面：PrivateSubCommand1_Click()frmLogin.ShowUnloadMeEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText2_Change()nametextText="電子091"EndSub(2)登陸界面：PrivateSubcmdCancel_Click()'設(shè)置全局變量為false'不提示失敗的登錄LoginSucceeded=
6、FalseMe.HideEndSubPrivateSubcmdOK_Click()'檢查正確的密碼IftxtUserName="1"AndtxtPassword="1"Then'將代碼放在這里傳遞'成功到calling函數(shù)'設(shè)置全局變量時(shí)最容易的LoginSucceeded=Truerenliziyuan.ShowMe.HideElseMsgBox"無(wú)效的密碼，請(qǐng)重試!",,"登錄"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub（3）菜單語(yǔ)言：Private
7、Subshanchubumen_Click()shanchubumenform22.ShowEndSubPrivateSubshanchuyuangong_Click()shanchuyuangongform1.ShowEndSubPrivateSubtianjiabumen_Click()tianjiabumenform11.ShowEndSubPrivateSubtianjiayuangong_Click()tianjiayuangongform2.ShowEndSubPrivateSubyuangongchax
8、un_Click()chaxunyuangongforml.ShowEndSub（4）刪除員工語(yǔ)言PrivateSubyes_Click()DimnumAsStringnum=Trim(""&"text1.Text"&"")IfText1.Text=""ThenMsgBox"請(qǐng)輸入添加除員工的信息"ElseIfAdodc5.Recordset
