財(cái)務(wù)會計(jì)會計(jì)信息系統(tǒng)課程設(shè)計(jì)報(bào)告

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

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

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

4、。系統(tǒng)分析的 主要任務(wù)是將在系統(tǒng)詳細(xì)調(diào)查中所得到的文檔資料集中在一起， 對組織內(nèi)部整體 管理狀況和信息處理過程進(jìn)行分析。 它側(cè)重于從業(yè)務(wù)全過程的角度進(jìn)行分析。 分 析的主要內(nèi)容是：業(yè)務(wù)和數(shù)據(jù)的流程是否通暢，是否合理，數(shù)據(jù)、業(yè)務(wù)過程和實(shí) 現(xiàn)管理功能之間的關(guān)系， 原有系統(tǒng)管理模式改革和新系統(tǒng)管理方法的實(shí)現(xiàn)是否具 有可行性等。（1）、會計(jì)信息系統(tǒng)的可行性研究。 目的在于以最小的代價(jià)在盡可能短時(shí)間 內(nèi)解決問題。1、對系統(tǒng)開發(fā)進(jìn)行可行性分析。系統(tǒng)分析的第一步就是要論證系統(tǒng)開發(fā)的 可能性，做出可行性分析報(bào)告。2、詳細(xì)調(diào)查現(xiàn)行系統(tǒng)。系統(tǒng)分析的第二步就是對新會計(jì)信息系統(tǒng)的基礎(chǔ) 現(xiàn)行會計(jì)信息系統(tǒng)進(jìn)行詳細(xì)的調(diào)查，

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

6、達(dá)”。1、對現(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)的物理模型，基本符號及實(shí)例描述。 2、識別原有系統(tǒng)的 邏輯模型。 3、建立新系統(tǒng)的邏輯模型。 4、需求分析的明確表達(dá)：撰寫規(guī)格說明 書。四、會計(jì)信息系統(tǒng)的系統(tǒng)設(shè)計(jì)會計(jì)信息系統(tǒng)具有對信息的加工和傳遞功能。對財(cái)務(wù)信息的加工是通過會計(jì) 的活動而實(shí)現(xiàn)。系統(tǒng)設(shè)計(jì)也叫物理設(shè)計(jì)。系統(tǒng)設(shè)計(jì)是解決“怎么做”的問題，即 根據(jù)系統(tǒng)的邏輯模型進(jìn)行物理設(shè)計(jì)，包括系統(tǒng)配置設(shè)計(jì)、模塊結(jié)構(gòu)設(shè)計(jì)、數(shù)據(jù)及 文件設(shè)計(jì)、代碼設(shè)計(jì)

7、、人機(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ù)性。五、會計(jì)信息系統(tǒng)設(shè)計(jì)的意義隨著信息時(shí)代的到來，企業(yè)競爭日益加劇，這就要求企業(yè)對市場的反映更 及時(shí)、更準(zhǔn)確。為了及時(shí)把握市場，企業(yè)越來越需要管理信息，這已成為企業(yè)成 敗的關(guān)鍵，核算型系統(tǒng)提供信息的滯后性遠(yuǎn)不能滿足現(xiàn)代企業(yè)對信息的需求，因此管理型系統(tǒng)的產(chǎn)生即是必然。管理型會計(jì)信息系統(tǒng)是一個(gè)以計(jì)算機(jī)和信息處理 技術(shù)為手段，以管理會計(jì)的模型為基本方法，對企業(yè)中的內(nèi)部物流及外部變化信 息進(jìn)行收集、傳遞、存儲、加工、維護(hù)和使用的人機(jī)系統(tǒng)。它能解析企業(yè)的歷史 數(shù)

8、據(jù)并能預(yù)測未來，為企業(yè)管理中的結(jié)構(gòu)化、半結(jié)構(gòu)化和非結(jié)構(gòu)化的決策問題提 供信息支持，并利用系統(tǒng)反饋的信息幫助企業(yè)管理人員控制和管理企業(yè)的行為， 以實(shí)現(xiàn)加強(qiáng)經(jīng)營管理，提高經(jīng)濟(jì)效益的目的。管理型系統(tǒng)主要側(cè)重于資金、成本、 銷售收入、利潤的管理，用于實(shí)現(xiàn)對企業(yè)銷售收入、稅金、利潤的實(shí)現(xiàn)、提留、 上交的管理和控制，充分發(fā)揮會計(jì)信息系統(tǒng)的管理和控制職能。管理型財(cái)務(wù)軟件 以財(cái)務(wù)管理的效果反映企業(yè)的管理整體水平。 企業(yè)發(fā)展以企業(yè)盈利和現(xiàn)金流入為 基礎(chǔ)，通過財(cái)務(wù)分析和財(cái)務(wù)預(yù)測得出的財(cái)務(wù)指標(biāo)， 能準(zhǔn)確的計(jì)算出企業(yè)的盈利能 力，并由此反映企業(yè)管理的整體水平。從而加強(qiáng)對企業(yè)的管理，優(yōu)化管理結(jié)構(gòu)， 實(shí)現(xiàn)效益最大化。效果

9、展示圖目錄一、登陸界面設(shè)計(jì)二、表文件展示1、摘要庫2、科目代碼庫3、憑證庫三、數(shù)據(jù)庫展示四、程序設(shè)計(jì)（一）、憑證設(shè)計(jì)1、憑證格式設(shè)計(jì)2、憑證錄入設(shè)計(jì)3、憑證查詢設(shè)計(jì)（二）、科目代碼設(shè)計(jì)1、科目代碼查詢設(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、利潤表格式設(shè)計(jì)4、利潤表程序設(shè)計(jì)登陸界面設(shè)計(jì)、表文件展示1摘要庫2、科目代碼庫3、憑證庫M kroEot Visual I FikPd誨P 予I町董口 (Wl劇翕|擱創(chuàng)11!綁-翩腳創(chuàng)口底 團(tuán)墓|歳|韻1|7mi ：td1Z/VI/Z01Zfhneiz/vz/l? m”

10、1E/D3/LE OQ：jajs|.i j j.m.Lhadk s J .dd jj j.iii1Z/03/LE DQZ12/OVLZ (M3!iBa°r ikt vr nar aiaii ¥ 1270 V l> mi i±7m7l1! ' o' 卻面7廠丁 矽畫 £逅” 誦阿叵麗1 i2>&57ii rig?" iawif001;5凹m-ETOH-almlllg 亙靈也#.熱問訂««rt N101M 匱 THR ?。篒OE 牌行吟若lOW漓秤詳廉： 14 i.-l.lih-J Jd J

11、1.1 J 1.-I |X ”94J U I, LIZQM K晞話!> aa .<bbi jij ；1丄卜、i .iaBaaaii.iiu h i moE 鴻行禰需 1ZH11討旻*iFr*r siTrrrrr=esiisTiFTFr_r_m rrrrhtiii n r 1:01詞壹夫土':血鯨廡_I席處額匸福岳m(xù)e:iamani曆社躺妄岀12/09/1112/09/L2Ihu.iz/itVie 12/10/12 ia/j'i/ii1V1VL212/J£/L£a b.-WgLFex io阿.OD:lODOoa. ccIOCCO 00o noW I

12、TU. UDinto, od：moa.mu. UDL. LtU'rtju. uu：U. OULCIOCC.IKJ建訊ULLUJ；a. dbTI J環(huán)疇I煩| 幀建團(tuán).lot® .reLL UD10DC D. QD:LZ OCCO. ODBren nni釘業(yè)田時(shí)產(chǎn)梅囂甌血藝WS#"辿勢 暫匚i礙龜 酒韻-' '«> TH gA f f - 5 ODooMcn'OD.®OD一«olj«"T:；7:M犠阪m®*_潢購好 巴巴巴仇Q1五二 1rran4a 7二；4|1-UL囂一奩燉J:

13、I4 11;軸一胡埶弼I憑確鯨:吋loqoodo'niQa'rai.J<U. 0D三、數(shù)據(jù)庫展示四、程序設(shè)計(jì)（一）、憑證設(shè)計(jì)1憑證格式設(shè)計(jì)程序碼:set talk offclearn=1110,10 say aldo whil *=18n ,10 say a2n+1,10 say a3n=n+2en dd19,10 say a220,10 say a45,38 say " 記賬憑證 ” font "宋體",209,12 say "憑證類別："9,30 say "日期:"9,46 say "憑證

14、號;"9,66 say "附件張數(shù):"11,17 say "摘要”11,31 say "會計(jì)科目”11,49 say "11,68 say "19,17 say "21,12 say "借方金額”貸方金額”合計(jì)”記賬:"+space(12)+"審核:"+space(12)+"出納:"+space(12)+" 制單:"2、憑證錄入設(shè)計(jì)程序碼：set talk offdo e:20109920422 歐陽一帆憑證格式設(shè)計(jì).prgzy仁spa

15、c(3)zy2=spac(3)km仁 spac(20)km2=spac(20)摘要庫科目代碼庫dm1=spac(4) je1=0 dm2=spac(4) je2=0 pzlx1=" " rq1=spac(8) pzh1=spac(5) fjzs=" " xg="y" jx="y" do whil jx="y" do whil xg="y" 9,21 get pzlx1 9,36 get rq1 9,60 get pzh1 9,80 get fjzs read use e:20

16、109920422 歐陽一帆 13,15 get zy1 readloca for zy1=zynr 13,15 say zy1 zy2=zy1 use use e:20109920422 歐陽一帆 13,35 get dm1 13,50 get je1 readloca for dm1=kmdm if foun() 13,35 say kmmc km1=kmmc 13,50 say je1 endi 15,15 get zy2 15,35 get dm2 15,70 get je2 readloca for dm2=kmdm if foun() 15,35 say kmmc km2=kmmc

17、 15,70 say je2 endiuse 25,10 say" 是否修改 " get xgreadif xg="y"loopelseexitendiendduse e:20109920422 歐陽一帆 憑證庫appe blanwithrepl kmmcwith km1,kmdm with dm1,zy with zy1,jfje with je1,pzlx with pzlx1,rq rq1,pzh with pzh1appe blanwithrepl kmmcwith km2,kmdm with dm2,zy with zy2,dfje with

18、je2,pzlx with pzlx1,rq rq1,pzh with pzh1use26,10 say " 是否繼續(xù)輸入第二張憑證 " get jxread if jx="y" do e:20109920422 歐陽一帆 憑證格式 .prg xg="y"9,80 get pzh19,21 get pzlx19,36 get rq19,60 get fjzsloopelseexitendiendduse e:20109920422 歐陽一帆 憑證庫listuse set talk on return3、憑證查詢設(shè)計(jì)蕃 l'ic

19、rDscfl VItuaI f otPrdfiSgiF'：«Tt(Ol lam 悴爭円 BCiW 謹(jǐn)匕的血I昌妙I(lǐng) -也I日胡 叮兇屁ffi-m膺J茴I(lǐng)創(chuàng)E収目宓善-項(xiàng)目丄實(shí)Hffl茄nft證昌:麻憑證籍,坪Hl車遲膽一只就據(jù)岸釗岸Jir：l/b?Ex zlns L VC程序碼：set talk off clearuse e:20109920422 歐陽一帆憑證庫.dbf rq仁spac(8)pzh仁spac(3)pzlx1=spac(2)zyn r1=space(20)1,4 say "請輸入憑證日期:"get rq13,4 say "請輸入憑

20、證號:"get pzh15,4 say "請輸入憑證類型:"get pzlx1readif allt(DTOC(rq)=allt(dtoc(rq1).a nd.allt(pzh)=allt(pzh1).a nd.allt(pzlx)=allt(pzlx1)9,19 say pzlx19,40 say rq1 9,68 say pzh113,15 say zy13,45 say kmmc 13,76 say jfjeskip15,15 say zy15,45 say kmmc15,98 say dfjeelsemessagebox （"沒有符合條件的憑證&

21、quot;）en difset talk onreturn（二）科目代碼設(shè)計(jì)1、科目代碼查詢設(shè)計(jì)程序碼：set talk offuse "e:20109920422 歐陽一帆科目代碼庫.dbf" dm=space（4）do while .t.cleardo while .t.10,10 say"請輸入科目代碼” get dmreada=messageb（”請確認(rèn)輸入的科目代碼 ",4）if a=6locate for kmdm=dmexiten difen ddif eof（）15,15 say "對不起，你輸入的代碼不存在”else20,20

22、 say kmmcendia=messageb（"是否繼續(xù)查看",4）if a=7exitendien ddset talk onretu2、科目代碼匯總設(shè)計(jì)程序碼： set talk off clear a=0 b=0 ye=0 kmdm=space(8) select 1 use e:20109920422 歐陽一帆 憑證庫 .dbf select 2 use e:20109920422 歐陽一帆 科目匯總表 .dbf do while !eof() kmdm1=kmdm select 1 sum jfje to a for kmdm=kmdm1 sum dfje to

23、 b for kmdm =kmdm1 select 2 repla bqjf with a,bqdf with b ye=qcjf+bqjf-qcdf-bqdf if ye>=0 repla qmjf with ye else repla qmdf with ye*(-1) endif skip enddo list j1=0 d1=0 sum bqjf to j1 sum bqdf to d1 if j1=d1 messagebox(" 試算平衡 ") else messagebox(" 試算不平衡 , 請檢查 !") endif use sel

24、ect 1 use set talk on（三）日記賬設(shè)計(jì)1、現(xiàn)金日記賬程序碼：set talk offclearq1= spac(10)zy仁spac(4)pzh1=spac(3)jfje仁0dfje1=0ye 仁45401.25kmdm=spac(4)sele 1use e:20109920422 歐陽一帆憑證庫sele 2use e:20109920422 歐陽一帆 現(xiàn)金日記賬sele 1do whil!eof()if subs(kmdm,1,4)="1001"rq仁rqzy1=zypzh1=pzhjfje1=jfjedfje1=dfjesele 2ye1=yeski

25、p 1dele restpackappe blanwithrepl rq with rq1,zy with zy1, pzh with pzh1,jfje with jfje1,dfje with dfje1,ye ye1+jfje1-dfje1endisele 1skipenddusesele 2a=0b=0sum jfje to asum dfje to bappe blanrepl rq with A2012/12/13,zy with zy1 ,pzh with pzhljfje with a ,dfje with b ,yewith ye1+jfje1-dfje1listuseset

26、 talk onretu2、銀行日記賬程序碼：set talk off clea rq1= spac(10)zy仁spac(4)pzh1=spac(3)jfje仁0dfje1=0ye仁567023.83kmdm=spac(4)sele 1use e:20109920422 歐陽一帆憑證庫sele 2use e:20109920422 歐陽一帆 銀行日記賬sele 1do whil!eof()if subs(kmdm,1,4)="1002"rq仁rqzy1=zypzh1=pzhjfje1=jfjedfje1=dfjesele 2ye仁yeskip 1dele restpack

27、appe bla nrepl rq with rq1,zy with zy1,pzh with pzhljfjewith jfje1,dfje with dfje1,ye withye1+jfje1-dfje1endisele 1skipen ddusesele 2a=0b=0sum jfje to asum dfje to bappe bla nrepl rq withA2012/12/15,zywith zy1,jfje with a ,dfje with b ,ye withye1+jfje1-dfje1list useset talk onretu（四）報(bào)表設(shè)計(jì)1、資產(chǎn)負(fù)債表格式設(shè)計(jì)程

28、序碼：set talk offclean=3a1=" a2="| | | | | |"a3="|" 3,8 say a1 n=4do while n<=34n,8 say a2n+1,8 say a3n=n+2endd0,58 say " 資產(chǎn)負(fù)債表 " font " 宋體 ",162,12 say " 編制單位 "2,60 say " 年 月 日 "2,100 say " 單位： 元 "4,20 say " 資 產(chǎn) "

29、4,40 say " 期初余額 "4,70 say " 期末余額 "4,90say " 負(fù)債與股東權(quán)益 "4,125 say " 期初余額 "4,145say " 期末余額 "6,10 say " 流動資產(chǎn) "6,90 say " 流動負(fù)債 "8,12 say " 貨幣資金 "10,12 say " 預(yù)付帳款 "12,12 say " 應(yīng)收賬款 "14,12 say " 存貨 "

30、;16,10 say " 待攤費(fèi)用 "20,10 say " 非流動資產(chǎn) "20,12 say " 長期股權(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,90say " 其他應(yīng)付款 "14,90 SAY &q

31、uot; 應(yīng)付工資 "16,90 SAY " 應(yīng)交稅金 "18,90 say " 應(yīng)付股利 "20,90 say " 非流動負(fù)債 "22,90 say " 長期借款 "24,90 say " 所有者權(quán)益 "26,90 say " 實(shí)收資本 "28,90say " 資本公積 "30,90say " 盈余公積 "32,90 say " 未分配利潤 "34,90say " 負(fù)債及股東權(quán)益合計(jì)2、資金負(fù)債

32、表程序設(shè)計(jì)程序碼：set talk offcleardo e:20109920422 歐陽一帆資產(chǎn)負(fù)債表格式hs=space(2)kmdm1=space(4)select 1use e:20109920422 歐陽一帆 科目匯總表.dbfselect 2use e:20109920422 歐陽一帆資產(chǎn)負(fù)債表.dbfselect 1sum qcjf to a1 for kmdm="1001".or.kmdm="1002".or.kmdm="1012"sum qcjf to a2 for kmdm="1123"sum

33、qcjf to a3 for kmdm="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 f

34、or kmdm="2202"sum 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 kmd

35、m="4101" x2=a8+a9+a10+a11+a12+a13-a14+a15+a16 sum 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 qm

36、jf to b5 for kmdm="1801" sum qmjf to b6 for kmdm="1601" sum qmdf to b7 for kmdm="1602" y1=b1+b2+b3+b4+b5+b6-b7 sum 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

37、" sum qmdf to b12 for kmdm="2221" 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+b16 select 2 pack貨幣資金 " 預(yù)付賬款 "應(yīng)收賬款

38、" 存貨 " 待攤費(fèi)用 " 固定資產(chǎn)原值 " 累計(jì)折舊 " 資產(chǎn)合計(jì) " 貨幣資金 " 預(yù)付款 " 應(yīng)收賬款 " 存貨 " 待攤費(fèi)用 " 固定資產(chǎn)原值 " 累計(jì)折舊 " 資產(chǎn)合計(jì) "repl qcs with a1 FOR XM =" repl qcs with a2 FOR XM=" repl qcs with a3 FOR XM =" repl qcs with a4 FOR XM =" repl qcs wit

39、h a5 FOR XM =" repl qcs with a6 FOR XM =" repl qcs with a7 FOR XM =" repl qcs with x1 FOR XM =" repl qms with b1 FOR XM =" repl qms with b2 FOR XM =" repl qms with b3 FOR XM =" repl qms with b4 FOR XM =" repl qms with b5 FOR XM =" repl qms with b6 FOR XM

40、=" repl qms with b7 FOR XM =" repl qms with y1 FOR XM ="短期借款 "應(yīng)付賬款 " 其他應(yīng)付款 " 應(yīng)付工資 " 應(yīng)交稅金 " 實(shí)收資本 " 未分配利潤 " 負(fù)債及股東權(quán)益合計(jì) 短期借款 "應(yīng)付賬款 " 其他應(yīng)付款 " 應(yīng)付工資 " 應(yīng)交稅金 " 實(shí)收資本 " 未分配利潤 "負(fù)債及股東權(quán)益合計(jì)repl qcs with a8 FOR XM =" repl qcs

41、with a9 FOR XM =" repl qcs with a10 FOR XM =" repl qcs with a11 FOR XM =" repl qcs with a12 FOR XM =" repl qcs with a13 FOR XM =" repl qcs with a14 FOR XM =" repl qcs with x2 FOR XM =" repl qms with b8 FOR XM =" repl qms with b9 FOR XM =" repl qms with b1

42、0 FOR XM =" repl qms with b11 FOR XM =" repl qms with b12 FOR XM =" repl qms with b13 FOR XM =" repl qms with b14 FOR XM =" repl qms with y2 FOR XM =" 8,40 say a1 10,40 say a2 12,40 say a3 14,40 say a4 16,40 say a5 24,40 say a6 26,40 SAY a7 34,34 say x1 8,125 say a8 10,

43、125say a9 12,125 say a10 14,125 say a11 16,125 say a12 18,125 say a15 28,128 say a13 30,128 say a14 32,128 say a16 34,128 say x2 8,70 say b1 10,70 say b2 12,70 say b3 14,70 say b4 16,70 say b5 24,70 say b6 26,70 SAY b7 34,70 say y1 8,145 say b810,145 say b912,145 say b1014,145 say b1116,145 say b121

44、8,145 say b1528,145 say b1330,145 say b1432,145 say b16 34,145say y2 if y1=y2 or x1=x2 messagebox（" 資產(chǎn)負(fù)債表平衡 ! 請退出 !"） elsemessagebox（" 資產(chǎn)負(fù)債表不平衡 ! 請檢查 !"） endifselect 1useset talk on retu3、利潤表格式設(shè)計(jì)程序碼：set talk offclearn=3a1="'a2="|"a3="|"3,8 say aln=4do

45、 while n<=34n,8 say a2n+1,8 say a3n=n+2en dd0,50 say "利潤表 ”font" 宋體",162,12 say"編制單位"2,50 say "年 月 日”2,80 say "單位：元”4,20 say "項(xiàng)目”4,55 say "本月數(shù)”6,12 say " 一、營業(yè)收入”8,14 say "減：營業(yè)成本”10,16 say "營業(yè)稅金及附加”12,16 say "銷售費(fèi)用"14,16 say &quo

46、t;管理費(fèi)用”16,16 say "財(cái)務(wù)費(fèi)用"18,16 say "資產(chǎn)減值損失”20,14 say "加：公允價(jià)值變動收益"22,16 say "投資收益"24,12 say "二、營業(yè)利潤”26,14 say "加:營業(yè)外收入”28,14 say "減：營業(yè)外支出”30,12 say "三、利潤總額”32,16 say "減：所得稅費(fèi)用”34,12 say "四、凈利潤"4、利潤表程序設(shè)計(jì)程序碼： set talk off clear do e:20109920422 歐陽一帆 利潤表格式 store 0 to a,b,c,d,e,f,g,h,i,j,k,l,b1,b2,b3,b4,b5 kmdm1=space(4) select 1