mrp_param.pas

一个MRPII系统源代码版本

      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('MrpdatAreSource')      +','
              +quotedstr('Mrp展开数据驱动源')+','
              +inttostr(cmb_Mrpds.Itemindex+1)+','
              +quotedstr('')+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueN='+inttostr(Cmb_Mrpds.ItemIndex+1)+
               ' where MrpParamCode='''+'MrpdatAreSource'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//---------------------------------------------------------------------------------------------

{    Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam Set MrpParamValueN='+inttostr(Cmb_Mrpds.ItemIndex+1)+
      ' where MrpParamCode='''+'MrpdatAreSource'+'''');
    ExecSql;
}
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('SSForwArdDay');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('SSForwArdDay')      +','
              +quotedstr('生产建议显示提前天数')+','
              +edt_Ssday.text+','
              +quotedstr('')+')';
      Executesql(AdoQry_tmp,sqltext,1);
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueN='+edt_Ssday.text+
               ' where MrpParamCode='''+'SSForwArdDay'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//--------------------------------------------------------------------------------
 {   Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam Set MrpParamValueN='+Edt_SSDay.Text+
      ' where MrpParamCode='''+'SSForwArdDay'+'''');
    ExecSql;
 }
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('autoRunMrp');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('autoRunMrp')      +','
              +quotedstr('每天自动运行Mrp的时间')+','
              +inttostr(1)+','
              +quotedstr(EDt_AutoRunMrp.text)+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueC='+quotedstr(EDt_AutoRunMrp.text)+
               ' where MrpParamCode='''+'autoRunMrp'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//--------------------------------------------------------------------------------------------------------------------
{    Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam set MrpParamValueC='''+EDt_AutoRunMrp.text+''' Where MrpParamCode='''+'AutoRunMrp'+'''');
    ExecSql;
}
    //
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('AutoRunPSI1');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('AutoRunPSI1')      +','
              +quotedstr('每天定时在服务器端运行综合日报表程序的时间1')+','
              +'0,'
              +quotedstr(MEdt_AutoRunPSI1.text)+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueC='+quotedstr(MEdt_AutoRunPSI1.text)+
               ' where MrpParamCode='''+'AutoRunPSI1'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//-------------------------------------------------------------------------------------------------------------------------
{    Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam set MrpParamValueC='''+MEdt_AutoRunPSI1.text+''' Where MrpParamCode='''+'AutoRunPSI1'+'''');
    ExecSql;
}
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('AutoRunPSI2');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('AutoRunPSI2')      +','
              +quotedstr('每天定时在服务器端运行综合日报表程序的时间2')+','
              +'0,'
              +quotedstr(MEdt_AutoRunPSI2.text)+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueC='+quotedstr(MEdt_AutoRunPSI2.text)+
               ' where MrpParamCode='''+'AutoRunPSI2'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//-----------------------------------------------------------------------------------------------------
 {   Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam set MrpParamValueC='''+MEdt_AutoRunPSI2.text+''' Where MrpParamCode='''+'AutoRunPSI2'+'''');
    ExecSql;
  }
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('AutoRunPSI3');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('AutoRunPSI3')      +','
              +quotedstr('每天定时在服务器端运行综合日报表程序的时间3')+','
              +'0,'
              +quotedstr(MEdt_AutoRunPSI3.text)+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueC='+quotedstr(MEdt_AutoRunPSI3.text)+
               ' where MrpParamCode='''+'AutoRunPSI3'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//---------------------------------------------------------------------------------------------------  
{    Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam set MrpParamValueC='''+MEdt_AutoRunPSI3.text+''' Where MrpParamCode='''+'AutoRunPSI3'+'''');
    ExecSql;
     //
}
    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('WhereRunMrp');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('WhereRunMrp')      +','
              +quotedstr('何处运行Mrp')+','
              +inttostr(cmbx_WhereRunMrp.Itemindex)+','
              +quotedstr('')+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueN='+inttostr(Cmbx_WhereRunMrp.ItemIndex)+
               ' where MrpParamCode='''+'WhereRunMrp'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
//---------------------------------------------------------------------------------------------------------------------------------------
{    Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam set MrpParamValueN='+inttostr(Cmbx_WhereRunMrp.ItemIndex)+' Where MrpParamCode='''+'WhereRunMrp'+'''');
    ExecSql;
}
{    sqltext:='select * from MrpParam where MrpParamCode='+quotedstr('Overqtydeny_Percent');
    Executesql(AdoQry_Tmp,sqltext,0)    ;
    if AdoQry_tmp.RecordCount=0 then
    begin
      sqltext:='insert into MrpParam(MrpParamCode,MrpParamName,MrpParamValuen,MrpParamValuec) '
              +' Values ('+quotedstr('Overqtydeny_Percent')      +','
              +quotedstr('')+','
              +Edt_Overqtydeny_Percent.text+','
              +quotedstr('')+')';
      Executesql(AdoQry_tmp,sqltext,1);
              
    end
    else 
    begin
      sqltext:=' Update MrpParam Set MrpParamValueN='+Edt_Overqtydeny_Percent.text+
               ' where MrpParamCode='''+'Overqtydeny_Percent'+'''';
      Executesql(AdoQry_tmp,sqltext,1);
    end;
}//---------------------------------------------------------------------------------------------------
{    Close ;
    SQL.clear ;
    SQL.Add('Update MrpParam Set MrpParamValueN='''+Edt_Overqtydeny_Percent.text+''' Where MrpParamCode='''+'Overqtydeny_Percent'+'''');
    ExecSql;
}
//  end;
  Close;
end;

procedure TFrm_Mrp_Param.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=CaFree;
end;

procedure TFrm_Mrp_Param.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  If Key=Vk_EScApe then
    Close;
end;

procedure TFrm_Mrp_Param.btn_CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrm_Mrp_Param.Edt_SSDayExit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel') or FReadOnly then
    exit;
  IF Self.Text<>'' then
  try
    StrToInt(Edt_SSDay.text);
  except
    DispInfo('请输入合法的数值！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  IF (StrToInt(Edt_SSDay.Text)>99) or (StrToInt(Edt_SSDay.Text)<0) then
  begin
    DispInfo('建议显示天数超出范围！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Mrp_Param.EDt_AutoRunMrpExit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel') or FReadOnly then
    exit;
  IF EDt_AutoRunMrp.Text<>'  :  ' then
  try
    strtotime(EDt_AutoRunMrp.text)
  except
    DispInfo('请输入合法的时间！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Mrp_Param.MEdt_AutoRunPSI1Exit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel') or FReadOnly then
    exit;
  IF MEdt_AutoRunPSI1.Text<>'  :  ' then
  try
    strtotime(MEdt_AutoRunPSI1.text)
  except
    DispInfo('请输入合法的时间！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Mrp_Param.MEdt_AutoRunPSI2Exit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel') or FReadOnly then
    exit;
  IF MEdt_AutoRunPSI2.Text<>'  :  ' then
  try
    strtotime(MEdt_AutoRunPSI2.text)
  except
    DispInfo('请输入合法的时间！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Mrp_Param.MEdt_AutoRunPSI3Exit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel') or FReadOnly then
    exit;
  IF MEdt_AutoRunPSI3.Text<>'  :  ' then
  try
    strtotime(MEdt_AutoRunPSI3.text)
  except
    DispInfo('请输入合法的时间！',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Mrp_Param.MEdt_AutoRunPSI1Change(Sender: TObject);
begin
  inherited;
  if not FReadOnly then
    Btn_Ok.Enabled :=True;
end;

end.