inv_batchlist_c.pas

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

unit Inv_BatchList_C;

Interface

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

Type
  TFrm_Inv_BatchList_C = Class(TFrm_Base_Condition)
    Lbl_VendorName: TLabel;
    lbl_ItemName: TLabel;
    Label1: TLabel;
    medt_Date1: TMaskEdit;
    Label2: TLabel;
    medt_Date2: TMaskEdit;
    procedure btn_okClick(Sender: TObject);
    procedure MonthCheck(Sender: TObject);
  private
    { Private declarations }
  public
    onlyQuery:boolean;
    procedure InitForm(Adocnnct:tAdoConnection;UserCode:String;LoginDate:string);
    { Public declarations }
  end;

var
  Frm_Inv_BatchList_C: TFrm_Inv_BatchList_C;

implementation

uses Sys_Global,Inv_Global;

{$R *.DFM}

procedure TFrm_Inv_BatchList_C.InitForm(Adocnnct:tAdoConnection;UserCode:String;LoginDate:string);
var
  times:TTimeStamp;
begin
//  medt_Month.Text :=copy(datetostr(now),1,7);
  onlyQuery:=False;
  AdoQry_Tmp.Connection:=Adocnnct;
  times.date:= DateTimeToTimeStamp(now).date-30;
  medt_Date2.Text :=datetostr(now);
  medt_Date1.Text :=datetostr(TimeStampToDateTime(times));
//  medt_Month.text:=LoginDate;
end;

procedure TFrm_Inv_BatchList_C.btn_okClick(Sender: TObject);
begin
  inherited;
    onlyQuery:=False;

  modalResult:=mrok;
end;


procedure TFrm_Inv_BatchList_C.MonthCheck(Sender: TObject);
begin
  inherited;
//  InvdataChangecheck(AdoQry_tmp,medt_Month.text);
end;

end.