物料主文件維護功能的實現[6]

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

    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    //允許保存或取消對數據所作的操作
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    //允許修改文本框中的內容
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    end;
     
    //刪除一條記錄
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    if applicationMessageBox(確實刪除記錄？該命令不可取消!刪除記錄MB_OKCANCEL)=IDOK then
    datasourceDataSetDelete
    else
    abort;
    end;

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

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