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

1、第一章論? ? ? ? ? ?4)1.1摘要背景 ? ? ? ? ?4)1.2開發(fā)工具的選擇 ? ? ? ?4)第二章系統(tǒng)需求與分析? ? ? ? ?5)2.1總體需求調查 ? ? ? ? ?5)企業(yè)管理系統(tǒng)2)要 ? ? ? ? ? ? ?( 5)2.2系統(tǒng)數(shù)據(jù)流程分析?( 5 )2.1.1企業(yè)的管理功能 ? ? ( 5 )2.1.2 系統(tǒng)目標調查 ? ? ? ?3.1 系統(tǒng)總體結構圖第三章 系統(tǒng)設計 ? ? ? ? ( 6)? ( 8 )第四章 詳細設計 ? ? ? ? ?( 9 )4.1界面設計? ? ? ? ( 9 )4.2修改和刪除用戶和密碼? ( 1 2 )4.3刪除修改界面 ?(

2、 1 5 )4.4系統(tǒng)數(shù)據(jù)庫設計結果?( 1 5 )摘要隨著信息技術的不斷發(fā)展， 我們對數(shù)據(jù)和業(yè)務的要求越來越高， 因此對應聘 人員的各種信息進行數(shù)字化和網(wǎng)絡化的管理也成為必要。 一個完善的應聘人員檔 案管理不僅有利于企業(yè)對應聘人員信息的統(tǒng)計和管理， 且有利于提高應聘人員信 息查詢速度。該系統(tǒng)分為賬戶管理模塊，應聘人員檔案添加、查詢、修改模塊， 專業(yè)、民族增刪模塊，數(shù)據(jù)的導入、導出模塊。本次設計任務是通過開發(fā)一個數(shù) 據(jù)庫企業(yè)管理系統(tǒng)，采用 VB6.0和Access等軟件為開發(fā)工具；對應用領域進行 調查分析； 參考各種資料和進行數(shù)據(jù)庫編程實踐。 通過我們一個小組三個人的共 同努力，已經基本上成功

3、地實現(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 ?！捌髽I(yè)管理系統(tǒng)”為工作人員提供信息咨詢等 服務。信息錄入項目齊全、 完整、系統(tǒng)。系統(tǒng)靈活使用表格對各種信息分門別類， 組成企業(yè)管理系統(tǒng)，可以方便地查詢、閱讀、修改、和使用。在對企業(yè)管理系統(tǒng)各個方面進行調研后，在完成管理系統(tǒng)

4、的設計與實現(xiàn)的基 礎上, 寫下這篇論文。第一章 緒論1.1 摘要背景企業(yè)管理系統(tǒng)使原本手工操作的復雜性、 繁瑣工作在電腦鍵盤彈指之間就可 輕松完成。1.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ā)

5、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è)組織結構圖2.1.2系統(tǒng)目標采用現(xiàn)有的軟硬件及科學的管理系統(tǒng)開發(fā)方案，建立企業(yè)管理系統(tǒng)，實現(xiàn)企業(yè)管理的計算機自動化。系統(tǒng)應符

6、合企業(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ù)流程圖第3章系統(tǒng)設計圖1.2業(yè)務流程圖第四章系統(tǒng)實現(xiàn)第4章詳細設計4.1界面設計員工信息錄入姓名：年薪:工號：性別職垃年蟄確定4.1.1系統(tǒng)啟動界面設計圖1-4圖1-4是本系統(tǒng)的初始界面，其實現(xiàn)的是用戶登陸系統(tǒng)。Stri ng n ame = txtName.getText().trim();Stri ng pass = Str in g.valueOf(txtPa

7、ssword.getPassword();if (n ame.equals("") JOptionPane.showMessageDialog(this,"用戶名","警告",JOpti onPan e.WARNING_MESSAGE); txtName.requestFocus();return;if (pass.equals("") JOptionPane.showMessageDialog(this,"密碼","警告",JOpti onPan e.WARNING_MES

8、SAGE); txtPassword.requestFocus();return;/*創(chuàng)建UserTable類的對象*/UserTable user = new UserTable();user.setUserName( name);user.setUserPassword(pass);if (Log in Bus in ess.userIsRight(user) Mai nFrm mainfrm = new Mai nFrm();Mai nF rm.setFrameMiddle(mai nfrm);mai nfrm.setVisible(true); this.dispose(); else

9、 JOptionPane.showMessageDialog(this,"用戶名或密碼錯誤！ JOpti onPan e.WARNING_MESSAGE);boolea n ret = false;Conn ecti on con = n ull;PreparedStateme nt prsm = n ull;ResultSet rs = null;/*存儲sql語句*/Stri ng sql = "select userName,userPassword from UserTable where userName=? and userPassword=?"con

10、 = ConnectionManager.getCon(); / 與數(shù)據(jù)庫取得連接try prsm = con.prepareStatement(sql); / 預編譯 sql 語句prsm.setStri ng(1, user.getUserName();prsm.setStri ng(2, user.getUserPassword();rs = prsm.executeQuery();if (rs. next() ret = true;System.out.println("查詢成功！"); catch (SQLExcepti on ex) System.out.pri

11、ntln("UserTableDao 類中的 checkUser()方法岀錯了 " + ex.getMessage(); fin ally Conn ecti onMan ager.closeRet(rs);Conn ectio nMan ager.closePre(prsm);Conn ecti onMan ager.closeC on(con);return ret;4.1.2主界面的設計圖1-5圖1-5為系統(tǒng)的主界面其用菜單編輯器完善了主界面的菜單Private Sub Form_Load()mzgl.Hidedljm.ShowEnd SubPrivate Sub s

12、fgl_Click()mzgl.Hide yfgl.ShowEnd Sub顯示登陸藥房管理系統(tǒng)4.1.3醫(yī)院藥房管理系統(tǒng)界面圖1-6該界面顯示了本系統(tǒng)要實現(xiàn)的藥品信息維護、查詢等功能。Private Sub wh_Click()Form3.Show顯示藥品進銷存信息的添加、修改、刪除功能界面End SubPrivate Sub cx_Click()Form6.Show<顯示藥品進銷存信息與相關金額的查詢功能界面>End SubPrivate Sub n ote_Click()Shell " notepad.exe", 1<此為方便于管理者的記事本輔助功能

13、>End SubPrivate Sub jsq_Click()Shell "calc.exe", 1此為方便于管理者的計算器輔助功能 End SubPrivate Sub tjyh_Click()Form9.Show顯示添加用戶界面End SubPrivate Sub ggmm_Click()Form8.Show顯示更改密碼界面End Sub4.2修改和添加用戶和密碼4.2.1添加用戶輸入用戶名、密碼、確認密碼點確認就可以了非常容易實現(xiàn)Private Sub Command1_Click()*此代碼說明用戶添加完用戶名和密碼后進* 行確認的功能*If Textl.Te

14、xt = "" Or Text2.Text = "" The nMsgBox "請輸入用戶名或密碼"ElseIf Text2.Text = Text3.Text The nForm9.Adodc1.Recordset.AddNewForm9.Adodc1.Recordset.Fields("user") = Textl.TextForm9.Adodc1.Recordset.Fields("passwd") = Text2.TextForm9.Adodc1.Recordset.UpdateMsgB

15、ox "用戶添加成功"Textl.Text =""Text2.Text =""Text3.Text =""Form9.Adodc1.RefreshElse: MsgBox "兩次輸入的密碼不同，請重新輸入"Text2.Text =""Text3.Text =""End IfEnd IfEnd SubPrivate Sub Comma nd2_Click()Un load MeEnd SubPrivate Sub Form_Load()Left = (Scr

16、ee n. Width - Width) / 227Top = (Scree n.Height - Height) / 2 End Sub4.2.2修改密碼當用戶改完原密碼和用戶口令后進行確認的代碼Private Sub Comma nd1_Click()On Error Resume NextAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "user='" & username & "”'If Adodc1.Recordset.Fields("passwd").V

17、alue = Text1.Text The nIf Text2.Text = Text3.Text The nAdodc1.Recordset.Fields("passwd").Value = Text2.TextAdodc1.Recordset.UpdateMsgBox "密碼修改成功！ ", vbI nformatio n," 信息"Text1.Text = ""Text2.Text = ""Text3.Text = ""ElseMsgBox " 新密碼與驗證碼

18、不一致！ ", vbCritical, "錯誤 "Text1.Text = ""Text2.Text = ""Text3.Text = ""28ElseMsgBox "原密碼不正確！ ", vbCritical, "錯誤 "Text1.Text = ""Text2.Text = ""Text3.Text = ""End IfEnd SubPrivate Sub Command2_Click()Unload

19、MeEnd Sub 退出代碼 , 可以回到上一層界面 : Private Sub Form_Load()Left = (Screen.Width - Width) / 2Top = (Screen.Height - Height) / 2Adodc1.RefreshEnd Sub4.3 添加 、修改界面圖1-7實現(xiàn)的功能：當有藥品的進庫，出庫，庫存信息改變時，可以此處完成 相關的添加、修改、刪除操作，并及時將相關信息顯示在此界面上。Private Sub Optio n1_Click()If Optio n1.Value = True The nAdodc1.RecordSource = &q

20、uot;select庫存藥品藥品ID,藥品名稱保質期現(xiàn)儲備量，進 貨管理.進貨價，進貨價*現(xiàn)儲備量as庫存藥品金額from進貨管理，庫存藥品 where進貨管理.藥品ID =庫存藥品.藥品ID"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfEnd SubPrivate Sub Optio n2_Click()If Optio n2.Value = True The nAdodc2.RecordSource = "select進貨管理藥品ID,藥品名稱，進貨價,進貨量，進貨 日期,進貨價*進貨量as進貨金額from進

21、貨管理，銷售管理where進貨管理.藥 品ID =銷售管理.藥品ID"Adodc2.RefreshSet DataGrid1.DataSource = Adodc2End IfEnd SubPrivate Sub Optio n3_Click()If Optio n3.Value = True The nAdodc3.RecordSource = "select銷售管理藥品ID,藥品名稱，零售價,銷售量,銷售時間,零售價*銷售量as銷售金額from銷售管理，進貨管理where進貨管理.藥品ID =銷售管理.藥品ID"Adodc3.RefreshSet DataGr

22、id1.DataSource = Adodc3End IfEnd Sub <此部分是當點擊不同的 Option按扭時，上面的DataGrid控件顯示不同表的藥 品信息。添加和刪除按扭可打開新的窗體來實現(xiàn)其功能，刪除記錄時只要直接 在DataGrid表里選中它刪就可以了。為了方便，把這些功能都做到一個界面上 了。 >Private Sub Comma nd1_Click() On Error Resume NextIf Text1.Text = "" The nMsgBox "請輸入藥品ID先!ElseIf Form3.Optio n1.Value =

23、True The nIf Text13.Text = "" Or Text14.Text = "" The nMsgBox "請把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！ "ElseForm3.Adodc1.Recordset.AddNewForm3.Adodc1.Recordset.Fields（藥品 ID"）=Text1.TextForm3.Adodc1 .Recordset.Fields（現(xiàn)儲備量"）=Text13.TextForm3.Adodc1.Recordset.Fields（保

24、質期"）=Text14.TextForm3.Adodc1.Recordset.UpdateText1.Text = ""Text13.Text = ""Text14.Text = ""MsgBox "添加成功！ " End IfElseIf Form3.Option2.Value = True ThenIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" OrText4.Text = &

25、quot;" Or _Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or _Text9.Text = "" _ThenMsgBox "請把藥品信息添加全先，藥品 ID 為數(shù)字， 無信息可用字符“”代替！ "ElseForm3.Adodc2.Recordset.AddNewForm3.Adodc2.Recordset.Fields（藥品 ID"） = Text

26、l.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（進貨價"）=Text6.TextForm3.Adodc2.Recordset.Fields（進貨量&quo

27、t;）=Text7.TextForm3.Adodc2.Recordset.Fields（進貨日期"）=Text8.TextForm3.Adodc2.Recordset.Fields（藥品產地"）=Text9.TextForm3.Adodc2.Recordset.UpdateText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Tex

28、t7.Text = ""Text8.Text = ""Text9.Text = "" MsgBox "添加成功！ " End IfElseIf Form3.Option3.Value = True ThenIf Text1.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text12.Text = "" ThenMsgBox "請把藥品信息添加全先，藥品 ID 為數(shù)字，

29、 無信息可用字符“”代替！ "ElseForm3.Adodc3.Recordset.AddNewForm3.Adodc3.Recordset.Fields（藥品 ID"） = Textl.TextForm3. Adodc3.Recordset.Fields（零售價"）=TextIO.TextForm3 .A dodc3.Recordset.Fields（銷售量"）=Textll.TextForm3.Adodc3.Recordset.Fields（銷售時間"）=Text12.Text Form3.Adodc3.Recordset.Update T

30、ext1.Text = ""Text1O.Text = ""Text11.Text = ""Text12.Text = "" MsgBox "添加成功！ "End IfEnd IfEnd SubPrivate Sub Text8_Click（）Text8.Text = DateEnd SubPrivate Sub Comma nd1_Click（）On Error Resume NextIf Text1.Text = "" The nMsgBox "藥品ID不可以為

31、空的！"ElseIf Form3.Optio n1.Value = True The nForm3.Adodc1.Recordset.Fields（藥品 ID"） = Text1.TextForm3.Adodc1.Recordset.Fields（現(xiàn)儲備量"）=Text13.TextForm3.Adodc1.Recordset.Fields（保質期"）=Text14.TextMsgBox "修改成功！"Form3.Adodc1.Recordset.UpdateElseIf Form3.Optio n2.Value = True The nForm3.Adodc2