안녕하세염 델파이 초초보입니다.
Query1.SQL.Add(select * from f114 where id = :id and pass = :pa');
if !Query1.IsEmpty then
eid.Text := Query1.FieldByName('id').AsString
...
else
Application->MessageBox('없는 아이디이거나 비밀번호가 틀립니다','로그인실패',MB_ICONINFORMATION|MB_OK);
id.Text := '';
pass.Text := '';
id.SetFocus;
이렇게 돼 있는데 오류메세지를 아이디와 비밀번호로 나눌려구 합니다.
쿼리를 두개를 써서 했는데 문제는 화면에 뿌려주는 곳에서 어떤 쿼리의 값을 받아야 하는지? 그것 땜에 에러가 나는 거 같은데
Query1.SQL.Add(select * from f114 where id = :id and pass = :pa');
if !Query1.IsEmpty then
여기서 id가 틀린건지 pa가 틀린건지 알아내서 메세지를 뿌리고 해당 필드 값들은 에디트에 뿌릴려구 합니다.
어떤 방법이 있는 좀 알려주세요.
구럼 즐거운 하루 되시구염~~
begin
Close;
SQl.Clear;
SQL.Add(Select * From F114 where Id = :Id');
ParamByName('Id').AsString := id.Text;
Open;
if !IsEmpty then
begin
if FieldByName('Pass').AsString <> Pass.Text then
Showmessage('비밀번호 틀림');
end
else
Showmessahe('아이디 없슴');
end;
아이디로 먼저 찾고 Filed값인 Pass를 비교하면 됩니다.
그럼, 이만.
초초보 wrote:
> 안녕하세염 델파이 초초보입니다.
>
> Query1.SQL.Add(select * from f114 where id = :id and pass = :pa');
>
> if !Query1.IsEmpty then
>
> eid.Text := Query1.FieldByName('id').AsString
> ...
> else
> Application->MessageBox('없는 아이디이거나 비밀번호가 틀립니다','로그인실패',MB_ICONINFORMATION|MB_OK);
> id.Text := '';
> pass.Text := '';
> id.SetFocus;
>
> 이렇게 돼 있는데 오류메세지를 아이디와 비밀번호로 나눌려구 합니다.
> 쿼리를 두개를 써서 했는데 문제는 화면에 뿌려주는 곳에서 어떤 쿼리의 값을 받아야 하는지? 그것 땜에 에러가 나는 거 같은데
>
> Query1.SQL.Add(select * from f114 where id = :id and pass = :pa');
>
> if !Query1.IsEmpty then
>
> 여기서 id가 틀린건지 pa가 틀린건지 알아내서 메세지를 뿌리고 해당 필드 값들은 에디트에 뿌릴려구 합니다.
> 어떤 방법이 있는 좀 알려주세요.
>
> 구럼 즐거운 하루 되시구염~~