MRP計算功能的實現[2]

    ——此文章摘自《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