frmpassword2.pas

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

unit frmpassword2;

interface

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

type
  TForm7 = 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
  Form7: TForm7;

implementation

uses data;

{$R *.dfm}

procedure TForm7.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 dm.KeyTable.Locate('KeyName',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
append;
fieldbyname('keyname').AsString:=edit1.Text ;
fieldbyname('keyno').AsString :=edit2.Text ;
post;
end;
MessageDlg('新用户添加成功，您可以继续添加用户，或按"取消"退出。',mtInformation,[mbok],0);
Edit1.Text:='';Edit2.Text:='';Edit3.Text:='';Edit1.SetFocus;
end; end; end;
end;



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

end.