忻州师范学院食堂财务管理系统设计与实现论文.doc

编号 106 忻忻 州州 师师 范范 学学 院院 计算机系本科毕业 设计 论文计算机系本科毕业 设计 论文 二零零七年六月 课题名称忻州师范学院食堂财务管 理系统的设计与实现 专 业计 算 机 科 学 与 技 术 姓 名蒋 锋 学 号 2 0 0 3 0 8 1 1 1 0 2 1 指导教师郑 志 荣 I 目 录 1 引引 言言 1 2 需求分析需求分析 3 2 1 需求描述 3 2 2 业务分析 3 2 3 数据分析 3 2 4 数据字典 3 3 系统设计系统设计 9 3 1 系统功能模块设计 9 3 2 数据库设计 11 3 2 1 概念模型的设计 11 3 2 2 数据库逻辑结构的设计 12 3 3 系统详细设计 15 3 3 1 凭证处理模块的设计 15 3 3 2 帐簿处理模块的设计 18 3 3 3 科目维护模块的设计 21 4 系统实现系统实现 22 4 1 系统开发平台介绍 22 4 2 系统功能模块介绍 22 4 3 凭证处理模块的实现 23 4 4 帐簿记帐模块的实现 25 4 5 帐簿查询模块的实现 27 5 系统测试系统测试 30 5 1 测试环境 30 5 2 测试步骤 30 5 3 测试结果 30 II 6 结束语结束语 31 致致 谢谢 32 参考文献参考文献 33 忻州师范学院计算机系学士学位论文 1 忻州师范学院食堂财务管理系统的设计与实现 摘要 通过对忻州师范学院食堂财务管理部门财务管理的需求调查和需求分析 为忻州 师范学院食堂财务管理部门设计了 食堂财务管理系统 该系统包括凭证管理 帐簿 记帐 帐簿查询 报表管理 系统维护五个功能模块 其中凭证管理模块提供凭证的填 制 查询和汇总功能 帐簿记帐模块提供按照记帐凭证登记帐簿的功能 包括日记帐记 帐 明细帐记帐和总帐记帐 帐簿查询模块提供按月查询帐簿的功能 包括日记帐查询 明细帐查询和总帐查询 报表管理模块提供按照帐簿记录生成财务报表的功能 系统维 护模块包括用户管理 科目维护和数据备份功能 并用 Microsoft Visual Basic 6 0 实现了该系统 关键字 信息系统 财务管理 会计电算化 Abstract This article investigates and analyzes the needs of the canteens financial management in Xinzhou Teachers College and designs the canteens financial management system for the canteens financial management The system consists of five functional sections voucher management account register account auditing form management system maintenance The voucher management offers the functions of filling out checking accounts and gathering the vouchers The account register functions the registering of accounts according to vouchers which includes journaling accounts detailed accounts and overall accounts The account auditing provides the function of auditing accounts monthly including the auditing of journaling accounts detailed accounts and overall accounts The form management gives the functions of making accounts statement forms in accordance with the record in account books The system maintenance includes functions of user management subjects maintenance and data saving and run this system with Microsoft Visual Basic 6 0 Keywords Information systems financing administration account computer calculation 1 引引 言言 忻州师范学院食堂财务管理现在所采取的方式是传统的手工管理方式 忻州师范学院食堂财务管理系统的设计与实现 2 忻州师范学院食堂财务管理所涉及的会计档案包括原始凭证 记帐凭证 日记帐 明细帐 总帐和会计报表等 每个会计期间的会计档案都要按一定的 要求排列并连同各种附件装订成册 耗费了大量的时间 查找不便 易于损坏 随着科学技术的飞速发展 以及数据库技术的日益成熟 使用计算机来代 替手工会计也成为了必然趋势 会计电算化是以计算机为工具 按照会计特有 的方法 反映企业的经营情况 是提供以财务信息为主的信息系统 本论文就是对忻州师范学院食堂财务管理的实际状况 进行了全面的需求 分析 详细设计了该系统 并用 Microsoft Visual Basic 6 0 实现了该系统 忻州师范学院计算机系学士学位论文 3 2 需求分析需求分析 2 1 需求描述需求描述 忻州师范学院食堂财务的具体管理过程是 根据发生的经济业务填制会计 凭证 根据会计凭证登记会计帐簿 根据会计帐簿的记录编制会计报表 这个 顺序必须依次进行 不允许也不可能任意颠倒 忻州师范学院食堂财务管理所采取的具体步骤是 收集有关经济业务的数 据 分析经济业务 编制会计分录 过入有关帐簿 编制调整前试算表 编制 调整分录并过入分类帐 编制调整后试算表 编制结帐分录并过入分类帐 编 制结帐后试算表 根据有关帐表资料编制会计报表 2 2 业务分析业务分析 根据需求调查 对忻州师范学院食堂财务处理的业务处理过程进行分析 其业务处理流程如图 2 1 所示 2 3 数据分析数据分析 根据忻州师范学院食堂财务管理的业务流程图 分析得出忻州师范学院食 堂财务管理系统的数据流图如图 2 2 图 2 3 图 2 4 图 2 5 图 2 6 所示 2 4 数据字典数据字典 记帐凭证 日期 凭证编号 摘要 科目编号 科目名称 贷方金额 借方金额 贷 方金额合计 借方金额合计 审核人 制 单人 出纳 附件张数 日期 年份 月份 日期 凭证编号 年份 月份 日期 顺序号 顺序号 长度为 3 的数字串 摘要 任意长度的字符串 科目编号 一级科目编号 二级科目编号 三级科目编号 一级科目编号 长度为 3 的有序数字串 二级科目编号 长度为 2 的有序数字串 三级科目编号 长度为 2 的有序数字串 忻州师范学院食堂财务管理系统的设计与实现 4 科目名称 任意长度的字符串 贷方金额 1 数字 9 借方金额 1 数字 9 借方金额合计 1 数字 9 贷方金额合计 1 数字 9 审核人 任意长度字符串 制单人 任意长度字符串 出纳 任意长度字符串 附件张数 1 数字 3 科目类别 资产 负债 所有者权益 成本 利润 费用 日记帐 日期 凭证编号 科目编号 科目名称 摘 要 借方金额 贷方金额 余额 明细帐 日期 凭证编号 科目编号 科目名称 摘 要 借方金额 贷方金额 余额 余额方向 总帐 日期 凭证编号 科目编号 科目名称 摘要 借方金额 贷方金额 余额 余额方向 余额 1 数字 9 余额方向 借 贷 会计报表 科目名称 期初余额 本期借方发生额 本 期贷方发生额 期末余额 期初余额 1 数字 9 本期借方发生额 1 数字 9 本期贷方发生额 1 数字 9 期末余额 1 数字 9 用户名 1 数字 4 密码 1 数字 字符 4 科目性质 银行 外币 数量 往来 部门 个 人 项目 忻州师范学院计算机系学士学位论文 5 会计人员 原始凭证 填制 凭证 记帐凭证 原始凭证 审核凭证 记帐凭证 原始凭证 记日记帐记明细帐汇总凭证 记帐凭证 原始凭证 记总帐 日记帐总帐明细帐 编制报表 会计报表会计人员 帐目核对帐目核对 图 2 1 忻州师范学院食堂财务管理业务流程图 忻州师范学院食堂财务管理系统的设计与实现 6 财务管 理系统 图 2 2 忻州师范学院食堂财务管理系统顶级数据流图 会计 人员 会计 人员 1 帐务 准备 2 凭证 编辑 科目代码 属性 记帐凭证 3 日记 帐核算 4 明细 帐核算 5 汇总 凭证 记帐凭证 记帐凭证 科目代码 属性 科目代码 属性 记帐凭证 记帐凭证 6 总帐 核算 记帐凭证 记帐凭证 记帐凭证 记帐凭证 凭证汇总 记帐凭证记帐凭证 7 编制 报表 日记帐 会计报表 总帐 明细帐 日记帐 会计报表 总帐 会计报表 总帐 明细帐日记帐 明细帐 图 2 3 忻州师范学院食堂财务管理系统一级数据流图 会计 会计 忻州师范学院计算机系学士学位论文 7 5 汇总凭 证 2 2 凭证 审核 记帐凭证 2 3 凭证 查询 记帐凭证 记帐凭证 记帐凭证 未通过审核的记帐凭证 记帐凭证 记帐凭证 汇总凭证 记帐凭证 记帐凭证 审核后的记帐凭证 查询结果 2 1 凭证 录入 科目代码 属性 图 2 4 忻州师范学院食堂财务管理系统凭证编辑二级数据流图 记帐凭证凭证汇总 3 1 日记 帐建帐 3 1 日记 帐记帐 3 1 日记 帐结帐 日记帐 4 1 明细 帐建帐 4 2 明细 帐记帐 4 3 明细 帐结帐 明细帐 6 1 总帐 建帐 6 2 总帐 记帐 6 3 总帐 结帐 总 帐 8 帐簿查 询 查询结果 记帐凭证 日记帐 记帐凭证 日记帐 日记帐 明细帐 明细帐 明细帐 总帐 总帐 总帐 日记帐 总帐 明细帐 图 2 5 忻州师范学院食堂财务管理系统帐簿处理二级数据流图 忻州师范学院食堂财务管理系统的设计与实现 8 日记帐 明细帐 总帐 报表参数 报表数据 报表目录 报表格式 7 1 报 表设置 7 2 报 表编制 9 报表 查询 日记帐 明细帐 报表格式 报表目录 报表数据 报表参数 总帐 明细帐 日记帐 会计报表 查询结果 会计报表 查询结果 会计报表 会计报表 图 2 6 忻州师范学院食堂财务管理系统报表处理二级数据流图 会计 忻州师范学院计算机系学士学位论文 9 3 系统设计系统设计 3 1 系统功能模块设计系统功能模块设计 根据数据流图 设计系统功能模块如图 3 1 所示 系统各功能模块简介 一 帐务准备 帐务准备模块的功能是完成对忻州师范学院食堂财务管理系统的初始化工 作 通常包括 科目编码规则的设置 科目属性的设置 凭证类别的设置 帐 套属性的设置 会计期间的选择 和数据库参数的设置 财务管理系统 帐 务 准 备 凭 证 处 理 帐 簿 处 理 报 表 处 理 系 统 维 护 凭 证 审 核 凭 证 汇 总 凭 证 查 询 帐 簿 核 算 日记帐核算明细帐核算总帐核算 结帐 记帐 建帐 帐 簿 查 询 报 表 查 询 报 表 编 制 报 表 设 置 图 3 1 忻州师范学院食堂财务管理系统功能模块图 凭 证 填 制 科 目 维 护 用 户 管 理 数 据 备 份 忻州师范学院食堂财务管理系统的设计与实现 10 二 凭证处理 凭证处理模块的功能是完成对凭证的日常处理 通常包括 凭证填制 凭 证审核 凭证汇总和凭证查询 1 凭证填制 凭证填制的功能是完成对日常凭证的录入工作 基本过程是 通过凭证填 制窗口 财务人员输入一张记帐凭证的数据 录入完成后进行检查 若录入正 确 则保存凭证 等待下一张凭证的录入 否则 不予保存 等待财务人员修 改 2 凭证审核 凭证审核所提供的功能是对录入的记帐凭证进行正确性 合法性和有效性 审核 对审核无误的凭证作审核通过标记 审核人与制单人不能是同一人 凭 证一经审核通过 在未取消审核之前不能删除或修改 取消审核只能由审核人 自己完成 3 凭证汇总 凭证汇总所提供的功能是将记帐凭证按照指定的范围和条件 汇总凭证中 会计科目所对应的一级科目的借方发生额和贷方发生额 并将汇总后的数据送 入科目项数据库文件的对应会计科目中 4 凭证查询 凭证查询所提供的功能是按照一定的查询条件对各种记帐凭证包含未审核 的记帐凭证和已审核的记帐凭证进行查询并将查询结果显示在屏幕上 三 帐簿处理 帐簿处理模块所提供的功能包括帐簿核算功能和帐簿查询功能 其具体功 能介绍如下 1 帐簿核算 帐簿核算的功能是根据记帐凭证数据库文件中已通过审核的凭证 自动更 新帐务数据库文件 得到帐簿和报表所需的汇总信息和明细信息 帐簿核算包 括日记帐的核算 明细帐的核算和总帐的核算 帐簿核算的具体处理过程如下 1 检查记帐凭证是否平衡 2 对记帐前的所有数据进行备份 3 打开相关文件开始记帐 忻州师范学院计算机系学士学位论文 11 4 关闭所有文件结束记帐 2 帐簿查询 帐簿查询所提供的功能是按照一定的查询条件对日记帐 明细帐和总帐进 行查询并将查询结果显示在屏幕上 四 报表处理 报表处理模块所提供的功能包括报表的设置 报表的编制和报表的查询 其具体功能介绍如下 1 报表设置 报表设置所提供的功能是设置财务报表的各项参数 为财务报表的自动生 成做准备 通常包括 报表格式的设置 报表目录的设置 报表数据的设置和 报表参数的设置 2 报表编制 报表编制所提供的功能是根据帐簿资料 按月自动生成财务报表 通常包 括 资产负债表 利润表和现金流量表 3 报表查询 报表查询所提供的功能是按照一定的查询条件对财务报表进行查询 并将 查询的结果显示在屏幕上 五 系统维护 系统维护模块所提供的功能有科目维护 用户管理和数据备份 1 科目维护 科目维护的功能是使财务人员可以根据需要设置适合自身业务特点的会计 科目体系 2 用户管理 用户管理提供的功能是实现对财务人员分工的设置和管理 3 数据备份 数据备份所提供的功能是定期为该财务管理系统的数据库文件做备份 确 保系统使用的安全 忻州师范学院食堂财务管理系统的设计与实现 12 3 2 数据库设计数据库设计 3 2 1 概念模型的设计 根据数据流图 设计概念模型 E R 图 如图 3 2 所示 忻州师范学院计算机系学士学位论文 13 图中各实体和联系的属性如下所示 明细帐 会计年 月份 日期 凭证编号 科目代码 摘要 科目名称 借 方金额 贷方金额 余额方向 余额 日记帐 会计年 月份 日期 凭证编号 科目代码 摘要 科目名称 借方金额 贷方金额 余额 记帐凭证 日期 凭证编号 摘要 附件张数 科目代码 科目名称 部 门 项目 记帐 出纳 审核 制单 借方金额 贷方金额 借方合计 贷方合计 科目项 科目代码 科目名称 科目类别 科目性质 期初余额 余额方 向 汇总 会计年 月份 日期 凭证编号 科目代码 摘要 科目名称 借 方 金额 贷方金额 余额方向 余额 3 2 2 数据库逻辑结构的设计 根据概念模型 按照概念模型向逻辑结构转换的相关规则并结合规范化理 明细帐 记帐凭证 日记帐 科目项总帐 记帐 记帐 汇总记帐 核对 核对 1 n 1 n nn1 1 1 n n 图 3 2 概念模型 m 忻州师范学院食堂财务管理系统的设计与实现 14 论设计数据库逻辑结构如表 3 1 表 3 2 表 3 3 表 3 4 表 3 5 表 3 6 表 3 7 所示 忻州师范学院计算机系学士学位论文 15 表 3 1 用户记录 字段名称字段名称字段类型字段类型长度长度备注备注 用户 ID文本 3主键 密码文本 4不为空 表 3 2 凭证记录 字段名称字段名称字段类型字段类型长度长度备注备注 日期日期 时间 8不为空 凭证编号文本11主键 过帐否逻辑 2不为空 附件张数整型 3可为空 制单人文本 4不为空 审核人文本 4不为空 记帐人文本 4不为空 表 3 3 凭证明细 字段名称字段名称字段类型字段类型长度长度备注备注 日期时间 日期 8不为空 凭证编号文本11主键 科目编号文本 7不为空 科目名称文本 6不为空 摘要文本10不为空 对方科目备注 6可为空 借方金额货币 9不为零 贷方金额货币 9不为零 借方合计货币 9不为零 贷方合计货币 9不为零 忻州师范学院食堂财务管理系统的设计与实现 16 表 3 4 日记帐 字段名称字段名称字段类型字段类型长度长度备注备注 日期时间 日期 8不为空 凭证编号文本11主键 科目编号文本 7主键 科目名称文本 6不为空 摘要文本10不为空 借方金额货币 9不为零 贷方金额货币 9不为零 余额 货币 9可为零 表 3 5 明细帐 字段名称字段名称字段类型字段类型长度长度备注备注 日期时间 日期 8不为空 凭证编号文本11主键 科目编号文本 7主键 科目名称文本 6不为空 摘要文本10不为空 借方金额货币 9不为零 贷方金额货币 9不为零 余额方向文本 1借 贷 平 余额货币 9可为零 表 3 6 总 帐 字段名称字段名称字段类型字段类型长度长度备注备注 日期时间 日期 8不为空 凭证编号文本11主键 科目编号文本 7主键 科目名称文本 6不为空 摘要文本10不为空 借方金额货币 9不为零 贷方金额货币 9不为零 忻州师范学院计算机系学士学位论文 17 表 3 7 科目项 字段名字段名类型类型长度长度备注备注字段名字段名类型类型长度长度备注备注 科目编号文本 7主键LJ06货币 96 月借方发生额 科目名称文本 6不为空LD06货币 96 月贷方发生额 科目性质文本 4不为空Ye06货币 96 月余额 科目类别文本 4不为空LJ07货币 97 月借方发生额 末级逻辑 1是 否LD07货币 97 月贷方发生额 过帐逻辑 1是 否Ye07货币 97 月余额 余额方向文本 1借 贷 平LJ08货币 98 月借方发生额 Ye00货币 9年初余额LD08货币 98 月贷方发生额 LJ00货币 9年初借方金额Ye08货币 98 月余额 LD00货币 9年初贷方金额LJ09货币 99 月借方发生额 LJ01货币 91 月借方发生 额 LD09货币 99 月贷方发生额 LD01货币 91 月贷方发生 额 Ye09货币 99 月余额 Ye01货币 91 月余额LJ10货币 910 月借方发生额 LJ02货币 92 月借方发生 额 LD10货币 910 月贷方发生额 LD02货币 92 月贷方发生 额 Ye10货币 910 月余额 Ye02货币 92 月余额LJ11货币 911 月借方发生额 LJ03货币 93 月借方发生 额 LD11货币 911 月贷方发生额 LD03货币 93 月贷方发生 额 Ye11货币 911 月余额 Ye03货币 93 月余额LJ12货币 912 月借方发生额 LJ04货币 94 月借方发生 额 LD12货币 912 月贷方发生额 LD04货币 94 月贷方发生 额 Ye12货币 912 月余额 忻州师范学院食堂财务管理系统的设计与实现 18 Ye04货币 94 月余额QCye货币 9期初余额 LJ05货币 95 月借方发生 额 BQjf货币 9本期借方发生额 LD05货币 95 月贷方发生 额 BQdf货币 9本期贷方发生额 Ye05货币 95 月余额 3 3 系统详细设计系统详细设计 3 3 1 凭证处理模块的设计 一 增加凭证 增加凭证记录过程流程图如图 3 3 所示 忻州师范学院计算机系学士学位论文 19 开始 权限检测 打开凭证记录库表 退出 显示凭证填制界面 输入凭证编号 编号正确 输入凭证日期 日期正确 输入附件张数 保存凭证 结束 显示编号错 显示凭证日期错误 Y N Y N Y N 图 3 3 增加凭证记录过程流程图 忻州师范学院食堂财务管理系统的设计与实现 20 增加凭证明细过程流程图如图 3 4 所示 开始 权限检测 打开凭证明细库表 显示凭证填制界面 退出 N 输入科目编码 是否存在 有下级科目 输入金额 金额 0 追加空记录 更新记录 凭证刷新显示 结束 显示无此科目 不是末级科目 金额不能为零 N N N Y Y Y Y 图 3 4 增加凭证明细过程流程图 输入摘要 忻州师范学院计算机系学士学位论文 21 二 凭证审核 凭证审核过程流程图如图 3 5 所示 3 3 2 帐簿处理模块的设计 一 记帐 记帐过程流程图如图 3 6 所示 显示凭证填制界面 获得未记帐的凭证的编号范围 产生凭证编号 编号越界 显示凭证 审核通过 加审核标志 返回 删除审核标志 Y Y N N 开始 图 3 5 凭证审核过程流程图 忻州师范学院食堂财务管理系统的设计与实现 22 二 帐簿输出 帐簿输出过程流程图如图 3 7 所示 开始 打开凭证明细库表 输入记帐月 份 月份非法 有该月凭证 有未审核凭证 上月已结帐 是否记帐 记帐 对记帐凭证按科目进行汇总 用汇总数据更新底层科目发生额 向上级科目逐级汇总 返回 提示无该月凭证 提示有未审核凭证 提示上月未结帐 Y N N Y Y N N Y N Y 图 3 6 记帐过程流程图 忻州师范学院计算机系学士学位论文 23 开始 输入月份 打开科目汇总库表表 输入会计科目 找到该科目 计算月初余额 打开帐簿库表 写入期初数据及内容 打开记帐凭证库表 库中记录是否为空 是指定科目 打开帐簿库表 将指定科目的有关内容加到帐簿中 计算余额并确定方向 记帐凭证库表记录指针加 1 输出帐簿 结束 Y N Y N N Y 图 3 7 帐簿输出过程流程图 忻州师范学院食堂财务管理系统的设计与实现 24 3 3 3 科目维护模块的设计 科目增加过程流程图如图 3 8 所示 开始 权限检测 打开科目汇总库文件 打开科目维护界面 退出 类型正确 位数正确 重复吗 输入科目名称等数据项 更新数据库 结束 显示类型错误 显示位数错误 显示编码重复 N Y N Y N Y Y N 图 3 8 科目增加过程流程图 输入科目代码 忻州师范学院计算机系学士学位论文 25 4 系统实现系统实现 4 1 系统开发平台介绍系统开发平台介绍 开发工具 Microsoft Visual Basic 6 0 中文企业版 数据库管理系统 DBMS Microsoft Access 2002 4 2 系统功能模块介绍系统功能模块介绍 系统登录界面如图 4 1 所示 图 4 1 系统登陆 输入用户名 密码 点击 确定 按钮 进入系统主界面如图 4 2 所示 图 4 2 系统主界面 忻州师范学院食堂财务管理系统的设计与实现 26 4 3 凭证处理模块的实现凭证处理模块的实现 在系统主界面中点击 凭证填制 按钮 进入如图 4 3 所示的凭证填制界 面 图 4 3 凭证填制界面 向凭证填制界面的各栏内填入相应内容 点击 凭证审核 按钮 系统将 执行审核程序 系统将审核通过的记帐凭证保存到凭证明细库文件和凭证记录 库文件中 凭证处理模块的实现代码如下 Private Sub Command1 Click Dim Conn As New ADODB Connection 设置 ADODB 连接对象的变量 Dim Rs As New ADODB Recordset 设置 ADODB 记录集对象的变量 Dim strDSN As String Dim strSQL As String strDSN DSN XzSystcw ADODB 数据源 If Text1 Text Then 凭证编号不为空 MsgBox 凭证编号不可为空 vbCritical Text1 SetFocus Exit Sub End If If Text27 Text Then 审核人不为空 MsgBox 审核人不可为空 vbCritical 忻州师范学院计算机系学士学位论文 27 Text27 SetFocus Exit Sub End If If Text28 Text Then 记帐人不为空 MsgBox 记帐人不可为空 vbCritical Text28 SetFocus Exit Sub End If If Text29 Text Then 制单人不为空 MsgBox 制单人不可为空 vbCritical Text29 SetFocus Exit Sub End If 构建查询语句 建立连接 Conn Open strDSN strSQL select from pzjl Rs Filter Rs Open strSQL Conn adOpenDynamic adLockPessimistic Rs AddNew 增加新记录 Rs rq Form2 DTPicker1 Value 凭证填写日期 Rs pzbh Text1 Text 凭证编号 Rs fjzs Text4 Text 附件张数 Rs shr Text27 Text 审核人签字 Rs jzr Text28 Text 记帐人签字 Rs zdr Text29 Text 制单人签字 Rs Gz CBool Text28 Text 判断是否过帐 Rs Update 释放资源 Rs Close Conn Close MsgBox 凭证通过审核 End Sub Private Sub Command4 Click Dim Conn As New ADODB Connection 定义一个 connection 对象 Dim Rs As New ADODB Recordset 定义一个 recordset 对象 Dim strDSN As String Dim strSQL As String strDSN DSN XzSystcw ADODB 数据源 If Text1 Text Then 凭证编号不为空 MsgBox 凭证编号不可为空 vbCritical Text1 SetFocus Exit Sub End If 忻州师范学院食堂财务管理系统的设计与实现 28 构建查询语句 建立连接 Conn Open strDSN strSQL select from pzmx Rs Filter Rs Open strSQL Conn adOpenDynamic adLockPessimistic Rs AddNew 增加新记录 Rs rq Form2 DTPicker1 Value 凭证日期 Rs pzbh Text1 Text 凭证编号 Rs kmbh Text3 Text 科目编号 Rs kmmc Text5 Text 科目名称 Rs zy Text2 Text 摘要 Rs dfje Text6 Text 贷方金额 Rs jfje Text7 Text 借方金额 Rs hzdje Text6 Text 贷方今额汇总 Rs hzJje Text7 Text 借方金额汇总 Rs Update 更新完毕 释放资源 Rs Close Conn Close MsgBox 记录添加成功 End Sub 4 4 帐簿记帐模块的实现帐簿记帐模块的实现 帐簿记帐模块包括日记帐记帐 明细帐记帐和总帐记帐 记帐程序的设计 思想基本相同 这里只例举明细帐记帐程序的实现 在系统主界面 帐簿记帐 模块中点击 明细帐 按钮 进入如图 4 4 所示的明细帐记帐界面 忻州师范学院计算机系学士学位论文 29 图 4 4 明细帐记帐 在界面中选中起始日期和截止日期 然后点击 记帐 按钮 系统可自动 完成记帐过程 明细帐记帐程序代码如下 Private Sub Command1 Click Dim initial As Currency 定义一个货币变量用于标识余额 Dim Conn1 As New ADODB Connection 定义第一个 connection 对象 Dim Conn2 As New ADODB Connection 定义第二个 connection 对象 Dim Rs1 As New ADODB Recordset 定义第一个 recordset 对象 Dim Rs2 As New ADODB Recordset 定义第二个 recordset 对象 Dim strSQL1 As String Dim strSQL2 As String Dim strDSN As String strDSN DSN XzSystcw 从凭证明细表中找出符合时间要求的记帐科目 Conn1 Open strDSN strSQL1 select from pzmx where Form13 DTPicker1 Value rq and rq 0 Rs2 Fields fx Value 借 Rs2 ye initial Case Is 0 Rs2 Fields fx Value 贷 忻州师范学院食堂财务管理系统的设计与实现 30 Rs2 Fields ye Value initial 1 End Select Rs2 Update Rs1 MoveNext Loop 记帐完毕释放资源 Rs1 Close Rs2 Close Conn1 Close Conn2 Close MsgBox 明细帐记帐成功 End Sub 4 5 帐簿查询模块的实现帐簿查询模块的实现 帐簿查询模块包括日记帐查询 明细帐查询和总帐查询 查询程序的设计 思想基本相同 这里只例举明细帐查询程序的实现 在系统主界面 帐簿查询 中点击 明细帐 按钮 进入如图 4 5 所示的明细帐查询界面 图 4 5 明细帐查询 在查询界面中输入查询期间 然后点击 查询 按钮 系统自动执行查询 过程并显示查询结果 明细帐查询程序代码如下 Private Sub Command1 Click Dim Conn As New ADODB Connection 声名一个 connection 对象 Dim Rs As New ADODB Recordset 声明一个 recordset 对象 Dim strDSN As String Dim strSQL As String Dim i As Integer 忻州师范学院计算机系学士学位论文 31 Dim resultcount As Long 判断查询条件的合法性 If Form4 DTPicker1 Value Form4 DTPicker2 Value Then MsgBox 起始日期不能大于截止日期 vbInformation Form4 Caption Form4 DTPicker1 SetFocus End Sub End If 构造查询语句 strSQL select rq pzbh kmbh kmmc zy jfje dfje ye fx from mxz where Form4 DTPicker1 Value rq and rq Form4 DTPicker2 Value strDSN DSN XzSystcw Conn Open strDSN Rs Open strSQL Conn adOpenDynamic adLockPessimistic resultcount Rs RecordCount 返回记录集中的记录数 设置电子表格的表头 Form10 Cls Form10 MSFlexGrid1 Cols 9 Form10 MSFlexGrid1 Row resultxount 1 Form10 MSFlexGrid1 Row 0 Form10 MSFlexGrid1 Col 0 Form10 MSFlexGrid1 Text 日期 Form10 MSFlexGrid1 Col 1 Form10 MSFlexGrid1 Text 凭证编号 Form10 MSFlexGrid1 Col 2 Form10 MSFlexGrid1 Text 科目编号 Form10 MSFlexGrid1 Col 3 Form10 MSFlexGrid1 Text 科目名称 Form10 MSFlexGrid1 Col 4 Form10 MSFlexGrid1 Text 摘要 Form10 MSFlexGrid1 Col 5 Form10 MSFlexGrid1 Text 借方金额 Form10 MSFlexGrid1 Col 6 Form10 MSFlexGrid1 Text 贷方金额 Form10 MSFlexGrid1 Col 7 Form10 MSFlexGrid1 Text 余额 Form10 MSFlexGrid1 Col 8 Form10 MSFlexGrid1 Text 余额方向 将记录信息填入电子表格 For i 1 To resultcount Form10 MSFlexGrid1 Row i Form10 MSFlexGrid1 Col 0 Form10 MSFlexGrid1 Text Rs rq 忻州师范学院食堂财务管理系统的设计与实现 32 Form10 MSFlexGrid1 Col 1 Form10 MSFlexGrid1 Text Rs pzbh Form10 MSFlexGrid1 Col 2 Form10 MSFlexGrid1 Text Rs kmbh Form10 MSFlexGrid1 Col 3 Form10 MSFlexGrid1 Text Rs kmmc Form10 MSFlexGrid1 Col 4 Form10 MSFlexGrid1 Text Rs zy Form10 MSFlexGrid1 Col 5 Form10 MSFlexGrid1 Text Rs jfje Form10 MSFlexGrid1 Col 6 Form10 MSFlexGrid1 Text Rs dfje Form10 MSFlexGrid1 Col 7 Form10 MSFlexGrid1 Text Rs ye Form10 MSFlexGrid1 Col 8 Form10 MSFlexGrid1 Text Rs fx Next i Form10 Show 显示明细帐查询结果 Rs Close Conn Close End Sub 忻州师范学院计算机系学士学位论文 33 5 系统测试系统测试 5 1 测试环境测试环境 操作系统 windows