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

1、<p>　　會(huì)計(jì)信息系統(tǒng)課程設(shè)計(jì)報(bào)告</p><p><b>　　一、概述</b></p><p>　　根據(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)告。</p>&l

2、t;p>　　二、會(huì)計(jì)信息系統(tǒng)的開(kāi)發(fā)</p><p>　　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í)、全方位的信息。</p><p>　　會(huì)計(jì)信息系

3、統(tǒng)是一個(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ù)。</

4、p><p>　　信息系統(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ā)是指研制和建立一個(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ì)效益。&l

5、t;/p><p>　　三、會(huì)計(jì)信息系統(tǒng)的系統(tǒng)分析</p><p>　　系統(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)查中所得到的文檔資料集中在

6、一起，對(duì)組織內(nèi)部整體管理狀況和信息處理過(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)是否具有可行性等。</p><p>　?。?）、會(huì)計(jì)信息系統(tǒng)的可行性研究。目的在于以最小的代價(jià)在盡可能短時(shí)間內(nèi)解決問(wèn)題。</p><p>　　1、對(duì)系統(tǒng)開(kāi)發(fā)進(jìn)行可行性分

7、析。系統(tǒng)分析的第一步就是要論證系統(tǒng)開(kāi)發(fā)的可能性，做出可行性分析報(bào)告。</p><p>　　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ò)程。</p><p>　　3、描述現(xiàn)行系統(tǒng)。在進(jìn)行詳細(xì)系統(tǒng)調(diào)查的基礎(chǔ)上，用規(guī)定的圖表、文字描述線性系統(tǒng)，得出現(xiàn)

8、行會(huì)計(jì)信息系統(tǒng)的邏輯模型。</p><p>　　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)的性能。</p><p>　　（2）、會(huì)計(jì)信息系統(tǒng)的需求分析。需求分析是生命周期模型中的關(guān)鍵步

9、驟。需求分析的主要任務(wù)：“理解”和“表達(dá)”。1、對(duì)現(xiàn)有系統(tǒng)的詳細(xì)調(diào)查和描述：包括收集原系統(tǒng)的各種單據(jù)、賬簿、報(bào)表等的樣本，了解原有系統(tǒng)的組織結(jié)構(gòu)、信息流程、信息量、信息處理步驟和結(jié)果、資源利用現(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ō)明書。</p><p>　　四、會(huì)計(jì)信息系統(tǒng)的系統(tǒng)設(shè)計(jì)&

10、lt;/p><p>　　會(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ù)性。</p>&

11、lt;p>　　五、會(huì)計(jì)信息系統(tǒng)設(shè)計(jì)的意義</p><p>　　隨著信息時(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)

12、行收集、傳遞、存儲(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ì)效益的目的。管理型系統(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ù)管理的效果反映企

13、業(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)效益最大化。</p><p><b>　　效果展示圖目錄</b></p><p><b>　　登陸界面設(shè)計(jì)</b></p><p>

14、<b>　　表文件展示</b></p><p><b>　　摘要庫(kù)</b></p><p><b>　　科目代碼庫(kù)</b></p><p><b>　　憑證庫(kù)</b></p><p><b>　　數(shù)據(jù)庫(kù)展示</b></p>

15、<p><b>　　程序設(shè)計(jì)</b></p><p><b>　?。ㄒ唬{證設(shè)計(jì)</b></p><p><b>　　1、憑證格式設(shè)計(jì)</b></p><p><b>　　2、憑證錄入設(shè)計(jì)</b></p><p><b>　　3、

16、憑證查詢?cè)O(shè)計(jì)</b></p><p>　　（二）、科目代碼設(shè)計(jì)</p><p>　　1、科目代碼查詢?cè)O(shè)計(jì)</p><p>　　2、科目代碼匯總設(shè)計(jì)</p><p><b>　?。ㄈ?、日記賬設(shè)計(jì)</b></p><p><b>　　1、現(xiàn)金日記賬</b></

17、p><p><b>　　2、銀行日記賬</b></p><p><b>　?。ㄋ模?bào)表設(shè)計(jì)</b></p><p>　　1、資產(chǎn)負(fù)債表格設(shè)計(jì)</p><p>　　2、資產(chǎn)負(fù)債程序設(shè)計(jì)</p><p><b>　　3、利潤(rùn)表格式設(shè)計(jì)</b></p>

18、;<p><b>　　4、利潤(rùn)表程序設(shè)計(jì)</b></p><p><b>　　登陸界面設(shè)計(jì)</b></p><p><b>　　二、表文件展示</b></p><p><b>　　摘要庫(kù)</b></p><p><b>　　科目代碼

19、庫(kù)</b></p><p><b>　　憑證庫(kù)</b></p><p><b>　　三、數(shù)據(jù)庫(kù)展示</b></p><p><b>　　程序設(shè)計(jì)</b></p><p><b>　?。ㄒ唬?、憑證設(shè)計(jì)</b></p><p&g

20、t;<b>　　1、憑證格式設(shè)計(jì)</b></p><p><b>　　程序碼：</b></p><p>　　set talk off</p><p><b>　　clear</b></p><p><b>　　n=11</b></p><

21、;p>　　a1=" _______________________________________________________________________"</p><p>　　a2="| | | | |"

22、 </p><p>　　a3="|_______________|________________|_________________|____________________|"</p><p>　　a4="|_______________|________________|_________________|____________________|&qu

23、ot;</p><p>　　@10,10 say a1</p><p>　　do whil n<=18</p><p>　　@n,10 say a2</p><p>　　@n+1,10 say a3</p><p><b>　　n=n+2</b></p><p>&l

24、t;b>　　endd</b></p><p>　　@19,10 say a2</p><p>　　@20,10 say a4</p><p>　　@5,38 say "記賬憑證" font "宋體",20</p><p>　　@9,12 say "憑證類別:"<

25、;/p><p>　　@9,30 say "日期:"</p><p>　　@9,46 say "憑證號(hào);"</p><p>　　@9,66 say "附件張數(shù):"</p><p>　　@11,17 say "摘要"</p><p>　　@11,3

26、1 say "會(huì)計(jì)科目"</p><p>　　@11,49 say "借方金額"</p><p>　　@11,68 say "貸方金額"</p><p>　　@19,17 say "合計(jì)"</p><p>　　@21,12 say "記賬:"+

27、space(12)+"審核:"+space(12)+"出納:"+space(12)+"制單:"</p><p><b>　　2、憑證錄入設(shè)計(jì)</b></p><p><b>　　程序碼：</b></p><p>　　set talk off</p>

28、<p>　　do e:\20109920422歐陽(yáng)一帆\憑證格式設(shè)計(jì).prg</p><p>　　zy1=spac(3)</p><p>　　zy2=spac(3)</p><p>　　km1=spac(20)</p><p>　　km2=spac(20)</p><p>　　dm1=spac(4)</

29、p><p><b>　　je1=0</b></p><p>　　dm2=spac(4)</p><p><b>　　je2=0</b></p><p>　　pzlx1=" "</p><p>　　rq1=spac(8)</p><p>

30、;　　pzh1=spac(5)</p><p><b>　　fjzs=" "</b></p><p><b>　　xg="y"</b></p><p><b>　　jx="y"</b></p><p>　　do whi

31、l jx="y"</p><p>　　do whil xg="y"</p><p>　　@9,21 get pzlx1</p><p>　　@9,36 get rq1</p><p>　　@9,60 get pzh1</p><p>　　@9,80 get fjzs</p&

32、gt;<p><b>　　read</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\摘要庫(kù)</p><p>　　@13,15 get zy1</p><p><b>　　read</b></p><p>　　loca for zy1=zynr</p>

33、;<p>　　@13,15 say zy1</p><p><b>　　zy2=zy1</b></p><p><b>　　use</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\科目代碼庫(kù)</p><p>　　@13,35 get dm1</p>

34、<p>　　@13,50 get je1</p><p><b>　　read</b></p><p>　　loca for dm1=kmdm</p><p><b>　　if foun()</b></p><p>　　@13,35 say kmmc</p><p&

35、gt;<b>　　km1=kmmc</b></p><p>　　@13,50 say je1</p><p><b>　　endi</b></p><p>　　@15,15 get zy2</p><p>　　@15,35 get dm2</p><p>　　@15,70 g

36、et je2</p><p><b>　　read</b></p><p>　　loca for dm2=kmdm</p><p><b>　　if foun()</b></p><p>　　@15,35 say kmmc</p><p><b>　　km2=kmm

37、c</b></p><p>　　@15,70 say je2</p><p><b>　　endi</b></p><p><b>　　use</b></p><p>　　@25,10 say"是否修改" get xg</p><p><

38、b>　　read</b></p><p><b>　　if xg="y"</b></p><p><b>　　loop</b></p><p><b>　　else</b></p><p><b>　　exit</b>

39、</p><p><b>　　endi</b></p><p><b>　　endd</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\憑證庫(kù)</p><p><b>　　appe blan</b></p><p>　　repl

40、kmmc with km1,kmdm with dm1,zy with zy1,jfje with je1,pzlx with pzlx1,rq with rq1,pzh with pzh1</p><p><b>　　appe blan</b></p><p>　　repl kmmc with km2,kmdm with dm2,zy with zy2,dfje w

41、ith je2,pzlx with pzlx1,rq with rq1,pzh with pzh1</p><p><b>　　use</b></p><p>　　@26,10 say "是否繼續(xù)輸入第二張憑證" get jx</p><p><b>　　read</b></p><

42、p><b>　　if jx="y"</b></p><p>　　do e:\20109920422歐陽(yáng)一帆\憑證格式.prg</p><p><b>　　xg="y"</b></p><p>　　@9,80 get pzh1</p><p>　　@9,2

43、1 get pzlx1</p><p>　　@9,36 get rq1</p><p>　　@9,60 get fjzs</p><p><b>　　loop</b></p><p><b>　　else</b></p><p><b>　　exit</b&g

44、t;</p><p><b>　　endi</b></p><p><b>　　endd</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\憑證庫(kù)</p><p><b>　　list</b></p><p><b>　

45、　use</b></p><p>　　set talk on</p><p><b>　　return</b></p><p><b>　　3、憑證查詢?cè)O(shè)計(jì)</b></p><p><b>　　程序碼：</b></p><p>　　set t

46、alk off </p><p><b>　　clear </b></p><p>　　use e:\20109920422歐陽(yáng)一帆\憑證庫(kù).dbf</p><p>　　rq1=spac(8)</p><p>　　pzh1=spac(3)</p><p>　　pzlx1=spac(2)</p

47、><p>　　zynr1=space(20)</p><p>　　@1,4 say "請(qǐng)輸入憑證日期:"get rq1</p><p>　　@3,4 say "請(qǐng)輸入憑證號(hào):"get pzh1</p><p>　　@5,4 say "請(qǐng)輸入憑證類型:"get pzlx1</p>

48、;<p><b>　　read </b></p><p>　　if allt(DTOC(rq))=allt(dtoc(rq1)).and.allt(pzh)=allt(pzh1).and.allt(pzlx)=allt(pzlx1)</p><p>　　@9,19 say pzlx1</p><p>　　@9,40 say rq1

49、</p><p>　　@9,68 say pzh1</p><p>　　@13,15 say zy </p><p>　　@13,45 say kmmc</p><p>　　@13,76 say jfje </p><p><b>　　skip </b></p><p>　

50、　@15,15 say zy </p><p>　　@15,45 say kmmc</p><p>　　@15,98 say dfje </p><p><b>　　else </b></p><p>　　messagebox ("沒(méi)有符合條件的憑證")</p><p><

51、;b>　　endif</b></p><p>　　set talk on </p><p><b>　　return</b></p><p><b>　?。ǘ┛颇看a設(shè)計(jì)</b></p><p>　　1、科目代碼查詢?cè)O(shè)計(jì)</p><p><b>

52、　　程序碼：</b></p><p>　　set talk off</p><p>　　use "e:\20109920422歐陽(yáng)一帆\科目代碼庫(kù).dbf"</p><p>　　dm=space(4)</p><p>　　do while .t.</p><p><b>　　c

53、lear </b></p><p>　　do while .t.</p><p>　　@10,10 say"請(qǐng)輸入科目代碼" get dm</p><p><b>　　read</b></p><p>　　a=messageb("請(qǐng)確認(rèn)輸入的科目代碼",4)</p

54、><p><b>　　if a=6</b></p><p>　　locate for kmdm=dm</p><p><b>　　exit</b></p><p><b>　　endif</b></p><p><b>　　endd</b&g

55、t;</p><p><b>　　if eof()</b></p><p>　　@15,15 say "對(duì)不起 ,你輸入的代碼不存在"</p><p><b>　　else</b></p><p>　　@20,20 say kmmc</p><p><

56、;b>　　endi</b></p><p>　　a=messageb("是否繼續(xù)查看",4)</p><p><b>　　if a=7</b></p><p><b>　　exit</b></p><p><b>　　endi</b><

57、;/p><p><b>　　endd</b></p><p>　　set talk on</p><p><b>　　retu</b></p><p>　　2、科目代碼匯總設(shè)計(jì)</p><p><b>　　程序碼：</b></p><p&

58、gt;　　set talk off</p><p><b>　　clear</b></p><p><b>　　a=0</b></p><p><b>　　b=0</b></p><p><b>　　ye=0</b></p><p>

59、;　　kmdm=space(8)</p><p><b>　　select 1</b></p><p>　　use e:20109920422歐陽(yáng)一帆\憑證庫(kù).dbf </p><p><b>　　select 2</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\科目匯

60、總表.dbf</p><p>　　do while !eof()</p><p>　　kmdm1=kmdm</p><p><b>　　select 1</b></p><p>　　sum jfje to a for kmdm=kmdm1</p><p>　　sum dfje to b for k

61、mdm =kmdm1</p><p><b>　　select 2</b></p><p>　　repla bqjf with a,bqdf with b</p><p>　　ye=qcjf+bqjf-qcdf-bqdf</p><p><b>　　if ye>=0</b></p>

62、<p>　　repla qmjf with ye</p><p><b>　　else</b></p><p>　　repla qmdf with ye*(-1)</p><p><b>　　endif</b></p><p><b>　　skip</b><

63、/p><p><b>　　enddo</b></p><p><b>　　list</b></p><p><b>　　j1=0</b></p><p><b>　　d1=0</b></p><p>　　sum bqjf to j1&l

64、t;/p><p>　　sum bqdf to d1</p><p><b>　　if j1=d1</b></p><p>　　messagebox("試算平衡")</p><p><b>　　else</b></p><p>　　messagebox(&quo

65、t;試算不平衡,請(qǐng)檢查!")</p><p><b>　　endif</b></p><p><b>　　use</b></p><p><b>　　select 1</b></p><p><b>　　use</b></p>&l

66、t;p>　　set talk on</p><p><b>　?。ㄈ┤沼涃~設(shè)計(jì)</b></p><p><b>　　1、現(xiàn)金日記賬</b></p><p>　　程序碼：set talk off</p><p><b>　　clea</b></p><

67、p>　　rq1=spac(10)</p><p>　　zy1=spac(4)</p><p>　　pzh1=spac(3)</p><p><b>　　jfje1=0</b></p><p><b>　　dfje1=0</b></p><p>　　ye1=45401.2

68、5</p><p>　　kmdm=spac(4)</p><p><b>　　sele 1</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\憑證庫(kù)</p><p><b>　　sele 2</b></p><p>　　use e:\201099204

69、22歐陽(yáng)一帆\現(xiàn)金日記賬</p><p><b>　　sele 1</b></p><p>　　do whil!eof()</p><p>　　if subs(kmdm,1,4)="1001"</p><p><b>　　rq1=rq</b></p><p&g

70、t;<b>　　zy1=zy</b></p><p><b>　　pzh1=pzh</b></p><p>　　jfje1=jfje</p><p>　　dfje1=dfje</p><p><b>　　sele 2</b></p><p><b&

71、gt;　　ye1=ye</b></p><p><b>　　skip 1</b></p><p><b>　　dele rest</b></p><p><b>　　pack</b></p><p><b>　　appe blan</b><

72、;/p><p>　　repl rq with rq1,zy with zy1, pzh with pzh1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1</p><p><b>　　endi</b></p><p><b>　　sele 1</b></p&

73、gt;<p><b>　　skip</b></p><p><b>　　endd</b></p><p><b>　　use</b></p><p><b>　　sele 2</b></p><p><b>　　a=0</b&

74、gt;</p><p><b>　　b=0</b></p><p>　　sum jfje to a</p><p>　　sum dfje to b</p><p><b>　　appe blan</b></p><p>　　repl rq with {^2012/12/13}

75、,zy with zy1 ,pzh with pzh1,jfje with a ,dfje with b ,ye with ye1+jfje1-dfje1</p><p><b>　　list</b></p><p><b>　　use</b></p><p>　　set talk on</p><p&

76、gt;<b>　　retu</b></p><p><b>　　2、銀行日記賬</b></p><p><b>　　程序碼：</b></p><p>　　set talk off</p><p><b>　　clea</b></p><

77、p>　　rq1=spac(10)</p><p>　　zy1=spac(4)</p><p>　　pzh1=spac(3)</p><p><b>　　jfje1=0</b></p><p><b>　　dfje1=0</b></p><p>　　ye1=567023.

78、83</p><p>　　kmdm=spac(4)</p><p><b>　　sele 1</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\憑證庫(kù)</p><p><b>　　sele 2</b></p><p>　　use e:\20109920

79、422歐陽(yáng)一帆\銀行日記賬</p><p><b>　　sele 1</b></p><p>　　do whil!eof()</p><p>　　if subs(kmdm,1,4)="1002"</p><p><b>　　rq1=rq</b></p><p&

80、gt;<b>　　zy1=zy</b></p><p><b>　　pzh1=pzh</b></p><p>　　jfje1=jfje</p><p>　　dfje1=dfje</p><p><b>　　sele 2</b></p><p><b

81、>　　ye1=ye</b></p><p><b>　　skip 1</b></p><p><b>　　dele rest</b></p><p><b>　　pack</b></p><p><b>　　appe blan</b>&l

82、t;/p><p>　　repl rq with rq1,zy with zy1,pzh with pzh1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1</p><p><b>　　endi</b></p><p><b>　　sele 1</b></p&

83、gt;<p><b>　　skip</b></p><p><b>　　endd</b></p><p><b>　　use</b></p><p><b>　　sele 2</b></p><p><b>　　a=0</b&

84、gt;</p><p><b>　　b=0</b></p><p>　　sum jfje to a</p><p>　　sum dfje to b</p><p><b>　　appe blan</b></p><p>　　repl rq with {^2012/12/15}

85、,zy with zy1,jfje with a ,dfje with b ,ye with ye1+jfje1-dfje1</p><p><b>　　list</b></p><p><b>　　use</b></p><p>　　set talk on</p><p><b>　　r

86、etu</b></p><p><b>　　（四）報(bào)表設(shè)計(jì)</b></p><p>　　1、資產(chǎn)負(fù)債表格式設(shè)計(jì)</p><p><b>　　程序碼：</b></p><p>　　set talk off </p><p><b>　　clea</b

87、></p><p><b>　　n=3</b></p><p>　　a1="___________________________________________________________________________________________________________________________________________

88、_________________"</p><p>　　a2="| | | | | | |"&l

89、t;/p><p>　　a3="|_____________________________|______________________|_____________________|_______________________________|_______________________|________________________|"</p><p>　　@3,8

90、 say a1</p><p><b>　　n=4</b></p><p>　　do while n<=34</p><p>　　@n,8 say a2</p><p>　　@n+1,8 say a3</p><p><b>　　n=n+2</b></p>

91、<p><b>　　endd</b></p><p>　　@0,58 say "資產(chǎn)負(fù)債表" font "宋體",16</p><p>　　@2,12 say "編制單位"</p><p>　　@2,60 say "年 月 日"</p>

92、<p>　　@2,100 say "單位： 元"</p><p>　　@4,20 say "資 產(chǎn)"</p><p>　　@4,40 say "期初余額"</p><p>　　@4,70 say "期末余額"</p><p>　　@4,90s

93、ay "負(fù)債與股東權(quán)益"</p><p>　　@4,125 say "期初余額"</p><p>　　@4,145say "期末余額"</p><p>　　@6,10 say "流動(dòng)資產(chǎn)"</p><p>　　@6,90 say "流動(dòng)負(fù)債"&

94、lt;/p><p>　　@8,12 say "貨幣資金"</p><p>　　@10,12 say "預(yù)付帳款"</p><p>　　@12,12 say "應(yīng)收賬款"</p><p>　　@14,12 say "存貨"</p><p>　　@

95、16,10 say "待攤費(fèi)用"</p><p>　　@20,10 say "非流動(dòng)資產(chǎn)"</p><p>　　@20,12 say "長(zhǎng)期股權(quán)投資"</p><p>　　@22,12 say "固定資產(chǎn)"</p><p>　　@24,12 SAY "固

96、定資產(chǎn)原值"</p><p>　　@26,12 SAY "減:累計(jì)折舊"</p><p>　　@34,14 say "資產(chǎn)總計(jì)"</p><p>　　@8,90say "短期借款"</p><p>　　@10,90 say "應(yīng)付帳款"</p>

97、;<p>　　@12,90say "其他應(yīng)付款"</p><p>　　@14,90 SAY "應(yīng)付工資"</p><p>　　@16,90 SAY "應(yīng)交稅金"</p><p>　　@18,90 say "應(yīng)付股利"</p><p>　　@20,90

98、 say "非流動(dòng)負(fù)債"</p><p>　　@22,90 say "長(zhǎng)期借款"</p><p>　　@24,90 say "所有者權(quán)益"</p><p>　　@26,90 say "實(shí)收資本"</p><p>　　@28,90say "資本公積&quo

99、t;</p><p>　　@30,90say "盈余公積"</p><p>　　@32,90 say "未分配利潤(rùn)"</p><p>　　@34,90say "負(fù)債及股東權(quán)益合計(jì)"</p><p>　　2、資金負(fù)債表程序設(shè)計(jì)</p><p><b>

100、　　程序碼:</b></p><p>　　set talk off</p><p><b>　　clear</b></p><p>　　do e:\20109920422歐陽(yáng)一帆\資產(chǎn)負(fù)債表格式</p><p>　　hs=space(2)</p><p>　　kmdm1=space(4

101、)</p><p><b>　　select 1</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\科目匯總表.dbf</p><p><b>　　select 2</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\資產(chǎn)負(fù)債表.dbf </p&

102、gt;<p><b>　　select 1</b></p><p>　　sum qcjf to a1 for kmdm="1001".or.kmdm="1002".or.kmdm="1012"</p><p>　　sum qcjf to a2 for kmdm="1123"&

103、lt;/p><p>　　sum qcjf to a3 for kmdm="1122"</p><p>　　sum qcjf to a4 for kmdm="1405".or.kmdm="1403"</p><p>　　sum qcjf to a5 for kmdm="1801"</p&

104、gt;<p>　　sum qcjf to a6 for kmdm="1601"</p><p>　　sum qcdf to a7 for kmdm="1602"</p><p>　　x1=a1+a2+a3+a4+a5+a6-a7</p><p>　　sum qcdf to a8 FOR kmdm="20

105、01"</p><p>　　sum qcdf to a9 for kmdm="2202"</p><p>　　sum qcdf to a10 for kmdm="2241"</p><p>　　sum qcdf to a11 for kmdm="2211" </p><

106、p>　　sum qcdf to a12 for kmdm="2221"</p><p>　　sum qcdf to a13 for kmdm="4001"</p><p>　　sum qcjf to a14 for kmdm="410401"</p><p>　　sum qcdf to a15 for

107、 kmdm="2232"</p><p>　　sum qcdf to a16 for kmdm="4101"</p><p>　　x2=a8+a9+a10+a11+a12+a13-a14+a15+a16</p><p>　　sum qmjf to b1 for kmdm="1001".or.kmdm=&qu

108、ot;1002".or.kmdm="1012"</p><p>　　sum qmjf to b2 for kmdm="1123"</p><p>　　sum qmjf to b3 for kmdm="1122"</p><p>　　sum qmjf to b4 for kmdm="140

109、5".or.kmdm="1403"</p><p>　　sum qmjf to b5 for kmdm="1801"</p><p>　　sum qmjf to b6 for kmdm="1601"</p><p>　　sum qmdf to b7 for kmdm="1602"

110、;</p><p>　　y1=b1+b2+b3+b4+b5+b6-b7</p><p>　　sum qmdf to b8 for kmdm="2001"</p><p>　　sum qmdf to b9 for kmdm="2202"</p><p>　　sum qmdf to b10 for kmdm

111、="2241"</p><p>　　sum qmdf to b11 for kmdm="2211"</p><p>　　sum qmdf to b12 for kmdm="2221"</p><p>　　sum qmdf to b13 for kmdm="4001"</p>

112、<p>　　sum qmjf to b14 for kmdm="410401"</p><p>　　sum qmdf to b15 for kmdm="2232"</p><p>　　sum qmdf to b16 for kmdm="4101"</p><p>　　y2=b7+b8+b9+b1

113、0+b11+b12+b13-b14+b15+b16</p><p><b>　　select 2</b></p><p><b>　　pack</b></p><p>　　repl qcs with a1 FOR XM ="貨幣資金"</p><p>　　repl qcs wit

114、h a2 FOR XM="預(yù)付賬款"</p><p>　　repl qcs with a3 FOR XM ="應(yīng)收賬款"</p><p>　　repl qcs with a4 FOR XM ="存貨"</p><p>　　repl qcs with a5 FOR XM ="待攤費(fèi)用"&l

115、t;/p><p>　　repl qcs with a6 FOR XM ="固定資產(chǎn)原值"</p><p>　　repl qcs with a7 FOR XM ="累計(jì)折舊"</p><p>　　repl qcs with x1 FOR XM ="資產(chǎn)合計(jì)"</p><p>　　repl

116、qms with b1 FOR XM ="貨幣資金"</p><p>　　repl qms with b2 FOR XM ="預(yù)付款"</p><p>　　repl qms with b3 FOR XM ="應(yīng)收賬款"</p><p>　　repl qms with b4 FOR XM ="存貨

117、"</p><p>　　repl qms with b5 FOR XM ="待攤費(fèi)用"</p><p>　　repl qms with b6 FOR XM ="固定資產(chǎn)原值"</p><p>　　repl qms with b7 FOR XM ="累計(jì)折舊"</p><p>

118、;　　repl qms with y1 FOR XM ="資產(chǎn)合計(jì)"</p><p>　　repl qcs with a8 FOR XM ="短期借款"</p><p>　　repl qcs with a9 FOR XM ="應(yīng)付賬款"</p><p>　　repl qcs with a10 FOR XM

119、="其他應(yīng)付款"</p><p>　　repl qcs with a11 FOR XM ="應(yīng)付工資"</p><p>　　repl qcs with a12 FOR XM ="應(yīng)交稅金"</p><p>　　repl qcs with a13 FOR XM ="實(shí)收資本"</p&

120、gt;<p>　　repl qcs with a14 FOR XM ="未分配利潤(rùn)"</p><p>　　repl qcs with x2 FOR XM ="負(fù)債及股東權(quán)益合計(jì)"</p><p>　　repl qms with b8 FOR XM ="短期借款"</p><p>　　rep

121、l qms with b9 FOR XM ="應(yīng)付賬款"</p><p>　　repl qms with b10 FOR XM ="其他應(yīng)付款" </p><p>　　repl qms with b11 FOR XM ="應(yīng)付工資"</p><p>　　repl qms with b12 FOR XM =&

122、quot;應(yīng)交稅金"</p><p>　　repl qms with b13 FOR XM ="實(shí)收資本"</p><p>　　repl qms with b14 FOR XM ="未分配利潤(rùn)"</p><p>　　repl qms with y2 FOR XM ="負(fù)債及股東權(quán)益合計(jì)"</

123、p><p>　　@8,40 say a1</p><p>　　@10,40 say a2</p><p>　　@12,40 say a3 </p><p>　　@14,40 say a4</p><p>　　@16,40 say a5</p><p>　　@24,40 say a6</p>

124、;<p>　　@26,40 SAY a7</p><p>　　@34,34 say x1</p><p>　　@8,125 say a8</p><p>　　@10,125say a9</p><p>　　@12,125 say a10</p><p>　　@14,125 say a11</p&g

125、t;<p>　　@16,125 say a12</p><p>　　@18,125 say a15</p><p>　　@28,128 say a13</p><p>　　@30,128 say a14</p><p>　　@32,128 say a16</p><p>　　@34,128 say x2&

126、lt;/p><p>　　@8,70 say b1</p><p>　　@10,70 say b2 </p><p>　　@12,70 say b3</p><p>　　@14,70 say b4 </p><p>　　@16,70 say b5</p><p>　　@24,70 say b6<

127、/p><p>　　@26,70 SAY b7</p><p>　　@34,70 say y1</p><p>　　@8,145 say b8</p><p>　　@10,145 say b9</p><p>　　@12,145 say b10</p><p>　　@14,145 say b11<

128、;/p><p>　　@16,145 say b12</p><p>　　@18,145 say b15</p><p>　　@28,145 say b13</p><p>　　@30,145 say b14</p><p>　　@32,145 say b16</p><p>　　@34,145say

129、 y2</p><p>　　if y1=y2 or x1=x2</p><p>　　messagebox("資產(chǎn)負(fù)債表平衡!請(qǐng)退出!")</p><p><b>　　else</b></p><p>　　messagebox("資產(chǎn)負(fù)債表不平衡!請(qǐng)檢查!")</p>

130、<p><b>　　endif </b></p><p><b>　　select 1</b></p><p><b>　　use </b></p><p>　　set talk on </p><p><b>　　retu</b></p&

131、gt;<p><b>　　3、利潤(rùn)表格式設(shè)計(jì)</b></p><p><b>　　程序碼：</b></p><p>　　set talk off</p><p><b>　　clear</b></p><p><b>　　n=3</b><

132、;/p><p>　　a1="____________________________________________________________________________"</p><p>　　a2="| | |

133、"</p><p>　　a3="|_____________________________________________|_____________________________|"</p><p>　　@3,8 say a1</p><p><b>　　n=4</b></p><p>

134、;　　do while n<=34</p><p>　　@n,8 say a2</p><p>　　@n+1,8 say a3</p><p><b>　　n=n+2</b></p><p><b>　　endd</b></p><p>　　@0,50 say &quo

135、t;利潤(rùn)表"font"宋體",16</p><p>　　@2,12 say"編制單位"</p><p>　　@2,50 say "年 月 日"</p><p>　　@2,80 say "單位: 元 "</p><p>　　@4,20 say &qu

136、ot;項(xiàng)目"</p><p>　　@4,55 say "本月數(shù)"</p><p>　　@6,12 say "一、營(yíng)業(yè)收入"</p><p>　　@8,14 say "減: 營(yíng)業(yè)成本"</p><p>　　@10,16 say "營(yíng)業(yè)稅金及附加"</

137、p><p>　　@12,16 say "銷售費(fèi)用"</p><p>　　@14,16 say "管理費(fèi)用"</p><p>　　@16,16 say "財(cái)務(wù)費(fèi)用"</p><p>　　@18,16 say "資產(chǎn)減值損失"</p><p>　　

138、@20,14 say "加:公允價(jià)值變動(dòng)收益"</p><p>　　@22,16 say "投資收益"</p><p>　　@24,12 say "二、營(yíng)業(yè)利潤(rùn)"</p><p>　　@26,14 say "加:營(yíng)業(yè)外收入"</p><p>　　@28,14 sa

139、y "減: 營(yíng)業(yè)外支出"</p><p>　　@30,12 say "三、利潤(rùn)總額"</p><p>　　@32,16 say "減:所得稅費(fèi)用"</p><p>　　@34,12 say "四、凈利潤(rùn)"</p><p><b>　　4、利潤(rùn)表程序設(shè)計(jì)&

140、lt;/b></p><p><b>　　程序碼：</b></p><p>　　set talk off</p><p><b>　　clear </b></p><p>　　do e:\20109920422歐陽(yáng)一帆\利潤(rùn)表格式</p><p>　　store 0 t

141、o a,b,c,d,e,f,g,h,i,j,k,l,b1,b2,b3,b4,b5</p><p>　　kmdm1=space(4)</p><p><b>　　select 1</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\科目匯總表.dbf</p><p><b>　　select

142、 2</b></p><p>　　use e:\20109920422歐陽(yáng)一帆\利潤(rùn)表.dbf</p><p><b>　　select 1</b></p><p>　　sum bqdf to a for kmdm="6001".or.kmdm="6051"</p><p&

143、gt;　　sum bqjf to b for kmdm="6401".or.kmdm="64O2"</p><p>　　sum bqdf to c for kmdm="6403"</p><p>　　sum bqjf to d for kmdm="6601"</p><p>　　sum

144、bqjf to e for kmdm="6602"</p><p>　　sum bqjf to f for kmdm="6603"</p><p>　　sum bqjf to g for kmdm="6701"</p><p>　　sum bqjf to h for kmdm="6101"

145、;</p><p>　　sum bqdf to i for kmdm="6111"</p><p>　　sum bqdf to j for kmdm="6301"</p><p>　　sum bqjf to k for kmdm="6711"</p><p>　　sum bqjf t

146、o l for kmdm="6801"</p><p><b>　　b1=a</b></p><p>　　b2=b+c+d+e+f+g</p><p>　　b3=b1-b2+h+i</p><p><b>　　b4=b3+j-k</b></p><p>&