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

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