sal_enter_delsaleorder_c.pas

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

unit Sal_Enter_DelSaleOrder_C;

Interface

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

Type
  TFrm_Sal_Enter_DelSaleOrder_C = Class(TFrm_Base_Condition)
    Label7: TLabel;
    Panel1: TPanel;
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edt_SloNo: TEdit;
    Edt_CustomerCode: TEdit;
    Medt_SloDate: TMaskEdit;
    Edt_End_SloNo: TEdit;
    Edt_End_CustomerCode: TEdit;
    MEdt_End_SloDate: TMaskEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Sal_Enter_DelSaleOrder_C: TFrm_Sal_Enter_DelSaleOrder_C;

implementation

{$R *.DFM}

procedure TFrm_Sal_Enter_DelSaleOrder_C.FormCreate(Sender: TObject);
begin
  inherited;
  Edt_SloNo.Text:='0';
  Edt_End_SloNo.Text:='ZZZZZ';
  Edt_CustomerCode.Text:='0';
  Edt_End_CustomerCode.Text:='ZZZZZ';
  MEdt_SloDate.Text:=FormatDateTime('yyyy.mm.dd',Date-366*2);
  Medt_End_SloDate.Text:=FormatDateTime('yyyy.mm.dd',Date-366);

end;

procedure TFrm_Sal_Enter_DelSaleOrder_C.FormShow(Sender: TObject);
begin
  inherited;
  self.Caption:='销售订单清除';
end;

end.