frmpassword1.pas

蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!

unit frmpassword1;

interface

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

type
  TForm6 = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
   var  keyname: string;
implementation

uses data;

{$R *.dfm}

procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
if (Edit1.Text='')or(Edit2.Text='')or(Edit3.Text='')
then begin
MessageDlg('请输入完整的信息。',mtInformation,[mbok],0);
Edit1.SetFocus;
end
else begin
if Not dm.KeyTable.Locate('KeyNo',Edit1.Text,[])
then begin
MessageDlg('原密码输入错误，不能修改新密码！',mtInformation,[mbok],0);
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit1.SetFocus;
end
else begin
if Edit2.Text<>Edit3.Text
then begin
MessageDlg('两次密码输入不同，请重新输入新密码！',mtInformation,[mbok],0);
Edit2.Text:='';Edit3.Text:='';Edit2.SetFocus;
end
else begin        

with dm.keytable do
begin
 edit;
 fieldbyname('keyno').asstring:=edit2.text;
 post;
 MessageDlg('密码修改成功！',mtInformation,[mbok],0);
 edit1.Clear ;
 edit2.Clear;
 edit3.Clear ;
form6.Close;
 end; end; end;
 end;
end;

procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
edit1.Clear ;
edit2.Clear ;
edit3.Clear;
close;
end;

end.