mrp_qry_psidate_c.pas

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

unit Mrp_Qry_PsiDate_C;

Interface

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

Type
  TFrm_Mrp_Qry_PsiDate_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Edit1: TMaskEdit;
    CheckBox1: TCheckBox;
    procedure btn_okClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mrp_Qry_PsiDate_C: TFrm_Mrp_Qry_PsiDate_C;
implementation

uses Public_Show, Mrp_Qry_PsiDate, Sys_Global, Base_Common;

{$R *.DFM}

procedure TFrm_Mrp_Qry_PsiDate_C.btn_okClick(
  Sender: TObject);
begin
 try
   Frm_Mrp_Qry_PsiDate.dates:=datetimetostr(StrToDateTime(edit1.Text+'.01'));
 except
    DispInfo('月份输入错误，格式为‘YYYY.MM’！',3);
    Edit1.SetFocus;
    abort;
 end;
 Frm_Mrp_Qry_PsiDate.MpsMonth:=Edit1.Text;
 Frm_Mrp_Qry_PsiDate.check:=0;
 if CheckBox1.Checked = True then
    Frm_Mrp_Qry_PsiDate.check:=1;

 conditionHint:='月份:'+ Edit1.Text;
 Frm_Mrp_Qry_PsiDate.conditionHint1:=conditionHint;
 self.ModalResult:=mrOk;
end;

procedure TFrm_Mrp_Qry_PsiDate_C.FormCreate(Sender: TObject);
begin
  inherited;
  Edit1.Text:=FormatDateTime('YYYY.mm',date-3);
  
end;

procedure TFrm_Mrp_Qry_PsiDate_C.FormShow(Sender: TObject);
begin
  inherited;
  Edit1.setfocus; 
end;

end.