会计信息系统报告Word下载.docx
- 文档编号:16793983
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:39
- 大小:1.88MB
会计信息系统报告Word下载.docx
《会计信息系统报告Word下载.docx》由会员分享,可在线阅读,更多相关《会计信息系统报告Word下载.docx(39页珍藏版)》请在冰豆网上搜索。
6)系统规律模块:
各种系统的基本操作,如剪切、复制、窗口间切换等。
1.3数据流图:
记账凭证——凭证输入——凭证审核——日常处理——记账结账——输出账簿及报表
1.4.1系统分析任务
1.系统分析的基本任务是得到一个会计信息系统的逻辑模型。
系统分析是整个系统建设的关键阶段,它阐明了各功能单位之间的相互联系,保证新系统有整体性和优良的结构,是系统设计的基础,且系统分析工作难度较大,它要求主持该项工作的人员具有熟悉计算机技术、熟悉财会业务和协调的能力。
2.采用结构化系统分析方法,采用“自顶向下,逐层分解,化大为小,分而治之”的思想将系统功能由粗到细,逐步分解。
3.模块划分的原则:
(1)模块涉及操作相对集中,即一个模块只模仿某一方面的功能,以提高系统的可用性;
(2)各模块相对独立,降低模块间的耦合程度,因为耦合程度越低,模块间的相互影响就越小,说明系统分解得越好;
1.4.2系统设计的要求
1.系统设计应遵循系统的可靠性,系统的实用性,系统的运行效率,系统的适用性和系统的经济效益的原则;
2.在系统处理方式上选择批处理方式,共享程度高,一致性好;
3.代码设计遵循惟一性,标准化,通用性,稳定性,可扩充性和简单性等。
二.登录界面及主菜单设计
2.1.登陆界面设计
(1)在项目中打开登陆界面示意图:
(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.text1.value="
thisform.text2.value="
thisform.text1.setfocus
ifn=3
对不起,您无权使用本系统!
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
mand1.enabled=.f.
endif
(2)运行的效果示意图:
2.2.2退出按钮command2的程序设计
thisform.release
(2)运行效果示意图(退回到原来界面)
2.3.1程序:
settalkoff
clear
setsysmenuto
definepad_pad1of_msysmenuprompt"
凭证处理"
colorscheme3
definepad_pad2of_msysmenuprompt"
账簿管理"
definepad_pad3of_msysmenuprompt"
会计报表"
definepad_pad4of_msysmenuprompt"
退出系统"
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.1程序:
settalkoff
setsysmenutodefault
settalkon
return
2.4.2运行程序的效果示意图(退出程序)
三.系统基本设置
3.1数据库和数据表(完成效果图如下)
3.2.科目代码库(完成效果图如下:
)
3.3摘要库(完成效果图如下:
四.凭证处理4.1凭证格式设计
4.1.1程序:
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)+"
出纳:
制单:
4.1.2程序运行效果示意图:
4.2.科目代码查询设计
4.2.1程序:
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)
use
settalkon
4.2.2程序运行效果示意图:
4.3.凭证录入设计
功能说明:
1)具有可输入多借多贷分录的功能,并可继续输入下一张凭证。
2)含多种逻辑纠错功能,可限制凭证类型,保证输入的摘要、科目代码和金额的有效性,可检查借贷方金额是否平衡并可做相应的修改。
4.3.1程序:
closeall
dowhile.t.
\会计信息系统-郑静金\凭证格式.prg
pzlx1=space
(2)
fjzs1="
"
pzh1=space(3)
store0toje1,je2,jfje1,dfje1
rq1=space(10)
zy1=space(3)
zy2=space(20)
kmdm2=space(6)
kmmc1=space(20)
kmmc2=space(20)
@11,22getpzlx1
dowhilepzlx1<
>
收"
.and.pzlx1<
付"
转"
messagebox("
凭证类型错误,请重新输入!
@11,44getrq1
@11,65getpzh1
@11,92getfjzs1
m=6
a=15
dowhilem=6
\会计信息系统-郑静金\摘要库.dbf
@a,12getzy1
locateforzydm=zy1
dowhilezydm<
zy1
找不到符合条件的摘要,请重新输入"
endd
zy2=zynr
@a,12sayzy2
@a,48getkmdm1
dowhilekmdm<
kmdm1
输入的科目代码有误,请重新输入"
kmmc1=kmmc
@a,48saykmmc1
@a,68getje1
@a,86getje2
dowhileje1=0.and.je2=0
金额不能为零"
\会计信息系统-郑静金\凭证库.dbf
appendblank
replpzrqwithrq1,pzhwithpzh1,pzlxwithpzlx1,zywithzy2,kmdmwithkmdm1,kmmcwithkmmc1,jfjewithje1,dfjewithje2
m=messagebox("
是否输入下一行分录"
a=a+2
sumjfjetojfje1forpzh=pzh1
sumdfjetodfje1forpzh=pzh1
@27,68sayjfje1
@27,86saydfje1
dowhilejfje1<
dfje1
借贷不平衡,输入金额有误"
\会计信息系统-郑静金\凭证修改
xz="
@32,25say"
是否输入下一张(y/n)"
getxz
ifxz="
y"
orxz="
Y"
loop
exit
endi
display
return
4.3.2运行效果示意图:
1)当输入完一行分录时的示意图:
2)当输入完一笔业务时可继续输入下一张的示意图:
3)当输入多借多贷的分录时的完成示意图:
4)运行时借贷方金额不相等情况下的示意图
5)待25笔凭证按上述步骤录入完成之后,打开数据库中的凭证库,显示如下:
4.4.凭证查询设计
4.4.1程序:
pzrq1=space(10)
pzh1=space(4)
@4,4say"
请输入凭证日期:
getpzrq1
@6,4say"
请输入凭证号码:
getpzh1
@8,4say"
请输入凭证类型:
getpzlx1
Read
locateforpzrq=pzrq1andpzh=pzh1andpzlx=pzlx1
iffound()=.t.
disp
skip
查询不到符合条件的凭证"
4.4.2程序运行效果示意图
1)当查询到相应凭证时的运行效果示意图
2)当输入的凭证查询不到时的运行效果示意图:
4.5.凭证修改设计
4.5.1程序:
@2,4say"
请输入凭证号:
locateforallt(pzrq)=allt(pzrq1)andallt(pzh)=allt(pzh1)
iffound()
edit
没有找到符合条件的凭证"
4.5.2运行程序的效果示意图:
1)当输入要查询的凭证时的界面示意图:
2)对查询到的凭证进行修改时的界面示意图:
五.各类汇总表与账簿设计
5.1科目汇总表设计
5.1.1程序:
store0tojfje1,dfje1,ye
select1
select2
\会计信息系统-郑静金\科目汇总表.dbf
@1,60say"
14
gotop
dowhile!
eof()
kmdm1=kmdm
sumjfjetojfje1forkmdm=kmdm1
sumdfjetodfje1forkmdm=kmdm1
replacebqjfwithjfje1,bqdfwithdfje1
a1=0
b1=0
sumbqjftoa1
sumbqdftob1
locateforkmmc="
replacebqjfwitha1,bqdfwithb1
list
ifbqjf=bqdf
太棒了,恭喜您,试算平衡!
试算不平衡,请您仔细检查!
5.1.2运行程序时的效果示意图:
5.2.总分类账输出设计
5.2.1程序:
kmdm1=space(4)
kmmc1=space(10)
bqjf1=0
bqdf1=0
\会计信息系统-郑静金\总分类账.dbf
bqjf1=bqjf
bqdf1=bqdf
ye1=qcjf+bqjf1-qcdf-bqdf1
docaseye1
caseye1>
replacekmmcwithkmmc1,bqjfwithbqjf1,bqdfwithbqdf1,fxwith"
借"
yewithye1
caseye1<
贷"
yewithye1*(-1)
caseye1=0
平"
endcase
j1=0
d1=0
sumbqjftoj1
sumbqdftod1
replacekmmcwith"
bqjfwithj1,bqdfwithd1
5.2.2程序运行的效果示意图
5.3现金日记账输出程序设计
5.3.1程序:
stor0tojfje1,dfje1,ye1
zy1=space(20)
sele1
Usec:
sele2
\会计信息系统-郑静金\现金日记账.dbf
ifsubstr(kmdm,1,4)="
1001"
rq1=pzrq
pzh1=pzh
jfje1=jfje
dfje1=dfje
zy1=zy
ye1=ye
skip
deleterest
pack
replrqwithrq1,pzhwithpzh1,zywithzy1,srwithjfje1,zcwithdfje1,yewithye1+jfje1-dfje1
zsr=0
zzc=0
store0tozsr,zzc
sumsrtozsr
sumzctozzc
appeblan
replrqwith"
2014/04/
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 会计信息 系统 报告