熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-23 17:42:07  來源: Delphi編程 
    ——此文章摘自《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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.