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

企業(yè)管理系統(tǒng)企業(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)數(shù)據(jù)流程分析 ( 5 ) 第三章 系統(tǒng)設計 (6) 3.1 系統(tǒng)總體結構圖 ( 8 ) 第四章 詳細設計 ( 9 ) 4.1 界面設計 ( 9 ) 4.2 修改和刪除用戶和密碼 ( 1 2 ) 4.3 刪除修改界面 ( 1 5 ) 4.4 系統(tǒng)數(shù)據(jù)庫設計結果 ( 1 5 ) 摘摘 要要 隨著信息技術的不斷發(fā)展，我們對數(shù)據(jù)和業(yè)務的要求越來越高，因此對應 聘人員的各種信息進行數(shù)字化和網絡化的管理也成為必要。一個完善的應聘人 員檔案管理不僅有利于企業(yè)對應聘人員信息的統(tǒng)計和管理，且有利于提高應聘 人員信息查詢速度。該系統(tǒng)分為賬戶管理模塊，應聘人員檔案添加、查詢、修 改模塊，專業(yè)、民族增刪模塊，數(shù)據(jù)的導入、導出模塊。本次設計任務是通過 開發(fā)一個數(shù)據(jù)庫企業(yè)管理系統(tǒng)，采用 VB6.0 和 Access 等軟件為開發(fā)工具；對應 用領域進行調查分析；參考各種資料和進行數(shù)據(jù)庫編程實踐。通過我們一個小 組三個人的共同努力，已經基本上成功地實現(xiàn)了設計任務書的要求。使得設計 的數(shù)據(jù)庫系統(tǒng)能夠實現(xiàn)一般數(shù)據(jù)庫的管理。我們研究了數(shù)據(jù)庫的查詢優(yōu)化問題 .論 文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。 全文由系統(tǒng)設計、設計工具選擇與簡介、系統(tǒng)功能的實現(xiàn)等幾部分組成。 文中所設計的“企業(yè)管理系統(tǒng)”是使用 Visual Basic 6.0 中文版作為開發(fā)工 具，后臺數(shù)據(jù)庫則采用 Access 2003。 “企業(yè)管理系統(tǒng)”為工作人員提供信息咨 詢等服務。信息錄入項目齊全、完整、系統(tǒng)。系統(tǒng)靈活使用表格對各種信息分 門別類，組成企業(yè)管理系統(tǒng)，可以方便地查詢、閱讀、修改、和使用。 在對企業(yè)管理系統(tǒng)各個方面進行調研后，在完成管理系統(tǒng)的設計與實現(xiàn)的基 礎上,寫下這篇論文。 第一章 緒論 1.1 摘要背景 企業(yè)管理系統(tǒng)使原本手工操作的復雜性、繁瑣工作在電腦鍵盤彈指之間就 可輕松完成。 1.21.2 開發(fā)工具的選擇 數(shù)據(jù)庫系統(tǒng)的開發(fā)，作為后臺的 Access 是一個非常理想選擇。數(shù)據(jù)庫是 MIS 中的重要支持技術，在 MIS 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要 的問題，目前，數(shù)據(jù)庫產品較多，每種產品都具有各自的特點和適用范圍，在 本系統(tǒng)中主要采用 Access 作為后臺工作,本系統(tǒng)選用的數(shù)據(jù)庫語言，該開發(fā)工 具具有很多長處。 Visual Basic 是一種可視化的、面對對象和條用事件驅動方式的結構化高 級程序設計，可用于開發(fā) Windows 環(huán)境下的種類應用程序。它簡單易學、效率 高，且功能強大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美， 在 Visual Basic 環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，可以 高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。 運用 VB 在加上 Access 作為其后臺，會使系統(tǒng)更加完善。 第 2 章 需求分析 2.1 總體需求調查 2.1.1 企業(yè)的管理功能 生產管理、采購管理、銷售管理、人事管理、庫存管理、財務管理。 如圖 1.1企業(yè)組織結構圖企業(yè)組織結構圖 總經理 副總副總副總 銷售部人事部綜合部財務部生產部品管部 1車間 2車間 物流部 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)數(shù)據(jù)流程圖 系統(tǒng)的數(shù)據(jù)是要達到數(shù)據(jù)的準確性，數(shù)據(jù)流程分析是系統(tǒng)分析中的基礎環(huán)節(jié)。 企業(yè)管理系統(tǒng)的數(shù)據(jù)流程如圖(2-1) 數(shù)據(jù)流程圖數(shù)據(jù)流程圖 第 3 章 系統(tǒng)設計 圖圖 1.21.2 業(yè)務流程圖業(yè)務流程圖 第四章第四章 系統(tǒng)實現(xiàn)系統(tǒng)實現(xiàn) 第 4 章 詳細設計 41 界面設計 4.1.1 系統(tǒng)啟動界面設計 圖 1-4 圖 1-4 是本系統(tǒng)的初始界面，其實現(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 類的對象*/ 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, “用戶名或密碼錯誤！“, “警告“, JOptionPane.WARNING_MESSAGE); boolean ret = false; Connection con = null; PreparedStatement prsm = null; ResultSet rs = null; /*存儲 sql 語句*/ String sql = “select userName,userPassword from UserTable where userName=? and userPassword=?“; con = ConnectionManager.getCon(); /與數(shù)據(jù)庫取得連接 try prsm = con.prepareStatement(sql); /預編譯 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()方法出錯了“ + ex.getMessage(); finally ConnectionManager.closeRet(rs); ConnectionManager.closePre(prsm); ConnectionManager.closeCon(con); return ret; 4.1.2 主界面的設計 圖 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)要實現(xiàn)的藥品信息維護、查詢等功能。 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 添加用戶添加用戶 輸入用戶名、密碼、確認密碼點確認就可以了非常容易實現(xiàn)。 Private Sub Command1_Click() *此代碼說明用戶添加完用戶名和密 碼后進* 行確認的功能* If Text1.Text = “ Or Text2.Text = “ Then MsgBox “請輸入用戶名或密碼“ 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 “兩次輸入的密碼不同，請重新輸入“ 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 修改密碼 當用戶改完原密碼和用戶口令后進行確認的代碼: 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 “新密碼與驗證碼不一致！“, vbCritical, “錯誤“ Text1.Text = “ Text2.Text = “ Text3.Text = “ 28 Else MsgBox “原密碼不正確！“, vbCritical, “錯誤“ 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 實現(xiàn)的功能：當有藥品的進庫，出庫，庫存信息改變時，可以此處完成 相關的添加、修改、刪除操作，并及時將相關信息顯示在此界面上。 Private Sub Option1_Click() If Option1.Value = True Then Adodc1.RecordSource = “select 庫存藥品.藥品 ID,藥品名稱,保質期,現(xiàn)儲備量,進 貨管理.進貨價,進貨價*現(xiàn)儲備量 as 庫存藥品金額 from 進貨管理,庫存藥品 where 進貨管理.藥品 ID = 庫存藥品.藥品 ID“ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Adodc2.RecordSource = “select 進貨管理.藥品 ID,藥品名稱,進貨價,進貨量,進貨 日期,進貨價*進貨量 as 進貨金額 from 進貨管理,銷售管理 where 進貨管理.藥 品 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,藥品名稱,零售價,銷售量,銷售 時間,零售價*銷售量 as 銷售金額 from 銷售管理,進貨管理 where 進貨管理.藥 品 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 “請輸入藥品 ID 先！“ ElseIf Form3.Option1.Value = True Then If Text13.Text = “ Or Text14.Text = “ Then MsgBox “請把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！“ Else Form3.Adodc1.Recordset.AddNew Form3.Adodc1.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc1.Recordset.Fields(“現(xiàn)儲備量“) = Text13.Text Form3.Adodc1.Recordset.Fields(“保質期“) = 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 “請把藥品信息添加全先，藥品 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ī)格型號“) = Text4.Text Form3.Adodc2.Recordset.Fields(“單位“) = Text5.Text Form3.Adodc2.Recordset.Fields(“進貨價“) = Text6.Text Form3.Adodc2.Recordset.Fields(“進貨量“) = Text7.Text Form3.Adodc2.Recordset.Fields(“進貨日期“) = Text8.Text Form3.Adodc2.Recordset.Fields(“藥品產地“) = 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 “請把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！“ Else Form3.Adodc3.Recordset.AddNew Form3.Adodc3.Recordset.Fields(“藥品 ID“) = Text1.Text Form3.Adodc3.Recordset.Fields(“零售價“) = Text10.Text Form3.Adodc3.Recordset.Fields(“銷售量“) = Text11.Text Form3.Adodc3.Recordset.Fields(“銷售時間“) = 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)儲備量“) = Text13.Text Form3.Adodc1.Recordset.Fields(“保質期“) = 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