【正文】 39。39。39。 cried Jane, slightly colouring。 Elizabeth looked at her sister with incredulous solicitude, but said nothing. ``You doubt me,39。 she can have no idea of the pain she gives me by her continual reflections on him. But I w ill not repine. I t cannot last long. He will be for got, and we shall all be as we were before.39。 but at last on Mrs. Ben39。 whichever were the case, though her opinion of him must be materially affected by the difference, her sister39。 whether he had been aware of Jane39。 s regard had really died away, or were suppressed by his friends39。 but her sister39。s being partial to Miss Darcy she paid no credit. That he was really fond of Jane, she doubted no more than she had e ver done。s house, and mentioned with raptures some plans of the latter with regard to new furniture. Elizabeth, to whom Jane very soon municated the chief of all this, heard it in silent indignation. Her heart was divided between concern for her sister, and resentment against all the others. To Caroline39。s praise occupied the chief of it. Her many attractions were again dwelt on, and Caroline boasted joyfully of their increasing intimacy, and ventured to predict the acplishme nt of the wishes which had been unfolded in her former letter. She wrote also with great pleasure of her brother39。s regret at not having had time to pay his respects to his friends in Hertfordshire before he left the country. Hope was over, entirely over。 參考文獻(xiàn) 《 VISUAL 數(shù)據(jù)庫開發(fā)及工程實(shí)例》 人民郵電出版社 作者姚巍 《精通 visual 中文版》式 電子工業(yè)出版會(huì) 作者 劉炳文 《 visual 》 人民郵電出版社 作者孫越 《 visualbasic+sql server 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)與實(shí)例》人民郵電出版社 作者李曉黎 《數(shù)據(jù)庫系統(tǒng)概論》 清華大學(xué)出版社 作者張海藩 Chapter I of Volume II MISS Bingley39。感謝老師細(xì)心而又耐心的輔導(dǎo)。 致 謝 在本次畢業(yè)設(shè)計(jì)中，我從幾位指導(dǎo)老師身上學(xué)到了很多的東西。如果該程序在工作中應(yīng)用對(duì)我行科技工作也是一個(gè)不小的貢獻(xiàn)。 本次畢業(yè)設(shè)計(jì)，我對(duì)自己的表現(xiàn)還是滿意的。 第五章 總結(jié) 通過畢業(yè)設(shè)計(jì)實(shí)踐過程，我學(xué)到了很多新的知識(shí)，了解并掌握了數(shù)據(jù)庫管理系統(tǒng)的開發(fā)過程及一些較新的編程思想，對(duì) VISUAL 開發(fā)ACCESS2020 數(shù)據(jù)庫應(yīng)用程序所必備的管理和開發(fā)技術(shù)有了一定的認(rèn)識(shí)，掌握一些在程序開發(fā)過程中的技巧和經(jīng)驗(yàn)。 把模塊結(jié)合進(jìn)軟件結(jié)婚的具體過程有下述四個(gè)步驟完成： 第一步：對(duì)主控制模塊進(jìn)行測(cè)試； 第二步：根據(jù)選定的結(jié)合策略進(jìn)行模塊的代換； 第三步：在結(jié)合進(jìn)一個(gè)模塊的同時(shí)進(jìn)行測(cè)試； 第四步：為了保證加入模塊沒有引進(jìn)新的錯(cuò)誤，需要進(jìn)行回歸測(cè)試（即，全部或部分地 重復(fù)以前做過的測(cè)試）。 當(dāng)使用漸增方式把模塊結(jié)合到軟件系統(tǒng)中去時(shí)，有自頂向下和自底向上兩種方法。一種方法是先分別測(cè)試每個(gè)模塊，再把所有模塊按設(shè)計(jì)要求放在一起結(jié)合成所要的程序，這種方法成為非漸增式測(cè)試方法；另一種方法是把下一個(gè)要測(cè)試的模塊同已經(jīng)測(cè)試好的那些模塊結(jié)合起來進(jìn)行測(cè)試，測(cè)試完以后再把下一個(gè)應(yīng)該測(cè)試的 模塊結(jié)合起來測(cè)試。 集成測(cè)試 集成測(cè)試是組裝軟件的系統(tǒng)技術(shù)，例如，子系統(tǒng)測(cè)試即是在模塊按照設(shè)計(jì)要求組裝起來的同時(shí)進(jìn)行測(cè)試，主要目標(biāo)是發(fā)現(xiàn)與接口有關(guān)的問題。 單元測(cè)試 單元測(cè)試集中檢驗(yàn)軟件設(shè)計(jì)的最小單元 —— 模塊。 平行運(yùn)行 關(guān)系重大的軟件產(chǎn)品在驗(yàn)收之后往往并不立即投入生產(chǎn)性運(yùn)行，而是要再經(jīng)過一段平行運(yùn)行時(shí)間的考驗(yàn)。 驗(yàn)收測(cè)試 驗(yàn)收測(cè)試把軟件系統(tǒng)作為單一的 實(shí)體進(jìn)行測(cè)試，測(cè)試內(nèi)容與系統(tǒng)測(cè)試基本類似，但是它是在用戶積極參與下進(jìn)行的，而且可能主要使用實(shí)際數(shù)據(jù)（系統(tǒng)將來要處理的信息）進(jìn)行測(cè)試。 系統(tǒng)測(cè)試 系統(tǒng)測(cè)試是把經(jīng)過測(cè)試的子系統(tǒng)裝配成一個(gè)完整的系統(tǒng)來測(cè)試。 子系統(tǒng)測(cè)試 子系統(tǒng)測(cè)試是把經(jīng)過單元測(cè)試的模志放在一起形成一個(gè)子系統(tǒng)來測(cè)試。軟件系統(tǒng)的測(cè)試基本上由下述幾個(gè)步驟組成； 模塊測(cè)試 在設(shè)計(jì)好的軟 件系統(tǒng)中，每個(gè)模塊完成一個(gè)清晰定義的子功能，而且這個(gè)子功能和同級(jí)其他模塊的功能之間沒有相互依賴關(guān)系。 本系統(tǒng)經(jīng)編制調(diào)測(cè)后可以正常運(yùn)行，經(jīng)勞動(dòng)工資管理專業(yè)人員批量錄入試驗(yàn)數(shù)據(jù)，系統(tǒng)設(shè)計(jì)的各功能模塊基本能夠完成預(yù)期的效果。 軟件測(cè)試的目標(biāo)如下： ? 測(cè)試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程： ? 好的測(cè)試方案是極可能發(fā)現(xiàn)迄今年為止尚未發(fā)現(xiàn) 的錯(cuò)誤的測(cè)試方案； 正確認(rèn)識(shí)測(cè)試的目標(biāo)是十分重要的，測(cè)試目標(biāo)決定了測(cè)試方案的設(shè)計(jì)。Data Source= + + \。Persist Security Info=False = adUseClient End Sub 操作員管理模塊 操作員管理模塊功能說明操作員管理只是可以對(duì)此軟件進(jìn)行新增 ,刪除 ,保存等操作的人。 sql, , adOpenDynamic, adLockOptimistic If IsNull((je).Value) = False Then = Str((je).Value) End If End Sub Private Sub Form_Load() Set = New Provider=。 sql, , adOpenDynamic, adLockOptimistic Set = rs sql = select sum(金額 )as je from gzxx where 個(gè)人編號(hào) = + 39。 Else Set rs = New sql = select * from gzxx where 個(gè)人編號(hào) = + 39。Data Source= + + \。 sql, , adOpenDynamic, adLockOptimistic If = 1 Then = (金額 ).Value Else MsgBox 錯(cuò)誤的個(gè)人編號(hào)或項(xiàng)目名稱。 and + 項(xiàng)目名稱 = + 39。 sql, , adOpenDynamic, adLockOptimistic MsgBox 修改保存完成 End If End If End Sub Private Sub Command4_Click() bh = xm = Set rs = New sql = select * from gzxx + where + 個(gè)人編號(hào) = + 39。 and + 項(xiàng)目名稱 = + 39。 Else sql = update gzxx set 金額 = + je + where + 個(gè)人編號(hào) = + 39。 + xm + 39。 + bh + 39。 + xm + 39。 + bh + 39。 End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() bh = xm = je = If bh = Or xm = Or IsNumeric(je) = False Then MsgBox 數(shù)據(jù)錯(cuò)誤。 + xm + 39。 + bh + 39。Persist Security Info=False = adUseClient End Sub 職工工資信息管理模塊 工資信息管理模塊功能說明此項(xiàng)功能為員工工資的項(xiàng)目明細(xì)在個(gè)人編號(hào)當(dāng)中輸入編號(hào)之后在項(xiàng)目名稱當(dāng)中進(jìn)行選擇 ” 基本工 資 ”” 職務(wù)工資或獎(jiǎng)金 .按保存一鍵這樣你所錄入的文件將根據(jù)你自己所做的選擇進(jìn)行保存了 .如果你想把此項(xiàng)刪除就按刪除一鍵就可以 .如果想查詢某項(xiàng)的獎(jiǎng)金就按查詢一鍵就可以了 .否則退出 . 屏幕格式設(shè)計(jì)如下圖 ： 圖 職工工資信息管理 各控件的屬性如下表 表 控件的屬性 控制名稱 屬性 值 Label1 caption 個(gè)人編號(hào) font 宋體 wordwrap false xm font 宋體 Left 1560 text 空格 width 1575 Command1 caption 刪除 font 宋體 Left 1680 top 5760 Command2 caption 退出 font 宋體 Command3 caption 保存 font 宋體 Command4 caption 查詢 font 宋體 職工工資信息管理模塊代碼： Dim As Dim rs As Private Sub Command1_Click() bh = xm = Set rs = New If bh = Or xm = Then MsgBox 數(shù)據(jù)錯(cuò)誤。 , 48, 提示 End If End Sub Private Sub Command2_Click() End Sub Private Sub Form_Load() Set = New Provider=。 + + 39。 + + 39。屏幕格式設(shè)計(jì)： 圖 3 .5 職工信息刪除 各控件的屬性設(shè)置如下表所示 表 控件的屬性 控件名稱 屬性 值 Frame1 Caption 注意 height 975 left 360 top 120 width 3975 Label1 Caption 個(gè)人編號(hào) font 宋體 left 600 top 1440 Command1 Caption 刪除 font 宋體 控件名稱 屬性 值 Command2 Caption 退出 font 宋體 職工信息刪除模塊代碼： Dim As Dim rs As Private Sub Command1_Click() If = Then MsgBox 請(qǐng)輸入個(gè)人編號(hào)。Data Source= + + \。% + Trim() + %39。% + Trim() + %39。Data Source= + + \。 sql, , adOpenDynamic, adLockOptimistic If = 1 Then = (個(gè)人編號(hào) ) = (姓名 ) = (部門 ) = (簡歷 ) = Tru