changepassf.pas

用delphi和sql server编写的校园IC卡管理系统。

unit changepassF;

interface

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

type
  Tchangepass = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure clear(); //定义清空函数
  end;

var
  changepass: Tchangepass;

implementation

{$R *.dfm}
uses mainF;
//***********清空函数clear()***********
procedure Tchangepass.clear;
begin
edit1.Clear;
edit2.clear;
edit3.Clear;
edit4.Clear;
end;
//*********修改密码*********
procedure Tchangepass.BitBtn1Click(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 卡信息 where 卡号='''+trim(edit1.Text)+'''');
adoquery1.open;
cardno:=adoquery1.fieldByName('卡号').AsString;
passw:=adoquery1.fieldByName('密码').AsString;
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 卡信息 set 密码='''+trim(edit3.Text)+'''');
    adoquery1.ExecSQL;
    adoquery1.Close;
    showmessage('         密码修改成功！　　　　');
end;

//*********清空输入框信息****************
procedure Tchangepass.FormCreate(Sender: TObject);
begin
clear();
end;
//********搜索IC卡信息***********
procedure Tchangepass.BitBtn3Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 卡信息 where 卡号='''+edit1.Text+'''');
adoquery1.open;
adotable1.Clone(adoquery1,ltUnspecified);
adoquery1.Close;
end;
//*****************退出窗口**************
procedure Tchangepass.BitBtn2Click(Sender: TObject);
begin
close;
clear();
end;
//********输入完卡号按回车跳到原始密码输入框**********
procedure Tchangepass.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;
//**********输入完原始密码后按回车跳到新密码输入框*******
procedure Tchangepass.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;
//*********输入完新密码后按回车跳到新密码确认输入框 *********
procedure Tchangepass.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit4.SetFocus;
end;
//**********新密码确认完成后按回车执行修改操作********
procedure Tchangepass.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn1.Click;
end;

end.