var
pwd:String;
myid:String;
sql:String;
begin
pwd:=form3.password.Text;
myid:=form3.id.Text;
DataModule4.Query1.Close;
DataModule4.Query1.SQL.Clear;
DataModule4.Query1.SQL.Add(Format('select password from ryxx where id=%s',[myid]));
DataModule4.Query1.open;
{if (pwd=DataModule4.Query1.ParamByName('password').AsString) then
begin
form1.jyz.Text:=form3.id.Text;
form1.ShowModal;
form3.Close;
end
else} form3.Close;
说明:登陆窗口,输入用户名id和密码password,从数据库读去相应的数据,对其合法性进行验证
初学者问题帮助一下了
pwd:String;
myid:String;
sql:String;
begin
pwd:=form3.password.Text;
myid:=form3.id.Text;
DataModule4.Query1.Close;
DataModule4.Query1.SQL.Clear;
DataModule4.Query1.SQL.Add(Format('select password from ryxx where id=%s',[myid]));
DataModule4.Query1.open;
{if (pwd=DataModule4.Query1.ParamByName('password').AsString) then
begin
form1.jyz.Text:=form3.id.Text;
form1.ShowModal;
form3.Close;
end
else} form3.Close;
说明:登陆窗口,输入用户名id和密码password,从数据库读去相应的数据,对其合法性进行验证
初学者问题帮助一下了
pwd:String;
myid:String;
sql:String;
begin
pwd:=form3.password.Text;
myid:=form3.id.Text;
DataModule4.Query1.Close;
DataModule4.Query1.SQL.Clear;
DataModule4.Query1.SQL.Add(Format('select password from ryxx where id=%s',[myid]));
DataModule4.Query1.open;
{if (pwd=DataModule4.Query1.FieldByName('password').AsString) then//修改这
begin
form1.jyz.Text:=form3.id.Text;
form1.ShowModal;
form3.Close;
end
else} form3.Close;
if (pwd=DataModule4.Query1.FieldByName('password').AsString) then//修改这
好像这里有点问题,大家看看阿DataModule4.Query1.SQL.Add(Format('select password from ryxx where id=%s',[myid]));