2023年会计信息系统报告.docx

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

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

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

4、是得到一个会计信息系统的逻辑模型。系统分析是整个 会计信息系统 系统建设的关键阶段，它阐明了各功能单位之间的相互联系，保证新系统有整体性和优良的结构，是系统设计的基础，且系统分析工作难度较大，它要求主持该项工作的人员具有熟悉计算机技术、熟悉财会业务和协调的能力。 2.采用结构化系统分析方法，采用“自顶向下，逐层分解，化大为小，分而治之”的思想将系统功能由粗到细，逐步分解。 3.模块划分的原则： （1）模块涉及操作相对集中，即一个模块只模仿某一方面的功能，以提高系统的可用性； （2）各模块相对独立，降低模块间的耦合程度，因为耦合程度越低，模块间的相互影响就越小，说明系统分解得越好； 1.4.2系

5、统设计的要求 1.系统设计应遵循系统的可靠性，系统的实用性，系统的运行效率，系统的适用性和系统的经济效益的原则； 2.在系统处理方式上选择批处理方式，共享程度高，一致性好； 3.代码设计遵循惟一性，标准化，通用性，稳定性，可扩充性和简单性等。4 会计信息系统 二.登录界面及主菜单设计 2.1.登陆界面设计 （1）在项目中打开登陆界面示意图： (2）登陆界面设计示意图： 2.2登录程序 会计信息系统 2.2.1表单中登录按钮command1的程序设计 （1）程序： n=0 a=thisform.text1.value b=thisform.text2.value if a=20234920801

6、 and b=789990 thisform.label13.caption=欢迎使用本系统！ do c:会计信息系统-郑静金主菜单设计.prg else n=n+1 thisform.label13.caption=学号错误，请重新输入！ thisform.text1.value= thisform.text2.value= thisform.text1.setfocus if n=3 thisform.label13.caption=对不起，您无权使用本系统！ thisform.text1.enabled=.f.thisform.text2.enabled=mand1.enabled=.f

7、.endif endif （2）运行的效果示意图： 6 会计信息系统 2.2.2退出按钮command2的程序设计 （1）程序： thisform.release （2）运行效果示意图（退回到原来界面） 2.3主菜单的程序设计 2.3.1程序： set talk off clear set sysmenu to define pad _pad1 of _msysmenu prompt 凭证处理 color scheme 3 define pad _pad2 of _msysmenu prompt 账簿管理 color scheme 3 define pad _pad3 of _msysmenu

8、 prompt 会计报表 color scheme 3 define pad _pad4 of _msysmenu prompt 退出系统 color scheme 3 会计信息系统 on 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

9、 relative shadow color scheme 4 define 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:会计信息系统-郑静金科目代码查询.prg on selection bar 2 of 凭证处理 do c:会计信息系统-郑静金凭证录入.prg on selection bar 3 of 凭证处理 do

10、c:会计信息系统-郑静金凭证修改.prg on selection bar 4 of 凭证处理 do c:会计信息系统-郑静金凭证查询.prg define popup 账簿管理 margin relative shadow color scheme 4 define 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:会计信息系

11、统-郑静金科目汇总表输出.prg on selection bar 2 of 账簿管理 do c:会计信息系统-郑静金现金日记账输出.prg on selection bar 3 of 账簿管理 do c:会计信息系统-郑静金银行日记账输出.prg on selection bar 4 of 账簿管理 do c:会计信息系统-郑静金总分类账输出.prg define popup 会计报表 margin relative shadow color scheme 4 define bar 1 of 会计报表 prompt 资产负债表 define bar 2 of 会计报表 prompt 利润表

12、on selection bar 1 of 会计报表 do c:会计信息系统-郑静金资产负债表输出.prg on selection bar 2 of 会计报表 do c:会计信息系统-郑静金利润表输出.prg define popup 退出系统 margin relative shadow color scheme 4 define bar 1 of 退出系统 prompt 退出 on selection bar 1 of 退出系统 do c:会计信息系统-郑静金退出系统设计.prg 2.3.2程序运行效果示意图： 8 会计信息系统 2.4.退出系统程序设计 2.4.1程序： set tal

13、k off clear set sysmenu to default set talk on return 2.4.2运行程序的效果示意图（退出程序） 会计信息系统 三系统基本设置 3.1数据库和数据表（完成效果图如下） 10 会计信息系统 3.2.科目代码库（完成效果图如下：） 会计信息系统 3.3摘要库（完成效果图如下：） 四凭证处理4.1凭证格式设计 4.1.1程序： set talk off clear n=13 a1= _ a2=| | | | | a3=|_|_|_|_| a4=|_|_|_|_| 12,10 say a1 12 会计信息系统 do while n 4.2.科目代码

14、查询设计 会计信息系统 4.2.1程序： set talk off a=6 clea use c:会计信息系统-郑静金科目代码库.dbf do while a=6 clea kmdm1=space(6) 9,20 say 请输入科目代码：get kmdm1 read locate for kmdm=kmdm1 if !found() meagebox (代码不正确,请重新输入) else 10,37 say kmmc endi a=meagebox(是否继续查询下一个?,4) enddo use set talk on return 4.2.2程序运行效果示意图： 4.3.凭证录入设计 14

15、会计信息系统 功能说明：1）具有可输入多借多贷分录的功能，并可继续输入下一张凭证。 2）含多种逻辑纠错功能，可限制凭证类型，保证输入的摘要、科目代码和金额的有效性，可检查借贷方金额是否平衡并可做相应的修改。 4.3.1程序： set talk off close all clear do while .t.do c:会计信息系统-郑静金凭证格式.prg pzlx1=space(2) fjzs1= pzh1=space(3) store 0 to je1,je2,jfje1,dfje1 rq1=space(10) zy1=space(3) zy2=space(20) kmdm1=space(6)

16、 kmdm2=space(6) kmmc1=space(20) kmmc2=space(20) 11,22 get pzlx1 read do while pzlx1收.and.pzlx1付.and.pzlx1转 meagebox(凭证类型错误,请重新输入!) 11,22 get pzlx1 read enddo 11,44 get rq1 11,65 get pzh1 11,92 get fjzs1 read m=6 a=15 do while m=6 use c:会计信息系统-郑静金摘要库.dbf a,12 get zy1 read locate for zydm=zy1 do while

17、 zydmzy1 15 会计信息系统 meagebox(找不到符合条件的摘要，请重新输入) a,12 get zy1 read locate for zydm=zy1 endd zy2=zynr a,12 say zy2 use use c:会计信息系统-郑静金科目代码库.dbf a,48 get kmdm1 read locate for kmdm=kmdm1 do while kmdmkmdm1 meagebox(输入的科目代码有误，请重新输入) a,48 get kmdm1 read locate for kmdm=kmdm1 endd kmmc1=kmmc a,48 say kmmc1

18、 a,68 get je1 a,86 get je2 read do while je1=0.and.je2=0 meagebox(金额不能为零) a,68 get je1 a,86 get je2 read endd use c:会计信息系统-郑静金凭证库.dbf append blank repl pzrq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy2,kmdm with kmdm1,kmmc with kmmc1,jfje with je1,dfje with je2 use m=meagebox(是否输入下一行分录,4) a=a+

19、2 enddo use c:会计信息系统-郑静金凭证库.dbf sum jfje to jfje1 for pzh=pzh1 sum dfje to dfje1 for pzh=pzh1 27,68 say jfje1 27,86 say dfje1 do while jfje1dfje1 16 会计信息系统 meagebox(借贷不平衡，输入金额有误) do c:会计信息系统-郑静金凭证修改 endd use xz= 32,25 say 是否输入下一张(y/n) get xz read if xz=y or xz=Y loop else exit endi endd use c:会计信息系统

20、-郑静金凭证库.dbf display use set talk on return 4.3.2运行效果示意图： 1）当输入完一行分录时的示意图： 会计信息系统 2）当输入完一笔业务时可继续输入下一张的示意图： 3）当输入多借多贷的分录时的完成示意图： 18 会计信息系统 4）运行时借贷方金额不相等情况下的示意图 会计信息系统 5）待25笔凭证按上述步骤录入完成之后，打开数据库中的凭证库，显示如下： 20 会计信息系统 4.4.凭证查询设计 4.4.1程序： set talk off clear use c:会计信息系统-郑静金凭证库.dbf pzrq1=space(10) pzh1=spac

21、e(4) pzlx1=space(2) 4,4 say 请输入凭证日期： get pzrq1 6,4 say 请输入凭证号码： get pzh1 8,4 say 请输入凭证类型： get pzlx1 Read locate for pzrq=pzrq1 and pzh=pzh1 and pzlx=pzlx1 if found()=.t.disp skip 21 会计信息系统 disp else meagebox(查询不到符合条件的凭证) endi set talk on return 4.4.2程序运行效果示意图 1）当查询到相应凭证时的运行效果示意图 2）当输入的凭证查询不到时的运行效果示意

22、图： 22 会计信息系统 4.5.凭证修改设计 4.5.1程序： set talk off clear use c:会计信息系统-郑静金凭证库.dbf pzrq1=space(10) pzh1=space(3) 2,4 say 请输入凭证日期： get pzrq1 4,4 say 请输入凭证号： get pzh1 Read locate for allt(pzrq)=allt(pzrq1) and allt(pzh)=allt(pzh1) if found() disp edit else meagebox(没有找到符合条件的凭证) endif set talk on return 4.5.2

23、运行程序的效果示意图： 23 会计信息系统 1）当输入要查询的凭证时的界面示意图： 2）对查询到的凭证进行修改时的界面示意图： 24 会计信息系统 五各类汇总表与账簿设计 5.1科目汇总表设计 5.1.1程序： set talk off clear store 0 to jfje1,dfje1,ye select 1 use c:会计信息系统-郑静金凭证库.dbf select 2 use c:会计信息系统-郑静金科目汇总表.dbf 1,60 say 科目汇总表 font 宋体,14 go top do while !eof() kmdm1=kmdm select 1 sum jfje to

24、jfje1 for kmdm=kmdm1 sum dfje to dfje1 for kmdm=kmdm1 select 2 replace bqjf with jfje1,bqdf with dfje1 skip enddo display a1=0 b1=0 sum bqjf to a1 sum bqdf to b1 locate for kmmc=合计 replace bqjf with a1,bqdf with b1 list if bqjf=bqdf meagebox(太棒了，恭喜您，试算平衡！) else meagebox(试算不平衡，请您仔细检查！) endi use selec

25、t 1 use select 2 set talk on 25 会计信息系统 return 5.1.2运行程序时的效果示意图： 5.2.总分类账输出设计 5.2.1程序： 26 会计信息系统 set talk off clear kmdm1=space(4) kmmc1=space(10) bqjf1=0 bqdf1=0 select 1 use c:会计信息系统-郑静金科目汇总表.dbf select 2 use c:会计信息系统-郑静金总分类账.dbf go top do while !eof() kmdm1=kmdm select 1 locate for kmdm=kmdm1 if f

26、ound()=.t.kmmc1=kmmc bqjf1=bqjf bqdf1=bqdf endi select 2 1,60 say 总分类账 font 宋体,14 ye1=qcjf+bqjf1-qcdf-bqdf1 do case ye1 case ye10 replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with 借, ye with ye1 case ye1 27 会计信息系统 use select 2 set talk on return 5.2.2程序运行的效果示意图 5.3现金日记账输出程序设计 5.3.1程序：

27、set talk off clea stor 0 to jfje1,dfje1,ye1 rq1=space(10) pzh1=space(3) 28 会计信息系统 zy1=space(20) sele 1 Use c :会计信息系统-郑静金凭证库.dbf sele 2 use c:会计信息系统-郑静金现金日记账.dbf sele 1 do while !eof() if substr(kmdm,1,4)=1001 rq1=pzrq pzh1=pzh jfje1=jfje dfje1=dfje zy1=zy sele 2 ye1=ye skip delete rest pack append b

28、lank repl rq with rq1,pzh with pzh1,zy with zy1,sr with jfje1,zc with dfje1,ye with ye1+jfje1-dfje1 endi sele 1 skip endd use sele 2 zsr=0 zzc=0 store 0 to zsr,zzc sum sr to zsr sum zc to zzc appe blan repl rq with 2023/04/30,zy with 本月小计,sr with zsr,zc with zzc,ye with ye1+jfje1-dfje1 1,48 say 现金日记

29、账 font 宋体,14 list use set talk on return 5.3.2程序运行的效果示意图 29 会计信息系统 5.4银行日记账输出程序设计 5.4.1程序： set talk off clea stor 0 to jfje1,dfje,ye1 rq1=space(10) pzh1=space(3) use sele 1 use c:会计信息系统-郑静金凭证库.dbf sele 2 use c:会计信息系统-郑静金银行日记账.dbf sele 1 do while !eof() if subs(kmdm,1,4)=1002 rq1=pzrq pzh1=pzh jfje1=

30、jfje dfje1=dfje zy1=zy sele 2 ye1=ye skip dele rest 30 会计信息系统 pack appe blan repl rq with rq1,pzh with pzh1,zy with zy1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1 endi sele 1 skip endd use sele 2 a=0 b=0 sum jfje to a sum dfje to b appe blan repl rq with 2023/04/30,zy with 本月小计,jfje wit

31、h a,dfje with b,ye with ye1+jfje1-dfje1 1,48 say 银行日记账 font 宋体,14 list use set talk on return 5.4.2程序运行的效果示意图 31 会计信息系统 六、报表输出设计 6.1利润表输出设计 6.1.1程序： set talk off clear store 0 to bqdf1,bqdf2,bqdf3,bqdf4,bqdf5,bqdf6,bqdf7,a1,a2,a3,a4 select 1 use c:会计信息系统-郑静金科目汇总表 select 2 use c:会计信息系统-郑静金利润表 select

32、1 do while !eof() if kmdm=6001 bqdf1=bqdf skip bqdf2=bqdf skip bqdf3=bqdf skip bqdf4=bqdf skip bqdf5=bqdf skip bqdf6=bqdf skip bqdf7=bqdf a1=bqdf1-bqdf3 a2=a1+bqdf2-bqdf4-bqdf5-bqdf6-bqdf7 a3=a2 a4=a3 select 2 replace bqje with bqdf1 for hc=1 replace bqje with bqdf3 for hc=2 replace bqje with a1 for

33、 hc=4 replace bqje with bqdf2 for hc=5 replace bqje with bqdf4 for hc=7 replace bqje with bqdf6 for hc=8 replace bqje with bqdf7 for hc=9 32 会计信息系统 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 a3 for hc

34、=14 replace bqje with 0 for hc=15 replace bqje with a4 for hc=16 1,60 say 利润表 font 宋体,14 list exit else skip endi endd use select 1 set talk on return 6.1.2程序的运行效果示意图 33 会计信息系统 6.2.资产负债表输出设计 6.2.1程序： set talk off clear store 0 to a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17 store 0 to

35、b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10 select 1 use c:会计信息系统-郑静金总分类账 select 2 use c:会计信息系统-郑静金资产负债表 select 3 select 1 do while !eof() if kmdm=1001 a1=ye skip a2=ye skip a3=ye skip a4=ye skip a5=ye skip a6=ye skip a7=ye skip a8=ye skip a9=ye skip a10=ye skip a11=ye skip a12=ye skip a13=ye skip a14=ye 34 会

36、计信息系统 skip a15=ye skip a16=ye skip a17=ye else skip endi endd b0=a1+a2 b1=a5+a6+a7+a17 b2=b0+b1+a3+a4+0 b3=a8-a9 b4=b2+b3 b5=a10+a11+a12+a13 b6=a14+a16 b7=b5+b6 select 2 sum qcye2 to b8 for hc2=2 b9=b8+b5 b10=b9+b6 repla qmye1 with b0 for hc1=2 repla qmye1 with a3 for hc1=3 repla qmye1 with a4 for h

37、c1=4 repla qmye1 with b1 for hc1=5 repla qmye1 with 0 for hc1=6 repla qmye1 with b2 for hc1=7 repla qmye1 with a8 for hc1=9 repla qmye1 with a9 for hc1=10 repla qmye1 with b3 for hc1=11 repla qmye1 with b3 for hc1=12 repla qmye1 with b4 for hc1=17 repla qmye2 with b8 for hc2=2 repla qmye2 with a10 f

38、or hc2=3 repla qmye2 with a11 for hc2=4 repla qmye2 with a12 for hc2=5 repla qmye2 with a13 for hc2=6 repla qmye2 with b9 for hc2=7 repla qmye2 with 0 for hc2=9 repla qmye2 with 0 for hc2=10 repla qmye2 with b9 for hc2=11 repla qmye2 with a14 for hc2=13 35 会计信息系统 repla qmye2 with 0 for hc2=14 repla

39、qmye2 with a16 for hc2=15 repla qmye2 with b6 for hc2=16 repla qmye2 with b10 for hc2=17 list if b4=b10 meagebox(资产负债表平衡！请退出！) else meagebox(资产负债表不平衡！请检查) endif use select 1 use select 2 1,60 say 资产负债表 font 宋体,14 use set talk on return 6.2.2程序运行的效果示意图： 36 会计信息系统 37 会计信息系统报告 会计信息系统 会计信息系统 会计信息系统 会计信息系统 会计信息系统 会计信息系统 会计信息系统 会计信息系统 1会计信息系统报告