bas_batchclose_c.pas

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

unit Bas_BatchClose_C;

Interface

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

Type
  TFrm_Bas_BatchClose_C = Class(TFrm_Base_Condition)
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Lbl_VendorName: TLabel;
    Label4: TLabel;
    Extedt_ItemCode: TExtEdit;
    lbl_ItemName: TLabel;
    edt_Batchno: TEdit;
    cmbx_Batchstatus: TComboBox;
    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_Bas_BatchClose_C: TFrm_Bas_BatchClose_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Bas_BatchClose_C.InitForm(Adocnnct:tAdoConnection;UserCode:String;LoginDate:string);
begin
//  medt_Month.Text :=copy(datetostr(now),1,7);
  onlyQuery:=False;
  AdoQry_Tmp.Connection:=Adocnnct;
//  medt_Month.text:=LoginDate;
end;

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

  modalResult:=mrok;
end;


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

end.