【正文】 the text. = End Sub 。it clears the text. = End Sub Private Sub txtAddress2_DblClick() 39。Closes and ends the program. Unload Me End Sub Private Sub txtAddress1_DblClick() 39。s screen and video card resolution. 39。Centers the form in the screen by determining 39。This event Stops WebBrowser2 from loading any 39。This event Stops WebBrowser1 from 39。This event Loads the specified search page into 39。This event Loads the specified search page into 39。This event Refresh WebBrowser1. End Sub Private Sub cmdRefresh2_Click() 39。This event Takes the web Browser(2) to the URL 39。This event Takes the web Browser(1) to the 39。This event takes the second WebBrowser to the 39。This event takes the first WebBrowser to the 39。previously loaded page after one has pressed 39。first back button. On Error GoTo NoForward Exit Sub 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 35 NoForward: MsgBox There are no files to load here! End Sub Private Sub cmdForward2_Click() 39。This event takes the first Web Browser to the 39。This event finds the last page loaded in the history 39。Sample Code provided by: Petroutsos 39。This event finds the last page loaded in the 39。so the page can directly load up as a default 39。 With Me .Width = + * 2 + _ (.Width ) .Height = + + + _ (.Height .ScaleHeight) .Move ( .Width) \ 2, _ 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 34 ( .Height) \ 2 End With txtFile = End Sub 家庭上網(wǎng)模塊代碼 Sub Navigate_Text() 39。 Size and position form。 SelectDefaultPrinter Combo1 39。 39。 on amp。 select default printer. 39。 39。 If = 0 Then MsgBox No printers are installed. Can39。 Make sure there are printers installed! 39。 For Each prn In Printers If InStr(Combo1, ) = 1 _ And Right(Combo1, Len()) = Then Call SpoolFile(Submit, ) Exit For End If Next prn End Sub Private Sub Form_Initialize() 39。 39。t find file: amp。t exist. 39。 39。 Place selected filename into textbox. 39。 On Error Resume Next .ShowOpen 39。 39。 Set dialog properties 39。 Unload Me End Sub Private Sub cmdFile_Click() With CommonDialog1 39。 39。關(guān)閉 EXCEL End If Set xlApp = Nothing 39。執(zhí)行 EXCEL 關(guān)電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 32 閉宏 (True) 39。運(yùn)行 EXCEL中的啟動(dòng)宏 Else MsgBox (EXCEL 已打開 ) End If End Sub Private Sub Command2_Click() If Dir(D:\temp\) Then 39。激活工作表 (1, 1) = abc 39。打開 EXCEL工作簿 Set xlsheet = (1) 39。創(chuàng)建 EXCEL 應(yīng)用類 = True 39。 打開EXCEL 過程 If Dir(D:\temp\) = Then 39。定義工件簿類 Dim xlsheet As 39。 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 31 附 錄 登陸 模塊 代碼 Private Sub Form_Load() Dim user As New Dim i As Integer If flying And 123456 Then If i 3 Then MsgBox 請查清口令再登錄 End End If Do Loop End If End Sub 嵌入家庭收支簿 excel 表 模塊 代碼 Dim xlApp As 39。 [9] 陳惟斌：《 Visual Basic 開發(fā)指南》 [M]，清華大學(xué)出版社 2020 年版。 [7] 劉世峰 ：《 Visual Basic 程序設(shè)計(jì) 》 [M]，中央廣播電大出版社 2020年 版。 [5] 劉亞，王芬：《家庭財(cái)務(wù)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)》 [J]，《福建電腦》 2020年第 1 期。 [3] 王晟，韓澤坤 ：《 Access 數(shù)據(jù)庫開發(fā)經(jīng)典案例解析 》 [M]，清華大學(xué)出版社 2020 年版。 謝謝您！ 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 30 參考文獻(xiàn) [1] 王凡林，陳輝，羅海鑫：《企業(yè)財(cái)務(wù)管理信息系統(tǒng)可信心分析》 [J]，《經(jīng)濟(jì)與管理研究》 2020 年第 11 期。 他教導(dǎo)我的 深厚的理論水平 與實(shí)踐的技能 都使我受益匪淺。 家庭式 ERP 系統(tǒng) 也會(huì)看到曙光！ 在這 次得 畢業(yè)設(shè)計(jì)過程中，我 在 指導(dǎo)老師 身上學(xué)到了很多東西。以后我一定在此基礎(chǔ)上不斷完善它。 由于畢業(yè)設(shè)計(jì)時(shí)間較短， 準(zhǔn)備 時(shí)間 也較 倉促，所以該系統(tǒng)還有許多不盡人意的地方，比如聯(lián)機(jī)文檔比較少、用戶界面不夠美觀，出錯(cuò)處理不完善等多方面問題，這些都有待進(jìn)一步改善。 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 29 謝 辭 通過這次畢業(yè)設(shè)計(jì)，在老師的指導(dǎo)下， 使 我初步掌握了用 VB 開發(fā)軟件的方法，我在進(jìn)行設(shè)計(jì)軟件時(shí)遇到 的 問題，在老師的 指導(dǎo)下 ， 我 查 閱 資料 、 上網(wǎng)和網(wǎng)友進(jìn)行探討 、 論壇 的高手進(jìn)行交流；另 外我還登錄到網(wǎng)站看了不少優(yōu)秀的關(guān)于VB 技術(shù)的 文章； 這些對我完成畢業(yè)設(shè)計(jì)起了至關(guān)重要的作用。 本系統(tǒng)集家庭軟件、家庭信息、家庭娛樂和家庭財(cái)務(wù)為一體，并附有家庭網(wǎng)絡(luò)服務(wù)，獨(dú)立安裝到家庭電腦上，就能實(shí)現(xiàn)所有模塊功能，方便簡單。 耦合性是程序結(jié)構(gòu)中各個(gè)模塊之間相互關(guān)聯(lián)的 度量 ；有關(guān)于模塊之間數(shù)據(jù)流通的接口方面做得較為薄弱，本系統(tǒng)只專注于各模塊各自功能的實(shí)現(xiàn)；家庭信息模塊中的日歷功能做得過于簡單，將家庭財(cái)務(wù)模塊做成多個(gè)模塊的集成，取代 excel 表進(jìn)行登賬，設(shè)計(jì)成家庭財(cái)務(wù)管理系統(tǒng)，實(shí)現(xiàn)界面登賬，自動(dòng)匯總，各財(cái)務(wù)模塊通過數(shù)據(jù)流貫穿為一體。在家庭軟件模塊，實(shí)現(xiàn)了打印功能，對家庭財(cái)務(wù)收支簿進(jìn)行打印存檔等。 關(guān)于本系統(tǒng)進(jìn)一步的改進(jìn)方案的總結(jié)。為了 不斷提升自己的能力，將問題一個(gè)個(gè)擊破 ， 總結(jié)筆記 ，然后 分類的整理，歸納和總結(jié)。在與導(dǎo)師的交流討論中我的題目定了下來，我便立刻著手資 料的收集工作 。論文的寫作需要不斷的進(jìn)行精心的修改，不斷地去研究各方面的文獻(xiàn)， 虛心請教， 認(rèn)真總結(jié)。 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 28 結(jié)束語 2020 年， 是一個(gè)特別的年份，我要畢業(yè)了。 硬件的維護(hù)： 指的是對系統(tǒng)所使用的設(shè)備進(jìn)行維護(hù)。 系統(tǒng)的維護(hù)主要包括四個(gè)方面： 數(shù)據(jù)文件的維護(hù)： 指的是按照用戶的要求對數(shù)據(jù)文件進(jìn)行不定期的修改。 (2)初始數(shù)據(jù)的輸入 ： 本系統(tǒng)的輸入采取鼠標(biāo)和鍵盤相結(jié)合的輸入方法。 (3)綜合測試：在以上測試的基礎(chǔ)上對系統(tǒng)功能進(jìn)行了整體的測試， 依次檢驗(yàn)系統(tǒng)功能是否符合系統(tǒng)設(shè)計(jì)的要求 、實(shí)時(shí)檢測系統(tǒng)數(shù)據(jù)輸入、輸出、獲取等是否正常 。 電子科技大學(xué)畢業(yè)論文 家庭式 ERP系統(tǒng)分析與設(shè)計(jì) 27 4 系統(tǒng)測試運(yùn)行 系統(tǒng)的功能測試 本系統(tǒng)進(jìn)行了有針對性的全面測試， 在開發(fā)本系統(tǒng)時(shí)，為了使系統(tǒng)能夠穩(wěn)定運(yùn)行，對采取的方式是： (1) 數(shù)據(jù)跟蹤：完成菜單項(xiàng)測試后，對系統(tǒng)內(nèi)的每一個(gè)數(shù)據(jù)進(jìn)行了跟蹤 ， 首先對基本信息進(jìn)行設(shè)定，然后在添加隨時(shí)觀察兩個(gè)模塊之間是否有沖突產(chǎn)生，配合得是否正確，再然后瀏覽信息進(jìn)行驗(yàn)證，說明該功能完全正常，對其它的功能模塊也進(jìn)行了類似的設(shè)置。 還有 ADO 可以獨(dú)立地創(chuàng)建對象， 并且 支持使用帶有輸入輸出參數(shù)和返回值的存儲(chǔ)過程。 世界各國 軟 件 公司 都在 不斷努力以提高其編程語言產(chǎn)品的數(shù)據(jù)訪問能力。Microsoft Visual