家庭理財(cái)管理畢業(yè)設(shè)計(jì)

1、PAGE 家庭財(cái)務(wù)管理系統(tǒng)【摘 要】： 家庭財(cái)務(wù)管理系統(tǒng)就是我們常說的管理信息系統(tǒng)MIS(Management Information System)中的一種，它是一個(gè)計(jì)算機(jī)軟硬件資源以及數(shù)據(jù)庫的人-機(jī)系統(tǒng)。隨著信息技術(shù)，計(jì)算機(jī)技術(shù)的發(fā)展，在社會(huì)各領(lǐng)域都已經(jīng)離不開信息系統(tǒng)的支持。家庭財(cái)務(wù)管理系統(tǒng)針對個(gè)人用戶設(shè)計(jì)，是一個(gè)單用戶系統(tǒng)，它提供各全方位的財(cái)務(wù)數(shù)據(jù)統(tǒng)計(jì)、數(shù)據(jù)查詢、數(shù)據(jù)打印，方便個(gè)人理財(cái)，做出正確的財(cái)務(wù)決策?！娟P(guān)鍵詞】：財(cái)務(wù)管理系統(tǒng)，面向?qū)ο缶幊蹋?cái)務(wù)決策。 1概 述在社會(huì)經(jīng)濟(jì)不斷發(fā)展的今天，人們生活水平越來越高，個(gè)人合理理財(cái)也變得越來越重要，它直接影響著人們的生活。各種財(cái)務(wù)管理軟件也層出

2、不窮，本系統(tǒng)僅應(yīng)用于個(gè)人理財(cái)，提供財(cái)務(wù)數(shù)據(jù)統(tǒng)一管理，以便做出合理的財(cái)務(wù)決策。其界面友好，操作簡單，除具備基本的財(cái)務(wù)信息管理外，還提供了數(shù)據(jù)統(tǒng)計(jì)，數(shù)據(jù)查詢，圖表統(tǒng)計(jì)，報(bào)表打印等。為方便操作，設(shè)置有部分常用功能快捷工具欄，菜單項(xiàng)都設(shè)置有快捷鍵。它多方面把握用戶的財(cái)務(wù)情況，科學(xué)的統(tǒng)計(jì)數(shù)據(jù)。本系統(tǒng)可根據(jù)使用者的實(shí)際情況，設(shè)置收入、支出類型，以適應(yīng)社會(huì)不同階層，不同行業(yè)人士的應(yīng)用。本軟件為單用戶系統(tǒng)，沒有權(quán)限設(shè)置，更保證了數(shù)據(jù)的安全性。數(shù)據(jù)分為兩大模塊，即收支明細(xì)和轉(zhuǎn)賬明細(xì)，詳細(xì)反映了各經(jīng)濟(jì)業(yè)務(wù)，往來賬的情況。本家庭財(cái)務(wù)管理系統(tǒng)的主要功能有：用戶管理：即使用者資料管理，主要功能為登錄系統(tǒng)用戶名和密碼的修

3、改，用戶基本資料的設(shè)置。收支類型設(shè)置：即根據(jù)使用者實(shí)際情況設(shè)置收入和支出的項(xiàng)目名稱，如收入類型有：工資、補(bǔ)貼、股票收入等，反映經(jīng)濟(jì)來源的詳細(xì)情況。如支出類型有：電話費(fèi)、伙食、購物、水電費(fèi)等，詳細(xì)反映資金的花費(fèi)去向，花費(fèi)時(shí)間，發(fā)生金額等?？旖菡{(diào)用Windows提供的“記事本”和“計(jì)算器”。方便用戶進(jìn)行日志記載和財(cái)務(wù)計(jì)算操作。數(shù)據(jù)維護(hù)：即各項(xiàng)經(jīng)濟(jì)業(yè)務(wù)數(shù)據(jù)的增加、編輯、刪除操作。收支明細(xì)和轉(zhuǎn)賬明細(xì)分開操作，根據(jù)當(dāng)前標(biāo)簽顯示的數(shù)據(jù)所屬模塊自動(dòng)判斷操作數(shù)據(jù)對象。且可通過雙擊數(shù)據(jù)列表，對當(dāng)前數(shù)據(jù)進(jìn)行編輯修改。數(shù)據(jù)導(dǎo)入及圖表統(tǒng)計(jì)功能：通過導(dǎo)入功能可以獲取外部數(shù)據(jù)，以達(dá)到添加數(shù)據(jù)的目的，如Excel電子表格數(shù)

4、據(jù)的導(dǎo)入，分為收支數(shù)據(jù)和轉(zhuǎn)賬數(shù)據(jù)的導(dǎo)入。圖表統(tǒng)計(jì)是指用立方圖的形式顯示數(shù)據(jù)量，分別顯示收入、支出、轉(zhuǎn)入、轉(zhuǎn)出圖例，使統(tǒng)計(jì)數(shù)據(jù)的查看更加直觀。數(shù)據(jù)查詢功能：該功能根據(jù)標(biāo)簽當(dāng)有顯示的是收支明細(xì)還是轉(zhuǎn)賬明細(xì)判斷查詢功能。查詢條件可根據(jù)收入/支出、收支類型、轉(zhuǎn)入/轉(zhuǎn)出、發(fā)生金額、發(fā)生日期、錄入日期查詢。查詢結(jié)果顯示在標(biāo)簽的相應(yīng)數(shù)據(jù)表格中，以便對其進(jìn)行操作維護(hù)。其中發(fā)生日期和錄入日期以及發(fā)生金額可根據(jù)區(qū)間查詢。數(shù)據(jù)統(tǒng)計(jì)：統(tǒng)計(jì)總收入額、總支出額、總轉(zhuǎn)出額、總轉(zhuǎn)入額，根據(jù)總的收支，轉(zhuǎn)賬額計(jì)算統(tǒng)計(jì)余額。報(bào)表打印：即提供數(shù)據(jù)的打印輸出。 3系統(tǒng)介紹31 面向?qū)ο缶幊探榻B面向?qū)ο螅∣bject-Oriented，

5、OO）方法是一種非常實(shí)用的軟件開發(fā)方法，他一出現(xiàn)就受到軟件技術(shù)人員的青睞，現(xiàn)已經(jīng)成為計(jì)算機(jī)科學(xué)研究的一個(gè)重要領(lǐng)域，并逐漸成為軟件開發(fā)的主要方法。面向?qū)ο蠓椒ㄒ钥陀^世界中的對象為中心，起分析和設(shè)計(jì)思想符合人們的思維方式，分析和結(jié)果與客觀世界的實(shí)際比較接近，容易被人們所接受。 本系統(tǒng)就是使用面向?qū)ο蟮拈_發(fā)語言Visual C+6.0開發(fā)環(huán)境，自然就應(yīng)當(dāng)采用面向?qū)ο蟮南嚓P(guān)方法來分析和設(shè)計(jì)系統(tǒng)；再者，把系統(tǒng)中的實(shí)體對象化，使分析和設(shè)計(jì)的結(jié)果更容易讓人理解。Peter Coad 和 Edward Yourdon 提出下列等式識別面向?qū)ο蠓椒ǎ好嫦驅(qū)ο?對象（Object）+ 分類（classificat

6、ion）+ 繼承（inheritance）+ 消息通信（communication with message）對象：在計(jì)算機(jī)系統(tǒng)中，對象是指一組屬性以及這組屬性上的專用操作的封裝體。屬性可以是一些數(shù)據(jù)，也可以是另一個(gè)對象。每個(gè)對象都有它自己的屬性值，表示該對象的狀態(tài)。對象中的屬性只能通過該對象所提供的操作來存取或修改。操作也稱為方法或服務(wù)，它規(guī)定了對象的行為，表示對象所能提供的服務(wù)。一個(gè)對象通?？捎蓪ο竺?、屬性和操作三部分組成。類：類是一組具有相同屬性和相同操作的對象的集合。一個(gè)類總的每個(gè)對象都是這個(gè)類的一個(gè)實(shí)例（Instance）。封裝性：封裝是一種信息隱蔽技術(shù)，用戶只能看到對象封裝界面上的

7、信息，對象的內(nèi)部實(shí)現(xiàn)對用戶是隱蔽的。也就是說要將對象的信息（也就是對象的屬性）和對象所能執(zhí)行的動(dòng)作（也就是對象的方法）包裝起來，這樣就可以讓使用者可以用深入不了解內(nèi)部的運(yùn)作原理，就可以對其進(jìn)行操作。例如：在vc中我們要使用的一個(gè)控件，我們不必了解其中給一個(gè)屬性是怎樣傳給對象的，也不要知道當(dāng)我們調(diào)用一個(gè)對象控件的方法時(shí)，對象在其中為我們作了些什么，我們所要作的僅僅是要符合它的使用規(guī)范對其進(jìn)行簡單的使用即可。封裝的目的是使用者和生產(chǎn)者分離，使對象的定義和實(shí)現(xiàn)分開。繼承：繼承是類間的一種基本關(guān)系，是在某個(gè)類的層次關(guān)聯(lián)中不同的類共享屬性和操作的一種機(jī)制。一個(gè)父類可以有多個(gè)子類，這些子類都是父類的特例，

8、父類描述了子類的公共屬性何操作。一個(gè)子類可以繼承它的父類總的屬性和操作，這些屬性和操作在子類中不必定義，子類中還可以定義自己的屬性和操作。子類只有惟一的一個(gè)父類，這種繼承成為單一繼承。一個(gè)子類也可以有多個(gè)父類，可以從多個(gè)父類中繼承特性，這種繼承稱為多重繼承。消息：消息是對象間通信的手段，一個(gè)對象通過向另一對象發(fā)送消息來請求其服務(wù)。消息只告訴接收對象需要完成什么操作，但并不指示接收者怎樣完成操作。消息完全由接收者解釋，接收者獨(dú)立決定采用什么方法來完成所需的操作。多態(tài)性：多態(tài)性是指同一個(gè)操作作用于不同的對象可以有不同的解釋，并產(chǎn)生不同的執(zhí)行結(jié)果。與多態(tài)性密切相關(guān)的一個(gè)概念就是動(dòng)態(tài)綁定。傳統(tǒng)的程序設(shè)

9、計(jì)語言把過程調(diào)用與目標(biāo)代碼的連接放在程序運(yùn)行前進(jìn)行(稱為靜態(tài)綁定)，而動(dòng)態(tài)綁定則是把這種連接推遲到運(yùn)行時(shí)才進(jìn)行。在一般與特殊關(guān)系中，子類是父類的一個(gè)特例，所以父類對象可以出現(xiàn)的地方，也允許其子類對象出現(xiàn)。因此再運(yùn)行過程中，當(dāng)一個(gè)對象發(fā)送消息請求服務(wù)時(shí)，要根據(jù)接收對象的具體情況將請求的操作與實(shí)現(xiàn)的方法進(jìn)行連接，即動(dòng)態(tài)綁定。5.系統(tǒng)詳細(xì)設(shè)計(jì)實(shí)施5.2 登錄界面與主界面設(shè)計(jì)1.登錄模塊用于用戶身份及密碼的驗(yàn)證，一個(gè)系統(tǒng)僅供一個(gè)用戶使用。點(diǎn)擊“確定”按鈕對用戶所輸入的用戶名和密碼進(jìn)行驗(yàn)證，首先打開數(shù)據(jù)庫中存有用戶資料的數(shù)據(jù)表，對數(shù)據(jù)庫中用戶名，密碼和用戶輸入的進(jìn)行比較，如果一致則載入主窗體，否則彈出對

10、話框提示密碼或用戶名錯(cuò)誤，登錄失敗，并清空用戶名和密碼文本框。實(shí)現(xiàn)代碼如下：Set db = OpenDatabase(App.Path & data.mdb) 連接數(shù)據(jù)庫Set re = db.OpenRecordset(user)打開用戶數(shù)據(jù)表If Text1.Text = re.Fields(0) And Text2.Text = re.Fields(1) Then Unload Me Load Form_main Form_main.ShowElse MsgBox 對不起,用戶名或密碼不正確!, 16, 錯(cuò)誤 Text1.Text = Text2.Text = Text1.SetFoc

11、usEnd If輸入框檢測是否按回車確認(rèn)，該功能是為方便操作設(shè)計(jì)，代碼如下：Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1_ClickEnd Sub主界面設(shè)計(jì)，即主要操作界面，工作區(qū)。主窗體的載入需對該系統(tǒng)進(jìn)行初始化，包括數(shù)據(jù)庫中數(shù)據(jù)的統(tǒng)計(jì)及信息的顯示等，初始顯示全部數(shù)據(jù)庫中數(shù)據(jù)記錄，對資金合計(jì)，收支統(tǒng)計(jì)值顯示在主窗體左側(cè)的統(tǒng)計(jì)數(shù)據(jù)區(qū)。并在左下載顯示系統(tǒng)當(dāng)前的詳細(xì)時(shí)間，利用時(shí)間控件實(shí)現(xiàn)時(shí)間以秒為單位變化。選項(xiàng)框標(biāo)簽選擇，即在標(biāo)簽框中選擇是瀏覽收支明細(xì)還是轉(zhuǎn)賬明細(xì)，根據(jù)所選判斷數(shù)據(jù)網(wǎng)格中顯

12、示數(shù)據(jù)。同時(shí)根據(jù)用戶當(dāng)前所選擇瀏覽的數(shù)據(jù)區(qū)，菜單中搜索部分會(huì)自動(dòng)變化自身的可用性。這樣增強(qiáng)了系統(tǒng)的功能的邏輯性。實(shí)現(xiàn)代碼如下：Private Sub SSTab1_Click(PreviousTab As Integer)dbname = App.PathIf Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdbconnSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbname & ;Persist Security Info=FalseAdodc1.C

13、onnectionString = connSTRSelect Case PreviousTab 判斷當(dāng)前所選標(biāo)簽 Case 0 Adodc1.RecordSource = select * from jzmx Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh inorout.Enabled = False 將部分菜單項(xiàng)設(shè)為不可用 inouttype.Enabled = False zrorzc.Enabled = True dg2 Case 1 Adodc1.RecordSource = select * f

14、rom szmx Adodc1.Refresh Set DataGrid2.DataSource = Adodc1 DataGrid2.Refresh inorout.Enabled = True inouttype.Enabled = True zrorzc.Enabled = False dg1End SelectEnd Sub當(dāng)用戶在數(shù)據(jù)網(wǎng)絡(luò)顯示區(qū)中選擇某項(xiàng)數(shù)據(jù)后，選擇了菜單或者工具欄中的“刪除數(shù)據(jù)”功能，首先判斷用戶當(dāng)前選擇的數(shù)據(jù)是屬于收支明細(xì)的還是轉(zhuǎn)賬明細(xì)的數(shù)據(jù)，且在數(shù)據(jù)庫中搜索是否有該數(shù)據(jù)，如果有然后對數(shù)據(jù)庫中數(shù)據(jù)進(jìn)行刪除操作，在刪除之前會(huì)彈出對話框需要用戶確實(shí)是否真要?jiǎng)h除數(shù)據(jù)，如

15、果點(diǎn)“是”刪除數(shù)據(jù)后，將不可恢復(fù)。刪除數(shù)據(jù)代碼：Private Sub deldata_Click()dbname = App.PathIf Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdbconnSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbname & ;Persist Security Info=FalseAdodc1.ConnectionString = connSTRSelect Case SSTab1.Tab Case 0 Set d

16、b = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(szmx) Do While Not re.EOF 判斷在網(wǎng)格中當(dāng)前選擇的數(shù)據(jù)項(xiàng) If re.Fields(0) = Trim(Str(DataGrid1.Row + 1) Then yesorno = MsgBox(您確定要?jiǎng)h除這條數(shù)據(jù)嗎?, 33, 確認(rèn)) If yesorno = 1 Then re.Delete MsgBox 數(shù)據(jù)已經(jīng)成功刪除., , 刪除成功 重新在數(shù)據(jù)網(wǎng)格中顯示數(shù)據(jù)開始strsql = select * from szmxAdodc1.Re

17、cordSource = strsqlAdodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.Refresh Exit Do Else Exit Sub End If End If re.MoveNext Loop If re.EOF = True Then MsgBox 對不起,沒有該項(xiàng)., , 錯(cuò)誤 End If Case 1 Set db = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(jzmx) Do While Not re.EOF If re.Fie

18、lds(0) = Trim(Str(DataGrid2.Row + 1) Then yesorno = MsgBox(您確定要?jiǎng)h除這條數(shù)據(jù)嗎?, 33, 確認(rèn)) If yesorno = 1 Then re.Delete MsgBox 數(shù)據(jù)已經(jīng)成功刪除., , 刪除成功 strsql = select * from jzmxAdodc1.RecordSource = strsqlAdodc1.RefreshSet DataGrid2.DataSource = Adodc1DataGrid2.Refresh Exit Do End IfEnd Ifre.MoveNextLoopIf re.EOF

19、 = True ThenMsgBox “對不起,沒有該項(xiàng).”, , “錯(cuò)誤”End IfEnd SelectEnd Sub 增加新的記錄rptdata.AddNewrptdata.Fields(“序號”) = rptDBUsers.Fields(“序號”)rptdata.Fields(“收入支出”) = rptDBUsers.Fields(“收入支出”)rptdata.Fields(“收支類型”) = rptDBProfile.Fields(“收支類型”)rptdata.Fields(“發(fā)生日期”) = rptDBProfile.Fields(“發(fā)生日期”)rptdata.Fields(“發(fā)生

20、金額”) = rptDBProfile.Fields(“發(fā)生金額”)rptdata.Fields(“錄入日期”) = rptDBProfile.Fields(“錄入日期”)rptdata.Fields(“備注”) = rptDBProfile.Fields(“備注”) 對數(shù)據(jù)更新操作 rptdata.Update 移到下一條記錄 rptDBUsers.MoveNextWend Set UnboundReport.DataSource = rptdata UnboundReport.Show Case “1” rptdata.Fields.Append “序號”, adChar, 20, adF

21、ldFixed rptdata.Fields.Append “轉(zhuǎn)入轉(zhuǎn)出”, adChar, 30, adFldFixed rptdata.Fields.Append “轉(zhuǎn)賬日期”, adDate, 40, adFldFixed rptdata.Fields.Append “轉(zhuǎn)賬金額”, adSingle, 40, adFldFixed rptdata.Fields.Append “錄入日期”, adDate, 40, adFldFixed rptdata.Fields.Append “備注”, adChar, 50, adFldFixed If rptDBUsers.State = adSta

22、teOpen Then rptDBUsers.CloserptDBUsers.Open “Select * from jzmx”, dbConnect, adOpenDynamic 將數(shù)據(jù)記錄指針移到第一條 If Not rptDBUsers.EOF ThenrptDBUsers.MoveFirst End If打開數(shù)據(jù)記錄集rptdata.Open遍歷數(shù)據(jù)所有記錄 While Not rptDBUsers.EOF If rptDBProfile.State = adStateOpen Then rptDBProfile.Close rptDBProfile.Open “Select * fr

23、om jzmx where 序號 = ” & rptDBUsers.Fields(“序號”) & “”, dbConnect, adOpenDynamic 移動(dòng)指針到第一條記錄 If Not rptDBProfile.EOF ThenrptDBProfile.MoveFirst End If增加新的記錄rptdata.AddNewrptdata.Fields(“序號”) = rptDBUsers.Fields(“序號”)rptdata.Fields(“轉(zhuǎn)入轉(zhuǎn)出”) = rptDBUsers.Fields(“轉(zhuǎn)入轉(zhuǎn)出”)rptdata.Fields(“轉(zhuǎn)賬日期”) = rptDBProfile.

24、Fields(“轉(zhuǎn)賬日期”)rptdata.Fields(“轉(zhuǎn)賬金額”) = rptDBProfile.Fields(“轉(zhuǎn)賬金額”)rptdata.Fields(“錄入日期”) = rptDBProfile.Fields(“錄入日期”)rptdata.Fields(“備注”) = rptDBProfile.Fields(“備注”)對數(shù)據(jù)更新操作rptdata.Update移到下一條記錄rptDBUsers.MoveNextWendSet DataReport2.DataSource = rptdata顯示打印窗體DataReport2.ShowEnd SelectEnd Sub打開Window

25、s記事本代碼（計(jì)算器代碼類似）：Private Sub notpad_Click()Dim pid As Longpid = Shell(App.Path + notepad.exe, vbNormalFocus)If pid = 0 Then MsgBox 無法打開記事本！, vbOKOnly + vbExclamation, 打開程序出錯(cuò)End IfEnd Sub5.3 系統(tǒng)基本設(shè)置模塊設(shè)計(jì)用戶設(shè)置，包括用戶資料及登錄密碼的修改。其中密碼修改部分首先要求輸入舊密碼，并對“新密碼”及“確認(rèn)新密碼”進(jìn)行對比，如果這兩項(xiàng)驗(yàn)證其中有一項(xiàng)不成立，即不能進(jìn)行密碼的修改。實(shí)現(xiàn)代碼如下： Set db =

26、 OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(user) If Text7.Text re.Fields(1) Then MsgBox 您的舊密碼輸入錯(cuò)誤., , 錯(cuò)誤 Else If Text8.Text = Text9.Text Then re.Edit re.Fields(1) = Text8.Text re.Update Text7.Text = Text8.Text = Text9.Text = MsgBox 密碼已經(jīng)成功修改., , 修改成功 Else MsgBox 兩次輸入的新密碼不相同,請重新輸入.,

27、, 錯(cuò)誤 Text8.Text = Text9.Text = End If End If收支類型設(shè)置添加收支類型，根據(jù)個(gè)人的實(shí)際情況添加，編輯，刪除收入和支出類型，通過在左側(cè)的列表框中選擇數(shù)據(jù)項(xiàng)在右側(cè)的文本框同步顯示所選擇的數(shù)據(jù)，以便對該項(xiàng)數(shù)據(jù)進(jìn)行操作。實(shí)現(xiàn)代碼如下: Set db = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(outType) If Text11.Text Then re.AddNew re.Fields(0) = Text11.Text re.Update List2.AddItem Text11

28、.Text MsgBox 成功添加., , 成功 Else MsgBox 添加項(xiàng)目不允許為空., , 錯(cuò)誤 End If Label13.Caption = 共 + Str(List2.ListCount) + 項(xiàng)刪除收支類型項(xiàng)代碼:If Trim(Text11.Text) = Then MsgBox 請選擇要?jiǎng)h除的項(xiàng)!, vbCritical + vbOKOnly, 提示 Exit SubEnd IfDim yorn As Stringyorn = MsgBox(您確定要?jiǎng)h除該支出類型嗎?, vbQuestion + vbYesNo, 提示)If yorn = vbYes Then Set

29、db = OpenDatabase(App.Path & data.mdb) Set re = db.OpenRecordset(outType) Do While Not re.EOF If List2.Text = re.Fields(0) Then re.Delete MsgBox 數(shù)據(jù)已成功刪除., , 刪除成功 Exit Do End If re.MoveNext Loop List2.Clear re.MoveFirst Do While Not re.EOF List2.AddItem re.Fields(0) re.MoveNext LoopEnd If5.5 搜索模塊設(shè)計(jì)5.

30、5.1 按發(fā)生金額搜索按發(fā)生金額搜索可以選擇是按某個(gè)特定的數(shù)字進(jìn)行搜索,或者選擇某個(gè)數(shù)值區(qū)間進(jìn)行搜索。執(zhí)行搜索代碼如下:If Option1.Value = True Then If Text1.Text = Then MsgBox 對不起,搜索條件不能為空., , 錯(cuò)誤 Else aa = Text1.Text dbname = App.Path If Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdb connSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source

31、= & dbname & ;Persist Security Info=False Form_main.Adodc1.ConnectionString = connSTR strsql = select * from szmx where 發(fā)生金額= + aa Form_main.Adodc1.RecordSource = strsql Form_main.Adodc1.Refresh Set Form_main.DataGrid1.DataSource = Form_main.Adodc1 Form_main.DataGrid1.Refresh Unload Me End IfEnd IfI

32、f Option2.Value = True Then If Text2.Text = Or Text3.Text = Then MsgBox 對不起,搜索條件不能為空., , 錯(cuò)誤 Else If Val(Text2.Text) Val(Text3.Text) Then aa = Text3.Text bb = Text2.Text Else aa = Text2.Text bb = Text3.Text End If dbname = App.Path If Right(dbname, 1) Then dbname = dbname + dbname = dbname + data.mdb

33、 connSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbname & ;Persist Security Info=False Form_main.Adodc1.ConnectionString = connSTR If aa = bb Then strsql = select * from szmx where 發(fā)生金額= + aa + Else strsql = select * from szmx where 發(fā)生金額= + aa + And + 發(fā)生金額= + bb End If Form_main.Adodc1.Rec

34、ordSource = strsql Form_main.Adodc1.Refresh Set Form_main.DataGrid1.DataSource = Form_main.Adodc1 Form_main.DataGrid1.Refresh Unload Me End IfEnd If5.5.2按發(fā)生日期或錄入日期搜索按發(fā)生日期或者錄入日期搜索實(shí)現(xiàn)原理基本相同，該搜索功能可以根據(jù)特定的日期搜索，也可以搜索處在某個(gè)日期區(qū)別的所有數(shù)據(jù)。現(xiàn)實(shí)執(zhí)行搜索代碼如下:If Option1.Value = True Then If MaskEdBox1.Text = Then MsgBox 對不起,搜索條件不能為空., , 錯(cuò)誤 Else aa = MaskEdBox1.Text dbname = App.Path If Right(dbname, 1) Then dbname = dbname + dbname =