РЕгистрация

← →
Noir (2009-02-01 11:44) [0]

В общем проблема такая,мне надо написать регистрацию через клиент сервер ..в общем человек коннектиться заполняет едиты отправляет все на сервер там все добавляется в бд ,это все сделано ..у меня есть ячейка показывающая айпишник пользователя ...
я хочу сделать так что б если айпи такой уже зареган ,то выводилось сообщение на сервере уже зареган такой пользователь с таким айпи адрессом проходит поиск

ADOQuery1.SQL.Add("select* from ПОльзователи where IP="+QuotedStr(edit4.text));
потом проверка
if ADOQuery1.Eof then
но в любом случае если я регистрируюсь ,то пишет что такой есть пользователь
вот код серверсокета на событие чтения от пользоователя
procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var I: integer;
s:string;

begin
for I:=0 to ComponentCount-1 do
begin
if Components[i] is TEdit then
begin
if TMEdit(Components[i]).Text="" then
TMEdit(Components[i]).Text:=Socket.ReceiveText;
end;
end;

if (edit1.text<>"") and (edit2.text<>"") and (edit3.text<>"") and (edit4.text<>"") then

begin
form1.ADOQuery1.Insert;
form1.ADOQuery1Name.AsString:=Edit1.Text;
form1.ADOQuery1Fam.AsString:=Edit2.Text;
form1.ADOQuery1Email.AsString:=Edit3.Text;
form1.ADOQuery1IP.AsString:=Edit4.Text;
form1.ADOQuery1.Post;
button3.Click;
end;
ADOQuery1.SQL.Add("select* from ПОльзователи where IP="+QuotedStr(edit4.text));
if ADOQuery1.Eof then
showmessage ("Уже есть");
end;
обьясните может я не в очередь вставил проверку на такого пользователя?
если можете напишите этот код правельно потому что я новичек в делфи

← →
Сергей М. © (2009-02-01 12:08) [1]

> вот код серверсокета

Он какое отношение имеет к теметике конференции "Базы" ?
Абсолютно никакого.

← →
Noir (2009-02-01 12:47) [2]

эм..я имел ввиду код на событие когда что то приходит на сервер..а помощь мне нужна с бд...если бы я этого не написал тебе было бы легче?ЛУчши помоги с проблемой

← →
Сергей М. © (2009-02-01 13:00) [3]

> код на событие когда что то приходит на сервер

А какая разница, когда выполняется этот код ?
Никакой.
Так зачем же ты приплел сюда все касаемое сети, тем более что работать оно в условиях глоб.сети зведомо не будет ?

Отделяй мух от котлет.

← →
Сергей М. © (2009-02-01 13:18) [4]

> помощь мне нужна с бд

Где у тебя в коде оператор, запускающий select-запрос на выполнение ?

← →
Noir (2009-02-01 13:21) [5]

ADOQuery1.SQL.Add("select* from ПОльзователи where IP="+QuotedStr(edit4.text));

← →
b z (2009-02-01 13:24) [6]

А почему проверка идет после создания записи?

РЕгистрация Найти похожие ветки