bas_item_d0.pas

一个MRPII系统源代码版本

        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('采购提前期不能小于零！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
end;

procedure TFrm_Bas_Item_D0.Edt_maxqtyExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);
    except
      begin
        DispInfo('请输入数字！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
    if strtoint(TEdit(Sender).Text)<0 then
    begin
        DispInfo('最大库存不能小于零！',1);
        TWinControl(Sender).SetFocus;
        Abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
end;

procedure TFrm_Bas_Item_D0.Edt_minqtyExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);
    except
      begin
        DispInfo('请输入数字！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;

    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('安全库存不能小于零！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
end;

procedure TFrm_Bas_Item_D0.Vw_BuyerCodeCheck(Sender: TObject);
begin
  inherited;
  if Trim(tExtedit(sender).text)='' then
  lbl_CaiGou.Caption:='';
end;

procedure TFrm_Bas_Item_D0.cmbbx_onlydefaultwhEnter(Sender: TObject);
begin
  inherited;
  if Trim(Extedt_WhCode.text)='' then
  begin
    cmbbx_onlydefaultwh.Itemindex:=0;
    cmbbx_onlydefaultwh.enabled:=False;
    Edt_maxqty.SetFocus;
  end
end;

procedure TFrm_Bas_Item_D0.Edt_PmBatchExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
  exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);
      except
      begin
        DispInfo('请输入数字！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;

    if (Trim(cmbbx_Batchstrat.Text)='是') and (TEdit(Sender).Text='0') then
    begin
      DispInfo('请输入正确的采购生产批量！',1);
      TWinControl(Sender).SetFocus;
      abort;
    end;

    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('采购生产批量不允许小于零!',1);
      TWinControl(Sender).SetFocus;
      abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
end;

procedure TFrm_Bas_Item_D0.edt_CapacityhoursExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);

    except
      begin
        DispInfo('请输入数字！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;

    if (getCode(cmbbx_ItemType.text)='1') and (strtoint(TEdit(Sender).Text)=0) then
    begin
      DispInfo('请输入正确的"能力工时"！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;

    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('能力工时不允许小于零!',1);
      TWinControl(Sender).SetFocus;
      abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
end;

procedure TFrm_Bas_Item_D0.edt_PrepareLTExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);
    except
      begin
        DispInfo('请输入整数！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('准备提前期不能小于零！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
  Edt_Mnldtime.text:=inttostr(strtoint(edt_PrepareLT.text)+strtoint(edt_RunLT.text)+strtoint(edt_QcLT.text))
end;

procedure TFrm_Bas_Item_D0.edt_RunLTExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);
    except
      begin
        DispInfo('请输入整数！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('运行提前期不能小于零！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
  Edt_Mnldtime.text:=inttostr(strtoint(edt_PrepareLT.text)+strtoint(edt_RunLT.text)+strtoint(edt_QcLT.text))
end;

procedure TFrm_Bas_Item_D0.edt_QcLTExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if((Add)or (not Add)) and (Trim(TEdit(Sender).Text)<>'') then
  begin
    try
      strtoint(TEdit(Sender).Text);
    except
      begin
        DispInfo('请输入整数！',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
    if strtoint(TEdit(Sender).Text)<0 then
    begin
      DispInfo('质检提前期不能小于零！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end;
  end
  else
  begin
    TEdit(Sender).Text:='0';
  end;
  Edt_Mnldtime.text:=inttostr(strtoint(edt_PrepareLT.text)+strtoint(edt_RunLT.text)+strtoint(edt_QcLT.text))
end;

procedure TFrm_Bas_Item_D0.WhEmployeeCodeCheck(sender:tobject);
begin
  if (getCode(cmbbx_ItemType.Text)='1')or
     (getCode(cmbbx_ItemType.Text)='3')or
     (getCode(cmbbx_ItemType.Text)='4')or
     (getCode(cmbbx_ItemType.Text)='5')or
     (getCode(cmbbx_ItemType.Text)='6')or
     (getCode(cmbbx_ItemType.Text)='7')then
  begin
    if tExtedit(sender).text='' then
       exit;
  end;
  inherited;
end;

procedure TFrm_Bas_Item_D0.WarehouseCodeCheck(Sender: TObject);
begin
  if (getCode(cmbbx_ItemType.Text)='1')or
     (getCode(cmbbx_ItemType.Text)='3')or
     (getCode(cmbbx_ItemType.Text)='4')or
     (getCode(cmbbx_ItemType.Text)='5')or
     (getCode(cmbbx_ItemType.Text)='6')or
     (getCode(cmbbx_ItemType.Text)='7')then
  begin
    if tExtedit(sender).text='' then
       exit;
  end;
  inherited;
  if Trim(TExtedit(sender).text)<>'' then
  begin
    cmbbx_onlydefaultwh.enabled:=True;
    if upkey=False then
      cmbbx_onlydefaultwh.SetFocus;
  end;
end;

procedure TFrm_Bas_Item_D0.edt_ClassCodeExit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then
  exit;
  //货位类别代码的检测
  if edt_ClassCode.Text<>'' then
  begin
    with AdoQry_tmp do
    begin
      Close;
      sql.Text :='select Count(*) aa from ItemClass where pClassCode='''+edt_ClassCode.text+'''';
      open;
      if fieldbyname('aa').asinteger>0 then
      begin
        DispInfo('该分类代码有子项，不能在此输入！',1);
        twincontrol(sender).SetFocus ;
        abort;
      end
      else
      begin
        Close;
        sql.Text :='select * from ItemClass where ClassCode='''+edt_ClassCode.text+'''';
        open;
        if eof then
        begin
          DispInfo('不存在该分类代码，请重新输入！',3);
          twincontrol(sender).setfocus;
          abort;
        end
        else
        begin
          lbl_ClassName.Caption :=fieldbyname('ClassName').asstring;
        end;
      end;
    end;
  end
  else
    lbl_ClassName.Caption :='';
end;

procedure TFrm_Bas_Item_D0.edt_ClassCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if key=120 then
     commonHint(sender,AdoQry_tmp,'ClassName','分类名称','ClassCode','分类代码','ItemClass','ClassCode not in (select distinct pClassCode from ItemClass)');
end;

procedure TFrm_Bas_Item_D0.FormActivate(Sender: TObject);
begin
  inherited;
  if not Lbl_47.Visible then showmessage('not');
  if edt_ClassCode.Text<>'' then
  begin
    with AdoQry_tmp do
    begin
      Close;
      sql.Text :='select Count(*) aa from ItemClass where pClassCode='''+edt_ClassCode.text+'''';
      open;
      if fieldbyname('aa').asinteger>0 then
      begin
        DispInfo('该分类代码有子项，不能在此输入！',1);
        twincontrol(sender).SetFocus ;
        abort;
      end
      else
      begin
        Close;
        sql.Text :='select * from ItemClass