Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

РЕгистрация [D7, Access]

Noir © (2009-02-01 11:44:00)
В общем проблема такая,мне надо написать регистрацию через клиент сервер ..в общем человек коннектиться заполняет едиты отправляет все на сервер там все добавляется в бд ,это все сделано ..у меня есть ячейка показывающая айпишник пользователя ...
я хочу сделать так что б если айпи такой уже зареган ,то выводилось сообщение на сервере уже зареган такой пользователь с таким айпи адрессом проходит поиск

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;
обьясните может я не в очередь вставил проверку на такого пользователя?
если можете напишите этот код правельно потому что я новичек в делфи

b z (2009-02-01 13:24:00) [1]
А почему проверка идет после создания записи?

Noir (2009-02-01 13:21:00) [2]
ADOQuery1.SQL.Add('select* from ПОльзователи where IP='+QuotedStr(edit4.text));

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

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

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

Сергей М. (2009-02-01 13:00:00) [4]

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

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

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

Noir (2009-02-01 12:47:00) [5]
эм..я имел ввиду код на событие когда что то приходит на сервер..а помощь мне нужна с бд...если бы я этого не написал тебе было бы легче?ЛУчши помоги с проблемой

Сергей М. (2009-02-01 12:08:00) [6]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »