bas_param.pas

一个MRPII系统源代码版本

   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Name2.text)+''''+
     ' where SysParamCode='''+'Name2'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_EMail.text)+''''+
     ' where SysParamCode='''+'EMail'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Bank.text)+''''+
     ' where SysParamCode='''+'Bank'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_BankAccNo.text)+''''+
     ' where SysParamCode='''+'BankAccNo'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_TaxNo.text)+''''+
     ' where SysParamCode='''+'TaxNo'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Tel.text)+''''+
     ' where SysParamCode='''+'Tel'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Fax.text)+''''+
     ' where SysParamCode='''+'Fax'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Owner.text)+''''+
     ' where SysParamCode='''+'Owner'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ItemClass1Name.text)+''''+
     ' where SysParamCode='''+'ItemClass1Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ItemClass2Name.text)+''''+
     ' where SysParamCode='''+'ItemClass2Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ItemClass3Name.text)+''''+
     ' where SysParamCode='''+'ItemClass3Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ItemClass4Name.text)+''''+
     ' where SysParamCode='''+'ItemClass4Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ItemClass5Name.text)+''''+
     ' where SysParamCode='''+'ItemClass5Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_CustomerClass1Name.text)+''''+
     ' where SysParamCode='''+'CustomerClass1Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_CustomerClass2Name.text)+''''+
     ' where SysParamCode='''+'CustomerClass2Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_CustomerClass3Name.text)+''''+
     ' where SysParamCode='''+'CustomerClass3Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_CustomerClass4Name.text)+''''+
     ' where SysParamCode='''+'CustomerClass4Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_CustomerClass5Name.text)+''''+
     ' where SysParamCode='''+'CustomerClass5Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_VendorClass1Name.text)+''''+
     ' where SysParamCode='''+'VendorClass1Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_VendorClass2Name.text)+''''+
     ' where SysParamCode='''+'VendorClass2Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_VendorClass3Name.text)+''''+
     ' where SysParamCode='''+'VendorClass3Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_VendorClass4Name.text)+''''+
     ' where SysParamCode='''+'VendorClass4Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_VendorClass5Name.text)+''''+
     ' where SysParamCode='''+'VendorClass5Name'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType1.text)+''''+
     ' where SysParamCode='''+'SaleType1'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType2.text)+''''+
     ' where SysParamCode='''+'SaleType2'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType3.text)+''''+
     ' where SysParamCode='''+'SaleType3'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType4.text)+''''+
     ' where SysParamCode='''+'SaleType4'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType5.text)+''''+
     ' where SysParamCode='''+'SaleType5'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType6.text)+''''+
     ' where SysParamCode='''+'SaleType6'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType7.text)+''''+
     ' where SysParamCode='''+'SaleType7'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType8.text)+''''+
     ' where SysParamCode='''+'SaleType8'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType9.text)+''''+
     ' where SysParamCode='''+'SaleType9'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_SaleType10.text)+''''+
     ' where SysParamCode='''+'SaleType10'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType1.text)+''''+
     ' where SysParamCode='''+'ShiftType1'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType2.text)+''''+
     ' where SysParamCode='''+'ShiftType2'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType3.text)+''''+
     ' where SysParamCode='''+'ShiftType3'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType4.text)+''''+
     ' where SysParamCode='''+'ShiftType4'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType5.text)+''''+
     ' where SysParamCode='''+'ShiftType5'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType6.text)+''''+
     ' where SysParamCode='''+'ShiftType6'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType7.text)+''''+
     ' where SysParamCode='''+'ShiftType7'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType8.text)+''''+
     ' where SysParamCode='''+'ShiftType8'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType9.text)+''''+
     ' where SysParamCode='''+'ShiftType9'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_ShiftType10.text)+''''+
     ' where SysParamCode='''+'ShiftType10'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuec='''+Trim(Edt_Address.text)+''''+
     ' where SysParamCode='''+'Address'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuen='+inttostr(Cmbx_qtylen.ItemIndex-1)+
     ' where SysParamCode='''+'QtyLen'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuen='+inttostr(Cmbx_Pricelen.ItemIndex-1)+
     ' where SysParamCode='''+'PriceLen'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuen='+edt_Itemlen.text+' '+
     ',SysParamValuec='+inttostr(cmbx_Itemlen.Itemindex)+' where SysParamCode='''+'ItemCodeLen'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuen='+edt_Vendorlen.text+' '+
     ',SysParamValuec='+inttostr(cmbx_Vendorlen.Itemindex)+' where SysParamCode='''+'VendorCodeLen'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuen='+edt_Customerlen.text+' '+
     ',SysParamValuec='+inttostr(cmbx_Customerlen.Itemindex)+' where SysParamCode='''+'CustomerCodeLen'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValuen='+Edt_CutomerTaxNoLen.text+' '+
     ',SysParamValuec='+inttostr(cmbbx_CutomerTaxNoLen.Itemindex)+' where SysParamCode='''+'CutomerTaxNoLen'+'''');
   ExecSql;

   Close ;
   SQL.clear ;
   SQL.Add('Update SysParam Set SysParamValueC='''+Medt_Month.text+''' '+
     ' where SysParamCode='''+'StArtMonth'+'''');
   ExecSql;

  end;
  Close;
end;

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

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

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

procedure TFrm_Bas_Param.edt_ItemlenExit(Sender: TObject);
begin
  inherited;
  floatcheck(sender);
  if strtofloat(edt_Itemlen.text)<=0 then
  begin
    DispInfo('物料代码长度必须大于0！',3);
    twincontrol(sender).setfocus;
    abort;
  end;
  if strtofloat(edt_Itemlen.text)>16.0 then
  begin
    DispInfo('物料代码长度不能大于16！',3);
    twincontrol(sender).setfocus;
    abort;
  end;
end;

procedure TFrm_Bas_Param.edt_VendorlenExit(Sender: TObject);
begin
  inherited;
  floatcheck(sender);
  if strtofloat(edt_Vendorlen.text)<=0 then
  begin
    DispInfo('供应商代码长度必须大于0！',3);
    twincontrol(sender).setfocus;
    abort;
  end;
  if strtofloat(edt_Vendorlen.text)>12.0 then
  begin
    DispInfo('供应商代码长度不能大于12！',3);
    twincontrol(sender).setfocus;
    abort;
  end;
end;

procedure TFrm_Bas_Param.edt_CustomerlenExit(Sender: TObject);
begin
  inherited;
  floatcheck(sender);
  if strtofloat(edt_Customerlen.text)<=0 then
  begin
    DispInfo('客户代码长度必须大于0！',3);
    twincontrol(sender).setfocus;
    abort;
  end;
  if strtofloat(edt_Customerlen.text)>12.0 then
  begin
    DispInfo('客户代码长度不能大于12！',3);
    twincontrol(sender).setfocus;
    abort;
  end;
end;

end.