会计信息系统报告Word文档格式.docx
《会计信息系统报告Word文档格式.docx》由会员分享，可在线阅读，更多相关《会计信息系统报告Word文档格式.docx（43页珍藏版）》请在冰点文库上搜索。
各种系统的基本操作，如剪切、复制、窗口间切换等。
1.3数据流图：
记账凭证——凭证输入——凭证审核——日常处理——记账结账——输出账簿及报表
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.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程序：
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/30"
zywith"
本月小计"
srwithzsr,
升级会员 