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

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

    procedure TMainProduceEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
    procedure TMainProduceEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
    procedure TMainProduceEditKeyPress(Sender: TObject; var Key: Char);
    begin
    if key=# then
     bitbtnClick;
    end;
     
    //新增記錄
    procedure TMainProduceFormActivate(Sender: TObject);
     
    begin
    //如果是新增按鈕被按下則將從物料主文件中選取得零件的編號
    //名稱等信息送到主需求窗口中並初始化一些數據
     if insflag= then
      begin
      dbeditText:=mainstr;
      dbeditText:=mainstr;
      end;
      if insflag= then
      begin
      dbeditText:=mainstr;
      dbeditText:=mainstr;
      dbeditText:=mainstr;
      dbeditText:=mainstr;
      end;
    end;
     
    procedure TMainProduceBitBtnClick(Sender: TObject);
    begin
    datasourceDataSetInsert;
    //將插入刪除修改和移動按鈕關閉防止錯誤操作
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    bitbtnEnabled:=false;
    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/24907.html