unit2.~pas

同学通讯录

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Image1: TImage;
    Bevel1: TBevel;
    go: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure goClick(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses main;

{$R *.dfm}

procedure TForm2.goClick(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.sql.Add('select * from password where user='+chr(39)+edit1.text+chr(39));
query1.Open ;
if query1.Bof and query1.Eof then
   begin
    application.MessageBox('查无此人','信息',48);
    query1.close;
    edit1.Clear ;
    edit2.Clear ;
end
   else if (query1.Fields[0].AsString=edit1.Text) and (query1.Fields[1].AsString=edit2.Text)
   then
   begin
   query1.close;
   form2.Hide;
   form1.show;
   end
else
begin
begin
application.MessageBox('密码错误','信息',48);
query1.close;
edit2.Clear ;
end
end;
end;
procedure TForm2.Edit2Change(Sender: TObject);
begin
if length(edit2.Text)>2 then
begin
go.Enabled:=true;
form2.FocusControl(go);
end;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
go.Enabled:=false;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
application.Terminate;
end;

end.