word版可編輯-會(huì)計(jì)信息系統(tǒng)設(shè)計(jì)報(bào)告精心整理doc(參考版)
2025-07-18 11:42本頁面
【正文】 9,66 say 附件張數(shù):11,17 say 摘要11,31 say 會(huì)計(jì)科目11,49 say 借方金額11,68 say 貸方金額19,17 say 合計(jì)21,12 say 記賬:+space(12)+審核:+space(12)+出納:+space(12)+制單:憑證錄入設(shè)計(jì)程序碼：set talk offdo e:\88\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:\88\摘要庫13,15 get zy1readloca for zy1=zynr13,15 say zy1zy2=zy1useuse e:\88\科目代碼庫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:\88\憑證庫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:\88\xg=y9,80 get pzh19,21 get pzlx19,36 get rq19,60 get fjzsloopelseexitendiendduse e:\88\憑證庫listuseset talk onreturn憑證查詢?cè)O(shè)計(jì)程序碼：set talk off clear use e:\88\rq1=spac(8)pzh1=spac(3)pzlx1=spac(2)zynr1=space(20)1,4 say 請(qǐng)輸入憑證日期:get rq13,4 say 請(qǐng)輸入憑證號(hào):get pzh15,4 say 請(qǐng)輸入憑證類型: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è)計(jì)科目代碼查詢?cè)O(shè)計(jì)程序碼：set talk offuse e:\88\dm=space(4)do while .t.clear do while .t.10,10 say請(qǐng)輸入科目代碼 get dmreada=messageb(請(qǐng)確認(rèn)輸入的科目代碼,4)if a=6locate for kmdm=dmexitendifenddif eof()15,15 say 對(duì)不起 ,你輸入的代碼不存在else20,20 say kmmcendia=messageb(是否繼續(xù)查看,4)if a=7exitendienddset talk onretu科目代碼匯總設(shè)計(jì)程序碼：set talk offcleara=0b=0ye=0kmdm=space(8)select 1use e:88\ select 2use e:\88\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(試算不平衡,請(qǐng)檢查!)endifuseselect 1useset talk on（三）日記賬設(shè)計(jì)現(xiàn)金日記賬程序碼：set talk offclearq1=spac(10)zy1=spac(4)pz
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1