adduser.pas

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

unit Adduser;

interface

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

type
  TfAdduser = class(TForm)
    Image1: TImage;
    Label4: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    pwd: TEdit;
    Zh: TEdit;
    apwd: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function InputCount(var aUser, aspwd: string):boolean;
  end;

var
  fAdduser: TfAdduser;

implementation

{$R *.dfm}

function TfAdduser.InputCount(var aUser, aspwd: string):boolean;
begin
  Result := ShowModal = mrOk;
  if Result then
  begin
    aUser:=Zh.Text;
    aspwd:=pwd.Text;
  end;
end;
procedure TfAdduser.FormCreate(Sender: TObject);
begin
 // labDate.Caption:=Formatdatetime('yyyy.mm.dd',date);
end;

procedure TfAdduser.BitBtn1Click(Sender: TObject);
begin
    if pwd.Text= apwd.Text then
         ModalResult:=mrOK
    else MessageDlg('两个新密码不一致，请输入一致的新密码。',mtInformation, [mbYes], 0);
end;

end.