【正文】 生活也越來越科學化、信息化。功能會逐漸完善，滿足家庭對事務進行規(guī)范化的信息管理，實現(xiàn)真正意義上的家庭式ERP。借此機會我再次感謝指導老師對我的悉心指導和幫助。不足之處懇請各位老師提出改進意見。本次畢業(yè)設計為本系統(tǒng)搭下了一個框架，我相信，這是以后現(xiàn)代化社會的必需品。王睦樹老師認真負責的工作態(tài)度，在百忙之中抽出時間幫助我搜集文獻資料，幫助我理清論文寫作思路，對我的論文提出了諸多寶貴的意見和建議。同時非常感激各位老師在這段時間對我的幫助和指導，也感謝在這四年的大學生活辛勤培養(yǎng)過我的各位老師。[2] 陳得友，劉遠超：《家庭財務管理系統(tǒng)》[J]，《科技創(chuàng)新導報》2009年第2期。[4]劉韜，駱娟：《Visual Basic 》[M]，人民郵電出版社2002年版。[6]張曜：《Visual Basic 函數(shù)使用手冊》[M]，冶金工業(yè)出版社2002年版。[8] 李春葆，曾平：《數(shù)據(jù)庫原理與應用——基于Access（第一版）》 [M]，清華大學出版社2005年版。[10]李敏業(yè)，王穎：《Visual Basic+Access數(shù)據(jù)庫應用實例完全解析》[M]，清華大學出版社2006年版。定義EXCEL類Dim xlBook As 39。定義工作表類Private Sub Command1_Click() 39。判斷EXCEL是否打開Set xlApp = CreateObject() 39。設置EXCEL可見Set xlBook = (D:\temp\) 39。打開EXCEL工作表 39。給單元格1行駛列賦值 (xlAutoOpen) 39。由VB關閉EXCEL (xlAutoClose) 39。關閉EXCEL工作簿 39。釋放EXCEL對象EndEnd Sub家庭打印機模塊代碼Option ExplicitPrivate Sub cmdClose_Click()39。 All Done39。39。.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly.Filter = Print Files (*.prn)|*.PRN|AllFiles (*.*)|*.*39。 Get filename. Allow user to cancel.39。39。If err = 0 ThentxtFile = .FilenameEnd IfEnd WithEnd SubPrivate Sub cmdPrint_Click()Dim Submit As StringDim prn As Printer39。 Warn user if file doesn39。Submit = UCase(Trim(txtFile))If Not IsFile(Submit) ThenMsgBox Can39。 Submit, vbExclamation, ErrorExit SubEnd If39。 Submit file to spooler after extracting name.39。39。 No point in proceeding if not.39。t continue., _vbCritical, Fatal ErrorEndEnd IfEnd SubPrivate Sub Form_Load()Dim prn As Printer39。 Fill bo box with available printers, and39。For Each prn In Printers amp。 Next prn39。 Select default printer.39。39。 clear textbox.39。Automatically loads the URLs in the textbox39。setting.End SubPrivate Sub cmdBack_Click()39。history file and loads it into the WebBrowser.39。Sybex Mastering Vb6On Error GoTo NoBackExit SubNoBack:MsgBox There is no Page to go back to!End SubPrivate Sub cmdBack2_Click()39。file and loads it into the second WebBrowser.On Error GoTo NoBackTwoExit SubNoBackTwo:MsgBox There is no Page to go back to!End SubPrivate Sub cmdForward_Click()39。previously loaded page after one has pressed the39。This event takes the first WebBrowser to the39。the second back button.On Error GoTo NoForwardTwoExit SubNoForwardTwo:MsgBox There are no files to load here!End SubPrivate Sub cmdHome_Click()39。Home Url set in Microsoft IE.End SubPrivate Sub cmdHome2_Click()39。Home Url set in Microsoft IE.End SubPrivate Sub cmdNavigateOne_Click()39。URL Entered into the first text box. End SubPrivate Sub cmdNavigateTwo_Click()39。entered into the second text box. End SubPrivate Sub cmdRefresh_Click()39。This event Refreshes WebBrowser2.End SubPrivate Sub cmdSearch_Click()39。WebBrowser1.On Error GoTo NoSearchExit SubNoSearch:MsgBox There is no search page to loadEnd SubPrivate Sub cmdSearch2_Click()39。WebBrowser2.On Error GoTo NoSearchTwoExit SubNoSearchTwo:MsgBox There is no search page to loadEnd SubPrivate Sub cmdStop_Click()39。loading any more of the HTML document.End SubPrivate Sub cmdStop2_Click()39。more of the HTML document.End SubPrivate Sub Form_Load()39。the user39。Greg Perry Sams Teach Yourself VB6 in 24 hrs. = ( ) / 2 = ( ) / 2Navigate_TextEnd SubPrivate Sub mnuExit_Click()39。When you double click the Text box,39。When you double click the Text box, it clears