password.pas
上传用户:jiete_yjc
上传日期:2010-02-11
资源大小:422k
文件大小:1k
源码类别:

医药行业

开发平台:

Delphi

  1. unit password;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, StdCtrls, Buttons;
  6. type
  7.   TFkl = class(TForm)
  8.     Edit1: TEdit;
  9.     Edit2: TEdit;
  10.     Edit3: TEdit;
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     BitBtn1: TBitBtn;
  15.     BitBtn2: TBitBtn;
  16.     procedure BitBtn2Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22. var
  23.   Fkl: TFkl;
  24. implementation
  25. {$R *.dfm}
  26. procedure TFkl.BitBtn2Click(Sender: TObject);
  27. begin
  28.   close;
  29. end;
  30. end.