changpass1.pas

职工信息管理系统的源代码

unit changpass1;

interface

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

type
  Tchangpass = class(TForm)
    Label9: TLabel;
    Label1: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    user: TTable;
    userBDEDesigner: TStringField;
    userBDEDesigner2: TStringField;
    userRignt: TStringField;
    Button1: TSpeedButton;
    bitbtn1: TSpeedButton;
    button2: TSpeedButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changpass: Tchangpass;

implementation

 
{$R *.dfm}

procedure Tchangpass.Button1Click(Sender: TObject);

begin
user.Active:=true;
user.SetKey;
user.FieldByName('用户名').AsString:=qu.cf(username);
if user.GotoKey then
if (user.FieldByName('密码').AsString=qu.cf(edit1.Text)) and (length(qu.cf(edit1.Text))=length(user.FieldByName('密码').AsString)) then
begin
 user.Edit;
user.FieldByName('密码').AsString:=qu.cf(edit2.Text);
 user.Post;
 application.MessageBox('密码已修改','信息',mb_ok+mb_iconinformation);
 close;
 end
else
begin
application.MessageBox('输入的原密码与真实的密码不符','',mb_ok+mb_iconinformation);
edit1.SetFocus;
edit1.Clear;
edit2.Clear;
end;
end;

procedure Tchangpass.FormCreate(Sender: TObject);
begin
button1.Enabled:=false;
user.Active:=false;
user.DatabaseName:=s;
user.TableName:='user.db';
user.Active:=true;
end;

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

procedure Tchangpass.BitBtn1Click(Sender: TObject);
begin
shellexecute(application.Handle,'open',pchar(s+'\help\yong_hu.htm'),'','',SW_SHOW);
end;

procedure Tchangpass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
user.Active:=false;
action:=cafree;
end;

procedure Tchangpass.FormShow(Sender: TObject);
begin
button1.Enabled:=false;
end;

procedure Tchangpass.Edit1Change(Sender: TObject);
begin
button1.Enabled:=true;
end;

procedure Tchangpass.Edit2Change(Sender: TObject);
begin
button1.Enabled:=true;
end;

procedure Tchangpass.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

procedure Tchangpass.FormActivate(Sender: TObject);
begin
user.Active:=true;
end;

end.