人力資源知識(shí)_企業(yè)管理系統(tǒng)

企業(yè)管理系統(tǒng)企業(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ì) (6) 3.1 系統(tǒng)總體結(jié)構(gòu)圖 ( 8 ) 第四章 詳細(xì)設(shè)計(jì) ( 9 ) 4.1 界面設(shè)計(jì) ( 9 ) 4.2 修改和刪除用戶和密碼 ( 1 2 ) 4.3 刪除修改界面 ( 1 5 ) 4.4 系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)結(jié)果 ( 1 5 ) 摘摘 要要 隨著信息技術(shù)的不斷發(fā)展，我們對(duì)數(shù)據(jù)和業(yè)務(wù)的要求越來越高，因此對(duì)應(yīng) 聘人員的各種信息進(jìn)行數(shù)字化和網(wǎng)絡(luò)化的管理也成為必要。一個(gè)完善的應(yīng)聘人 員檔案管理不僅有利于企業(yè)對(duì)應(yīng)聘人員信息的統(tǒng)計(jì)和管理，且有利于提高應(yīng)聘 人員信息查詢速度。該系統(tǒng)分為賬戶管理模塊，應(yīng)聘人員檔案添加、查詢、修 改模塊，專業(yè)、民族增刪模塊，數(shù)據(jù)的導(dǎo)入、導(dǎo)出模塊。本次設(shè)計(jì)任務(wù)是通過 開發(fā)一個(gè)數(shù)據(jù)庫企業(yè)管理系統(tǒng)，采用 VB6.0 和 Access 等軟件為開發(fā)工具；對(duì)應(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)”是使用 Visual Basic 6.0 中文版作為開發(fā)工 具，后臺(tái)數(shù)據(jù)庫則采用 Access 2003。 “企業(yè)管理系統(tǒng)”為工作人員提供信息咨 詢等服務(wù)。信息錄入項(xiàng)目齊全、完整、系統(tǒng)。系統(tǒng)靈活使用表格對(duì)各種信息分 門別類，組成企業(yè)管理系統(tǒng)，可以方便地查詢、閱讀、修改、和使用。 在對(duì)企業(yè)管理系統(tǒng)各個(gè)方面進(jìn)行調(diào)研后，在完成管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)的基 礎(chǔ)上,寫下這篇論文。 第一章 緒論 1.1 摘要背景 企業(yè)管理系統(tǒng)使原本手工操作的復(fù)雜性、繁瑣工作在電腦鍵盤彈指之間就 可輕松完成。 1.21.2 開發(fā)工具的選擇 數(shù)據(jù)庫系統(tǒng)的開發(fā)，作為后臺(tái)的 Access 是一個(gè)非常理想選擇。數(shù)據(jù)庫是 MIS 中的重要支持技術(shù)，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要 的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，在 本系統(tǒng)中主要采用 Access 作為后臺(tái)工作,本系統(tǒng)選用的數(shù)據(jù)庫語言，該開發(fā)工 具具有很多長處。 Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高 級(jí)程序設(shè)計(jì)，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率 高，且功能強(qiáng)大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美， 在 Visual Basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，可以 高效、快速地開發(fā)出 Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。 運(yùn)用 VB 在加上 Access 作為其后臺(tái)，會(huì)使系統(tǒng)更加完善。 第 2 章 需求分析 2.1 總體需求調(diào)查 2.1.1 企業(yè)的管理功能 生產(chǎn)管理、采購管理、銷售管理、人事管理、庫存管理、財(cái)務(wù)管理。 如圖 1.1企業(yè)組織結(jié)構(gòu)圖企業(yè)組織結(jié)構(gòu)圖 總經(jīng)理 副總副總副總 銷售部人事部綜合部財(cái)務(wù)部生產(chǎn)部品管部 1車間 2車間 物流部 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ù)流程圖數(shù)據(jù)流程圖 第 3 章 系統(tǒng)設(shè)計(jì) 圖圖 1.21.2 業(yè)務(wù)流程圖業(yè)務(wù)流程圖 第四章第四章 系統(tǒng)實(shí)現(xiàn)系統(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)。 String name = txtName.getText().trim(); String pass = 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; /*創(chuàng)建 UserTable 類的對(duì)象*/ UserTable user = new UserTable(); user.setUserName(name); user.setUserPassword(pass); if (LoginBusiness.userIsRight(user) MainFrm mainfrm = new MainFrm(); MainFrm.setFrameMiddle(mainfrm); mainfrm.setVisible(true); this.dispose(); else JOptionPane.showMessageDialog(this, “用戶名或密碼錯(cuò)誤！“, “警告“, JOptionPane.WARNING_MESSAGE); boolean ret = false; Connection con = null; PreparedStatement prsm = null; ResultSet rs = null; /*存儲(chǔ) sql 語句*/ String sql = “select userName,userPassword from UserTable where userName=? and userPassword=?“; con = ConnectionManager.getCon(); /與數(shù)據(jù)庫取得連接 try prsm = con.prepareStatement(sql); /預(yù)編譯 sql 語句 prsm.setString(1, user.getUserName(); prsm.setString(2, user.getUserPassword(); rs = prsm.executeQuery(); if (rs.next() ret = true; System.out.println(“查詢成功！“); catch (SQLException ex) System.out.println(“UserTableDao 類中的 checkUser()方法出錯(cuò)了“ + ex.getMessage(); finally ConnectionManager.closeRet(rs); ConnectionManager.closePre(prsm); ConnectionManager.closeCon(con); return ret; 4.1.2 主界面的設(shè)計(jì) 圖 1-5 圖 1-5 為系統(tǒng)的主界面其用菜單編輯器完善了主界面的菜單。 Private Sub Form_Load() mzgl.Hide dljm.Show End Sub Private Sub sfgl_Click() mzgl.Hide yfgl.Show End Sub 4.1.3 醫(yī)院藥房管理系統(tǒng)界面 圖 1-6 該界面顯示了本系統(tǒng)要實(shí)現(xiàn)的藥品信息維護(hù)、查詢等功能。 Private Sub wh_Click() Form3.Show End Sub Private Sub cx_Click() Form6.Show End Sub Private Sub note_Click() Shell “notepad.exe“, 1 End Sub Private Sub jsq_Click() Shell “calc.exe“, 1 End Sub Private Sub tjyh_Click() Form9.Show End Sub Private Sub ggmm_Click() Form8.Show End Sub 4.24.2 修改和添加用戶和密碼修改和添加用戶和密碼 4.2.14.2.1 添加用戶添加用戶 輸入用戶名、密碼、確認(rèn)密碼點(diǎn)確認(rèn)就可以了非常容易實(shí)現(xiàn)。 Private Sub Command1_Click() *此代碼說明用戶添加完用戶名和密 碼后進(jìn)* 行確認(rèn)的功能* If Text1.Text = “ Or Text2.Text = “ Then MsgBox “請(qǐng)輸入用戶名或密碼“ Else If Text2.Text = Text3.Text Then Form9.Adodc1.Recordset.AddNew Form9.Adodc1.Recordset.Fields(“user“) = Text1.Text Form9.Adodc1.Recordset.Fields(“passwd“) = Text2.Text Form9.Adodc1.Recordset.Update MsgBox “用戶添加成功“ Text1.Text = “ Text2.Text = “ Text3.Text = “ Form9.Adodc1.Refresh Else: MsgBox “兩次輸入的密碼不同，請(qǐng)重新輸入“ Text2.Text = “ Text3.Text = “ End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Left = (Screen.Width - Width) / 2 27 Top = (Screen.Height - Height) / 2 End Sub 4.2.24.2.2 修改密碼 當(dāng)用戶改完原密碼和用戶口令后進(jìn)行確認(rèn)的代碼: Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find “user=“ & username & “ If Adodc1.Recordset.Fields(“passwd“).Value = Text1.Text Then If Text2.Text = Text3.Text Then Adodc1.Recordset.Fields(“passwd“).Value = Text2.Text Adodc1.Recordset.Update MsgBox “密碼修改成功！“, vbInformation, “信息“ Text1.Text = “ Text2.Text = “ Text3.Text = “ Else MsgBox “新密碼與驗(yàn)證碼不一致！“, vbCritical, “錯(cuò)誤“ Text1.Text = “ Text2.Text = “ Text3.Text = “ 28 Else MsgBox “原密碼不正確！“, vbCritical, “錯(cuò)誤“ Text1.Text = “ Text2.Text = “ Text3.Text = “ End If End Sub Private Sub Command2_Click() Unload Me End Sub 退出代碼,可以回到上一層界面: Private Sub Form_Load() Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2 Adodc1.Refresh End Sub 4.3 添加、修改界面 圖 1-7 實(shí)現(xiàn)的功能：當(dāng)有藥品的進(jìn)庫，出庫，庫存信息改變時(shí)，可以此處完成 相關(guān)的添加、修改、刪除操作，并及時(shí)將相關(guān)信息顯示在此界面上。 Private Sub Option1_Click() If Option1.Value = True Then Adodc1.RecordSource = “select 庫存藥品.藥品 ID,藥品名稱,保質(zhì)期,現(xiàn)儲(chǔ)備量,進(jìn) 貨管理.進(jìn)貨價(jià),進(jìn)貨價(jià)*現(xiàn)儲(chǔ)備量 as 庫存藥品金額 from 進(jìn)貨管理,庫存藥品 where 進(jìn)貨管理.藥品 ID = 庫存藥品.藥品 ID“ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Adodc2.RecordSource = “select 進(jìn)貨管理.藥品 ID,藥品名稱,進(jìn)貨價(jià),進(jìn)貨量,進(jìn)貨 日期,進(jìn)貨價(jià)*進(jìn)貨量 as 進(jìn)貨金額 from 進(jìn)貨管理,銷售管理 where 進(jìn)貨管理.藥 品 ID = 銷售管理.藥品 ID“ Adodc2.Refresh Set DataGrid1.DataSource = Adodc2 End If End Sub Private Sub Option3_Click() If Option3.Value = True Then Adodc3.RecordSource = “select 銷售管理.藥品 ID,藥品名稱,零售價(jià),銷售量,銷售 時(shí)間,零售價(jià)*銷售量 as 銷售金額 from 銷售管理,進(jìn)貨管理 where 進(jìn)貨管理.藥 品 ID = 銷售管理.藥品 ID“ Adodc3.Refresh Set DataGrid1.DataSource = Adodc3 End If End Sub Private Sub Command1_Click() On Error Resume Next If Text1.Text = “ Then MsgBox “請(qǐng)輸入藥品 ID 先！“ ElseIf Form3.Option1.Value = True Then If Text13.Text = “ Or Text14.Text = “ Then MsgBox “請(qǐng)把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！“ Else Form3.Adodc1.Recordset.AddNew Form3.Adodc1.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc1.Recordset.Fields(“現(xiàn)儲(chǔ)備量“) = Text13.Text Form3.Adodc1.Recordset.Fields(“保質(zhì)期“) = Text14.Text Form3.Adodc1.Recordset.Update Text1.Text = “ Text13.Text = “ Text14.Text = “ MsgBox “添加成功！“ End If ElseIf Form3.Option2.Value = True Then If Text1.Text = “ Or Text2.Text = “ Or Text3.Text = “ Or Text4.Text = “ Or _ Text5.Text = “ Or Text6.Text = “ Or Text7.Text = “ Or Text8.Text = “ Or _ Text9.Text = “ _ Then MsgBox “請(qǐng)把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！“ Else Form3.Adodc2.Recordset.AddNew Form3.Adodc2.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc2.Recordset.Fields(“藥品分類“) = Text2.Text Form3.Adodc2.Recordset.Fields(“藥品名稱“) = Text3.Text Form3.Adodc2.Recordset.Fields(“規(guī)格型號(hào)“) = Text4.Text Form3.Adodc2.Recordset.Fields(“單位“) = Text5.Text Form3.Adodc2.Recordset.Fields(“進(jìn)貨價(jià)“) = Text6.Text Form3.Adodc2.Recordset.Fields(“進(jìn)貨量“) = Text7.Text Form3.Adodc2.Recordset.Fields(“進(jìn)貨日期“) = Text8.Text Form3.Adodc2.Recordset.Fields(“藥品產(chǎn)地“) = Text9.Text Form3.Adodc2.Recordset.Update Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text5.Text = “ Text6.Text = “ Text7.Text = “ Text8.Text = “ Text9.Text = “ MsgBox “添加成功！“ End If ElseIf Form3.Option3.Value = True Then If Text1.Text = “ Or Text10.Text = “ Or Text11.Text = “ Or Text12.Text = “ Then MsgBox “請(qǐng)把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！“ Else Form3.Adodc3.Recordset.AddNew Form3.Adodc3.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc3.Recordset.Fields(“零售價(jià)“) = Text10.Text Form3.Adodc3.Recordset.Fields(“銷售量“) = Text11.Text Form3.Adodc3.Recordset.Fields(“銷售時(shí)間“) = Text12.Text Form3.Adodc3.Recordset.Update Text1.Text = “ Text10.Text = “ Text11.Text = “ Text12.Text = “ MsgBox “添加成功！“ End If End If End Sub Private Sub Text8_Click() Text8.Text = Date End Sub Private Sub Command1_Click() On Error Resume Next If Text1.Text = “ Then MsgBox “藥品 ID 不可以為空的！“ Else If Form3.Option1.Value = True Then Form3.Adodc1.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc1.Recordset.Fields(“現(xiàn)儲(chǔ)備量“) = Text13.Text Form3.Adodc1.Recordset.Fields(“保質(zhì)期“) = Text14.Text MsgBox “修改成功！“ Form3.Adodc1.Recordset.Update Else If Form3.Option2.Value = True Then Form3.Adodc2.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc2.Recordset.Fields(“藥品分類“) = Text2.Text Form3.Adodc2.Recordset.Fields