我做的主要--明细数据库应用程序,一个主表,另一个细表
我刚开始用FindKey来查询,
代码如下:
with table1 do
begin
label1.Caption:='';
indexfieldnames:='CustNo';
if findkey([Edit1.Text]) then
label1.Caption:='ok'
else
label1.Caption:='failed';
end;
后来用GotoKey来查询,发觉不行,只能默认查询第一条的数据,为什么呢?是TTable什么属性影响呢?
with table2 do
begin
Label1.Caption:='';
IndexFieldnames:='CustNo';
setkey;
FieldByName('CustNo').AsString:=Edit1.Text;
if GotoKey then
Label1.Caption:='查找成功'
else
Label1.Caption:='查找失败';
end;
我刚开始用FindKey来查询,
代码如下:
with table1 do
begin
label1.Caption:='';
indexfieldnames:='CustNo';
if findkey([Edit1.Text]) then
label1.Caption:='ok'
else
label1.Caption:='failed';
end;
后来用GotoKey来查询,发觉不行,只能默认查询第一条的数据,为什么呢?是TTable什么属性影响呢?
with table2 do
begin
Label1.Caption:='';
IndexFieldnames:='CustNo';
setkey;
FieldByName('CustNo').AsString:=Edit1.Text;
if GotoKey then
Label1.Caption:='查找成功'
else
Label1.Caption:='查找失败';
end;
解决方案 »
- 奇怪!为什么我的机器上运行Delphi2009,每天第一次启动都会死在logo画面那里?
- delphi7无法安装
- 如何使用API函数来找到指定窗体?我想让在后台的窗体跳到前面来
- 请各位帮忙了,如何给Chart控件画曲线!在线等待!!!
- 有谁能用with do对下列语句进行改造?
- 怎样把十六进制数转换成字符串??(高分100,急........)
- 如何把listview中的列项内容全读出来?怎么老没人回答呀?
- 99分请教: 如何测得在 WIN9X 下的硬盘序列号.
- DBGrid的问题.
- 这样的汇总查询可不可以实现?
- 发帖再问:主从表的保存问题(我觉得好难解决,重分求解决啊),或者大家讨论讨论
- 请教各路大虾:用ADO连接SQL SERVER 需哪些控件,如何连接。急!急!急!
FINDKEY是查找指定的记录
FINDKEY是查找指定的记录
EditKey;
FieldByName('State').AsString := 'CA';
FieldByName('City').AsString := 'Santa Barbara';
GotoKey;end;