unit9.~pas

用delphi编写的学生学籍管理系统

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    username: TEdit;
    password: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery1: TADOQuery;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;
  times:integer;
implementation
uses unit7;

{$R *.dfm}
procedure TForm9.Button1Click(Sender: TObject);
begin
  ADOquery1.Close;
  ADOquery1.SQL.Clear;
  ADOquery1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=mydb';
  ADOquery1.SQL.Add('select LoginPass from login where loginname='+''''+username.Text+'''');
  ADOquery1.Open;
  ADOquery1.Refresh;
  if ADOquery1.Fields[0].value<>null then
  begin
  if ADOquery1.Fields[0].value=password.Text then
  begin
    if Edit3.Text=Edit4.Text then
      begin
       ADOquery1.Close;
       ADOquery1.SQL.Clear;
       ADOquery1.SQL.Add('update login set LoginPass='''+Edit3.text+''' where loginname='''+username.Text+'''');
       ADOquery1.ExecSQL;
       MessageDlg('密码修改成功！现在返回登录窗口……',mtInformation,[mbOk], 0);
       close;
       f_dialog.Show;
      end
      else  MessageDlg('两次密码输入不一致，请确认！',mtInformation,[mbOk], 0);
  end
  else
  if MessageDlg('密码输入错误。是否退出？',mtConfirmation,[mbYes,mbNo],0)
   = mrYes then Close
  else if times<3 then
  begin
  times:=times+1;
  password.SetFocus;
  end
  else
  begin
  MessageDlg('对不起，密码输入严重错误！请退出。',mtInformation,[mbOk], 0);
  application.Terminate ;
  end
  end
  else
  begin
  Application.MessageBox('请确认用户名是否正确！','用户名错误！',mb_ok);
  end;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
   username.Text:='';
   password.Text:='';
   times:=0;
   Edit3.Text:='';
   Edit4.Text:='';
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
   username.Text:='';
   password.Text:='';
   times:=1;
   Edit3.Text:='';
   Edit4.Text:='';
end;

procedure TForm9.Button3Click(Sender: TObject);
begin
  close;
  f_dialog.Show;
end;

end.