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

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

    dbcomboboxVisible:=false;
    dbcomboboxVisible:=true;
    //將插入刪除修改和移動按鈕打開
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    end;
    //不允許修改文本框中的內容
    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;
     
    //關閉窗體
    procedure TmaterialsBitBtnClick(Sender: TObject);
    begin
    close;
    end;
     

    小知識  MDI程序中子窗體關閉方式的設置方法

    在Delphi中MDI子窗口的關閉方式默認為縮小而不是關閉故當您單擊子窗口右上角的關閉按鈕時會發覺該子窗口只是最小化而不是如您所預期的那樣被關閉解決辦法是在子窗口的OnClose事件處理過程中加入如下代碼
            procedure ChildFormOnClose(Sender: TObject; var Action: TCloseAction);
            begin
            Action := caFree;
            end;   

    Delphi為一個窗體的關閉行為指定了種方式分別是
    caNone 禁止子窗體被關閉
    caHide 子窗體不被關閉但是被隱藏被隱藏的窗體仍然可以被程序訪問
     caFree 子窗體被關閉並且釋放其占用的資源
    caMinimize 子窗體被最小化而不是被關閉這是MDI子窗口的默認關閉行為     

    至此我們完成了物料主文件維護的功能其效果如圖所示

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

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