Как работать с ДБ , Zeos

Есть таблица baza
как в Edit1 cтавить допустим значение Password где ID=2( это Passnumber )
и если Password=Passnumber в Login ставилось Loginnumber

До:
ID(int) Login(char) Password(char)
1 Useru Pass1
2 Usert Passnumber
3 Users Pass3

После:

ID(int) Login(char) Password(char)
1 Useru Pass1
2 Usertnumber Passnumber
3 Users Pass3

Добавлено через 54 минуты
Может ктото не понел что должна сделать программа:
База MySQL
Table 'baza'
Таблица выглядит вот так:
ID Login Password
1 Useru Pass1
2 Usert Passnumber
3 Users Pass3


Программа должна взять из таблицы Password который принадлижит id=2 , в данном случае Passnumber и ставило в Edit1.Text , и если Edit1.text='Passnumber' то в Login который = Usert ставилось Usernumber , и после выполнение кода таблица выглядела вот так:


IDLogin Password
1 Useru Pass1
2 Usertnumber Passnumber
3 Users Pass3

1

мдя.. кто-нибудь что-нибудь понял ?

1

Сообщение от MsGuns мдя.. кто-нибудь что-нибудь понял ?

Присоединяюсь... Многа букав - читал - ни одной не понял...

1

Поменять имя для юзера с id=2:
Но причем тут какой-то эдит и зачем его заполнять чем-то, а потом еще это "что-то" с чем-то сравнивать - полная загадка.
Конечно, первая мысль, посетившая голову была о программке-админе и изменении с ее помощью инфы о юзверях базы. Если так, то зафик держать какие-то свои таблицы "юзеров" еслм в мускуле имеются свои достаточно развитые средства авторизации и своя база пользователей ?

2

Сообщение от MsGuns Поменять имя для юзера с id=2: SQL 1 UPDATE baza SET login='Usertnumber' WHERE id=2 Но причем тут какой-то эдит и зачем его заполнять чем-то, а потом еще это "что-то" с чем-то сравнивать - полная загадка. Конечно, первая мысль, посетившая голову была о программке-админе и изменении с ее помощью инфы о юзверях базы. Если так, то зафик держать какие-то свои таблицы "юзеров" еслм в мускуле имеются свои достаточно развитые средства авторизации и своя база пользователей ?

Я хачу научиться работать с MySQL , а как в Edit1 cтавить тот пароль где ID=2?

1

function TForm1.GetPasswordByUserID(UserID: integer, AConnection: TADOConnection): string;
begin
result := 'Ошибка доступа';
with TADODataSet.Create(nil) do
try
Connection := AConnection;
CommandText := 'Select password from baza where ID='+UserID;
try
Open;
if RecordCount>0 then
result := FieldByName('password').AsString
else
result := 'Пользователь с ID='+UserID+' не определен в baza';
except
result := 'Ошибка запроса';
end;
finally
Free;
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if Tag>0 then exit; // Во избежание выполнения каждый раз при получении формой фокуса
Edit1.Text := GetPasswordByUserID(2,ADOConnection1); // Соединение должно быть уже установлено
Tag := 1;
end;

Добавлено через 2 минуты
Это с ADO, с Zeos думаю что-то очень подобное

Добавлено через 3 минуты
И еще. Вообще-то, ИМХО, пользователей ищут в базе по имени (UserName), а не по индентификатору. Если, конечно, это авторизация (процедура логина)

1

Сообщение от MsGuns function TForm1.GetPasswordByUserID(UserID: integer, AConnection: TADOConnection): string; begin result := 'Ошибка доступа'; with TADODataSet.Create(nil) do try Connection := AConnection; CommandText := 'Select password from baza where ID='+UserID; try Open; if RecordCount>0 then result := FieldByName('password').AsString else result := 'Пользователь с ID='+UserID+' не определен в baza'; except result := 'Ошибка запроса'; end; finally Free; end; end; procedure TForm1.FormActivate(Sender: TObject); begin if Tag>0 then exit; // Во избежание выполнения каждый раз при получении формой фокуса Edit1.Text := GetPasswordByUserID(2,ADOConnection1); // Соединение должно быть уже установлено Tag := 1; end; Добавлено через 2 минуты Это с ADO, с Zeos думаю что-то очень подобное Добавлено через 3 минуты И еще. Вообще-то, ИМХО, пользователей ищут в базе по имени (UserName), а не по индентификатору. Если, конечно, это авторизация (процедура логина)

А как допустим с помощю ADO в edit1.text ставить пороль который принадлежит login=usertest

1

застрелиццо !!!

1

Сообщение от MsGuns застрелиццо !!!

Да уж. Эти "студенты" думают, что задав пару вопросов на форуме можно обмануть... ну да, препода можно обмануть, а себя как обманешь? Сейчас столько литературы и в бумажном и в электронном виде... Мой Вам совет: купите/одолжите/скачайте/украдите книгу - прочитайте и не задавайте ГЛУПЫХ вопросов... Тут люди стараются помочь действительно тем, кому нужна помощь и кто хочет УЧИТСЯ. Или платите - в топике фрилансеров - там вам будут писать программы и разжевывать основы...
Сорри, если кого задело - просто одно и тоже везде. Хоть на форум не ходи

0