frminputdatapas.pas

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

unit frmInputDatapas;

interface

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

type
   TfrmInputData = class(TMyModalForm)
      GroupBox1: TGroupBox;
      Label1: TLabel;
      Edit1: TEdit;
      ChangeImg15: TChangeImg;
      LabelB16: TLabelB;
      ChangeImg16: TChangeImg;
      LabelB17: TLabelB;
      Label2: TLabel;
      procedure FormShow(Sender: TObject);
      procedure Edit1KeyPress(Sender: TObject; var Key: Char);
      procedure ChangeImg15Click(Sender: TObject);
      procedure ChangeImg16Click(Sender: TObject);
   private
    { Private declarations }
   public
      InputMode: integer;
      DW: string;
      Value: string;
    { Public declarations }
   end;

var
   frmInputData: TfrmInputData;

implementation

{$R *.dfm}

procedure TfrmInputData.FormShow(Sender: TObject);
begin
   inherited;
   edit1.Text := value;
   label2.Caption := DW;
   edit1.SetFocus;
   edit1.SelectAll;
end;

procedure TfrmInputData.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   inherited;
   if key = char(vk_back) then exit;
   if key = #13 then ChangeImg15Click(self);
   case InputMode of
      0:
         begin
         end;
      1:
         begin
            if not (key in ['0'..'9']) then key := #0
         end;
      2:
         begin
         end;
      3:
         begin
         end;
   end;
end;

procedure TfrmInputData.ChangeImg15Click(Sender: TObject);
begin
   inherited;
   Value := edit1.Text;
   close;
end;

procedure TfrmInputData.ChangeImg16Click(Sender: TObject);
begin
   inherited;
   close;
end;

end.