bas_enter_payterm_d.pas

一个MRPII系统源代码版本

  if activecontrol.Name='btn_Cancel' then
    exit;
  if (Trim(edt_fAdays3.Text)='0') or (Trim(edt_fAdays3.text)='') then
   exit;
   try
    strtoint(Trim(edt_fAdays3.text));
   except
    DispInfo('请输入正确的优惠天数3！',1);
    edt_fAdays3.SetFocus;
    abort;
   end;

  if (Trim(edt_fAdays2.text)='') or (Trim(edt_fAdays2.text)='0') then
   begin
   DispInfo('请先输入优惠天数2！',1);
   edt_fAdays2.SetFocus;
   abort;

   end;

if NOT ((strtoint(Trim(edt_fAdays3.text))>strtoint(Trim(edt_fAdays2.text))) and (strtoint(Trim(edt_fAdays3.text))<strtoint(Trim(edt_Credays.text)))) then
  begin
   DispInfo('优惠天数3必须大于优惠天数2并且小于信用天数！',3);
   edt_fAdays3.SetFocus;
   abort;
  end;

if strtoint(Trim(edt_fAdays3.text))>999 then
  begin
   DispInfo('优惠天数3不能超过999！',3);
   edt_fAdays3.SetFocus;
   abort;

  end;


end;

procedure TFrm_Bas_Enter_PayTerm_D.edt_fAdays4Exit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then
    exit;
  if (Trim(edt_fAdays4.Text)='0') or (Trim(edt_fAdays4.text)='') then
   exit;
   try
    strtoint(Trim(edt_fAdays4.text));
   except
    DispInfo('请输入正确的优惠天数4！',1);
    edt_fAdays4.SetFocus;
    abort;
   end;

  if (Trim(edt_fAdays3.text)='') or (Trim(edt_fAdays3.text)='0') then
   begin
   DispInfo('请先输入优惠天数3！',1);
   edt_fAdays3.SetFocus;
   abort;

   end;

if NOT ((strtoint(Trim(edt_fAdays4.text))>strtoint(Trim(edt_fAdays3.text))) and (strtoint(Trim(edt_fAdays4.text))<strtoint(Trim(edt_Credays.text)))) then
  begin
   DispInfo('优惠天数4必须大于优惠天数3并且小于信用天数！',3);
   edt_fAdays4.SetFocus;
   abort;
  end;

if strtoint(Trim(edt_fAdays4.text))>999 then
  begin
   DispInfo('优惠天数4不能超过999！',3);
   edt_fAdays4.SetFocus;
   abort;

  end;

end;

procedure TFrm_Bas_Enter_PayTerm_D.edt_fArate1Exit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then
    exit;
  if not ((Trim(edt_fAdays1.text)='') or (Trim(edt_fAdays1.text)='0')) then
    begin
       if Trim(edt_fArate1.text)='' then
        begin
         DispInfo('请输入优惠率1！',1);
         edt_fArate1.SetFocus;
         abort;
        end;
       try
        strtofloat(Trim(edt_fArate1.text));
       except
       DispInfo('请输入正确的优惠率1！',1);
       edt_fArate1.SetFocus;
       abort;
       end;
      if not ((strtofloat(Trim(edt_fArate1.text))>=0 ) and ((strtofloat(Trim(edt_fArate1.text))<=99))) then
       begin
        DispInfo('优惠率1必须为0到99！',1);
        edt_fArate1.SetFocus;
        abort;
       end;

    end
    else
     begin
       if (Trim(edt_fArate1.text)='') or (Trim(edt_fArate1.text)='0') then
        exit;
       DispInfo('请先输入优惠天数1！',3);
       edt_fAdays1.SetFocus;
       abort;
     end;


end;

procedure TFrm_Bas_Enter_PayTerm_D.edt_fArate2Exit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then
    exit;
  if not ((Trim(edt_fAdays2.text)='') or (Trim(edt_fAdays2.text)='0')) then
    begin
       if Trim(edt_fArate2.text)='' then
        begin
         DispInfo('请输入优惠率2！',1);
         edt_fArate2.SetFocus;
         abort;
        end;
       try
        strtofloat(Trim(edt_fArate2.text));
       except
       DispInfo('请输入正确的优惠率2！',1);
       edt_fArate2.SetFocus;
       abort;
       end;
      if not ((strtofloat(Trim(edt_fArate2.text))>=0 ) and ((strtofloat(Trim(edt_fArate2.text))<=99))) then
       begin
        DispInfo('优惠率2必须为0到99！',1);
        edt_fArate2.SetFocus;
        abort;
       end;
      if not (strtofloat(Trim(edt_fArate2.text))<strtofloat(Trim(edt_fArate1.text))) then
        begin
          DispInfo('优惠率2必须小于优惠率1！',3);
          edt_fArate2.SetFocus;
          abort;
        end;

    end
    else
     begin
       if (Trim(edt_fArate2.text)='') or (Trim(edt_fArate2.text)='0') then
        exit;
       DispInfo('请先输入优惠天数2！',3);
       edt_fAdays2.SetFocus;
       abort;
     end;
end;

procedure TFrm_Bas_Enter_PayTerm_D.edt_fArate3Exit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then
    exit;
  if not ((Trim(edt_fAdays3.text)='') or (Trim(edt_fAdays3.text)='0')) then
    begin
       if Trim(edt_fArate3.text)='' then
        begin
         DispInfo('请输入优惠率3！',1);
         edt_fArate3.SetFocus;
         abort;
        end;
       try
        strtofloat(Trim(edt_fArate3.text));
       except
       DispInfo('请输入正确的优惠率3！',1);
       edt_fArate3.SetFocus;
       abort;
       end;
      if not ((strtofloat(Trim(edt_fArate3.text))>=0 ) and ((strtofloat(Trim(edt_fArate3.text))<=99))) then
       begin
        DispInfo('优惠率3必须为0到99！',1);
        edt_fArate3.SetFocus;
        abort;
       end;

      if not (strtofloat(Trim(edt_fArate3.text))<strtofloat(Trim(edt_fArate2.text))) then
        begin
          DispInfo('优惠率3必须小于优惠率2！',3);
          edt_fArate3.SetFocus;
          abort;
        end;
    end
    else
     begin
       if (Trim(edt_fArate3.text)='') or (Trim(edt_fArate3.text)='0') then
        exit;
       DispInfo('请先输入优惠天数3！',3);
       edt_fAdays3.SetFocus;
       abort;
     end;

end;

procedure TFrm_Bas_Enter_PayTerm_D.edt_fArate4Exit(Sender: TObject);
begin
  inherited;
  if activecontrol.Name='btn_Cancel' then
    exit;
  if not ((Trim(edt_fAdays4.text)='') or (Trim(edt_fAdays4.text)='0')) then
    begin
       if Trim(edt_fArate4.text)='' then
        begin
         DispInfo('请输入优惠率3！',1);
         edt_fArate4.SetFocus;
         abort;
        end;
       try
        strtofloat(Trim(edt_fArate4.text));
       except
       DispInfo('请输入正确的优惠率4！',1);
       edt_fArate4.SetFocus;
       abort;
       end;
      if not ((strtofloat(Trim(edt_fArate4.text))>=0 ) and ((strtofloat(Trim(edt_fArate4.text))<=99))) then
       begin
        DispInfo('优惠率4必须为0到99！',1);
        edt_fArate4.SetFocus;
        abort;
       end;
      if not (strtofloat(Trim(edt_fArate4.text))<strtofloat(Trim(edt_fArate3.text))) then
        begin
          DispInfo('优惠率4必须小于优惠率3！',3);
          edt_fArate4.SetFocus;
          abort;
        end;

    end
    else
     begin
       if (Trim(edt_fArate4.text)='') or (Trim(edt_fArate4.text)='0') then
        exit;
       DispInfo('请先输入优惠天数4！',3);
       edt_fAdays4.SetFocus;
       abort;
     end;

end;

procedure TFrm_Bas_Enter_PayTerm_D.btn_okClick(Sender: TObject);
begin
   edt_Credays.OnExit(sender);
   edt_fAdays1.OnExit(sender);
   edt_fArate1.OnExit(sender);
   edt_fAdays2.OnExit(sender);
   edt_fArate2.OnExit(sender);
   edt_fAdays3.OnExit(sender);
   edt_fArate3.OnExit(sender);
   edt_fAdays4.OnExit(sender);
   edt_fArate4.OnExit(sender);
   edt_termName.Text:=iifstring((Trim(edt_fAdays1.text)='') or (Trim(edt_fAdays1.text)='0'),'',edt_fArate1.Text+'/'+edt_fAdays1.Text+',')
                     +iifstring((Trim(edt_fAdays2.text)='') or (Trim(edt_fAdays2.text)='0'),'',edt_fArate2.Text+'/'+edt_fAdays2.Text+',')
                     +iifstring((Trim(edt_fAdays3.text)='') or (Trim(edt_fAdays3.text)='0'),'',edt_fArate3.Text+'/'+edt_fAdays3.Text+',')
                     +iifstring((Trim(edt_fAdays4.text)='') or (Trim(edt_fAdays4.text)='0'),'',edt_fArate4.Text+'/'+edt_fAdays4.Text+',')
                     +'n/'+edt_Credays.Text;
  // +','+edt_fArate2.Text+'/'+edt_fAdays2.Text+','+edt_fArate3.Text+'/'+edt_fAdays3.Text+','+edt_fArate4.Text+'/'+edt_fAdays4.Text+',n/'+edt_Credays.Text;
  inherited;


end;

procedure TFrm_Bas_Enter_PayTerm_D.edt_termCodeExit(Sender: TObject);
begin
  inherited;
if activecontrol.Name='btn_Cancel' then
 exit;
Executesql(AdoQry_tmp,'select * from PayTerm where PayTermCode='+quotedstr(Trim(edt_termCode.text)),0);
if AdoQry_tmp.RecordCount>0 then
 begin
  DispInfo('已存在付款条款代码为'+quotedstr(Trim(edt_termCode.text))+'的付款条款！',3);
  edt_termCode.SetFocus;
  abort;
 end;
end;

end.