会计信息系统报告28660.docx

《会计信息系统报告28660.docx》由会员分享，可在线阅读，更多相关《会计信息系统报告28660.docx（69页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 会计信息系统目 录一、 会计信息系统课课程设计概述述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银银行日

2、记账输输出设计六、报表输出设设计 6.1利利润表输出设设计6.2资产负债债表输出设计计一、会计信息系系统课程设计计概述1.1基本概述述根据会计信息息系统大纲纲及课程开设设的要求，我我于20155年6月22日至6月26日参加了学学院为期一周周的会计信息息系统课程设设计实习。在在实习过程中中，我根据系系统生命周期期法，课程设设计分为计划划、开发、运运行及维护四四个阶段，我我相继完成了了系统分析任任务、系统设设计任务，从从最初的系统统设置，凭证证格式设计、录录入、处理到到各类汇总表表、账簿的输输出。会计课课程设计让我学到了很很多东西，由由此编制了此此次会计信息息系统课程设设计报告。1.2系统模块块划

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

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

5、1）模块涉及及操作相对集集中，即一个个模块只模仿仿某一方面的的功能，以提提高系统的可可用性；（2）各模块相相对独立，降降低模块间的的耦合程度，因因为耦合程度度越低，模块块间的相互影影响就越小，说说明系统分解解得越好；1.4.2系统统设计的要求求1.系统设计应应遵循系统的的可靠性，系系统的实用性性，系统的运运行效率，系系统的适用性性和系统的经经济效益的原原则；2.在系统处理理方式上选择择批处理方式式，共享程度度高，一致性性好；3.代码设计遵遵循惟一性，标标准化，通用用性，稳定性性，可扩充性性和简单性等等。69二.登录界面及及主菜单设计计 2.1.登陆界界面设计 （11）在项目中中打开登陆界界面示

6、意图： (2）登登陆界面设计计示意图： 2.2登录录程序2.2.1表单单中登录按钮钮commaand1的程程序设计（1）程序：n=0a=thisfform.ttext1.valueeb=thisfform.ttext2.valueeif a=22012499208011 andd b=77899900thisforrm.labbel13.captiion=欢欢迎使用本系系统！do c:会会计信息系统统-郑静金主主菜单设计.prgelsen=n+1thisforrm.labbel13.captiion=学学号错误，请请重新输入！thisforrm.texxt1.vaalue=thisforrm.

7、texxt2.vaalue=thisforrm.texxt1.seetfocuusif n=3thisforrm.labbel13.captiion=对对不起，您无无权使用本系系统！thisforrm.texxt1.ennabledd=.f.thisforrm.texxt2.ennabledd=.f.mmand11.enabbled=.f.endifendif （2）运运行的效果示示意图：2.2.2退出出按钮commmand22的程序设计计（1）程序：thisforrm.rellease（2）运行效果果示意图（退退回到原来界界面）2.3主菜单的的程序设计2.3.1程序序：set tallk o

8、fffclearset syssmenu todefine pad _pad1 of _mmsysmeenu prrompt 凭证处理理 collor sccheme 3define pad _pad2 of _mmsysmeenu prrompt 账簿管理理 collor sccheme 3define pad _pad3 of _mmsysmeenu prrompt 会计报表表 collor sccheme 3define pad _pad4 of _mmsysmeenu prrompt 退出系统统 collor sccheme 3on pad _pad11 of _msysmmenu a

9、activaate poopup 凭凭证处理on pad _pad22 of _msysmmenu aactivaate poopup 账账簿管理on pad _pad33 of _msysmmenu aactivaate poopup 会会计报表on pad _pad44 of _msysmmenu aactivaate poopup 退退出系统define popupp 凭证处理理 marggin reelativve shaadow ccolor schemme 4define bar 11 of 凭凭证处理 ppromptt 科目代代码查询define bar 22 of 凭凭证处理

10、ppromptt 凭证录录入define bar 33 of 凭凭证处理 ppromptt 凭证修修改define bar 44 of 凭凭证处理 ppromptt 凭证查查询on seleectionn bar 1 of 凭证处理 do c:会计信信息系统-郑郑静金科目目代码查询.prgon seleectionn bar 2 of 凭证处理 do c:会计信信息系统-郑郑静金凭证证录入.prrgon seleectionn bar 3 of 凭证处理 do c:会计信信息系统-郑郑静金凭证证修改.prrgon seleectionn bar 4 of 凭证处理 do c:会计信信息系统-郑

11、郑静金凭证证查询.prrgdefine popupp 账簿管理理 marggin reelativve shaadow ccolor schemme 4define bar 11 of 账账簿管理 ppromptt 科目汇汇总表define bar 22 of 账账簿管理 ppromptt 现金日日记账define bar 33 of 账账簿管理 ppromptt 银行日日记账define bar 44 of 账账簿管理 ppromptt 总分类类账on seleectionn bar 1 of 账簿管理 do c:会计信信息系统-郑郑静金科目目汇总表输出出.prgon seleectionn

12、 bar 2 of 账簿管理 do c:会计信信息系统-郑郑静金现金金日记账输出出.prgon seleectionn bar 3 of 账簿管理 do c:会计信信息系统-郑郑静金银行行日记账输出出.prgon seleectionn bar 4 of 账簿管理 do c:会计信信息系统-郑郑静金总分分类账输出.prgdefine popupp 会计报表表 marggin reelativve shaadow ccolor schemme 4define bar 11 of 会会计报表 ppromptt 资产负负债表define bar 22 of 会会计报表 ppromptt 利润表表on

13、 seleectionn bar 1 of 会计报表 do c:会计信信息系统-郑郑静金资产产负债表输出出.prgon seleectionn bar 2 of 会计报表 do c:会计信信息系统-郑郑静金利润润表输出.pprgdefine popupp 退出系统统 marggin reelativve shaadow ccolor schemme 4define bar 11 of 退退出系统 ppromptt 退出on seleectionn bar 1 of 退出系统 do c:会计信信息系统-郑郑静金退出出系统设计.prg 2.3.2程序序运行效果示示意图：2.4.退出系系统程序设计计

14、2.4.1程序序： set taalk offfclearset syssmenu to deefaulttset tallk onreturn 2.4.2运行程序序的效果示意意图（退出程程序）三系统基本设设置3.1数据库和和数据表（完完成效果图如如下） 3.2.科目目代码库（完完成效果图如如下：）3.3摘要库（完完成效果图如如下：）四凭证处理 4.1凭证证格式设计4.1.1程序序：set tallk offfclearn=13a1= _a2=| | | | |a3=|_|_|_|_|a4=|_|_|_|_|12,10 say aa1do whille n=26n,10 ssay a22n+1

15、,100 say a3n=n+2enddo27,10 say aa228,10 say aa47,41 ssay 记记账凭证 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 记账：+spacee(16)+审核：+spacce(14)+出纳：+spaace(144)+制单单：4.1.2程序序运行效果示示意图：4.2.科目代代码查询设计计4.2.1程序序：set

16、 tallk offfa=6clea use c:会计信息系系统-郑静金金科目代码码库.dbffdo whille a=66cleakmdm1=sspace(6)9,20 ssay 请请输入科目代代码：geet kmddm1readlocate for kkmdm=kkmdm1if !fouund()messageebox (代码不正正确,请重新新输入)else 10,37 say kkmmcendi a=messaageboxx(是否继继续查询下一一个?,44)enddouseset tallk on return4.2.2程序序运行效果示示意图：4.3.凭证录录入设计功能说明：1）具具有可

17、输入多多借多贷分录录的功能，并并可继续输入入下一张凭证证。2）含多种逻辑辑纠错功能，可可限制凭证类类型，保证输输入的摘要、科科目代码和金金额的有效性性，可检查借借贷方金额是是否平衡并可可做相应的修修改。 4.3.1程程序：set tallk offfclose aallcleardo whille .t.do c:会会计信息系统统-郑静金凭证证格式.prrgpzlx1=sspace(2)fjzs1= pzh1=sppace(33)store 00 to jje1,jee2,jfjje1,dffje1rq1=spaace(100)zy1=spaace(3)zy2=spaace(200)kmdm1

18、=sspace(6)kmdm2=sspace(6)kmmc1=sspace(20)kmmc2=sspace(20)11,22 get ppzlx1readdo whille pzllx1收.annd.pzllx1付.annd.pzllx1转messageebox(凭证类型错错误,请重新新输入!)11,22 get ppzlx1readenddo11,44 get rrq111,65 get ppzh111,92 get ffjzs1readm=6a=15do whille m=66use c:会计信息系系统-郑静金金摘要库.dbfa,12 gget zyy1readlocate for zzy

19、dm=zzy1do whille zyddmzyy1messageebox(找不到符合合条件的摘要要，请重新输输入)a,12 gget zyy1readlocate for zzydm=zzy1enddzy2=zynnra,12 ssay zyy2useuse c:会计信息系系统-郑静金金科目代码码库.dbffa,48 gget kmmdm1readlocate for kkmdm=kkmdm1do whille kmddmkmmdm1messageebox(输入的科目目代码有误，请请重新输入)a,48 gget kmmdm1readlocate for kkmdm=kkmdm1enddkmm

20、c1=kkmmca,48 ssay kmmmc1a,68 gget jee1a,86 gget jee2readdo whille je11=0.annd.je22=0messageebox(金额不能为为零)a,68 gget jee1a,86 gget jee2readendduse c:会计信息系系统-郑静金金凭证库.dbfappend blankkrepl pzzrq wiith rqq1,pzhh withh pzh11,pzlxx withh pzlxx1,zy with zy2,kkmdm wwith kkmdm1,kmmc with kmmc11,jfjee withh je1,

21、dfje with je2usem=messaageboxx(是否输输入下一行分分录,4)a=a+2enddouse c:会计信息系系统-郑静金金凭证库.dbfsum jfjje to jfje11 for pzh=ppzh1sum dfjje to dfje11 for pzh=ppzh127,68 say jjfje127,86 say ddfje1do whille jfjje1ddfje1messageebox(借贷不平衡衡，输入金额额有误)do c:会会计信息系统统-郑静金凭证证修改enddusexz= 32,25 say 是否输入下下一张(y/n) gget xzzreadif x

22、z=y orr xz=Yloopelseexitendiendduse c:会计信息系系统-郑静金金凭证库.dbfdisplayyuseset tallk onreturn 4.3.2运行行效果示意图图： 1）当当输入完一行行分录时的示示意图： 2）当输输入完一笔业业务时可继续续输入下一张张的示意图： 3）当输输入多借多贷贷的分录时的的完成示意图图： 4）运行行时借贷方金金额不相等情情况下的示意意图 5）待待25笔凭证证按上述步骤骤录入完成之之后，打开数数据库中的凭凭证库，显示示如下： 4.4.凭证证查询设计4.4.1程序序：set tallk offfclearuse c:会计信息系系统-郑

23、静金金凭证库.dbfpzrq1=sspace(10)pzh1=sppace(44)pzlx1=sspace(2)4,4 saay 请输输入凭证日期期： geet pzrrq16,4 saay 请输输入凭证号码码： geet pzhh18,4 saay 请输输入凭证类型型： geet pzllx1Readlocate for ppzrq=ppzrq1 and ppzh=pzzh1 annd pzllx=pzllx1if founnd()=.t.dispskipdispelsemessageebox(查询不到符符合条件的凭凭证)endiset tallk onreturn 4.4.22程序运行效效

24、果示意图 1）当当查询到相应应凭证时的运运行效果示意意图 2）当输入的凭凭证查询不到到时的运行效效果示意图： 4.5.凭凭证修改设计计4.5.1程序序：set tallk offfclearuse c:会计信息系系统-郑静金金凭证库.dbfpzrq1=sspace(10)pzh1=sppace(33)2,4 saay 请输输入凭证日期期： geet pzrrq14,4 saay 请输输入凭证号： get ppzh1Readlocate for aallt(ppzrq)=allt(pzrq11) andd alltt(pzh)=alltt(pzh11) if founnd()dispeditel

25、semessageebox(没有找到符符合条件的凭凭证)endifset tallk onreturn4.5.2运行行程序的效果果示意图： 1）当输入入要查询的凭凭证时的界面面示意图：2）对查询到的的凭证进行修修改时的界面面示意图：五各类汇总表表与账簿设计计 5.1科目汇汇总表设计5.1.1程序序：set tallk offfclearstore 00 to jjfje1,dfje11,yeselect 1use c:会计信息系系统-郑静金金凭证库.dbfselect 2use c:会计信息系系统-郑静金金科目汇总总表.dbff1,60 ssay 科科目汇总表 fontt 宋体,14go to

26、pdo whille !eoof()kmdm1=kkmdmselect 1sum jfjje to jfje11 for kmdm=kmdm11sum dfjje to dfje11 for kmdm=kmdm11select 2replacee bqjff withh jfjee1,bqddf witth dfjje1skipenddodisplayya1=0b1=0sum bqjjf to a1sum bqddf to b1locate for kkmmc=合计replacee bqjff withh a1,bbqdf wwith bb1listif bqjjf=bqddfmessagee

27、box(太棒了，恭恭喜您，试算算平衡！)elsemessageebox(试算不平衡衡，请您仔细细检查！)endiuseselect 1useselect 2set tallk onreturn 5.1.22运行程序时时的效果示意意图： 5.2.总总分类账输出出设计 5.2.1程程序：set tallk offfclearkmdm1=sspace(4)kmmc1=sspace(10)bqjf1=00bqdf1=00select 1use c:会计信息系系统-郑静金金科目汇总总表.dbffselect 2use c:会计信息系系统-郑静金金总分类账账.dbfgo topdo whille !eoo

28、f()kmdm1=kkmdmselect 1locate for kkmdm=kkmdm1if founnd()=.t.kmmc1=kkmmcbqjf1=bbqjfbqdf1=bbqdfendiselect 21,60 ssay 总总分类账 font 宋体,14ye1=qcjjf+bqjjf1-qccdf-bqqdf1do casee ye1case yee10replacee kmmcc withh kmmcc1,bqjjf witth bqjjf1,bqqdf wiith bqqdf1,ffx witth 借, ye with ye1case yee10replacee kmmcc wit

29、hh kmmcc1,bqjjf witth bqjjf1,bqqdf wiith bqqdf1,ffx witth 贷, ye with ye1*(-1)case yee1=0replacee kmmcc withh kmmcc1,bqjjf witth bqjjf1,bqqdf wiith bqqdf1,ffx witth 平, ye with ye1endcaseeskipenddolistj1=0d1=0sum bqjjf to j1sum bqddf to d1replacee kmmcc withh 合计 bqjff withh j1,bbqdf wwith dd1displayyu

30、seselect 1useselect 2set tallk onreturn5.2.2程序序运行的效果果示意图 5.3现金日日记账输出程程序设计5.3.1程序序：set tallk offfcleastor 0 to jffje1,ddfje1,ye1rq1=spaace(100)pzh1=sppace(33)zy1=spaace(200)sele 1Use c :会计信息息系统-郑静静金凭证库库.dbfsele 2use c:会计信息系系统-郑静金金现金日记记账.dbffsele 1do whille !eoof()if subsstr(kmmdm,1,4)=11001rq1=pzrrqp

31、zh1=pzzhjfje1=jjfjedfje1=ddfjezy1=zysele 2ye1=yeskip delete resttpackappend blankkrepl rqq withh rq1,pzh wwith ppzh1,zzy witth zy11,sr wwith jjfje1,zc wiith dffje1,yye witth ye11+jfjee1-dfjje1endisele 1skip enddusesele 2zsr=0zzc=0store 00 to zzsr,zzzcsum sr to zssrsum zc to zzzcappe bllanrepl rqq wi

32、thh 20114/04/30,zzy witth 本月月小计,ssr witth zsrr,zc wwith zzzc,yee withh ye1+jfje11-dfjee11,48 ssay 现现金日记账 fontt 宋体,14listuseset tallk on return5.3.2程序序运行的效果果示意图 5.4银行日日记账输出程程序设计5.4.1程序序：set tallk offfcleastor 0 to jffje1,ddfje,yye1rq1=spaace(100)pzh1=sppace(33)usesele 1use c:会计信息系系统-郑静金金凭证库.dbfsele 2

33、use c:会计信息系系统-郑静金金银行日记记账.dbffsele 1do whille !eoof()if subss(kmdmm,1,4)=10002rq1=pzrrqpzh1=pzzhjfje1=jjfjedfje1=ddfjezy1=zysele 2ye1=yeskipdele reestpackappe bllanrepl rqq withh rq1,pzh wwith ppzh1,zzy witth zy11,jfjee withh jfjee1,dfjje witth dfjje1,yee withh ye1+jfje11-dfjee1endisele 1skip endduse

34、sele 2a=0b=0sum jfjje to asum dfjje to bappe bllanrepl rqq withh 20114/04/30,zzy witth 本月月小计,jjfje wwith aa,dfjee withh b,yee withh ye1+jfje11-dfjee11,48 ssay 银银行日记账 fontt 宋体,14listuseset tallk on return5.4.2程序序运行的效果果示意图 六、报表输出设设计6.1利润表输输出设计6.1.1程序序：set tallk offfclearstore 00 to bbqdf1,bqdf22,bqdff

35、3,bqddf4,bqqdf5,bbqdf6,bqdf77,a1,aa2,a3,a4select 1use c:会计信息系系统-郑静金金科目汇总总表select 2use c:会计信息系系统-郑静金金利润表select 1do whille !eoof()if kmdmm=60001bqdf1=bbqdfskipbqdf2=bbqdfskipbqdf3=bbqdfskipbqdf4=bbqdfskipbqdf5=bbqdfskipbqdf6=bbqdfskipbqdf7=bbqdfa1=bqdff1-bqddf3a2=a1+bbqdf2-bqdf44-bqdff5-bqddf6-bqqdf7a

36、3=a2a4=a3select 2replacee bqjee withh bqdff1 forr hc=1replacee bqjee withh bqdff3 forr hc=2replacee bqjee withh a1 ffor hcc=4replacee bqjee withh bqdff2 forr hc=5replacee bqjee withh bqdff4 forr hc=7replacee bqjee withh bqdff6 forr hc=8replacee bqjee withh bqdff7 forr hc=9replacee bqjee withh bqdff5

37、 forr hc=10replacee bqjee withh a2 ffor hcc=11replacee bqjee withh 0 foor hc=12replacee bqjee withh 0 foor hc=13replacee bqjee withh a3 ffor hcc=14replacee bqjee withh 0 foor hc=15replacee bqjee withh a4 ffor hcc=161,60 ssay 利利润表 ffont 宋体,114listexitelseskipendiendduseselect 1set tallk onreturn6.1.2

38、程序序的运行效果果示意图6.2.资产负负债表输出设设计6.2.1程序序：set tallk offfclearstore 00 to aa1,a2,a3,a44,a5,aa6,a7,a8,a99,a10,a11,aa12,a113,a144,a15,a16,aa17store 00 to bb0,b1,b2,b33,b4,bb5,b6,b7,b88,b9,bb10select 1use c:会计信息系系统-郑静金金总分类账账select 2use c:会计信息系系统-郑静金金资产负债债表select 3select 1do whille !eoof()if kmdmm=10001a1=yeskipa2=yeskipa3=yeskipa4=yeskipa5=yeskipa6=yeskipa7=yeskipa8=yeskipa9=yeskipa10=yeskipa11=yeskipa12=yeskipa13=yeskipa14=yeskipa15=yeskipa16=yeskipa17=yeelseskipendienddb0=a1+aa2b1=a5+aa6+a7+a17b2=b0+bb1+a3+a4+0b3=a8-aa9b4=b2+bb3b5=a10+a11+aa12+a113b6=a14+a16b7=b5+bb6select 2su