熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

MRP計算功能的實現[2]

2013-11-23 17:42:46  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    () MRP計算窗體的時間處理程序代碼如下
    //MRP計算
    procedure TMRPCalBitBtnClick(Sender: TObject);
    var
    //調用儲存過程時的參數
    vvv:string;
    i:integer;
    begin
    //考慮庫存生產和采購訂單
    if checkboxChecked then
    v:=
    else
    v:=;
    //是否考慮提前期
    if checkboxChecked then
    v:=
    else
    v:=;
    //是否考慮損耗
    if checkboxChecked then
    v:=
    else
    v:=;
     //調用儲存過程執行mrp計算
    adocommandCommandText:=exec sf_mrp計算 +v++v+
    +v+;
     adocommandExecute;
     //刷新數據
     adoqueryActive:=false;
     adoqueryActive:=true;
      //允許發布計算結果
      bitbtnEnabled:=true;
     end;
     
    procedure TMRPCalDataSourceDataChange(Sender: TObject; Field: TField);
    begin
    //設置列寬度
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    end;

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


From:http://tw.wingwit.com/Article/program/Delphi/201311/24932.html
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.