在相关联的表中，如何取同一条记录中其字段的值！

Question

我在做一个小软件，其中用到了的表的关联，做的查询的时候出现了一点问题，请各位大哥帮帮我！
  表是：主表和附表
  语句为:  
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;
这样的语句不行，不知还有没有更好方法，在线等待.....急急急急！

Answer 1

1 有什么问题
2 可以直接
with query1 do
  begin
close;
sql.clear;
sql.add('Select * from 主表 where 身份证号码=''' + 身份证.Text + ''' and 姓名 = ''' + Name.Text + '''');
open;
      if not DataSet.Fields[0].IsNull then
        begin
          Application.MessageBox('网络验证成功！','验证成功',MB_OK+MB_IconInformation);
          end
      else
          Application.MessageBox('对不起，你不是企业的正式职员！','新增失败',MB_OK+MB_IconError);
end;

Answer 2

用Query来做呢？with Query do
  begin
      Close;
      SQL.Clear;
      sql.Add(
'Select * from 主表 where 身份证号码=''' + 身份证.Text + '''' );
      Open;
      if not Query.IsEmpty then
        begin
          Name.Text :=DataSet.FieldValues['姓名'];{取姓名的值}
          Application.MessageBox('网络验证成功！','验证成功',MB_OK+MB_IconInformation);
          end
      else
          Application.MessageBox('对不起，你不是企业的正式职员！','新增失败',MB_OK+MB_IconError);
end;