mrp_enter_passmo_d1.pas

一个MRPII系统源代码版本

unit Mrp_Enter_PassMo_D1;

Interface

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

Type
  TFrm_Mrp_Enter_PassMo_D1 = Class(TFrm_Base_Detail)
    lbl_ItemName: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Edt_Qty: TEdit;
    medt_Modate: TMaskEdit;
    ExtEdt_ItemCode: TExtEdit;
    MEdt_MoStArtWorkDate: TMaskEdit;
    Label6: TLabel;
    edtMoNoFinishqty: TEdit;
    Label7: TLabel;
    edtmono: TExtEdit;
    Label8: TLabel;
    edtMoLineno: TExtEdit;
    procedure medt_ModateExit(Sender: TObject);
    procedure MEdt_MoStArtWorkDateExit(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_PassMo_D1: TFrm_Mrp_Enter_PassMo_D1;

implementation
 uses Sys_Global;
{$R *.DFM}

procedure TFrm_Mrp_Enter_PassMo_D1.medt_ModateExit(Sender: TObject);
begin
 // inherited;
  If ActiveControl.Name ='btn_Cancel' Then
    Exit;
  Try
    StrToDateTime(Medt_MoDate.Text);
  Except
    DispInfo('约定交货日错误，请重新输入!',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  If (StrToDate(MEdt_MoDate.Text)<Date()) Then
  begin
    DispInfo('约定交货日必须大于等于当前系统日期!',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
  If SlCalendar(AdoQry_tmp.Connection,MEdt_MoDate.Text,0)<>MEdt_MoDate.Text Then
  begin
    DispInfo(MEdt_MoDate.Text+'不是工作日!',3);
    MEdt_MoDate.Text:=SlCalendar(DbConnect,MEdt_MoDate.Text,0);
    MEdt_MoDate.SetFocus;
    Abort;
  end;
end;

procedure TFrm_Mrp_Enter_PassMo_D1.MEdt_MoStArtWorkDateExit(
  Sender: TObject);
begin
 // inherited;
  If (ActiveControl.Name ='btn_Cancel') Or (ActiveControl.Name='medt_Modate') Then
    Exit;
  inherited;
  If SlCalendar(AdoQry_tmp.Connection,Medt_MoStArtWorkDate.Text,0)<>Medt_MoStArtWorkDate.Text Then
  begin
    DispInfo(Medt_MoStArtWorkDate.Text+'不是工作日!',3);
    Medt_MoStArtWorkDate.Text:=SlCalendar(DbConnect,Medt_MoStArtWorkDate.Text,0);
    Medt_MoStArtWorkDate.SetFocus;
    Abort;
  end;  //约定开工日必须是工作日，否则返回前一个工作日
  If  (StrToDate(Medt_MoStArtWorkDate.Text)>StrToDate(Medt_MoDate.Text))
    Or (StrToDate(Medt_MoStArtWorkDate.Text)<Date()) Then
   begin
     DispInfo('约定开工日必须为系统工作日与约定交货日之间的日期，请修改!',3);
     TWinControl(Sender).SetFocus;
     Abort;
   end;
  If  (StrToDate(Medt_MoStArtWorkDate.Text)>StrToDate(Medt_MoDate.Text)) Then
  begin
    DispInfo('约定开工日必须小于约定交货日，请修改!',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;

end;

procedure TFrm_Mrp_Enter_PassMo_D1.btn_CancelClick(Sender: TObject);
begin
 // inherited;
Close;
end;

procedure TFrm_Mrp_Enter_PassMo_D1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 // inherited;
Close;
end;

procedure TFrm_Mrp_Enter_PassMo_D1.btn_okClick(Sender: TObject);
begin
 // inherited;
modalResult:=mrok;
end;

end.