check_password.~pas

人事管理系统的源代码

unit Check_Password;

interface

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

type
  Tcheck_password_form = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ADOConnection1: TADOConnection;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  check_password_form: Tcheck_password_form;

implementation
uses main;

{$R *.dfm}

procedure Tcheck_password_form.BitBtn2Click(Sender: TObject);
begin
   close;
end;

procedure Tcheck_password_form.FormActivate(Sender: TObject);
begin
    ADOConnection1:=main_Form.ADOConnection1;
    edit1.Text:=username;
    edit3.Text:='';
    edit4.Text:='';
end;

procedure Tcheck_password_form.BitBtn1Click(Sender: TObject);
var adoquery1:tadoquery;
     str:string;
begin
     str:='Update 操作用户表 set 密码=:password where '+
           '用户名=:username';
   if edit4.Text=edit3.Text then
       begin
          adoquery1:=tadoquery.Create(self);
          adoquery1.Connection:=adoconnection1;
          adoquery1.SQL.Clear;
          adoquery1.SQL.Add(str);
          adoquery1.Parameters.Clear;
          adoquery1.Parameters.AddParameter;
          adoquery1.Parameters[0].Name:='password';
          adoquery1.Parameters[0].DataType:=ftstring;
          adoquery1.Parameters[0].Direction:=pdinput;
          adoquery1.Parameters[0].Value:=edit3.Text;
          adoquery1.Parameters.AddParameter;
          adoquery1.Parameters[1].Name:='username';
          adoquery1.Parameters[1].DataType:=ftstring;
          adoquery1.Parameters[1].Direction:=pdinput;
          adoquery1.Parameters[1].Value:=edit1.Text;
          adoquery1.ExecSQL;
          adoquery1.Close;
       end
   else
       begin
           application.MessageBox('两次密码不一致，请检查！','提示',mb_ok)
       end;
   edit3.Text:='';
   edit4.Text:='';
   edit3.SetFocus;
end;

procedure Tcheck_password_form.Edit1Exit(Sender: TObject);
    var adodataset1:tadodataset;
        sqlstr:string;
begin
    sqlstr:='select * from 操作用户表 where 用户名=:username';
    if edit1.Text<>'' then
    begin
       adodataset1:=tadodataset.Create(self);
       adodataset1.Connection:=adoConnection1;
       adodataset1.Close;
       adodataset1.CommandType:=cmdtext;
       adodataset1.CommandText:=sqlstr;
       adodataset1.Parameters.Clear;
       adodataset1.Parameters.AddParameter;
       adodataset1.Parameters[0].Name:='username';
       adodataset1.Parameters[0].DataType:=ftstring;
       adodataset1.Parameters[0].Direction:=pdinput;
       adodataset1.Parameters[0].Value:=edit1.Text;
       adodataset1.Open;
       if  adodataset1.Recordset.RecordCount<> 0 then
                begin
                   application.MessageBox('您输入的用户名错误！','提示',mb_ok);
                   edit1.Text:='';
                   edit1.SetFocus;
                end;
      adodataset1.Close;
      end;
end;

end.