unit4.~pas

学籍管理系统 基于sql2000 实现插入删除修改 等功能 不错

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    question_edit: TLabeledEdit;
    answer_edit: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    user_edit: TLabeledEdit;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit3, Unit1;

{$R *.dfm}


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

procedure TForm4.BitBtn1Click(Sender: TObject);
var
my_adoquery:Tadoquery;
sqlstring:string;
fname1:string;
begin
fname1:=application.GetNamePath+'user/login/用户.mdb';
my_adoquery:=Tadoquery.Create(self);
my_adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+fname1+';';
if user_edit.Text='' then
  begin
    showmessage('请输入相关信息，以便找回密码!');
    exit;
  end;
with my_adoquery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from 用户表 where 用户名=:user and 问题=:question and 答案=:answer');
    Parameters.ParamByName('question').Value:=trim(question_edit.Text);
    Parameters.ParamByName('user').Value:=trim(user_edit.Text);
    Parameters.ParamByName('answer').Value:=trim(answer_edit.Text);
      open;
      if recordcount>=1 then
       showmessage('你的密码是:'+form1.datamd5(my_adoquery.fieldbyname('密码').AsString,1)+'下次不要忘记了!')
      else
       showmessage('对不起，没找到！'); 
      end;
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
user_edit.Clear;
question_edit.Clear;
answer_edit.Clear;
end;

end.