《会计信息系统实习程序设计》由会员分享，可在线阅读，更多相关《会计信息系统实习程序设计（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请输入凭
2、证号码 :get 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 李湘凭证格式设计
3、.prgzy1=space(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(凭证类别不合规范！请检查。)en
4、difuse f: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 fo
5、und()15,35 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
6、blankreplace 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 on
7、return3，凭证格式设计：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 贷方金额 1
8、9,17 say 合计 21,10 say 记账： +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(p
9、zzh)=allt(pzzh1)if allt(rq)=allt(rq1) and allt(pzh)=allt(pzh1) and allt(pzzh)=allt(pzzh1)dispeditelsemessagebox(没有符合条件的凭证)endifset talk onreturn5，科目代码查询设计：set talk offuse f:20104920358 李湘科目代码设计库.dbfdm=space(4)do while.t.cleardo while.t.10,10 say请输入科目代码 get dmreada=messageb(请确认你输入的科目代码,4)if a=6locate
10、 for kmdm=dmexitendienddif eof()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
11、 jfje to a for kmdm=kmdm1sum dfje to 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(试算
12、不平衡 ,请检查!)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,8 say a40,40 say利润表 font宋体,182,12 say编制单位 :2,40 say年 月 日2,75 say单位 : 元4,20 say项目 4,50 say本月数 4,70 say本年累计数 6,10
13、 say一、主营业务收入8,10 say减:主营业务成本10,10 say二、主营业务利润12,10 say加 :其他业务利润14,10 say减 :资产减值损失16,14 say管理费用 18,14 say财务费用 20,14 say销售费用 22,10 say三、营业利润 24,10 say加：营业外收入 26,10 say减：营业外支出 28,10 say四、利润总额 30,10 say减 :所得税费用32,10 say五、净利润 set talk onreturn完成效果图如下8，利润表程序设计set talk offclearstore 0 to a,b,c,d,e,f,g,h,i,j,a1,a2,a3kmdm1=space(4)select 1use f:20104920358 李湘科目汇总select 2use f:20104920358 李湘利润表s
