mrp_enter_oblongssmo_c.pas

一个MRPII系统源代码版本

unit Mrp_Enter_OblongSsMo_C;

Interface

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

Type
  TFrm_Mrp_Enter_OblongSsMo_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    MEdt_StArt_Day: TMaskEdit;
    Label2: TLabel;
    MEdt_End_Day: TMaskEdit;
    Label3: TLabel;
    ExtEdt_WcCode: TExtEdit;
    Lbl_WcName: TLabel;
    Label4: TLabel;
    Cmbx_RecordType: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ExtEdt_WcCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ExtEdt_WcCodeExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MEdt_StArt_DayExit(Sender: TObject);
    procedure MEdt_End_DayExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_OblongSsMo_C: TFrm_Mrp_Enter_OblongSsMo_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Mrp_Enter_OblongSsMo_C.FormCreate(Sender: TObject);
begin
  inherited;
  MEdt_StArt_Day.Text:=FormatDateTime('yyyy.mm.dd',Date());
  MEdt_End_Day.Text:=FormatDateTime('yyyy.mm.dd',Date()+30);
  Cmbx_RecordType.ItemIndex:=0;
end;

procedure TFrm_Mrp_Enter_OblongSsMo_C.ExtEdt_WcCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  If Key=120 Then
    CommonHint(Sender,AdoQry_Tmp,'ItemName','工作中心名称','ItemCode','工作中心代码',
               'Item','ItemType=1');
end;

procedure TFrm_Mrp_Enter_OblongSsMo_C.ExtEdt_WcCodeExit(Sender: TObject);
begin
  inherited;
  If ActiveControl.Name='btn_Cancel' Then
    Exit;
  If Trim(TEdit(Sender).Text)='' Then
  begin
    DispInfo('工作中心代码不能为空',3);
    Twincontrol(Sender).SetFocus;
    Abort;
  end;
  CommonCodeCheck(Sender,AdoQry_Tmp,'ItemName','工作中心名称','ItemCode','工作中心代码',
               'Item','ItemType=1');
end;

procedure TFrm_Mrp_Enter_OblongSsMo_C.btn_okClick(Sender: TObject);
begin
  inherited;
  ConditionHint:='工作中心代码='''+Trim(ExtEdt_WcCode.text)+'''  And 类型='''+Trim(Cmbx_RecordType.Text)+''''
                +' 日期从'+MEdt_StArt_Day.Text+'到'+MEdt_End_Day.Text;
  ModalResult:=Mrok;
end;

procedure TFrm_Mrp_Enter_OblongSsMo_C.FormShow(Sender: TObject);
begin
  inherited;
  MEdt_StArt_Day.SetFocus;
end;

procedure TFrm_Mrp_Enter_OblongSsMo_C.MEdt_StArt_DayExit(Sender: TObject);
begin
  inherited;
  DateCheck(Sender);
end;

procedure TFrm_Mrp_Enter_OblongSsMo_C.MEdt_End_DayExit(Sender: TObject);
begin
  inherited;
  DateCheck(Sender);
  If StrToDateTime(MEdt_End_Day.Text)-StrToDateTime(MEdt_StArt_Day.Text)>50 Then
  begin
    DispInfo('开始日期和结束日期之间不能相隔50天以上!',3);
    MEdt_End_Day.SetFocus;
    Abort;
  end;
  If StrToDateTime(MEdt_End_Day.Text)<=StrToDateTime(MEdt_StArt_Day.Text) Then
  begin
    DispInfo('结束日期不能小于等于开始日期!',3);
    Twincontrol(Sender).SetFocus;
    Abort;
  end;
end;

end.