unit3.pas

邮政电信等系统票据的精确定位打印

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
   passwordstr:string;
begin
   if edit1.Text<>'hinihao' then
      modalresult:=mrok
   else
      ShowMessage('用户密码错误，请再输入一次');
   edit1.SetFocus;

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
        application.Terminate;
end;

procedure TForm3.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if Key=13 then
           button1.SetFocus;
end;

end.