uform_fw_input.~pas

Delphi应用婚纱系统 Delphi应用婚纱系统

unit Uform_fw_input;
//接受用户输入服务项目相关信息的窗口
interface

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

type
  Tform_fw_input = class(TForm)
    Label3: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Bevel1: TBevel;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Edit2: TEdit;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    floatDollor :double;
    bYesno:boolean;
    stringApartname:string;
  end;

var
  form_fw_input: Tform_fw_input;

implementation

{$R *.dfm}

procedure Tform_fw_input.Edit2KeyPress(Sender: TObject; var Key: Char);
//对用户价格的输入进行检验
begin
  if ((ord(key)=46) and (Pos('.',edit2.Text)>0)) then
  begin
    key:=#0;
  end;
  if (((Ord(key)< 48) or (Ord(key)>57)) and (Ord(key)<>8 ) and (ord(key)<>46)) then
  begin
    key:=#0;
  end;
end;

procedure Tform_fw_input.BitBtn2Click(Sender: TObject);
//关闭窗口
begin
  close;
end;

procedure Tform_fw_input.FormShow(Sender: TObject);
//初始化窗口
begin
  bYesno:=false;
  edit1.SetFocus;
end;

procedure Tform_fw_input.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
//自动切换焦点
begin
  if (key=13)then edit2.SetFocus ;
end;

procedure Tform_fw_input.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
//自动切换焦点
begin
  if (key=13)then BitBtn1.SetFocus ;
end;

procedure Tform_fw_input.BitBtn1Click(Sender: TObject);
//处理用户确认输入
begin
   //判断输入是否有效
   if trim(edit1.Text )<>'' then
   begin
      if ((edit2.Text ='.') or (edit2.text='')) then
      begin
        messagebox(self.Handle ,'价格输入不合法!','提示',MB_OK or MB_ICONASTERISK);
        edit2.SetFocus ;
      end
      else
      begin
        //设置标志变量，以提供给调用窗口确定是否操作数据
        bYesno:=true;
        stringApartname:=trim(edit1.Text );
        floatDollor:=strtofloat(edit2.Text );
        close;
      end;
   end
   else
   begin
      messagebox(self.Handle ,'部门名称不能为空!','提示',MB_OK or MB_ICONASTERISK);
      edit1.SetFocus ;
   end;
end;

end.