《会计信息系统实习程序设计.doc》由会员分享，可在线阅读，更多相关《会计信息系统实习程序设计.doc（24页珍藏版）》请在金锄头文库上搜索。
1、 会计信息系统课程设计 学院名称 经济管理学院 指导教师 王龙辉 班 级 会计103班 学 号 20104920358 学生姓名 李湘 2013 年6月7日第一部分： 登陆界面表单设计第二部分：各种数据库1，科目代码表 2，科目汇总表3，利润表4，凭证库设计5，现金日记账6，银行日记账7，摘要库设计8，资产负债表第三部分：各种程序设计过程1，凭证查询程序设计set talk offclearuse f:20104920358李湘凭证库设计rq1=space(10)pzh1=space(3)pzzh1=space(2)1,4 say请输入凭证日期:get rq13,4 say请输入凭证号码:ge
2、t pzh15,4 say请输入凭证类型:get pzzh1readlocate for allt(rq)=allt(rq1) and allt(pzh)=allt(pzh1) and allt(pzzh)=allt(pzzh1)if allt(rq)=allt(rq1) and allt(pzh)=allt(pzh1) and allt(pzzh)=allt(pzzh1)dispskipdispelsemessagebox(没有符合条件的凭证)endifset talk onreturn2，凭证登陆设计set talk offdo f:20104920358李湘凭证格式设计.prgzy1=s
3、pace(3)zy2=space(3)kmmc1=space(16)kmmc2=space(16)kmdm1=space(4)je1=0kmdm2=space(4)je2=0pzlx1=space(2)rq1=date()pzh1=space(3)fjzs=space(2)xg=yjx=ydo while jx=ydo while xg=y9,21 get pzlx1readif pzlx1=付or pzlx1=收 or pzlx1=转9,36 get rq19,60 get pzh19,80 get fjzsreadelsemessageb(凭证类别不合规范！请检查。)endifuse f:
4、20104920358李湘摘要库设计.dbf13,15 get zy1readlocate for zy1=zybm13,15 say zynrzy2=zynruseuse f:20104920358李湘科目代码设计库.dbf13,35 get kmdm113,52 get je1readlocate for kmdm=kmdm1if found()13,35 say kmmckmmc1=kmmc13,52 say je1endif15,15 get zy215,35 get kmdm215,70 get je2readlocate for kmdm=kmdm2if found()15,35
5、say kmmckmmc2=kmmc15,70 say je2endifuseif je1=je225,10 say是否修改？get xgreadelsemessagebox(借贷金额不相等，请重新输入！)endifif xg=yloopelseexitendifenddouse f:20104920358李湘凭证库设计append blankreplace rq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy1,kmdm with kmdm1,kmmc with kmmc1,jfje with je1append blankreplace
6、rq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy1,kmdm with kmdm2,kmmc with kmmc2,dfje with je2use26,10 say 是否继续输入第二张凭证？get jxreadif jx=ydo f:20104920358李湘凭证xg=y9,21 get pzlx19,36 get rq19,60 get pzh19,80 get fjzsloopelseexitendifenddouse f:20104920358李湘凭证库设计.dbflistuseset talk onreturn3，凭证格式设计：
7、set talk offclearn=11a1= _a2=| | | | |a3=|_|_|_|_|a4=|_|_|_|_|10,10 say a1do while n=18n,10 say a2n+1,10 say a3n=n+2enddo19,10 say a220,10 say a45,38 say 记账凭证font 宋体,209,12 say 凭证类别：9,27 say 日期：9,45 say 凭证号：9,60 say 附件张数：11,17 say 摘要11,36 say 会计科目11,55 say 借方金额11,70 say 贷方金额19,17 say 合计21,10 say 记账：
8、+space(15)+审核：+space(15)+出纳：+space(15)+制单：4，凭证修改设计set talk offclearuse f:20104920358李湘凭证库设计rq1=space(10)pzh1=space(3)pzzh1=space(2)1,4 say请输入凭证日期:get rq13,4 say请输入凭证号码:get pzh15,4 say请输入凭证类型:get pzzh1readlocate for allt(rq)=allt(rq1) and allt(pzh)=allt(pzh1) and allt(pzzh)=allt(pzzh1)if allt(rq)=all
9、t(rq1) and allt(pzh)=allt(pzh1) and allt(pzzh)=allt(pzzh1)dispeditelsemessagebox(没有符合条件的凭证)endifset talk onreturn 5，科目代码查询设计：set talk offuse f:20104920358李湘科目代码设计库.dbfdm=space(4)do while.t.cleardo while.t.10,10 say请输入科目代码get dmreada=messageb(请确认你输入的科目代码,4)if a=6locate for kmdm=dmexitendienddif eof()
10、15,15 say对不起,你输入的科目代码不存在else20,20 say kmmcendia=messageb(是否继续查看,4)if a=7exitendienddset talk onRetu完成效果图如下：6，科目汇总程序设计set talk offcleara=0b=0c=0d=0e=0kmdm=space(4)select 1use f:20104920358李湘凭证库设计select 2use f:20104920358李湘科目汇总.dbfdo while!eof()kmdm1=kmdmselect 1sum jfje to a for kmdm=kmdm1sum dfje to
11、 b for kmdm=kmdm1select 2repla bqjf with a,bqdf with bc=qcjf+bqjfd=qcdm+bqdfe=qcjf+bqjf-qcdm-bqdfrepla qmjf with c,qmdf with d,ye with eif ye0repla ye with ye*(-1)endifskipenddolistj1=0d1=0sum bqjf to j1sum bqdf to d1if j1=d1messagebox(恭喜你!试算平衡!)elsemessagebox(试算不平衡,请检查!)endifuseselect 1useset talk onReturn完成效果图如下： 7，利润表格式程序设计set talk offclearn=4a1=_a2=| | | |a3=|_|_|_|a4=|_|_|_|3,8 say a1do while n=31n,8 say a2n+1,8 say a3n=n+2enddo32,8 say a233,
