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

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    //將兩個浏覽按鈕使能打開
    bitbtnEnabled:=true;
    bitbtnEnabled:=true;
    //必須用保存按鈕才能提交
    dbgridEnabled:=false;
    //允許對需求數量和備注進行修改
    dbeditReadOnly:=false;
    dbeditText:=;
    dbeditReadOnly:=false;
    dbeditText:=;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbeditReadOnly:=false;
    dbmemoReadOnly:=false;
    end;
    //調用choose窗體從物料主文件中選擇數據
    procedure TMainProduceBitBtnClick(Sender: TObject);
    var
    newform:Tchoose;
    begin
    //標識從主需求窗體調用物料主文件窗口
    mainbomflag:=;
    newform:=TchooseCreate(application);
    //將本窗口灰化
    selfEnabled:=false;
    //標識為第一個檢索按鈕按下
    insflag:=;
    end;
     
    //從工廠日歷表中選擇數據
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
     mainbomflag:=;
     mainNClick;
     //將本窗口灰化
    selfEnabled:=false;
    //標識為第一個檢索按鈕按下
    insflag:=;
    end;
     
    //修改記錄
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetEdit;
    //將插入刪除修改和移動按鈕關閉防止錯誤操作
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;

right>[http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  []  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  

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