会计信息系统报告

目录
一、会计信息系统课程设计概述………………………………………
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日参加了学院为期一周的会计信息系统课程设计实习。

在实习过程中，我根据系统生命周期法，课程设计分为计划、开发、运行及维护四个阶段，我相继完成了系统分析任务、系统设计任务，从最初的系统设置，凭证格式设计、录
3
入、处理到各类汇总表、账簿的输出。

会计课程设计让我学到了很多东西，由此编制了此次会计信息系统课程设计报告。

1.2系统模块划分
账务处理系统包含六大模块：
1）系统初始设置模块：包含数据库和数据表的建立、科目代码库的建立与摘要库的建立及各账簿初始余额的输入。

2）登录设计模块：包含登陆界面的设计、相关代码设计及主菜单程序设计等。

3）凭证处理模块：包含凭证格式设计、科目代码查询、凭证录入、凭证修改、凭证查询等程序设计及输出。

4）汇总表及账簿模块：包含科目汇总表设计、总分类账、现金日记账、总分类账程序设计及输出。

5）报表输出模块：包含资产负债表、利润表的程序设计及输出。

6）系统规律模块：各种系统的基本操作，如剪切、复制、窗口间切换等。

1.3数据流图：
记账凭证——凭证输入——凭证审核——日常处理——记账结账——输出账簿及报表
1.4系统分析、设计任务的要求
1.4.1系统分析任务
1.系统分析的基本任务是得到一个会计信息系统的逻辑模型。

系统分析是整个4
系统建设的关键阶段，它阐明了各功能单位之间的相互联系，保证新系统有整体性和优良的结构，是系统设计的基础，且系统分析工作难度较大，它要求主持该项工作的人员具有熟悉计算机技术、熟悉财会业务和协调的能力。

2.采用结构化系统分析方法，采用“自顶向下，逐层分解，化大为小，分而治之”的思想将系统功能由粗到细，逐步分解。

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

5
二.登录界面及主菜单设计
2.1.登陆界面设计
（1）在项目中打开登陆界面示意图：(2）登陆界面设计示意图：
6
2.2登录程序
2.2.1表单中登录按钮command1的程序设计
（1）程序：
n=0
a=thisform.text1.value
b=thisform.text2.value
if a="20124920801" and b="789990"
bel13.caption="欢迎使用本系统！"
do c:\会计信息系统-郑静金\主菜单设计.prg
else
n=n+1
bel13.caption="学号错误，请重新输入！"
7
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
if n=3
bel13.caption="对不起，您无权使用本系统！"
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
mand1.enabled=.f.
endif
endif
（2）运行的效果示意图：
8
2.2.2退出按钮command2的程序设计
（1）程序：
thisform.release
（2）运行效果示意图（退回到原来界面）
2.3主菜单的程序设计
9
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
10
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程序运行效果示意图：
11
2.4.退出系统程序设计
2.4.1程序：
set talk off
clear
set sysmenu to default
set talk on
return
12
2.4.2运行程序的效果示意图（退出程序）
三．系统基本设置
3.1数据库和数据表（完成效果图如下）
13
3.2.科目代码库（完成效果图如下：）14
3.3摘要库（完成效果图如下：）
15
四．凭证处理4.1凭证格式设计
4.1.1程序：
set talk off
clear
n=13
16
a1=" ____________________________________________________________________" a2="| | | | |" a3="|_____________________|______________|________________|______________|" a4="|_____________________|______________|________________|______________|" @12,10 say a1
do while n<=26
@n,10 say a2
@n+1,10 say a3
n=n+2
enddo
@27,10 say a2
@28,10 say a4
@7,41 say "记账凭证" font "宋体",20
@11,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)+"制单："
17
4.1.2程序运行效果示意图：
4.2.科目代码查询设计
4.2.1程序：
set talk off
a=6
clea
use c:\会计信息系统-郑静金\科目代码库.dbf
do while a=6
clea
kmdm1=space(6)
18
@9,20 say "请输入科目代码："get kmdm1
read
locate for kmdm=kmdm1
if !found()
messagebox ("代码不正确,请重新输入")
else
@10,37 say kmmc
endi
a=messagebox("是否继续查询下一个?",4)
enddo
use
set talk on
return
4.2.2程序运行效果示意图：
19
4.3.凭证录入设计
功能说明：1）具有可输入多借多贷分录的功能，并可继续输入下一张凭证。

2）含多种逻辑纠错功能，可限制凭证类型，保证输入的摘要、科目代码和金额的有效性，可检查借贷方金额是否平衡并可做相应的修改。

4.3.1程序：
set talk off
close all
clear
do while .t.
do c:\会计信息系统-郑静金\凭证格式.prg
pzlx1=space(2)
fjzs1=" "
20
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<>"转"
messagebox("凭证类型错误,请重新输入!")
@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
21
use c:\会计信息系统-郑静金\摘要库.dbf
@a,12 get zy1
read
locate for zydm=zy1
do while zydm<>zy1
messagebox("找不到符合条件的摘要，请重新输入")
@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 kmdm<>kmdm1
messagebox("输入的科目代码有误，请重新输入")
@a,48 get kmdm1
read
locate for kmdm=kmdm1
endd
22
kmmc1=kmmc
@a,48 say kmmc1
@a,68 get je1
@a,86 get je2
read
do while je1=0.and.je2=0
messagebox("金额不能为零")
@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=messagebox("是否输入下一行分录",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
23
@27,86 say dfje1
do while jfje1<>dfje1
messagebox("借贷不平衡，输入金额有误")
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运行效果示意图：
24
1）当输入完一行分录时的示意图：
2）当输入完一笔业务时可继续输入下一张的示意图：
25
3）当输入多借多贷的分录时的完成示意图：26
27
4）运行时借贷方金额不相等情况下的示意图
5）待25笔凭证按上述步骤录入完成之后，打开数据库中的凭证库，显示28
如下：
4.4.凭证查询设计
4.4.1程序：
set talk off
clear
use c:\会计信息系统-郑静金\凭证库.dbf
29
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
disp
else
messagebox("查询不到符合条件的凭证")
endi
set talk on
return
4.4.2程序运行效果示意图
1）当查询到相应凭证时的运行效果示意图
30
2）当输入的凭证查询不到时的运行效果示意图：
31
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
32
locate for allt(pzrq)=allt(pzrq1) and allt(pzh)=allt(pzh1)
if found()
disp
edit
else
messagebox("没有找到符合条件的凭证")
endif
set talk on
return
4.5.2运行程序的效果示意图：
1）当输入要查询的凭证时的界面示意图：
2）对查询到的凭证进行修改时的界面示意图：
33
五．各类汇总表与账簿设计5.1科目汇总表设计
5.1.1程序：
set talk off
clear
34
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
35
list
if bqjf=bqdf
messagebox("太棒了，恭喜您，试算平衡！")
else
messagebox("试算不平衡，请您仔细检查！")
endi
use
select 1
use
select 2
set talk on
return
5.1.2运行程序时的效果示意图：
36
37
5.2.总分类账输出设计
5.2.1程序：
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
38
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<0
replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "贷", ye with ye1*(-1)
case ye1=0
replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "平", ye with ye1
endcase
skip
enddo
list
j1=0
d1=0
sum bqjf to j1
sum bqdf to d1
replace kmmc with "合计" bqjf with j1,bqdf with d1
display
use
select 1
39
use
select 2
set talk on
return
5.2.2程序运行的效果示意图40
5.3现金日记账输出程序设计
5.3.1程序：
set talk off
clea
stor 0 to jfje1,dfje1,ye1
rq1=space(10)
pzh1=space(3)
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
41
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
42
return
5.3.2程序运行的效果示意图
5.4银行日记账输出程序设计
5.4.1程序：
set talk off
clea
stor 0 to jfje1,dfje,ye1
rq1=space(10)
pzh1=space(3)
use
43
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
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
44
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程序运行的效果示意图
45
六、报表输出设计
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
46
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"
47
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"
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
48
return
6.1.2程序的运行效果示意图
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
49
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
50。