【正文】 10 NOT NULL 成員姓名 文本 8 NOT NULL 與本人關(guān)系 文本 10 NOT NULL 出生年月 日期 /時間 NOT NULL 政治面貌 文本 10 NOT NULL 文化程度 文本 10 NOT NULL 婚姻狀況 文本 4 NOT NULL 工作單位 文本 50 NOT NULL 職 務(wù) 文本 10 NOT NULL 工 資 貨幣 NOT NULL 經(jīng)濟來源 文本 20 NOT NULL 表 24 社會關(guān)系表 字段名稱 數(shù)據(jù)類型 字段大小 可否為空 編 號 文本 10 NOT NULL 代號 ID 文本 10 NOT NULL 關(guān)系人姓名 文本 10 NOT NULL 與本人關(guān)系 文本 10 NOT NULL 政治面貌 文本 10 NOT NULL 工作單位 文本 50 NOT NULL 職 務(wù) 文本 10 NOT NULL 備 注 文本 100 NOT NULL 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 16 表 25 個人簡歷表 字段名稱 數(shù)據(jù)類型 字段大小 可否為 空 編 號 文本 10 NOT NULL 代號 ID 文本 10 NOT NULL 起始日期 文本 20 NOT NULL 工作單位 文本 50 NOT NULL 職 務(wù) 文本 10 NOT NULL 證明人 文本 10 NOT NULL 表 26 職工工資信息表 字段名稱 數(shù)據(jù)類型 字段大小 可否為空 職工編號 文本 18 NOT NULL 姓 名 文本 8 NOT NULL 底 薪 貨幣 NOT NULL 補 貼 貨幣 NOT NULL 獎 金 貨幣 NOT NULL 代扣養(yǎng)老金 貨幣 NOT NULL 代扣醫(yī)療保險 貨幣 NOT NULL 代扣住房公積金 貨幣 NOT NULL 所得稅 貨幣 NOT NULL 房 帖 貨幣 NOT NULL 房 租 貨幣 NOT NULL 實發(fā)工資 貨幣 NOT NULL 用戶界面設(shè)計 本系統(tǒng)的用戶界面設(shè)計采用 Visual BASIC ，它最大的優(yōu)點是可視性，每個對象都以圖形方式顯示在界面上，我們不必 建立每個對象的程序代碼，只需用工具畫在界面上。在本窗體上，將為每個 功能設(shè)計菜單，從而調(diào)用其他窗體來完成對應的功能。 （ 4）報表 包括兩個菜單項：職工工資報表、職工考勤報表。 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 19 員工基本信息模塊 創(chuàng)建好的窗體如 圖 34 所示： 圖 34 員工基本信息窗體 下面對本窗體實現(xiàn)的功能作具體介紹： 該窗體分四個部分，左上邊實現(xiàn)的是輸入員工的部門信息，右上邊實現(xiàn)的是對員工的基本信息的一些操作，左下邊是員工的基本信息，右下邊是其它資料信息。 查詢員工基本信息窗體 創(chuàng) 建好的窗體如 圖 310 所示： 圖 310 查詢員工基本信息窗體 報表模塊 創(chuàng)建好的窗體如 圖 311 所示： 圖 311 報表窗體 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 23 職工工資信息報表 創(chuàng)建好的窗體如 圖 312所示： 圖 312 職工工資信息報表窗體 職工考勤信息報表 創(chuàng)建好的窗體如 圖 313所示： 圖 313 職工考勤 信息報表窗體 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 24 代碼設(shè)計 在程序界面設(shè)計完畢之后，將逐一向各個窗體和模塊添加代碼。 Trim() amp。 Trim() amp。Data Source= amp。 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 25 主模塊代碼的編寫 在 vb中，模塊是一種特定的對象，用于保存可以在各個窗體中調(diào)用的共同代碼。Data Source= amp。啟動主窗體 End Sub 在本段代碼中主要定義了幾個全局變量以及賦予了變量初始值，選定了所連接的數(shù)據(jù)庫。設(shè)置共有變量的值，向人事資料卡片窗體傳遞信息 39。顯示部門管理窗體 End Sub Private Sub mnuDeptlist_Click() 39。 人事資料卡片窗體在內(nèi)存中裝載時，需要對窗體的數(shù)據(jù)源和動作進行設(shè)置，因此對其 Load 事件添加代碼如下： Private Sub Form_Load() 39。 amp。由全局 變 量來決定 動 作 Case Add Call cmdadd_Click Case Del = True = True Case Edit = True = True End Select End Sub 上述代碼為 Adodc1 控件的屬性 ConnectionString， CommandType，RecordSource 賦值，使其與指定的數(shù)據(jù)庫建立連接，并確定具體可以訪問的數(shù)據(jù)表。調(diào) 用 AddNew 方法來添加 記錄 = False 39。確 認刪 除 記錄 39。 Private Sub cmdedit_Click() 39。檢查輸 入 If Text2 = Then MsgBox 請輸 入 編 號！ 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 30 End If 39。設(shè) 置按 鈕 = True = True = True End If End If End Sub 該段代碼主要用數(shù)據(jù)控件 Adodc1 的對象 Recordset 的 UpdateBatch 方法來實現(xiàn)對新加記錄的保存，其次還設(shè)置了按鈕的狀態(tài)。 Space(20) amp。確認放棄 Unload Me End If End Sub Private Sub query_Click() Dim str As String 39。 amp。 39。 amp。 Order By 職工編號 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 32 End Sub 上述代碼實現(xiàn)根據(jù)查詢條件連接到符合條件的數(shù)據(jù)庫中的數(shù)據(jù)表，從而在數(shù)據(jù)綁定控件上顯示出所查詢的內(nèi)容，實現(xiàn)查詢功能。 程序如下： Private Sub cmdexit_Click() If MsgBox (真的 要退出嗎？ , vbQuestion + vbYesNo, 退出 ) = vbYes Then Unload Me End If End Sub 這段程序可以實現(xiàn)將活動窗體退出到主界面，而不是直接退出系統(tǒng)。 替換即可 , 屬性將返回當前應用程序所在的目錄，代碼運行時，應用程序?qū)⒃谠撃夸浀南乱患壸幽夸洝?database”中查找數(shù)據(jù)庫“ ”。Data Source = amp。 amp。 更改報表屬性的界面 如圖 41所示 ： 圖 41 報表屬性界面 ，通過向報表中插入 日期、頁碼時，發(fā)現(xiàn)可以按 pagedown 按鈕翻看下一頁。 3．查詢窗體還出現(xiàn)了只能查詢出字段類型為文本類型的職工信息的問題，如查詢“職工編號”，“姓名”等，但對于“獎金”，“底薪”，“補貼”等字段類型為貨 幣類型的信息無法查出，經(jīng)過調(diào)試程序解決了這一問題。這里出現(xiàn)問題是： str = Trim( amp。 amp。知道了問題所在，于是就在程序中添加了一個條件語句，用來判斷是否在 文本框 1（即 Text1）中的信息兩邊加單引號，以下為添加的條件語句 ： If = 職工編號 Or = 姓名 Then str = Trim( amp。 amp。查詢條件 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 36 Else str = Trim( amp。 amp。計算實發(fā)工資的過程 Dim minus As Double minus = Val() 1600 If (1 = minus = 500) Then = Val() * Else If (500 minus = 2020) Then = Val() * Else If (2020 minus = 5000) Then 伊犁師范學院物理與電子信息學院 2020屆電子信息科學與技術(shù)專業(yè)畢業(yè)論文 頁碼 37 = Val() * Else If (5000 minus 20200) Then = Val() * Else = Val() * End If End If End If End If = (Val() + Val() + Val() + Val()) * = (Val() + Val() + Val() + Val()) * = (Val() + Val() + Val() + Val()) * = Val() + Val() + Val() + Val() = Val() + Val() + Val() + Val() Val() Val() Val() Val() Val() End Sub 經(jīng)過修改的程序可以根據(jù)管理員輸入的“獎金、補貼、底薪、房帖”等信息的值，系統(tǒng)可以自動生成“ 代扣養(yǎng)老金、代扣醫(yī)療保險金、代扣住房公積金、所得稅”等信息的值，實發(fā)工資的值可由以下公式自動得出：實發(fā)工資 =（應發(fā)工資 代扣養(yǎng)老金 代扣醫(yī)療保險金 代扣住房公積金 所得稅 房租），從而解決了管理員手工輸入的問題，大大提高了工作效率。程序測試，是為了發(fā)現(xiàn)程序設(shè)計中錯誤。 （ 2）白箱法 白箱法是指測試人員根據(jù)模塊內(nèi)部的結(jié)構(gòu)來導出測試數(shù)據(jù)，使模塊中的所有測試路徑都被測試到。我們把系統(tǒng)交付使用后的變更等工作成為軟件維護。此外，還包括簡單的硬件管理和設(shè)施管理。除了記錄正常情況外，還要記錄意外情況發(fā)生的時間、原因與處理結(jié)果。所以說軟件在交付使用后，還必須做好維護工作，使軟件 將更加完善，能適應新的環(huán)境和要求，延長使用時壽命。并在程序變更通知書上寫明新老程序的不同之處。 （ 3）代碼的維護。為此，除了成立專門的代碼管理小組外，各業(yè)務(wù)部門要指定專人進行代碼管理，通過他們貫徹使用代碼。現(xiàn)代管理活動都離不開數(shù)據(jù)和信息，而且要采用數(shù)學方法對決策問題進行求解，為此，還必須進行大量的數(shù)據(jù)處理。 但在計算機應用方面，由于軟件技術(shù)的發(fā)展大大落后于計算機硬件日新月異的發(fā)展，再加上企業(yè)對 MIS系統(tǒng)的認識的不足以及 MIS開發(fā)過程中遇到的種種困難，常常導致 MIS 開發(fā)的失敗。設(shè)置數(shù)據(jù)源 = Provider=。 \database\。增加記錄 39。調(diào)用 Delete 方法刪除記錄 Unload Me