ap_qry_vendorinvoice_condition.pas

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

unit Ap_Qry_VendorInvoice_Condition;
//
Interface

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

Type
  TFrm_Ap_Qry_VendorInvoice_Condition = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Lbl_VendorName: TLabel;
    Label4: TLabel;
    Extedt_VendorCode: TExtEdit;
    Medt_begindate: TMaskEdit;
    Medt_Enddate: TMaskEdit;
    Label3: TLabel;
    Label5: TLabel;
    Medt_begindate1: TMaskEdit;
    Medt_Enddate1: TMaskEdit;
    Label6: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Extedt_VendorCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Ap_Qry_VendorInvoice_Condition: TFrm_Ap_Qry_VendorInvoice_Condition;

implementation
uses Ap_Qry_VendorInvoice;
{$R *.DFM}

procedure TFrm_Ap_Qry_VendorInvoice_Condition.FormCreate(Sender: TObject);
begin
  inherited;
  Extedt_VendorCode.Text:='';
  Lbl_VendorName.Caption:='';
  Medt_begindate.Text:=formatdatetime('yyyy.mm.dd',date-30);
  Medt_Enddate.Text:=formatdatetime('yyyy.mm.dd',date);
  Medt_begindate1.Text:=formatdatetime('yyyy.mm.dd',date-30);
  Medt_Enddate1.Text:=formatdatetime('yyyy.mm.dd',date)

end;

procedure TFrm_Ap_Qry_VendorInvoice_Condition.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_VendorInvoice_Condition:=nil;
end;

procedure TFrm_Ap_Qry_VendorInvoice_Condition.FormActivate(
  Sender: TObject);
begin
  inherited;
  Extedt_VendorCode.Text:=Frm_Ap_Qry_VendorInvoice.VendorCode;
  Medt_begindate.Text:=Frm_Ap_Qry_VendorInvoice.begindate;
  Medt_Enddate.Text:=Frm_Ap_Qry_VendorInvoice.enddate;
  Medt_begindate1.Text:=Frm_Ap_Qry_VendorInvoice.begindate1;
  Medt_Enddate1.Text:=Frm_Ap_Qry_VendorInvoice.enddate1;
end;

procedure TFrm_Ap_Qry_VendorInvoice_Condition.Extedt_VendorCodeExit(
  Sender: TObject);
begin
  inherited;
  if Extedt_VendorCode.Text<>'' then VendorCodeCheck(Extedt_VendorCode);
end;

end.