最新基于vb人事管理系統畢業設計含源文件(存儲版)

　　

【正文】 End SelectEnd SubPrivate Sub Mtab_Click(Index As Integer)Dim i As Integer For i = 0 To 2 Mtab(i).Checked = False Next i Mtab(Index).Checked = True Select Case Index Case 0 Call showemployee Case 1 Call showleave Case 2 Call showsalary End Select End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 39。), vbExclamation Unload Me End If 39。(i) = 0 Next i End SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End IfEnd SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And Index = 0 Then KeyAscii = 0 Exit Sub End If If = leave And Index = 1 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If = salary Then If Index = 3 Then If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack Then KeyAscii = 0 Exit Sub End If End If If Index = 13 Then Exit Sub If (KeyAscii 48 Or KeyAscii 57) And KeyAscii vbKeyBack And KeyAscii 46 Then KeyAscii = 0 Exit Sub End If End IfEnd SubPrivate Sub Txt_change(Index As Integer) If Bupdata = False Then Bupdata = True If = salary Then If Txt(Index).Text = Then Exit Sub If Index = 4 And Index = 6 Then Txt(7).Text = Val(Txt(4).Text) + Val(Txt(5).Text) + Val(Txt(6).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If If Index = 8 And Index = 10 Then Txt(11).Text = Val(Txt(8).Text) + Val(Txt(9).Text) + Val(Txt(10).Text) Txt(12).Text = Val(Txt(7).Text) Val(Txt(11).Text) End If End IfEnd SubPrivate Sub Form_Load() = + \ = + \ = = select * from + = select * from + Txt(0).Locked = True 39。因此，在分析問題、解決問題時顯得不夠嚴密、完善，還需要在以后的工作中不斷地改進和完善。在具體的測試中，一般應遵循以下原則：由程序設計者之外的人進行測試；測試用例應由兩部分組成：輸入數據和預期輸出結果；應選用不合理的輸入數據與非法輸入測試；不僅要檢驗程序是否實現預期功能，還應檢查程序是否做了不應該做的工作；集中測試容易出錯的程序模塊；對程序修改以后，必須重新進行測試。(3)確認測試確認測試是對通過組合測試的軟件進行的，這些軟件已經存于系統目標設備的介質上，確認測試的目的是表明軟件是可以工作的，并且符合“軟件需求說明書”中規定的全部功能和性能要求。因此軟件測試的目標應該是以盡可能少的代價和時間找出軟件系統中潛在的錯誤和缺陷。可以添加新的普通用戶，也可以刪除和禁止普通用戶使用程序。將出現密碼出錯提示頁面。系統的主要功能特點有:(1)系統登錄表單該表單的功能是在系統被訪問之前，要對進入系統的用戶進行安全性檢查，防止非法用戶進行系統破壞數據及威脅系統安全，避免不必要的損失。這類要求是指目前不屬于系統開發的范圍，但將來隨著外界環境的變化以及系統的發展可能會提出的要求。這些需求包括：（1）功能需求。（1）技術支持：首先根據新系統的目標，考慮目前有關的技術能否支持所開發的新系統。3．2 可行性分析概述可行性分析是在用戶的要求和系統調研的基礎上進行的，對新系統的開發從社會、技術、經濟、管理等方面進行分析，并得出新系統的開發工作可行、不可行、需要修改、追加投資、暫緩開發、分步實施等方案和結論，最后完成可行性分析。但它可以通過動態鏈接庫技術將C/C++或匯編語言編寫的程序加入到Visual Basic應用程序中，可以像調用內部函數一樣調用其他語言編寫的函數。在應用程序中，可以使用結構化查詢語言SQL數據標準，直接訪問服務器上的數據庫，并提供了簡單的面向對象的庫操作指令和多用戶數據庫訪問的加鎖機制和網絡數據庫的SQL的編程技術，為單機上運行的數據庫提供了SQL網絡接口，以便在分布式環境中快速而有效地實現客戶/服務器(client/server)方案。事件驅動編程機制Visual Basic通過事件來執行對象的操作。面向對象的程序設計 Basic支持面向對象的程序設計，但它與一般的面向對象的程序設計語言(C++)不完全相同。它簡單易學、效率高，且功能強大，可以與Windows的專業開發工具SDK相媲美，而且程序開發人員不必具有C/C++編程基礎。我們的目標就是在于開發一個功能實用、操作方便，簡單明了的人事管理系統。 personnel management。本系統結合公司實際的人事管理制度，經過實際的需求分析，采用功能強大的Visual 。這些優點能夠極大地提高人事管理的效率,也是企業的科學化、正規化管理,與世界接軌的重要條件。第二章 開發工具的選擇現在，市場上可以選購的應用開發產品很多，流行的也有數十種。如果對界面的效果不滿意，還要回到程序中修改。每個對象以圖形方式顯示在界面上，都是可視的。在用Visual Basic設計大型應用軟件時，不必建立具有明顯開始和結束的程序，而是編寫若干個微小的子程序，即過程。Visual Basic提供了動態數據交換的編程技術，可以在應用程序中與其他Windows應用程序建立動態數據交換，在不同的應用程序之間進行通信。（1）明確用戶的要求，以根據調查結果進行可行性分析，確認系統的開發是否可行。②社會可行性分析：社會可行性分析主要是指管理信息系統的開發是否符合國家法律、下策，是否能夠與社會大系統實現良好的對接。對硬件資源進行可行性分析時主要考慮計算機的主機內存、類型、功能、聯網能力、安全保護措施以及輸入/輸出設備，外存儲器和聯網數據通信設備的配置、功能、效率等指標是否符合系統方案設計要求，同時還要考慮計算機的性能/價格比。給出所開發的新系統的技術性能指標，包括存儲容量限制、運行時間限制、安全保密性等。4．2 數據流程圖數據流程圖是描述系統邏輯模型的主要工具，通過幾個特定的符號，可以綜合地反映出信息在系統中的使用、加工處理、傳遞、存儲的整體情況。(3)更改密碼：使用本表單可以方便地修改用戶的密碼，以防密碼泄露后對數據的安全性造成威脅。最后保存。大量統計資料表明，系統測試的工作量往往占MIS開發總工作量的40%以上。(1)單元測試：單元測試也稱模塊測試或程序測試，單元測試是對每個模塊單獨進行的，驗證模塊接口與設計說明書是否一致，對模塊的所有主要處理路徑進行測試且與預期的結構進行對照，還要對所有錯誤處理路徑進行測試。(4)系統測試系統測試是對整體性能的測試，主要解決各子系統之間的數據通信和數據共享問題以及檢測系統是否達到用戶的實際要求，系統測試的依據是系統分析報告。黑盒測試又稱為功能測試，白盒子測試又稱為結構測試。同時，也要感謝我的老師和同學們及實習企業在本系統的設計過程中給予我的支持和幫助。設置lsdegree的顯示項 For i = 0 To 2 (i) If (i) = (7) Then = i End If Next i If = 1 Then (7) = 1 End If 定制 39。Load FrmMain Else MsgBox Invalid Password, try again!, , Login SendKeys {Home}+{End} End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) Unload Me EndEnd SubOption ExplicitPublic cuTabCh As BooleanPublic cutable As StringPublic cuAp As Integer 39。seek Case 4 39。Private Sub Lssex_LostFocus() = FalseEnd SubPrivate Sub Lsdegree_LostFocus() = FalseEnd SubPrivate Sub Lsdepart_LostFocus() = FalseEnd SubPrivate Sub DBGA_Scroll(Cancel As Integer) = False = False = FalseEnd Sub39。salary = False = False = False For i = 0 To 12 Lab(i).Caption = (i).Name Txt(i).DataField = (i).Name Next i Txt(13).DataField = (15).Name Txt(7).Locked = True Txt(11).Locked = True Txt(12).Locked = True If 1 Then () Else End If End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = True Unload Me End SubOption ExplicitCon