【正文】 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。因此，在分析問題、解決問題時顯得不夠嚴密、完善，還需要在以后的工作中不斷地改進和完善。在具體的測試中，一般應遵循以下原則：由程序設(shè)計者之外的人進行測試；測試用例應由兩部分組成：輸入數(shù)據(jù)和預期輸出結(jié)果；應選用不合理的輸入數(shù)據(jù)與非法輸入測試；不僅要檢驗程序是否實現(xiàn)預期功能，還應檢查程序是否做了不應該做的工作；集中測試容易出錯的程序模塊；對程序修改以后，必須重新進行測試。(3)確認測試確認測試是對通過組合測試的軟件進行的，這些軟件已經(jīng)存于系統(tǒng)目標設(shè)備的介質(zhì)上，確認測試的目的是表明軟件是可以工作的，并且符合“軟件需求說明書”中規(guī)定的全部功能和性能要求。因此軟件測試的目標應該是以盡可能少的代價和時間找出軟件系統(tǒng)中潛在的錯誤和缺陷。可以添加新的普通用戶，也可以刪除和禁止普通用戶使用程序。將出現(xiàn)密碼出錯提示頁面。系統(tǒng)的主要功能特點有:(1)系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問之前，要對進入系統(tǒng)的用戶進行安全性檢查，防止非法用戶進行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。這類要求是指目前不屬于系統(tǒng)開發(fā)的范圍，但將來隨著外界環(huán)境的變化以及系統(tǒng)的發(fā)展可能會提出的要求。這些需求包括：（1）功能需求。（1）技術(shù)支持：首先根據(jù)新系統(tǒng)的目標，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。3．2 可行性分析概述可行性分析是在用戶的要求和系統(tǒng)調(diào)研的基礎(chǔ)上進行的，對新系統(tǒng)的開發(fā)從社會、技術(shù)、經(jīng)濟、管理等方面進行分析，并得出新系統(tǒng)的開發(fā)工作可行、不可行、需要修改、追加投資、暫緩開發(fā)、分步實施等方案和結(jié)論，最后完成可行性分析。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。在應用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標準，直接訪問服務器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡數(shù)據(jù)庫的SQL的編程技術(shù)，為單機上運行的數(shù)據(jù)庫提供了SQL網(wǎng)絡接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務器(client/server)方案。事件驅(qū)動編程機制Visual Basic通過事件來執(zhí)行對象的操作。面向?qū)ο蟮某绦蛟O(shè)計 Basic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。我們的目標就是在于開發(fā)一個功能實用、操作方便，簡單明了的人事管理系統(tǒng)。 personnel management。本系統(tǒng)結(jié)合公司實際的人事管理制度，經(jīng)過實際的需求分析，采用功能強大的Visual 。這些優(yōu)點能夠極大地提高人事管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。第二章 開發(fā)工具的選擇現(xiàn)在，市場上可以選購的應用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。如果對界面的效果不滿意，還要回到程序中修改。每個對象以圖形方式顯示在界面上，都是可視的。在用Visual Basic設(shè)計大型應用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。Visual Basic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應用程序中與其他Windows應用程序建立動態(tài)數(shù)據(jù)交換，在不同的應用程序之間進行通信。（1）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進行可行性分析，確認系統(tǒng)的開發(fā)是否可行。②社會可行性分析：社會可行性分析主要是指管理信息系統(tǒng)的開發(fā)是否符合國家法律、下策，是否能夠與社會大系統(tǒng)實現(xiàn)良好的對接。對硬件資源進行可行性分析時主要考慮計算機的主機內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護措施以及輸入/輸出設(shè)備，外存儲器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標是否符合系統(tǒng)方案設(shè)計要求，同時還要考慮計算機的性能/價格比。給出所開發(fā)的新系統(tǒng)的技術(shù)性能指標，包括存儲容量限制、運行時間限制、安全保密性等。4．2 數(shù)據(jù)流程圖數(shù)據(jù)流程圖是描述系統(tǒng)邏輯模型的主要工具，通過幾個特定的符號，可以綜合地反映出信息在系統(tǒng)中的使用、加工處理、傳遞、存儲的整體情況。(3)更改密碼：使用本表單可以方便地修改用戶的密碼，以防密碼泄露后對數(shù)據(jù)的安全性造成威脅。最后保存。大量統(tǒng)計資料表明，系統(tǒng)測試的工作量往往占MIS開發(fā)總工作量的40%以上。(1)單元測試：單元測試也稱模塊測試或程序測試，單元測試是對每個模塊單獨進行的，驗證模塊接口與設(shè)計說明書是否一致，對模塊的所有主要處理路徑進行測試且與預期的結(jié)構(gòu)進行對照，還要對所有錯誤處理路徑進行測試。(4)系統(tǒng)測試系統(tǒng)測試是對整體性能的測試，主要解決各子系統(tǒng)之間的數(shù)據(jù)通信和數(shù)據(jù)共享問題以及檢測系統(tǒng)是否達到用戶的實際要求，系統(tǒng)測試的依據(jù)是系統(tǒng)分析報告。黑盒測試又稱為功能測試，白盒子測試又稱為結(jié)構(gòu)測試。同時，也要感謝我的老師和同學們及實習企業(yè)在本系統(tǒng)的設(shè)計過程中給予我的支持和幫助。設(shè)置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