📄 base_common.pas

📁 一个MRPII系统源代码版本
💻 PAS
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end
  else
  begin
    DispInfo('物料代码不能为空',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  CommonCodeCheck(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
    '物料代码','Item','ItemUsable=1 and ItemType in (0,2)');
end;

procedure TFrm_Base_Common.InOutItemHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
      '物料代码','Item','ItemUsable=1 and ItemType in (0,2)');
end;

procedure TFrm_Base_Common.InvItemCodeCheck(Sender: TObject);
begin
  InOutItemCodeCheck(Sender);
end;

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

procedure TFrm_Base_Common.SaleItemCodeCheck(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','ItemUsable=1 and ItemType in (0,2) and CanSale=1');
end;

procedure TFrm_Base_Common.SaleItemHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
      '物料代码','Item','ItemUsable=1 and ItemType in (0,2) and CanSale=1');
end;

procedure TFrm_Base_Common.UsableVendorCodeCheck(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
  else
  begin
    DispInfo('供应商代码不能为空',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  CommonCodeCheck(Sender,AdoQry_Tmp,'VendorName','供应商名称','VendorCode',
    '供应商代码','Vendor','VendorUsable=1');
end;

procedure TFrm_Base_Common.UsableVendorHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'VendorName','供应商名称','VendorCode',
      '供应商代码','Vendor','VendorUsable=1');
end;

procedure TFrm_Base_Common.UsableCustomerCodeCheck(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
  else
  begin
    DispInfo('客户代码不能为空',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  CommonCodeCheck(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
  '客户代码','Customer','DisableShip=0');
end;

procedure TFrm_Base_Common.UsableCustomerHint(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
    '客户代码','Customer','DisableShip=0');
end;

procedure TFrm_Base_Common.FindInvItemCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'ItemName','ItemCode','Item','ItemUsable=1 and ItemType in (0,2)');
end;

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

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

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

procedure TFrm_Base_Common.WhEmployeeCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'EmployeeName','仓管员名称','EmployeeCode','仓管员代码','vw_WhEmployee');
end;

procedure TFrm_Base_Common.QcProblemHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'QcProblemDecription','质量问题描绘','QcProblemCode',
      '质量问题代码','QcProblem');
end;

procedure TFrm_Base_Common.GetQcProblem(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'QcProblemDecription','质量问题描绘','QcProblemCode',
    '质量问题代码','QcProblem');
end;

procedure TFrm_Base_Common.QcProblemCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'QcProblemDecription','质量问题描绘','QcProblemCode',
    '质量问题代码','QcProblem');
end;

procedure TFrm_Base_Common.EmployeeHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','人员名称','EmployeeCode','人员代码','Employee');
end;

procedure TFrm_Base_Common.WhEmployeeHint1(Sender: TObject);
begin
  CommonHint(Sender,AdoQry_Tmp,'EmployeeName','仓管员名称','EmployeeCode','仓管员代码','vw_WhEmployee');
end;

procedure TFrm_Base_Common.Vw_OperatorHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','使用者名称','EmployeeCode','使用者代码','Vw_Operator');
end;

procedure TFrm_Base_Common.DeptHint1(Sender: TObject);
begin
  CommonHint(Sender,AdoQry_Tmp,'DeptName','部门名称','DeptCode','部门代码','Dept');
end;

procedure TFrm_Base_Common.UomHint1(Sender: TObject);
begin
  CommonHint(Sender,AdoQry_Tmp,'UomName','计量单位名称','UomCode','计量单位代码','Uom');
end;

procedure TFrm_Base_Common.VendorHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'VendorName','供应商名称','VendorCode',
      '供应商代码','Vendor','VendorUsable=1');
end;

procedure TFrm_Base_Common.UsableVendorHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'VendorName','供应商名称','VendorCode',
      '供应商代码','Vendor','VendorUsable=1');

end;

procedure TFrm_Base_Common.CustomerHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
    '客户代码','Customer','DisableShip=0');
end;

procedure TFrm_Base_Common.UsableCustomerHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'CustomerName','客户名称','CustomerCode',
    '客户代码','Customer','DisableShip=0');

end;

procedure TFrm_Base_Common.ItemHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode','物料代码','Item');
end;

procedure TFrm_Base_Common.InOutItemHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
      '物料代码','Item','ItemUsable=1 and ItemType in (0,2)');
end;

procedure TFrm_Base_Common.InvItemHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
      '物料代码','Item','ItemUsable=1 and ItemType in (0,2)');
end;

procedure TFrm_Base_Common.SaleItemHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'ItemName','物料名称','ItemCode',
      '物料代码','Item','ItemUsable=1 and ItemType in (0,2) and CanSale=1');
end;

procedure TFrm_Base_Common.WarehouseHint1(Sender: TObject);
begin
  CommonHint(Sender,AdoQry_Tmp,'WHName','仓库名称','WHCode','仓库代码','Warehouse');
end;

procedure TFrm_Base_Common.CurrencyHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'CurrencyName','币种名称','CurrencyCode','币种代码','Currency');
end;

procedure TFrm_Base_Common.Vw_PlannerHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','计划员名称','EmployeeCode','计划员代码','Vw_Planner');
end;

procedure TFrm_Base_Common.Vw_BuyerHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','采购员名称','EmployeeCode','采购员代码','Vw_Buyer');
end;

procedure TFrm_Base_Common.MouldHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'MouldName','模具名称','MouldCode','模具代码','Mould');
end;

procedure TFrm_Base_Common.MoNoHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'MoDate','生产订单号','MoNo','下达日期','Mo');
end;

procedure TFrm_Base_Common.PoTermSetHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'PoTermSetName','订单条款集名称','PoTermSetCode','订单条款集代码','PoTermSet');
end;

procedure TFrm_Base_Common.PoHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'PODate','下达日期','PoNo','采购订单号','Po');
end;

procedure TFrm_Base_Common.PcHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'Pcstatus','合同批准状态','PcNo','采购合同号','Pc');
end;

procedure TFrm_Base_Common.QcProblemHint1(Sender: TObject);
begin
    CommonHint(Sender,AdoQry_Tmp,'QcProblemDecription','质量问题描绘','QcProblemCode',
      '质量问题代码','QcProblem');

end;

procedure TFrm_Base_Common.AccountSubjectHint(Sender: TObject; var Key: Word;
      Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode',
      '科目代码','Gl_AccountSubject','endkm=1 and kmfreeze=0');
end;

procedure TFrm_Base_Common.AccountSubjectCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'KmName','科目名称','KmCode',
      '科目代码','Gl_AccountSubject');
end;


procedure TFrm_Base_Common.AreaCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'AreaName','区域名称','AreaCode','区域代码','Area');

end;

procedure TFrm_Base_Common.AreaHint(Sender: TObject; var Key: Word;
      Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'AreaName','区域名称','AreaCode','区域代码','Area');
end;

end.
上一页 1 2 34
💿 文件大小 16989 K
👤 上传用户 jecksonchen
📂 所属分类 *行业应用
🏷️ 相关标签

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

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