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

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>

    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    //打開保存和取消按鈕的使能允許保存或者取消
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    //將兩個浏覽按鈕使能打開
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    //必須用保存按鈕才能提交
    dbgridEnabled:=false;
    //允許對需求數量和備注進行修改
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbmemoReadOnly:=false;
    end;
     
    //保存記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetPost;
    //將插入刪除修改和移動按鈕打開
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    //關閉保存和取消按鈕的使能
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    //將兩個浏覽按鈕使能關閉
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    //恢復dbgrid的選取功能
    dbgridEnabled:=true;
    //恢復dbedit的只讀屬性
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbmemoReadOnly:=true;
    dbmemoReadOnly:=true;
    //刷新數據
    adoqueryActive:=false;
    adoqueryActive:=true;
    end;

[]  []  []  []  []  []  []  

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