inv_backpricedefine_d.pas

一个MRPII系统源代码版本

unit Inv_BackPriceDefine_D;

Interface

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

Type
  TFrm_Inv_BackPriceDefine_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    lbl_Vendor: TLabel;
    lbl_UomName: TLabel;
    lbl_ItemName: TLabel;
    edt_Price: TEdit;
    edt_remArk: TEdit;
    lbl_Month: TLabel;
    lbl_WhCode: TLabel;
    procedure edt_PriceExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);

  private
    { Private declarations }
  public
//    procedure SetStatus(CurrentStatus:String;var EnableControls:String); Override;
    procedure InitControls; Override;
    procedure SaveData; Override;
    { Public declarations }
  end;

var
  Frm_Inv_BackPriceDefine_D: TFrm_Inv_BackPriceDefine_D;

implementation

uses Sys_Global;

{$R *.DFM}
{procedure TFrm_Bas_OpBalance_D.SetStatus(CurrentStatus: String;
  var EnableControls: String); //子类重载此过程
begin
  inherited;
  //指定不需要Enable的控制件名称用","分开,最后一定加上","
  EnableControls:='medt_InvMonth,Extedt_Vendor,Extedt_ItemCode';
end; }
procedure TFrm_Inv_BackPriceDefine_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    lbl_Month.Caption:=fieldbyname('InvMonth').asstring;
    lbl_WhCode.Caption:=fieldbyname('whCode').asstring;
    lbl_Vendor.Caption:=getCode(fieldbyname('ItemCode').asstring);
    lbl_ItemName.Caption :=getName(fieldbyname('ItemCode').asstring);
    lbl_UomName.Caption :=fieldbyname('UomName').asstring;
    edt_Price.Text :=fieldbyname('Price').asstring;
    edt_remArk.Text :=fieldbyname('remArk').asstring;
  end;
end;

procedure TFrm_Inv_BackPriceDefine_D.SaveData;

begin
  inherited;
  with AdoQry_Maintain do
  begin
    fieldbyname('Price').asstring:=edt_Price.text;
    fieldbyname('remArk').asstring:=edt_remArk.Text;
    post;
  end;

end;


procedure TFrm_Inv_BackPriceDefine_D.edt_PriceExit(Sender: TObject);
begin
  inherited;
  floatcheck(sender);
  if strtofloat(edt_Price.text)<0 then
  begin
    DispInfo('价格不能小于零!',1);
    twincontrol(sender).setfocus;
    abort;
  end;

end;

procedure TFrm_Inv_BackPriceDefine_D.FormActivate(Sender: TObject);
begin
  inherited;
  if edt_Price.CanFocus then
     edt_Price.SetFocus ;
end;

end.