财务会计-会计信息系统课程设计报告 精品
南华大学
会计信息系统课程设计报告
一、概述
根据会计信息系统课程开发设计的要求，我们参加了学院组织的为期一周的会计信息系统课程设计实践。在这个过程中我更加深入的了解到了会计信息系统这门课程。根据系统生命周期法，完成了系统的系统分析任务和设计任务。以下就是我的课程设计报告。
二、会计信息系统的开发
21世纪是信息化的时代，经济的信息化关键是经济的信息化，而信息化建设中的90%的信息来源于会计信息，会计信息绝大多数是由会计信息系统提供的。随着计算机和信息技术的广泛应用，会计工作经历了从手工到会计信息化这一发展过程。会计信息系统的建设将为经营管理、控制决策和经营运行提供充足、实时、全方位的信息。
会计信息系统是一个面向企业价值的信息系统，是从对企业价值运动进行反应和监督的角度提出信息处理和管理需求的信息系统。它是利用信息技术队会计数据进行采集、储存和处理，完成会计核算任务，并提供会计管理、分析、决策所需的辅助信息的系统。在ERP环境下，会计信息系统不是一个独立的子系统，其大部分功能已经融入ERP系统，会计工作中常规的、可程序化的任务都将由各个功能模块和会计功能模块自动处理，同时软件系统还会帮助会计人员完成许多内部控制等管理任务。
信息系统开发的目标是以较少的投资在较短时向获得一个使用、高效、可靠、易维护的系统。软件工程就是研究如何运用科学的方法和手段去达到这个目标。会计信息系统的开发是指研制和建立一个经济有效的会计信息系统。其开发的目标是改善和提高企业的经济管理现代化水平；提高会计信息来源的准确性；为企业及上级提供准确及时和全面的各种财务报表；加快财会计划和计算机辅助财务决策工作，促使会计决策科学化，以提高企业经济效益。
三、会计信息系统的系统分析
系统分析阶段的基本任务是：系统分析员与用户在一起，充分了解用户的要求，并把双方的理解用系统说明书表达出来。统分析是研制信息系统最重要的阶
段，也是最困难的阶段。系统分析要回答新系统“做什么”这个关键性的问题。只有明确了问题，才有可能解决问题；否则，方向不明，无的放矢。系统分析的主要任务是将在系统详细调查中所得到的文档资料集中在一起，对组织内部整体管理状况和信息处理过程进行分析。它侧重于从业务全过程的角度进行分析。分析的主要内容是：业务和数据的流程是否通畅，是否合理，数据、业务过程和实现管理功能之间的关系，原有系统管理模式改革和新系统管理方法的实现是否具有可行性等。
（1）、会计信息系统的可行性研究。目的在于以最小的代价在尽可能短时间内解决问题。
1、对系统开发进行可行性分析。系统分析的第一步就是要论证系统开发的可能性，做出可行性分析报告。
2、详细调查现行系统。系统分析的第二步就是对新会计信息系统的基础——现行会计信息系统进行详细的调查，搞清现行会计信息系统的边界、组织机构、人员分工、业务流程、各种帐、证、表的格式、种类即处理过程。
3、描述现行系统。在进行详细系统调查的基础上，用规定的图表、文字描述线性系统，得出现行会计信息系统的逻辑模型。
4、分析用户的要求，改进现行模型，形成新系统逻辑模型。对现行会计信息系统的逻辑模型进行分析，根据计算机的特点，改进旧模型中不合理之处，增设新的功能，得出新系统的逻辑模型，包括建立新系统的数据流图，规定新系统的数据存储策略、输入输出格式、运行环境和系统的性能。
（2）、会计信息系统的需求分析。需求分析是生命周期模型中的关键步骤。需求分析的主要任务：“理解”和“表达”。1、对现有系统的详细调查和描述：包括收集原系统的各种单据、账簿、报表等的样本，了解原有系统的组织结构、信息流程、信息量、信息处理步骤和结果、资源利用现状、管理方式以及系统的内外部环境，导出原有系统的物理模型，基本符号及实例描述。2、识别原有系统的逻辑模型。3、建立新系统的逻辑模型。4、需求分析的明确表达：撰写规格说明书。
四、会计信息系统的系统设计
会计信息系统具有对信息的加工和传递功能。对财务信息的加工是通过会计
的活动而实现。系统设计也叫物理设计。系统设计是解决“怎么做”的问题，即根据系统的逻辑模型进行物理设计，包括系统配置设计、模块结构设计、数据及文件设计、代码设计、人机界面设计、内部控制设计、算法设计、系统安全设计。系统设计的目标是保证实现系统功能的前提下尽量提高系统的工作质量、运行效率、可靠性和可维护性。
五、会计信息系统设计的意义
随着信息时代的到来，企业竞争日益加剧，这就要求企业对市场的反映更及时、更准确。为了及时把握市场，企业越来越需要管理信息，这已成为企业成败的关键，核算型系统提供信息的滞后性远不能满足现代企业对信息的需求，因此管理型系统的产生即是必然。管理型会计信息系统是一个以计算机和信息处理技术为手段，以管理会计的模型为基本方法，对企业中的内部物流及外部变化信息进行收集、传递、存储、加工、维护和使用的人机系统。它能解析企业的历史数据并能预测未来，为企业管理中的结构化、半结构化和非结构化的决策问题提供信息支持，并利用系统反馈的信息帮助企业管理人员控制和管理企业的行为，以实现加强经营管理，提高经济效益的目的。管理型系统主要侧重于资金、成本、销售收入、利润的管理，用于实现对企业销售收入、税金、利润的实现、提留、上交的管理和控制，充分发挥会计信息系统的管理和控制职能。管理型财务软件以财务管理的效果反映企业的管理整体水平。企业发展以企业盈利和现金流入为基础，通过财务分析和财务预测得出的财务指标，能准确的计算出企业的盈利能力，并由此反映企业管理的整体水平。从而加强对企业的管理，优化管理结构，实现
效益最大化。
效果展示图目录
一、登陆界面设计
二、表文件展示
1、摘要库
2、科目代码库
3、凭证库
三、数据库展示
四、程序设计
（一）、凭证设计
1、凭证格式设计
2、凭证录入设计
3、凭证查询设计
（二）、科目代码设计
1、科目代码查询设计
2、科目代码汇总设计
（三）、日记账设计
1、现金日记账
2、银行日记账
（四）、报表设计
1、资产负债表格设计
2、资产负债程序设计
3、利润表格式设计
一、4、利润表程序设计
二、
三、登陆界面设计
二、表文件展示
1、摘要库
2、科目代码库
3、凭证库
三、数据库展示
四、
五、
六、
七、
八、程序设计
（一）、凭证设计
1、凭证格式设计
程序码：
settalkoff
clear
n=11
a1="_______________________________________________________________________"
a2="|||||"
a3="|_______________|________________|_________________|____________________|" a4="|_______________|________________|_________________|____________________|" @10,10saya1
dowhiln<=18
@n,10saya2
@n+1,10saya3
n=n+2
endd
@19,10saya2
@20,10saya4
@5,38say"记账凭证"font"宋体",20
@9,12say"凭证类别:"
@9,30say"日期:"
@9,46say"凭证号;"
@9,66say"附件张数:"
@11,17say"摘要"
@11,31say"会计科目"
@11,49say"借方金额"
@11,68say"贷方金额"
@19,17say"合计"
@21,12say"记账:"+space(12)+"审核:"+space(12)+"出纳:"+space(12)+"制单:"
2、凭证录入设计
程序码：
settalkoff
doe:\20XX9920422欧阳一帆\凭证格式设计.prg
zy1=spac(3)
zy2=spac(3)
km1=spac(20)
km2=spac(20)
dm1=spac(4)
je1=0
dm2=spac(4)
je2=0
pzlx1=""
rq1=spac(8)
pzh1=spac(5)
fjzs=""
xg="y"
jx="y"
dowhiljx="y"
dowhilxg="y"
@9,21getpzlx1
@9,36getrq1
@9,60getpzh1
@9,80getfjzs
read
usee:\20XX9920422欧阳一帆\摘要库
@13,15getzy1
read
locaforzy1=zynr
@13,15sayzy1
zy2=zy1
use
usee:\20XX9920422欧阳一帆\科目代码库@13,35getdm1
@13,50getje1
read
locafordm1=kmdm
iffoun()
@13,35saykmmc
km1=kmmc
@13,50sayje1
endi
@15,15getzy2
@15,35getdm2
@15,70getje2
read
locafordm2=kmdm
iffoun()
@15,35saykmmc
km2=kmmc
@15,70sayje2
endi
use
@25,10say"是否修改"getxg
read
ifxg="y"
loop
else
exit
endi
endd
usee:\20XX9920422欧阳一帆\凭证库
appeblan
replkmmcwithkm1,kmdmwithdm1,zywithzy1,jfjewithje1,pzlxwithpzlx1,rqwithrq1,pzhwi thpzh1
appeblan
replkmmcwithkm2,kmdmwithdm2,zywithzy2,dfjewithje2,pzlxwithpzlx1,rqwithrq1,pzhwi thpzh1
use
@26,10say"是否继续输入第二张凭证"getjx
read
ifjx="y"
doe:\20XX9920422欧阳一帆\凭证格式.prg
xg="y"
@9,80getpzh1
@9,21getpzlx1
@9,36getrq1
@9,60getfjzs
loop
else
exit
endi
endd
usee:\20XX9920422欧阳一帆\凭证库
list
use
settalkon
return
3、凭证查询设计
程序码：
settalkoff
clear
usee:\20XX9920422欧阳一帆\凭证库.dbf
rq1=spac(8)
pzh1=spac(3)
pzlx1=spac(2)
zynr1=space(20)
@1,4say"请输入凭证日期:"getrq1
@3,4say"请输入凭证号:"getpzh1
@5,4say"请输入凭证类型:"getpzlx1
read
ifallt(DTOC(rq))=allt(dtoc(rq1)).and.allt(pzh)=allt(pzh1).and.allt(pzlx)=allt(p zlx1)
@9,19saypzlx1
@9,40sayrq1
@9,68saypzh1
@13,15sayzy
@13,45saykmmc
@13,76sayjfje
skip
@15,15sayzy
@15,45saykmmc
@15,98saydfje
else
messagebox("没有符合条件的凭证")
endif
settalkon
return
（二）科目代码设计
1、科目代码查询设计
程序码：
settalkoff
use"e:\20XX9920422欧阳一帆\科目代码库.dbf" dm=space(4)
dowhile.t.
clear
dowhile.t.
@10,10say"请输入科目代码"getdm
read
a=messageb("请确认输入的科目代码",4)
ifa=6
locateforkmdm=dm
exit
endif
endd
ifeof()
@15,15say"对不起,你输入的代码不存在" else
@20,20saykmmc
endi
a=messageb("是否继续查看",4)
ifa=7
exit
endi
endd
settalkon
retu
2、科目代码汇总设计
程序码：
settalkoff
clear
a=0
b=0
ye=0
kmdm=space(8)
select1
usee:20XX9920422欧阳一帆\凭证库.dbf select2
usee:\20XX9920422欧阳一帆\科目汇总表.dbf dowhile!eof()
kmdm1=kmdm
select1
sumjfjetoaforkmdm=kmdm1 sumdfjetobforkmdm=kmdm1
select2
replabqjfwitha,bqdfwithb
ye=qcjf+bqjf-qcdf-bqdf
ifye>=0
replaqmjfwithye
else
replaqmdfwithye*(-1)
endif
skip
enddo
list
j1=0
d1=0
sumbqjftoj1
sumbqdftod1
ifj1=d1
messagebox("试算平衡")
else
messagebox("试算不平衡,请检查!")
endif
use
select1
use
settalkon
（三）日记账设计
1、现金日记账
程序码：settalkoff
clea
rq1=spac(10)
zy1=spac(4)
pzh1=spac(3)
jfje1=0
dfje1=0
ye1=45401.25
kmdm=spac(4)
sele1
usee:\20XX9920422欧阳一帆\凭证库sele2
usee:\20XX9920422欧阳一帆\现金日记账sele1
dowhil!eof()
ifsubs(kmdm,1,4)="1001"
rq1=rq
zy1=zy
pzh1=pzh
jfje1=jfje
dfje1=dfje
sele2
ye1=ye
skip1
delerest
pack
appeblan
replrqwithrq1,zywithzy1,pzhwithpzh1,jfjewithjfje1,dfjewithdfje1,yewithye1+jfje1 -dfje1
endi
sele1
skip
endd
use
sele2
a=0
b=0
sumjfjetoa
sumdfjetob
appeblan
replrqwith{^20XX/12/13},zywithzy1,pzhwithpzh1,jfjewitha,dfjewithb,yewithye1+jfj e1-dfje1
list
use
settalkon
retu
2、银行日记账
程序码：
settalkoff
clea
rq1=spac(10)
zy1=spac(4)
pzh1=spac(3)
jfje1=0
dfje1=0
ye1=567023.83
kmdm=spac(4)
sele1
usee:\20XX9920422欧阳一帆\凭证库sele2
usee:\20XX9920422欧阳一帆\银行日记账sele1
dowhil!eof()
ifsubs(kmdm,1,4)="1002"
rq1=rq
zy1=zy
pzh1=pzh
jfje1=jfje
dfje1=dfje
sele2
ye1=ye
skip1
delerest
pack
appeblan
replrqwithrq1,zywithzy1,pzhwithpzh1,jfjewithjfje1,dfjewithdfje1,yewithye1+jfje1 -dfje1
endi
sele1
skip
endd
use
sele2
a=0
b=0
sumjfjetoa
sumdfjetob
appeblan
replrqwith{^20XX/12/15},zywithzy1,jfjewitha,dfjewithb,yewithye1+jfje1-dfje1
list
use
settalkon
retu
（四）报表设计
1、资产负债表格式设计
程序码：
settalkoff
clea
n=3