会计信息系统实习程序设计Word格式.docx
- 文档编号:4685948
- 上传时间:2023-05-03
- 格式:DOCX
- 页数:31
- 大小:1.53MB
会计信息系统实习程序设计Word格式.docx
《会计信息系统实习程序设计Word格式.docx》由会员分享,可在线阅读,更多相关《会计信息系统实习程序设计Word格式.docx(31页珍藏版)》请在冰点文库上搜索。
skip
else
messagebox("
没有符合条件的凭证"
)
endif
settalkon
return
2,凭证登陆设计
dof:
\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()
fjzs=space
(2)
xg="
y"
jx="
dowhilejx="
dowhilexg="
@9,21getpzlx1
ifpzlx1="
付"
orpzlx1="
收"
orpzlx1="
转"
@9,36getrq1
@9,60getpzh1
@9,80getfjzs
messageb("
凭证类别不合规范!
请检查。
\20104920358李湘\摘要库设计.dbf
@13,15getzy1
locateforzy1=zybm
@13,15sayzynr
zy2=zynr
use
\20104920358李湘\科目代码设计库.dbf
@13,35getkmdm1
@13,52getje1
locateforkmdm=kmdm1
iffound()
@13,35saykmmc
kmmc1=kmmc
@13,52sayje1
@15,15getzy2
@15,35getkmdm2
@15,70getje2
locateforkmdm=kmdm2
@15,35saykmmc
kmmc2=kmmc
@15,70sayje2
ifje1=je2
@25,10say"
是否修改?
getxg
借贷金额不相等,请重新输入!
ifxg="
loop
exit
enddo
appendblank
replacerqwithrq1,pzhwithpzh1,pzlxwithpzlx1,zywithzy1,kmdmwithkmdm1,kmmcwithkmmc1,jfjewithje1
replacerqwithrq1,pzhwithpzh1,pzlxwithpzlx1,zywithzy1,kmdmwithkmdm2,kmmcwithkmmc2,dfjewithje2
@26,10say"
是否继续输入第二张凭证?
getjx
ifjx="
\20104920358李湘\凭证
\20104920358李湘\凭证库设计.dbf
list
3,凭证格式设计:
n=11
a1="
____________________________________________________________________________"
a2="
|||||"
a3="
|______________|___________________|_____________________|__________________|"
a4="
@10,10saya1
dowhilen<
=18
@n,10saya2
@n+1,10saya3
n=n+2
@19,10saya2
@20,10saya4
@5,38say"
记账凭证"
font"
宋体"
20
@9,12say"
凭证类别:
@9,27say"
日期:
@9,45say"
凭证号:
@9,60say"
附件张数:
@11,17say"
摘要"
@11,36say"
会计科目"
@11,55say"
借方金额"
@11,70say"
贷方金额"
@19,17say"
合计"
@21,10say"
记账:
+space(15)+"
审核:
出纳:
制单:
4,凭证修改设计
edit
5,科目代码查询设计:
dm=space(4)
dowhile.t.
@10,10say"
请输入科目代码"
getdm
a=messageb("
请确认你输入的科目代码"
4)
ifa=6
locateforkmdm=dm
endi
endd
ifeof()
@15,15say"
对不起,你输入的科目代码不存在"
@20,20saykmmc
是否继续查看"
ifa=7
Retu
完成效果图如下:
6,科目汇总程序设计
a=0
b=0
c=0
d=0
e=0
kmdm=space(4)
select1
select2
\20104920358李湘\科目汇总.dbf
dowhile!
eof()
kmdm1=kmdm
sumjfjetoaforkmdm=kmdm1
sumdfjetobforkmdm=kmdm1
replabqjfwitha,bqdfwithb
c=qcjf+bqjf
d=qcdm+bqdf
e=qcjf+bqjf-qcdm-bqdf
replaqmjfwithc,qmdfwithd,yewithe
ifye<
replayewithye*(-1)
j1=0
d1=0
sumbqjftoj1
sumbqdftod1
ifj1=d1
恭喜你!
试算平衡!
试算不平衡,请检查!
Return
7,利润表格式程序设计
n=4
____________________________________________________________________________________"
||||"
|__________________________|__________________________|__________________________|"
@3,8saya1
=31
@n,8saya2
@n+1,8saya3
@32,8saya2
@33,8saya4
@0,40say"
利润表"
font"
18
@2,12say"
编制单位:
@2,40say"
年月日"
@2,75say"
单位:
元"
@4,20say"
项目"
@4,50say"
本月数"
@4,70say"
本年累计数"
@6,10say"
一、主营业务收入"
@8,10say"
减:
主营业务成本"
二、主营业务利润"
@12,10say"
加:
其他业务利润"
@14,10say"
资产减值损失"
@16,14say"
管理费用"
@18,14say"
财务费用"
@20,14say"
销售费用"
@22,10say"
三、营业利润"
@24,10say"
加:
营业外收入"
@26,10say"
减:
营业外支出"
@28,10say"
四、利润总额"
@30,10say"
所得税费用"
@32,10say"
五、净利润"
完成效果图如下
8,利润表程序设计
store0toa,b,c,d,e,f,g,h,i,j,a1,a2,a3
\20104920358李湘\科目汇总
\20104920358李湘\利润表
sumqmdftoaforkmdm="
5101"
sumqmjftobforkmdm="
5401"
sumqmjftocforkmdm="
5502"
sumqmjftodforkmdm="
5501"
sumqmjftoeforkmdm="
5503"
sumqmjftofforkmdm="
4106"
sumqmjftogforkmdm="
5102"
sumqmjftohforkmdm="
5405"
sumqmjftoiforkmdm="
5301"
sumqmdftojforkmdm="
5302"
sumqmdftokforkmdm="
5701"
a1=a-b-c-d-e-f+g-h
a2=a1+i-j
a3=a2-k
replajewithaforkmdm="
replajewithbforkmdm="
replajewithcforkmdm="
replajewithdforkmdm="
replajewitheforkmdm="
replajewithfforkmdm="
replajewithgforkmdm="
replajewithhforkmdm="
replajewithiforkmdm="
replajewithjforkmdm="
replajewithkforkmdm="
replajewitha1forhc="
9"
replajewitha2forhc="
12"
replajewitha3forhc="
14"
9,现金日记账设计
zy1=space(20)
jfje1=0
dfje1=0
ye1=0
sele2
\20104920358李湘\现金日记账
sele1
ifsubs(kmdm,1,4)="
1001"
rq1=rq
zy1=zy
pzh1=pzh
jfje1=jfje
dfje1=dfje
ye1=ye
skip1
deletrest
pack
replrqwithrq1,zywithzy1,pzhwithpzh1,srwithjfje1,zcwithdfje1,yewithye1+jfje1-dfje1
sumsrtoa
sumzctob
replarqwith{^2012/09/01},zywith"
期末余额"
srwitha,zcwithb,yewithye1+jfje1-dfje1
10,银行日记账程序设计
\20104920358李湘\银行日记账
1002"
ye1=yhye
replrqwithrq1,zywithzy1,pzhwithpzh1,yhsrwithjfje1,yhzcwithdfje1,yhyewithye1+jfje1-dfje1
use
sumyhsrtoa
sumyhzctob
replarqwith{^2012/09/01},zywith"
yhsrwitha,yhzcwithb,yhyewithye1+jfje1-dfje1
11,资产负债表设计
hs1=space
(2)
store0toa,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,a1,a2
\20104920358李湘\资产负债表.dbf
sumyetoaforkmdm="
sumyetobforkmdm="
sumyetocforkmdm="
1211"
sumyetodforkmdm="
1191"
sumyetoeforkmdm="
1131"
sumyetofforkmdm="
1241"
sumyetogforkmdm="
1501"
a1=a+b+c+d+e+f+g
sumyetohforkmdm="
2101"
sumyetoiforkmdm="
2171"
sumyetojforkmdm="
2121"
sumyetokforkmdm="
2131"
sumyetolforkmdm="
4101"
sumyetomforkmdm="
4105"
sumyetonforkmdm="
sumyetooforkmdm="
sumyetopforkmdm="
sumyetoqforkmdm="
3131"
sumyetorforkmdm="
3141"
a2=h+i+j+k+l+m+n+o++p+q+r
replaqmye1withaforhs1="
01"
replaqmye1withbforhs1="
02"
replaqmye1withcforhs1="
03"
replaqmye1withdforhs1="
04"
replaqmye1witheforhs1="
05"
replaqmye1withfforhs1="
06"
replaqmye1withgforhs1="
07"
replaqmye1witha1forhs1="
replaqmye2withaforhs2="
replaqmye2withhforhs2="
replaqmye2withiforhs2="
replaqmye2withjforhs2="
replaqmye2withkforhs2="
replaqmye2withlforhs2="
replaqmye2withmforhs2="
replaqmye2withnforhs2="
replaqmye2withoforhs2="
08"
replaqmye2withpforhs2="
09"
replaqmye2withqforhs2="
10"
replaqmye2withrforhs2="
11"
replaqmye2witha2forhs2="
ifa1=a2
资产负债表平衡!
请退出!
资产负债表不平衡!
请检查!
12,登陆程序设计
setsysmenuto
setsysmenuautomatic
definepad_lic0t2tzbof-msysmenuprompt"
凭证处理"
colorscheme3
帐簿管理"
会计报表"
推出系统"
onpad-lix0t2tzbof-msysmenuactivatepopup凭证处理
onpad-lix0t2tzbof-msysmenuactivatepopup帐簿管理
onpad-lix0t2tzbof-msysmenuactivatepopup会计报表
onpad-lix0t2tzbof-msysmenuactivatepopup退出系统
definepopup凭证处理marginrelativeshadowcolorscheme4
definebar1of凭证处理prompt"
填制凭证"
definebar2of凭证处理prompt"
凭证修改"
definebar3of凭证处理prompt"
凭证查询"
onselectionbar1of凭证处理dof:
\20104920358李湘\记帐.prg
onselectionbar2of凭证处理dof:
\20104920358李湘\凭证修改设计.prg
onselectionbar3of凭证处理dof:
\20104920358李湘\凭证查询设计.prg
definepopup帐簿
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 会计信息 系统 实习 程序设计