reg_form.pas

五子棋的课程设计

unit Reg_Form;

interface

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

type
  TForm3 = class(TForm)
    Image1: TImage;
    Label4: TLabel;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

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

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
  if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit2.Text = Edit3.Text) then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select *from Users where Name="'+Edit1.Text+'";');
    ADOQuery1.Open;
    if ADOQuery1.RecordCount >0 then
    begin
      ShowMessage('该用户名已经存在，请选用其它用户名!');
      Edit1.Text := '';
      Edit2.Text := '';
      Edit3.Text := '';
    end
    else
    begin
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Add('select *from Users;');
        ADOQuery1.Open;
        ADOQuery1.Append;
        ADOQuery1.FieldByName('Name').Value := Edit1.Text;
        ADOQuery1.FieldByName('PassWord').Value := Edit2.Text;
        ADOQuery1.Post;
        ADOQuery1.Refresh;
        ShowMessage('恭喜您，注册成功！现准备退出，请重新登陆！');
        ADOQuery1.Close;
        Close;
    end;
  end
  else  if (Edit1.Text = '') then
  begin
    ShowMessage('用户名不能为空！请重新输入！');
  end
  else
  begin
    ShowMessage('密码输入错误，请重新输入！');
    Edit2.Text := '';
    Edit3.Text := '';
  end;
end;

end.