VB课程设计实验报告-大学生日常支出管理系统.doc

VB程序设计试验报告实验题目：大学生日常支出管理系统姓 名： 孟凡超 学 号： 09114115 指导老师： 王红玲 VB课程设计报告 大学生日常支出管理系统一、 功能描述大学生日常支出管理系统：实现对大学生在校期间的日常支出管理，包括日常收入与支出明细，及按月，按年的收入与支出汇总等。本程序包含账目总览，记账，查询功能。账目总览：总体查询本月平均开销，余额，及每天平均开销。记账：记录每笔收入、支出，以及借贷情况。查询功能：可以按开销方式查询花费金额，和收入方式查询收入状况。二、 详细设计构成模块：1、 登录界面 输入密码，判断是否正确，并判断是否允许登录2、 账目总览 总览本月开销情况。3、 记账本 记录具体账目信息，借贷款情况。4、 查询账目 分类查询本月开销及借贷情况。5、 用户设置 设置用户登录密码，确保账户管理的保密性。设计思想： 实现财务管理系统主要是数据库的操作。本系统数据用数据库存储，在程序中用Data和Adodc控件实现对数据的读取。在数据的输出上，采用DataGrid输出总体数据，用Label和Text控件输出单条记录。用户登录界面，在用户正确输入密码之前，Toolbar控件设为不可用，用户无法操作。当密码正确时Toolbar控件Enable属性为True，用户可操作，同时密码框和登录按钮消失，仅留下背景界面。为保证用户使用时的隐私性，在用户设置中可以自由修改密码。修改时先由数据库中读取旧密码，与用户输入的密码对比，不相同则禁止用户修改。当密码正确时，再判断两次输入的新密码是否相同，不相同则禁止修改。主窗体采用MDI窗体，但每次只允许一个窗体打开。为了保证效果，在每个窗体的Form_Resize()过程中写入语句“Me.WindowState = 2”，以保证每次打开都是最大化显示。当用户单击Toolbar上的按钮触发打开相应窗口时，都会先关闭其他窗口，使MDI窗体中始终都只有一个窗体处于打开状态，使得程序窗口不至混乱。在借贷功能上，为防止用户误输入，在还款日期的输入上，先检测日期是否大于当前日期，如不大于，则提示用户重新输入。具体设计登录窗口Private Sub Command1_Click()Data1.RefreshIf txt_pass = Data1.Recordset.Fields(0).Value Then 判断密码是否正确MsgBox 欢迎回来！, vbOKOnly, 登陆成功！mdi_main.Toolbar.Enabled = True 工具栏可用txt_pass.Visible = False 隐藏登录按钮Command1.Visible = FalseElseMsgBox 密码错误！, vbOKOnly, 错误End IfEnd Sub账目总览：Dim str_jd As StringDim str_sz As StringPrivate Sub sz() 定义显示收支的过程Dim int_count As IntegerDim int_income As IntegerDim int_pay As IntegerDim int_charge As IntegerDim int_ave As IntegerDim int_avew As IntegerDim dat_dateF As DateDim dat_dateL As Datedatearry = Split(Date, -) 把日期拆分成年月日dat_dateF = CDate(datearry(0) & - & datearry(1) & - & 1) 设定本月第一天的日期dat_dateL = CDate(datearry(0) & - & datearry(1) + 1 & - & 1) - 1 设定本月最后一天的日期If Data_come.Recordset.RecordCount = 0 Then 如果记录数为0则收入为0 int_come = 0Else For int_count = 0 To Data_come.Recordset.RecordCount - 1 做循环读入数据 int_income = int_income + Data_come.Recordset.Fields(0) Data_come.Recordset.MoveNext Next int_count Data_come.Recordset.MoveFirstEnd IfIf Data_pay.Recordset.RecordCount = 0 Then 如果记录是为0则支出为0 int_pay = 0Else For int_count = 0 To Data_pay.Recordset.RecordCount - 1 循环读入数据 int_pay = int_pay + Data_pay.Recordset.Fields(0) Data_pay.Recordset.MoveNext Next int_count Data_pay.Recordset.MoveFirstEnd Ifint_charge = int_income - int_pay 计算余额int_ave = int_pay / (Date - dat_dateF)int_avew = int_charge / (dat_dateL - Date)str_sz = 今天是 & Date & vbCrLf & vbCrLf & 本月总收入 & int_income & 元 + vbCrLf & 本月总支出 & int_pay & 元 & vbCrLf & 本月剩余资金 & int_charge & 元str_sz = str_sz & vbCrLf & vbCrLf & 本月已过 & Date - dat_dateF & 天 & vbCrLf & 平均每天消费 & int_ave & vbCrLf & vbCrLf & 本月还剩 & dat_dateL - Date & 天str_sz = str_sz & vbCrLf & 预计每天可消费 & int_avew & 元End SubPrivate Sub jd()Dim int_count As IntegerDim int_lend As IntegerDim int_borrow As IntegerDim dat_dateF As DateDim dat_dateL As Datedatearry = Split(Date, -)dat_dateF = CDate(datearry(0) & - & datearry(1) & - & 1)dat_dateL = CDate(datearry(0) & - & datearry(1) + 1 & - & 1) - 1If Data_lend.Recordset.RecordCount = 0 Then int_lend = 0Else For int_count = 0 To Data_lend.Recordset.RecordCount - 1 int_lend = int_lend + Data_lend.Recordset.Fields(0) Data_lend.Recordset.MoveNext Next int_count Data_lend.Recordset.MoveFirstEnd IfIf Data_borrow.Recordset.RecordCount = 0 Then int_borrow = 0Else For int_count = 0 To Data_borrow.Recordset.RecordCount - 1 int_borrow = int_borrow + Data_borrow.Recordset.Fields(0) Data_borrow.Recordset.MoveNext Next int_count Data_borrow.Recordset.MoveFirstEnd Ifstr_jd = 今天是 & Date & vbCrLf & vbCrLf & 本月借入 & int_lend & 元 + vbCrLf & 本月贷出 & int_borrow & 元End SubPrivate Sub cmd_jd_Click()lbl_title.Caption = 本月基本借贷情况如下txt_show = str_jd 输出数据End SubPrivate Sub cmd_sz_Click()lbl_title.Caption = 本月基本收支情况如下txt_show = str_sz 输出数据End SubPrivate Sub Form_Resize()Me.WindowState = 2sz 加载过程jdEnd Sub记账本：Private Sub cmd_adddc_Click()Dim str_date As Stringstr_date = txt_Byear & - & txt_Bmonth & - & txt_BdayIf txt_Bmoney = Or txt_Bpeople = Or str_date lbl_date.Caption Or Val(txt_Bmoney) = 0 Then 判断数据的合理性 MsgBox 请正确输入信息！Else Data_borrow.Refresh Data_borrow.Recordset.AddNew Data_borrow.Recordset.Fields(0) = Val(txt_Bmoney) 更新数据 Data_borrow.Recordset.Fields(1) = txt_Bpeople Data_borrow.Recordset.Fields(2) = str_date Data_borrow.Recordset.Fields(3) = lbl_date Data_borrow.Recordset.Update txt_Bmoney = 清空文本框 txt_Bpeople = txt_Byear = txt_Bmonth = txt_Bday = End IfEnd SubPrivate Sub cmd_addjr_Click()Dim str_date As Stringstr_date = txt_year & - & txt_month & - & txt_dayIf txt_money = Or txt_people = Or str_date lbl_date.Caption Or Val(txt_money) = 0 Then 判断数据的合理性 MsgBox 请正确输入信息！Else Data_lend.Refresh Data_lend.Recordset.AddNew Data_lend.Recordset.Fields(0) = Val(txt_money) Data_lend.Recordset.Fields(1) = txt_people Data_lend.Recordset.Fields(2) = str_date Data_lend.Recordset.Fields(3) = lbl_date.Caption Data_lend.Recordset.Update txt_money = txt_people = txt_year = txt_month = txt_day = End IfData_lend.Recordset.MoveLastEnd SubPrivate Sub cmd_addsr_Click()If txt_income = Or Combo_come.Text = Or Val(txt_income) = 0 Then 判断数据的合理性 MsgBox 请检查数据的完整性！Else Data_come.Refresh Data_come.Recordset.AddNew 更新数据 Data_come.Recordset.Fields(0) = Val(txt_income) Data_come.Recordset.Fields(1) = Combo_come.Text Data_come.Recordset.Fields(2) = lbl_date.Caption Data_come.Recordset.Updatetxt_income = 清空文本框Data_come.Recordset.MoveLastEnd IfEnd SubPrivate Sub cmd_addzc_Click()If txt_pay = Or Combo_pay.Text = Or Val(txt_pay) = 0 Then 判断数据的合理性 MsgBox 请检查数据的完整性！Else Data_pay.Refresh Data_pay.Recordset.AddNew 更新数据 Data_pay.Recordset.Fields(0) = Val(txt_pay) Data_pay.Recordset.Fields(1) = Combo_pay.Text Data_pay.Recordset.Fields(2) = lbl_date Data_pay.Recordset.Update txt_pay = 清空文本框Data_pay.Recordset.MoveLastEnd IfEnd SubPrivate Sub cmd_delborrow_Click()If Data_borrow.Recordset.RecordCount 0 Then 判断记录数是否为0 Data_borrow.Recordset.Delete 删除数据 Data_borrow.RefreshElse MsgBox 无记录！End IfEnd SubPrivate Sub cmd_delincome_Click()If Data_come.Recordset.RecordCount 0 Then 判断记录数是否为0 Data_come.Recordset.Delete 删除数据 Data_come.RefreshElse MsgBox 无记录！ End IfEnd SubPrivate Sub cmd_dellend_Click()If Data_lend.Recordset.RecordCount 0 Then Data_lend.Recordset.Delete Data_lend.RefreshElse MsgBox 无记录！ End IfEnd SubPrivate Sub cmd_delpay_Click()If Data_pay.Recordset.RecordCount 0 Then Data_pay.Recordset.Delete Data_pay.RefreshElse MsgBox 无记录！ End IfEnd SubPrivate Sub Form_Load()lbl_date.Caption = DateEnd Sub账目查询：Private Sub Command1_Click()Dim int_comeall As IntegerDim int_count As IntegerDim str_dateF As StringDim str_dateL As Stringdatearry = Split(Date, -) 分割日期dat_dateF = datearry(0) & - & datearry(1) & - & 1 计算本月第一天dat_dateL = datearry(0) & - & datearry(1) + 1 & - & 1 计算本月最后一天condition = 收入.来源= + Combo_come.Text + and 收入.日期 = + dat_dateF + and 收入.日期= + dat_dateF + and 支出.日期 + dat_dateL + 设定搜索条件Adodc_pay.RecordSource = select * from 支出 where + conditionAdodc_pay.RefreshFor int_count = 0 To Adodc_pay.Recordset.RecordCount - 1 int_payall = int_payall + Adodc_pay.Recordset.Fields(0) 计算收入总和Next int_countlbl_showpay.Caption = int_payallEnd SubPrivate Sub Command3_Click()Dim int_count As IntegerDim int_lend As IntegerFor int_count = 0 To Adodc_lend.Recordset.RecordCount - 1 计算借入总额 int_lend = int_lend + Adodc_lend.Recordset.Fields(0)Next int_countLabel5.Caption = 总借入 & int_lend & 元End SubPrivate Sub Command4_Click()Dim int_count As IntegerDim int_borrow As IntegerFor int_count = 0 To Adodc_borrow.Recordset.RecordCount - 1 int_borrow = int_borrow + Adodc_borrow.Recordset.Fields(0) 计算贷出总额Next int_countLabel