主生產計劃維護功能的實現[7]

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

    //為產品名稱文本框查詢產品名稱
    procedure TMainProduceDataSourceDataChange(Sender: TObject;
      Field: TField);
    begin
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select 物料名稱 from 物料主文件 where 物料編號=+dbeditText+);
    adoqueryOpen;
    dbeditText:=adoqueryFieldByName(物料名稱)AsString;
    end;
     
    procedure TMainProduceBitBtnClick(Sender: TObject);
    var
    ordernum:string;
    begin
    //選中的數據的計劃期和物料編號
     order:=dbgridFields[]AsString;
     num:=dbgridFields[]AsString;
     //將主需求計劃表中的數據送入主生產計劃表
     adocommandCommandText:=insert into 主生產計劃([物料編號] [年份] [計劃期]
     [開始日期] [結束日期] [需求數量] [MPS數量] [狀態] [備注]) select 物料編號
     年份計劃期 開始日期結束日期需求數量需求數量狀態備注 from 主需求計劃 where
     (物料編號=+num+)and(計劃期=+order+);
     adocommandExecute;
     //保存到主需求計劃歷史
     adocommandCommandText:=insert into 主需求計劃歷史 select * from 主需求計劃 where (物料編號=+num+)and(計劃期=+order+);
     adocommandExecute;
     //刪除在主需求計劃表中的已被插入到主生產計劃表中的數據
      adocommandCommandText:=delete from 主需求計劃 where (物料編號=+num+)
      and(計劃期=+order+);
      adocommandExecute;
     //刷新數據
    adoqueryActive:=false;
    adoqueryActive:=true;
    adoqueryActive:=false;
    adoqueryActive:=true;
     end;      

    到此我們就完成了主生產計劃維護的功能其效果如圖所示

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

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