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

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

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

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

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

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

6、務(wù)管理。 如圖1.1企業(yè)組織結(jié)構(gòu)圖2.1.2系統(tǒng)目標(biāo)采用現(xiàn)有的軟硬件及科學(xué)的管理系統(tǒng)開發(fā)方案，建立企業(yè)管理系統(tǒng)，實(shí)現(xiàn)企業(yè)管理的計(jì)算機(jī)自動(dòng)化。系統(tǒng)應(yīng)符合企業(yè)管理制度，且達(dá)到操作直觀、方便、實(shí)用、安全等要求。 本系統(tǒng)不但能夠節(jié)省您的時(shí)間，而且會(huì)使您事半功倍。2.2系統(tǒng)數(shù)據(jù)流程圖系統(tǒng)的數(shù)據(jù)是要達(dá)到數(shù)據(jù)的準(zhǔn)確性，數(shù)據(jù)流程分析是系統(tǒng)分析中的基礎(chǔ)環(huán)節(jié)。企業(yè)管理系統(tǒng)的數(shù)據(jù)流程如圖(2-1)數(shù)據(jù)流程圖第3章系統(tǒng)設(shè)計(jì)圖1.2業(yè)務(wù)流程圖第四章系統(tǒng)實(shí)現(xiàn)第4章 詳細(xì)設(shè)計(jì)41界面設(shè)計(jì)4.1.1系統(tǒng)啟動(dòng)界面設(shè)計(jì)圖1-4圖1-4是本系統(tǒng)的初始界面，其實(shí)現(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,用戶名或密碼錯(cuò)誤！JOptionPane.WARNING_M

9、ESSAGE);booleanret=false;Connectioncon=null;PreparedStatementprsm=null;ResultSetrs=null;/*存儲(chǔ)sql語句*/Stringsql=selectuserName,userPasswordfromUserTablewhereuserName=?anduser Password=?;con=ConnectionManager.getCon();/和數(shù)據(jù)庫取得連接tryprsm=con.prepareStatement(sql);/預(yù)編譯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()方法出錯(cuò)了+ex.getMessage();finallyConnectionManager.closeRet(rs);ConnectionManager.closePre(prsm);ConnectionManager.closeCon(co

11、n);returnret;主界面的設(shè)計(jì)圖1-5圖1-5為系統(tǒng)的主界面其用菜單編輯器完善了主界面的菜單。PrivateSubForm_Load()mzgl.Hidedljm.ShowEndSubPrivateSubsfgl_Click()mzgl.Hideyfgl.Show EndSub醫(yī)院藥房管理系統(tǒng)界面圖1-6該界面顯示了本系統(tǒng)要實(shí)現(xiàn)的藥品信息維護(hù)、查詢等功能。PrivateSubwh_Click()Form3.Show EndSubPrivateSubcx_Click()Form6.Show 顯示藥品進(jìn)銷存信息和關(guān)聯(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添加用戶輸入用戶名、密碼、確認(rèn)密碼點(diǎn)確認(rèn)就能夠了非常容易實(shí)現(xiàn)。PrivateSubCommand1_Click()*此代碼說明用戶添加完用戶名和密碼后進(jìn)*行確認(rèn)的功能*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修改密碼當(dāng)用戶改完原密碼和用戶口令后進(jìn)行確認(rèn)的代碼: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新密碼和驗(yàn)證碼不壹致！,vbCritical,錯(cuò)誤Text1.Text=Text2.Text=Text3.Text=ElseMsgBox原密碼不正確！,vbCritical,錯(cuò)誤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實(shí)現(xiàn)的功能： 當(dāng)有藥品的進(jìn)庫， 出庫， 庫存信息改變時(shí)， 能夠此處完成關(guān)聯(lián)的添 加、修改、刪除操作，且及時(shí)將關(guān)聯(lián)信息顯示于此界面上。PrivateSubOption1_Click()IfOption1.Value=TrueThen進(jìn)貨管理

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

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

19、ecordset.Fields(保質(zhì)期)=Text14.TextSetDataGrid1.DataSource=Adodc3EndIfEndSubPrivateSubCommand1_Click()OnErrorResumeNextIfText1.Text=ThenMsgBox請輸入藥品ID先！ElseIfForm3.Option1.Value=TrueThenIfText13.Text=OrText14.Text=ThenMsgBox請把藥品信息添加全先，藥品ID為數(shù)字，無信息可用字符“”代替！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為數(shù)字，無信息可用字符

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(進(jìn)貨價(jià))

22、=Text6.TextForm3.Adodc2.Recordset.Fields(進(jìn)貨量)=Text7.TextForm3.Adodc2.Recordset.Fields(進(jìn)貨日期)=Text8.TextForm3.Adodc2.Recordset.Fields(藥品產(chǎn)地)=Text9.TextForm3.Adodc3.Recordset.Fields(藥品ID)=Text1.TextForm3.Adodc3.Recordset.Fields(零售價(jià))=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為數(shù)字，無信息可用字符“”代替！ElseForm3.Adodc3.Recordset.AddNewForm3.Adodc3.Recordset.Fields(Form3.Adodc3.Recordset.

24、Fields(銷售量)=Text11.Text銷售時(shí)間)=Text12.TextForm3.Adodc1.Recordset.Fields（保質(zhì)期）=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不能夠?yàn)榭盏?！ElseIfForm3.Option1.Value=TrueThenForm3.Adodc1.Recordset.Fields（藥品ID）=Text1.TextForm3.Adodc1.Recordset.Fields（現(xiàn)儲(chǔ)備量）=Text13.TextForm3.Adodc3.Recordset.Fields(銷售時(shí)間)=Text12.TextForm3.Adodc1.Recordset.UpdateElseIfForm3.Option2.Value=TrueThenForm3.Adodc2.Recordset.Fields(藥品ID)=Text1.Tex