会计信息系统报告.docx

目 录一、 会计信息系统课程设计概述1.1基本概述1.2系统模块划分1.3数据流图1.4系统分析、设计任务的要求二、登录界面及主菜单设计 2.1.登陆界面设计 2.2登录程序2.3主菜单的程序设计2.4.退出系统程序设计三、系统基本设置 3.1数据库和数据表3.2科目代码库设计3.3摘要库设计四、凭证处理 4.1.凭证格式设计 4.2科目代码查询 4.3凭证录入设计 4.4凭证查询设计 4.5 凭证修改设计五、各类汇总表及账簿设计 4.1科目汇总表设计 4.2总分类账设计 4.3现金日记账输出设计 4.4银行日记账输出设计六、报表输出设计 6.1利润表输出设计6.2资产负债表输出设计一、会计信息系统课程设计概述1.1基本概述根据会计信息系统大纲及课程开设的要求，我于2015年6月22日至6月26日参加了学院为期一周的会计信息系统课程设计实习。在实习过程中，我根据系统生命周期法，课程设计分为计划、开发、运行及维护四个阶段，我相继完成了系统分析任务、系统设计任务，从最初的系统设置，凭证格式设计、录入、处理到各类汇总表、账簿的输出。会计课程设计让我学到了很多东西，由此编制了此次会计信息系统课程设计报告。1.2系统模块划分账务处理系统包含六大模块：1）系统初始设置模块：包含数据库和数据表的建立、科目代码库的建立与摘要库的建立及各账簿初始余额的输入。2）登录设计模块：包含登陆界面的设计、相关代码设计及主菜单程序设计等。3）凭证处理模块：包含凭证格式设计、科目代码查询、凭证录入、凭证修改、凭证查询等程序设计及输出。4）汇总表及账簿模块：包含科目汇总表设计、总分类账、现金日记账、总分类账程序设计及输出。5）报表输出模块：包含资产负债表、利润表的程序设计及输出。6）系统规律模块：各种系统的基本操作，如剪切、复制、窗口间切换等。1.3数据流图：记账凭证凭证输入凭证审核日常处理记账结账输出账簿及报表1.4系统分析、设计任务的要求1.4.1系统分析任务1.系统分析的基本任务是得到一个会计信息系统的逻辑模型。系统分析是整个系统建设的关键阶段，它阐明了各功能单位之间的相互联系，保证新系统有整体性和优良的结构，是系统设计的基础，且系统分析工作难度较大，它要求主持该项工作的人员具有熟悉计算机技术、熟悉财会业务和协调的能力。2.采用结构化系统分析方法，采用“自顶向下，逐层分解，化大为小，分而治之”的思想将系统功能由粗到细，逐步分解。3.模块划分的原则：（1）模块涉及操作相对集中，即一个模块只模仿某一方面的功能，以提高系统的可用性；（2）各模块相对独立，降低模块间的耦合程度，因为耦合程度越低，模块间的相互影响就越小，说明系统分解得越好；1.4.2系统设计的要求1.系统设计应遵循系统的可靠性，系统的实用性，系统的运行效率，系统的适用性和系统的经济效益的原则；2.在系统处理方式上选择批处理方式，共享程度高，一致性好；3.代码设计遵循惟一性，标准化，通用性，稳定性，可扩充性和简单性等。二.登录界面及主菜单设计 2.1.登陆界面设计 （1）在项目中打开登陆界面示意图： (2）登陆界面设计示意图： 2.2登录程序2.2.1表单中登录按钮command1的程序设计（1）程序：n=0a=thisform.text1.valueb=thisform.text2.valueif a=20124920801 and b=789990thisform.label13.caption=欢迎使用本系统！do c:会计信息系统-郑静金主菜单设计.prgelsen=n+1thisform.label13.caption=学号错误，请重新输入！thisform.text1.value=thisform.text2.value=thisform.text1.setfocusif n=3thisform.label13.caption=对不起，您无权使用本系统！thisform.text1.enabled=.f.thisform.text2.enabled=.mand1.enabled=.f.endifendif （2）运行的效果示意图：2.2.2退出按钮command2的程序设计（1）程序：thisform.release（2）运行效果示意图（退回到原来界面）2.3主菜单的程序设计2.3.1程序：set talk offclearset sysmenu todefine pad _pad1 of _msysmenu prompt 凭证处理 color scheme 3define pad _pad2 of _msysmenu prompt 账簿管理 color scheme 3define pad _pad3 of _msysmenu prompt 会计报表 color scheme 3define pad _pad4 of _msysmenu prompt 退出系统 color scheme 3on pad _pad1 of _msysmenu activate popup 凭证处理on pad _pad2 of _msysmenu activate popup 账簿管理on pad _pad3 of _msysmenu activate popup 会计报表on pad _pad4 of _msysmenu activate popup 退出系统define popup 凭证处理 margin relative shadow color scheme 4define bar 1 of 凭证处理 prompt 科目代码查询define bar 2 of 凭证处理 prompt 凭证录入define bar 3 of 凭证处理 prompt 凭证修改define bar 4 of 凭证处理 prompt 凭证查询on selection bar 1 of 凭证处理 do c:会计信息系统-郑静金科目代码查询.prgon selection bar 2 of 凭证处理 do c:会计信息系统-郑静金凭证录入.prgon selection bar 3 of 凭证处理 do c:会计信息系统-郑静金凭证修改.prgon selection bar 4 of 凭证处理 do c:会计信息系统-郑静金凭证查询.prgdefine popup 账簿管理 margin relative shadow color scheme 4define bar 1 of 账簿管理 prompt 科目汇总表define bar 2 of 账簿管理 prompt 现金日记账define bar 3 of 账簿管理 prompt 银行日记账define bar 4 of 账簿管理 prompt 总分类账on selection bar 1 of 账簿管理 do c:会计信息系统-郑静金科目汇总表输出.prgon selection bar 2 of 账簿管理 do c:会计信息系统-郑静金现金日记账输出.prgon selection bar 3 of 账簿管理 do c:会计信息系统-郑静金银行日记账输出.prgon selection bar 4 of 账簿管理 do c:会计信息系统-郑静金总分类账输出.prgdefine popup 会计报表 margin relative shadow color scheme 4define bar 1 of 会计报表 prompt 资产负债表define bar 2 of 会计报表 prompt 利润表on selection bar 1 of 会计报表 do c:会计信息系统-郑静金资产负债表输出.prgon selection bar 2 of 会计报表 do c:会计信息系统-郑静金利润表输出.prgdefine popup 退出系统 margin relative shadow color scheme 4define bar 1 of 退出系统 prompt 退出on selection bar 1 of 退出系统 do c:会计信息系统-郑静金退出系统设计.prg 2.3.2程序运行效果示意图：2.4.退出系统程序设计2.4.1程序： set talk offclearset sysmenu to defaultset talk onreturn 2.4.2运行程序的效果示意图（退出程序）三系统基本设置3.1数据库和数据表（完成效果图如下） 3.2.科目代码库（完成效果图如下：）3.3摘要库（完成效果图如下：）四凭证处理 4.1凭证格式设计4.1.1程序：set talk offclearn=13a1= _a2=| | | | |a3=|_|_|_|_|a4=|_|_|_|_|12,10 say a1do while n=26n,10 say a2n+1,10 say a3n=n+2enddo27,10 say a228,10 say a47,41 say 记账凭证 font 宋体,2011,12 say 凭证类别： 11,39 say 日期：11,58 say 凭证号：11,82 say 附件张数：13,25 say 摘要13,48 say 会计科目13,68 say 借方金额13,86 say 贷方金额27,25 say 合计29,10 say 记账：+space(16)+审核：+space(14)+出纳：+space(14)+制单：4.1.2程序运行效果示意图：4.2.科目代码查询设计4.2.1程序：set talk offa=6clea use c:会计信息系统-郑静金科目代码库.dbfdo while a=6cleakmdm1=space(6)9,20 say 请输入科目代码：get kmdm1readlocate for kmdm=kmdm1if !found()messagebox (代码不正确,请重新输入)else 10,37 say kmmcendi a=messagebox(是否继续查询下一个?,4)enddouseset talk on return4.2.2程序运行效果示意图：4.3.凭证录入设计功能说明：1）具有可输入多借多贷分录的功能，并可继续输入下一张凭证。2）含多种逻辑纠错功能，可限制凭证类型，保证输入的摘要、科目代码和金额的有效性，可检查借贷方金额是否平衡并可做相应的修改。 4.3.1程序：set talk offclose allcleardo while .t.do c:会计信息系统-郑静金凭证格式.prgpzlx1=space(2)fjzs1= pzh1=space(3)store 0 to je1,je2,jfje1,dfje1rq1=space(10)zy1=space(3)zy2=space(20)kmdm1=space(6)kmdm2=space(6)kmmc1=space(20)kmmc2=space(20)11,22 get pzlx1readdo while pzlx1收.and.pzlx1付.and.pzlx1转messagebox(凭证类型错误,请重新输入!)11,22 get pzlx1readenddo11,44 get rq111,65 get pzh111,92 get fjzs1readm=6a=15do while m=6use c:会计信息系统-郑静金摘要库.dbfa,12 get zy1readlocate for zydm=zy1do while zydmzy1messagebox(找不到符合条件的摘要，请重新输入)a,12 get zy1readlocate for zydm=zy1enddzy2=zynra,12 say zy2useuse c:会计信息系统-郑静金科目代码库.dbfa,48 get kmdm1readlocate for kmdm=kmdm1do while kmdmkmdm1messagebox(输入的科目代码有误，请重新输入)a,48 get kmdm1readlocate for kmdm=kmdm1enddkmmc1=kmmca,48 say kmmc1a,68 get je1a,86 get je2readdo while je1=0.and.je2=0messagebox(金额不能为零)a,68 get je1a,86 get je2readendduse c:会计信息系统-郑静金凭证库.dbfappend blankrepl pzrq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy2,kmdm with kmdm1,kmmc with kmmc1,jfje with je1,dfje with je2usem=messagebox(是否输入下一行分录,4)a=a+2enddouse c:会计信息系统-郑静金凭证库.dbfsum jfje to jfje1 for pzh=pzh1sum dfje to dfje1 for pzh=pzh127,68 say jfje127,86 say dfje1do while jfje1dfje1messagebox(借贷不平衡，输入金额有误)do c:会计信息系统-郑静金凭证修改enddusexz= 32,25 say 是否输入下一张(y/n) get xzreadif xz=y or xz=Yloopelseexitendiendduse c:会计信息系统-郑静金凭证库.dbfdisplayuseset talk onreturn 4.3.2运行效果示意图： 1）当输入完一行分录时的示意图： 2）当输入完一笔业务时可继续输入下一张的示意图： 3）当输入多借多贷的分录时的完成示意图： 4）运行时借贷方金额不相等情况下的示意图 5）待25笔凭证按上述步骤录入完成之后，打开数据库中的凭证库，显示如下： 4.4.凭证查询设计4.4.1程序：set talk offclearuse c:会计信息系统-郑静金凭证库.dbfpzrq1=space(10)pzh1=space(4)pzlx1=space(2)4,4 say 请输入凭证日期： get pzrq16,4 say 请输入凭证号码： get pzh18,4 say 请输入凭证类型： get pzlx1Readlocate for pzrq=pzrq1 and pzh=pzh1 and pzlx=pzlx1if found()=.t.dispskipdispelsemessagebox(查询不到符合条件的凭证)endiset talk onreturn 4.4.2程序运行效果示意图 1）当查询到相应凭证时的运行效果示意图 2）当输入的凭证查询不到时的运行效果示意图： 4.5.凭证修改设计4.5.1程序：set talk offclearuse c:会计信息系统-郑静金凭证库.dbfpzrq1=space(10)pzh1=space(3)2,4 say 请输入凭证日期： get pzrq14,4 say 请输入凭证号： get pzh1Readlocate for allt(pzrq)=allt(pzrq1) and allt(pzh)=allt(pzh1) if found()dispeditelsemessagebox(没有找到符合条件的凭证)endifset talk onreturn4.5.2运行程序的效果示意图： 1）当输入要查询的凭证时的界面示意图：2）对查询到的凭证进行修改时的界面示意图：五各类汇总表与账簿设计 5.1科目汇总表设计5.1.1程序：set talk offclearstore 0 to jfje1,dfje1,yeselect 1use c:会计信息系统-郑静金凭证库.dbfselect 2use c:会计信息系统-郑静金科目汇总表.dbf1,60 say 科目汇总表 font 宋体,14go topdo while !eof()kmdm1=kmdmselect 1sum jfje to jfje1 for kmdm=kmdm1sum dfje to dfje1 for kmdm=kmdm1select 2replace bqjf with jfje1,bqdf with dfje1skipenddodisplaya1=0b1=0sum bqjf to a1sum bqdf to b1locate for kmmc=合计replace bqjf with a1,bqdf with b1listif bqjf=bqdfmessagebox(太棒了，恭喜您，试算平衡！)elsemessagebox(试算不平衡，请您仔细检查！)endiuseselect 1useselect 2set talk onreturn 5.1.2运行程序时的效果示意图： 5.2.总分类账输出设计 5.2.1程序：set talk offclearkmdm1=space(4)kmmc1=space(10)bqjf1=0bqdf1=0select 1use c:会计信息系统-郑静金科目汇总表.dbfselect 2use c:会计信息系统-郑静金总分类账.dbfgo topdo while !eof()kmdm1=kmdmselect 1locate for kmdm=kmdm1if found()=.t.kmmc1=kmmcbqjf1=bqjfbqdf1=bqdfendiselect 21,60 say 总分类账 font 宋体,14ye1=qcjf+bqjf1-qcdf-bqdf1do case ye1case ye10replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with 借, ye with ye1case ye10replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with 贷, ye with ye1*(-1)case ye1=0replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with 平, ye with ye1endcaseskipenddolistj1=0d1=0sum bqjf to j1sum bqdf to d1replace kmmc with 合计 bqjf with j1,bqdf with d1displayuseselect 1useselect 2set talk onreturn5.2.2程序运行的效果示意图 5.3现金日记账输出程序设计5.3.1程序：set talk offcleastor 0 to jfje1,dfje1,ye1rq1=space(10)pzh1=space(3)zy1=space(20)sele 1Use c :会计信息系统-郑静金凭证库.dbfsele 2use c:会计信息系统-郑静金现金日记账.dbfsele 1do while !eof()if substr(kmdm,1,4)=1001rq1=pzrqpzh1=pzhjfje1=jfjedfje1=dfjezy1=zysele 2ye1=yeskip delete restpackappend blankrepl rq with rq1,pzh with pzh1,zy with zy1,sr with jfje1,zc with dfje1,ye with ye1+jfje1-dfje1endisele 1skip enddusesele 2zsr=0zzc=0store 0 to zsr,zzcsum sr to zsrsum zc to zzcappe blanrepl rq with 2014/04/30,zy with 本月小计,sr with zsr,zc with zzc,ye with ye1+jfje1-dfje11,48 say 现金日记账 font 宋体,14listuseset talk on return5.3.2程序运行的效果示意图 5.4银行日记账输出程序设计5.4.1程序：set talk offcleastor 0 to jfje1,dfje,ye1rq1=space(10)pzh1=space(3)usesele 1use c:会计信息系统-郑静金凭证库.dbfsele 2use c:会计信息系统-郑静金银行日记账.dbfsele 1do while !eof()if subs(kmdm,1,4)=1002rq1=pzrqpzh1=pzhjfje1=jfjedfje1=dfjezy1=zysele 2ye1=yeskipdele restpackappe blanrepl rq with rq1,pzh with pzh1,zy with zy1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1endisele 1skip enddusesele 2a=0b=0sum jfje to asum dfje to bappe blanrepl rq with 2014/04/30,zy with 本月小计,jfje with a,dfje with b,ye with ye1+jfje1-dfje11,48 say 银行日记账 font 宋体,14listuseset talk on return5.4.2程序运行的效果示意图 六、报表输出设计6.1利润表输出设计6.1.1程序：set talk offclearstore 0 to bqdf1,bqdf2,bqdf3,bqdf4,bqdf5,bqdf6,bqdf7,a1,a2,a3,a4select 1use c:会计信息系统-郑静金科目汇总表select 2use c:会计信息系统-郑静金利润表select 1do while !eof()if kmdm=6001bqdf1=bqdfskipbqdf2=bqdfskipbqdf3=bqdfskipbqdf4=bqdfskipbqdf5=bqdfskipbqdf6=bqdfskipbqdf7=bqdfa1=bqdf1-bqdf3a2=a1+bqdf2-bqdf4-bqdf5-bqdf6-bqdf7a3=a2a4=a3select 2replace bqje with bqdf1 for hc=1replace bqje with bqdf3 for hc=2replace bqje with a1 for hc=4replace bqje with bqdf2 for hc=5replace bqje with bqdf4 for hc=7replace bqje with bqdf6 for hc=8replace bqje with bqdf7 for hc=9replace bqje with bqdf5 for hc=10replace bqje with a2 for hc=11replace bqje with 0 for hc=12replace bqje with 0 for hc=13replace bqje with a3 for hc=14replace bqje with 0 for hc=15replace bqje with a4 for hc=161,60 say 利润表 font 宋体,14listexitelseskipendiendduseselect 1set talk onreturn6.1.2程序的运行效果示意图6.2.资产负债表输出设计6.2.1程序：set talk offclearstore 0 to a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17store 0 to b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10select 1use c:会计信息系统-郑静金总分类账select 2use c:会计信息系统-郑静金资产负债表select 3select 1do while !eof()if kmdm=1001a1=yeskipa2=yeskipa3=yeskipa4=yeskipa5=yeskipa6=yeskipa7=yeskipa8=yeskipa