我在做一个小软件,其中用到了的表的关联,做的查询的时候出现了一点问题,请各位大哥帮帮我!
  表是:主表和附表
  语句为:  
with 主表 do
  begin
      DataSet.CommandText:='';
      DataSet.CommandText:='Select * from 主表 where 身份证号码=''' + 身份证.Text + '''' ;
      DataSet.Active :=True;
      if not eof then
        begin
          Name.Text :=DataSet.FieldValues['姓名'];
          Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
          end
      else
          Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
end;
这样的语句不行,不知还有没有更好方法,在线等待.....急急急急!

解决方案 »

  1.   

    这个吧
    if (Name.Text =DataSet.FieldValues['姓名']) then 
          Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
    else
       Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);  
      

  2.   

    if (dataset.locate('姓名',name.text,[]) then 
          Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
    else
       Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
      

  3.   

    with 主表 do
      begin
          DataSet.CommandText:='';
          DataSet.CommandText:='Select * from 主表 where 身份证号码=''' + 身份证.Text + '''' ;
          DataSet.Active :=True;
          if DataSet.RecordCount>0
            begin
              Name.Text :=DataSet.FieldValues['姓名'];
              Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
              end
          else
              Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
    end;
      

  4.   

    可以我的"主表"中“学位”时,(学位.text:=DataSet.FieldValues['学位'])出现"学位"不在该数据集中,不知是什么问题!