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

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

    主需求計劃和主生產計劃窗體相似之處非常多它們的很多代碼都是非常相似的只不過所操作的數據表由主需求計劃改為了主生產計劃這樣只需要對主需求計劃維護窗體的時間處理代碼做少許修改即可達到目的

    () 下面給出主生產計劃窗體事件處理程序的代碼請讀者參考主需求計劃窗體時間處理程序的代碼加以理解並特別注意其中的不同之處
    uses MainFormChooseForm;
    {$R *dfm}
    //下一條記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetNext;
    end;
    //上一條記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetPrior;
    end;
    //首條記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetFirst;
    end;
    //末條記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetLast;
    end;
    //關閉窗體
    procedure TMainProduceFormClose(Sender: TObject;
      var Action: TCloseAction);
    begin
    action:=cafree;
    end;
     
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    close;
    end;
     
    //查詢數據
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    adoqueryClose;
    adoquerySQLClear;
    adoquerySQLAdd(select * from 主生產計劃 where (物料編號 like %+editText+%)and);
    adoquerySQLAdd((年份 like %+editText+%)and(計劃期 like %+editText+%));
    adoqueryOpen;
    editClear;
    editClear;
    editClear;
    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/24906.html