uform_userfw_edit.~pas

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

unit Uform_userfw_edit;
//修改服务项目
interface

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

type
  mytype=record
        id:integer;
        nname:string;
        alldollor:real;
        count:integer;
        dollor:real;
  end;
  Tform_userfw_edit = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    Image2: TImage;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StaticText3: TStaticText;
    Label9: TLabel;
    StaticText1: TStaticText;
    Label5: TLabel;
    Label6: TLabel;
    SpinEdit1: TSpinEdit;
    Label7: TLabel;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    my:mytype;
    yesno:bool;
  end;

var
  form_userfw_edit: Tform_userfw_edit;

implementation

{$R *.dfm}

procedure Tform_userfw_edit.FormShow(Sender: TObject);
//初始化窗口
begin
   statictext3.Caption :=my.nname ;
   statictext1.Caption :=format( '%8.2f￥',[my.dollor]);
   spinedit1.Value :=my.count ;
   edit1.Text :=floattostr(my.alldollor );
   yesno:=false;
end;

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

procedure Tform_userfw_edit.Edit1KeyPress(Sender: TObject; var Key: Char);
//检验用户价格输入是否正确
begin
  if ((ord(key)=46) and (Pos('.',edit1.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_userfw_edit.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
//自动切换焦点
begin
 if (key=13)then BitBtn1.SetFocus ;
end;

procedure Tform_userfw_edit.BitBtn1Click(Sender: TObject);
//用户确认输入
begin
   //输入是否正确
   if ((edit1.Text ='.') or (edit1.text='')) then
   begin
     //错误提示
     messagebox(self.Handle ,'价格输入不合法!','提示',MB_OK or MB_ICONASTERISK);
     edit1.SetFocus ;
     exit;
   end;
   //设置标志变量
   my.count := spinedit1.Value ;
   my.alldollor :=strtofloat(edit1.Text );
   yesno:=true;
   close;
end;

end.