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,从数据库读去相应的数据,对其合法性进行验证
初学者问题帮助一下了

解决方案 »

  1.   

    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.FieldByName('password').AsString) then//修改这
      begin
        form1.jyz.Text:=form3.id.Text;
        form1.ShowModal;
        form3.Close;
      end
    else}  form3.Close;
      

  2.   

    zhaojinghui(撒哈拉之雨的悲伤) 说:
    if (pwd=DataModule4.Query1.FieldByName('password').AsString) then//修改这
      

  3.   

    up,这里改掉之后,还是会出错的,我已经把这一段注释掉了,
    好像这里有点问题,大家看看阿DataModule4.Query1.SQL.Add(Format('select password from ryxx where id=%s',[myid]));