會(huì)計(jì)信息系統(tǒng)設(shè)計(jì)報(bào)告

1、南華大學(xué)會(huì)計(jì)信息系統(tǒng)課程設(shè)計(jì)報(bào)告一、概述根據(jù)會(huì)計(jì)信息系統(tǒng)課程開(kāi)發(fā)設(shè)計(jì)的要求，我們參加了學(xué)院組織的為期一周的會(huì)計(jì)信息系統(tǒng)課程設(shè)計(jì)實(shí)踐。在這個(gè)過(guò)程中我更加深入的了解到了會(huì)計(jì)信息系統(tǒng)這門課程。根據(jù)系統(tǒng)生命周期法，完成了系統(tǒng)的系統(tǒng)分析任務(wù)和設(shè)計(jì)任務(wù)。以下就是我的課程設(shè)計(jì)報(bào)告。二、會(huì)計(jì)信息系統(tǒng)的開(kāi)發(fā)21世紀(jì)是信息化的時(shí)代，經(jīng)濟(jì)的信息化關(guān)鍵是經(jīng)濟(jì)的信息化，而信息化建設(shè)中的90%的信息來(lái)源于會(huì)計(jì)信息，會(huì)計(jì)信息絕大多數(shù)是由會(huì)計(jì)信息系統(tǒng)提供的。隨著計(jì)算機(jī)和信息技術(shù)的廣泛應(yīng)用，會(huì)計(jì)工作經(jīng)歷了從手工到會(huì)計(jì)信息化這一發(fā)展過(guò)程。會(huì)計(jì)信息系統(tǒng)的建設(shè)將為經(jīng)營(yíng)管理、控制決策和經(jīng)營(yíng)運(yùn)行提供充足、實(shí)時(shí)、全方位的信息。會(huì)計(jì)信息系統(tǒng)

2、是一個(gè)面向企業(yè)價(jià)值的信息系統(tǒng)，是從對(duì)企業(yè)價(jià)值運(yùn)動(dòng)進(jìn)行反應(yīng)和監(jiān)督的角度提出信息處理和管理需求的信息系統(tǒng)。它是利用信息技術(shù)隊(duì)會(huì)計(jì)數(shù)據(jù)進(jìn)行采集、儲(chǔ)存和處理，完成會(huì)計(jì)核算任務(wù)，并提供會(huì)計(jì)管理、分析、決策所需的輔助信息的系統(tǒng)。在erp環(huán)境下，會(huì)計(jì)信息系統(tǒng)不是一個(gè)獨(dú)立的子系統(tǒng)，其大部分功能已經(jīng)融入erp系統(tǒng)，會(huì)計(jì)工作中常規(guī)的、可程序化的任務(wù)都將由各個(gè)功能模塊和會(huì)計(jì)功能模塊自動(dòng)處理，同時(shí)軟件系統(tǒng)還會(huì)幫助會(huì)計(jì)人員完成許多內(nèi)部控制等管理任務(wù)。信息系統(tǒng)開(kāi)發(fā)的目標(biāo)是以較少的投資在較短時(shí)向獲得一個(gè)使用、高效、可靠、易維護(hù)的系統(tǒng)。軟件工程就是研究如何運(yùn)用科學(xué)的方法和手段去達(dá)到這個(gè)目標(biāo)。會(huì)計(jì)信息系統(tǒng)的開(kāi)發(fā)是指研制和建立一

3、個(gè)經(jīng)濟(jì)有效的會(huì)計(jì)信息系統(tǒng)。其開(kāi)發(fā)的目 標(biāo)是改善和提高企業(yè)的經(jīng)濟(jì)管理現(xiàn)代化水平；提高會(huì)計(jì)信息來(lái)源的準(zhǔn)確性；為企業(yè)及上級(jí)提供準(zhǔn)確及時(shí)和全面的各種財(cái)務(wù)報(bào)表；加快財(cái)會(huì)計(jì)劃和計(jì)算機(jī)輔助財(cái)務(wù)決策工作，促使會(huì)計(jì)決策科學(xué)化，以提高企業(yè)經(jīng)濟(jì)效益。三、會(huì)計(jì)信息系統(tǒng)的系統(tǒng)分析系統(tǒng)分析階段的基本任務(wù)是：系統(tǒng)分析員與用戶在一起，充分了解用戶的要求，并把雙方的理解用系統(tǒng)說(shuō)明書表達(dá)出來(lái)。統(tǒng)分析是研制信息系統(tǒng)最重要的階段，也是最困難的階段。系統(tǒng)分析要回答新系統(tǒng)“做什么”這個(gè)關(guān)鍵性的問(wèn)題。只有明確了問(wèn)題，才有可能解決問(wèn)題；否則，方向不明，無(wú)的放矢。系統(tǒng)分析的主要任務(wù)是將在系統(tǒng)詳細(xì)調(diào)查中所得到的文檔資料集中在一起，對(duì)組織內(nèi)部整體

4、管理狀況和信息處理過(guò)程進(jìn)行分析。它側(cè)重于從業(yè)務(wù)全過(guò)程的角度進(jìn)行分析。分析的主要內(nèi)容是：業(yè)務(wù)和數(shù)據(jù)的流程是否通暢，是否合理，數(shù)據(jù)、業(yè)務(wù)過(guò)程和實(shí)現(xiàn)管理功能之間的關(guān)系，原有系統(tǒng)管理模式改革和新系統(tǒng)管理方法的實(shí)現(xiàn)是否具有可行性等。（1）、會(huì)計(jì)信息系統(tǒng)的可行性研究。目的在于以最小的代價(jià)在盡可能短時(shí)間內(nèi)解決問(wèn)題。1、對(duì)系統(tǒng)開(kāi)發(fā)進(jìn)行可行性分析。系統(tǒng)分析的第一步就是要論證系統(tǒng)開(kāi)發(fā)的可能性，做出可行性分析報(bào)告。2、詳細(xì)調(diào)查現(xiàn)行系統(tǒng)。系統(tǒng)分析的第二步就是對(duì)新會(huì)計(jì)信息系統(tǒng)的基礎(chǔ)現(xiàn)行會(huì)計(jì)信息系統(tǒng)進(jìn)行詳細(xì)的調(diào)查，搞清現(xiàn)行會(huì)計(jì)信息系統(tǒng)的邊界、組織機(jī)構(gòu)、人員分工、業(yè)務(wù)流程、各種帳、證、表的格式、種類即處理過(guò)程。3、描述現(xiàn)行

5、系統(tǒng)。在進(jìn)行詳細(xì)系統(tǒng)調(diào)查的基礎(chǔ)上，用規(guī)定的圖表、文字描述線性系統(tǒng)，得出現(xiàn)行會(huì)計(jì)信息系統(tǒng)的邏輯模型。4、分析用戶的要求，改進(jìn)現(xiàn)行模型，形成新系統(tǒng)邏輯模型。對(duì)現(xiàn)行會(huì)計(jì)信息系統(tǒng)的邏輯模型進(jìn)行分析，根據(jù)計(jì)算機(jī)的特點(diǎn)，改進(jìn)舊模型中不合理之處，增設(shè)新的功能，得出新系統(tǒng)的邏輯模型，包括建立新系統(tǒng)的數(shù)據(jù)流圖，規(guī)定新系統(tǒng)的數(shù)據(jù)存儲(chǔ)策略、輸入輸出格式、運(yùn)行環(huán)境和系統(tǒng)的性能。（2）、會(huì)計(jì)信息系統(tǒng)的需求分析。需求分析是生命周期模型中的關(guān)鍵步驟。需求分析的主要任務(wù)：“理解”和“表達(dá)”。1、對(duì)現(xiàn)有系統(tǒng)的詳細(xì)調(diào)查和描述：包括收集原系統(tǒng)的各種單據(jù)、賬簿、報(bào)表等的樣本，了解原有系統(tǒng)的組織結(jié)構(gòu)、信息流程、信息量、信息處理步驟和結(jié)

6、果、資源利用現(xiàn)狀、管理方式以及系統(tǒng)的內(nèi)外部環(huán)境，導(dǎo)出原有系統(tǒng)的物理模型，基本符號(hào)及實(shí)例描述。2、識(shí)別原有系統(tǒng)的邏輯模型。3、建立新系統(tǒng)的邏輯模型。4、需求分析的明確表達(dá)：撰寫規(guī)格說(shuō)明書。四、會(huì)計(jì)信息系統(tǒng)的系統(tǒng)設(shè)計(jì)會(huì)計(jì)信息系統(tǒng)具有對(duì)信息的加工和傳遞功能。對(duì)財(cái)務(wù)信息的加工是通過(guò)會(huì)計(jì)的活動(dòng)而實(shí)現(xiàn)。系統(tǒng)設(shè)計(jì)也叫物理設(shè)計(jì)。系統(tǒng)設(shè)計(jì)是解決“怎么做”的問(wèn)題，即根據(jù)系統(tǒng)的邏輯模型進(jìn)行物理設(shè)計(jì)，包括系統(tǒng)配置設(shè)計(jì)、模塊結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)及文件設(shè)計(jì)、代碼設(shè)計(jì)、人機(jī)界面設(shè)計(jì)、內(nèi)部控制設(shè)計(jì)、算法設(shè)計(jì)、系統(tǒng)安全設(shè)計(jì)。系統(tǒng)設(shè)計(jì)的目標(biāo)是保證實(shí)現(xiàn)系統(tǒng)功能的前提下盡量提高系統(tǒng)的工作質(zhì)量、運(yùn)行效率、可靠性和可維護(hù)性。五、會(huì)計(jì)信息系統(tǒng)設(shè)

7、計(jì)的意義 隨著信息時(shí)代的到來(lái)，企業(yè)競(jìng)爭(zhēng)日益加劇，這就要求企業(yè)對(duì)市場(chǎng)的反映更及時(shí)、更準(zhǔn)確。為了及時(shí)把握市場(chǎng)，企業(yè)越來(lái)越需要管理信息，這已成為企業(yè)成敗的關(guān)鍵，核算型系統(tǒng)提供信息的滯后性遠(yuǎn)不能滿足現(xiàn)代企業(yè)對(duì)信息的需求，因此管理型系統(tǒng)的產(chǎn)生即是必然。管理型會(huì)計(jì)信息系統(tǒng)是一個(gè)以計(jì)算機(jī)和信息處理技術(shù)為手段，以管理會(huì)計(jì)的模型為基本方法，對(duì)企業(yè)中的內(nèi)部物流及外部變化信息進(jìn)行收集、傳遞、存儲(chǔ)、加工、維護(hù)和使用的人機(jī)系統(tǒng)。它能解析企業(yè)的歷史數(shù)據(jù)并能預(yù)測(cè)未來(lái)，為企業(yè)管理中的結(jié)構(gòu)化、半結(jié)構(gòu)化和非結(jié)構(gòu)化的決策問(wèn)題提供信息支持，并利用系統(tǒng)反饋的信息幫助企業(yè)管理人員控制和管理企業(yè)的行為，以實(shí)現(xiàn)加強(qiáng)經(jīng)營(yíng)管理，提高經(jīng)濟(jì)效益的目

8、的。管理型系統(tǒng)主要側(cè)重于資金、成本、銷售收入、利潤(rùn)的管理，用于實(shí)現(xiàn)對(duì)企業(yè)銷售收入、稅金、利潤(rùn)的實(shí)現(xiàn)、提留、上交的管理和控制，充分發(fā)揮會(huì)計(jì)信息系統(tǒng)的管理和控制職能。管理型財(cái)務(wù)軟件以財(cái)務(wù)管理的效果反映企業(yè)的管理整體水平。企業(yè)發(fā)展以企業(yè)盈利和現(xiàn)金流入為基礎(chǔ)，通過(guò)財(cái)務(wù)分析和財(cái)務(wù)預(yù)測(cè)得出的財(cái)務(wù)指標(biāo)，能準(zhǔn)確的計(jì)算出企業(yè)的盈利能力，并由此反映企業(yè)管理的整體水平。從而加強(qiáng)對(duì)企業(yè)的管理，優(yōu)化管理結(jié)構(gòu)，實(shí)現(xiàn)效益最大化。效果展示圖目錄一、 登陸界面設(shè)計(jì)二、 表文件展示1、 摘要庫(kù)2、 科目代碼庫(kù)3、 憑證庫(kù)三、 數(shù)據(jù)庫(kù)展示四、 程序設(shè)計(jì)（一）、憑證設(shè)計(jì)1、憑證格式設(shè)計(jì)2、憑證錄入設(shè)計(jì)3、憑證查詢?cè)O(shè)計(jì)（二）、科目代碼

9、設(shè)計(jì)1、科目代碼查詢?cè)O(shè)計(jì)2、科目代碼匯總設(shè)計(jì)（三）、日記賬設(shè)計(jì)1、現(xiàn)金日記賬2、銀行日記賬（四）、報(bào)表設(shè)計(jì)1、資產(chǎn)負(fù)債表格設(shè)計(jì)2、資產(chǎn)負(fù)債程序設(shè)計(jì)3、利潤(rùn)表格式設(shè)計(jì)4、利潤(rùn)表程序設(shè)計(jì)一、 登陸界面設(shè)計(jì)二、表文件展示1、 摘要庫(kù)2、 科目代碼庫(kù)3、 憑證庫(kù)三、數(shù)據(jù)庫(kù)展示四、 程序設(shè)計(jì)（一）、憑證設(shè)計(jì)1、憑證格式設(shè)計(jì)程序碼：set talk offclearn=11a1=" _"a2="| | | | |" a3="|_|_|_|_|"a4="|_|_|_|_|"10,10 say a1do whil n<=18

10、n,10 say a2n+1,10 say a3n=n+2endd19,10 say a220,10 say a45,38 say "記賬憑證" font "宋體",209,12 say "憑證類別:"9,30 say "日期:"9,46 say "憑證號(hào);"9,66 say "附件張數(shù):"11,17 say "摘要"11,31 say "會(huì)計(jì)科目"11,49 say "借方金額"11,68 say "貸方

11、金額"19,17 say "合計(jì)"21,12 say "記賬:"+space(12)+"審核:"+space(12)+"出納:"+space(12)+"制單:"2、憑證錄入設(shè)計(jì)程序碼：set talk offdo e:88憑證格式設(shè)計(jì).prgzy1=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

12、=" "xg="y"jx="y"do whil jx="y"do whil xg="y"9,21 get pzlx19,36 get rq19,60 get pzh19,80 get fjzsreaduse e:88摘要庫(kù)13,15 get zy1readloca for zy1=zynr13,15 say zy1zy2=zy1useuse e:88科目代碼庫(kù)13,35 get dm113,50 get je1readloca for dm1=kmdmif foun()13,35 say kmm

13、ckm1=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="y"loopelseexitendiendduse e:88憑證庫(kù)appe blanrepl kmmc with km1,kmdm with dm1,zy with zy1,jfje with je1,pzlx with

14、 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="y"do e:88憑證格式.prgxg="y"9,80 get pzh19,21 get pzlx19,36 get rq19,60 get fjzsloopelseex

15、itendiendduse e:88憑證庫(kù)listuseset talk onreturn3、憑證查詢?cè)O(shè)計(jì)程序碼：set talk off clear use e:88憑證庫(kù).dbfrq1=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).and.allt(pzh)=

16、allt(pzh1).and.allt(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 ("沒(méi)有符合條件的憑證")endifset talk on return（二）科目代碼設(shè)計(jì)1、科目代碼查詢?cè)O(shè)計(jì)程序碼：set talk offuse "e:88科目代碼庫(kù).dbf"dm=space(

17、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 onretu2、科目代碼匯總設(shè)計(jì)程序碼：set talk of

18、fcleara=0b=0ye=0kmdm=space(8)select 1use e:88憑證庫(kù).dbf select 2use e:88科目匯總表.dbfdo 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+bqjf-qcdf-bqdfif ye>=0repla qmjf with yeelserepla qmdf with ye*(-1)endifskipenddolis

19、tj1=0d1=0sum bqjf to j1sum bqdf to d1if j1=d1messagebox("試算平衡")elsemessagebox("試算不平衡,請(qǐng)檢查!")endifuseselect 1useset talk on（三）日記賬設(shè)計(jì)1、現(xiàn)金日記賬程序碼：set talk offclearq1=spac(10)zy1=spac(4)pzh1=spac(3)jfje1=0dfje1=0ye1=45401.25kmdm=spac(4)sele 1use e:88憑證庫(kù)sele 2use e:88現(xiàn)金日記賬sele 1do whil!e

20、of()if subs(kmdm,1,4)="1001"rq1=rqzy1=zypzh1=pzhjfje1=jfjedfje1=dfjesele 2ye1=yeskip 1dele restpackappe blanrepl rq with rq1,zy with zy1, pzh with pzh1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1endisele 1skipenddusesele 2a=0b=0sum jfje to asum dfje to bappe blanrepl rq with 20

21、12/12/13,zy with zy1 ,pzh with pzh1,jfje with a ,dfje with b ,ye with ye1+jfje1-dfje1listuseset talk onretu2、銀行日記賬程序碼：set talk offclearq1=spac(10)zy1=spac(4)pzh1=spac(3)jfje1=0dfje1=0ye1=567023.83kmdm=spac(4)sele 1use e:88憑證庫(kù)sele 2use e:88銀行日記賬sele 1do whil!eof()if subs(kmdm,1,4)="1002"rq1

22、=rqzy1=zypzh1=pzhjfje1=jfjedfje1=dfjesele 2ye1=yeskip 1dele restpackappe blanrepl rq with rq1,zy with zy1,pzh with pzh1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1endisele 1skipenddusesele 2a=0b=0sum jfje to asum dfje to bappe blanrepl rq with 2012/12/15,zy with zy1,jfje with a ,dfje wit

23、h b ,ye with ye1+jfje1-dfje1listuseset talk onretu（四）報(bào)表設(shè)計(jì)1、資產(chǎn)負(fù)債表格式設(shè)計(jì)程序碼：set talk off clean=3a1="_"a2="| | | | | | |"a3="|_|_|_|_|_|_|"3,8 say a1n=4do while n<=34n,8 say a2n+1,8 say a3n=n+2endd0,58 say "資產(chǎn)負(fù)債表" font "宋體",162,12 say "編制單位"2

24、,60 say "年 月 日"2,100 say "單位： 元"4,20 say "資 產(chǎn)"4,40 say "期初余額"4,70 say "期末余額"4,90say "負(fù)債與股東權(quán)益"4,125 say "期初余額"4,145say "期末余額"6,10 say "流動(dòng)資產(chǎn)"6,90 say "流動(dòng)負(fù)債"8,12 say "貨幣資金"10,12 say "預(yù)付帳款&

25、quot;12,12 say "應(yīng)收賬款"14,12 say "存貨"16,10 say "待攤費(fèi)用"20,10 say "非流動(dòng)資產(chǎn)"20,12 say "長(zhǎng)期股權(quán)投資"22,12 say "固定資產(chǎn)"24,12 say "固定資產(chǎn)原值"26,12 say "減:累計(jì)折舊"34,14 say "資產(chǎn)總計(jì)"8,90say "短期借款"10,90 say "應(yīng)付帳款"12,90s

26、ay "其他應(yīng)付款"14,90 say "應(yīng)付工資"16,90 say "應(yīng)交稅金"18,90 say "應(yīng)付股利"20,90 say "非流動(dòng)負(fù)債"22,90 say "長(zhǎng)期借款"24,90 say "所有者權(quán)益"26,90 say "實(shí)收資本"28,90say "資本公積"30,90say "盈余公積"32,90 say "未分配利潤(rùn)"34,90say "負(fù)債及股

27、東權(quán)益合計(jì)"2、資金負(fù)債表程序設(shè)計(jì)程序碼:set talk offcleardo e:88資產(chǎn)負(fù)債表格式hs=space(2)kmdm1=space(4)select 1use e:88科目匯總表.dbfselect 2use e:88資產(chǎn)負(fù)債表.dbf select 1sum qcjf to a1 for kmdm="1001".or.kmdm="1002".or.kmdm="1012"sum qcjf to a2 for kmdm="1123"sum qcjf to a3 for kmdm="

28、;1122"sum qcjf to a4 for kmdm="1405".or.kmdm="1403"sum qcjf to a5 for kmdm="1801"sum qcjf to a6 for kmdm="1601"sum qcdf to a7 for kmdm="1602"x1=a1+a2+a3+a4+a5+a6-a7sum qcdf to a8 for kmdm="2001"sum qcdf to a9 for kmdm="2202"s

29、um qcdf to a10 for kmdm="2241"sum qcdf to a11 for kmdm="2211" sum qcdf to a12 for kmdm="2221"sum qcdf to a13 for kmdm="4001"sum qcjf to a14 for kmdm="410401"sum qcdf to a15 for kmdm="2232"sum qcdf to a16 for kmdm="4101"x2=a8+a9+a1

30、0+a11+a12+a13-a14+a15+a16sum qmjf to b1 for kmdm="1001".or.kmdm="1002".or.kmdm="1012"sum qmjf to b2 for kmdm="1123"sum qmjf to b3 for kmdm="1122"sum qmjf to b4 for kmdm="1405".or.kmdm="1403"sum qmjf to b5 for kmdm="1801"

31、sum qmjf to b6 for kmdm="1601"sum qmdf to b7 for kmdm="1602"y1=b1+b2+b3+b4+b5+b6-b7sum qmdf to b8 for kmdm="2001"sum qmdf to b9 for kmdm="2202"sum qmdf to b10 for kmdm="2241"sum qmdf to b11 for kmdm="2211"sum qmdf to b12 for kmdm="2221

32、"sum qmdf to b13 for kmdm="4001"sum qmjf to b14 for kmdm="410401"sum qmdf to b15 for kmdm="2232"sum qmdf to b16 for kmdm="4101"y2=b7+b8+b9+b10+b11+b12+b13-b14+b15+b16select 2packrepl qcs with a1 for xm ="貨幣資金"repl qcs with a2 for xm="預(yù)付賬款&q

33、uot;repl qcs with a3 for xm ="應(yīng)收賬款"repl qcs with a4 for xm ="存貨"repl qcs with a5 for xm ="待攤費(fèi)用"repl qcs with a6 for xm ="固定資產(chǎn)原值"repl qcs with a7 for xm ="累計(jì)折舊"repl qcs with x1 for xm ="資產(chǎn)合計(jì)"repl qms with b1 for xm ="貨幣資金"repl qms

34、with b2 for xm ="預(yù)付款"repl qms with b3 for xm ="應(yīng)收賬款"repl qms with b4 for xm ="存貨"repl qms with b5 for xm ="待攤費(fèi)用"repl qms with b6 for xm ="固定資產(chǎn)原值"repl qms with b7 for xm ="累計(jì)折舊"repl qms with y1 for xm ="資產(chǎn)合計(jì)"repl qcs with a8 for xm

35、 ="短期借款"repl qcs with a9 for xm ="應(yīng)付賬款"repl qcs with a10 for xm ="其他應(yīng)付款"repl qcs with a11 for xm ="應(yīng)付工資"repl qcs with a12 for xm ="應(yīng)交稅金"repl qcs with a13 for xm ="實(shí)收資本"repl qcs with a14 for xm ="未分配利潤(rùn)"repl qcs with x2 for xm =&quo

36、t;負(fù)債及股東權(quán)益合計(jì)"repl qms with b8 for xm ="短期借款"repl qms with b9 for xm ="應(yīng)付賬款"repl qms with b10 for xm ="其他應(yīng)付款" repl qms with b11 for xm ="應(yīng)付工資"repl qms with b12 for xm ="應(yīng)交稅金"repl qms with b13 for xm ="實(shí)收資本"repl qms with b14 for xm ="

37、;未分配利潤(rùn)"repl qms with y2 for xm ="負(fù)債及股東權(quán)益合計(jì)"8,40 say a110,40 say a212,40 say a3 14,40 say a416,40 say a524,40 say a626,40 say a734,34 say x18,125 say a810,125say a912,125 say a1014,125 say a1116,125 say a1218,125 say a1528,128 say a1330,128 say a1432,128 say a1634,128 say x28,70 say b1

38、10,70 say b2 12,70 say b314,70 say b4 16,70 say b524,70 say b626,70 say b734,70 say y18,145 say b810,145 say b912,145 say b1014,145 say b1116,145 say b1218,145 say b1528,145 say b1330,145 say b1432,145 say b1634,145say y2if y1=y2 or x1=x2messagebox("資產(chǎn)負(fù)債表平衡!請(qǐng)退出!")elsemessagebox("資產(chǎn)負(fù)債表

39、不平衡!請(qǐng)檢查!")endif select 1use set talk on retu3、利潤(rùn)表格式設(shè)計(jì)程序碼：set talk offclearn=3a1="_"a2="| | |"a3="|_|_|"3,8 say a1n=4do while n<=34n,8 say a2n+1,8 say a3n=n+2endd0,50 say "利潤(rùn)表"font"宋體",162,12 say"編制單位"2,50 say "年 月 日"2,80 s

40、ay "單位: 元 "4,20 say "項(xiàng)目"4,55 say "本月數(shù)"6,12 say "一、營(yíng)業(yè)收入"8,14 say "減: 營(yíng)業(yè)成本"10,16 say "營(yíng)業(yè)稅金及附加"12,16 say "銷售費(fèi)用"14,16 say "管理費(fèi)用"16,16 say "財(cái)務(wù)費(fèi)用"18,16 say "資產(chǎn)減值損失"20,14 say "加:公允價(jià)值變動(dòng)收益"22,16 say

41、"投資收益"24,12 say "二、營(yíng)業(yè)利潤(rùn)"26,14 say "加:營(yíng)業(yè)外收入"28,14 say "減: 營(yíng)業(yè)外支出"30,12 say "三、利潤(rùn)總額"32,16 say "減:所得稅費(fèi)用"34,12 say "四、凈利潤(rùn)"4、利潤(rùn)表程序設(shè)計(jì)程序碼：set talk offclear do e:88利潤(rùn)表格式store 0 to a,b,c,d,e,f,g,h,i,j,k,l,b1,b2,b3,b4,b5kmdm1=space(4)select 1use e:88科目匯總表.dbfselect 2use e:88利潤(rùn)表.dbfselect 1sum bqdf to a for kmdm=&qu