mrp_enter_delmps_c.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 83 行

unit Mrp_Enter_DelMps_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, StdCtrls, Mask, Db, AdODB, ExtCtrls;

Type
  TFrm_Mrp_Enter_DelMps_C = Class(TFrm_Base_Condition)
    Panel1: TPanel;
    Label3: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edt_StArt_ItemCode: TEdit;
    Medt_StArt_MpsDate: TMaskEdit;
    Edt_End_ItemCode: TEdit;
    MEdt_End_MpsDate: TMaskEdit;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure MoNoCheck(Sender: TObject);
    procedure DeptCodeCheck(Sender: TObject);
    procedure DateCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_DelMps_C: TFrm_Mrp_Enter_DelMps_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Mrp_Enter_DelMps_C.FormCreate(Sender: TObject);
begin
  inherited;
  Edt_StArt_ItemCode.Text:='0';
  Edt_End_ItemCode.Text:='ZZZZZ';
  MEdt_StArt_MpsDate.Text:=FormatDateTime('yyyy.mm.dd',incMonth(date,-24));
  Medt_End_MpsDate.Text:=FormatDateTime('yyyy.mm.dd',incMonth(date,-12));

end;

procedure TFrm_Mrp_Enter_DelMps_C.FormActivate(Sender: TObject);
begin
  inherited;
  Caption:='主生产计划清除';
  Edt_StArt_ItemCode.SetFocus;
end;

procedure TFrm_Mrp_Enter_DelMps_C.MoNoCheck(Sender: TObject);
begin
  If ActiveControl.Name='btn_Cancel' Then
    Exit;
  inherited;

end;

procedure TFrm_Mrp_Enter_DelMps_C.DeptCodeCheck(Sender: TObject);
begin
   If ActiveControl.Name='btn_Cancel' Then
    Exit;
  inherited;

end;

procedure TFrm_Mrp_Enter_DelMps_C.DateCheck(Sender: TObject);
begin
   If ActiveControl.Name='btn_Cancel' Then
    Exit;
  inherited;

end;

end.