實訓報告(第三組實訓報告)new

《實訓報告(第三組實訓報告)new》由會員上傳分享，免費在線閱讀，更多相關內容在行業(yè)資料-天天文庫。

1、連云港職業(yè)技術學院實訓報告課程名稱：信息系統(tǒng)開發(fā)與應用項目名稱：人力資源管理系統(tǒng)姓名：周長青學號：090104130組別:第三組2011年11月6日一、實訓題目人力資源管理系統(tǒng)（人力資源管理系統(tǒng)所實現(xiàn)的功能是能夠在本系統(tǒng)中查詢，增加，刪除員工的信息，實現(xiàn)對員工信息的管理）二、實訓要求建立員工基本信息數(shù)據(jù)庫，通過vf數(shù)據(jù)編程建立數(shù)據(jù)交換窗口與數(shù)據(jù)庫鏈接，實現(xiàn)數(shù)據(jù)交換，便于數(shù)據(jù)庫數(shù)據(jù)信息的管理。員工信息在本系統(tǒng)能夠進行查詢，增加，刪除等，起到對員工基本信息，員工職位薪水的管理，員工流動情況的分析添加的作用是在添加的窗體之

2、中輸入詳細的員工信息然后通過VB來進行對數(shù)據(jù)庫的增加來實現(xiàn)功能。刪除的作用是有些調走或離職的員工信息進行清除。一旦刪除只能通過添加功能進行彌補。查詢的功能是通過輸入員工號來對查詢個別需要了解的員工的信息。。三個選項的功能一致，但用戶點擊人事信息的來查詢整體員工職位情況的時候會出現(xiàn)一個員工人事信息窗口，這個窗口集合了所有人事信息。三、任務分工四、設計功能登陸界面主菜單員工信息人事信息員工基本信息增加員工刪除員工人事情況人事調動圖1-流程圖五、數(shù)據(jù)結構1、數(shù)據(jù)庫建立（1）用“Access2003”這個軟件來建立學生信息數(shù)

3、據(jù)庫。（2）在使用向導創(chuàng)建表，然后依次輸入需要建立的字段名稱。當完成向導，建立好新的數(shù)據(jù)庫后，應該對其進行屬性的設置（設計視圖）圖2、設計完成的數(shù)據(jù)庫圖3、設計視圖2、數(shù)據(jù)庫與工程間的綁定（1）當數(shù)據(jù)庫建立好之后，需要把數(shù)據(jù)庫與VB進行綁定，點擊開始菜單，選擇設置，然后點擊控制面板，找到管理工具，雙擊數(shù)據(jù)源，選擇第三個進行添加。圖4、數(shù)據(jù)庫與工程的綁定再點“添加”，如下圖：圖四、數(shù)據(jù)源創(chuàng)建點第二個，添加文件，如下圖：圖5、數(shù)據(jù)源建立完成（2）建立工程，在桌面點“MicrosoftVisualBasic6.0”1．打開

4、這個軟件后，建立新工程，取名為“人力資源管理系統(tǒng)”。如圖圖6、人力資源管理界面2、建立登陸界面圖7、登陸界面3、在新建頁面添加控件adodc1,DataGrid，F(xiàn)rame和菜單編輯器。然后在空白的地方右擊鼠標，打開菜單編輯器，在菜單編輯器里面進行菜單名稱的命名圖8、主菜單界面4、建立查詢員工窗口圖9、員工查詢界面5、添加員工窗口圖10、添加員工界面6、刪除員工窗口圖11、刪除員工窗口7、在新建立的工程里，點部件如下圖：圖12、數(shù)據(jù)按鈕設置8.接著畫出上面窗口的按鈕，將按鈕與數(shù)據(jù)庫進行綁定，并設定如下：圖13、數(shù)據(jù)鏈

5、接圖14、數(shù)據(jù)鏈接9.再選上面的那個窗體，并設定為：圖15、數(shù)據(jù)鏈接六、程序代碼設計(1)跳轉登陸面：PrivateSubCommand1_Click()frmLogin.ShowUnloadMeEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText2_Change()nametextText="電子091"EndSub(2)登陸界面：PrivateSubcmdCancel_Click()'設置全局變量為false'不提示失敗的登錄LoginSucceeded=

6、FalseMe.HideEndSubPrivateSubcmdOK_Click()'檢查正確的密碼IftxtUserName="1"AndtxtPassword="1"Then'將代碼放在這里傳遞'成功到calling函數(shù)'設置全局變量時最容易的LoginSucceeded=Truerenliziyuan.ShowMe.HideElseMsgBox"無效的密碼，請重試!",,"登錄"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSub（3）菜單語言：Private

7、Subshanchubumen_Click()shanchubumenform22.ShowEndSubPrivateSubshanchuyuangong_Click()shanchuyuangongform1.ShowEndSubPrivateSubtianjiabumen_Click()tianjiabumenform11.ShowEndSubPrivateSubtianjiayuangong_Click()tianjiayuangongform2.ShowEndSubPrivateSubyuangongchax

8、un_Click()chaxunyuangongforml.ShowEndSub（4）刪除員工語言PrivateSubyes_Click()DimnumAsStringnum=Trim(""&"text1.Text"&"")IfText1.Text=""ThenMsgBox"請輸入添加除員工的信息"ElseIfAdodc5.Recordset