base_common.pas

一个MRPII系统源代码版本

  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'MouldName','MouldCode','Mould');
end;

procedure TFrm_Base_Common.MouldHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'MouldName','模具名称','MouldCode','模具代码','Mould');
end;

procedure TFrm_Base_Common.MoNoCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'MoDate','生产订单号','MoNo','下达日期','Mo');
end;

procedure TFrm_Base_Common.MoNoHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'MoDate','生产订单号','MoNo','下达日期','Mo');
end;

procedure TFrm_Base_Common.FindPoTermSetCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'PoTermSetName','PoTermSetCode','PoTermSet');
end;

procedure TFrm_Base_Common.GetPoTermSetName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'PoTermSetName','订单条款集名称','PoTermSetCode','订单条款集代码','PoTermSet');
end;

procedure TFrm_Base_Common.PoTermSetCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'PoTermSetName','订单条款集名称','PoTermSetCode','订单条款集代码','PoTermSet');
end;

procedure TFrm_Base_Common.PoTermSetHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'PoTermSetName','订单条款集名称','PoTermSetCode','订单条款集代码','PoTermSet');
end;

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

procedure TFrm_Base_Common.GetVw_OperatorName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'EmployeeName','使用者名称','EmployeeCode','使用者代码','Vw_Operator');
end;

procedure TFrm_Base_Common.Vw_OperatorCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'EmployeeName','使用者名称','EmployeeCode','使用者代码','Vw_Operator');
end;

procedure TFrm_Base_Common.Vw_OperatorHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','使用者名称','EmployeeCode','使用者代码','Vw_Operator');
end;

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

procedure TFrm_Base_Common.TextCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(pos('''',TEdit(Sender).Text)<>0)then
  begin
    DispInfo('  此处不能包含单引号"''"!  ',1);
    TWinControl(Sender).SetFocus;
    Abort;
  end
end;

procedure TFrm_Base_Common.FindUomCode(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonFindCode(Sender,AdoQry_Tmp,'UomName','UomCode','Uom');
end;

procedure TFrm_Base_Common.GetUomName(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonGetName(Sender,AdoQry_Tmp,'UomName','计量单位名称','UomCode','计量单位代码','Uom');
end;

procedure TFrm_Base_Common.UomCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'UomName','计量单位名称','UomCode','计量单位代码','Uom');
end;

procedure TFrm_Base_Common.UomHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'UomName','计量单位名称','UomCode','计量单位代码','Uom');
end;

procedure TFrm_Base_Common.PcCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'Pcstatus','合同批准状态','PcNo','采购合同号','Pc');
end;

procedure TFrm_Base_Common.PcHint(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'Pcstatus','合同批准状态','PcNo','采购合同号','Pc');
end;

procedure TFrm_Base_Common.SetUserParam(Param1, Param2, Param3, Param4,
  Param5, Param6: String);
begin
  Self.Param1:=Param1;
  Self.Param2:=Param2;
  Self.Param3:=Param3;
  Self.Param4:=Param4;
  Self.Param5:=Param5;
  Self.Param6:=Param6;
end;

procedure TFrm_Base_Common.SetSysParam(UserCode, ModuleCode, MenuId,
  LoginDate: String);
begin
  Self.UserCode:=UserCode;
  Self.ModuleCode:=ModuleCode;
  Self.MenuId:=MenuId;
  Self.LoginDate:=LoginDate;
end;

procedure TFrm_Base_Common.ConditionFloatCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(TEdit(Sender).Text<>'')then
    FloatCheck(Sender);
end;

procedure TFrm_Base_Common.ConditionIntegerCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  if(TEdit(Sender).Text<>'')then
    IntegerCheck(Sender);
end;

procedure TFrm_Base_Common.SetFormParam(FrmParam1, FrmParam2, FrmParam3,
  FrmParam4, FrmParam5, FrmParam6: String);
begin
//
end;

procedure TFrm_Base_Common.PoCodeCheck(Sender: TObject);
begin
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  CommonCodeCheck(Sender,AdoQry_Tmp,'PODate','下达日期','PoNo','采购订单号','Po');
end;
procedure TFrm_Base_Common.PoHint(Sender: TObject; var Key: Word;
      Shift: TShiftState);
begin
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'PODate','下达日期','PoNo','采购订单号','Po');
end;

procedure TFrm_Base_Common.ExecOnExit(Control: TControl);
begin
  if Control is TEdit then
  begin
    if Assigned(TEdit(Control).OnExit) then
      TEdit(Control).OnExit(Control);
  end
  else if Control is TMaskEdit then
  begin
    if Assigned(TMaskEdit(Control).OnExit) then
      TMaskEdit(Control).OnExit(Control);
  end
  else if Control is TDBEdit then
  begin
    if Assigned(TDBEdit(Control).OnExit) then
      TDBEdit(Control).OnExit(Control);
  end
  else if Control is TCombobox then
  begin
    if Assigned(TCombobox(Control).OnExit) then
      TCombobox(Control).OnExit(Control);
  end
  else if Control is TDBCombobox then
  begin
    if Assigned(TDBCombobox(Control).OnExit) then
      TDBCombobox(Control).OnExit(Control);
  end;
end;

procedure TFrm_Base_Common.SetOnChangeEvent(Control:TControl;NotifyEvent: TNotifyEvent);
begin
  if (Control is TEdit)and(not Assigned(TEdit(Control).OnChange)) then
  begin
    TEdit(Control).OnChange:=NotifyEvent;
  end
  else if (Control is TMaskEdit)and(not Assigned(TMaskEdit(Control).OnChange)) then
  begin
    TMaskEdit(Control).OnChange:=NotifyEvent;
  end
  else if (Control is TCombobox)and(not Assigned(TCombobox(Control).OnChange)) then
  begin
    TCombobox(Control).OnChange:=NotifyEvent;
  end
  else if (Control is TCheckBox)and(not Assigned(TCheckBox(Control).OnClick)) then
  begin
    TCheckBox(Control).OnClick:=NotifyEvent;
  end
  else if (Control is TDBEdit)and(not Assigned(TDBEdit(Control).OnChange)) then
  begin
    TDBEdit(Control).OnChange:=NotifyEvent;
  end
  else if (Control is TDBCombobox)and(not Assigned(TDBCombobox(Control).OnChange)) then
  begin
    TDBCombobox(Control).OnChange:=NotifyEvent;
  end
end;

procedure TFrm_Base_Common.SetOnEnterEvent(Control:TControl;NotifyEvent: TNotifyEvent);
begin
  if (Control is TEdit)and(not Assigned(TEdit(Control).OnEnter)) then
  begin
    TEdit(Control).OnEnter:=NotifyEvent;
  end
  else if (Control is TMaskEdit)and(not Assigned(TMaskEdit(Control).OnEnter)) then
  begin
    TMaskEdit(Control).OnEnter:=NotifyEvent;
  end
  else if (Control is TCombobox)and(not Assigned(TCombobox(Control).OnEnter)) then
  begin
    TCombobox(Control).OnEnter:=NotifyEvent;
  end
  else if (Control is TCheckBox)and(not Assigned(TCheckBox(Control).OnEnter)) then
  begin
    TCheckBox(Control).OnEnter:=NotifyEvent;
  end
  else if (Control is TDBEdit)and(not Assigned(TDBEdit(Control).OnEnter)) then
  begin
    TDBEdit(Control).OnEnter:=NotifyEvent;
  end
  else if (Control is TDBCombobox)and(not Assigned(TDBCombobox(Control).OnEnter)) then
  begin
    TDBCombobox(Control).OnEnter:=NotifyEvent;
  end
end;

function TFrm_Base_Common.GetOnExitEvent(Control: TControl;
  var NotifyEvent: TNotifyEvent): Boolean;
begin
  Result:=False;
  if Control is TEdit then
  begin
    if Assigned(TEdit(Control).OnExit) then
    begin
      NotifyEvent:=TEdit(Control).OnExit;
      TEdit(Control).OnExit:=nil;
      Result:=True;
    end;
  end
  else if Control is TMaskEdit then
  begin
    if Assigned(TMaskEdit(Control).OnExit) then
    begin
      NotifyEvent:=TMaskEdit(Control).OnExit;
      TMaskEdit(Control).OnExit:=nil;
      Result:=True;
    end;
  end
  else if Control is TDBEdit then
  begin
    if Assigned(TDBEdit(Control).OnExit) then
    begin
      NotifyEvent:=TDBEdit(Control).OnExit;
      TDBEdit(Control).OnExit:=nil;
      Result:=True;
    end;
  end
  else if Control is TCombobox then
  begin
    if Assigned(TCombobox(Control).OnExit) then
    begin
      NotifyEvent:=TCombobox(Control).OnExit;
      TCombobox(Control).OnExit:=nil;
      Result:=True;
    end;
  end
  else if Control is TDBCombobox then
  begin
    if Assigned(TDBCombobox(Control).OnExit) then
    begin
      NotifyEvent:=TDBCombobox(Control).OnExit;
      TDBCombobox(Control).OnExit:=nil;
      Result:=True;
    end;
  end;
end;

procedure TFrm_Base_Common.SetOnExitEvent(Control: TControl;
  NotifyEvent: TNotifyEvent);
begin
  if (Control is TEdit) then
  begin
    TEdit(Control).OnExit:=NotifyEvent;
  end
  else if (Control is TMaskEdit) then
  begin
    TMaskEdit(Control).OnExit:=NotifyEvent;
  end
  else if (Control is TCombobox) then
  begin
    TCombobox(Control).OnExit:=NotifyEvent;
  end
  else if (Control is TCheckBox) then
  begin
    TCheckBox(Control).OnExit:=NotifyEvent;
  end
  else if (Control is TDBEdit) then
  begin
    TDBEdit(Control).OnExit:=NotifyEvent;
  end
  else if (Control is TDBCombobox) then
  begin
    TDBCombobox(Control).OnExit:=NotifyEvent;
  end
end;

function TFrm_Base_Common.GetMenuId: String;
begin
  Result:=MenuId;
end;

procedure TFrm_Base_Common.InOutItemCodeCheck(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);