目
录
一、会计信息系统课程设计概述„„„„„„„„„„„„„„„
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资产负债表输出设计
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.代码设计遵循惟一性，标准化，通用性，稳定性，可扩充性和简单性等。4
会计信息系统
二.登录界面及主菜单设计
2.1.登陆界面设计
（1）在项目中打开登陆界面示意图：
(2）登陆界面设计示意图：
2.2登录程序
会计信息系统
2.2.1表单中登录按钮command1的程序设计
（1）程序：
n=0 a=thisform.text1.value b=thisform.text2.value if a=\"20124920801\" 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=.f.thisform.command1.enabled=.f.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 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 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 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:\\会计信息系统-郑静金\\科目汇总表输出.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 \"利润表\" 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 talk 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.科目代码查询设计
会计信息系统
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
会计信息系统
功能说明：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) 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 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 @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+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:\\会计信息系统-郑静金\\凭证库.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=space(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
会计信息系统
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
会计信息系统
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 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 select 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 found()=.t.kmmc1=kmmc bqjf1=bqjf bqdf1=bqdf endi select 2 @1,60 say \"总分类账\" font \"宋体\",14 ye1=qcjf+bqjf1-qcdf-bqdf1 do case ye1 case ye1>0 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程序：
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 blank 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 \"2014/04/30\",zy with \"本月小计\",sr with zsr,zc with zzc,ye with ye1+jfje1-dfje1 @1,48 say \"现金日记账\" 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=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 \"2014/04/30\",zy with \"本月小计\",jfje with 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 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 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=\"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 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
会计信息系统
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 hc1=\"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 for 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 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
