用 dbExpress 访问SQLServer2000数据库,如何查询相关联表中的数据是否存在!
我在做一个小软件,其中用到了的表的关联,做的查询的时候出现了一点问题,请各位大哥帮帮我!
表是:主表和附表
语句为:
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;
这样的语句不行,不知还有没有更好方法,在线等待.....急急急急!
问题点数:0、回复次数:4Top
1 楼linzhisong(無聊)回复于 2003-06-04 18:01:15 得分 0
这个吧
if (Name.Text =DataSet.FieldValues['姓名']) then
Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
else
Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
Top
2 楼linzhisong(無聊)回复于 2003-06-04 18:01:47 得分 0
if (dataset.locate('姓名',name.text,[]) then
Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
else
Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
Top
3 楼lion_lh(xmanx)回复于 2003-06-04 18:12:06 得分 0
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;
Top
4 楼Gahal(地瓜)回复于 2003-06-04 18:18:25 得分 0
可以我的"主表"中“学位”时,(学位.text:=DataSet.FieldValues['学位'])出现"学位"不在该数据集中,不知是什么问题!Top



