MRP計算功能的實現[3]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    //關閉窗體
    procedure TMRPCalFormClose(Sender: TObject; var Action: TCloseAction);
    begin
    action:=cafree;
    end;
     
    //發布MRP計算結果
    procedure TMRPCalBitBtnClick(Sender: TObject);
    begin
    if applicationMessageBox(是否發布本次計算結果發布mrp計算結果MB_OKCANCEL)=ID_OK then
     begin
     //調用儲存過程執行mrp計算結果發布
     adocommandCommandText:=exec sf_mrp結果發布;
     adocommandExecute;
     //刷新數據
     adoqueryActive:=false;
     adoqueryActive:=true;
     adoqueryActive:=false;
     adoqueryActive:=true;
     end;
    end;      

    MRP計算窗體的時間處理程序代碼看似是所有窗體中最簡單的但實際上它是整個生產管理系統的核心前面所有的功能都是為了這一步而做准備而且實際上MRP計算的過程相當復雜只不過本實例中把非常復雜繁瑣的MRP計算過程用儲存過程的形式在數據庫建庫的時候就寫到了數據庫中這樣在Delphi程序中只需要調用相應的儲存過程即可大大減輕了應用程序開發的負擔讀者結合前面的數據庫建庫過程可以對本節內容加以更深刻的理解MRP計算功能和結果發布功能如圖和圖

right>[http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  []  

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