frmpassword3.pas

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

unit frmpassword3;

interface

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

type
  TForm8 = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    SpeedButton2: TSpeedButton;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses data;

{$R *.dfm}

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

procedure TForm8.BitBtn1Click(Sender: TObject);
var s:string;
begin
if (Edit1.Text='')or(Edit2.Text='')
then MessageDlg('请输入完整的信息！',mtInformation,[mbok],0)
else begin
if Not dm.KeyTable.Locate('KeyName',Edit1.Text,[])
then begin
MessageDlg('您所输入的用户名不存在，请重新输入或按"取消"退出。',
mtInformation,[mbok],0);
Edit1.Text:='';Edit2.Text:='';Edit1.SetFocus;
end
else begin
with dm.Keyquery do
begin
close;
SQL.Clear;
SQL.Add('select * from Key where KeyName=:KeyName');
Parameters.ParamByName('KeyName').Value:=Edit1.Text;
open;
s:=FieldValues['KeyNo'];
end;
if s<>Edit2.Text
then begin
MessageDlg('您所输入的密码不正确，请重新输入或按"取消"退出。',
mtInformation,[mbok],0);
Edit2.Text:='';Edit2.SetFocus;
end
else
if messagedlg('系统原用户如注销密码，将不再有权使用本系统,您真的要注销吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with dm.Keytable do
begin
delete;
refresh;
next;
end;
MessageDlg('您已经注销成功!',mtInformation,[mbok],0);
edit1.Clear ;
edit2.Clear ;
form8.Close;
end;
end;
end;
end;

end.