pm_pc_check_d.pas

一个MRPII系统源代码版本

unit Pm_Pc_Check_D;

Interface

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

Type
  TFrm_Pm_Pc_Check_D = Class(TFrm_Base_Entry_Detail)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Lbl_ItemName: TLabel;
    MEdt_PcStArtDate: TMaskEdit;
    MEdt_PcendDate: TMaskEdit;
    Edt_PcStArtQty: TEdit;
    Edt_PcendQty: TEdit;
    Edt_PcTaxPrice: TEdit;
    Edt_PcNoTaxPrice: TEdit;
    CmBx_PcPriceType: TComboBox;
    ExtEdt_ItemCode: TLinkEdit;
    Edt_ItemName: TEdit;
    Label2: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Edt_PcTaxPrice_Formal: TEdit;
    Edt_PcNoTaxPrice_Formal: TEdit;
    procedure Edt_PcTaxPriceExit(Sender: TObject);
    procedure Edt_PcNoTaxPriceExit(Sender: TObject);
    procedure MEdt_PcendDateExit(Sender: TObject);
    procedure Edt_PcStArtQtyExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure Edt_PcTaxPrice_FormalExit(Sender: TObject);
    procedure Edt_PcNoTaxPrice_FormalExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    VendorCode:string;
    PcTaxRate : Double;
    procedure InitControls;Override;
  end;

var
  Frm_Pm_Pc_Check_D: TFrm_Pm_Pc_Check_D;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Pm_Pc_Check_D.Edt_PcTaxPriceExit(Sender: TObject);
begin
  inherited;
  FloatCheck(Sender);
  if Changed then
  begin
    try
      Edt_PcNoTaxPrice.Text:=FormatFloat('0.000000',(StrToFloat(Edt_PcTaxPrice.Text)/(1+
        PcTaxRate/100)));
    except
    end;
  end;
end;

procedure TFrm_Pm_Pc_Check_D.Edt_PcNoTaxPriceExit(Sender: TObject);
begin
  inherited;
  FloatCheck(Sender);
  if Changed then
  begin
    try
      Edt_PcTaxPrice.Text:=FloatToStr((StrToFloat(Edt_PcNoTaxPrice.Text)*
        (1+PcTaxRate/100)));
    except
    end;
  end;
end;


procedure TFrm_Pm_Pc_Check_D.MEdt_PcendDateExit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  DateCheck(Sender);
  if MEdt_PcStArtDate.Text>=MEdt_PcendDate.Text then
  begin
    DispInfo('起始日期不能大于等于终止日期',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;

procedure TFrm_Pm_Pc_Check_D.Edt_PcStArtQtyExit(Sender: TObject);
begin
  inherited;
  if(ActiveControl.Name='btn_Cancel')then
    Abort;
  FloatCheck(Sender);
  if StrToFloat(Edt_PcStArtQty.Text)<0 then
  begin
    DispInfo('起始数量不能小于零',3);
    TWinControl(Sender).SetFocus;
    Abort;
  end;
end;


procedure TFrm_Pm_Pc_Check_D.btn_okClick(Sender: TObject);
begin
  Edt_PcTaxPrice.OnExit(Edt_PcTaxPrice);
  Edt_PcNoTaxPrice.OnExit(Edt_PcNoTaxPrice);
  ModalResult := MrOk;
//  inherited;

end;

procedure TFrm_Pm_Pc_Check_D.Edt_PcTaxPrice_FormalExit(Sender: TObject);
begin
  inherited;
  FloatCheck(Sender);
  if Changed then
  begin
    try
      Edt_PcNoTaxPrice_Formal.Text:=FormatFloat('0.000000',(StrToFloat(Edt_PcTaxPrice_Formal.Text)/(1+
        PcTaxRate/100)));
    except
    end;
  end;

end;

procedure TFrm_Pm_Pc_Check_D.Edt_PcNoTaxPrice_FormalExit(Sender: TObject);
begin
  inherited;
  FloatCheck(Sender);
  if Changed then
  begin
    try
      Edt_PcTaxPrice_Formal.Text:=FloatToStr((StrToFloat(Edt_PcNoTaxPrice_Formal.Text)*
        (1+PcTaxRate/100)));
    except
    end;
  end;

end;

procedure TFrm_Pm_Pc_Check_D.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//  inherited;

end;

procedure TFrm_Pm_Pc_Check_D.InitControls;
begin
  //inherited;
  
end;

end.