【導(dǎo)讀】息進(jìn)行管理，提供財(cái)務(wù)分析報(bào)表的數(shù)據(jù)庫(kù)訪問(wèn)軟件。進(jìn)行分析和設(shè)計(jì)，用Visualbasic進(jìn)行系統(tǒng)實(shí)現(xiàn)。創(chuàng)建通用數(shù)據(jù)訪問(wèn)模塊。數(shù)據(jù)訪問(wèn)流程，只需修改連接字符串即可實(shí)現(xiàn)對(duì)多種不同數(shù)據(jù)庫(kù)系統(tǒng)的訪問(wèn)。導(dǎo)出、多賬簿多用戶操作及各種財(cái)務(wù)報(bào)表的自動(dòng)生成。操作系統(tǒng)下都可以正常工作,達(dá)到了預(yù)期的設(shè)計(jì)目標(biāo)。

　　

【正文】 42 控件屬性設(shè)置 控件 屬性 屬性值 ListView1 (ListView) AllowColumnreorder Checkboxes Arrange False False 1 39。lvwAutoLeft 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 30 頁(yè) 共 49 頁(yè) ImageList1 (ImageList) ImageHeight ImageWidth UseMaskColor 32 32 True File1 (FileListBox) Archive CausesValidation Pattern ReadOnly True True *.mdb True 選用 賬 套 位于 個(gè)人 理財(cái) 分析 助手 軟件 安裝 目 錄文件夾中的所有賬 套 均會(huì)在 賬 套管理 界面中顯示出來(lái)，選擇要 使用 的賬 套后點(diǎn)擊 [選用 賬 套 ]即可打開使用 。程序序代碼如程序 42 所示： 39。選用 賬 套 Private Sub Command26_Click() If 0 Then 39。如果已從 賬 套列表中選擇了一個(gè) 賬 套則將 賬 套信息寫入注冊(cè)表 39。39。將賬套信息寫入注冊(cè)表中 SaveSetting , SETUP, ConnectionString, MsgBox 已啟用 amp。 amp。 賬套 Unvisible End If End Sub 程序 42 選用 賬 套程序代碼 新建 賬 套 一個(gè)賬 套 就是一個(gè)獨(dú)立的數(shù)據(jù)庫(kù)文件，根據(jù) 不同用戶 的需求，建立一個(gè)或多個(gè)賬 套 。在 “新建賬 套 ”后的輸入框里自定義一個(gè)名稱，如：溫馨小家 2020，按 “確定 ”按鈕后系統(tǒng)自動(dòng)進(jìn)入該賬 套 。新建賬簿存放的路徑為 軟件安裝目錄 文件夾中，文件名為 “溫馨小家 ”。 程序序代碼如程序 43 所示： 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 31 頁(yè) 共 49 頁(yè) 39。新建賬套 Private Sub Command24_Click() Dim a As String On Error GoTo ErrorHandler 39。輸入一個(gè)賬套名稱 a = InputBox(請(qǐng)輸入新賬套名稱 :, 新建賬套 ) If Trim(a) = Or IsNull(a) Then 39。如果賬套名稱不為空則創(chuàng)建此 賬 套 MsgBox 新建賬套未成功 ! Else 39。通過(guò)文件復(fù)制，用賬套模版創(chuàng)建新 賬 套 FileCopy amp。 \, amp。 \ amp。 a amp。 .mdb MsgBox 新建賬套成功 ! F51load 39。選用剛新建的 賬 套為當(dāng)前使用賬套 Command26_Click End If Exit Sub ErrorHandler: 39。如出現(xiàn)錯(cuò)誤，顯示錯(cuò)誤信息 = 0 MsgBox , vbExclamation, Error End Sub 程序 43 新建 賬 套程序代碼 刪除 賬 套 本界面上會(huì)列出 軟件安裝目錄 文件夾中的所有賬 套 ，點(diǎn)擊要?jiǎng)h除的賬 套 ，按 [刪除 ]按鈕并確認(rèn)即可 。 當(dāng)刪除成功后系統(tǒng)自動(dòng)選用賬套列表中第一個(gè)賬套為當(dāng)前使用賬套。 程序序代碼如程序 44 所示： 39。刪除賬套 Private Sub Command25_Click() Dim N1 As Integer On Error GoTo ErrorHandler If 0 Then 39。如果賬套列表中不為空則可進(jìn)行賬套刪除處理 N1 = MsgBox(確認(rèn)是否真的要?jiǎng)h除 amp。 amp。 賬套？ , vbOKCancel, 刪除確認(rèn) ) If N1 = 1 Then 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 32 頁(yè) 共 49 頁(yè) 39。物理刪除軟件安裝目錄下的賬套文件 Kill amp。 \ amp。 MsgBox 賬套刪除成功！ 39。涮新賬套列表 F51load 39。選用賬套列表中第一個(gè)賬套為當(dāng)前使用賬套 Command26_Click Else MsgBox 賬套刪除操作已經(jīng)取消！ End If Else MsgBox 無(wú)法刪除賬套！ End If 39。涮新賬套列表 F51load End Sub 程序 44 刪除 賬 套程序代碼 日常收支流水 賬 收支流水賬是對(duì)現(xiàn)金、活期存款、信用卡等賬戶的記賬，把日常收支記錄下來(lái)。 在 [理財(cái)信息管理 ]菜單下，點(diǎn)擊 [收 支流水 賬 ]即可進(jìn)入。 信息流覽頁(yè)面 顯示 每天的收支 記錄信息 ，可實(shí)現(xiàn)按 任 異 字段排序 。 支 持 收支 流水賬 記錄導(dǎo)出 。界面所圖 49 所示 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 33 頁(yè) 共 49 頁(yè) 圖 49 收支流水 賬 界面 代碼見程序 45： 39。顯示收支流水 賬 Function F11load() = True ( amp。 \收支流水 賬 表 .CEL) = cellSelectionByRow 39。按行選擇 39。從數(shù)據(jù)庫(kù)中讀取數(shù)據(jù)并顯示到 Grid 中 Call ReadData(SELECT 交易日期 ,賬 戶名稱 ,項(xiàng)目名稱 ,編號(hào) AS ID,資金 ,類型 ,說(shuō)明 FROM 流水 賬 查詢?nèi)? ORDER BY 交易日期 ,編號(hào) , Grid1) 39。計(jì)算收 /支總額 If 2 Then For i = 1 To 1 a = a + (i, 5).Text Next i 39。將收入總款信息顯示在狀態(tài)欄中 = a a = 0 For i = 1 To 1 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 34 頁(yè) 共 49 頁(yè) a = a + (i, 4).Text Next i 39。將支出總款信息顯示在狀態(tài)欄中 = a 39。將收支節(jié)余信息顯示在狀態(tài)欄中 = () End If End Function 程序 45 顯示收支流水 賬 代碼 收支記錄管理界面 用來(lái)對(duì)收支信息進(jìn)行新增、修改、刪 除處理。點(diǎn)擊 [新添收支 ]或在流覽界面上點(diǎn)擊收支記錄，即可進(jìn)入收支記錄管理界面。界面所圖 410 所示： 圖 410 收支記錄管理界面 表 43 控件屬性設(shè)置 控件 屬性 屬性值 DTPicker1 (DTPicker) MaxDate MinDate 99991231 16010101 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 35 頁(yè) 共 49 頁(yè) Format 1 dtpShortDate Grid1 (Grid) AllowUserResizing AllowUserSort FixedRowColSty True False 1 Fixed3D Text1 (Text) Alignment MaxLength MultiLine 1 Right Justify 0 False 核心代碼見程序 46： Private Sub Form_Load() 39。設(shè)置 Grid 的各種屬性，設(shè)置各個(gè)列的格式 If t 編號(hào) = 0 Then 39。數(shù)據(jù)單元清空初始化 Else 39。從數(shù)據(jù)庫(kù)中讀取數(shù)據(jù) 39。從記錄集中取得數(shù)據(jù)，并填充 Set rs = Nothing End If End Sub 39。 39。函 數(shù) : ReadData() 39。返回值 : True 操作成功 39。 False 失敗 39。 Private Function ReadData(ByVal strsql As String, ByRef gGrid As Grid) As Boolean End Function 39。 39。函 數(shù) : SaveData() 39。返回值 : True 操作成功 39。 False 失敗 39。 Public Function SaveData() As Boolean End Function 程序 46 收支記錄管理模塊核心代碼 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 36 頁(yè) 共 49 頁(yè) 年度收支統(tǒng)計(jì)表 按月統(tǒng)計(jì)日常收支項(xiàng)目的收 入、支出詳情，以便我們從微觀到宏觀地了解資金來(lái)源和支出在各時(shí)期的分布情況。點(diǎn)擊菜單 [統(tǒng)計(jì) 報(bào)表 ][年度收支統(tǒng)計(jì)表 ]進(jìn)入 。界面所圖 411 所示： 圖 411 年度收支統(tǒng)計(jì)表 算法見程序 47: 39。///////年度統(tǒng)計(jì) ( amp。 \年度收支統(tǒng)計(jì)表 .CEL) i 支出 = 0 strsql = SELECT 項(xiàng)目編號(hào) ,項(xiàng)目名稱 FROM 收支項(xiàng)目 WHERE 類型 =TRUE ORDER BY 項(xiàng)目編號(hào) Set rs 項(xiàng)目 = SelectSQL(strsql, msg) = 11 39。處理收入 39。39。計(jì)算收入全年 39。39。39。39。處理借代收入 某某某某 大學(xué)畢業(yè)論文 第四章 系統(tǒng)實(shí)現(xiàn) 第 37 頁(yè) 共 49 頁(yè) 39。39。39。39。計(jì)算借代收入的全年值 39。39。39。計(jì)算收入小計(jì) 39。39。39。處理支出 39。39。計(jì)算支出全年 39。39。處理還債支出 39。39。計(jì)算還債支出全年值 39。39。計(jì)算支出小計(jì) 39。39。計(jì)算合計(jì) End Sub 程序 47 年度收支統(tǒng)計(jì)表 描述算法 對(duì)計(jì)算 賬 戶余額 算法的研究 算法 （ Algorithm）是解題的步驟，可以把算法定義成解一確定類問(wèn)題的任意一種特殊的方法。在計(jì)算機(jī)科學(xué)中，算法要用計(jì)算機(jī)算法語(yǔ)言描述，算法代表用計(jì)算機(jī)解 一類問(wèn)題的精確、有效的方法。算法 +數(shù)據(jù)結(jié)構(gòu) =程序，求解一個(gè)給定的可計(jì)算或可解的問(wèn)題，不同的人可以編寫出不同的程序，來(lái)解決同一個(gè)問(wèn)題，這里存在兩個(gè)問(wèn)題：一是與計(jì)