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