會計信息系統(tǒng)報告莫海霞解析

1、 會計信息系統(tǒng) 會計信息系統(tǒng)課程設(shè)計報告學院名稱 經(jīng)濟管理學院 指導老師 王龍輝 專業(yè)班級 會計125班 學 號 20124920502 姓 名 韓曉明 目 錄一、 會計信息系統(tǒng)課程設(shè)計概述1.1基本概述.11.2系統(tǒng)模塊劃分.11.3數(shù)據(jù)流圖.11.4系統(tǒng)分析、設(shè)計任務(wù)的要求.1二、登錄界面及主菜單設(shè)計 2.1.登陸界面設(shè)計.2 2.2登錄程序.42.3主菜單的程序設(shè)計.52.4.退出系統(tǒng)程序設(shè)計.6三、系統(tǒng)基本設(shè)置 3.1數(shù)據(jù)庫和數(shù)據(jù)表.93.2科目代碼庫設(shè)計.113.3摘要庫設(shè)計.13四、憑證處理 4.1.憑證格式設(shè)計.17 4.2科目代碼查詢.21 4.3憑證錄入設(shè)計.25 4.4憑證

2、查詢設(shè)計.27 4.5 憑證修改設(shè)計.30五、各類匯總表及賬簿設(shè)計 5.1科目匯總表設(shè)計.32 5.2總分類賬設(shè)計 . 34 5.3現(xiàn)金日記賬輸出設(shè)計.35 5.4銀行日記賬輸出設(shè)計.37六、報表輸出設(shè)計 6.1利潤表輸出設(shè)計.386.2資產(chǎn)負債表輸出設(shè)計.39 一、會計信息系統(tǒng)課程設(shè)計概述1.1基本概述根據(jù)會計信息系統(tǒng)大綱及課程開設(shè)的要求，我于2015年6月22日至6月26日參加了學院為期一周的會計信息系統(tǒng)課程設(shè)計實習。在實習過程中，我根據(jù)系統(tǒng)生命周期法，課程設(shè)計分為計劃、開發(fā)、運行及維護四個階段，我相繼完成了系統(tǒng)分析任務(wù)、系統(tǒng)設(shè)計任務(wù)，從最初的系統(tǒng)設(shè)置，憑證格式設(shè)計、錄入、處理到各類匯總表

3、、賬簿的輸出。會計課程設(shè)計讓我學到了很多東西，由此編制了此次會計信息系統(tǒng)課程設(shè)計報告。1.2系統(tǒng)模塊劃分賬務(wù)處理系統(tǒng)包含六大模塊：1）系統(tǒng)初始設(shè)置模塊：包含數(shù)據(jù)庫和數(shù)據(jù)表的建立、科目代碼庫的建立與摘要庫的建立及各賬簿初始余額的輸入。2）登錄設(shè)計模塊：包含登陸界面的設(shè)計、相關(guān)代碼設(shè)計及主菜單程序設(shè)計等。3）憑證處理模塊：包含憑證格式設(shè)計、科目代碼查詢、憑證錄入、憑證修改、憑證查詢等程序設(shè)計及輸出。4）匯總表及賬簿模塊：包含科目匯總表設(shè)計、總分類賬、現(xiàn)金日記賬、總分類賬程序設(shè)計及輸出。5）報表輸出模塊：包含資產(chǎn)負債表、利潤表的程序設(shè)計及輸出。6）系統(tǒng)規(guī)律模塊：各種系統(tǒng)的基本操作，如剪切、復制、窗口

4、間切換等。1.3數(shù)據(jù)流圖：記賬憑證憑證輸入憑證審核日常處理記賬結(jié)賬輸出賬簿及報表1.4系統(tǒng)分析、設(shè)計任務(wù)的要求1.4.1系統(tǒng)分析任務(wù)1.系統(tǒng)分析的基本任務(wù)是得到一個會計信息系統(tǒng)的邏輯模型。系統(tǒng)分析是整個系統(tǒng)建設(shè)的關(guān)鍵階段，它闡明了各功能單位之間的相互聯(lián)系，保證新系統(tǒng)有整體性和優(yōu)良的結(jié)構(gòu)，是系統(tǒng)設(shè)計的基礎(chǔ)，且系統(tǒng)分析工作難度較大，它要求主持該項工作的人員具有熟悉計算機技術(shù)、熟悉財會業(yè)務(wù)和協(xié)調(diào)的能力。2.采用結(jié)構(gòu)化系統(tǒng)分析方法，采用“自頂向下，逐層分解，化大為小，分而治之”的思想將系統(tǒng)功能由粗到細，逐步分解。3.模塊劃分的原則：（1）模塊涉及操作相對集中，即一個模塊只模仿某一方面的功能，以提高系統(tǒng)

5、的可用性；（2）各模塊相對獨立，降低模塊間的耦合程度，因為耦合程度越低，模塊間的相互影響就越小，說明系統(tǒng)分解得越好；1.4.2系統(tǒng)設(shè)計的要求1.系統(tǒng)設(shè)計應(yīng)遵循系統(tǒng)的可靠性，系統(tǒng)的實用性，系統(tǒng)的運行效率，系統(tǒng)的適用性和系統(tǒng)的經(jīng)濟效益的原則；2.在系統(tǒng)處理方式上選擇批處理方式，共享程度高，一致性好；3.代碼設(shè)計遵循惟一性，標準化，通用性，穩(wěn)定性，可擴充性和簡單性等。第 52 頁 共 頁 二.登錄界面及主菜單設(shè)計 2.1.登陸界面設(shè)計 （1）在項目中打開登陸界面示意圖： (2）登陸界面設(shè)計示意圖：登錄程序2.2.1表單中登錄按鈕command1的程序設(shè)計（1）程序：n=0a=thisform.tex

6、t1.valueb=thisform.text2.valueif a="20124920502" and b="789990"thisform.label13.caption="歡迎使用本系統(tǒng)！"do c:會計信息系統(tǒng)-韓曉明主菜單設(shè)計.prgelsen=n+1thisform.label13.caption="學號錯誤，請重新輸入！"thisform.text1.value=""thisform.text2.value=""thisform.text1.setfocusif

7、 n=3thisform.label13.caption="對不起，您無權(quán)使用本系統(tǒng)！"thisform.text1.enabled=.f.thisform.text2.enabled=.f.mand1.enabled=.f.endifendif （2）運行的效果示意圖：2.2.2退出按鈕command2的程序設(shè)計（1）程序：thisform.release（2）運行效果示意圖（退回到原來界面）2.3主菜單的程序設(shè)計2.3.1程序：set talk offclearset sysmenu todefine pad _pad1 of _msysmenu prompt &quo

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

9、u activate popup 賬簿管理on pad _pad3 of _msysmenu activate popup 會計報表on pad _pad4 of _msysmenu activate popup 退出系統(tǒng)define popup 憑證處理 margin relative shadow color scheme 4define bar 1 of 憑證處理 prompt "科目代碼查詢"define bar 2 of 憑證處理 prompt "憑證錄入"define bar 3 of 憑證處理 prompt "憑證修改"

10、define bar 4 of 憑證處理 prompt "憑證查詢"on selection bar 1 of 憑證處理 do c:會計信息系統(tǒng)-韓曉明科目代碼查詢.prgon selection bar 2 of 憑證處理 do c:會計信息系統(tǒng)-韓曉明憑證錄入.prgon selection bar 3 of 憑證處理 do c:會計信息系統(tǒng)-韓曉明憑證修改.prgon selection bar 4 of 憑證處理 do c:會計信息系統(tǒng)-韓曉明憑證查詢.prgdefine popup 賬簿管理 margin relative shadow color scheme

11、4define bar 1 of 賬簿管理 prompt "科目匯總表"define bar 2 of 賬簿管理 prompt "現(xiàn)金日記賬"define bar 3 of 賬簿管理 prompt "銀行日記賬"define bar 4 of 賬簿管理 prompt "總分類賬"on selection bar 1 of 賬簿管理 do c:會計信息系統(tǒng)-韓曉明科目匯總表輸出.prgon selection bar 2 of 賬簿管理 do c:會計信息系統(tǒng)-韓曉明現(xiàn)金日記賬輸出.prgon selection b

12、ar 3 of 賬簿管理 do c:會計信息系統(tǒng)-韓曉明銀行日記賬輸出.prgon selection bar 4 of 賬簿管理 do c:會計信息系統(tǒng)-韓曉明總分類賬輸出.prgdefine popup 會計報表 margin relative shadow color scheme 4define bar 1 of 會計報表 prompt "資產(chǎn)負債表"define bar 2 of 會計報表 prompt "利潤表"on selection bar 1 of 會計報表 do c:會計信息系統(tǒng)-韓曉明資產(chǎn)負債表輸出.prgon selection

13、bar 2 of 會計報表 do c:會計信息系統(tǒng)-韓曉明利潤表輸出.prgdefine popup 退出系統(tǒng) margin relative shadow color scheme 4define bar 1 of 退出系統(tǒng) prompt "退出"on selection bar 1 of 退出系統(tǒng) do c:會計信息系統(tǒng)-韓曉明退出系統(tǒng)設(shè)計.prg 2.3.2程序運行效果示意圖：2.4.退出系統(tǒng)程序設(shè)計2.4.1程序： set talk offclearset sysmenu to defaultset talk onreturn 2.4.2運行程序的效果示意圖（退出程

14、序）三系統(tǒng)基本設(shè)置3.1數(shù)據(jù)庫和數(shù)據(jù)表（完成效果圖如下） 3.2.科目代碼庫（完成效果圖如下：）3.3摘要庫（完成效果圖如下：）四憑證處理 4.1憑證格式設(shè)計4.1.1程序：set talk offclearn=13a1=" _"a2="| | | | |"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 "記

15、賬憑證" font "宋體",2011,12 say "憑證類別：" 11,39 say "日期："11,58 say "憑證號："11,82 say "附件張數(shù)："13,25 say "摘要"13,48 say "會計科目"13,68 say "借方金額"13,86 say "貸方金額"27,25 say "合計"29,10 say "記賬："+space(16)+

16、"審核："+space(14)+"出納："+space(14)+"制單："4.1.2程序運行效果示意圖：4.2.科目代碼查詢設(shè)計4.2.1程序：set talk offa=6clea use c:會計信息系統(tǒng)-韓曉明科目代碼庫.dbfdo while a=6cleakmdm1=space(6)9,20 say "請輸入科目代碼："get kmdm1readlocate for kmdm=kmdm1if !found()messagebox ("代碼不正確,請重新輸入")else 10,37 sa

17、y kmmcendi a=messagebox("是否繼續(xù)查詢下一個?",4)enddouseset talk on return4.2.2程序運行效果示意圖：4.3.憑證錄入設(shè)計功能說明：1）具有可輸入多借多貸分錄的功能，并可繼續(xù)輸入下一張憑證。2）含多種邏輯糾錯功能，可限制憑證類型，保證輸入的摘要、科目代碼和金額的有效性，可檢查借貸方金額是否平衡并可做相應(yīng)的修改。 4.3.1程序：set talk offclose allcleardo while .t.do c:會計信息系統(tǒng)-韓曉明憑證格式.prgpzlx1=space(2)fjzs1=" "pz

18、h1=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 get pzlx1readdo while pzlx1<>"收".and.pzlx1<>"付".and.pzlx1<>"轉(zhuǎn)"messagebox("憑證類型錯誤,請重新輸入!")11,22 get

19、pzlx1readenddo11,44 get rq111,65 get pzh111,92 get fjzs1readm=6a=15do while m=6use c:會計信息系統(tǒng)-韓曉明摘要庫.dbfa,12 get zy1readlocate for zydm=zy1do while zydm<>zy1messagebox("找不到符合條件的摘要，請重新輸入")a,12 get zy1readlocate for zydm=zy1enddzy2=zynra,12 say zy2useuse c:會計信息系統(tǒng)-韓曉明科目代碼庫.dbfa,48 get kmd

20、m1readlocate for kmdm=kmdm1do while kmdm<>kmdm1messagebox("輸入的科目代碼有誤，請重新輸入")a,48 get kmdm1readlocate for kmdm=kmdm1enddkmmc1=kmmca,48 say kmmc1a,68 get je1a,86 get je2readdo while je1=0.and.je2=0messagebox("金額不能為零")a,68 get je1a,86 get je2readendduse c:會計信息系統(tǒng)-韓曉明憑證庫.dbfappe

21、nd 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("是否輸入下一行分錄",4)a=a+2enddouse c:會計信息系統(tǒng)-韓曉明憑證庫.dbfsum jfje to jfje1 for pzh=pzh1sum dfje to dfje1 for pzh=pzh127,68 say jfje127,86 say dfje1do while

22、jfje1<>dfje1messagebox("借貸不平衡，輸入金額有誤")do c:會計信息系統(tǒng)-韓曉明憑證修改enddusexz=" "32,25 say "是否輸入下一張(y/n)" get xzreadif xz="y" or xz="Y"loopelseexitendiendduse c:會計信息系統(tǒng)-韓曉明憑證庫.dbfdisplayuseset talk onreturn 4.3.2運行效果示意圖： 1）當輸入完一行分錄時的示意圖： 2）當輸入完一筆業(yè)務(wù)時可繼續(xù)輸入下一

23、張的示意圖： 3）當輸入多借多貸的分錄時的完成示意圖： 4）運行時借貸方金額不相等情況下的示意圖 5）待25筆憑證按上述步驟錄入完成之后，打開數(shù)據(jù)庫中的憑證庫，顯示如下： 4.4.憑證查詢設(shè)計4.4.1程序：set talk offclearuse c:會計信息系統(tǒng)-韓曉明憑證庫.dbfpzrq1=space(10)pzh1=space(4)pzlx1=space(2)4,4 say "請輸入憑證日期：" get pzrq16,4 say "請輸入憑證號碼：" get pzh18,4 say "請輸入憑證類型：" get pzlx1R

24、eadlocate for pzrq=pzrq1 and pzh=pzh1 and pzlx=pzlx1if found()=.t.dispskipdispelsemessagebox("查詢不到符合條件的憑證")endiset talk onreturn 4.4.2程序運行效果示意圖 1）當查詢到相應(yīng)憑證時的運行效果示意圖 2）當輸入的憑證查詢不到時的運行效果示意圖： 4.5.憑證修改設(shè)計4.5.1程序：set talk offclearuse c:會計信息系統(tǒng)-韓曉明憑證庫.dbfpzrq1=space(10)pzh1=space(3)2,4 say "請輸入

25、憑證日期：" get pzrq14,4 say "請輸入憑證號： " get pzh1Readlocate for allt(pzrq)=allt(pzrq1) and allt(pzh)=allt(pzh1) if found()dispeditelsemessagebox("沒有找到符合條件的憑證")endifset talk onreturn4.5.2運行程序的效果示意圖： 1）當輸入要查詢的憑證時的界面示意圖：2）對查詢到的憑證進行修改時的界面示意圖：五各類匯總表與賬簿設(shè)計 5.1科目匯總表設(shè)計5.1.1程序：set talk offc

26、learstore 0 to jfje1,dfje1,yeselect 1use c:會計信息系統(tǒng)-韓曉明憑證庫.dbfselect 2use c:會計信息系統(tǒng)-韓曉明科目匯總表.dbf1,60 say "科目匯總表" font "宋體",14go topdo while !eof()kmdm1=kmdmselect 1sum jfje to jfje1 for kmdm=kmdm1sum dfje to dfje1 for kmdm=kmdm1select 2replace bqjf with jfje1,bqdf with dfje1skipendd

27、odisplaya1=0b1=0sum bqjf to a1sum bqdf to b1locate for kmmc="合計"replace bqjf with a1,bqdf with b1listif bqjf=bqdfmessagebox("太棒了，恭喜您，試算平衡！")elsemessagebox("試算不平衡，請您仔細檢查！")endiuseselect 1useselect 2set talk onreturn 5.1.2運行程序時的效果示意圖： 5.2.總分類賬輸出設(shè)計 5.2.1程序：set talk offclea

28、rkmdm1=space(4)kmmc1=space(10)bqjf1=0bqdf1=0select 1use c:會計信息系統(tǒng)-韓曉明科目匯總表.dbfselect 2use c:會計信息系統(tǒng)-韓曉明總分類賬.dbfgo topdo while !eof()kmdm1=kmdmselect 1locate for kmdm=kmdm1if found()=.t.kmmc1=kmmcbqjf1=bqjfbqdf1=bqdfendiselect 21,60 say "總分類賬" font "宋體",14ye1=qcjf+bqjf1-qcdf-bqdf1do

29、 case ye1case ye1>0replace kmmc with kmmc1,bqjf with bqjf1,bqdf with bqdf1,fx with "借", ye with ye1case ye1<0replace kmmc with kmmc1,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 "

30、平", ye with ye1endcaseskipenddolistj1=0d1=0sum bqjf to j1sum bqdf to d1replace kmmc with "合計" bqjf with j1,bqdf with d1displayuseselect 1useselect 2set talk onreturn5.2.2程序運行的效果示意圖 5.3現(xiàn)金日記賬輸出程序設(shè)計5.3.1程序：set talk offcleastor 0 to jfje1,dfje1,ye1rq1=space(10)pzh1=space(3)zy1=space(20)se

31、le 1Use c :會計信息系統(tǒng)-韓曉明憑證庫.dbfsele 2use c:會計信息系統(tǒng)-韓曉明現(xiàn)金日記賬.dbfsele 1do while !eof()if substr(kmdm,1,4)="1001"rq1=pzrqpzh1=pzhjfje1=jfjedfje1=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-dfje1endi

32、sele 1skip enddusesele 2zsr=0zzc=0store 0 to zsr,zzcsum sr to zsrsum zc to zzcappe blanrepl rq with "2014/04/30",zy with "本月小計",sr with zsr,zc with zzc,ye with ye1+jfje1-dfje11,48 say "現(xiàn)金日記賬" font "宋體",14listuseset talk on return5.3.2程序運行的效果示意圖 5.4銀行日記賬輸出程序設(shè)計5

33、.4.1程序：set talk offcleastor 0 to jfje1,dfje,ye1rq1=space(10)pzh1=space(3)usesele 1use c:會計信息系統(tǒng)-韓曉明憑證庫.dbfsele 2use c:會計信息系統(tǒng)-韓曉明銀行日記賬.dbfsele 1do while !eof()if subs(kmdm,1,4)="1002"rq1=pzrqpzh1=pzhjfje1=jfjedfje1=dfjezy1=zysele 2ye1=yeskipdele restpackappe blanrepl rq with rq1,pzh with pzh

34、1,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 rq with "2014/04/30",zy with "本月小計",jfje with a,dfje with b,ye with ye1+jfje1-dfje11,48 say "銀行日記賬" font "宋體",14listu

35、seset talk on return5.4.2程序運行的效果示意圖 六、報表輸出設(shè)計6.1利潤表輸出設(shè)計6.1.1程序：set talk offclearstore 0 to bqdf1,bqdf2,bqdf3,bqdf4,bqdf5,bqdf6,bqdf7,a1,a2,a3,a4select 1use c:會計信息系統(tǒng)-韓曉明科目匯總表select 2use c:會計信息系統(tǒng)-韓曉明利潤表select 1do while !eof()if kmdm="6001"bqdf1=bqdfskipbqdf2=bqdfskipbqdf3=bqdfskipbqdf4=bqdfsk

36、ipbqdf5=bqdfskipbqdf6=bqdfskipbqdf7=bqdfa1=bqdf1-bqdf3a2=a1+bqdf2-bqdf4-bqdf5-bqdf6-bqdf7a3=a2a4=a3select 2replace bqje with bqdf1 for hc="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 bq

37、df4 for hc="7"replace bqje with bqdf6 for hc="8"replace bqje with bqdf7 for hc="9"replace bqje with bqdf5 for hc="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 a

38、3 for hc="14"replace bqje with 0 for hc="15"replace bqje with a4 for hc="16"1,60 say "利潤表" font "宋體",14listexitelseskipendiendduseselect 1set talk onreturn6.1.2程序的運行效果示意圖6.2.資產(chǎn)負債表輸出設(shè)計6.2.1程序：set talk offclearstore 0 to a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,

39、a11,a12,a13,a14,a15,a16,a17store 0 to b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10select 1use c:會計信息系統(tǒng)-韓曉明總分類賬select 2use c:會計信息系統(tǒng)-韓曉明資產(chǎn)負債表select 3select 1do 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