pwd.pas

一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的

unit pwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, StdCtrls, Buttons, ExtCtrls;
type
  Tfpwd = class(TForm)
    Image1: TImage;
    Label6: TLabel;
    Label7: TLabel;
    EdtUser: TEdit;
    EdtPassword: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure EdtPasswordKeyPress(Sender: TObject; var Key: Char);
    procedure EdtUserKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    function GetLastuser:string;
  public
    { Public declarations }
    function InputUserPassword(var aUserName, aPassword: string):boolean;
  end;
const
        LabelReg='software\IDMS\1.0';
        Currentuser='Currentuser';

var
  fpwd: Tfpwd;

implementation

{$R *.dfm}
function Tfpwd.InputUserPassword(var aUserName, aPassword: string):boolean;
begin
  Result := ShowModal = mrOk;
  if Result then
  begin
    aUserName := EdtUser.Text;
    aPassword := EdtPassword.Text;
  end;
end;
procedure Tfpwd.FormCreate(Sender: TObject);
begin
   EdtUser.Text := GetLastuser;
   if GetLastuser='' then
     ActiveControl := EdtUser
   else
     ActiveControl := EdtPassword;
   //labDate.Caption:=Formatdatetime('yyyy.mm.dd',date);
end;

procedure Tfpwd.EdtPasswordKeyPress(Sender: TObject; var Key: Char);
begin
   if (key=#13) then
   SelectNext(ActiveControl, True, True);
   //BitBtn1.SetFocus;
   //ActiveControl := BitBtn1;
{
  if Key = #13 then
  begin
    Key := #0;
    SelectNext(ActiveControl, True, True);
  end;
  }
end;
function Tfpwd.GetLastuser:string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey(LabelReg, True) then
    begin
      if Not Reg.ValueExists(Currentuser) then
        Result:=''
      else
        Result:=Reg.ReadString(Currentuser);
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;
procedure Tfpwd.EdtUserKeyPress(Sender: TObject; var Key: Char);
begin
   if (key=#13) then
   SelectNext(ActiveControl, True, True);
   //EdtPassword.SetFocus;
end;

end.