pass.pas

这是应一个市委的朋友要求给做一个物品管理软件。 初始密码:admin

unit pass;

interface

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

type
  Tfpass = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    tb_pwd: TEdit;
    tb_pwd2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure tb_pwdKeyPress(Sender: TObject; var Key: Char);
    procedure tb_pwd2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fpass: Tfpass;

implementation
uses main,dm,vks;

{$R *.dfm}

procedure Tfpass.FormShow(Sender: TObject);
begin
  Caption := Application.Title+'密码修改';
  Label2.Caption := fmain.str[1];
end;

procedure Tfpass.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tfpass.tb_pwdKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (tb_pwd.Text<>'') and (length(tb_pwd.Text)>=3) then tb_pwd2.SetFocus;
end;

procedure Tfpass.tb_pwd2KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (tb_pwd2.Text<>'') and (length(tb_pwd2.Text)>=3) then Button1Click(Sender);
end;

procedure Tfpass.Button1Click(Sender: TObject);
begin
  if tb_pwd.Text='' then
  begin
    vks.info(1000);
    tb_pwd.SetFocus;
    exit;
  end;
  if tb_pwd2.Text='' then
  begin
    vks.info(1001);
    tb_pwd2.SetFocus;
    exit;
  end;
  if (tb_pwd.Text<>'') and (length(tb_pwd.Text)<3) then
  begin
    vks.info(1002);
    tb_pwd.SetFocus;
    exit;
  end;
  if tb_pwd.Text<>tb_pwd2.Text then
  begin
    vks.info(1003);
    tb_pwd.SetFocus;
    exit;
  end;
  with fdm.q do
  begin
    close;
    sql.Text := 'update [user] set pwd='''+tb_pwd.Text+''' where id='+fmain.str[2];
    try
      execsql;
      close;
      self.Close;
    except
      close;
      vks.info(1004);
    end;
  end;
end;

end.