createusers.pas

絮语2007视频聊天软件源程序.仅供参考

unit createusers;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, xpButton;

type
  Tcreate_user = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    userid: TEdit;
    xpButton1: TxpButton;
    Bevel2: TBevel;
    Label4: TLabel;
    uname: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    tel: TEdit;
    Label7: TLabel;
    xpButton2: TxpButton;
    business: TEdit;
    dept: TEdit;
    pwd1: TEdit;
    pwd2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure useridKeyPress(Sender: TObject; var Key: Char);
    procedure FormPaint(Sender: TObject);
  private
    procedure clearedit;
    function makeformedit:string;
    function checkinput:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  create_user: Tcreate_user;

implementation
uses udpcores,shareunit;
{$R *.DFM}

function Tcreate_user.checkinput:boolean;
var i:integer;
begin
result:=true;
for i:=1 to ComponentCount do
if (Components[i-1] is tedit)then
if tedit(Components[i-1]).text='' then
   begin
   result:=false;
   break;
   end;
end;

procedure Tcreate_user.clearedit;
var i:integer;
begin
for i:=1 to ComponentCount do
if (Components[i-1] is tedit)then
   tedit(Components[i-1]).text:='';
end;

function Tcreate_user.makeformedit:string;
var i:integer;
    msg:String;
begin
for i:=1 to ComponentCount do
if (Components[i-1] is tedit)then
   makeparamsex(msg,Components[i-1].name,tedit(Components[i-1]).text);
result:=msg;
end;

procedure Tcreate_user.FormCreate(Sender: TObject);
begin
udpcore.changeLayered(handle);
clearedit;
end;

procedure Tcreate_user.xpButton2Click(Sender: TObject);
begin
close;
end;

procedure Tcreate_user.xpButton1Click(Sender: TObject);
begin
if checkinput then
if pwd1.text=pwd2.text then
 begin
 if udpcore.user.create_newuser(makeformedit) then
    begin
    showmessage('帐号注册成功.');
    clearedit;
    close;
    end else showmessage('注册错误,用户名已经存在请重新输入.');
 end else showmessage('注册信息不完整或有误.');
end;

procedure Tcreate_user.useridKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 Then
  Begin
  If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
     SelectNext(Sender as TWinControl,False,True)
  else
   SelectNext(Sender as TWinControl,True,True);
   Key := #0
  end;
end;

procedure Tcreate_user.FormPaint(Sender: TObject);
begin
udpcore.formonpaint(self);
end;

end.