lqfwarningvalfm.pas

一个电力部门的催缴费用系统

unit lQfWarningValFM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TFM_lQfWarningVal = class(TForm)
    Label6: TLabel;
    edt_Val: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure edt_ValKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    constructor CreateForm(AOwner:TComponent;AVal:string);overload;
  end;

var
  FM_lQfWarningVal: TFM_lQfWarningVal;

implementation

{$R *.DFM}
constructor TFM_lQfWarningVal.CreateForm(AOwner:TComponent;AVal:string);
begin
  inherited Create(AOwner);
  Edt_Val.Text :=AVal;
end;
procedure TFM_lQfWarningVal.edt_ValKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0'..'9',#8]) then Key:=#0;
end;

procedure TFM_lQfWarningVal.BitBtn1Click(Sender: TObject);
begin
  if trim(edt_val.text)='' then edt_val.Text :='0'
end;

end.