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

实验题目：大学生日常支出管理系统 姓 名： 孟凡超 学 号： 指导老师： 王红玲 功能描述 大学生日常支出管理系统：实现对大学生在校期间的日常支出管理，包括日常收入与支出明细，及按月，按年的收入与支出汇总等。 本程序包含账目总览，记账，查询功能。 账目总览：总体查询本月平均开销，余额，及每天平均开销。 记账：记录每笔收入、支出，以及借贷情况。 查询功能：可以按开销方式查询花费金额，和收入方式查询收入状况。 详细设计 构成模块： 登录界面 输入密码，判断是否正确，并判断是否允许登录 账目总览 总览本月开销情况。 记账本 记录具体账目信息，借贷款情况。 查询账目 分类查询本月开销及借贷情况。 用户设置 设置用户登录密码，确保账户管理的保密性。 设计思想： 实现财务管理系统主要是数据库的操作。 本系统数据用数据库存储，在程序中用Data和Adodc控件实现对数据的读取。 在数据的输出上，采用DataGrid输出总体数据，用Label和Text控件输出单条记录。 用户登录界面，在用户正确输入密码之前，Toolbar控件设为不可用，用户无法操作。当密码正确时Toolbar控件Enable属性为True，用户可操作，同时密码框和登录按钮消失，仅留下背景界面。 为保证用户使用时的隐私性，在用户设置中可以自由修改密码。修改时先由数据库中读取旧密码，与用户输入的密码对比，不相同则禁止用户修改。当密码正确时，再判断两次输入的新密码是否相同，不相同则禁止修改。 主窗体采用MDI窗体，但每次只允许一个窗体打开。 为了保证效果，在每个窗体的Form_Resize()过程中写入语句“Me.WindowState = 2”，以保证每次打开都是最大化显示。 当用户单击Toolbar上的按钮触发打开相应窗口时，都会先关闭其他窗口，使MDI窗体中始终都只有一个窗体处于打开状态，使得程序窗口不至混乱。 在借贷功能上，为防止用户误输入，在还款日期的输入上，先检测日期是否大于当前日期，如不大于，则提示用户重新输入。 具体设计 登录窗口 Private Sub Command1_Click() Data1.Refresh If txt_pass = Data1.Recordset.Fields(0).Value Then 判断密码是否正确 MsgBox 欢迎回来！, vbOKOnly, 登陆成功！ mdi_main.Toolbar.Enabled = True 工具栏可用 txt_pass.Visible = False 隐藏登录按钮 Command1.Visible = False Else MsgBox 密码错误！！, vbOKOnly, 错误 End If End SubDim str_jd As String Dim str_sz As String Private Sub sz() 定义显示收支的过程 Dim int_count As Integer Dim int_income As Integer Dim int_pay As Integer Dim int_charge As Integer Dim int_ave As Integer Dim int_avew As Integer Dim dat_dateF As Date Dim dat_dateL As Date datearry = 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 = 0 Else For int_count = 0 To Data_come.Recordset.RecordCount - 1 做循环读入数据 i