Delphi登陆验证方法
指尖风暴 下面是Delphi的登陆按钮中的代码：
- procedure TForm1.Button1Click(Sender: TObject);
- var
- num,user,pass,temp:string;
- begin
- user:=Edit1.Text;
- pass:=Edit2.Text;
- ADOQuery1.Close;
- ADOQuery1.SQL.Clear;
- ADOQuery1.SQL.Text:='select ID from admin where Fuser='''+user+'''and Fpass='''+pass+'''';
- Adoquery1.Open;
- temp:=adoquery1.FieldByName('ID').AsString;
- if temp<>'' then
- //如果输入了正确的用户名和密码，那么必然能查到用户编号，否则结果为空
- begin
- //showmessage(temp);
- Form2.Show;//这里调用的Form2必须use中添加对应的哦
- end
- //---------登录失败，提示用户重新输入----------------------------------
- else
- begin
- ShowMessage('用户名或密码错误，请检查后重新登录');
- end
- end;
表结构：
表名：admin
项：ID Fuser Fpass
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
