frm_c_gettrackpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 67 行

unit frm_c_GetTrackpas;

interface

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

type
  Tfrm_c_GetTrack = class(TMyModalForm)
    Edit1: TEdit;
    stb: TStatusBar;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure imgCloseButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Track1:string;
    Track2:string;
    Track3:string;
  end;

var
  frm_c_GetTrack: Tfrm_c_GetTrack;

implementation

{$R *.dfm}

procedure Tfrm_c_GetTrack.FormShow(Sender: TObject);
begin
  inherited;
  Track1:='';
  Track2:='';
  Track3:='';
end;

procedure Tfrm_c_GetTrack.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
  begin
    if edit1.Text<>'' then
    begin
      Track1:='Track1';
      Track2:='';
      Track3:='';
      close;
    end
    else
      stb.Panels[1].Text:='卡数据错误，请重新刷';
  end;
end;

procedure Tfrm_c_GetTrack.imgCloseButtonClick(Sender: TObject);
begin
  inherited;
  Track1:='';
  Track2:='';
  Track3:='';
end;

end.