zhuce.~pas

简单的delphi udp聊天系统,简单的delphi udp聊天系统

unit zhuce;

interface

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

type
  TZhuceForm = class(TForm)
    Label1: TLabel;
    User2: TEdit;
    Label2: TLabel;
    Password2: TEdit;
    Label3: TLabel;
    Password3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    check: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    validate: TEdit;
    Label6: TLabel;
    Push: TBitBtn;
    Label7: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure checkClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure PushClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZhuceForm: TZhuceForm;
  sqlstr:string;
implementation

uses denglu, DataM, ADODB, DB;

{$R *.dfm}

procedure TZhuceForm.BitBtn2Click(Sender: TObject);
begin//重置按钮，重新输入
User2.Text:='';
Password2.Text:='';
Password3.Text:='';
validate.Text:='';
User2.SetFocus;
end;

procedure TZhuceForm.checkClick(Sender: TObject);
begin
//检测用户名是否存在
sqlstr:='select * from YongHu where User_Name=:User_Name';
with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(sqlstr);
Parameters.ParamByName('User_Name').Value:=User2.Text;
open;
end;
if User2.Text='' then
begin
Label4.Caption:='请输入要注册的用户名！';
User2.SetFocus;
end
else if dm.ADOQuery1.RecordCount>0 then
begin
Label4.Caption:= '用户已存在，请重新输入！';
User2.Text:='';
User2.SetFocus;
end
else
begin
Label4.Caption:='恭喜，此用户尚未注册！';
Password2.SetFocus;
end;
end;
procedure TZhuceForm.BitBtn1Click(Sender: TObject);
begin{插入数据到数据表，检测表里是否已存在有要插入的用户
，如果有就重新输入}
sqlstr:='select * from YongHu where User_Name=:User_Name';
with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(sqlstr);
Parameters.ParamByName('User_Name').Value:=User2.Text;
Open;
end;
if User2.Text='' then
begin
Application.MessageBox('请输入要注册的用户名！','温馨提示！',MB_OK+MB_ICONWARNING);
User2.SetFocus;
end
else if Password2.Text='' then
begin
Application.MessageBox('请输入注册密码！','温馨提示！',MB_OK+MB_ICONWARNING);
Password2.SetFocus;
end
else if Password3.Text='' then
begin
Application.MessageBox('请确认注册密码！','温馨提示',MB_OK+MB_ICONWARNING);
Password3.SetFocus;
end
else if dm.ADOQuery1.RecordCount>0 then
begin
Label4.Caption:= '用户已存在，请重新输入！';
User2.Text:='';
Password2.Text:='';
Password3.Text:='';
User2.SetFocus;
end
else if Password2.Text<>Password3.Text then
begin
Application.MessageBox('输入密码前后不一致！','注册提示！',MB_OK+MB_ICONWARNING);
Password2.Text:='';
Password3.Text:='';
Password2.SetFocus;
end
else if validate.Text<>Label6.Caption then
begin
Label7.Caption:='验证码有误！';
validate.Text:='';
validate.SetFocus;
end
else
begin
sqlstr:='insert into YongHu values (:User_Name,:Pass_word)';
with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(sqlstr);
Parameters.ParamByName('User_Name').Value:=User2.Text;
Parameters.ParamByName('Pass_word').Value:=Password2.Text;
ExecSQL;
end;
Application.MessageBox('恭喜你注册成功！','温馨提示！！！',MB_OK+MB_ICONINFORMATION);
ModalResult:=mrOK;
User2.Text:='';
Password2.Text:='';
Password3.Text:='';
validate.Text:='';
User2.SetFocus;
end;
end;
procedure TZhuceForm.PushClick(Sender: TObject);
var
str1,str2:string;
a,i:integer;
begin//刷新验证码
str1:='0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ';
randomize;
for i:=1 to 5 do
begin
a:=random(62);
str2:=str2+copy(str1,a,1);
end;
Label6.Caption:=str2;
validate.SetFocus;
end;
procedure TZhuceForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
ZhuceForm.BitBtn1.Click;
end;
end;

end.