password.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit password;

interface

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

type
  TpasswordForm = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Bevel2: TBevel;
    Label1: TLabel;
    Bevel3: TBevel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    Button3: TButton;
    edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordForm: TpasswordForm;
  flag:boolean;
  trytimes:integer;
  comname:string;
  f:textfile;

implementation

{$R *.DFM}

procedure TpasswordForm.Button1Click(Sender: TObject);
begin
  if edit1.text=comname then
    begin
      edit2.enabled:=true;
      edit3.enabled:=true;
      edit1.enabled:=false;
      button1.enabled:=false;
      button2.enabled:=true;
    end
  else
    begin
      inc(trytimes);
      if trytimes=3 then
        button3.click
      else
        edit1.SetFocus;
      end;
end;

procedure TpasswordForm.Button2Click(Sender: TObject);
begin
  if (edit2.text<>'') and (edit2.text=edit3.text) then
    begin
      assignfile(f,'password.ini');
      rewrite(f);
      writeln(f,edit2.text);
      closefile(f);
      button3.click;
    end
  else
    begin
      showmessage('新口令为空或验证时不相符');
      edit2.SetFocus;
    end;
end;

procedure TpasswordForm.FormCreate(Sender: TObject);
begin
  trytimes:=0;
  edit2.enabled:=false;
  edit3.enabled:=false;
  button2.enabled:=false;
  if not fileexists('password.ini') then
    flag:=false
  else
    begin
      flag:=true;
      assignfile(f,'password.ini');
      reset(f);
      readln(f,comname);
      closefile(f);
    end;
  if flag=false then
    begin
      edit1.enabled:=false;
      button1.enabled:=false;
      edit2.enabled:=true;
      edit3.enabled:=true;
      button2.enabled:=true;
    end
end;

end.