lxunit.pas

使用delphi语言

unit lxunit;

interface

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

type
  Tlxform = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    rb1: TRadioButton;
    rb2: TRadioButton;
    BitBtn3: TBitBtn;
    spinedit1: TMaskEdit;
    spinedit2: TMaskEdit;
    procedure SpinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Enter(Sender: TObject);
    procedure SpinEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lxform: Tlxform;

implementation 
{$R *.dfm}

procedure Tlxform.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13] ) then
    key:=#0;
end;

procedure Tlxform.Edit1Enter(Sender: TObject);
begin
  if rb1.Checked =true then
    edit1.ReadOnly:=true;
  if rb2.Checked =true then
    edit1.ReadOnly:=false;
end;

procedure Tlxform.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    selectnext(sender as twincontrol,true,true);
end;

procedure Tlxform.Edit1Exit(Sender: TObject);
begin
  if edit1.ReadOnly =false then
     if (trim(edit1.Text)='')or(strtofloat(edit1.Text)>1) then
      begin
        messagebox(self.Handle,'请输入正确利率','提示信息',mb_iconinformation);
        edit1.SetFocus ;
        exit;
      end;
end;

procedure Tlxform.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tlxform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13,'.'] ) then
    key:=#0;
end;

procedure Tlxform.BitBtn3Click(Sender: TObject);
begin
  if length(trim(spinedit2.Text))<>2 then
  begin
    messagebox(self.Handle,'请正确填写日期','提示信息',mb_iconinformation);
    exit;
  end;
  if (strtoint(self.spinedit1.Text)>3000 )or (strtoint(self.spinedit2.Text)<1 )or (strtoint(self.spinedit2.Text)>12 )or(strtoint(self.spinedit1.Text)<1900 )  then
  begin
    messagebox(self.Handle,'请正确填写日期','提示信息',mb_iconinformation);
    exit;
  end;
  if rb1.Checked=true then
     bitbtn1.Click ;
  if rb2.Checked =true then
    if (edit1.Text ='') then
      begin
      messagebox(self.Handle,'请输入正确利率信息','提示信息',mb_iconinformation);
      edit1.SetFocus ;
      exit;
      end
      else if  edit1.Text<>''then
        bitbtn1.Click ;
end;

procedure Tlxform.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn3.SetFocus ;
end;

end.