家庭財(cái)務(wù)管理系統(tǒng)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文-閱讀頁
2024-08-25 09:06本頁面
【正文】 性設(shè)置界面:第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：如此窗體上“進(jìn)入”與“退出”按鈕的代碼如下：5． 2 主界面的設(shè)計(jì)與實(shí)現(xiàn)主界面是用菜單形式表現(xiàn)的，如圖：菜單的制作過程如下：首先通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進(jìn)行菜單的設(shè)置，如下圖：此過程中要注意各菜單的名稱唯一，另外還要注意菜單的級別。如下圖：第二步，選擇窗體或控件進(jìn)行屬性設(shè)置，如圖為日期文本框控件的屬性設(shè)置界面:其它屬性和控件的設(shè)置方法類似。記錄原始收支金額Public DSum As Double 39。當(dāng)交易類型為取款（1）時(shí)，選擇帳戶信息后，需要判斷是否此賬號金額是否足夠 If (Trim(())) And Val(txtSum) _ And = 1 Then MsgBox 帳戶余額不足，請重新選擇收支帳戶 Exit Sub End If With MyList .TypeId = Val(()) .UseDate = Trim(txtDate) .ANo = Trim(()) .UseSum = Val(txtSum) .MemId = Val(()) .Memos = Trim(txtMemo) .Flag = If Modify = False Then .Insert MsgBox 添加成功 Else .Update (OriLId) MsgBox 修改成功 End If End With 39。更改后將更新對應(yīng)的帳戶信息 If = 0 Then 39。支出 Trim(), 1, 0 DSum End If Unload MeEnd SubPrivate Sub cob_Flag_Click() 39。載入分類信息 = Conn = Select * From Types Where Flag=0 Order By TypeId Set = Ado_Type = TypeName = TypeId 39。載入帳戶信息 = Conn = Select AccountNo From Account Order By AccountNo Set = Ado_Acc = AccountNo = AccountNoEnd Sub 5． 4 銀行卡收支與維護(hù)管理模塊的設(shè)計(jì)與實(shí)現(xiàn)1．流程圖：2．運(yùn)行界面：NY開始增加刪除等操作是否繼續(xù)退出3．實(shí)現(xiàn)過程：第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動(dòng)鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。窗體的標(biāo)題第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：4 個(gè)按鈕的代碼為：Private Sub Command10_Click() End SubPrivate Sub Command9_Click() If Then MsgBox 已到庫頭！ End IfEnd SubPrivate Sub Command8_Click() If Then MsgBox 已到庫尾！ End IfEnd SubPrivate Sub Command7_Click() End Sub的代碼為：Private Sub Command1_Click() = False = False = False = True = True = True = True = True = TrueEnd Sub刪除的代碼為：Private Sub Command2_Click()If MsgBox(確認(rèn)刪除當(dāng)前記錄嗎？, vbYesNo, 確認(rèn)窗口) = vbYes Then = False = False = False = True = False If Then End IfEnd IfEnd Sub 的代碼為：Private Sub Command3_Click() = False = False = False = True = True = True = True = True = True = TrueEnd Sub 的代碼為：Private Sub Command4_Click() = False = False = False = False = False = True = True = True = False = FalseEnd Sub 的代碼為：Private Sub Command5_Click() = False = False = False = False = False = True = True = True = False = FalseEnd Sub 的代碼為：Private Sub Command6_Click()Unload MeEnd SubOption 按鈕組 的代碼為：Private Sub Option1_Click(index As Integer)If index = 0 Then = True = False = Else = True = False = End IfEnd Sub5． 5 銀行往來統(tǒng)計(jì)模塊的設(shè)計(jì)與實(shí)現(xiàn)：1．流程圖： 2．運(yùn)行界面： 3．實(shí)現(xiàn)過程：NY開始設(shè)置查詢條件查詢是否繼續(xù)退出界面的設(shè)計(jì)過程與卡信息的收支與維護(hù)管理模塊類似，這邊不再重復(fù)。下面把此界面的主要代碼作一介紹：按鈕的代碼如下：Private Sub Command1_Click()Dim strQuery As Stringd1 = Trim()d2 = Trim() = adCmdTextIf = True Then strQuery = select * from 卡日常收支 where len(收入項(xiàng)目) and 日期=39。 d1 amp。 And 日期= 39。 d2 amp。End IfIf = True Then strQuery = select * from 卡日常收支 where len(支出項(xiàng)目) and 日期=39。 d1 amp。 And 日期= 39。 d2 amp。End IfIf = False And = False Then strQuery = select * from 卡日常收支 where 日期=39。 d1 amp。 And 日期= 39。 d2 amp。End If = strQueryIf = 0 ThenMsgBox 不存在此時(shí)間段的收支記錄!End IfEnd Sub查詢過程主要是借助于 SQL（結(jié)構(gòu)化查詢語言）語句來進(jìn)行查詢，并通過Option 按鈕組判斷用戶選擇的查詢方式。的代碼如下：Private Sub Command4_Click()c = For n = 1 To c If Len((收入項(xiàng)目)) Then a = a + (金額) Else b = b + (金額) End If Next MsgBox 收入為： amp。 支出為： amp。 Chr(13) + 現(xiàn)金余額為： amp。5． 6 用戶管理模塊的設(shè)計(jì)與實(shí)現(xiàn)界面如下圖：數(shù)據(jù)庫的連接方法同上。通過這次畢業(yè)設(shè)計(jì)，在老師的指導(dǎo)下，我初步掌握了用 VB 開發(fā)軟件的方法，我在進(jìn)行設(shè)計(jì)軟件時(shí)遇到了一些困難，于是我在老師的提示下，查資料，上網(wǎng)和網(wǎng)友進(jìn)行探討。此外我還登錄到天極網(wǎng)站看了不少優(yōu)秀的 vb 技術(shù)文章。在此再次感謝指導(dǎo)老師對我的悉心指導(dǎo)與幫助。我相信,本次畢業(yè)設(shè)計(jì)我為本系統(tǒng)搭下了一個(gè)框架,以后我一定在此基礎(chǔ)上不斷完善它.但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不完善等多方面問題。第七章 致謝致 謝論文完成的前提是老師給我提供了舒適的工作、學(xué)習(xí)環(huán)境，并給予我悉心的關(guān)懷與指導(dǎo)。老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格，使我深受啟發(fā)；同時(shí)也得感謝公司的領(lǐng)導(dǎo)、同事、朋友們給我的指導(dǎo)和幫助，以及給我提供的良好的開發(fā)環(huán)境，是他們的幫助下，我才能獨(dú)立的完成這個(gè)系統(tǒng)
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1