【正文】 “sf_啟用帳戶”存儲(chǔ)過程，啟用新定義的帳簿，如果不平衡，會(huì)提示用戶查閱試算平衡表，檢查輸入的初始化信息并修改，直到試算平衡才能啟用新定義的帳簿。需要注意的是，啟用新定義的帳簿會(huì)刪除系統(tǒng)中歷史的所有數(shù)據(jù)?！驹囁闫胶狻堪粹o可以隨時(shí)查看當(dāng)前的帳簿信息是否平衡，當(dāng)試算不平衡時(shí)，窗體下方的表格將變?yōu)榧t色，向用戶發(fā)出試算不平衡的警告。從窗體下方的合計(jì)金額可以看出不平衡的原因。 試算結(jié)果不平衡 試算結(jié)果平衡(3) 啟用帳簿后可以進(jìn)行憑證錄入的工作。選擇【憑證管理】|【憑證輸入】菜單命令，進(jìn)入【會(huì)計(jì)憑證輸入】功能窗體，在其中輸入憑證和會(huì)計(jì)分錄信息。若單擊【新增】按鈕，系統(tǒng)自動(dòng)新建一個(gè)憑證，憑證號(hào)和會(huì)計(jì)期間等信息自動(dòng)生成，其中的會(huì)計(jì)期間是“系統(tǒng)參數(shù)表”中的“當(dāng)前會(huì)計(jì)期間”，日期是系統(tǒng)的當(dāng)前日期，窗體后臺(tái)程序?qū){證編號(hào)自動(dòng)進(jìn)行計(jì)算保證新輸入的憑證號(hào)不和以前已有的憑證編號(hào)沖突。在下方的StringGrid中，雙擊“科目名稱”列，將彈出一個(gè)包括科目設(shè)置的基本信息的窗體，在該窗體表格中的任意一欄雙擊，將選中的科目名稱和科目代碼自動(dòng)輸入到【會(huì)計(jì)憑證輸入】窗體中的StringGrid中并關(guān)閉該選擇窗體，如需添加多條分錄信息，則可以再次雙擊“科目名稱”列，重復(fù)前面的操作逐項(xiàng)輸入分錄的信息，完成后單擊【保存】按鈕，系統(tǒng)先檢查借貸雙方是否平衡，如果平衡給予保存。需要修改某個(gè)憑證的信息，選擇相應(yīng)的憑證，單擊【修改】按鈕，修改完成后單擊【保存】按鈕即可。 會(huì)計(jì)憑證輸入功能 科目名稱選擇窗體在保存會(huì)計(jì)憑證設(shè)置時(shí)，程序也會(huì)進(jìn)行計(jì)算，核查分錄表中的數(shù)據(jù)是否平衡，如果各項(xiàng)分錄數(shù)據(jù)的借貸雙方合計(jì)不等，程序?qū)⑻崾居脩暨M(jìn)行修改，直到平衡。這樣，就完成了會(huì)計(jì)憑證的輸入工作，需要對(duì)憑證進(jìn)行過帳。憑證過帳就是確認(rèn)輸入的會(huì)計(jì)憑證，過帳后的憑證不能在進(jìn)行修改。(4) 選擇【憑證管理】|【憑證過帳】菜單命令，系統(tǒng)提示是否過帳。單擊【是】按鈕，系統(tǒng)在后臺(tái)調(diào)用“sf_憑證過帳”存儲(chǔ)過程，對(duì)憑證進(jìn)行過帳，計(jì)算本期匯總帳簿和明細(xì)帳簿。過帳完成后系統(tǒng)提示過帳成功，并顯示過帳的憑證數(shù)及借貸方金額等反饋信息。 憑證過帳功能 憑證過帳后的反饋信息(5) 可以分別選擇【帳簿查詢】|【總分類帳】和【帳簿查詢】|【明細(xì)帳】命令，進(jìn)入本期【總分類帳查詢】和【明細(xì)帳查詢】功能。在【總分類帳查詢】窗體中，可以通過選中【無發(fā)生金額布顯示】單選框來確定是否要對(duì)表格中的數(shù)據(jù)進(jìn)行過濾，只顯示那些發(fā)生了金額的項(xiàng)目。 總分類帳查詢(6) 【明細(xì)帳查詢】窗體的表中顯示的是所有的明細(xì)帳單，用戶可以將左邊的列表框中現(xiàn)有所有明細(xì)帳單的科目名稱逐個(gè)添加到右邊的列表框中，從而控制在表格中顯示哪些明細(xì)帳單。 明細(xì)帳查詢 明細(xì)帳單項(xiàng)過濾當(dāng)前會(huì)計(jì)期間內(nèi)的所有憑證過帳完成后，可以進(jìn)行月末結(jié)帳操作，轉(zhuǎn)入下一會(huì)計(jì)期間，結(jié)帳前首先要進(jìn)行試算平衡的檢查。(7) 選擇【結(jié)帳及報(bào)表】|【試算平衡表】菜單命令，可以看到當(dāng)前帳目的平衡信息。這里的試算平衡表與前面初始化帳簿中的試算平衡表是有所差別的。初始化帳簿的試算平衡，需要根據(jù)初始化的信息反算期初信息，而結(jié)帳階段的試算平衡表主要反映在憑證過帳之后結(jié)帳時(shí)的統(tǒng)計(jì)信息。試算結(jié)果平衡后選擇【結(jié)帳及報(bào)表】|【期末結(jié)帳】菜單命令，系統(tǒng)在后臺(tái)調(diào)用“sf_期末結(jié)帳”存儲(chǔ)過程，進(jìn)行結(jié)帳操作。 試算平衡功能(8) 結(jié)帳后可以查詢當(dāng)月的資產(chǎn)負(fù)債表，選擇【結(jié)帳及報(bào)表】|【資產(chǎn)負(fù)債表】菜單命令，系統(tǒng)先提示輸入統(tǒng)計(jì)的會(huì)計(jì)期間，默認(rèn)是當(dāng)前會(huì)計(jì)期間，確定后調(diào)用“sf_計(jì)算資產(chǎn)負(fù)債表”存儲(chǔ)過程計(jì)算資產(chǎn)負(fù)債表，然后在報(bào)表窗體中顯示報(bào)表。 資產(chǎn)負(fù)債表啟動(dòng)Delphi，采用默認(rèn)設(shè)置新建一個(gè)工程，并將工程保存為“”。選擇Project | Options…菜單命令，在Application選項(xiàng)卡中修改工程的Title屬性為“財(cái)務(wù)管理系統(tǒng)”，本例我們?cè)谂鋾獗P的 \Chap4\。(1) 利用系統(tǒng)默認(rèn)生成的窗體作為主窗體，并為其添加主菜單控件和其他控件。將該窗體設(shè)置為MDI的主窗體，正如我們?cè)诘?章中所做的那樣。 系統(tǒng)主窗體。 主窗體屬性設(shè)置控件類型對(duì)象(控件)名屬 性取值(說明)TFormMainNamemainCaption財(cái)務(wù)管理系統(tǒng)FormStylefsMDIFormPositionpoDesktopCenterTADOCommandADOCommandConnectionString，數(shù)據(jù)庫設(shè)置為caiwubookTADOQueryADOQuery1ConnectionString，數(shù)據(jù)庫設(shè)置為caiwubookSQLselect count(distinct 憑證編號(hào)) 憑證數(shù), sum(借方) 借方金額,sum(貸方) 貸方金額 from 分錄表TADOQueryADOQuery3ConnectionString，數(shù)據(jù)庫設(shè)置為caiwubookSQLselect * from 系統(tǒng)參數(shù)表(2) 。(3) 為各菜單的添加如下功能代碼。typeTtable=array[0..2] of string。//…此處為系統(tǒng)窗體構(gòu)件聲明，省略… public { Public declarations } //para用于保存系統(tǒng)參數(shù)，F(xiàn)indForm用于尋找MDI子窗體，//setpara用于更新para的值 para:Ttable。 function FindForm(caption:string):bool。 procedure setpara()。 end。var main: Tmain。 para:Ttable。implementation{$R *.dfm}uses SecSettingForm,AccountSettingForm,DocuInputForm,TotalAccountForm,DetailAccountForm,SumAccountForm,FinalReportForm。//通過用戶定義的函數(shù)，判斷窗體是否存在function (caption: string): bool。vari:integer。beginfor i:=0 to do begin // 通過對(duì)窗體標(biāo)題判斷窗體是否存在 if [i].Caption=caption then begin //如果窗體已存在，則恢復(fù)窗體，并返回true SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_restore, 0)。 mdichildren[i].Enabled:=true。 mdichildren[i].Show。 mdichildren[i].SetFocus。 result:=true。 break。 end else //如窗體不存在，則返回false，程序?qū)?chuàng)建窗體 result:=false。 endend。//該函數(shù)的作用是保存系統(tǒng)參數(shù)表中的參數(shù)，并在調(diào)用前更新procedure 。vari:integer。begin :=false。 :=true。 i:=0。while not dobegin //保存系統(tǒng)參數(shù) para[i]:=(39。取值39。).AsString。 i:=i+1。 。end。end。//顯示會(huì)計(jì)科目設(shè)置窗體procedure (Sender: TObject)。varnewform:TSecSetting。beginif findForm(39。會(huì)計(jì)科目設(shè)置39。)=false thenbegin //若窗體不存在，則創(chuàng)建窗體 newform:=(application)。 :=39。會(huì)計(jì)科目設(shè)置39。 end。end。//顯示帳戶設(shè)置窗體procedure (Sender: TObject)。varnewform:TaccountSetting。beginif findForm(39。帳戶設(shè)置(期初數(shù)據(jù)錄入)39。)=false thenbegin //若窗體不存在，則創(chuàng)建窗體 newform:=(application)。 :=39。帳戶設(shè)置(期初數(shù)據(jù)錄入)39。 end。end。//顯示憑證設(shè)置窗體procedure (Sender: TObject)。varnewform:TDocuInput。begin if findForm(39。會(huì)計(jì)憑證輸入39。)=false then begin //若窗體不存在，則創(chuàng)建窗體 newform:=(application)。 :=39。會(huì)計(jì)憑證輸入39。 end。end。//顯示總分類帳查詢窗體procedure (Sender: TObject)。varnewform:Ttotalaccount。begin if findForm(39。總分類帳查詢39。)=false then begin //若窗體不存在，則創(chuàng)建窗體 newform:=(application)。 :=39。總分類帳查詢39。 end。end。//顯示明細(xì)帳查詢窗體procedure (Sender: TObject)。varnewform:Tdetailaccount。begin if findForm(39。明細(xì)帳查詢39。)=false then begin //若窗體不存在，則創(chuàng)建窗體 newform:=(application)。 :=39。明細(xì)帳查詢39。 end。end。//顯示試算平衡表窗體procedure (Sender: TObject)。varnewform:Tsumaccount。begin if findForm(39。試算平衡表(正式使用)39。)=false then begin //若窗體不存在，則創(chuàng)建窗體 newform:=(application)。 :=39。試算平衡表(正式使用)39。 //在正式平衡表中使用 。 end。end。//執(zhí)行憑證過帳儲(chǔ)存過程procedure (Sender: TObject)。varpnum,inputsum,outputsum:string。beginif (39。憑證過帳后即不可修改，是否確認(rèn)過帳？39。,39。確認(rèn)39。,MB_OKCANCEL)=IDOK thenbegin//獲得分錄表中的統(tǒng)計(jì)數(shù)據(jù):=false。:=true。pnum:=(39。憑證數(shù)39。).AsString。inputsum:=(39。借方金額39。).AsString。outputsum:=(39。貸方金額39。).AsString。//執(zhí)行儲(chǔ)存過程，實(shí)現(xiàn)憑證過帳try:=39。exec sf_憑證過帳39。exceptshowmessage(39。過帳失敗39。)。exit。end。//顯示成功信息，并顯示統(tǒng)計(jì)數(shù)據(jù)showmessage(39。過帳成功39。+13+13+39。過帳憑證數(shù)目為:39。+pnum+13+39。借方金額合計(jì):39。+inputsum+13+39。貸方金額合計(jì)39。+outputsum)。//刪除分錄表和憑證表:=39。delete from 分錄表39。:=39。delete from 憑證表39。end。end。//執(zhí)行期末結(jié)帳的儲(chǔ)存過程procedure (Sender: TObject)。beginif (39。結(jié)帳將進(jìn)入下一個(gè)會(huì)計(jì)期間，是否結(jié)帳？39。,39。確認(rèn)39。,MB_OKCANCEL)=IDOK thenbegin try :=39。exec sf_期末結(jié)帳39。 。 except showmessage(39。結(jié)帳失敗39。)。 exit。 end。showmessage(39。結(jié)帳成功39。)。end。end。//資產(chǎn)負(fù)債報(bào)表的生成和打印procedure (Sender: TObject)。varindex:integer。inputstring:string。newform:TFinalReport。begin//取得當(dāng)前會(huì)計(jì)期間的值setpara()。index:=strtoint(para[2])。//提示用戶輸入要顯示的會(huì)計(jì)期間inputstring:= InputBox(39。請(qǐng)選擇所要統(tǒng)計(jì)的會(huì)計(jì)期間39。, 39。會(huì)計(jì)期間39。, inttostr(index1))。index:=strtoint(inputstring)。//計(jì)算資產(chǎn)負(fù)債表:=39。exec sf_計(jì)算資產(chǎn)負(fù)債表 39。39。39。+inputstring+39。39。39。39。//顯示報(bào)表窗體，這里不需要再查找是否已有報(bào)表窗體//這是因?yàn)槊看握{(diào)用的報(bào)表窗體都可能顯示不同的會(huì)計(jì)期間newform:=(application)。(index)。end。//關(guān)閉窗體procedure (Sender: TObject)。beginclose。end。以上是主窗體的所有代碼，與第3章中主窗體代碼有區(qū)別的是我們自己編寫了一個(gè)FindForm函數(shù)來查找一個(gè)MDI子窗體是否存在，使用專門的函數(shù)可以大大地壓縮代碼規(guī)模，使程序顯得簡(jiǎn)練。同時(shí)，我們?cè)谥鞔绑w執(zhí)行儲(chǔ)存過程中還是使用了try…except語句，這樣做可以在儲(chǔ)存過程出現(xiàn)錯(cuò)誤時(shí)提示用戶。讀