frm_c_czszpas.pas

是一个用delphi设计的考勤系统

unit frm_c_CzSzpas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, YLabelButton, ChangeImage, StdCtrls, Menus, ExtCtrls;

type
   Tfrm_c_CzSz = class(TMyModalForm)
      GroupBox1: TGroupBox;
      Label1: TLabel;
      Edit1: TEdit;
      Label2: TLabel;
      Edit2: TEdit;
      ckb: TCheckBox;
      BtnOk: TChangeImg;
      BtnExit: TChangeImg;
      LBtnExit: TLabelB;
      LBtnOk: TLabelB;
      procedure FormShow(Sender: TObject);
      procedure Edit1KeyPress(Sender: TObject; var Key: Char);
      procedure BtnOkClick(Sender: TObject);
      procedure BtnExitClick(Sender: TObject);
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   frm_c_CzSz: Tfrm_c_CzSz;

implementation

uses UGlobal;

{$R *.dfm}

procedure Tfrm_c_CzSz.FormShow(Sender: TObject);
begin
   inherited;
   edit1.Text := trim(format('%12.2f', [gtSyscs.dMaxczje]));
   edit2.Text := trim(format('%12.2f', [gtSyscs.dMinczje]));
   ckb.Checked := gtsyscs.bXjCzPrint;
end;

procedure Tfrm_c_CzSz.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   if key = char(vk_back) then exit;
   if ((length(Tedit(Sender).text) - pos('.', Tedit(Sender).text)) = 2) and (pos('.', Tedit(Sender).text) <> 0) then
   begin
      key := #0;
      exit;
   end;
  //
   if (length(Tedit(Sender).Text) = 0) or (pos('.', Tedit(Sender).text) <> 0) then
   begin
      if not (key in ['0'..'9']) then key := #0
   end
   else
   begin
      if not (key in ['0'..'9', '.']) then key := #0;
   end;
end;

procedure Tfrm_c_CzSz.BtnOkClick(Sender: TObject);
begin
   inherited;
   if trim(edit1.Text) = '' then edit1.Text := '0';
   if trim(edit2.Text) = '' then edit2.Text := '0';
   gtSyscs.dMaxCzje := strtofloat(edit1.Text);
   gtSyscs.dMinCzje := strtofloat(edit2.Text);
   gtSyscs.bXjCzPrint := ckb.Checked;
   close;
end;

procedure Tfrm_c_CzSz.BtnExitClick(Sender: TObject);
begin
   inherited;
   close;
end;

end.