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

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

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