会计信息系统实习程序的设计.docVIP

会计信息系统课程设计 学院名称 经济管理学院 指导教师 王龙辉 班 级 会计103班 学 号 20104920358 学生姓名 李湘 2013 年6月7日 第一部分： 登陆界面表单设计 第二部分：各种数据库 1，科目代码表 2，科目汇总表 3，利润表 4，凭证库设计 5，现金日记账 6，银行日记账 7，摘要库设计 8，资产负债表 第三部分：各种程序设计过程 1，凭证查询程序设计 set talk off clear use f:\20104920358李湘\凭证库设计 rq1=space(10) pzh1=space(3) pzzh1=space(2) @1,4 say请输入凭证日期:get rq1 @3,4 say请输入凭证号码:get pzh1 @5,4 say请输入凭证类型:get pzzh1 read locate 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) disp skip disp else messagebox(没有符合条件的凭证) endif set talk on return 2，凭证登陆设计 set talk off do f:\20104920358李湘\凭证格式设计.prg zy1=space(3) zy2=space(3) kmmc1=space(16) kmmc2=space(16) kmdm1=space(4) je1=0 kmdm2=space(4) je2=0 pzlx1=space(2) rq1=date() pzh1=space(3) fjzs=space(2) xg=y jx=y do while jx=y do while xg=y @9,21 get pzlx1 read if pzlx1=付or pzlx1=收 or pzlx1=转 @9,36 get rq1 @9,60 get pzh1 @9,80 get fjzs read else messageb(凭证类别不合规范！请检查。) endif use f:\20104920358李湘\摘要库设计.dbf @13,15 get zy1 read locate for zy1=zybm @13,15 say zynr zy2=zynr use use f:\20104920358李湘\科目代码设计库.dbf @13,35 get kmdm1 @13,52 get je1 read locate for kmdm=kmdm1 if found() @13,35 say kmmc kmmc1=kmmc @13,52 say je1 endif @15,15 get zy2 @15,35 get kmdm2 @15,70 get je2 read locate for kmdm=kmdm2 if found() @15,35 say kmmc kmmc2=kmmc @15,70 say je2 endif use if je1=je2 @25,10 say是否修改？get xg read else messagebox(借贷金额不相等，请重新输入！) endif if xg=y loop else exit endif enddo use f:\20104920358李湘\凭证库设计 append blank replace rq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy1,kmdm with kmdm1,kmmc with kmmc1,jfje with je1 append blank replace rq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy1,kmdm with kmdm2,kmmc with kmmc2,dfje with je2 use @26,10 say 是否继续输入第二张凭证？get jx read if jx=y do f:\2010492035