人力資源知識企業(yè)人事部查詢系統(tǒng)

1、（人力資源知識）企業(yè)人事部查詢系統(tǒng)20XX年XX月峯年的企業(yè)咨詢咸問經驗.經過實戰(zhàn)驗證可以藩地執(zhí)行的卓越萱理方案.值得您下載擁有企業(yè)管理系統(tǒng)目錄摘要?(2 )第壹章緒論?(4 )1.1摘要背景? ? ? ? ? ? ? ? ? ? ? ? ? ? ?(4)1.2開發(fā)工具的選擇? ? ? ? ? ? ? ? ? ? ? ?(4)第二章系統(tǒng)需求和分析? ? ? ? ? ? ? ? ? ? ? ?(5)2.1總體需求調查? ? ? ? ? ? ? ? ? ? ? ?(5)2.1.1企業(yè)的管理功能?( 5 )2.1.2系統(tǒng)目標調查?(5)2.2系統(tǒng)數據流程分析?(5)第三章系統(tǒng)設計? ? ? ? ?

2、? ? ? ? ? ? ? ?(6)3.1系統(tǒng)總體結構圖?(8)第四章詳細設計? ? ? ? ? ? ? ? ? ? ? ? ? ?(9)4.1界面設計?(9 )4.2修改和刪除用戶和密碼?(12)4.3刪除修改界面?(15 )4.4系統(tǒng)數據庫設計結果?(15)摘要隨著信息技術的不斷發(fā)展，我們對數據和業(yè)務的要求越來越高，因此對應聘 人員的各種信息進行數字化和網絡化的管理也成為必要。壹個完善的應聘人員檔 案管理不僅有利于企業(yè)對應聘人員信息的統(tǒng)計和管理，且有利于提高應聘人員信 息查詢速度。該系統(tǒng)分為賬戶管理模塊，應聘人員檔案添加、查詢、修改模塊， 專業(yè)、民族增刪模塊，數據的導入、導出模塊。本次設計

3、任務是通過開發(fā)壹個數 據庫企業(yè)管理系統(tǒng)，采用VB6.0和Access等軟件為開發(fā)工具；對應用領域進行 調查分析；參考各種資料和進行數據庫編程實踐。通過我們壹個小組三個人的共 同努力，已經基本上成功地實現(xiàn)了設計任務書的要求。使得設計的數據庫系統(tǒng)能 夠實現(xiàn)壹般數據庫的管理。 我們研究了數據庫的查詢優(yōu)化問題.論文主要介紹了本 課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。全文由系統(tǒng)設計、設計工具選擇和簡介、系統(tǒng)功能的實現(xiàn)等幾部分組成。文 中所設計的“企業(yè)管理系統(tǒng)”是使用VisualBasic6.0中文版作為開發(fā)工具，后臺 數據庫則采用Access2003。“企業(yè)管理系統(tǒng)”為工作人員提供信息咨詢等服務。

4、 信息錄入項目齊全、完整、系統(tǒng)。系統(tǒng)靈活使用表格對各種信息分門別類，組成 企業(yè)管理系統(tǒng)，能夠方便地查詢、閱讀、修改、和使用。于對企業(yè)管理系統(tǒng)各個方面進行調研后， 于完成管理系統(tǒng)的設計和實現(xiàn)的基礎 上,寫下這篇論文。第壹章緒論1.1 摘要背景企業(yè)管理系統(tǒng)使原本手工操作的復雜性、 繁瑣工作于電腦鍵盤彈指之間就可 輕松完成。1.2 開發(fā)工具的選擇數據庫系統(tǒng)的開發(fā)，作為后臺的Access是壹個非常理想選擇。 數據庫是MIS中的重要支持技術， 于MIS開發(fā)過程中，如何選擇數據庫管理是壹個重要的問題，目前，數據庫產品較多，每種產品均具有各自的特點和適用范圍，于本系統(tǒng)中主 要采用Access作為后臺工作,本

5、系統(tǒng)選用的數據庫語言，該開發(fā)工具具有很多長 處。VisualBasic是壹種可視化的、面對對象和條用事件驅動方式的結構化高級 程序設計， 可用于開發(fā)Windows環(huán)境下的種類應用程序。 它簡單易學、 效率高， 且功能強大，能夠和Windows的專業(yè)開發(fā)工具SDK相媲美，于VisualBasic環(huán) 境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，能夠高效、快速 地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。運用VB于加上Access作為其后臺，會使系統(tǒng)更加完善。第2章需求分析2.1總體需求調查2.1.1企業(yè)的管理功能生產管理、采購管理、銷售管理、人事管理、庫存管理、財

6、務管理。 如圖1.1企業(yè)組織結構圖2.1.2系統(tǒng)目標采用現(xiàn)有的軟硬件及科學的管理系統(tǒng)開發(fā)方案，建立企業(yè)管理系統(tǒng)，實現(xiàn)企業(yè)管理的計算機自動化。系統(tǒng)應符合企業(yè)管理制度，且達到操作直觀、方便、實用、安全等要求。 本系統(tǒng)不但能夠節(jié)省您的時間，而且會使您事半功倍。2.2系統(tǒng)數據流程圖系統(tǒng)的數據是要達到數據的準確性，數據流程分析是系統(tǒng)分析中的基礎環(huán)節(jié)。企業(yè)管理系統(tǒng)的數據流程如圖(2-1)數據流程圖第3章系統(tǒng)設計圖1.2業(yè)務流程圖第四章系統(tǒng)實現(xiàn)第4章 詳細設計41界面設計4.1.1系統(tǒng)啟動界面設計圖1-4圖1-4是本系統(tǒng)的初始界面，其實現(xiàn)的是用戶登陸系統(tǒng)。Stringname=txtName.getText

7、().trim();Stringpass=String.valueOf(txtPassword.getPassword();if(name.equals()JOptionPane.showMessageDialog(this,用戶名,警告,JOptionPane.WARNING_MESSAGE);txtName.requestFocus();return;if(pass.equals()JOptionPane.showMessageDialog(this,密碼,警告,JOptionPane.WARNING_MESSAGE);txtPassword.requestFocus();return;/

8、*創(chuàng)建UserTable類的對象*/UserTableuser=newUserTable();user.setUserName(name);user.setUserPassword(pass);if(LoginBusiness.userIsRight(user)MainFrmmainfrm=newMainFrm();MainFrm.setFrameMiddle(mainfrm);mainfrm.setVisible(true);this.dispose();elseJOptionPane.showMessageDialog(this,用戶名或密碼錯誤！JOptionPane.WARNING_M

9、ESSAGE);booleanret=false;Connectioncon=null;PreparedStatementprsm=null;ResultSetrs=null;/*存儲sql語句*/Stringsql=selectuserName,userPasswordfromUserTablewhereuserName=?anduser Password=?;con=ConnectionManager.getCon();/和數據庫取得連接tryprsm=con.prepareStatement(sql);/預編譯sql語句prsm.setString(1,user.getUserName(

10、);prsm.setString(2,user.getUserPassword();rs=prsm.executeQuery();if(rs.next()ret=true;System.out.println(查詢成功！);catch(SQLExceptionex)System.out.println(UserTableDao類中的checkUser()方法出錯了+ex.getMessage();finallyConnectionManager.closeRet(rs);ConnectionManager.closePre(prsm);ConnectionManager.closeCon(co

11、n);returnret;主界面的設計圖1-5圖1-5為系統(tǒng)的主界面其用菜單編輯器完善了主界面的菜單。PrivateSubForm_Load()mzgl.Hidedljm.ShowEndSubPrivateSubsfgl_Click()mzgl.Hideyfgl.Show EndSub醫(yī)院藥房管理系統(tǒng)界面圖1-6該界面顯示了本系統(tǒng)要實現(xiàn)的藥品信息維護、查詢等功能。PrivateSubwh_Click()Form3.Show EndSubPrivateSubcx_Click()Form6.Show 顯示藥品進銷存信息和關聯(lián)金額的查詢功能界面EndSubPrivateSubnote_Click()

12、Shellnotepad.exe,1 EndSubPrivateSubjsq_Click()Shellcalc.exe,1 EndSubPrivateSubtjyh_Click()Form9.Show EndSubPrivateSubggmm_Click()Form8.Show EndSubn修改和添加用戶和密碼4.2.1添加用戶輸入用戶名、密碼、確認密碼點確認就能夠了非常容易實現(xiàn)。PrivateSubCommand1_Click()*此代碼說明用戶添加完用戶名和密碼后進*行確認的功能*IfText1.Text=OrText2.Text=ThenMsgBox請輸入用戶名或密碼Else27IfT

13、ext2.Text=Text3.TextThenForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields(user)=Text1.TextForm9.Adodc1.Recordset.Fields(passwd)=Text2.TextForm9.Adodc1.Recordset.UpdateMsgBox用戶添加成功Text1.Text=Text2.Text=Text3.Text=Form9.Adodc1.RefreshElse:MsgBox倆次輸入的密碼不同，請重新輸入Text2.Text=Text3.Text=EndIfEndIfE

14、ndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()Left=(Screen.Width-Width)/2Top=(Screen.Height-Height)/228EndSub修改密碼當用戶改完原密碼和用戶口令后進行確認的代碼:PrivateSubCommand1_Click()OnErrorResumeNextAdodc1.Recordset.MoveFirstAdodc1.Recordset.Finduser=&username&IfAdodc1.Recordset.Fields(passwd).Value=

15、Text1.TextThenIfText2.Text=Text3.TextThenAdodc1.Recordset.Fields(passwd).Value=Text2.TextAdodc1.Recordset.UpdateMsgBox密碼修改成功！,vbInformation,信息Text1.Text=Text2.Text=Text3.Text=ElseMsgBox新密碼和驗證碼不壹致！,vbCritical,錯誤Text1.Text=Text2.Text=Text3.Text=ElseMsgBox原密碼不正確！,vbCritical,錯誤Text1.Text=Text2.Text=Text

16、3.Text=EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub退出代碼,能夠回到上壹層界面:PrivateSubForm_Load()Left=(Screen.Width-Width)/2Top=(Screen.Height-Height)/2Adodc1.RefreshEndSubn添加、修改界面圖1-7實現(xiàn)的功能： 當有藥品的進庫， 出庫， 庫存信息改變時， 能夠此處完成關聯(lián)的添 加、修改、刪除操作，且及時將關聯(lián)信息顯示于此界面上。PrivateSubOption1_Click()IfOption1.Value=TrueThen進貨管理

17、.進貨價，進貨價*現(xiàn)儲備量as庫存藥品金額from進貨管理，庫存藥品where進貨管理.藥品ID=庫存藥品.藥品IDAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndIfEndSubPrivateSubOption2_Click()IfOption2.Value=TrueThenAdodc2.RecordSource=select進貨管理.藥品ID,藥品名稱,進貨價，進貨量泄貨日期,進貨價*進貨量as進貨金額from進貨管理,銷售管理where進貨管理.藥 品ID=銷售管理.藥品IDAdodc2.RefreshSetDataGrid1.DataSou

18、rce=Adodc2EndIfEndSubPrivateSubOption3_Click()IfOption3.Value=TrueThenAdodc3.RecordSource=select銷售管理.藥品ID,藥品名稱，零售價,銷售量，銷Adodc1.RecordSource=select庫存藥品.藥品ID,藥品名稱,保質期，現(xiàn)儲備量,售時間,零售價*銷售量as銷售金額from銷售管理,進貨管理where進貨管理.藥 品ID=銷售管理.藥品IDAdodc3.RefreshForm3.Adodc1.Recordset.Fields(現(xiàn)儲備量)=Text13.TextForm3.Adodc1.R

19、ecordset.Fields(保質期)=Text14.TextSetDataGrid1.DataSource=Adodc3EndIfEndSubPrivateSubCommand1_Click()OnErrorResumeNextIfText1.Text=ThenMsgBox請輸入藥品ID先！ElseIfForm3.Option1.Value=TrueThenIfText13.Text=OrText14.Text=ThenMsgBox請把藥品信息添加全先，藥品ID為數字，無信息可用字符“”代替！ElseForm3.Adodc1.Recordset.AddNewForm3.Adodc1.Rec

20、ordset.Fields(Form3.Adodc1.Recordset.UpdateText1.Text=藥品ID)=Text1.TextText13.Text=Text14.Text=MsgBox添加成功！EndIfElseIfForm3.Option2.Value=TrueThenIfText1.Text=OrText2.Text=OrText3.Text=OrText4.Text=Or_Text5.Text=OrText6.Text=OrText7.Text=OrText8.Text=Or_Text9.Text=_ThenMsgBox請把藥品信息添加全先，藥品ID為數字，無信息可用字符

21、“”代替！ElseForm3.Adodc2.Recordset.AddNewForm3.Adodc2.Recordset.Fields(藥品ID)=Text1.TextForm3.Adodc2.Recordset.Fields(藥品分類)=Text2.TextForm3.Adodc2.Recordset.Fields(藥品名稱)=Text3.TextForm3.Adodc2.Recordset.Fields(規(guī)格型號)=Text4.TextForm3.Adodc2.Recordset.Fields(單位)=Text5.TextForm3.Adodc2.Recordset.Fields(進貨價)

22、=Text6.TextForm3.Adodc2.Recordset.Fields(進貨量)=Text7.TextForm3.Adodc2.Recordset.Fields(進貨日期)=Text8.TextForm3.Adodc2.Recordset.Fields(藥品產地)=Text9.TextForm3.Adodc3.Recordset.Fields(藥品ID)=Text1.TextForm3.Adodc3.Recordset.Fields(零售價)=Text10.TextForm3.Adodc2.Recordset.UpdateText1.Text=Text2.Text=Text3.Tex

23、t=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Text9.Text=MsgBox添加成功！EndIfElseIfForm3.Option3.Value=TrueThenIfText1.Text=OrText10.Text=OrText11.Text=OrText12.Text=ThenMsgBox請把藥品信息添加全先，藥品ID為數字，無信息可用字符“”代替！ElseForm3.Adodc3.Recordset.AddNewForm3.Adodc3.Recordset.Fields(Form3.Adodc3.Recordset.

24、Fields(銷售量)=Text11.Text銷售時間)=Text12.TextForm3.Adodc1.Recordset.Fields（保質期）=Text14.TextMsgBox修改成功！IIForm3.Adodc3.Recordset.UpdateText1.Text=Text10.Text=Text11.Text=Text12.Text=MsgBox添加成功！EndIfEndIfEndSubPrivateSubText8_Click（）Text8.Text=DateEndSubPrivateSubCommand1_Click（）OnErrorResumeNextIfText1.Tex

25、t=ThenMsgBox藥品ID不能夠為空的！ElseIfForm3.Option1.Value=TrueThenForm3.Adodc1.Recordset.Fields（藥品ID）=Text1.TextForm3.Adodc1.Recordset.Fields（現(xiàn)儲備量）=Text13.TextForm3.Adodc3.Recordset.Fields(銷售時間)=Text12.TextForm3.Adodc1.Recordset.UpdateElseIfForm3.Option2.Value=TrueThenForm3.Adodc2.Recordset.Fields(藥品ID)=Text1.Tex