setpass.pas

软件类别: 数据库 软件大小: 1.24M 运行环境: DELPHI 精巧的DELPHI通讯录程序

unit SetPass;
{更改登录密码}

interface

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

type
  TFrmSetPass = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    CmdOk: TButton;
    CmdExit: TButton;
    procedure CmdOkClick(Sender: TObject);
    procedure CmdExitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSetPass: TFrmSetPass;
  TTB:TTinyTable;

implementation

uses Main;

{$R *.dfm}

procedure TFrmSetPass.CmdOkClick(Sender: TObject);
begin
  if Length(Trim(Edit1.Text+Edit2.Text))=0 then
    if MessageDlg('你确认不设置登录密码吗？'+#13+#13+
    '如果是的话,下次启动程序将不出现登录窗口。',
    mtConfirmation,[mbYes,mbNo],0)<>mrYes then exit;

  if Edit1.Text<>Edit2.Text then
    ShowMessage('所输入的两个密码不相符,请检查!')
  else
  begin
    TTB:=TTinyTable.Create(Self);
    with TTB do
    Try
      Close;
      DatabaseName:=FrmMain.DBName;
      TableName:='SysInfo';
      Password:=DBPassWord;
      Open;
      Edit;
      FieldByName('PassWord').AsString :=UpperCase(Trim(Edit2.Text));
      Post;
      showmessage('成功更新密码，不要忘记哦！');
      Close;
    except
      showmessage('更新不成功，请检查!');
    end;
    TTB.Free;
    close;
  end;
end;

procedure TFrmSetPass.CmdExitClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmSetPass.FormKeyPress(Sender: TObject; var Key: Char);
{拦截Tedit控件内的回车键，跳转下一控件}
begin
  if (key=#13) and (ActiveControl is TEdit) then
    SendMessage(handle,wm_nextdlgctl,0,0);
end;

end.