unit9.pas

学生管理系统

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  //usertable:tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);


    var
cardno,passw:string;
begin

if (trim(edit1.Text)='') then
begin
messagedlg('请输入正确用户名！',mtWarning,[mbOK],0);
exit;
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from login where 用户名='+''''+trim(edit1.Text)+'''');
adoquery1.open;
//cardno:='select 用户名 from login where 用户名='+''''+trim(edit1.Text)+'''';
cardno:=adoquery1.fieldByName('用户名').AsString;
passw:=adoquery1.fieldByName('密码').AsString;
//passw:= 'select 密码 from login where 密码='+''''+trim(edit2.Text)+'''';
 adoquery1.Close;
  if trim(edit1.text) <>trim(cardno)  then
      begin
      showmessage('     没有这个用户名，请确定输入正确！  ');
      edit1.SetFocus;
      exit;
      end;
  if trim(edit2.Text) <> trim(passw) then
      begin
      showmessage('     原始密码错误，请检查！   ');
      edit2.SetFocus;
      exit;
      end;
  if trim(edit3.Text) <> trim(edit4.Text) then
      begin
         showmessage('  两次输入的新密码不合，请重新输入！ ');
         edit3.SetFocus;
         exit;
      end;
   adoquery1.Close;
    adoquery1.SQL.Clear;

    adoquery1.SQL.Add('update login set 密码 ='''+trim(edit3.Text)+''''+'where 用户名='+''''+trim(edit1.Text)+'''');
    adoquery1.ExecSQL;
    adoquery1.Close;
    showmessage('         密码修改成功！　　　　');


end;



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

end.