企業(yè)管理系統(tǒng)

1、33/34企業(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修改和刪除用戶和密碼 (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)

2、聘人員檔案管理不僅有利于企業(yè)對應(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ā)工具；對應(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)功能

3、的實(shí)現(xiàn)等幾部分組成。文中所設(shè)計(jì)的“企業(yè)管理系統(tǒng)”是使用Visual Basic 6.0 中文版作為開發(fā)工具，后臺(tái)數(shù)據(jù)庫則采用Access 2003?！捌髽I(yè)管理系統(tǒng)”為工作人員提供信息咨詢等服務(wù)。信息錄入項(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ā)，作為后臺(tái)的Access是一個(gè)非常理想選擇。數(shù)據(jù)庫是M

4、IS中的重要支持技術(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是一種可視化的、面對對象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(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)用軟

5、件系統(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)圖總經(jīng)理總經(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è)管

6、理系統(tǒng)的數(shù)據(jù)流程如圖(2-1) 數(shù)據(jù)流程圖 第3章 系統(tǒng)設(shè)計(jì) 圖1.2業(yè)務(wù)流程圖 第四章系統(tǒng)實(shí)現(xiàn)詳細(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

7、.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) MainF

8、rm 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語句*/ Str

9、ing 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

10、() 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)的主界面其用菜單編輯器完善了主界面的菜單。

11、Private Sub Form_Load() mzgl.Hide dljm.Show End Sub Private Sub sfgl_Click() mzgl.Hide yfgl.Show End Sub4.1.3醫(yī)院藥房管理系統(tǒng)界面圖1-6 該界面顯示了本系統(tǒng)要實(shí)現(xiàn)的藥品信息維護(hù)、查詢等功能。 Private Sub wh_Click()Form3.ShowEnd SubPrivate Sub cx_Click()Form6.ShowEnd SubPrivate Sub note_Click()Shell notepad.exe, 1End SubPrivate Sub jsq_Clic

12、k()Shell calc.exe, 1End SubPrivate Sub tjyh_Click()Form9.ShowEnd SubPrivate Sub ggmm_Click()Form8.ShowEnd Sub4.2修改和添加用戶和密碼 4.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 = ThenMsgBox 請輸入用戶名或密碼 Else If Text2.Text = Text3.Text Th

13、enForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields(user) = Text1.TextForm9.Adodc1.Recordset.Fields(passwd) = Text2.TextForm9.Adodc1.Recordset.Update MsgBox 用戶添加成功 Text1.Text = Text2.Text = Text3.Text = Form9.Adodc1.Refresh Else: MsgBox 兩次輸入的密碼不同，請重新輸入 Text2.Text = Text3.Text = End If End I

14、fEnd Sub Private Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() Left = (Screen.Width - Width) / 2 27 Top = (Screen.Height - Height) / 2End Sub 4.2.2當(dāng)用戶改完原密碼和用戶口令后進(jìn)行確認(rèn)的代碼:Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find user= & username &

15、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.Te

16、xt = Text3.Text = 28 ElseMsgBox 原密碼不正確！, vbCritical, 錯(cuò)誤 Text1.Text = Text2.Text = Text3.Text = End If End SubPrivate Sub Command2_Click()Unload MeEnd Sub退出代碼,可以回到上一層界面:Private Sub Form_Load() Left = (Screen.Width - Width) / 2 Top = (Screen.Height - Height) / 2Adodc1.Refresh End Sub4.3添加、修改界面圖 1-7 實(shí)現(xiàn)

17、的功能：當(dāng)有藥品的進(jìn)庫，出庫，庫存信息改變時(shí)，可以此處完成相關(guān)的添加、修改、刪除操作，并及時(shí)將相關(guān)信息顯示在此界面上。 Private Sub Option1_Click()If Option1.Value = True ThenAdodc1.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 = 庫存藥品.藥品IDAdodc1.Refresh Set DataGrid1.DataSource = Adodc1End IfEnd SubP

18、rivate Sub Option2_Click()If Option2.Value = True ThenAdodc2.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 = 銷售管理.藥品IDAdodc2.Refresh Set DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Option3_Click()If Option3.Value = True ThenAdodc3.RecordSo

19、urce = select 銷售管理.藥品ID,藥品名稱,零售價(jià),銷售量,銷售時(shí)間,零售價(jià)*銷售量 as 銷售金額 from 銷售管理,進(jìn)貨管理 where 進(jìn)貨管理.藥品ID = 銷售管理.藥品IDAdodc3.Refresh Set DataGrid1.DataSource = Adodc3 End IfEnd SubPrivate Sub Command1_Click()On Error Resume NextIf Text1.Text = Then MsgBox 請輸入藥品ID先！ ElseIf Form3.Option1.Value = True Then If Text13.Tex

20、t = 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)儲(chǔ)備量) = Text13.Text Form3.Adodc1.Recordset.Fields(保質(zhì)期) = Text14.Text Form3.Adodc1.Recordset.Update Text1.Text = Text13.Te

21、xt = 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.

22、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(進(jìn)貨價(jià)) = Text6.Text Fo

23、rm3.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 添加

24、成功！ 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(零售價(jià)) = Text10.Text Form3.

25、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 IfEnd IfEnd SubPrivate Sub Text8_Click()Text8.Text = DateEnd SubPrivate Sub Command1_Click()On Error Resu

26、me NextIf 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 Form