password.~pas

一个简单的DELPHI的图书管理系统,具有一般图书管理系统的基本功能!-

unit password;

interface

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

type
  Tpasswordform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    Edit2: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passwordform: Tpasswordform;

implementation

{$R *.dfm}

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

procedure Tpasswordform.BitBtn1Click(Sender: TObject);
var i:integer;
begin
  adoquery1.close;
  adoquery1.sql.clear;
  adoquery1.SQL.Add('select * from yonghu where name =:user and password=:password');
  adoquery1.Parameters.ParamByName('user').Value := Edit1.Text;
  adoquery1.Parameters.ParamByName('password').Value := Edit2.Text;
  adoquery1.open;
  if adoquery1.Eof then showmessage('用户名密码错误')
    else
    begin
      adoquery1.close;
      adoquery1.SQL.Clear;
      adoquery1.SQl.Add('update yonghu set yonghu.password ='''+edit3.Text+''' where yonghu.name ='''+edit1.Text+'''');
      showmessage(adoquery1.SQL.Text);
      adoquery1.ExecSQL;
      showmessage('修改用户成功');
    end;
  adoquery1.Close;
end;


procedure Tpasswordform.FormShow(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
end;

end.