Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Welcome To Ask or Share your Answers For Others

Categories

0 votes
182 views
in Technique[技术] by (71.8m points)

database - Glitch with login function


与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
Welcome To Ask or Share your Answers For Others

1 Reply

0 votes
by (71.8m points)
function TLogChk.checkCredentials:boolean;
begin
Result:=False;
  with dmLoginCheck do
  begin
    tblLogins.First;
    while NOT tblLogins.Eof do
    begin
      if (tblLogins['Username'] = fUser) AND (tblLogins['Password'] = fPass) then
      begin
      Result:=True;
      Break;
      end;
    tblLogins.Next;
    end;
  end;
end;

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
OGeek|极客中国-欢迎来到极客的世界,一个免费开放的程序员编程交流平台!开放,进步,分享!让技术改变生活,让极客改变未来! Welcome to OGeek Q&A Community for programmer and developer-Open, Learning and Share
Click Here to Ask a Question

...