會計信息系統(tǒng)設(shè)計報告

1、南華大學(xué)板會計信息系統(tǒng)課頒程設(shè)計報告一、概述背根據(jù)會計信息系靶統(tǒng)課程開發(fā)設(shè)計巴的要求，我們參皚加了學(xué)院組織的胺為期一周的會計艾信息系統(tǒng)課程設(shè)傲計實踐。在這個吧過程中我更加深柏入的了解到了會絆計信息系統(tǒng)這門霸課程。板根據(jù)系統(tǒng)生命周吧期法，完成了系俺統(tǒng)的系統(tǒng)分析任胺務(wù)和設(shè)計任務(wù)。靶以下就是我的課靶程設(shè)計報告。凹二、會計信息系岸統(tǒng)的開發(fā)懊21世紀是信息懊化的時代，經(jīng)濟白的信息化關(guān)鍵是挨經(jīng)濟的信息化，案而信息化建設(shè)中霸的90%的信息靶來源于會計信息敗，會計信息絕大唉多數(shù)是由會計信爸息系統(tǒng)提供的。白隨著計算機和信拜息技術(shù)的廣泛應(yīng)暗用，會計工作經(jīng)瓣歷了從手工到會耙計信息化這一發(fā)澳展過程。會計信笆息系統(tǒng)的建

2、設(shè)將罷為經(jīng)營管理、控笆制決策和經(jīng)營運骯行提供充足、實礙時、全方位的信捌息。拌會計信息系統(tǒng)是跋一個面向企業(yè)價半值的信息系統(tǒng)，案是從對企業(yè)伴價值運動進行反叭應(yīng)和監(jiān)督的角度笆提出信息處理和唉管理需求的信息擺系統(tǒng)。它是利用搬信息技術(shù)隊會計瓣數(shù)據(jù)進行采集、柏儲存和處理，完擺成會計核算任務(wù)俺，并提供會計管唉理、分析、決策百所需的輔助信息把的系統(tǒng)。唉在ERP環(huán)境下胺，會計信息系統(tǒng)柏不是一個獨立的翱子系統(tǒng)，其大部柏分功能已經(jīng)拌融入ERP系統(tǒng)昂，會計工作中常隘規(guī)的、可程序化艾的任務(wù)都將由各翱個功能模塊和會般計功能模塊自動埃處理，同時軟件矮系統(tǒng)還會幫助會叭計人員完成許多俺內(nèi)部控制等管理哎任務(wù)。安信息系統(tǒng)開發(fā)的扮目

3、標是以較少的昂投資在較短時向辦獲得一個使用、傲高效、可靠、易白維護的系統(tǒng)。軟案件工程就是研究凹如何運用科學(xué)的柏方法和手段去達鞍到這個目標。耙會計信息系統(tǒng)的盎開發(fā)是指研制和白建立一個經(jīng)濟有拔效的會計信息系骯統(tǒng)。其開發(fā)的目哎 白標是改善和提高邦企業(yè)的經(jīng)濟管理稗現(xiàn)代化水平；提澳高會計信息來源唉的準確性；為企稗業(yè)及上級提供俺準確及時和全面靶的各種財務(wù)報表叭；加快財會計劃八和計算機輔助財埃務(wù)決策工作，促唉使會計決策科學(xué)癌化，以提高企業(yè)挨經(jīng)濟效益。熬三、會計信息系扮統(tǒng)的系統(tǒng)分析鞍系統(tǒng)分析階段的艾基本任務(wù)是：系藹統(tǒng)分析員與用戶把在一起，充分了八解用戶的要求，皚并把雙方的理解澳用系統(tǒng)說明書表凹達出來。統(tǒng)分析鞍

4、是研制信息系統(tǒng)芭最重要的階段，唉也是最困難的階隘段。系統(tǒng)分析要疤回答新系統(tǒng)凹“胺做什么疤”藹這個關(guān)鍵性的問凹題。只有明確了稗問題，才有可能拜解決問題；否則盎，方向不明，無百的放矢。系統(tǒng)分絆析的主要任務(wù)是把將在系統(tǒng)詳細調(diào)把查中所得到的文盎檔資料集中在一隘起，對組織內(nèi)部捌整體管理狀況和翱信息處理過程進佰行分析。它側(cè)重埃于從業(yè)務(wù)全過程扒的角度進行分析壩。分析的主要內(nèi)半容是：業(yè)務(wù)和數(shù)背據(jù)的流程是否通捌暢，是否合理，安數(shù)據(jù)、業(yè)務(wù)過程哀和實現(xiàn)管理功能挨之間的關(guān)系，原安有系統(tǒng)管理模式靶改革和新系統(tǒng)管凹理方法的實現(xiàn)是斑否具有可行性等昂。扮（百1般）巴、會計信息系統(tǒng)罷的可行性研究。霸目的在于以最小搬的代價在盡可

5、能百短時間內(nèi)解決問拜題。澳1、對系統(tǒng)開發(fā)般進行可行性分析啊。系統(tǒng)分析的第哀一步就是要論證敖系統(tǒng)開發(fā)的可能拜性，做出可行性胺分析報告。叭2、詳細調(diào)查現(xiàn)背行系統(tǒng)。系統(tǒng)分班析的第二步就是皚對新會計信息系阿統(tǒng)的基礎(chǔ)挨疤現(xiàn)行會計信息系拔統(tǒng)進行詳細的調(diào)奧查，搞清現(xiàn)行會澳計信息系統(tǒng)的邊翱界、組織機構(gòu)、霸人員分工、業(yè)務(wù)隘流程、各種帳、爸證、表的格式、辦種類即處理過程柏。邦3、描述現(xiàn)行系澳統(tǒng)。在進行詳細白系統(tǒng)調(diào)查的基礎(chǔ)絆上，用規(guī)定的圖挨表、文字描述線拔性系統(tǒng)，得出現(xiàn)吧行會計信息系統(tǒng)搬的邏輯模型。唉4、分析用戶的翱要求，改進現(xiàn)行暗模型，形成新系翱統(tǒng)邏輯模型。對疤現(xiàn)行會計信息系絆統(tǒng)的邏輯模型進澳行分析，根據(jù)計霸算機

6、的特點，改般進舊模型中不合霸理之處，增設(shè)新把的功能，得出新盎系統(tǒng)的邏輯模型藹，包括建立新系皚統(tǒng)的數(shù)據(jù)流圖，案規(guī)定新系統(tǒng)的數(shù)拌據(jù)存儲策略、輸罷入輸出格式、運壩行環(huán)境和系統(tǒng)的懊性能。把（拔2阿）把、會計信息系統(tǒng)芭的需求分析。需盎求分析是生命周耙期模型中的關(guān)鍵拔步驟。需求分析斑的主要任務(wù)：鞍“辦理解頒”哎和凹“辦表達懊”傲。1、對現(xiàn)有系柏統(tǒng)的詳細調(diào)查和懊描述：包括收集捌原系統(tǒng)的各種單矮據(jù)、賬簿、報表疤等的樣本，了解百原有系統(tǒng)的組織啊結(jié)構(gòu)、信息流程敗、信息量、信息白處理步驟和結(jié)果吧、資源利用現(xiàn)狀啊、管理方式以及捌系統(tǒng)的內(nèi)外部環(huán)斑境，導(dǎo)出原有系奧統(tǒng)的物理模型，巴基本符號及實例疤描述。2、識別岸原有系統(tǒng)的

7、邏輯胺模型。3、建立皚新系統(tǒng)的邏輯模耙型。4、需求分搬析的明確表達：笆撰寫規(guī)格說明書癌。疤四、會計信息系埃統(tǒng)的系統(tǒng)設(shè)計艾會計信息系統(tǒng)具背有對信息的加工艾和傳遞功能。對俺財務(wù)信息的加工愛是通過會計的活翱動而實現(xiàn)。拌系統(tǒng)設(shè)計也叫物啊理設(shè)計。俺系統(tǒng)設(shè)計是解決靶“柏怎么做安”瓣的問題，即根據(jù)矮系統(tǒng)的邏輯模型隘進行傲物理設(shè)計，包括搬系統(tǒng)配置設(shè)計、爸模塊結(jié)構(gòu)設(shè)計、靶數(shù)據(jù)及文件設(shè)計暗、代碼設(shè)計、人百機界面設(shè)計、內(nèi)罷部控制設(shè)計、算八法設(shè)計、系統(tǒng)安氨全設(shè)計。系統(tǒng)設(shè)敗計的目標是保證艾實現(xiàn)系統(tǒng)功能的扳前提下盡量提高愛系統(tǒng)的工作質(zhì)量扳、運行效率、可伴靠性和可維護性疤。皚五、會計信息系瓣統(tǒng)設(shè)計的意義奧 伴隨著信息時代的

8、熬到來，企業(yè)競爭把日益加劇，這就版要求企業(yè)對市場凹的反映更及時、愛更準確。為了及案時把握市場，企阿業(yè)越來越需要管版理信息，這已成拔為企業(yè)成敗的關(guān)稗鍵，核算型系統(tǒng)俺提供信息的滯后爸性遠不能滿足現(xiàn)背代企業(yè)對信息的拜需求，因此管理藹型系統(tǒng)的產(chǎn)生即半是必然。管理型唉會計信息系統(tǒng)是胺一個以計算機和按信息處理技術(shù)為百手段，以管理會礙計的模型為基本半方法，對企業(yè)中跋的內(nèi)部物流及外叭部變化信息進行敖收集、傳遞、存拔儲、加工、維護瓣和使用的人機系柏統(tǒng)。隘它哎能解析企業(yè)的歷伴史數(shù)據(jù)并能預(yù)測百未來，為企業(yè)管啊理中的結(jié)構(gòu)化、伴半結(jié)構(gòu)化和非結(jié)扳構(gòu)化的決策問題埃提供信息支持，斑并利用系統(tǒng)反饋爸的信息幫助企業(yè)礙管理人員控制

9、和稗管理企業(yè)的行為吧，以實現(xiàn)加強經(jīng)疤營管理，提高經(jīng)唉濟效益的目的。笆管理型系統(tǒng)主要邦側(cè)重于資金、成澳本、銷售收入、岸利潤的管理，用搬于實現(xiàn)對企業(yè)銷爸售收入、稅金、半利潤的實現(xiàn)、提頒留、上交的管理搬和控制，充分發(fā)白揮會計信息系統(tǒng)懊的管理和控制職般能。管理型財務(wù)鞍軟件以財務(wù)管理壩的效果反映企業(yè)罷的管理整體水平阿。企業(yè)發(fā)展以企昂業(yè)盈利和現(xiàn)金流哀入為基礎(chǔ)，通過笆財務(wù)分析和財務(wù)奧預(yù)測得出的財務(wù)壩指標，能準確的案計算出企業(yè)的盈氨利能力，并由此矮反映企業(yè)管理的岸整體水平。跋從而加強對企業(yè)斑的管理，優(yōu)化管扮理結(jié)構(gòu)，實現(xiàn)效伴益最大化。效果展示圖目錄登陸界面設(shè)計表文件展示摘要庫科目代碼庫憑證庫數(shù)據(jù)庫展示程序設(shè)計拌

10、（一）、憑證設(shè)絆計拜1、憑證格式設(shè)斑計扮2、憑證錄入設(shè)絆計哀3、憑證查詢設(shè)白計瓣（二）、科目代捌碼設(shè)計翱1、科目代碼查藹詢設(shè)計八2、科目代碼匯班總設(shè)計把（三）、日記賬板設(shè)計1、現(xiàn)金日記賬2、銀行日記賬伴（四）、報表設(shè)般計伴1、資產(chǎn)負債表唉格設(shè)計扒2、資產(chǎn)負債程昂序設(shè)計扒3、利潤表格式艾設(shè)計白4、利潤表程序案設(shè)計登陸界面設(shè)計二、表文件展示摘要庫科目代碼庫憑證庫三、數(shù)據(jù)庫展示程序設(shè)計傲（一）、憑證設(shè)耙計把1、憑證格式設(shè)阿計程序碼：拔set tal邦k offclearn=11拜a1= _跋_案_板_艾_愛_岸_翱_岸_胺_俺_敗a2=| 扒 皚 |啊 案 柏 | 埃 佰 |案 拜 氨 扒 | 澳

11、般 暗a3=|_笆_艾_|疤_辦_頒_|_唉_胺_|岸_胺_芭_|骯捌a4=|_班_挨_|案_擺_擺_|_把_鞍_|拜_爸_盎_|扒癌10,10 板say a1跋do whil胺 n=斑0阿repla q礙mjf wit柏h yeelse柏repla q澳mdf wit邦h ye*(-熬1)endifskipenddolistj1=0d1=0矮sum bqj骯f to j1挨sum bqd胺f to d1辦if j1=d班1百message奧box(試算瓣平衡)else柏message瓣box(試算巴不平衡,請檢查哎!)endifuse骯select 哎1use艾set tal埃k on斑（三

12、）日記賬設(shè)稗計1、現(xiàn)金日記賬埃程序碼：壩set tal按k offclea拜rq1=spa半c(10)絆zy1=spa昂c(4)半pzh1=sp伴ac(3)jfje1=0dfje1=0熬ye1=454愛01.25頒kmdm=sp靶ac(4)sele 1擺use e:敗88襖憑證庫sele 2爸use e:胺88哎現(xiàn)金日記賬sele 1耙do whil霸!eof()般if subs奧(kmdm,1板,4)=10安01rq1=rqzy1=zy跋pzh1=pz芭h扮jfje1=j皚fje矮dfje1=d襖fjesele 2ye1=yeskip 1靶dele re版stpack氨appe bl隘an昂

13、repl rq半 with r笆q1,zy w百ith zy1澳, pzh w凹ith pzh按1,jfje 邦with jf挨je1,dfj扳e with 百dfje1,y吧e 隘with ye胺1+jfje1哎-dfje1endisele 1skipenddusesele 2a=0b=0佰sum jfj按e to a矮sum dfj芭e to b埃appe bl愛an澳repl rq白 with 鞍2012/1罷2/13,z啊y with 扒zy1 ,pz挨h with 疤pzh1,jf埃je with版 a ,dfj佰e with 骯b ,ye w癌ith ye1靶+jfje1-稗dfj

14、e1listuse拜set tal板k onretu2、銀行日記賬程序碼：搬set tal絆k offclea俺rq1=spa拔c(10)哀zy1=spa耙c(4)敗pzh1=sp翱ac(3)jfje1=0dfje1=0艾ye1=567唉023.83艾kmdm=sp巴ac(4)sele 1捌use e:傲88翱憑證庫sele 2胺use e:隘88阿銀行日記賬sele 1哀do whil白!eof()啊if subs半(kmdm,1邦,4)=10氨02rq1=rqzy1=zy鞍pzh1=pz奧h澳jfje1=j板fje盎dfje1=d挨fjesele 2ye1=yeskip 1板dele re

15、按stpack絆appe bl翱an唉repl rq罷 with r傲q1,zy w捌ith zy1佰,pzh wi罷th pzh1巴,jfje w百ith jfj吧e1,dfje艾 with d斑fje1,ye跋 with y骯e1+jfje叭1-dfje1endisele 1skipenddusesele 2a=0b=0霸sum jfj八e to a傲sum dfj阿e to b斑appe bl拜an拜repl rq白 with 扮2012/1佰2/15,z柏y with 半zy1,jfj安e with 奧a ,dfje班 with b拔 ,ye wi板th ye1+邦jfje1-d巴fj

16、e1listuse伴set tal傲k onretu（四）報表設(shè)計奧1、資產(chǎn)負債表礙格式設(shè)計程序碼：矮set tal翱k off clean=3稗a1=_案_百_背_阿_懊_笆_傲_跋_癌_般_昂_襖_伴_斑_八_阿_八_氨_骯_壩_敖_愛_哎a2=| 奧 案 埃 懊 |扮 稗 埃 罷 | 罷 伴 懊 | 靶 胺 耙 安 |熬 礙 按 霸 | 稗 般 瓣 |板扒a3=|_礙_吧_疤_白_|隘_八_耙_胺_|_熬_敗_敖_|_翱_稗_跋_版_|傲_襖_傲_擺_|_襖_啊_愛_|跋稗3,8 sa頒y a1n=4氨do whil邦e n=34板n,8 sa扳y a2巴n+1,8 佰say a3n=n

17、+2endd按0,58 s捌ay 資產(chǎn)負鞍債表 fon斑t 宋體,吧16班2,12 s霸ay 編制拜單位擺2,60 s版ay 年 安月 日胺2,100 矮say 單位頒： 元傲4,20 s岸ay 資 案 產(chǎn)扒4,40 s班ay 期初余把額叭4,70 s擺ay 期末余藹額吧4,90sa阿y 負債與股唉東權(quán)益懊4,125 半say 期初八余額啊4,145s跋ay 期末余鞍額板6,10 s安ay 流動資般產(chǎn)扮6,90 s巴ay 流動負拔債扮8,12 s板ay 貨幣資埃金爸10,12 捌say 預(yù)付熬帳款凹12,12 骯say 應(yīng)收斑賬款柏14,12 捌say 存貨拔唉16,10 氨say 待攤斑費用

18、斑20,10 懊say 非流按動資產(chǎn)芭20,12 藹say 長期胺股權(quán)投資柏22,12 安say 固定擺資產(chǎn)案24,12 阿SAY 固定熬資產(chǎn)原值伴26,12 啊SAY 減:百累計折舊百34,14 百say 資產(chǎn)傲總計瓣8,90sa跋y 短期借款吧暗10,90 敗say 應(yīng)付靶帳款百12,90s胺ay 其他應(yīng)扳付款捌14,90 辦SAY 應(yīng)付愛工資熬16,90 襖SAY 應(yīng)交佰稅金斑18,90 靶say 應(yīng)付半股利懊20,90 案say 非流哀動負債壩22,90 案say 長期懊借款澳24,90 啊say 所有鞍者權(quán)益案26,90 哀say 實收熬資本敗28,90s愛ay 資本公懊積耙30,9

19、0s胺ay 盈余公邦積爸32,90 霸say 未分矮配利潤般34,90s澳ay 負債及八股東權(quán)益合計巴2、資金負債表敗程序設(shè)計程序碼:俺set tal岸k offclear拜do e:伴88耙資產(chǎn)負債表格耙式矮hs=spac傲e(2)奧kmdm1=s盎pace(4)胺select 唉1胺班use e:敗88傲科目匯總表.胺dbf氨select 澳2百use e:斑88擺資產(chǎn)負債表.傲dbf 藹select 敗1佰sum qcj白f to a1跋 for km般dm=100八1.or.k癌mdm=10半02.or.搬kmdm=1敗012芭sum qcj扳f to a2熬 for km絆dm=11

20、2熬3盎sum qcj扳f to a3骯 for km扮dm=112骯2擺sum qcj瓣f to a4按 for km頒dm=140盎5.or.k氨mdm=14柏03扒sum qcj扳f to a5盎 for km耙dm=180背1辦sum qcj礙f to a6吧 for km版dm=160吧1白sum qcd拔f to a7斑 for km阿dm=160芭2澳x1=a1+a伴2+a3+a4八+a5+a6-翱a7笆sum qcd扮f to a8背 FOR km邦dm=200翱1拌sum qcd哎f to a9熬 for km辦dm=220奧2搬sum qcd愛f to a1柏0 for k

21、辦mdm=22傲41澳sum qcd版f to a1拌1 for k凹mdm=22絆11 頒 奧sum qcd敖f to a1骯2 for k骯mdm=22叭21扳sum qcd啊f to a1拜3 for k挨mdm=40胺01佰sum qcj疤f to a1斑4 for k瓣mdm=41班0401笆sum qcd襖f to a1搬5 for k佰mdm=22啊32背sum qcd佰f to a1靶6 for k搬mdm=41艾01埃x2=a8+a擺9+a10+a擺11+a12+邦a13-a14頒+a15+a1敗6艾sum qmj皚f to b1八 for km爸dm=100罷1.or.k扮

22、mdm=10背02.or.埃kmdm=1耙012把sum qmj哀f to b2挨 for km把dm=112伴3般sum qmj唉f to b3把 for km拌dm=112埃2柏sum qmj爸f to b4骯 for km敖dm=140吧5.or.k八mdm=14俺03哎sum qmj懊f to b5罷 for km敖dm=180巴1拌sum qmj愛f to b6斑 for km胺dm=160埃1鞍sum qmd昂f to b7唉 for km罷dm=160斑2笆y1=b1+b把2+b3+b4暗+b5+b6-百b7頒sum qmd絆f to b8藹 for km笆dm=200稗1扒su

23、m qmd叭f to b9扮 for km拌dm=220俺2辦sum qmd氨f to b1白0 for k爸mdm=22藹41頒sum qmd百f to b1奧1 for k隘mdm=22藹11藹sum qmd澳f to b1胺2 for k敗mdm=22跋21埃sum qmd吧f to b1背3 for k辦mdm=40藹01拌sum qmj稗f to b1佰4 for k按mdm=41搬0401鞍sum qmd搬f to b1襖5 for k澳mdm=22隘32挨sum qmd案f to b1斑6 for k艾mdm=41礙01啊y2=b7+b氨8+b9+b1癌0+b11+b澳12+b1

24、3-癌b14+b15俺+b16疤select 胺2pack罷repl qc按s with 阿a1 FOR 半XM =貨幣敗資金熬repl qc拌s with 胺a2 FOR 擺XM=預(yù)付賬般款拌repl qc瓣s with 版a3 FOR 爸XM =應(yīng)收芭賬款把repl qc斑s with 罷a4 FOR 稗XM =存貨骯邦repl qc絆s with 懊a5 FOR 柏XM =待攤吧費用扮repl qc叭s with 啊a6 FOR 扮XM =固定傲資產(chǎn)原值邦repl qc柏s with 八a7 FOR 埃XM =累計案折舊疤repl qc稗s with 瓣x1 FOR 扮XM =資產(chǎn)般合計

25、盎repl qm拜s with 按b1 FOR 伴XM =貨幣哀資金艾repl qm鞍s with 案b2 FOR 礙XM =預(yù)付耙款埃repl qm爸s with 安b3 FOR八 XM =應(yīng)昂收賬款暗repl qm岸s with 挨b4 FOR 叭XM =存貨哎唉repl qm阿s with 稗b5 FOR 擺XM =待攤半費用哎repl qm半s with 隘b6 FOR 矮XM =固定懊資產(chǎn)原值笆repl qm俺s with 扮b7 FOR 頒XM =累計奧折舊凹repl qm壩s with 罷y1 FOR 芭XM =資產(chǎn)跋合計巴repl qc凹s with 搬a8 FOR 靶XM =

26、短期按借款瓣repl qc罷s with 頒a9 FOR 班XM =應(yīng)付拜賬款把repl qc笆s with 罷a10 FOR般 XM =其凹他應(yīng)付款拌repl qc柏s with 安a11 FOR矮 XM =應(yīng)敖付工資擺repl qc矮s with 敖a12 FOR邦 XM =應(yīng)扒交稅金澳repl qc艾s with 背a13 FOR霸 XM =實捌收資本啊repl qc伴s with 傲a14 FOR扳 XM =未靶分配利潤耙repl qc骯s with 芭x2 FOR懊 XM =負拌債及股東權(quán)益合凹計拔repl qm百s with 啊b8 FOR吧 XM =短胺期借款澳repl qm愛s

27、 with 耙b9 FOR 熬XM =應(yīng)付隘賬款暗repl qm頒s with 佰b10 FOR絆 XM =其按他應(yīng)付款 癌repl qm哀s with 耙b11 FOR白 XM =應(yīng)俺付工資笆repl qm盎s with 氨b12 FOR柏 XM =應(yīng)搬交稅金芭repl qm暗s with 吧b13 FOR佰 XM =實懊收資本氨repl qm岸s with 襖b14 FOR敗 XM =未柏分配利潤胺repl qm胺s with 艾y2 FOR 傲XM =負債凹及股東權(quán)益合計芭邦8,40 s熬ay a1凹10,40 背say a2罷12,40 頒say a3 佰14,40 哎say a4安1

28、6,40 癌say a5翱24,40 班say a6班26,40 鞍 SAY a7案34,34 拔say x1鞍8,125 爸say a8澳10,125艾say a9柏12,125敖 say a1頒0拔14,125扒 say a1敗1班16,125霸 say a1芭2捌18,125岸 say a1版5澳28,128扳 say a1斑3邦30,128安 say a1擺4白32,128拜 say a1罷6艾34,128拜 say x2扮8,70 s俺ay b1鞍10,70 敖say b2 壩12,70 捌say b3爸14,70 礙say b4 啊16,70 安say b5奧24,70 般say

29、b6岸26,70 啊SAY b7板34,70 按say y1鞍8,145 胺say b8半10,145傲 say b9昂12,145辦 say b1俺0凹14,145敖 say b1靶1白16,145哀 say b1頒2拜18,145熬 say b1笆5捌28,145氨 say b1皚3熬30,145矮 say b1頒4壩32,145阿 say b1背6挨34,145氨say y2傲if y1=y半2 or x1捌=x2藹message邦box(資產(chǎn)澳負債表平衡!請懊退出!)else搬message岸box(資產(chǎn)巴負債表不平衡!翱請檢查!)endif 胺select 伴1use 拜set ta

30、l拔k on retu藹3、利潤表格式扳設(shè)計程序碼：哀set tal稗k offclearn=3翱a1=_氨_拌_擺_襖_班_班_昂_哀_耙_柏_邦_班a2=| 艾 拔 癌 襖 伴 半 霸 | 頒 拌 阿 骯 |盎a3=|_安_巴_俺_版_疤_敖_胺_|_隘_胺_岸_扒_|板3,8 sa頒y a1n=4壩do whil皚e n=34拔n,8 sa壩y a2捌n+1,8 翱say a3n=n+2endd拌0,50 s吧ay 利潤表扮font宋敖體,16癌2,12 s百ay編制單位翱熬2,50 s氨ay 年 版月 日巴2,80 s傲ay 單位:邦 元 跋4,20 s搬ay 項目耙4,55 s笆ay

31、 本月數(shù)哎敖6,12 s熬ay 一、營藹業(yè)收入敗8,14 s礙ay 減: 盎營業(yè)成本啊10,16 巴say 營業(yè)班稅金及附加岸12,16 頒say 銷售稗費用隘14,16 笆say 管理拜費用靶16,16 澳say 財務(wù)罷費用班18,16 翱say 資產(chǎn)敗減值損失罷20,14 罷say 加:按公允價值變動收巴益班22,16 拔say 投資頒收益岸24,12 埃say 二、稗營業(yè)利潤阿26,14 藹say 加:挨營業(yè)外收入藹28,14 阿say 減:芭 營業(yè)外支出拜30,12 擺say 三、阿利潤總額百32,16 搬say 減:皚所得稅費用瓣34,12 埃say 四、昂凈利潤澳4、利潤表程序把設(shè)

32、計程序碼：扮set tal俺k offclear 案do e:背88敖利潤表格式案store 0罷 to a,b白,c,d,e,藹f,g,h,i巴,j,k,l,搬b1,b2,b矮3,b4,b5背kmdm1=s愛pace(4)絆select 斑1佰use e:礙88搬科目匯總表.吧dbf愛select 唉2背use e:板88奧利潤表.db八f背select 胺1拔sum bqd矮f to a 俺for kmd佰m=6001壩.or.km伴dm=605般1拌sum bqj鞍f to b 邦for kmd佰m=6401岸.or.km罷dm=64O版2靶sum bqd懊f to c 敖for kmd奧m=6403拌氨sum bqj搬f to d 敗for kmd阿m=6601癌敖sum bqj唉f