【文章內(nèi)容簡(jiǎn)介】 __|________________|______________|“ @12,10 say a1 12會(huì)計(jì)信息系統(tǒng)do while n會(huì)計(jì)信息系統(tǒng)：set talk off a=6 clea use c: do while a=6 clea kmdm1=space(6)@9,20 say ”請(qǐng)輸入科目代碼：“get kmdm1 read locate for kmdm=kmdm1 if!found()messagebox(”代碼不正確,請(qǐng)重新輸入“)else @10,37 say kmmc endi a=messagebox(”是否繼續(xù)查詢下一個(gè)?“,4)enddo use set talk on return ：會(huì)計(jì)信息系統(tǒng)功能說(shuō)明：1）具有可輸入多借多貸分錄的功能，并可繼續(xù)輸入下一張憑證。2）含多種邏輯糾錯(cuò)功能，可限制憑證類型，保證輸入的摘要、科目代碼和金額的有效性，可檢查借貸方金額是否平衡并可做相應(yīng)的修改。：set talk off close all clear do c: pzlx1=space(2)fjzs1=”“ pzh1=space(3)store 0 to je1,je2,jfje1,dfje1 rq1=space(10)zy1=space(3)zy2=space(20)kmdm1=space(6)kmdm2=space(6)kmmc1=space(20)kmmc2=space(20)@11,22 get pzlx1 read do while pzlx1”收“.”付“.”轉(zhuǎn)“ messagebox(”憑證類型錯(cuò)誤,請(qǐng)重新輸入!“)@11,22 get pzlx1 read enddo @11,44 get rq1 @11,65 get pzh1 @11,92 get fjzs1 read m=6 a=15 do while m=6 use c: @a,12 get zy1 read locate for zydm=zy1 do while zydmzy1會(huì)計(jì)信息系統(tǒng)messagebox(”找不到符合條件的摘要，請(qǐng)重新輸入“)@a,12 get zy1 read locate for zydm=zy1 endd zy2=zynr @a,12 say zy2 use use c: @a,48 get kmdm1 read locate for kmdm=kmdm1 do while kmdmkmdm1 messagebox(”輸入的科目代碼有誤，請(qǐng)重新輸入“)@a,48 get kmdm1 read locate for kmdm=kmdm1 endd kmmc1=kmmc @a,48 say kmmc1 @a,68 get je1 @a,86 get je2 read do while je1==0 messagebox(”金額不能為零“)@a,68 get je1 @a,86 get je2 read endd use c: append blank repl pzrq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy2,kmdm with kmdm1,kmmc with kmmc1,jfje with je1,dfje with je2 use m=messagebox(”是否輸入下一行分錄“,4)a=a+2 enddo use c: sum jfje to jfje1 for pzh=pzh1 sum dfje to dfje1 for pzh=pzh1 @27,68 say jfje1 @27,86 say dfje1 do while jfje1dfje1 16會(huì)計(jì)信息系統(tǒng)messagebox(”借貸不平衡，輸入金額有誤“)do c:會(huì)計(jì)信息系統(tǒng)鄭靜金憑證修改 endd use xz=”“ @32,25 say ”是否輸入下一張(y/n)“ get xz read if xz=”y“ or xz=”Y“ loop else exit endi endd use c: display use set talk on return：1）當(dāng)輸入完一行分錄時(shí)的示意圖：會(huì)計(jì)信息系統(tǒng)2）當(dāng)輸入完一筆業(yè)務(wù)時(shí)可繼續(xù)輸入下一張的示意圖：3）當(dāng)輸入多借多貸的分錄時(shí)的完成示意圖：會(huì)計(jì)信息系統(tǒng)4）運(yùn)行時(shí)借貸方金額不相等情況下的示意圖會(huì)計(jì)信息系統(tǒng)5）待25筆憑證按上述步驟錄入完成之后，打開(kāi)數(shù)據(jù)庫(kù)中的憑證庫(kù)，顯示如下：會(huì)計(jì)信息系統(tǒng)：set talk off clear use c: pzrq1=space(10)pzh1=space(4)pzlx1=space(2)@4,4 say ”請(qǐng)輸入憑證日期：“ get pzrq1 @6,4 say ”請(qǐng)輸入憑證號(hào)碼：“ get pzh1 @8,4 say ”請(qǐng)輸入憑證類型：“ get pzlx1 Read locate for pzrq=pzrq1 and pzh=pzh1 and pzlx=pzlx1 if found()=. skip會(huì)計(jì)信息系統(tǒng)disp else messagebox(”查詢不到符合條件的憑證“)endi set talk on return1）當(dāng)查詢到相應(yīng)憑證時(shí)的運(yùn)行效果示意圖2）當(dāng)輸入的憑證查詢不到時(shí)的運(yùn)行效果示意圖：會(huì)計(jì)信息系統(tǒng)：set talk off clear use c: pzrq1=space(10)pzh1=space(3)@2,4 say ”請(qǐng)輸入憑證日期：“ get pzrq1 @4,4 say ”請(qǐng)輸入憑證號(hào)： “ get pzh1 Read locate for allt(pzrq)=allt(pzrq1)and allt(pzh)=allt(pzh1)if found()disp edit else messagebox(”沒(méi)有找到符合條件的憑證“)endif set talk on return ：會(huì)計(jì)信息系統(tǒng)1）當(dāng)輸入要查詢的憑證時(shí)的界面示意圖：2）對(duì)查詢到的憑證進(jìn)行修改時(shí)的界面示意圖：會(huì)計(jì)信息系統(tǒng)五．各類匯總表與賬簿設(shè)計(jì)：set talk off clear store 0 to jfje1,dfje1,ye select 1 use c: select 2 use c: @1,60 say ”科目匯總表“ font ”宋體“,14 go top do while!eof()kmdm1=kmdm select 1 sum jfje to jfje1 for kmdm=kmdm1 sum dfje to dfje1 for kmdm=kmdm1 select 2 replace bqjf with jfje1,bqdf with dfje1 skip enddo display a1=0 b1=0 sum bqjf to a1 sum bqdf to b1 locate for kmmc=”合計(jì)“ replace bqjf with a1,bqdf with b1 list if bqjf=bqdf messagebox(”太棒了，恭喜您，試算平衡！“)else messagebox(”試算不平衡，請(qǐng)您仔細(xì)檢查！“)endi use select 1 use select 2 set talk on會(huì)計(jì)信息系統(tǒng)return：：會(huì)計(jì)信息系統(tǒng)set talk off clear kmdm1=space(4)kmmc1=space(10)bqjf1=0 bqdf1=0 select 1 use c: select 2 use c: go top do while!eof()kmdm1=kmdm select 1 locate for kmdm=kmdm1 if found()=.=kmmc bqjf1=bqjf bqdf1=bqdf endi select 2 @1,60 say ”總分類賬“ font ”宋體“,14 ye1=qcjf+bqjf1qcdfbqdf1 do case ye1 case ye10 replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with ”借“, ye with ye1 case ye1會(huì)計(jì)信息系統(tǒng)use select 2 set talk on return：set talk off clea stor 0 to jfje1,dfje1,ye1 rq1=space(10)pzh1=space(3)28會(huì)計(jì)信息系統(tǒng)zy1=space(20)sele 1 Use c : sele 2 use c: sele 1 do while!eof()if substr(kmdm,1,4)=”1001“ rq1=pzrq pzh1=pzh jfje1=jfje dfje1=dfje zy1=zy sele 2 ye1=ye skip delete rest pack append blank repl rq with rq1,pzh with pzh1,zy with zy1,sr with jfje1,zc with dfje1,ye with ye1+jfje1dfje1 endi sele 1 skip endd use sele 2 zsr=0 zzc=0 store 0 to zsr,zzc sum sr to zsr sum zc to zzc appe blan repl rq with ”2014/04/30“,zy with ”本月小計(jì)“,sr with zsr,zc with zzc,ye with ye1+jfje1dfje1 @1,48 say ”現(xiàn)金日記賬“ font ”宋體“,14 list use set talk on return會(huì)計(jì)信息系統(tǒng)：set talk off clea stor 0 to jfje1,dfje,ye1 rq1=space(10)pzh1=space(3)use sele 1 use c: sele 2 use c: sele 1 do while!eof()if subs(kmdm,1,4)=”1002“ rq1=pzrq pzh1=pzh jfje1=jfje dfje1=dfje zy1=zy sele 2 ye1=ye skip dele rest 30會(huì)計(jì)信息系統(tǒng)pack appe blan repl rq with rq1,pzh with pzh1,zy with zy1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1dfje1 endi sele 1 skip endd use sele 2 a=0 b=0 sum jfje to a sum dfje to b appe blan repl rq with ”2014/04/30“,zy with ”本月小計(jì)“,jfje with a,dfje with b,ye with ye1+jfje1dfje1 @1,48 say ”銀行日記賬“ font ”宋體“,14 list u