vb個人財務管理信息系統(tǒng)課設報告-wenkub
2022-09-18 18:30:03 本頁面
【正文】 7）用戶信息管理模塊： 對 用戶信息 進行管理。 （ 3）日常支出管理模塊： 對日常支出記錄進行管理。 圖 1 系統(tǒng)功能圖 個人財務管理信息系統(tǒng) 項目管理 用戶信息管理 銀行賬戶管理 日常收入管理 日常支出管理 借入款項管理 借出款項管理 月度統(tǒng)計 月度選擇 （論文） 4 系統(tǒng)各個功能： （ 1）項目管理模塊： 對收入和支出項目進行管理。 （ 7） 對 用戶信息 進行管理。 （ 3） 對日常支出記錄進行管理。這種方式不僅需要大量的時間，而且由于記錄的結構不合理，還可能導致記錄結果與實際不符的情況，給我們的生活帶來諸多的不便。 作業(yè)目標 個人 和個人 的用戶使用此軟件，可以方便的進行個人理財，投資管理。最后提交詳細的課程設計報告。 課程作業(yè)要求如下： 用 VB 開發(fā)一個 實用 的 中 小型信息系統(tǒng)。 20 參考文獻 18 系統(tǒng)主界面操作 12 【借入款項】窗體代碼設計 10 【借出款項管理】窗體的界面設計 10 【日常支出管理】窗體的界面設計 9 創(chuàng)建工程和數據庫連接模塊 7 支出信息表 6 借入表 6 基本信息表 5 創(chuàng)建表 5 數據庫分析 1 個人主要工作 作為計算機應用的一部分 ,使用計算機對 個人 財務進行管理 ,有著手工管理所無法比擬的優(yōu)點，如 :檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高 個人 財務管理的效率 ,也是 個人 理財的科學化、正規(guī)化管理 ,與先進科學技術接軌的重要條件。 1 作業(yè)背景 1 作業(yè)目標 2 2 系統(tǒng)分析 3 系統(tǒng)功能模塊設計 6 借出表 7 支出表 8 4 系統(tǒng)界面設計 10 【銀行卡管理】窗體的界面設計 12 【日常支出】窗體代碼設計 12 【銀行交易統(tǒng)計】窗體代碼設計 16 【基本信息查詢】窗體代碼設計 16 6 系統(tǒng)運行 1． 根據課程設計時間選擇適當規(guī)模大小的設計題目，分小組進行設計。 4． 開發(fā)出可上機運行的信息系統(tǒng)，通過上機檢查。用戶可以將自己的每一筆收入和支出輸入到數據庫中，軟件幫你理財。 為了解決這個問題，更好的對個人財務進行合理的管理，我們開發(fā)了一個能實現以下功能的個人財務管理信息系統(tǒng)。 （ 4） 對借入款項記錄進行管理。 （ 8）對用戶銀行賬戶進行管理。 可以添加新的收入、支出項目，修改、刪除已存在 的收入、支出項目。 （ 4）借入款項管理模塊： 對借入款項記錄進行管理。 （ 8）銀行賬戶管理模塊：對用戶銀行賬戶進行管理。 圖 2 系統(tǒng)數據庫 創(chuàng)建數據庫 根據對系統(tǒng)需求的分析和數據庫分析，接下來開始創(chuàng)建數據庫。然后再決定如何在數據庫中組織信息以節(jié)約資源，怎樣利用有限的資源以發(fā)揮最大的效用。確定在每個表中要保存哪些信息。必要時，可在表中加入字段或創(chuàng)建新表來明確關系。需要時可調整設計。 表結構如圖所示。 表結構如圖所示 。 表結構如圖所示。 表結構如圖所示。 添加控件 在開始創(chuàng)建各個模塊界面以前，首先要把系統(tǒng)需要使用的控件 添加到工具箱中 。 Microsoft Windows Common 該控件用于在系統(tǒng)中創(chuàng)建及使用 Toolbar 控件和 Imagelist 控件。 （論文） 10 接下來為主窗體添加 Toolbar 控件和 Imagelist 控件添加圖片，設置 Toolbar 控件的【圖像列表】屬性為“ Imagelist”，然后設置其屬性。 【 用戶信息 管理】窗體的界面設計 該窗體主要用于 對 用 戶信息 進行管理。 【 日常支出管理 】窗體的界面設計 日常支出管理模塊 主要用于 對日常支出記錄進行管理。 （論文） 11 【月份選擇】窗體的界面設計 月度選擇模塊主要用于 對選 取 某一月份進行統(tǒng)計。如果為空，則提醒用戶“請輸入金額”；如果輸入內容不是數字，則提醒用戶“金額只能輸入數字”。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 , amp。 元 Else Year1 = Year(Now) Month1 = Month(Now) Riqi = Year1 amp。 Month1 + 1 Set Mydb = ExeCutesql(select * from 收入 where 日期 between 39。and 39。, Str_text) Set = Mydb Set = Mydb1 Set Money = ExeCutesql(select sum(金額 ) from 收入 where 日期 between 39。and 39。, ) A = (0) If IsNull(A) Then A = 0 End If = A Set Money1 = ExeCutesql(select sum(金額 ) from 支出 where 日期 between 39。and 3
公司管理相關推薦
鄂ICP備17016276號-1