kqdayunit.pas

来自「工资管理系统」· PAS 代码 · 共 91 行

unit KqDayUnit;

interface

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

type
  TKqDay = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    UpDown1: TUpDown;
    Rg: TRadioGroup;
    Rg2: TRadioGroup;
    Rg3: TRadioGroup;
    rg4: TRadioGroup;
    RxGIFAnimator1: TRxGIFAnimator;
    GroupBox1: TGroupBox;
    Label10: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    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

uses PassWordUnit;

{$R *.DFM}



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

  // maskedit1.Text:=password.MaskEdit1.Text;
  // edit4.Text:=inttostr(strtoint(password.Edit4.text));

  { maskedit2.Text:=password.MaskEdit1.Text;
   edit3.Text:=inttostr(strtoint(password.Edit4.text));}

  // maskedit1.SetFocus;
  
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.