쿼리문으로 ID, Password가 일치하는 레코드가 존재하면 승인이 되는게 아닌가요?

가장 간단히 TTable에서 테이블를 읽으신다음 레코드씩 옮겨가며 확인하는게 가장 편하겠네요.





왕초보 wrote:

> 특정 table에 있는 password값과 password입력창에서 받아들이는 password를 비교하여 같으면 데이타를 처리하고 틀리면 그냥 빠져나가게 하고 싶습니다. 그러나 특정 table에 존재하는 password값을 어떻게 갖고와 비교해야하는지 생각이 나질 않습니다. 고수님들의 조언 부탁드리겠습니다. 어설프게나마 제가 짠 부분을 올려봅니다. 보시고 많은 조언 부탁드리겠습니다.

>

> procedure TFS1Q0801.BB_SUB2_1Click(Sender: TObject);

> begin

> if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

> try

> FS1Q0803 := TFS1Q0803.Create(application);

> if FS1Q0803.ShowModal = mrOK then

> { with wwQY_tz301_1 do

> begin

> Close;

> SQL.Clear;

> SQL.Add(' Update tz303');

> SQL.Add(' set GYEL_CHEK = ''Y'' ');

> SQL.Add(' Where USER_IDXX = :P_USER_IDXX ');

> SQL.Add(' and SYST_CODE = :P_SYST_CODE ');

> ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

> ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

> ExecSql;

> end;

> MsgInfo_(hApp, '승인 완료 되었습니다.');

> MsgInfo_(hApp, '이전화면으로 전환됩니다.');

> close;}

> showmessage('암호')

> else

> close;

> finally

> FS1Q0803.Free;

> end;

> end;