課程設計】vb家庭理財管理系統(tǒng)

1、徐州師范大學物電學院課程設計報告課 程 名 稱： 計算機程序設計實訓 題 目： 家庭理財管理系統(tǒng) 專 業(yè) 班 級： 電子科學與技術0831 學 生 姓 名： 張海龍 學 生 學 號： 日 期： 2010-12-16 指 導 教 師： 趙紀平 物電學院教務部印制說明：1、報告中的第一、二、三項由學生在課程設計開始前填寫，由指導教師指導并確認簽字。 2、學生成績由指導教師根據(jù)學生的設計情況給出各項分值及總評成績，并填寫成績評定表。3、所有學生必須參加課程設計的答辯環(huán)節(jié)，凡不參加答辯者，其成績一律按不及格處理。答辯小組成員應由2人及以上教師組成。答辯后學生根據(jù)答辯情況填寫答辯記錄表。4、報告正文字數(shù)

2、一般應不少于3000字，也可由指導教師根據(jù)本門課程設計的情況另行規(guī)定。5、平時表現(xiàn)成績低于6分的學生，取消答辯資格，其該課程設計成績按不及格處理。6、課程設計完成后，由指導教師根據(jù)完成情況寫出總結(jié)。7、此表格式為徐州師范大學物理與電子工程學院提供的基本格式，指導教師可根據(jù)本門課程設計的特點及內(nèi)容做適當?shù)恼{(diào)整。一、課程設計目的、任務和內(nèi)容要求：計算機語言程序設計是一門以編程實踐為主的專業(yè)課，目的在于培養(yǎng)學生利用計算機語言進行軟件開發(fā)所必需的基本思想和基本技能，進一步提高綜合應用計算機語言的各種編程知識和技巧進行程序設計的能力，通過本次課程設計，學生應能達到具備設計功能較為復雜的應用程序的能力，同

3、時培養(yǎng)學生自主學習和獨立創(chuàng)新的精神。任務如下： 1進行需求分析和概要設計，給出流程圖。 2寫出詳細設計，熟悉其中采用的關鍵技術。3給出具體的編碼實現(xiàn)并調(diào)試。4寫課程設計報告提交源程序。內(nèi)容要求：設計并完成軟件系統(tǒng)。要求：1應具有簡潔友好的用戶界面。2要求軟件系統(tǒng)的功能完整。3要求程序具備正確性，可讀性和運行的高效性。 二、進度安排：第13天： 查找資料，進行需求分析和概要設計；第46天： 各模塊的詳細設計；第712天： 軟件實現(xiàn)與調(diào)試；第1314天：寫課程設計報告并提交源程序。三、主要參考文獻：1白曉勇.Visual Basic案例精編 M .北京:清華大學出版社, 20072吳昌平.Visu

4、al Basic6.0程序設計M北京:人民郵電出版社2008 指導教師簽字： 年 月 日目 錄摘 要 .IIAbstract.II1 概述.11.1基本思路.12 設計方案簡述.22.1 基本方法.2 2.2程序流程圖. .23 詳細設計.43.1 設計架構(gòu).4 4 設計結(jié)果及分析.54.1數(shù)據(jù)庫配置.54.2 分支模塊.5 5總結(jié). .125.1設計體會與總結(jié).12參考文獻. 13. 附錄 主要程序代碼.14摘 要家庭理財管理信息系統(tǒng)可以對家庭的現(xiàn)金、銀行存款、應收款和欠款進行管理，操作流程簡介，使記賬不再是會計的專利，統(tǒng)計分析全面，讓用戶對家庭財務狀況一目了然。家庭理財管理系統(tǒng)使用的是VB

5、編程，VB語言的突出特點是可視化設計，它為用戶提供了大量的界面元素容易開發(fā)。利用ADO控件可以實現(xiàn)數(shù)據(jù)庫的連接，實現(xiàn)管理數(shù)據(jù)庫的操作。VB語言通過事件來觸發(fā)執(zhí)行相應的事件過程，這就是事件驅(qū)動。所謂事件，就是對操作對象（比如窗體，控件等）進行操作（比如鼠標單擊），從而產(chǎn)生的相應的響應。事件是窗體或控件識別的動作，在關聯(lián)的事件過程中存在代碼編輯器中。家庭管理系統(tǒng)就是基于事件操作的。本設計是基于vb的家庭理財管理系統(tǒng)，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具實現(xiàn)個人家庭理財，從而可以有效地管理家庭收入與支出，解決了紙質(zhì)化的理財，應用電腦幫助用戶進行科學理財。關鍵詞：可視化界面；ADO控件；模塊設計 Abs

6、tractThe program is designed by a language called Visual Basic,which is good for a visualized program.The project is called a family financial management which can help you control your money more effiectly.The language of Visual Basic is a very poewer language for computer programming especially fo

7、r the visualized screen . VB language through the event to trigger the execution of the corresponding event procedure, which is based event driven. The so-called events, that is the operating object (such as forms, controls, etc.) to operate (such as a mouse click), to produce the appropriate respon

8、se. Event is a form or control action identified in the course of events associated with a code editor. Home management system is event-based operations.Keywords：video ; ADO control active ;model designing1 概述1.1 基本思路本設計是基于vb的家庭理財管理系統(tǒng)，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具實現(xiàn)個人家庭理財，從而可以有效地管理家庭收入與支出，解決了紙質(zhì)化的理財，應用電腦幫助人民進行科學

9、理財，形象生動，具有一定的可實用性家庭理財系統(tǒng)是一種管理系統(tǒng)，開發(fā)內(nèi)容主要是后臺的數(shù)據(jù)庫建立、維護以及前臺的相應應用程序的開發(fā)。它應該能夠為每個家庭的管理者提供充足的信息和快捷的查詢手段，大大的方便家庭的管理者的合理理財。作為計算機應用的一部分，使用計算機對家庭理財進行管理，具有著手工管理所無法比擬的優(yōu)點，如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高家庭財務管理的效率，也是家庭理財?shù)目茖W化、正規(guī)化管理，與先進科學技術接軌的重要條件。VB的主窗口由標題欄、菜單欄、工具欄、工具箱、工程窗口、工程資源管理器、屬性窗口、窗體布局窗口組成。工程資源管理器

10、窗口中的文件分為：窗體文件（.frm）、標準模塊文件（.bas）、類模塊文件（.cls）、工程文件（.vbp）、工程組文件（.vbg）和資源文件（.res）。本家庭理財管理系統(tǒng)就是通過建立許多窗口文件，然后將這些窗口文件組合成一個模塊建立一個工程。通過ADO控件，結(jié)合SQL語言又可以實現(xiàn)數(shù)據(jù)庫的操作。家庭理財管理系統(tǒng)主要使用于家庭對財務狀況的管理和查詢，記錄日常的收支情況，對銀行賬戶狀態(tài)的管理，家庭對外債關系的管理以及家庭的投資理財。開發(fā)工具主要采用Visual Basic 6.0 Microsoft Access 2003，VB主要是用來實現(xiàn)系統(tǒng)管理、理財項目管理、日常管理、查詢管理、修改管

11、理、統(tǒng)計報告管理、投資理財管理這七個功能的?？傮w見圖1-1數(shù)據(jù)庫登陸信息管理數(shù)據(jù)庫綜合信息管理 退出信息管理圖1-1 思路圖2設計方案簡述2.1基本方法本設計利用了數(shù)據(jù)庫報表，采用ADO控件實現(xiàn)了家庭理財管理系統(tǒng)的所有可視化界面，類似于MFC編寫應用程序向?qū)?，ADO對象可以在所有支持COM和OLE的平臺上使用，如VB，VC+等等。OLE DB是一種低層數(shù)據(jù)訪問界面接口，它是一套部件對象模型（COM）接口，支持大量可用于數(shù)據(jù)源的DBMS功能，利用SQL語言，連接數(shù)據(jù)庫。SQL全稱是“結(jié)構(gòu)化查詢語言”，最最早的是IBM的圣約瑟研究室開發(fā)的一種查詢語言。建立了表格，并在表格中插入了所需要的數(shù)據(jù)。臺數(shù)

12、據(jù)庫使用Access，前臺開發(fā)工具使用Visual Basic。本系統(tǒng)采用目前比較流行的ADO數(shù)據(jù)訪問技術，并將每個數(shù)據(jù)庫表的字段和操作封裝到類中，從而成功地將面向?qū)ο蟮某绦蛟O計思想應用到數(shù)據(jù)庫應用程序設計中。這也是本系統(tǒng)的特色和優(yōu)勢。具體如圖2-1整體布局。圖2-1 整體布局2.2程序流程圖基于整體布局情況和程序運行結(jié)果及步驟，家庭理財管理系統(tǒng)的登陸界面是一個密碼登陸系統(tǒng)，此界面與程序主題界面是分開的，提示用戶輸入密碼，并根據(jù)用戶預先設置的密碼進行核對，如果兩次輸入密碼不正確就會自動退出（次數(shù)可以設置）。進入登陸界面后，就進行財產(chǎn)管理，根據(jù)具體情況可以具體處理并畫出餅形圖，形象直觀，科學導用

13、戶理財。當用戶單擊退出界面后，程序便退出系統(tǒng)。具體如圖2-2家庭理財管理程圖。3詳細設計3.1設計架構(gòu)基本設計框架如圖3-1設計架構(gòu)。家庭理財系統(tǒng)管理理財分析管理系統(tǒng)借還錢管理系統(tǒng)銀行儲蓄管理系統(tǒng)系統(tǒng)管理基礎數(shù)據(jù)管理系統(tǒng)日常收支管理系統(tǒng)圖3-1 設計架構(gòu)3.1.1 設計框架簡述家庭理財管理系統(tǒng)主要由六個分支管理系統(tǒng)構(gòu)成，系統(tǒng)管理又分為：導出數(shù)據(jù)庫，導入數(shù)據(jù)庫，重新登錄，退出?；A數(shù)據(jù)和管理系統(tǒng)又分為：收支項目管理，家庭成員管理。日常收支管理系統(tǒng)又分為：日常收入，日常支出。銀行儲蓄管理系統(tǒng)又分為：活期賬戶，定期儲蓄。借還錢管理系統(tǒng)又分為：借入款，借出款。理財分析又分為：查詢明細，理財報告。4設計

14、結(jié)果及分析4.1數(shù)據(jù)庫配置因為采用的是Microsoft Access數(shù)據(jù)庫，所以配置非常簡單。只要保證數(shù)據(jù)庫的配置路徑正確就可以了。此家庭理財管理系統(tǒng)用的路定是：Str_path = App.Path & & databaseMoneyMIS.mdb如圖4-1所示。 圖4-1 數(shù)據(jù)庫4.2分支模塊4.2.1各分支模塊設計Visual Basic 語言程序設計是按窗體分類后進行模塊化設計的，所以此家庭理財管理系統(tǒng)按照每個模塊的功能逐一添加了相應的窗體后，在每個模塊中添加相應的函數(shù)，然后連接數(shù)據(jù)庫，使得每個模塊的添加，修改，刪除都能隨時保持與數(shù)據(jù)庫的及時更新，從而實現(xiàn)智能管理。(1)密碼系統(tǒng)可以

15、修改密碼，輸入舊密碼，然后輸入新密碼，再次輸入新的密碼后，如果新密碼與原密碼相同，則可以修改密碼否則提示密碼不一致。VB語言通過事件來觸發(fā)執(zhí)行相應的事件過程，這就是事件驅(qū)動。所謂事件，就是對操作對象（比如窗體，控件等）進行操作（比如鼠標單擊），從而產(chǎn)生的相應的響應。這樣我們輸入密碼后，如果正確就可以進入系統(tǒng)。事件是窗體或控件識別的動作，在關聯(lián)的事件過程中存在代碼編輯器中。如圖4-2-1所示。 圖4-2-1 密碼登陸(2)添加家庭成員可以添加修改刪除成員列表，自動更新數(shù)據(jù)庫，使得處理非常方便簡潔。利用ADO控件連接數(shù)據(jù)庫，使用SQL語言查詢化結(jié)構(gòu)語言直接操縱數(shù)據(jù)庫。如圖4-2-2所示。 圖4-2

16、-2 添加家庭成員 (3)日常收入與支出可以添加日期，方式，金額，項目，去向，人員，備注等，然后以表格形式呈現(xiàn)出來。當然也可以添加，刪除,修改,保存.。如圖4-2-3和圖4-2-4所示。 圖4-2-3 日常收入 圖4-2-4 日常支出 (4) 借入款與借出款系統(tǒng)自動彈出一個對話框，顯示當前記錄，得款人，借款金額，出借人，借款日期，借款原因.，可以添加，修改，保存。借款原因這一項，可以幫助家庭進行反思，總結(jié)覺悟，從而有效利用家庭財產(chǎn)，受利益最大化。借入款與借出款配合，幫助家庭理財管理系統(tǒng)，然用戶可以一目了然的看出具體的借錢情況，從而可以規(guī)劃一下具體的錢財，有助于用戶實時了解本年，或是本月具體情況

17、，并可以根據(jù)具體情況做出具體的處理。在對話框我們給出了具體的記錄，用戶則根據(jù)具體的記錄作出判斷。具體如圖4-2-5，4-2-6所示。 圖4-2-5 借入款 圖4-2-6 借出款 (5) 查詢查詢項目可以分為日常收入與日常支出。同時還可以按日期或是方式或是金額或是項目。系統(tǒng)自動會根據(jù)操作者所選的具體規(guī)則在對話框的下半部分顯示具體的日常收入與日常支出。如圖4-2-7,4-2-8所示。 圖4-2-7 日常支出 圖4-2-8 日常收入(6) 餅圖餅圖可以根據(jù)一定的比例形象的描繪出收入情況與支出情況，可以按照給定的比例形象生動的繪制出一定的餅狀圖形，采用不同的顏色，根據(jù)實際的數(shù)據(jù)，按照先后一定的順序，配

18、合表格，畫出圖形。餅圖畫出之后，可以選擇具體的統(tǒng)計方式，可以按照人員統(tǒng)計方式進行統(tǒng)計，當然也可以按照具體的項目進行統(tǒng)計。應用兩種不同的統(tǒng)計方式，可以滿足用戶不同的方面，也可以滿足用戶的不同側(cè)重點，本次餅圖只是統(tǒng)計了2010年的不同情況，具體的統(tǒng)計哪一年和那一個月是由在窗體中添加不同代碼加以實現(xiàn)的，通過不同代碼，可以實現(xiàn)不同年月份的統(tǒng)計統(tǒng)計餅圖也可以根據(jù)收入情況或者是支出情況是支出情況作出調(diào)整。具體情況如圖4-2-9所示。 圖4-2-9 餅圖5總結(jié)51設計體會與總結(jié)通過這十幾天的計算機課程設計，我學會了將一種技能轉(zhuǎn)移到另外一種技能上的本領。首先要感謝我的指導老師趙紀平老師，通過趙老師的VC+及M

19、FC的課程講解，讓我學會的不僅僅是一種語言，更是一種編程的思想與算法。我編程主要是通過VB，通過對圖書館資料和網(wǎng)上的資料查詢，我對VB有了一些初步的認識，通過此次課程設計更加深了我運用VB語言，利用ADO控件操作數(shù)據(jù)庫的能力。同時我想在新時代的大背景下，我們運用程序的設計可以實現(xiàn)許多無紙化管理。這更符合環(huán)保的要求。由此可見計算機程序?qū)嵱柵囵B(yǎng)了我們學生實際的操作能力，這也符合新世紀環(huán)保節(jié)約的要求，同時意義也是很重大的。通過此次設計我對VB也有了更全面的認識。VB語言通過事件來觸發(fā)執(zhí)行相應的事件過程，這就是事件驅(qū)動。所謂事件，就是對操作對象（比如窗體，控件等）進行操作（比如鼠標單擊），從而產(chǎn)生的相

20、應的響應。VB的主要特點：1可視化編程2事件驅(qū)動3面向?qū)ο?數(shù)據(jù)庫管理功能 5結(jié)構(gòu)化程序設計語言。我想在以后的學習及工作中我會更加努力學習，不斷豐富我的計算機程序設計能力。 參考文獻1白曉勇.Visual Basic案例精編 M .北京:清華大學出版社, 20072吳昌平.Visual Basic6.0程序設計M北京:人民郵電出版社2008附錄 主要程序代碼(1)公共模塊設計代碼Public Str_path As StringPublic Cname As String 登陸時傳用戶名Public Cdate1 As String 傳日期(收入情況列表)Public Cdate2 As St

21、ring 傳日期Public AA As Boolean 判斷是否選擇月份ADO編程模型連接數(shù)據(jù)庫Public Function Connectstring() As StringDim Str_path As StringStr_path = App.Path & & databaseMoneyMIS.mdbConnectstring = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Str_path & ;Persist Security Info=FalseEnd FunctionADO編程模型連接數(shù)據(jù)庫Public Function E

22、xeCutesql(ByVal Sql As String, Msgstring As String) As ADODB.Recordset Dim Cnn As ADODB.Connection Dim Rst As ADODB.Recordset Dim Stokens() As String 數(shù)組 On Error GoTo executesql_error Stokens = Split(Sql) 將sql語句按關鍵字保存在數(shù)組中 Set Cnn = New ADODB.Connection Cnn.Open Connectstring If InStr(INSERT,DELETE,U

23、PDATE, UCase$(Stokens(0) Then Cnn.Execute Sql Msgstring = Stokens(0) & 查詢成功 Else Set Rst = New ADODB.Recordset Rst.Open Trim$(Sql), Cnn, adOpenKeyset, adLockOptimistic 重服務器中提取符合要求的記錄集 Set ExeCutesql = Rst Msgstring = 查詢到 & Rst.RecordCount & 條記錄 End If executesql_exit: Set Rst = Nothing 釋放記錄集 Set Cnn

24、 = Nothing 釋放連接語句 Exit Functionexecutesql_error: Msgstring = 查詢錯誤: & Err.Description Resume executesql_exitEnd Function（2）借入借出模塊代碼Dim Mydb As New ADODB.RecordsetDim Mydb1 As New ADODB.RecordsetDim Str_text As StringDim strflag As StringPrivate Sub cmd_close_Click() Unload MeEnd SubPrivate Sub cmd_ad

25、d_Click() txt_man.Locked = False txt_way.Locked = False txt_money.Locked = False Combo1.Locked = False Check1.Enabled = True DTPicker1.Enabled = True txt_man.Text = txt_way.Text = txt_money.Text = Combo1.Text = strflag = 添加 Cmdsave.Enabled = TrueEnd SubPrivate Sub cmd_del_Click() Dim A As Boolean A

26、= MsgBox(是否真的要刪除這條記錄？, vbOKCancel + 32 + 256, 刪除) If A = True Then ExeCutesql delete from 借入 where 得款人= & txt_man.Text & , Str_text MsgBox 記錄已刪除！, , 刪除 If Mydb.RecordCount 0 Then Mydb.MoveNext If Mydb.EOF Then Mydb.MoveLast Call Db Call Bangding Label7.Caption = Mydb.RecordCount End If End IfEnd Sub

27、Private Sub cmd_edit_Click() On Error Resume Next Dim A As Boolean txt_man.Locked = False txt_way.Locked = False txt_money.Locked = False Combo1.Locked = False Check1.Enabled = True DTPicker1.Enabled = True strflag = 修改 Cmdsave.Enabled = TrueEnd SubPrivate Sub Cmdsave_Click() On Error Resume Next Di

28、m A As Boolean If strflag = 添加 Then A = MsgBox(是否添加前記錄？, vbYesNo + 32, 添加記錄) If A = True Then ExeCutesql insert into 借入 values( & txt_man.Text & , & txt_money.Text & , & Combo1.Text & , & Format(DTPicker1.Value, yyyy-mm-dd) & , & txt_way.Text & , & Check1.Value & ), Str_text MsgBox 數(shù)據(jù)已經(jīng)保存！, vbOKOnly

29、 + 64, 成功 Call Db Label7.Caption = Mydb.RecordCount End If ElseIf strflag = 修改 Then A = MsgBox(是否修改前記錄？, vbYesNo + 32, 添加記錄) If A = True Then Mydb.Update Mydb.Requery Call Db MsgBox 數(shù)據(jù)修改成功！, vbOKOnly + 64, 成功 End If End If txt_man.Locked = True txt_way.Locked = True txt_money.Locked = True Combo1.Lo

30、cked = True Check1.Enabled = False DTPicker1.Enabled = False Cmdsave.Enabled = FalseEnd SubPrivate Sub Combo1_Change() Set Mydb1 = ExeCutesql(select 姓名 from 成員, Str_text) Set Combo1.DataSource = Mydb1 For I = 1 To Mydb1.RecordCount Combo1.AddItem (Mydb1.Fields(0) Mydb1.MoveNext If Mydb1.EOF Then Exi

31、t For Next IEnd SubPrivate Sub Command1_Click() On Error Resume Next Call Db Mydb.MoveFirst Call BangdingEnd SubPrivate Sub Command3_Click() On Error Resume Next Call Db Mydb.MoveNext If Mydb.EOF Then MsgBox 這已經(jīng)是最后一條記錄了！, vbOKOnly + 32, 注意 Mydb.MoveLast End If Call BangdingEnd SubPrivate Sub Command

32、2_Click() On Error Resume Next Mydb.MovePrevious If Mydb.BOF Then MsgBox 這已經(jīng)是第一條記錄了！, vbOKOnly + 32, 注意 Mydb.MoveFirst End If Call BangdingEnd SubPrivate Sub Command4_Click() On Error Resume Next Call Db Mydb.MoveLast Call BangdingEnd SubPrivate Sub Form_Load() On Error Resume Next Call Db Call Bang

33、ding Cmdsave.Enabled = False Check1.Value = 0 Label7.Caption = Mydb.RecordCount DTPicker1.Value = Date txt_man.Locked = True txt_way.Locked = True txt_money.Locked = True Combo1.Locked = True Check1.Enabled = False DTPicker1.Enabled = FalseEnd SubPrivate Function Db() Set Mydb = ExeCutesql(select *

34、from 借入, Str_text)End FunctionPrivate Function Bangding() On Error Resume Next Set txt_man.DataSource = Mydb Set txt_money.DataSource = Mydb Set DTPicker1.DataSource = Mydb Set txt_way.DataSource = Mydb Set Check1.DataSource = Mydb txt_man.DataField = 得款人 txt_money.DataField = 金額 DTPicker1.DataField

35、 = 日期 txt_way.DataField = 出借原因 Check1.DataField = 已還 Set Combo1.DataSource = Mydb Combo1.DataField = 出借人End Function（3）主函數(shù)代碼Private Sub mnu_bg_yue_Click() frm_list.Show 0, frm_main 參數(shù),讓frm_main為主窗體打開多個子體End SubPrivate Sub mnu_cx_shouru_Click() frm_query.Show 0, frm_mainEnd SubPrivate Sub mnu_bz_zt_C

36、lick()End SubPrivate Sub mnu_cx_Click() frm_query.Show 0, frm_mainEnd SubPrivate Sub mnu_rcgl_dq_Click() frm_fix.Show 0, frm_mainEnd SubPrivate Sub mnu_rcgl_hq_Click() frm_live.Show 0, frm_mainEnd SubPrivate Sub mnu_rcgl_jc_Click() frm_borrowgo.Show 0, frm_mainEnd SubPrivate Sub mnu_rcgl_jr_Click()

37、frm_borrowin.Show 0, frm_mainEnd SubPrivate Sub mnu_rcgl_sr_Click() frm_intake.Show 0, frm_mainEnd SubPrivate Sub mnu_rcgl_zc_Click() frm_expend.Show 0, frm_mainEnd SubPrivate Sub mnu_xt_shz_Click() frm_login.Show Unload MeEnd SubPrivate Sub mnu_xt_xg_Click() frm_password.Show 0, frm_mainEnd SubPriv

38、ate Sub mnu_xt_xu_Click() frm_project.Show 0, frm_mainEnd SubPrivate Sub mnu_xy_family_Click() frm_family.Show 0, frm_mainEnd SubPrivate Sub mnuexit_Click()Unload MeEnd SubPrivate Sub mnuinput_Click()Call FileInEnd SubPrivate Sub mnuout_Click()Call FileGoEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal

39、 Button As MSComctlLib.Button) Select Case Button.Index Case 1 Call mnu_xt_xu_Click Case 2 Call mnu_xy_family_Click Case 3 Call mnu_xt_xg_Click Case 5 Call FileGo Case 6 Call FileIn Case 8 Call mnu_rcgl_sr_Click Case 9 Call mnu_rcgl_zc_Click Case 10 Call mnu_rcgl_hq_Click Case 11 mnu_bg_yue_Click Ca

40、se 13 Call mnu_cx_Click Case 15 Unload Me End SelectEnd SubPrivate Function FileGo() On Error GoTo 1 Dim A, B As String CommonDialog1.ShowSave A = CommonDialog1.FileName B = App.Path & & databaseMoneyMIS.mdb Set fs = CreateObject(Scripting.FileSystemObject) fs.CopyFile B, A MsgBox 數(shù)據(jù)庫導出成功！, vbOKOnly + 64, 成功 Exit Function 1: MsgBox 數(shù)據(jù)庫導出失敗！, vbOKOnly + 64, 失敗End FunctionPrivate Function FileIn() On Error GoTo 1 Dim A, B, C, D As String C = MsgBox(是否真的導入數(shù)據(jù)庫，導入新數(shù)據(jù)庫后，將覆蓋原來的所有錄？, vbYesNo + 48 + 256, 警告) If C = vbYes Then CommonDialog1.ShowOpen A = C