inputcode.pas

一个典当行的业务管理系统程序

unit InputCode;

interface

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

type
  TfrmInputPawnCode = class(TForm)
    Label1: TLabel;
    txtPawnCode: TEdit;
    procedure txtPawnCodeKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmInputPawnCode: TfrmInputPawnCode;

implementation

uses RepawnInput,Pawn,Ransom, PawnMaintain;

{$R *.DFM}

procedure TfrmInputPawnCode.txtPawnCodeKeyPress(Sender: TObject;
  var Key: Char);
begin
     if key=#13 then
        begin
             close;
             case pawnmark of
                  repawn:frmrepawninput.showmodal;
                  buy:frmRansom.showmodal;
                  maintain:frmpawnmaintain.showmodal;
             end;
        end;
end;

end.