会计信息系统报告莫海霞解析

1、 会计信息系统 会计信息系统课程设计报告学院名称 经济管理学院 指导老师 王龙辉 专业班级 会计125班 学 号 20124920502 姓 名 韩晓明 目 录一、 会计信息系统课程设计概述1.1基本概述.11.2系统模块划分.11.3数据流图.11.4系统分析、设计任务的要求.1二、登录界面及主菜单设计 2.1.登陆界面设计.2 2.2登录程序.42.3主菜单的程序设计.52.4.退出系统程序设计.6三、系统基本设置 3.1数据库和数据表.93.2科目代码库设计.113.3摘要库设计.13四、凭证处理 4.1.凭证格式设计.17 4.2科目代码查询.21 4.3凭证录入设计.25 4.4凭证

2、查询设计.27 4.5 凭证修改设计.30五、各类汇总表及账簿设计 5.1科目汇总表设计.32 5.2总分类账设计 . 34 5.3现金日记账输出设计.35 5.4银行日记账输出设计.37六、报表输出设计 6.1利润表输出设计.386.2资产负债表输出设计.39 一、会计信息系统课程设计概述1.1基本概述根据会计信息系统大纲及课程开设的要求，我于2015年6月22日至6月26日参加了学院为期一周的会计信息系统课程设计实习。在实习过程中，我根据系统生命周期法，课程设计分为计划、开发、运行及维护四个阶段，我相继完成了系统分析任务、系统设计任务，从最初的系统设置，凭证格式设计、录入、处理到各类汇总表

3、、账簿的输出。会计课程设计让我学到了很多东西，由此编制了此次会计信息系统课程设计报告。1.2系统模块划分账务处理系统包含六大模块：1）系统初始设置模块：包含数据库和数据表的建立、科目代码库的建立与摘要库的建立及各账簿初始余额的输入。2）登录设计模块：包含登陆界面的设计、相关代码设计及主菜单程序设计等。3）凭证处理模块：包含凭证格式设计、科目代码查询、凭证录入、凭证修改、凭证查询等程序设计及输出。4）汇总表及账簿模块：包含科目汇总表设计、总分类账、现金日记账、总分类账程序设计及输出。5）报表输出模块：包含资产负债表、利润表的程序设计及输出。6）系统规律模块：各种系统的基本操作，如剪切、复制、窗口

4、间切换等。1.3数据流图：记账凭证凭证输入凭证审核日常处理记账结账输出账簿及报表1.4系统分析、设计任务的要求1.4.1系统分析任务1.系统分析的基本任务是得到一个会计信息系统的逻辑模型。系统分析是整个系统建设的关键阶段，它阐明了各功能单位之间的相互联系，保证新系统有整体性和优良的结构，是系统设计的基础，且系统分析工作难度较大，它要求主持该项工作的人员具有熟悉计算机技术、熟悉财会业务和协调的能力。2.采用结构化系统分析方法，采用“自顶向下，逐层分解，化大为小，分而治之”的思想将系统功能由粗到细，逐步分解。3.模块划分的原则：（1）模块涉及操作相对集中，即一个模块只模仿某一方面的功能，以提高系统

5、的可用性；（2）各模块相对独立，降低模块间的耦合程度，因为耦合程度越低，模块间的相互影响就越小，说明系统分解得越好；1.4.2系统设计的要求1.系统设计应遵循系统的可靠性，系统的实用性，系统的运行效率，系统的适用性和系统的经济效益的原则；2.在系统处理方式上选择批处理方式，共享程度高，一致性好；3.代码设计遵循惟一性，标准化，通用性，稳定性，可扩充性和简单性等。第 52 页 共 页 二.登录界面及主菜单设计 2.1.登陆界面设计 （1）在项目中打开登陆界面示意图： (2）登陆界面设计示意图：登录程序2.2.1表单中登录按钮command1的程序设计（1）程序：n=0a=thisform.tex

6、t1.valueb=thisform.text2.valueif a="20124920502" and b="789990"thisform.label13.caption="欢迎使用本系统！"do c:会计信息系统-韩晓明主菜单设计.prgelsen=n+1thisform.label13.caption="学号错误，请重新输入！"thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocusif

7、 n=3thisform.label13.caption="对不起，您无权使用本系统！"thisform.text1.enabled=.f.thisform.text2.enabled=.f.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 &quo

8、t;凭证处理" 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 _msysmen

9、u 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 "凭证修改"

10、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

11、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 b

12、ar 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

13、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运行程序的效果示意图（退出程

14、序）三系统基本设置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 "记

15、账凭证" 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)+

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 sa

17、y 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=" "pz

18、h1=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

19、pzlx1readenddo11,44 get rq111,65 get pzh111,92 get fjzs1readm=6a=15do while m=6use c:会计信息系统-韩晓明摘要库.dbfa,12 get zy1readlocate for zydm=zy1do while zydm<>zy1messagebox("找不到符合条件的摘要，请重新输入")a,12 get zy1readlocate for zydm=zy1enddzy2=zynra,12 say zy2useuse c:会计信息系统-韩晓明科目代码库.dbfa,48 get kmd

20、m1readlocate for kmdm=kmdm1do while kmdm<>kmdm1messagebox("输入的科目代码有误，请重新输入")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:会计信息系统-韩晓明凭证库.dbfappe

21、nd 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

22、jfje1<>dfje1messagebox("借贷不平衡，输入金额有误")do c:会计信息系统-韩晓明凭证修改enddusexz=" "32,25 say "是否输入下一张(y/n)" get xzreadif xz="y" or xz="Y"loopelseexitendiendduse c:会计信息系统-韩晓明凭证库.dbfdisplayuseset talk onreturn 4.3.2运行效果示意图： 1）当输入完一行分录时的示意图： 2）当输入完一笔业务时可继续输入下一

23、张的示意图： 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 pzlx1R

24、eadlocate 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 "请输入

25、凭证日期：" 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 offc

26、learstore 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 dfje1skipendd

27、odisplaya1=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 offclea

28、rkmdm1=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

29、 case ye1case ye1>0replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "借", ye with ye1case ye1<0replace 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 "

30、平", 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)se

31、le 1Use c :会计信息系统-韩晓明凭证库.dbfsele 2use c:会计信息系统-韩晓明现金日记账.dbfsele 1do while !eof()if substr(kmdm,1,4)="1001"rq1=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-dfje1endi

32、sele 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

33、.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)="1002"rq1=pzrqpzh1=pzhjfje1=jfjedfje1=dfjezy1=zysele 2ye1=yeskipdele restpackappe blanrepl rq with rq1,pzh with pzh

34、1,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 "宋体",14listu

35、seset 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="6001"bqdf1=bqdfskipbqdf2=bqdfskipbqdf3=bqdfskipbqdf4=bqdfsk

36、ipbqdf5=bqdfskipbqdf6=bqdfskipbqdf7=bqdfa1=bqdf1-bqdf3a2=a1+bqdf2-bqdf4-bqdf5-bqdf6-bqdf7a3=a2a4=a3select 2replace bqje with bqdf1 for hc="1"replace bqje with bqdf3 for hc="2"replace bqje with a1 for hc="4"replace bqje with bqdf2 for hc="5"replace bqje with bq

37、df4 for hc="7"replace bqje with bqdf6 for hc="8"replace bqje with bqdf7 for hc="9"replace bqje with bqdf5 for hc="10"replace bqje with a2 for hc="11"replace bqje with 0 for hc="12"replace bqje with 0 for hc="13"replace bqje with a

38、3 for hc="14"replace bqje with 0 for hc="15"replace bqje with a4 for hc="16"1,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,

39、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="1001"a1=yeskipa2=yeskipa3=yeskipa4=yeskipa5=yeskipa6=yeskipa7=yeskipa8=yeskipa9=yeskipa10=yeskipa11=yeskipa12=yeskipa13=yeskipa14=yeskipa15=yeskipa16=yeskipa17=yeelseskipendienddb0=a1+a2b1=a5+a6+a7+a17b2=b0+b1+a3+a4+0b3=a8-a9b4=b2+b3b5=a10+a11+a12+a13b6=a14