unit10.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit10;

interface

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

type
  Tchangepass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    Bevel2: TBevel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepass: Tchangepass;

implementation
uses unit3,unit5,unit8;
{$R *.dfm}

procedure Tchangepass.FormShow(Sender: TObject);
begin
edit1.Text:=useron.UserName;
if useron.UserName <> 'admin' then
     begin
     edit1.Enabled:=false;
     end;
end;

procedure Tchangepass.Button1Click(Sender: TObject);
begin
with DModule1.Qry_user do
         begin
          Close;
          SQL.Clear;
          SQL.add('select * from users where userID=(:us)');    //查询用户名
          parameters.ParamByName('us').Value:=edit1.Text;
          open;
      if recordcount < 0 then
         showmessage('用户名不存在！')
         else
        if (fieldbyname('password').AsString=edit2.Text) and (edit3.text = edit4.Text) then //比较密码
          begin
          close;
          sql.Clear;
          sql.Add('update users set password=(:pass1)');
          sql.Add('where userID=(:user1)');
          parameters.ParamByName('pass1').Value:=edit3.Text;
          parameters.ParamByName('user1').Value:=edit1.Text;
          execsql;
          edit1.Clear;
          edit2.Clear;
          edit3.Clear;
          edit4.Clear;
          showmessage('密码更改成功！请注销后重新登录！');
          changepass.Close;
          end
           else
          showmessage ('密码不正确！');
          end;
end;

procedure Tchangepass.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 edit2.SetFocus;
end;

procedure Tchangepass.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 edit3.SetFocus;
end;

procedure Tchangepass.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 button1.SetFocus;
end;

procedure Tchangepass.BitBtn1Click(Sender: TObject);
begin
changepass.Close;
end;

procedure Tchangepass.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 edit4.SetFocus;
end;

end.