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;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Shape4: TShape;
    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Timer1: TTimer;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    procedure goClick(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer8Timer(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;

procedure TForm2.Timer1Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape1.Brush.Color:=rgb(r,g,b); //使shape变色
end;

procedure TForm2.Timer2Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape2.Brush.Color:=rgb(r,g,b); //使shape变色


end;

procedure TForm2.Timer3Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape3.Brush.Color:=rgb(r,g,b); //使shape变色

end;

procedure TForm2.Timer4Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape4.Brush.Color:=rgb(r,g,b); //使shape变色


end;

procedure TForm2.Timer5Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape5.Brush.Color:=rgb(r,g,b); //使shape变色


end;

procedure TForm2.Timer6Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape6.Brush.Color:=rgb(r,g,b); //使shape变色


end;

procedure TForm2.Timer7Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape7.Brush.Color:=rgb(r,g,b); //使shape变色


end;

procedure TForm2.Timer8Timer(Sender: TObject);
var
  r,g,b:integer; //定义为整型
begin
  randomize; //用一随机数初始化内置的随机数生成器
  r:=trunc(random(256)); //取得一个255以内的随机数并取整
  g:=trunc(random(256)); //同上
  b:=trunc(random(256)); //同上
  shape8.Brush.Color:=rgb(r,g,b); //使shape变色
end;

end.