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

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

    //取消操作
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetCancel;
    //將插入刪除修改和移動按鈕打開
    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;
    //刪除記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    if applicationMessageBox(確實刪除該數據？刪除MB_OKCANCEL)=ID_OK then
     datasourcedatasetdelete;
    end;
     
    procedure TMainProduceDataSourceDataChange(Sender: TObject;Field: TField);
    begin
    //設置列的寬度
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    end;

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

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