經典案例 財務管理系統（7）[4]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>

　　//資產負債報表的生成和打印

　　procedure TmainNClick(Sender: TObject);

　　var

　　index:integer;

　　inputstring:string;

　　newform:TFinalReport;

　　begin

　　//取得當前會計期間的值

　　setpara();

　　index:=strtoint(para[]);

　　//提示用戶輸入要顯示的會計期間

　　inputstring:= InputBox(請選擇所要統計的會計期間 會計期間 inttostr(index));

　　index:=strtoint(inputstring);

　　//計算資產負債表

　　adocommandCommandText:=exec sf_計算資產負債表 +inputstring+;

　　adocommandExecute;

　　//顯示報表窗體這裡不需要再查找是否已有報表窗體

　　//這是因為每次調用的報表窗體都可能顯示不同的會計期間

　　newform:=TFinalReportCreate(application);

　　newformSetPeriod(index);

　　newformQuickRepPreview;

　　end;

　　//關閉窗體

　　procedure TmainNClick(Sender: TObject);

　　begin

　　close;

　　end;

　　以上是主窗體的所有代碼與第章中主窗體代碼有區別的是我們自己編寫了一個FindForm函數來查找一個MDI子窗體是否存在使用專門的函數可以大大地壓縮代碼規模使程序顯得簡練同時我們在主窗體執行儲存過程中還是使用了try…except語句這樣做可以在儲存過程出現錯誤時提示用戶讀者可以在自己的程序中選擇使用

[]  []  []  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/25044.html