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

1、目 錄一、 會計(jì)信息系統(tǒng)課程設(shè)計(jì)概述1.1基本概述1.2系統(tǒng)模塊劃分1.3數(shù)據(jù)流圖1.4系統(tǒng)分析、設(shè)計(jì)任務(wù)的要求二、登錄界面及主菜單設(shè)計(jì) 2.1.登陸界面設(shè)計(jì) 2.2登錄程序2.3主菜單的程序設(shè)計(jì)2.4.退出系統(tǒng)程序設(shè)計(jì)三、系統(tǒng)基本設(shè)置 3.1數(shù)據(jù)庫和數(shù)據(jù)表3.2科目代碼庫設(shè)計(jì)3.3摘要庫設(shè)計(jì)四、憑證處理 4.1.憑證格式設(shè)計(jì) 4.2科目代碼查詢 4.3憑證錄入設(shè)計(jì) 4.4憑證查詢設(shè)計(jì) 4.5 憑證修改設(shè)計(jì)五、各類匯總表及賬簿設(shè)計(jì) 4.1科目匯總表設(shè)計(jì) 4.2總分類賬設(shè)計(jì) 4.3現(xiàn)金日記賬輸出設(shè)計(jì) 4.4銀行日記賬輸出設(shè)計(jì)六、報(bào)表輸出設(shè)計(jì) 6.1利潤表輸出設(shè)計(jì)6.2資產(chǎn)負(fù)債表輸出設(shè)計(jì)一、會計(jì)信

2、息系統(tǒng)課程設(shè)計(jì)概述1.1基本概述根據(jù)會計(jì)信息系統(tǒng)大綱及課程開設(shè)的要求，我于2015年6月22日至6月26日參加了學(xué)院為期一周的會計(jì)信息系統(tǒng)課程設(shè)計(jì)實(shí)習(xí)。在實(shí)習(xí)過程中，我根據(jù)系統(tǒng)生命周期法，課程設(shè)計(jì)分為計(jì)劃、開發(fā)、運(yùn)行及維護(hù)四個階段，我相繼完成了系統(tǒng)分析任務(wù)、系統(tǒng)設(shè)計(jì)任務(wù)，從最初的系統(tǒng)設(shè)置，憑證格式設(shè)計(jì)、錄入、處理到各類匯總表、賬簿的輸出。會計(jì)課程設(shè)計(jì)讓我學(xué)到了很多東西，由此編制了此次會計(jì)信息系統(tǒng)課程設(shè)計(jì)報(bào)告。1.2系統(tǒng)模塊劃分賬務(wù)處理系統(tǒng)包含六大模塊：1）系統(tǒng)初始設(shè)置模塊：包含數(shù)據(jù)庫和數(shù)據(jù)表的建立、科目代碼庫的建立與摘要庫的建立及各賬簿初始余額的輸入。2）登錄設(shè)計(jì)模塊：包含登陸界面的設(shè)計(jì)、相關(guān)

3、代碼設(shè)計(jì)及主菜單程序設(shè)計(jì)等。3）憑證處理模塊：包含憑證格式設(shè)計(jì)、科目代碼查詢、憑證錄入、憑證修改、憑證查詢等程序設(shè)計(jì)及輸出。4）匯總表及賬簿模塊：包含科目匯總表設(shè)計(jì)、總分類賬、現(xiàn)金日記賬、總分類賬程序設(shè)計(jì)及輸出。5）報(bào)表輸出模塊：包含資產(chǎn)負(fù)債表、利潤表的程序設(shè)計(jì)及輸出。6）系統(tǒng)規(guī)律模塊：各種系統(tǒng)的基本操作，如剪切、復(fù)制、窗口間切換等。1.3數(shù)據(jù)流圖：記賬憑證憑證輸入憑證審核日常處理記賬結(jié)賬輸出賬簿及報(bào)表1.4系統(tǒng)分析、設(shè)計(jì)任務(wù)的要求1.4.1系統(tǒng)分析任務(wù)1.系統(tǒng)分析的基本任務(wù)是得到一個會計(jì)信息系統(tǒng)的邏輯模型。系統(tǒng)分析是整個系統(tǒng)建設(shè)的關(guān)鍵階段，它闡明了各功能單位之間的相互聯(lián)系，保證新系統(tǒng)有整體性

4、和優(yōu)良的結(jié)構(gòu)，是系統(tǒng)設(shè)計(jì)的基礎(chǔ)，且系統(tǒng)分析工作難度較大，它要求主持該項(xiàng)工作的人員具有熟悉計(jì)算機(jī)技術(shù)、熟悉財(cái)會業(yè)務(wù)和協(xié)調(diào)的能力。2.采用結(jié)構(gòu)化系統(tǒng)分析方法，采用“自頂向下，逐層分解，化大為小，分而治之”的思想將系統(tǒng)功能由粗到細(xì)，逐步分解。3.模塊劃分的原則：（1）模塊涉及操作相對集中，即一個模塊只模仿某一方面的功能，以提高系統(tǒng)的可用性；（2）各模塊相對獨(dú)立，降低模塊間的耦合程度，因?yàn)轳詈铣潭仍降停K間的相互影響就越小，說明系統(tǒng)分解得越好；1.4.2系統(tǒng)設(shè)計(jì)的要求1.系統(tǒng)設(shè)計(jì)應(yīng)遵循系統(tǒng)的可靠性，系統(tǒng)的實(shí)用性，系統(tǒng)的運(yùn)行效率，系統(tǒng)的適用性和系統(tǒng)的經(jīng)濟(jì)效益的原則；2.在系統(tǒng)處理方式上選擇批處理方式，

5、共享程度高，一致性好；3.代碼設(shè)計(jì)遵循惟一性，標(biāo)準(zhǔn)化，通用性，穩(wěn)定性，可擴(kuò)充性和簡單性等。二.登錄界面及主菜單設(shè)計(jì) 2.1.登陸界面設(shè)計(jì) （1）在項(xiàng)目中打開登陸界面示意圖： (2）登陸界面設(shè)計(jì)示意圖： 2.2登錄程序2.2.1表單中登錄按鈕command1的程序設(shè)計(jì)（1）程序：n=0a=thisform.text1.valueb=thisform.text2.valueif a="20124920801" and b="789990"thisform.label13.caption="歡迎使用本系統(tǒng)！"do c:會計(jì)信息系統(tǒng)-鄭靜金主

6、菜單設(shè)計(jì).prgelsen=n+1thisform.label13.caption="學(xué)號錯誤，請重新輸入！"thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocusif n=3thisform.label13.caption="對不起，您無權(quán)使用本系統(tǒng)！"thisform.text1.enabled=.f.thisform.text2.enabled=.f.mand1.enabled=.f.endifendif （2）運(yùn)行的效果示意

7、圖：2.2.2退出按鈕command2的程序設(shè)計(jì)（1）程序：thisform.release（2）運(yùn)行效果示意圖（退回到原來界面）2.3主菜單的程序設(shè)計(jì)2.3.1程序：set talk offclearset sysmenu todefine pad _pad1 of _msysmenu prompt "憑證處理" color scheme 3define pad _pad2 of _msysmenu prompt "賬簿管理" color scheme 3define pad _pad3 of _msysmenu prompt "會計(jì)報(bào)表&q

8、uot; color scheme 3define pad _pad4 of _msysmenu prompt "退出系統(tǒng)" color scheme 3on pad _pad1 of _msysmenu activate popup 憑證處理on pad _pad2 of _msysmenu activate popup 賬簿管理on pad _pad3 of _msysmenu activate popup 會計(jì)報(bào)表on pad _pad4 of _msysmenu activate popup 退出系統(tǒng)define popup 憑證處理 margin relative

9、 shadow color scheme 4define bar 1 of 憑證處理 prompt "科目代碼查詢"define bar 2 of 憑證處理 prompt "憑證錄入"define bar 3 of 憑證處理 prompt "憑證修改"define bar 4 of 憑證處理 prompt "憑證查詢"on selection bar 1 of 憑證處理 do c:會計(jì)信息系統(tǒng)-鄭靜金科目代碼查詢.prgon selection bar 2 of 憑證處理 do c:會計(jì)信息系統(tǒng)-鄭靜金憑證錄入.p

10、rgon selection bar 3 of 憑證處理 do c:會計(jì)信息系統(tǒng)-鄭靜金憑證修改.prgon selection bar 4 of 憑證處理 do c:會計(jì)信息系統(tǒng)-鄭靜金憑證查詢.prgdefine popup 賬簿管理 margin relative shadow color scheme 4define bar 1 of 賬簿管理 prompt "科目匯總表"define bar 2 of 賬簿管理 prompt "現(xiàn)金日記賬"define bar 3 of 賬簿管理 prompt "銀行日記賬"define b

11、ar 4 of 賬簿管理 prompt "總分類賬"on selection bar 1 of 賬簿管理 do c:會計(jì)信息系統(tǒng)-鄭靜金科目匯總表輸出.prgon selection bar 2 of 賬簿管理 do c:會計(jì)信息系統(tǒng)-鄭靜金現(xiàn)金日記賬輸出.prgon selection bar 3 of 賬簿管理 do c:會計(jì)信息系統(tǒng)-鄭靜金銀行日記賬輸出.prgon selection bar 4 of 賬簿管理 do c:會計(jì)信息系統(tǒng)-鄭靜金總分類賬輸出.prgdefine popup 會計(jì)報(bào)表 margin relative shadow color scheme

12、 4define bar 1 of 會計(jì)報(bào)表 prompt "資產(chǎn)負(fù)債表"define bar 2 of 會計(jì)報(bào)表 prompt "利潤表"on selection bar 1 of 會計(jì)報(bào)表 do c:會計(jì)信息系統(tǒng)-鄭靜金資產(chǎn)負(fù)債表輸出.prgon selection bar 2 of 會計(jì)報(bào)表 do c:會計(jì)信息系統(tǒng)-鄭靜金利潤表輸出.prgdefine popup 退出系統(tǒng) margin relative shadow color scheme 4define bar 1 of 退出系統(tǒng) prompt "退出"on select

13、ion bar 1 of 退出系統(tǒng) do c:會計(jì)信息系統(tǒng)-鄭靜金退出系統(tǒng)設(shè)計(jì).prg 2.3.2程序運(yùn)行效果示意圖：2.4.退出系統(tǒng)程序設(shè)計(jì)2.4.1程序： set talk offclearset sysmenu to defaultset talk onreturn 2.4.2運(yùn)行程序的效果示意圖（退出程序）三系統(tǒng)基本設(shè)置3.1數(shù)據(jù)庫和數(shù)據(jù)表（完成效果圖如下） 3.2.科目代碼庫（完成效果圖如下：）3.3摘要庫（完成效果圖如下：）四憑證處理 4.1憑證格式設(shè)計(jì)4.1.1程序：set talk offclearn=13a1=" _"a2="| | | | |&

14、quot;a3="|_|_|_|_|"a4="|_|_|_|_|"12,10 say a1do while n<=26n,10 say a2n+1,10 say a3n=n+2enddo27,10 say a228,10 say a47,41 say "記賬憑證" font "宋體",2011,12 say "憑證類別：" 11,39 say "日期："11,58 say "憑證號："11,82 say "附件張數(shù)："13,25

15、say "摘要"13,48 say "會計(jì)科目"13,68 say "借方金額"13,86 say "貸方金額"27,25 say "合計(jì)"29,10 say "記賬："+space(16)+"審核："+space(14)+"出納："+space(14)+"制單："4.1.2程序運(yùn)行效果示意圖：4.2.科目代碼查詢設(shè)計(jì)4.2.1程序：set talk offa=6clea use c:會計(jì)信息系統(tǒng)-鄭靜金科目代碼庫.

16、dbfdo while a=6cleakmdm1=space(6)9,20 say "請輸入科目代碼："get kmdm1readlocate for kmdm=kmdm1if !found()messagebox ("代碼不正確,請重新輸入")else 10,37 say kmmcendi a=messagebox("是否繼續(xù)查詢下一個?",4)enddouseset talk on return4.2.2程序運(yùn)行效果示意圖：4.3.憑證錄入設(shè)計(jì)功能說明：1）具有可輸入多借多貸分錄的功能，并可繼續(xù)輸入下一張憑證。2）含多種邏輯糾錯功

17、能，可限制憑證類型，保證輸入的摘要、科目代碼和金額的有效性，可檢查借貸方金額是否平衡并可做相應(yīng)的修改。 4.3.1程序：set talk offclose allcleardo while .t.do c:會計(jì)信息系統(tǒng)-鄭靜金憑證格式.prgpzlx1=space(2)fjzs1=" "pzh1=space(3)store 0 to je1,je2,jfje1,dfje1rq1=space(10)zy1=space(3)zy2=space(20)kmdm1=space(6)kmdm2=space(6)kmmc1=space(20)kmmc2=space(20)11,22 g

18、et pzlx1readdo while pzlx1<>"收".and.pzlx1<>"付".and.pzlx1<>"轉(zhuǎn)"messagebox("憑證類型錯誤,請重新輸入!")11,22 get pzlx1readenddo11,44 get rq111,65 get pzh111,92 get fjzs1readm=6a=15do while m=6use c:會計(jì)信息系統(tǒng)-鄭靜金摘要庫.dbfa,12 get zy1readlocate for zydm=zy1do whil

19、e zydm<>zy1messagebox("找不到符合條件的摘要，請重新輸入")a,12 get zy1readlocate for zydm=zy1enddzy2=zynra,12 say zy2useuse c:會計(jì)信息系統(tǒng)-鄭靜金科目代碼庫.dbfa,48 get kmdm1readlocate for kmdm=kmdm1do while kmdm<>kmdm1messagebox("輸入的科目代碼有誤，請重新輸入")a,48 get kmdm1readlocate for kmdm=kmdm1enddkmmc1=kmm

20、ca,48 say kmmc1a,68 get je1a,86 get je2readdo while je1=0.and.je2=0messagebox("金額不能為零")a,68 get je1a,86 get je2readendduse c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfappend blankrepl pzrq with rq1,pzh with pzh1,pzlx with pzlx1,zy with zy2,kmdm with kmdm1,kmmc with kmmc1,jfje with je1,dfje with je2usem=messagebox(

21、"是否輸入下一行分錄",4)a=a+2enddouse c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfsum jfje to jfje1 for pzh=pzh1sum dfje to dfje1 for pzh=pzh127,68 say jfje127,86 say dfje1do while jfje1<>dfje1messagebox("借貸不平衡，輸入金額有誤")do c:會計(jì)信息系統(tǒng)-鄭靜金憑證修改enddusexz=" "32,25 say "是否輸入下一張(y/n)" get xzreadif

22、xz="y" or xz="Y"loopelseexitendiendduse c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfdisplayuseset talk onreturn 4.3.2運(yùn)行效果示意圖： 1）當(dāng)輸入完一行分錄時的示意圖： 2）當(dāng)輸入完一筆業(yè)務(wù)時可繼續(xù)輸入下一張的示意圖： 3）當(dāng)輸入多借多貸的分錄時的完成示意圖： 4）運(yùn)行時借貸方金額不相等情況下的示意圖 5）待25筆憑證按上述步驟錄入完成之后，打開數(shù)據(jù)庫中的憑證庫，顯示如下： 4.4.憑證查詢設(shè)計(jì)4.4.1程序：set talk offclearuse c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbf

23、pzrq1=space(10)pzh1=space(4)pzlx1=space(2)4,4 say "請輸入憑證日期：" get pzrq16,4 say "請輸入憑證號碼：" get pzh18,4 say "請輸入憑證類型：" get pzlx1Readlocate for pzrq=pzrq1 and pzh=pzh1 and pzlx=pzlx1if found()=.t.dispskipdispelsemessagebox("查詢不到符合條件的憑證")endiset talk onreturn 4.4.2

24、程序運(yùn)行效果示意圖 1）當(dāng)查詢到相應(yīng)憑證時的運(yùn)行效果示意圖 2）當(dāng)輸入的憑證查詢不到時的運(yùn)行效果示意圖： 4.5.憑證修改設(shè)計(jì)4.5.1程序：set talk offclearuse c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfpzrq1=space(10)pzh1=space(3)2,4 say "請輸入憑證日期：" get pzrq14,4 say "請輸入憑證號： " get pzh1Readlocate for allt(pzrq)=allt(pzrq1) and allt(pzh)=allt(pzh1) if found()dispeditelsem

25、essagebox("沒有找到符合條件的憑證")endifset talk onreturn4.5.2運(yùn)行程序的效果示意圖： 1）當(dāng)輸入要查詢的憑證時的界面示意圖：2）對查詢到的憑證進(jìn)行修改時的界面示意圖：五各類匯總表與賬簿設(shè)計(jì) 5.1科目匯總表設(shè)計(jì)5.1.1程序：set talk offclearstore 0 to jfje1,dfje1,yeselect 1use c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfselect 2use c:會計(jì)信息系統(tǒng)-鄭靜金科目匯總表.dbf1,60 say "科目匯總表" font "宋體",14go

26、 topdo while !eof()kmdm1=kmdmselect 1sum jfje to jfje1 for kmdm=kmdm1sum dfje to dfje1 for kmdm=kmdm1select 2replace bqjf with jfje1,bqdf with dfje1skipenddodisplaya1=0b1=0sum bqjf to a1sum bqdf to b1locate for kmmc="合計(jì)"replace bqjf with a1,bqdf with b1listif bqjf=bqdfmessagebox("太棒了，

27、恭喜您，試算平衡！")elsemessagebox("試算不平衡，請您仔細(xì)檢查！")endiuseselect 1useselect 2set talk onreturn 5.1.2運(yùn)行程序時的效果示意圖： 5.2.總分類賬輸出設(shè)計(jì) 5.2.1程序：set talk offclearkmdm1=space(4)kmmc1=space(10)bqjf1=0bqdf1=0select 1use c:會計(jì)信息系統(tǒng)-鄭靜金科目匯總表.dbfselect 2use c:會計(jì)信息系統(tǒng)-鄭靜金總分類賬.dbfgo topdo while !eof()kmdm1=kmdmsele

28、ct 1locate for kmdm=kmdm1if found()=.t.kmmc1=kmmcbqjf1=bqjfbqdf1=bqdfendiselect 21,60 say "總分類賬" font "宋體",14ye1=qcjf+bqjf1-qcdf-bqdf1do case ye1case ye1>0replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "借", ye with ye1case ye1<0replace kmmc with k

29、mmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "貸", ye with ye1*(-1)case ye1=0replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "平", ye with ye1endcaseskipenddolistj1=0d1=0sum bqjf to j1sum bqdf to d1replace kmmc with "合計(jì)" bqjf with j1,bqdf with d1displayuse

30、select 1useselect 2set talk onreturn5.2.2程序運(yùn)行的效果示意圖 5.3現(xiàn)金日記賬輸出程序設(shè)計(jì)5.3.1程序：set talk offcleastor 0 to jfje1,dfje1,ye1rq1=space(10)pzh1=space(3)zy1=space(20)sele 1Use c :會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfsele 2use c:會計(jì)信息系統(tǒng)-鄭靜金現(xiàn)金日記賬.dbfsele 1do while !eof()if substr(kmdm,1,4)="1001"rq1=pzrqpzh1=pzhjfje1=jfjedf

31、je1=dfjezy1=zysele 2ye1=yeskip delete restpackappend blankrepl rq with rq1,pzh with pzh1,zy with zy1,sr with jfje1,zc with dfje1,ye with ye1+jfje1-dfje1endisele 1skip enddusesele 2zsr=0zzc=0store 0 to zsr,zzcsum sr to zsrsum zc to zzcappe blanrepl rq with "2014/04/30",zy with "本月小計(jì)&qu

32、ot;,sr with zsr,zc with zzc,ye with ye1+jfje1-dfje11,48 say "現(xiàn)金日記賬" font "宋體",14listuseset talk on return5.3.2程序運(yùn)行的效果示意圖 5.4銀行日記賬輸出程序設(shè)計(jì)5.4.1程序：set talk offcleastor 0 to jfje1,dfje,ye1rq1=space(10)pzh1=space(3)usesele 1use c:會計(jì)信息系統(tǒng)-鄭靜金憑證庫.dbfsele 2use c:會計(jì)信息系統(tǒng)-鄭靜金銀行日記賬.dbfsele 1do

33、 while !eof()if subs(kmdm,1,4)="1002"rq1=pzrqpzh1=pzhjfje1=jfjedfje1=dfjezy1=zysele 2ye1=yeskipdele restpackappe blanrepl rq with rq1,pzh with pzh1,zy with zy1,jfje with jfje1,dfje with dfje1,ye with ye1+jfje1-dfje1endisele 1skip enddusesele 2a=0b=0sum jfje to asum dfje to bappe blanrepl r

34、q with "2014/04/30",zy with "本月小計(jì)",jfje with a,dfje with b,ye with ye1+jfje1-dfje11,48 say "銀行日記賬" font "宋體",14listuseset talk on return5.4.2程序運(yùn)行的效果示意圖 六、報(bào)表輸出設(shè)計(jì)6.1利潤表輸出設(shè)計(jì)6.1.1程序：set talk offclearstore 0 to bqdf1,bqdf2,bqdf3,bqdf4,bqdf5,bqdf6,bqdf7,a1,a2,a3,a4s

35、elect 1use c:會計(jì)信息系統(tǒng)-鄭靜金科目匯總表select 2use c:會計(jì)信息系統(tǒng)-鄭靜金利潤表select 1do while !eof()if kmdm="6001"bqdf1=bqdfskipbqdf2=bqdfskipbqdf3=bqdfskipbqdf4=bqdfskipbqdf5=bqdfskipbqdf6=bqdfskipbqdf7=bqdfa1=bqdf1-bqdf3a2=a1+bqdf2-bqdf4-bqdf5-bqdf6-bqdf7a3=a2a4=a3select 2replace bqje with bqdf1 for hc="

36、1"replace bqje with bqdf3 for hc="2"replace bqje with a1 for hc="4"replace bqje with bqdf2 for hc="5"replace bqje with bqdf4 for hc="7"replace bqje with bqdf6 for hc="8"replace bqje with bqdf7 for hc="9"replace bqje with bqdf5 for hc=&

37、quot;10"replace bqje with a2 for hc="11"replace bqje with 0 for hc="12"replace bqje with 0 for hc="13"replace bqje with a3 for hc="14"replace bqje with 0 for hc="15"replace bqje with a4 for hc="16"1,60 say "利潤表" font "宋體

38、",14listexitelseskipendiendduseselect 1set talk onreturn6.1.2程序的運(yùn)行效果示意圖6.2.資產(chǎn)負(fù)債表輸出設(shè)計(jì)6.2.1程序：set talk offclearstore 0 to a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17store 0 to b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10select 1use c:會計(jì)信息系統(tǒng)-鄭靜金總分類賬select 2use c:會計(jì)信息系統(tǒng)-鄭靜金資產(chǎn)負(fù)債表select 3select 1

39、do while !eof()if kmdm="1001"a1=yeskipa2=yeskipa3=yeskipa4=yeskipa5=yeskipa6=yeskipa7=yeskipa8=yeskipa9=yeskipa10=yeskipa11=yeskipa12=yeskipa13=yeskipa14=yeskipa15=yeskipa16=yeskipa17=yeelseskipendienddb0=a1+a2b1=a5+a6+a7+a17b2=b0+b1+a3+a4+0b3=a8-a9b4=b2+b3b5=a10+a11+a12+a13b6=a14+a16b7=b5+b6sel