会计信息系统报告.docx
《会计信息系统报告.docx》由会员分享,可在线阅读,更多相关《会计信息系统报告.docx(39页珍藏版)》请在冰豆网上搜索。
![会计信息系统报告.docx](https://file1.bdocx.com/fileroot1/2022-11/26/e0d14901-7441-4fee-b08e-154abf7ea73b/e0d14901-7441-4fee-b08e-154abf7ea73b1.gif)
会计信息系统报告
一、会计信息系统课程设计概述………………………………………
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资产负债表输出设计
一、会计信息系统课程设计概述
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.代码设计遵循惟一性,标准化,通用性,稳定性,可扩充性和简单性等。
二.登录界面及主菜单设计
2.1.登陆界面设计
(1)在项目中打开登陆界面示意图:
(2)登陆界面设计示意图:
2.2登录程序
2.2.1表单中登录按钮command1的程序设计
(1)程序:
n=0
a=thisform.text1.value
b=thisform.text2.value
ifa="20124920801"andb="789990"
thisform.label13.caption="欢迎使用本系统!
"
doc:
\会计信息系统-郑静金\主菜单设计.prg
else
n=n+1
thisform.label13.caption="学号错误,请重新输入!
"
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
ifn=3
thisform.label13.caption="对不起,您无权使用本系统!
"
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
mand1.enabled=.f.
endif
endif
(2)运行的效果示意图:
2.2.2退出按钮command2的程序设计
(1)程序:
thisform.release
(2)运行效果示意图(退回到原来界面)
2.3主菜单的程序设计
2.3.1程序:
settalkoff
clear
setsysmenuto
definepad_pad1of_msysmenuprompt"凭证处理"colorscheme3
definepad_pad2of_msysmenuprompt"账簿管理"colorscheme3
definepad_pad3of_msysmenuprompt"会计报表"colorscheme3
definepad_pad4of_msysmenuprompt"退出系统"colorscheme3
onpad_pad1of_msysmenuactivatepopup凭证处理
onpad_pad2of_msysmenuactivatepopup账簿管理
onpad_pad3of_msysmenuactivatepopup会计报表
onpad_pad4of_msysmenuactivatepopup退出系统
definepopup凭证处理marginrelativeshadowcolorscheme4
definebar1of凭证处理prompt"科目代码查询"
definebar2of凭证处理prompt"凭证录入"
definebar3of凭证处理prompt"凭证修改"
definebar4of凭证处理prompt"凭证查询"
onselectionbar1of凭证处理doc:
\会计信息系统-郑静金\科目代码查询.prg
onselectionbar2of凭证处理doc:
\会计信息系统-郑静金\凭证录入.prg
onselectionbar3of凭证处理doc:
\会计信息系统-郑静金\凭证修改.prg
onselectionbar4of凭证处理doc:
\会计信息系统-郑静金\凭证查询.prg
definepopup账簿管理marginrelativeshadowcolorscheme4
definebar1of账簿管理prompt"科目汇总表"
definebar2of账簿管理prompt"现金日记账"
definebar3of账簿管理prompt"银行日记账"
definebar4of账簿管理prompt"总分类账"
onselectionbar1of账簿管理doc:
\会计信息系统-郑静金\科目汇总表输出.prg
onselectionbar2of账簿管理doc:
\会计信息系统-郑静金\现金日记账输出.prg
onselectionbar3of账簿管理doc:
\会计信息系统-郑静金\银行日记账输出.prg
onselectionbar4of账簿管理doc:
\会计信息系统-郑静金\总分类账输出.prg
definepopup会计报表marginrelativeshadowcolorscheme4
definebar1of会计报表prompt"资产负债表"
definebar2of会计报表prompt"利润表"
onselectionbar1of会计报表doc:
\会计信息系统-郑静金\资产负债表输出.prg
onselectionbar2of会计报表doc:
\会计信息系统-郑静金\利润表输出.prg
definepopup退出系统marginrelativeshadowcolorscheme4
definebar1of退出系统prompt"退出"
onselectionbar1of退出系统doc:
\会计信息系统-郑静金\退出系统设计.prg
2.3.2程序运行效果示意图:
2.4.退出系统程序设计
2.4.1程序:
settalkoff
clear
setsysmenutodefault
settalkon
return
2.4.2运行程序的效果示意图(退出程序)
三.系统基本设置
3.1数据库和数据表(完成效果图如下)
3.2.科目代码库(完成效果图如下:
)
3.3摘要库(完成效果图如下:
)
四.凭证处理4.1凭证格式设计
4.1.1程序:
settalkoff
clear
n=13
a1="____________________________________________________________________"
a2="|||||"
a3="|_____________________|______________|________________|______________|"
a4="|_____________________|______________|________________|______________|"
@12,10saya1
dowhilen<=26
@n,10saya2
@n+1,10saya3
n=n+2
enddo
@27,10saya2
@28,10saya4
@7,41say"记账凭证"font"宋体",20
@11,12say"凭证类别:
"
@11,39say"日期:
"
@11,58say"凭证号:
"
@11,82say"附件张数:
"
@13,25say"摘要"
@13,48say"会计科目"
@13,68say"借方金额"
@13,86say"贷方金额"
@27,25say"合计"
@29,10say"记账:
"+space(16)+"审核:
"+space(14)+"出纳:
"+space(14)+"制单:
"
4.1.2程序运行效果示意图:
4.2.科目代码查询设计
4.2.1程序:
settalkoff
a=6
clea
usec:
\会计信息系统-郑静金\科目代码库.dbf
dowhilea=6
clea
kmdm1=space(6)
@9,20say"请输入科目代码:
"getkmdm1
read
locateforkmdm=kmdm1
if!
found()
messagebox("代码不正确,请重新输入")
else
@10,37saykmmc
endi
a=messagebox("是否继续查询下一个?
",4)
enddo
use
settalkon
return
4.2.2程序运行效果示意图:
4.3.凭证录入设计
功能说明:
1)具有可输入多借多贷分录的功能,并可继续输入下一张凭证。
2)含多种逻辑纠错功能,可限制凭证类型,保证输入的摘要、科目代码和金额的有效性,可检查借贷方金额是否平衡并可做相应的修改。
4.3.1程序:
settalkoff
closeall
clear
dowhile.t.
doc:
\会计信息系统-郑静金\凭证格式.prg
pzlx1=space
(2)
fjzs1=""
pzh1=space(3)
store0toje1,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,22getpzlx1
read
dowhilepzlx1<>"收".and.pzlx1<>"付".and.pzlx1<>"转"
messagebox("凭证类型错误,请重新输入!
")
@11,22getpzlx1
read
enddo
@11,44getrq1
@11,65getpzh1
@11,92getfjzs1
read
m=6
a=15
dowhilem=6
usec:
\会计信息系统-郑静金\摘要库.dbf
@a,12getzy1
read
locateforzydm=zy1
dowhilezydm<>zy1
messagebox("找不到符合条件的摘要,请重新输入")
@a,12getzy1
read
locateforzydm=zy1
endd
zy2=zynr
@a,12sayzy2
use
usec:
\会计信息系统-郑静金\科目代码库.dbf
@a,48getkmdm1
read
locateforkmdm=kmdm1
dowhilekmdm<>kmdm1
messagebox("输入的科目代码有误,请重新输入")
@a,48getkmdm1
read
locateforkmdm=kmdm1
endd
kmmc1=kmmc
@a,48saykmmc1
@a,68getje1
@a,86getje2
read
dowhileje1=0.and.je2=0
messagebox("金额不能为零")
@a,68getje1
@a,86getje2
read
endd
usec:
\会计信息系统-郑静金\凭证库.dbf
appendblank
replpzrqwithrq1,pzhwithpzh1,pzlxwithpzlx1,zywithzy2,kmdmwithkmdm1,kmmcwithkmmc1,jfjewithje1,dfjewithje2
use
m=messagebox("是否输入下一行分录",4)
a=a+2
enddo
usec:
\会计信息系统-郑静金\凭证库.dbf
sumjfjetojfje1forpzh=pzh1
sumdfjetodfje1forpzh=pzh1
@27,68sayjfje1
@27,86saydfje1
dowhilejfje1<>dfje1
messagebox("借贷不平衡,输入金额有误")
doc:
\会计信息系统-郑静金\凭证修改
endd
use
xz=""
@32,25say"是否输入下一张(y/n)"getxz
read
ifxz="y"orxz="Y"
loop
else
exit
endi
endd
usec:
\会计信息系统-郑静金\凭证库.dbf
display
use
settalkon
return
4.3.2运行效果示意图:
1)当输入完一行分录时的示意图:
2)当输入完一笔业务时可继续输入下一张的示意图:
3)当输入多借多贷的分录时的完成示意图:
4)运行时借贷方金额不相等情况下的示意图
5)待25笔凭证按上述步骤录入完成之后,打开数据库中的凭证库,显示如下:
4.4.凭证查询设计
4.4.1程序:
settalkoff
clear
usec:
\会计信息系统-郑静金\凭证库.dbf
pzrq1=space(10)
pzh1=space(4)
pzlx1=space
(2)
@4,4say"请输入凭证日期:
"getpzrq1
@6,4say"请输入凭证号码:
"getpzh1
@8,4say"请输入凭证类型:
"getpzlx1
Read
locateforpzrq=pzrq1andpzh=pzh1andpzlx=pzlx1
iffound()=.t.
disp
skip
disp
else
messagebox("查询不到符合条件的凭证")
endi
settalkon
return
4.4.2程序运行效果示意图
1)当查询到相应凭证时的运行效果示意图
2)当输入的凭证查询不到时的运行效果示意图:
4.5.凭证修改设计
4.5.1程序:
settalkoff
clear
usec:
\会计信息系统-郑静金\凭证库.dbf
pzrq1=space(10)
pzh1=space(3)
@2,4say"请输入凭证日期:
"getpzrq1
@4,4say"请输入凭证号:
"getpzh1
Read
locateforallt(pzrq)=allt(pzrq1)andallt(pzh)=allt(pzh1)
iffound()
disp
edit
else
messagebox("没有找到符合条件的凭证")
endif
settalkon
return
4.5.2运行程序的效果示意图:
1)当输入要查询的凭证时的界面示意图:
2)对查询到的凭证进行修改时的界面示意图:
五.各类汇总表与账簿设计
5.1科目汇总表设计
5.1.1程序:
settalkoff
clear
store0tojfje1,dfje1,ye
select1
usec:
\会计信息系统-郑静金\凭证库.dbf
select2
usec:
\会计信息系统-郑静金\科目汇总表.dbf
@1,60say"科目汇总表"font"宋体",14
gotop
dowhile!
eof()
kmdm1=kmdm
select1
sumjfjetojfje1forkmdm=kmdm1
sumdfjetodfje1forkmdm=kmdm1
select2
replacebqjfwithjfje1,bqdfwithdfje1
skip
enddo
display
a1=0
b1=0
sumbqjftoa1
sumbqdftob1
locateforkmmc="合计"
replacebqjfwitha1,bqdfwithb1
list
ifbqjf=bqdf
messagebox("太棒了,恭喜您,试算平衡!
")
else
messagebox("试算不平衡,请您仔细检查!
")
endi
use
select1
use
select2
settalkon
return
5.1.2运行程序时的效果示意图:
5.2.总分类账输出设计
5.2.1程序:
settalkoff
clear
kmdm1=space(4)
kmmc1=space(10)
bqjf1=0
bqdf1=0
select1
usec:
\会计信息系统-郑静金\科目汇总表.dbf
select2
usec:
\会计信息系统-郑静金\总分类账.dbf
gotop
dowhile!
eof()
kmdm1=kmdm
select1
locateforkmdm=kmdm1
iffound()=.t.
kmmc1=kmmc
bqjf1=bqjf
bqdf1=bqdf
endi
select2
@1,60say"总分类账"font"宋体",14
ye1=qcjf+bqjf1-qcdf-bqdf1
docaseye1
caseye1>0
replacekmmcwithkmmc1,bqjfwithbqjf1,bqdfwithbqdf1,fxwith"借",yewithye1
caseye1<0
replacekmmcwithkmmc1,bqjfwithbqjf1,bqdfwithbqdf1,fxwith"贷",yewithye1*(-1)
caseye1=0
replacekmmcwithkmmc1,bqjfwithbqjf1,bqdfwithbqdf1,fxwith"平",yewithye1
endcase
skip
enddo
list
j1=0
d1=0
sumbqjftoj1
sumbqdftod1
replacekmmcwith"合计"bqjfwithj1,bqdfwithd1
display
use
select1
use
select2
settalkon
return
5.2.2程序运行的效果示意图
5.3现金日记账输出程序设计
5.3.1程序:
settalkoff
clea
stor0tojfje1,dfje1,ye1
rq1=space(10)
pzh1=space(3)
zy1=space(20)
sele1
Usec:
\会计信息系统-郑静金\凭证库.dbf
sele2
usec:
\会计信息系统-郑静金\现金日记账.dbf
sele1
dowhile!
eof()
ifsubstr(kmdm,1,4)="1001"
rq1=pzrq
pzh1=pzh
jfje1=jfje
dfje1=dfje
zy1=zy
sele2
ye1=ye
skip
deleterest
pack
appendblank
replrqwithrq1,pzhwithpzh1,zywithzy1,srwithjfje1,zcwithdfje1,yewithye1+jfje1-dfje1
endi
sele1
skip
endd
use
sele2
zsr=0
zzc=0
store0tozsr,zzc
sumsrtozsr
sumzctozzc
appeblan
replrqwith"2014/04/