师范学院食堂财务管理系统的设计与实现毕业论文

编号：106忻忻 州州 师师 范范 学学 院院计算机系本科毕业（设计）论文计算机系本科毕业（设计）论文二零零七年六月课题名称忻州师范学院食堂财务管理系统的设计与实现专 业计 算 机 科 学 与 技 术姓 名蒋锋学 号2 0 0 3 0 8 1 1 1 0 2 1指导教师郑志荣I目 录1 引引 言言.12 需求分析需求分析.32.1 需求描述.32.2 业务分析.32.3 数据分析.32.4 数据字典.33 系统设计系统设计.93.1 系统功能模块设计.93.2 数据库设计.113.2.1 概念模型的设计.113.2.2 数据库逻辑结构的设计.123.3 系统详细设计.153.3.1 凭证处理模块的设计.153.3.2 帐簿处理模块的设计.183.3.3 科目维护模块的设计.214 系统实现系统实现.224.1 系统开发平台介绍 .224.2 系统功能模块介绍 .224.3 凭证处理模块的实现 .234.4 帐簿记帐模块的实现.254.5 帐簿查询模块的实现.275 系统测试系统测试.305.1 测试环境.305.2 测试步骤.305.3 测试结果.30II6 结束语结束语.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 calculation1 引引 言言忻州师范学院食堂财务管理现在所采取的方式是传统的手工管理方式。忻州师范学院食堂财务管理系统的设计与实现2忻州师范学院食堂财务管理所涉及的会计档案包括原始凭证、记帐凭证、日记帐、明细帐、总帐和会计报表等。每个会计期间的会计档案都要按一定的要求排列并连同各种附件装订成册，耗费了大量的时间，查找不便，易于损坏。随着科学技术的飞速发展，以及数据库技术的日益成熟，使用计算机来代替手工会计也成为了必然趋势。会计电算化是以计算机为工具，按照会计特有的方法，反映企业的经营情况，是提供以财务信息为主的信息系统。本论文就是对忻州师范学院食堂财务管理的实际状况，进行了全面的需求分析,详细设计了该系统，并用 Microsoft Visual Basic 6.0 实现了该系统。忻州师范学院计算机系学士学位论文32 需求分析需求分析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 忻州师范学院食堂财务管理系统一级数据流图会计会计忻州师范学院计算机系学士学位论文75 汇总凭证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 忻州师范学院食堂财务管理系统报表处理二级数据流图会计忻州师范学院计算机系学士学位论文93 系统设计系统设计3.1 系统功能模块设计系统功能模块设计根据数据流图，设计系统功能模块如图 3.1 所示。系统各功能模块简介：一、帐务准备帐务准备模块的功能是完成对忻州师范学院食堂财务管理系统的初始化工作，通常包括：科目编码规则的设置、科目属性的设置、凭证类别的设置、帐套属性的设置、会计期间的选择、和数据库参数的设置。财务管理系统帐务准备凭证处理帐簿处理报表处理系统维护凭证审核凭证汇总凭证查询帐簿核算日记帐核算明细帐核算总帐核算结帐记帐建帐帐簿查询报表查询报表编制报表设置图 3.1 忻州师范学院食堂财务管理系统功能模块图凭证填制科目维护用户管理数据备份忻州师范学院食堂财务管理系统的设计与实现10二、凭证处理凭证处理模块的功能是完成对凭证的日常处理，通常包括：凭证填制、凭证审核、凭证汇总和凭证查询。1、凭证填制凭证填制的功能是完成对日常凭证的录入工作，基本过程是：通过凭证填制窗口，财务人员输入一张记帐凭证的数据。录入完成后进行检查：若录入正确，则保存凭证，等待下一张凭证的录入；否则，不予保存，等待财务人员修改。2、凭证审核凭证审核所提供的功能是对录入的记帐凭证进行正确性、合法性和有效性审核；对审核无误的凭证作审核通过标记。审核人与制单人不能是同一人；凭证一经审核通过，在未取消审核之前不能删除或修改；取消审核只能由审核人自己完成。3、凭证汇总凭证汇总所提供的功能是将记帐凭证按照指定的范围和条件，汇总凭证中会计科目所对应的一级科目的借方发生额和贷方发生额，并将汇总后的数据送入科目项数据库文件的对应会计科目中。4、凭证查询凭证查询所提供的功能是按照一定的查询条件对各种记帐凭证包含未审核的记帐凭证和已审核的记帐凭证进行查询并将查询结果显示在屏幕上。三、帐簿处理帐簿处理模块所提供的功能包括帐簿核算功能和帐簿查询功能，其具体功能介绍如下：1、帐簿核算帐簿核算的功能是根据记帐凭证数据库文件中已通过审核的凭证，自动更新帐务数据库文件，得到帐簿和报表所需的汇总信息和明细信息。帐簿核算包括日记帐的核算、明细帐的核算和总帐的核算，帐簿核算的具体处理过程如下：(1) 检查记帐凭证是否平衡。(2) 对记帐前的所有数据进行备份。(3) 打开相关文件开始记帐。忻州师范学院计算机系学士学位论文11(4) 关闭所有文件结束记帐。2、帐簿查询帐簿查询所提供的功能是按照一定的查询条件对日记帐、明细帐和总帐进行查询并将查询结果显示在屏幕上。四、报表处理报表处理模块所提供的功能包括报表的设置、报表的编制和报表的查询，其具体功能介绍如下：1、报表设置报表设置所提供的功能是设置财务报表的各项参数，为财务报表的自动生成做准备，通常包括：报表格式的设置、报表目录的设置、报表数据的设置和报表参数的设置。2、报表编制报表编制所提供的功能是根据帐簿资料，按月自动生成财务报表，通常包括：资产负债表、利润表和现金流量表。3、报表查询报表查询所提供的功能是按照一定的查询条件对财务报表进行查询，并将查询的结果显示在屏幕上。五、系统维护系统维护模块所提供的功能有科目维护、用户管理和数据备份1、科目维护科目维护的功能是使财务人员可以根据需要设置适合自身业务特点的会计科目体系。2、用户管理用户管理提供的功能是实现对财务人员分工的设置和管理3、数据备份数据备份所提供的功能是定期为该财务管理系统的数据库文件做备份，确保系统使用的安全。忻州师范学院食堂财务管理系统的设计与实现123.2 数据库设计数据库设计3.2.1 概念模型的设计根据数据流图，设计概念模型(E-R 图)如图 3.2 所示。忻州师范学院计算机系学士学位论文13图中各实体和联系的属性如下所示：明细帐(会计年，月份，日期，凭证编号，科目代码，摘要，科目名称，借方金额，贷方金额，余额方向，余额)日记帐（会计年，月份，日期，凭证编号，科目代码，摘要，科目名称，借方金额，贷方金额，余额）记帐凭证（日期，凭证编号，摘要，附件张数，科目代码，科目名称，部门，项目，记帐，出纳，审核，制单，借方金额，贷方金额，借方合计，贷方合计）科目项（科目代码，科目名称，科目类别，科目性质，期初余额，余额方向）汇总（会计年，月份，日期，凭证编号，科目代码，摘要，科目名称，借方金额，贷方金额，余额方向，余额）3.2.2 数据库逻辑结构的设计根据概念模型，按照概念模型向逻辑结构转换的相关规则并结合规范化理明细帐记帐凭证日记帐科目项总帐记帐记帐汇总记帐核对核对1n1nnn111nn图 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 月余额忻州师范学院食堂财务管理系统的设计与实现18Ye04货币 94 月余额QCye货币 9期初余额LJ05货币 95 月借方发生额BQjf货币 9本期借方发生额LD05货币 95 月贷方发生额BQdf货币 9本期贷方发生额Ye05货币 95 月余额3.3 系统详细设计系统详细设计3.3.1 凭证处理模块的设计一、增加凭证增加凭证记录过程流程图如图 3.3 所示。忻州师范学院计算机系学士学位论文19 开始权限检测打开凭证记录库表退出？显示凭证填制界面输入凭证编号编号正确？输入凭证日期日期正确？输入附件张数保存凭证结束显示编号错显示凭证日期错误YNYNYN图 3.3 增加凭证记录过程流程图忻州师范学院食堂财务管理系统的设计与实现20增加凭证明细过程流程图如图 3.4 所示。 开始权限检测打开凭证明细库表显示凭证填制界面退出？N输入科目编码是否存在？有下级科目？输入金额金额0？追加空记录更新记录凭证刷新显示结束显示无此科目不是末级科目金额不能为零NNNYYYY图 3.4 增加凭证明细过程流程图输入摘要忻州师范学院计算机系学士学位论文21二、凭证审核凭证审核过程流程图如图 3.5 所示。3.3.2 帐簿处理模块的设计一、记帐记帐过程流程图如图 3.6 所示。显示凭证填制界面获得未记帐的凭证的编号范围产生凭证编号编号越界？显示凭证审核通过？加审核标志返回删除审核标志YYNN开始图 3.5 凭证审核过程流程图忻州师范学院食堂财务管理系统的设计与实现22二、帐簿输出帐簿输出过程流程图如图 3.7 所示。 开始打开凭证明细库表输入记帐月份月份非法有该月凭证？有未审核凭证？上月已结帐是否记帐记帐对记帐凭证按科目进行汇总用汇总数据更新底层科目发生额向上级科目逐级汇总返回提示无该月凭证提示有未审核凭证提示上月未结帐YNNYYNNYNY图 3.6 记帐过程流程图忻州师范学院计算机系学士学位论文23开始输入月份打开科目汇总库表表输入会计科目找到该科目？计算月初余额打开帐簿库表写入期初数据及内容打开记帐凭证库表库中记录是否为空？是指定科目？打开帐簿库表将指定科目的有关内容加到帐簿中计算余额并确定方向记帐凭证库表记录指针加 1输出帐簿结束YNYNNY图 3.7 帐簿输出过程流程图忻州师范学院食堂财务管理系统的设计与实现243.3.3 科目维护模块的设计科目增加过程流程图如图 3.8 所示。开始权限检测打开科目汇总库文件打开科目维护界面退出 ？类型正确位数正确重复吗？输入科目名称等数据项更新数据库结束显示类型错误显示位数错误显示编码重复NYNYNYYN图 3.8 科目增加过程流程图输入科目代码忻州师范学院计算机系学士学位论文254 系统实现系统实现4.1 系统开发平台介绍系统开发平台介绍开发工具：Microsoft Visual Basic 6.0 中文企业版数据库管理系统(DBMS)：Microsoft Access 20024.2 系统功能模块介绍系统功能模块介绍系统登录界面如图 4.1 所示。图 4.1 系统登陆输入用户名、密码，点击“确定”按钮，进入系统主界面如图 4.2 所示。图 4.2 系统主界面忻州师范学院食堂财务管理系统的设计与实现264.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 pzmxRs.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 Sub4.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 Sub4.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.CloseEnd Sub忻州师范学院计算机系学士学位论文335 系统测试系统测试5.1 测试环境测试环境操作系统 windows XP数据库管理系统 Microsoft Access 2000开发平台 Microsoft Visual Basic 6.0 中文企业版5.2 测试步骤测试步骤向数据库中输入一些模拟数据，然后运行系统，观察系统各个模块的运行情况。5.3 测试结果测试结果经过测试系统基本上满足了用户需求，各个功能模块运行基本正常。忻州师范学院食堂财务管理系统的设计与实现346 结束语结束语忻州师范学院食堂财务管理系统已基本开发完毕。该系统实现了记帐凭证的填制、审核和查询功能；帐簿记帐功能；帐簿查询功能和自动生成财务报表的功能。该系统基本上满足了用户的需求。通过对该系统的开发，我基本掌握了数据库技术和可视化程序设计技术，增加了系统开发方面的经验，从多方面锻炼了自己的能力，提高了自身的素质。由于缺乏系统开发经验，加上系统开发时间有限，该系统的设计和实现存在着许多不完善的地方。在系统设计方面，系统的安全性设计不够完善；在系统的实现方面，部分功能模块的部分代码还未调试通过。这些方面有待以后继续完善，也请各位老师提出宝贵意见。 忻州师范学院计算机系学士学位论文35致致谢谢在本系统的设计过程中，郑志荣老师给予了极大的关心，并对系统的设计做了全面的指导，对系统设计的按时完成起了重要的作用。在系统设计初期的需求分析阶段，赵廉玉老师给予了极大的帮助和支持。在此对两位老师的杰出工作表示衷心的感谢。在本系统的设计过程中还得到了许多同学的帮助和指导，在此表示衷心的感谢。年 月 日忻州师范学院食堂财务管理系统的设计与实现36参考文献参考文献1 齐治昌，谭庆平，宁洪软件工程M北京：高等教育出版社，2004.42 许晓林，董明电算化会计信息系统M北京：机械工业出版社，2001，第 1 版3 庄明来，傅元略会计电算化M天津:天津大学出版社，1994 年 9 月，第 1 版.4 刘志翔,傅垒会计学M北京:首都经济贸易大学出版社,2001 年 10 月，第 2 版.5 萨师煊,王珊数据库系统概论M北京：高等教育出版社,2000 年 2 月,第 3 版.6 导向科技金蝶财务管理一点通M. 北京：人民邮电出版社,2006 年 7 月,第 1 版.7 李尊卿，谢红兵，张广福会计电算化实用教程M北京：高等教育出版社，2001年 6 月，第 2 版.8 杨密，杨乐，葛莹明Access 在财务中的应用M北京：电子工业出版社，2006 年9 月，第 1 版9 Ullman Jeffrey.principle of the Database Systems.New York:Computers science press,1983年10 (美)Patrick ONeil数据库原理、编程与应用M北京：机械工业出版社，2002111 孙万军电算化会计M大连：东北财经大学出版社，1998 年，第 1 版12 王建南Visual Basic 电子商务项目方案精解M北京：航空工业出版社,2006 年10 月，第 1 版.13 郭崎Visuan Basic 数据库系统开发技术M北京：人民邮电出版社，2003 年 12月，第 1 版14 明日科技Visual Basic 控件参考大全M. 北京：人民邮电出版社，2006 年 12 月，第 1 版15 (美)Steve McConnell代码大全M. 北京：电子工业出版社，2006 年 4 月，第 1版 16 林永. Visual Basic 6.0 用户编程手册M北京：人民邮电出版社，1999 年 11 月,第 1 版 17 邹光宗. 水晶报表中文版标准教材M. 北京：电子工业出版社，2005 年 11 月，第 1版