都太复杂了,这里我刚写的,你参考一下procedure TForm1.Button1Click(Sender: TObject); var user,pass,temp:string; begin user:=edit1.Text; pass:=edit2.Text; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:=' select userid from ln_user where username='''+user+'''and password='''+pass+''''; ADOQuery1.Open; temp:=ADOQuery1.FieldByName('userid').AsString; if temp<>'' then begin form2.Show; form1.Hide; form2.StatusBar1.Panels[3].Text:=edit1.Text; end else begin ShowMessage('用户名或密码错误,请检查后重新登陆'); edit2.Text:=''; end end;
var
user,pass,temp:string;
begin
user:=edit1.Text;
pass:=edit2.Text;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=' select userid from ln_user where username='''+user+'''and password='''+pass+'''';
ADOQuery1.Open;
temp:=ADOQuery1.FieldByName('userid').AsString;
if temp<>'' then
begin
form2.Show;
form1.Hide;
form2.StatusBar1.Panels[3].Text:=edit1.Text;
end
else
begin
ShowMessage('用户名或密码错误,请检查后重新登陆');
edit2.Text:='';
end
end;
delphi是做界面,
sql server是数据库,验证用户名和密码的有效性
一种是你的用户名也是SQL 的用户名,这需要你用SQL 连接,在连接语句中加入。
另一种方法是你先用SA或其它用户名,使用配置文件,连接到数据库,再到数据库中你的用户表中检查用户名。