【正文】 對新添的會計科目進行期初數(shù)據(jù)輸入！ 在此之后將進行新的一年的記帳！Table1，Table2，Table3Table4，Table5，Table6DatabaseNamesystemActiveTrueTable7，Table8，Table9Table10，Table11DatabaseNamesystemActiveTrueTable12，Table13Table14，Table15DatabaseNamesystemActiveTrueTable16DatabaseNamesystemActiveTrueTable1TableNameTable2TableNameTable3TableNameTable4TableNameTable5TableNameTable6TableNameTable7TableNameTable8TableNameTable9TableNameTable10TableNameTable11TableNameTable12TableName Table13TableNameTable14TableNameTable15TableName第六章 總結(jié)畢業(yè)是每個學生都要經(jīng)歷的階段。而畢業(yè)設(shè)計對每個學生來說，是大學幾年學習成績歸納與總結(jié)，是檢查自己學習成果的關(guān)鍵。三個多月的畢業(yè)設(shè)計已經(jīng)進入撰寫論文階段，畢業(yè)設(shè)計以前我對DELPHI語言還不怎么了解，財務(wù)方面的知識也沒學過，經(jīng)過這次畢業(yè)設(shè)計，使我對財務(wù)管理方面有了深入的了解，對于使用Delphi編程也有了一定深入的了解，下面是我對這次畢業(yè)設(shè)計的具體的心得體會：（一） 在畢業(yè)設(shè)計之前我翻閱多本工具參考資料和財務(wù)方面的書籍，掌握書本中的編程技巧和理論知識，靈活的運用到自己的程序中來。（二） 系統(tǒng)的設(shè)計過程是循序漸進的，開題報告總體設(shè)計詳細設(shè)計編程調(diào)試總結(jié)，不能急于求成。（三） 編程容易，調(diào)試難，這是IT界普遍存在也是我總結(jié)一個經(jīng)驗，上機調(diào)試就可能通不過或是不能實現(xiàn)預定的功能，這其中令我體會最深的是一些看起來就要完成的功能，卻怎么也實現(xiàn)不了，因為有時一個語句的錯誤位置就可能導致程序不能實現(xiàn)預定的功能。（四） 恒心和毅力是一個編程人員的關(guān)鍵，在設(shè)計中經(jīng)常會遇到意想不到的困難，面對困難切不可盲目退縮，一定要冷靜處理，要堅定地相信“柳暗花明又一村”的現(xiàn)實性。如果靠自己的能力還不能解決可以請教指導老師或者其他同學?？傊?，通過這次畢業(yè)設(shè)計，使我收獲頗豐，也使我成熟了許多，因為這次畢業(yè)設(shè)計對我將來的工作甚至生活是有所幫助和教誨。由于畢業(yè)設(shè)計時間較短，再加上自身能力的限制，該財務(wù)管理軟件系統(tǒng)可能還有許多不盡如人意的地方，還敬請?zhí)岢瞿鷮氋F的意見。致 謝感謝揚州大學給予了我四年良好的學習環(huán)境。母校的“求是、求實、求新、求精”的校風將使我一生受用。感謝指導老師陳宏建這半年來給予我的指導和幫助。陳老師嚴謹?shù)墓ぷ髯黠L和平易近人的做人態(tài)度給予我不倦的教誨，是我人生寶貴的財富。他淵博的知識是我一生的追求。 感謝揚州大學信息工程學院計算機系的各位老師和同學對我的幫助，正是各位老師的關(guān)心愛護和同學的幫助才使我完成學業(yè)！參 考 資 料1．陸新葵，王海林主編，會計學基礎(chǔ)，東南大學出版社，19982．張瑞君，蔣硯章主編，計算機會計學，中國人民大學出版社（第三版）3．蔡立新主編，計算機會計學，首都經(jīng)濟貿(mào)易大學出版社，20014．唐秋明等主編，實用總帳報表會計，東北財經(jīng)大學出版社，19995．陳周造等編著，Delphi5 徹底研究，中國鐵道出版社，6．魏志強等編著，（程序設(shè)計系列叢書），中國鐵道出版社，20007．張子江，藍薇等編著，Delphi 6高級開發(fā)范例（軟件工程師叢書），電子工業(yè)出版社，20028．李存斌主編，Delphi 6程序設(shè)計及其應(yīng)用開發(fā)，中國水利水電出版社，20029．朱順泉編著，Delphi及其在財經(jīng)管理中的應(yīng)用，人民郵電出版社 200110．劉海濤，童英編著，Delphi ，清華大學出版社，200111．段興主編，Delphi 6控件實用程序設(shè)計100例，人民郵電出版社，200212．江毅等編著，Delphi ，北京中國水利水電出版社，200213．毛崚，孟祥文，王淑芳等編著，Delphi 5數(shù)據(jù)庫開發(fā)技術(shù)，機械工業(yè)出版社，200014．(美)Ray Liscbner著，DELPHI技術(shù)手冊，中國電力出版社，200115．鄭城榮,曾凡奎等編著，Delphi運行時間庫RTL和組件庫VCL技術(shù)參考，人民郵電出版社 16．飛思科技產(chǎn)品研發(fā)中心編著，Delphi 7技術(shù)手冊，電子工業(yè)出版社，200317．徐新華編著，IDE和Object Pascal語言，人民郵電出版社附錄:主要源程序代碼憑證輸入窗體（）部分源代碼：procedure (Sender: TObject)。var na:string。begin na:=。 。 。 while([3].AsStringna) and (=false) do 。 if(=true) then begin 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 exit。 end。 。 。 (39。select 摘要,總帳科目代碼,總帳科目,明細科目代碼,明細科目,借方金額,貸方金額 from pznr39。)。 (39。where 憑證編號=39。39。39。++39。39。39。39。)。 。 。end。procedure (Sender: TObject)。var i:string。begin 。 。 while(=false) do begin i:=[0].AsString。 (i)。 i:=[1].AsString。 (i)。 。 end。 。 [1].PickList:=。 [2].PickList:=。 [3].PickList:=。 [4].PickList:=。end。procedure (Sender: TObject)。var na1:string。begin na1:=。//將table1的指針移到當前憑證錄入人員所錄入的第一張憑證處； 。 。 while([3].AsStringna1) do begin 。 if(=true) then exit。 end。//查詢出該憑證的具體內(nèi)容； 。 。 (39。select 摘要，總帳科目代碼，總帳科目，明細科目代碼，明細科目，借方金額，貸方金額from pznr39。)。 (39。where 憑證編號=39。39。39。++39。39。39。39。)。 。 。end。procedure (Sender: TObject)。var na2:string。begin na2:=。//將table1的指針移到當前憑證錄入人員所錄入的前一張憑證處 。 。 if(=true) then showmessage(39。這已經(jīng)是第一條記錄！39。)。 while([3].AsStringna2) do begin 。 if(=true) then begin 。 while([3].AsStringna2) do begin 。 if(=true) then exit。 end。 showmessage(39。這已經(jīng)是第一條記錄！39。)。 end。 end。//查詢出該憑證的具體內(nèi)容； 。 。 (39。select 摘要，總帳科目代碼，總帳科目，明細科目代碼，明細科目，借方金額，貸方金額 from pznr39。)。 (39。where 憑證編號=39。39。39。++39。39。39。39。)。 。 。end。procedure (Sender: TObject)。var na3:string。begin na3:=。 //將table1的指針移到當前憑證錄入人員所錄入的下一張憑證處 。 。 if(=true) then showmessage(39。這已經(jīng)是最后一條記錄！39。)。 while([3].AsStringna3) do begin 。 if(=true) then begin 。 while([3].AsStringna3) do begin 。 if(=true) then exit。 end。 showmessage(39。這已經(jīng)是最后一條記錄！39。)。 end。 end。//查詢出該憑證的具體內(nèi)容 。 。 (39。select摘要，總帳科目代碼，總帳科目，明細科目代碼，明細科目，借方金額，貸方金額from pznr39。)。 (39。where憑證編號=39。39。39。++39。39。39。39。)。 。 。end。procedure (Sender: TObject)。var na4:string。begin na4:=。//將table1的指針移到當前憑證錄入人員所錄入的最后一張憑證處 。 。 while([3].AsStringna4) do begin 。 if(=true) then exit。 end。//查詢出該憑證的具體內(nèi)容； 。 。 (39。select 摘要，總帳科目代碼，總帳科目，明細科目代碼，明細科目，借方金額，貸方金額 from pznr39。)。 (39。where 憑證編號=39。39。39。++39。39。39。39。)。 。 。end。procedure (Sender: TObject)。begin :=。 :=。 :=。 :=。 :=false。 :=true。 。 。 。 [0].AsString:=[0].AsString。 :=date。 [1].AsString:=datetostr()。 [3].AsString:=。 [5].AsString:=39。未審核39。 。 。 。 。 。 :=false。 。 :=39。039。 :=false。 :=true。 :=true。 :=false。end。procedure (Sender: TObject)。var i:longint。 //pznr里的憑證編號； j:integer。 k:string。 na5:string。 pzjsq:longint。 x:string。 y:string。 m:longint。 n:longint。 jd:longint。 msg:string。begin//判斷借貸是否平衡； m:=0。 n:=0。 。 。 while (=false) do begin x:=[7].AsString。 y:=[8].AsString。 if (x=39。39。) then x:=39。039。 if (y=39。39。) then y:=39。039。 m:=m+strtoint(x)。 n:=n+strtoint(y)。 。 end。 if m=n then begin jd:=mn。 :=inttostr(jd)。 end else begin jd:=nm。 :=39。39。+inttostr(jd)。 end。//如果借貸平衡，執(zhí)行以下操作；if(jd=0) then begin :=39。039。 :=false。 :=