📄 base_common.pas

📁 一个MRPII系统源代码版本
💻 PAS
📖 第 1 页 / 共 4 页
字号:
  CommonCodeCheck(Sender,AdoQry_Tmp,'EmployeeName','人员名称','EmployeeCode','人员代码','Employee');
end;

procedure TFrm_Base_Common.GeTEmployeeName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'EmployeeName','人员名称','EmployeeCode','人员代码','Employee');
end;

procedure TFrm_Base_Common.FindEmployeeCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'EmployeeName','EmployeeCode','Employee');
end;

procedure TFrm_Base_Common.EmployeeHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','人员名称','EmployeeCode','人员代码','Employee');
end;

procedure TFrm_Base_Common.EmployeeNameCheck(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  NotNullTextCheck(Sender,'人员名称');
end;

procedure TFrm_Base_Common.DeptCodeCheck(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'DeptName','部门名称','DeptCode','部门代码','Dept');
end;

procedure TFrm_Base_Common.GetDeptName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'DeptName','部门名称','DeptCode','部门代码','Dept');
end;

procedure TFrm_Base_Common.FindDeptCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'DeptName','DeptCode','Dept');
end;

procedure TFrm_Base_Common.DeptHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'DeptName','部门名称','DeptCode','部门代码','Dept');
end;

procedure TFrm_Base_Common.DeptNameCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  NotNullTextCheck(Sender,'部门名称');
end;

procedure TFrm_Base_Common.VendorCodeCheck(Sender: TObject);
begin
  UsableVendorCodeCheck(Sender);
end;

procedure TFrm_Base_Common.GetVendorName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(TEdit(Sender).Text<>'')then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Select SysParamValueN,SysParamValueC'
      +' From  SysParam'
      +' Where SysParamCode=''VendorCodeLen''';
    AdoQry_Tmp.Open;
    if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='0' then
    begin
      if Length(TEdit(Sender).Text)<>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('供应商代码长度必须是'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end
    else if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='1' then
    begin
      if Length(TEdit(Sender).Text)>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('供应商代码长度不能超过'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
  CommonGetName(Sender,AdoQry_Tmp,'VendorName','供应商名称','VendorCode',
    '供应商代码','Vendor','VendorUsable=1');
end;

procedure TFrm_Base_Common.FindVendorCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'VendorName','VendorCode','Vendor','VendorUsable=1');
end;

procedure TFrm_Base_Common.VendorHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  UsableVendorHint(Sender,Key,Shift);
end;

procedure TFrm_Base_Common.CustomerCodeCheck(Sender: TObject);
begin
  UsableCustomerCodeCheck(Sender);
end;

procedure TFrm_Base_Common.GetCustomerName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(TEdit(Sender).Text<>'')then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Select SysParamValueN,SysParamValueC'
      +' From  SysParam'
      +' Where SysParamCode=''CustomerCodeLen''';
    AdoQry_Tmp.Open;
    if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='0' then
    begin
      if Length(TEdit(Sender).Text)<>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('客户代码长度必须是'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end
    else if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='1' then
    begin
      if Length(TEdit(Sender).Text)>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('客户代码长度不能超过'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
  CommonGetName(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
    '客户代码','Customer','DisableShip=0');
end;

procedure TFrm_Base_Common.FindCustomerCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'CustomerName','CustomerCode','Customer','DisableShip=0');
end;

procedure TFrm_Base_Common.CustomerHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  UsableCustomerHint(Sender,Key,Shift);
end;

procedure TFrm_Base_Common.ItemCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(TEdit(Sender).Text<>'')then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Select SysParamValueN,SysParamValueC'
      +' From  SysParam'
      +' Where SysParamCode=''ItemCodeLen''';
    AdoQry_Tmp.Open;
    if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='0' then
    begin
      if Length(TEdit(Sender).Text)<>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('物料代码长度必须是'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end
    else if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='1' then
    begin
      if Length(TEdit(Sender).Text)>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('物料代码长度不能超过'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end
  else
  begin
    DispInfo('物料代码不能为空',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  CommonCodeCheck(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码','Item');
end;

procedure TFrm_Base_Common.GetItemName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(TEdit(Sender).Text<>'')then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Select SysParamValueN,SysParamValueC'
      +' From  SysParam'
      +' Where SysParamCode=''ItemCodeLen''';
    AdoQry_Tmp.Open;
    if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='0' then
    begin
      if Length(TEdit(Sender).Text)<>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('物料代码长度必须是'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end
    else if AdoQry_Tmp.fieldbyname('SysParamValueC').AsString='1' then
    begin
      if Length(TEdit(Sender).Text)>AdoQry_Tmp.fieldbyname('SysParamValueN').AsInteger then
      begin
        DispInfo('物料代码长度不能超过'+AdoQry_Tmp.fieldbyname('SysParamValueN').AsString+'位',3);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
  CommonGetName(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码','Item');
end;

procedure TFrm_Base_Common.FindItemCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'ItemName','ItemCode','Item');
end;

procedure TFrm_Base_Common.ItemHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码','Item');
end;

procedure TFrm_Base_Common.WarehouseCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'WHName','仓库名称','WHCode','仓库代码','Warehouse');
end;

procedure TFrm_Base_Common.GetWarehouseName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'WHName','物料名称','WHCode','物料代码','Warehouse');
end;

procedure TFrm_Base_Common.FindWarehouseCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'WHName','WHCode','Warehouse');
end;

procedure TFrm_Base_Common.WarehouseHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'WHName','仓库名称','WHCode','仓库代码','Warehouse');
end;

procedure TFrm_Base_Common.CurrencyCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'CurrencyName','币种名称','CurrencyCode','币种代码','Currency');
end;

procedure TFrm_Base_Common.GetCurrencyName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'CurrencyName','物料名称','CurrencyCode','物料代码','Currency');
end;

procedure TFrm_Base_Common.FindCurrencyCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'CurrencyName','CurrencyCode','Currency');
end;

procedure TFrm_Base_Common.CurrencyHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'CurrencyName','币种名称','CurrencyCode','币种代码','Currency');
end;

procedure TFrm_Base_Common.Vw_PlannerCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'EmployeeName','计划员名称','EmployeeCode','计划员代码','Vw_Planner');
end;

procedure TFrm_Base_Common.GetVw_PlannerName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'EmployeeName','计划员名称','EmployeeCode','计划员代码','Vw_Planner');
end;

procedure TFrm_Base_Common.FindVw_PlannerCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'EmployeeName','EmployeeCode','Vw_Planner');
end;

procedure TFrm_Base_Common.Vw_PlannerHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','计划员名称','EmployeeCode','计划员代码','Vw_Planner');
end;

procedure TFrm_Base_Common.Vw_BuyerCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'EmployeeName','采购员名称','EmployeeCode','采购员代码','Vw_Buyer');
end;

procedure TFrm_Base_Common.GetVw_BuyerCodeName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'EmployeeName','采购员名称','EmployeeCode','采购员代码','Vw_Buyer');
end;

procedure TFrm_Base_Common.FindVw_BuyerCodeCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'EmployeeName','EmployeeCode','Vw_Buyer');
end;

procedure TFrm_Base_Common.Vw_BuyerHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','采购员名称','EmployeeCode','采购员代码','Vw_Buyer');
end;

procedure TFrm_Base_Common.FloatCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  try
    StrToFloat(TCustomEdit(Sender).Text);
  except
    DispInfo('   数值非法！  ',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Base_Common.MouldCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'MouldName','模具名称','MouldCode','模具代码','Mould');
end;

procedure TFrm_Base_Common.GetMouldName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'MouldName','模具名称','MouldCode','模具代码','Mould');
end;

procedure TFrm_Base_Common.FindMouldCode(Sender: TObject);
begin
💿 文件大小 16989 K
👤 上传用户 jecksonchen
📂 所属分类 *行业应用
🏷️ 相关标签

#MRPII #源代码 #版本
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -