ap_qry_noinvoiceinbinbill_condition.pas

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

unit Ap_Qry_NoInvoiceInbInBill_Condition;
//
Interface

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

Type
  TFrm_Ap_Qry_NoInvoiceInbInBill_Condition = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Extedt_VendorCode: TExtEdit;
    Lbl_VendorName: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Medt_begindate: TMaskEdit;
    Medt_Enddate: TMaskEdit;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
    procedure SetDialog;
  public
    VendorCode:string;
    begindate,enddate:string;
    { Public declarations }
  end;

var
  Frm_Ap_Qry_NoInvoiceInbInBill_Condition: TFrm_Ap_Qry_NoInvoiceInbInBill_Condition;

implementation

{$R *.DFM}

procedure TFrm_Ap_Qry_NoInvoiceInbInBill_Condition.FormDestroy(
  Sender: TObject);
begin
  inherited;
  Frm_Ap_Qry_NoInvoiceInbInBill_Condition:=nil;
end;

procedure TFrm_Ap_Qry_NoInvoiceInbInBill_Condition.FormCreate(
  Sender: TObject);
begin
  inherited;
  Extedt_VendorCode.Text:='';
  Lbl_VendorName.Caption:='';

  if begindate='' then Medt_begindate.Text:=formatdatetime('yyyy.mm.dd',date-30)
  else   Medt_begindate.Text:=begindate;
  if enddate='' then     Medt_Enddate.Text:=formatdatetime('yyyy.mm.dd',date)
  else  Medt_Enddate.Text:=enddate;
  Extedt_VendorCode.Text:=VendorCode;
end;

procedure TFrm_Ap_Qry_NoInvoiceInbInBill_Condition.SetDialog;
begin
  if VendorCode<>''then
  begin
    Extedt_VendorCode.Text:=VendorCode;
    GetVendorName(Extedt_VendorCode);
    Medt_begindate.Text:=begindate;
    Medt_Enddate.Text:=enddate;
  end;
end;

procedure TFrm_Ap_Qry_NoInvoiceInbInBill_Condition.FormActivate(
  Sender: TObject);
begin
  inherited;
  SetDialog;
end;

procedure TFrm_Ap_Qry_NoInvoiceInbInBill_Condition.btn_okClick(
  Sender: TObject);
begin
  inherited;
  VendorCode:=ExtEdt_VendorCode.Text;
  begindate:=Medt_begindate.Text;
  enddate:= Medt_Enddate.Text;
end;

end.