unit2.pas

来自「五子棋的课程设计」· PAS 代码 · 共 87 行

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label3: TLabel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
uses
  Unit1,Reg_Form;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select *from Users');
  ADOQuery1.SQL.Add('where Name="'+Edit1.Text+'" and PassWord="'+Edit2.Text+'";');
  ADOQuery1.Open;
  ADOQuery1.Refresh;
  if (ADOQuery1.RecordCount >= 1) then
  begin
    Form2.Hide;
    MainForm.Show;
  end
  else
    ShowMessage('查无此用户或者是密码错误，请先注册或者重新输入！');
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
  Form2.Hide;
  Form3.Show;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  Close;
end;

end.