我在做一个小软件,其中用到了的表的关联,做的查询的时候出现了一点问题,请各位大哥帮帮我!
表是:主表和附表
语句为:
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;
这样的语句不行,不知还有没有更好方法,在线等待.....急急急急!
解决方案 »
- 电子白板控件v2.3
- 如何在 mxoutlookbarpro 的button上添加图片!!
- D2005 ,D8比D7 多了那些功能?
- dbgrideh中,字段的displayformat属性能直接将小数转成百分比吗?
- 菜鸟问题!!!急急。。。。
- 散分1
- 数据过滤
- 实现文本(Label & Richedit等等)同Bitmap一样的图形特效
- 我想要一个VCLSKIN FOR DELPHI2010,谁可以提供给我吗
- 请问:在delphi6中如何分发编译好的web service到web server的虚拟目录下?
- 请问如何用API函数实现监视端口什么时候有数据传送?
- 怎么判断文本框里输入的值不是数值型!
if (Name.Text =DataSet.FieldValues['姓名']) then
Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
else
Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
Application.MessageBox('网络验证成功!','验证成功',MB_OK+MB_IconInformation);
else
Application.MessageBox('对不起,你不是企业的正式职员!','新增失败',MB_OK+MB_IconError);
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;