mysql을 사용하고 있고요
db연결을 통해서 로그인하는 부분을 공부삼아 만들고 있습니다.
지금 진행중인 상황은 이렇습니다.
로그인 창에서 아이디와 비밀번호를 입력하고 로그인 하면
해당 테이블에서 아이디와 비밀번호가 일치하는 것을 찾아서 확인차
edit 컴포넌트에 id값을 찍어주는.. 이런 내용입니다.
결과는 계속 실패로 나옵니다 ^^;
부디 선배님들의 도움을 부탁드립니다.
현재 작성한 소스 코드입니다.
procedure TForm1.Button1Click(Sender: TObject);
var idvar : string;
begin
DM.query.Close;
DM.query.Sql.Clear;
DM.query.Sql.Add('select * from member where id="edit_id.Text" and passwd="edit_pass.Text"');
try
DM.query.Open;
idvar := DM.query.FieldByName('name').asString;
edit1.text := idvar;
except
showMessage(' 또 실패다야 쯔압 ');
exit;
end;
end;
아마도.. edti_id.Text와 edit_Pass.Text 를 문자열로 받아서 그런듯...
저 값을 파라미터로 넘겨야 하는데.. '' '' 안에 넣었다는것은.. edti_id.Text의 값을 받아가는것이 아니라.. edti_id.Text 를 그대로 문자열로 넣은게 되거든요..
DM.query.Sql.Add('select * from member where id= :edit_id and passwd=:edit_pass ');
DM.query.parameters.ParamByName('edit_Id').Value := edit_id.Text;
DM.query.parameters.ParamByName('edit_pass').Value := edit_pass.Text;
Open;
이렇게 해보세요..