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

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

    //取消操作
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetCancel;
    //在浏覽狀態下顯示的是類別的名稱
    dbcomboboxVisible:=false;
    dbcomboboxVisible:=true;
     
    //將插入刪除修改和移動按鈕打開
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    //不允許修改文本框中的內容
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    dbeditReadOnly:=true;
    end;
     
    //提交對數據表所作的修改
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    if applicationMessageBox(確定執行對數據所作的操作？確定MB_OKCANCEL)=IDOK then
    datasourceDataSetPost
    else
    abort;
    //在浏覽狀態下顯示的是類別的名稱

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

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