會計信息系統(tǒng)課程設(shè)計報告(參考版)
2025-01-21 20:55本頁面
【正文】 9,66 say 附件張數(shù):11,17 say 摘要11,31 say 會計科目11,49 say 借方金額11,68 say 貸方金額19,17 say 合計21,12 say 記賬:+space(12)+審核:+space(12)+出納:+space(12)+制單:憑證錄入設(shè)計程序碼：set talk offdo e:\20109920422歐陽一帆\zy1=spac(3)zy2=spac(3)km1=spac(20)km2=spac(20)dm1=spac(4)je1=0dm2=spac(4)je2=0pzlx1= rq1=spac(8)pzh1=spac(5)fjzs= xg=yjx=ydo whil jx=ydo whil xg=y9,21 get pzlx19,36 get rq19,60 get pzh19,80 get fjzsreaduse e:\20109920422歐陽一帆\摘要庫13,15 get zy1readloca for zy1=zynr13,15 say zy1zy2=zy1useuse e:\20109920422歐陽一帆\科目代碼庫13,35 get dm113,50 get je1readloca for dm1=kmdmif foun()13,35 say kmmckm1=kmmc13,50 say je1endi15,15 get zy215,35 get dm215,70 get je2readloca for dm2=kmdmif foun()15,35 say kmmckm2=kmmc15,70 say je2endiuse25,10 say是否修改 get xgreadif xg=yloopelseexitendiendduse e:\20109920422歐陽一帆\憑證庫appe blanrepl kmmc with km1,kmdm with dm1,zy with zy1,jfje with je1,pzlx with pzlx1,rq with rq1,pzh with pzh1appe blanrepl kmmc with km2,kmdm with dm2,zy with zy2,dfje with je2,pzlx with pzlx1,rq with rq1,pzh with pzh1use26,10 say 是否繼續(xù)輸入第二張憑證 get jxreadif jx=ydo e:\20109920422歐陽一帆\xg=y9,80 get pzh19,21 get pzlx19,36 get rq19,60 get fjzsloopelseexitendiendduse e:\20109920422歐陽一帆\憑證庫listuseset talk onreturn憑證查詢設(shè)計程序碼：set talk off clear use e:\20109920422歐陽一帆\rq1=spac(8)pzh1=spac(3)pzlx1=spac(2)zynr1=space(20)1,4 say 請輸入憑證日期:get rq13,4 say 請輸入憑證號:get pzh15,4 say 請輸入憑證類型:get pzlx1read if allt(DTOC(rq))=allt(dtoc(rq1)).(pzh)=allt(pzh1).(pzlx)=allt(pzlx1)9,19 say pzlx19,40 say rq19,68 say pzh113,15 say zy 13,45 say kmmc13,76 say jfje skip 15,15 say zy 15,45 say kmmc15,98 say dfje else messagebox (沒有符合條件的憑證)endifset talk on return（二）科目代碼設(shè)計科目代碼查詢設(shè)計程序碼：set talk offuse e:\20109920422歐陽一帆\dm=space(4)do while .t.clear do while .t.10,10 say請輸入科目代碼 get dmreada=messageb(請確認輸入的科目代碼,4)if a=6locate for kmdm=dmexitendifenddif eof()15,15 say 對不起 ,你輸入的代碼不存在else20,20 say kmmcendia=messageb(是否繼續(xù)查看,4)if a=7exitendienddset talk onretu科目代碼匯總設(shè)計程序碼：set talk offcleara=0b=0ye=0kmdm=space(8)select 1use e:20109920422歐陽一帆\ select 2use e:\20109920422歐陽一帆\do while !eof()kmdm1=kmdmselect 1sum jfje to a for kmdm=kmdm1sum dfje to b for kmdm =kmdm1select 2repla bqjf with a,bqdf with bye=qcjf+bqjfqcdfbqdfif ye=0repla qmjf with yeelserepla qmdf with ye*(1)endifskipenddolistj1=0d1=0sum bqjf to j1sum bqdf to d1if j1=d1messagebox(試算平衡)elsemessagebox(試算不平衡,請檢查!)endifuseselect 1useset talk on
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1