unit15.pas

来自「PosEasy收银系统源码,Pos机前后台管理代码」· PAS 代码 · 共 61 行

unit Unit15;

interface

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

type
  TFormcodenum = class(TForm)
    Editnum: TEdit;
    Editnumcfm: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    
  end;

var
  Formcodenum: TFormcodenum;

implementation
uses unit3;
{$R *.DFM}

procedure TFormcodenum.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then
   if (editnum.Text<>'') and  (editnumcfm.Text<>'') then
    begin
     if editnum.Text=editnumcfm.Text then
       begin                             
         form3.tmpnumcode:=trim(editnum.Text);
         formcodenum.Close;
         formcodenum.Release;
       end
       else
        begin
         messagebox(handle,'两次输入不同，请重新输入！','提示',MB_OK);
         editnum.SetFocus;
         exit;
        end;
    end
    else
     begin
      key:=0;
      postmessage(Handle,WM_NextDlgCTL,0,0);
     end;

   if key=VK_ESCAPE then
    close;
end;

end.