changepassword.pas

一个DELPHI的人事管理系统,具有一般人事管理系统的基本功能

unit changepassword;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ToolWin, ComCtrls,stdctrls,dbtables;

type
  TpasswordChangeForm = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordChangeForm: TpasswordChangeForm;

implementation
  uses main;
{$R *.dfm}

procedure TpasswordChangeForm.FormActivate(Sender: TObject);
begin
    if qx1 then
        edit1.SetFocus
    else
    begin
        edit1.text:=username;
        edit1.ReadOnly:=true;
        edit1.TabStop:=false;
        edit2.SetFocus; 
    end;
end;

procedure TpasswordChangeForm.Edit1Exit(Sender: TObject);
var
    table1:TTable;
begin
    table1:=TTable.Create(self);
    table1.DatabaseName:='rsgl';
    table1.TableName:='operator.db';
    table1.open;
    table1.setkey;
    table1.Fieldbyname('name').asstring:=edit1.text;
    if not table1.gotokey then
    begin
        Application.MessageBox('没有该用户，请检查！','提示信息',mb_ok);
        edit1.SetFocus;
    end;
    table1.Close;
end;

procedure TpasswordChangeForm.SpeedButton2Click(Sender: TObject);
begin
    Close;
end;

procedure TpasswordChangeForm.SpeedButton1Click(Sender: TObject);
var
  Table1:TTable;
begin
  Table1:=TTable.Create(self);
  Table1.DatabaseName:='rsgl';
  Table1.TableName:='Operator.db';
  Table1.open;
  table1.SetKey;
  table1.Fieldbyname('name').asstring:=edit1.text;
  if table1.gotokey then
  begin
        if edit2.text=edit3.Text then
        begin
            Table1.edit;
            Table1.fieldByName('Password').asstring:=edit2.text;
            Table1.post;
        end
        else
        begin
            Application.MessageBox('两次输入的密码不一致，请检查！','提示信息',mb_ok);
            edit2.SetFocus;
        end;
  end;
  table1.Close;
  if qx1 then
  begin
      edit1.text:='';
      edit2.Text:='';
      edit3.Text:='';
      edit1.SetFocus;
  end
  else
  begin
      edit2.Text:='';
      edit3.Text:='';
      edit2.SetFocus;
  end;
end;

end.