會計信息系統(tǒng)報告-資料下載頁
2025-05-13 22:54本頁面
【正文】 系統(tǒng)鄭靜金\利潤表select 1do while !eof()if kmdm=6001bqdf1=bqdfskipbqdf2=bqdfskipbqdf3=bqdfskipbqdf4=bqdfskipbqdf5=bqdfskipbqdf6=bqdfskipbqdf7=bqdfa1=bqdf1bqdf3a2=a1+bqdf2bqdf4bqdf5bqdf6bqdf7a3=a2a4=a3select 2replace bqje with bqdf1 for hc=1replace bqje with bqdf3 for hc=2replace bqje with a1 for hc=4replace bqje with bqdf2 for hc=5replace bqje with bqdf4 for hc=7replace bqje with bqdf6 for hc=8replace bqje with bqdf7 for hc=9replace bqje with bqdf5 for hc=10replace bqje with a2 for hc=11replace bqje with 0 for hc=12replace bqje with 0 for hc=13replace bqje with a3 for hc=14replace bqje with 0 for hc=15replace bqje with a4 for hc=16@1,60 say 利潤表 font 宋體,14listexitelseskipendiendduseselect 1set talk onreturn：set talk offclearstore 0 to a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17store 0 to b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10select 1use c:\會計信息系統(tǒng)鄭靜金\總分類賬select 2use c:\會計信息系統(tǒng)鄭靜金\資產(chǎn)負(fù)債表select 3select 1do while !eof()if kmdm=1001a1=yeskipa2=yeskipa3=yeskipa4=yeskipa5=yeskipa6=yeskipa7=yeskipa8=yeskipa9=yeskipa10=yeskipa11=yeskipa12=yeskipa13=yeskipa14=yeskipa15=yeskipa16=yeskipa17=yeelseskipendienddb0=a1+a2b1=a5+a6+a7+a17b2=b0+b1+a3+a4+0b3=a8a9b4=b2+b3b5=a10+a11+a12+a13b6=a14+a16b7=b5+b6select 2sum qcye2 to b8 for hc2=2b9=b8+b5b10=b9+b6repla qmye1 with b0 for hc1=2repla qmye1 with a3 for hc1=3repla qmye1 with a4 for hc1=4repla qmye1 with b1 for hc1=5repla qmye1 with 0 for hc1=6repla qmye1 with b2 for hc1=7repla qmye1 with a8 for hc1=9repla qmye1 with a9 for hc1=10repla qmye1 with b3 for hc1=11repla qmye1 with b3 for hc1=12repla qmye1 with b4 for hc1=17repla qmye2 with b8 for hc2=2repla qmye2 with a10 for hc2=3repla qmye2 with a11 for hc2=4repla qmye2 with a12 for hc2=5repla qmye2 with a13 for hc2=6repla qmye2 with b9 for hc2=7repla qmye2 with 0 for hc2=9repla qmye2 with 0 for hc2=10repla qmye2 with b9 for hc2=11repla qmye2 with a14 for hc2=13repla qmye2 with 0 for hc2=14repla qmye2 with a16 for hc2=15repla qmye2 with b6 for hc2=16repla qmye2 with b10 for hc2=17listif b4=b10messagebox(資產(chǎn)負(fù)債表平衡！請退出！)elsemessagebox(資產(chǎn)負(fù)債表不平衡！請檢查)endifuseselect 1useselect 2@1,60 say 資產(chǎn)負(fù)債表 font 宋體,14useset talk onreturn ：
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1