kqdayunit.pas

来自「不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.」· PAS 代码 · 共 68 行

unit KqDayUnit;

interface

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

type
  TKqDay = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Edit2: TEdit;
    UpDown1: TUpDown;
    Rg: TRadioGroup;
    Bevel1: TBevel;
    Rg2: TRadioGroup;
    Rg3: TRadioGroup;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KqDay: TKqDay;

implementation

{$R *.DFM}



procedure TKqDay.FormShow(Sender: TObject);
begin
  edit2.Text:='100';
  edit1.SetFocus;
  edit1.Text:='0';
  edit1.SelectAll;
  
end;

procedure TKqDay.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var info:string;
begin
    info:='计时天数不能为空或者大于31天';
    if (length(edit1.text)=0) or (length(edit1.text)>2)  or (strtoint(edit1.text)>31) then
    begin
     application.messagebox(pchar(info),'消息框',mb_ok+mb_iconstop);
     canclose:=false;
    end;
end;

procedure TKqDay.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;



end.