passwordchenk.~pas

一个详实的图书信息管理系统

unit passwordchenk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;
type
  Tpasswordform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure OnActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordform: Tpasswordform;

implementation
 uses main, CheckUser;
 var sqlstr:string='select * from 操作用户表 where 用户名=:username';
 {$R *.dfm}

procedure Tpasswordform.OnActivate(Sender: TObject);
begin
    ADOConnection1:=CheckUserForm.ADOConnection1;
    edit1.Text:=username;
   // edit2.Text:=password;
    edit3.Text:='';
    edit4.Text:='';

end;

procedure Tpasswordform.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 Tpasswordform.Edit1Exit(Sender: TObject);
var adodataset1:tadodataset;
begin
    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;

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

end.