ufrm_changepwd.pas

DELPHI写的全套软件工程流程安排下的人事管理系统。数据库为自带数据库。急需下载J3D源码。希望帮帮忙。谢谢~

unit Ufrm_changepwd;

interface

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

type
  Tfrm_changepwd = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bevel1: TBevel;
    Image1: TImage;
    Label5: TLabel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Edit4: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label1: TLabel;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_changepwd: Tfrm_changepwd;

implementation

{$R *.dfm}

procedure Tfrm_changepwd.Button2Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
end;

procedure Tfrm_changepwd.Button3Click(Sender: TObject);
begin
table1.Close;
close;
end;

procedure Tfrm_changepwd.Button1Click(Sender: TObject);
var
 password : string;
begin
  if not Table1.Active then
  begin
    ShowMessage('数据集未打开，请先设置数据集信息。');
    Exit;
  end;
  if edit1.text='' then
  begin
  ShowMessage('请填写用户名。');
  exit;
  end;
  if not Table1.FindKey([edit1.Text]) then
    begin
    ShowMessage('该用户不存在。');
    edit1.Clear;
    exit;
    end;
  if edit2.text=''  then
  begin
  ShowMessage('请填写密码。');
  exit
  end;
  password :=Table1.FieldByName('密码').AsString;
  if not (password=edit2.Text) then
    begin
    ShowMessage('密码错误。');
    edit2.Clear;
    exit;
    end;
  if length(edit3.Text)>9 then
    begin
    ShowMessage('密码不得长于9位。');
    edit3.Clear;
    exit;
    end;
  if edit3.Text='' then
    begin
    ShowMessage('密码不能为空。');
    edit3.Clear;
    exit;
    end;
  if edit4.Text<>edit3.Text then
    begin
    ShowMessage('确认密码应该与新密码一致。');
    edit4.Clear;
    exit;
    end;

  If not(MessageDlg('你确定要修改密码吗？',mtConfirmation,
      [mbYes,mbno],0)=mrYes) then
  exit;

  Table1.edit;
  Table1.FieldByName('密码').AsString := edit3.Text;
  Table1.Post;
  Table1.Refresh;
  ShowMessage('密码修改成功。');

end;

procedure Tfrm_changepwd.FormCreate(Sender: TObject);
begin
  table1.Open ;
end;

procedure Tfrm_changepwd.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if length(edit1.Text)>12 then
begin
showmessage('用户名不得长于12位。');
edit1.clear;
exit;
end;
end;

end.