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

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

    dbcomboboxVisible:=false;
    dbcomboboxVisible:=true;
    dbeditText:=;
    //將插入刪除修改和移動按鈕關閉防止錯誤操作
    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
    datasourceDataSetEdit;
    //物料主文件中存儲的是類別的拼音而不是名稱因此插入時需要輸入拼音而不是名稱
    dbcomboboxVisible:=false;
    dbcomboboxVisible:=true;
    //將插入刪除修改和移動按鈕關閉防止錯誤操作

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

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