2,497
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kingisw 2003-12-10
- 打赏
- 举报
onPostError 中处理是不是更好呢。。。。。。。各位评说
gf109 2003-11-25
- 打赏
- 举报
我用lookup不知道速度如何，反正还是要历遍数据库，
procedure Tf_addadviser.Edit6Exit(Sender: TObject);
var name1:variant;
begin
dm.ADOTable2.Open;
name1:=dm.ADOTable2.Lookup('adviserid',edit6.Text,'name');
if VarIsNull(name1) then
edit8.SetFocus
else
showmessage('你所输入的编号已经存在，请检查数据！');
end;
procedure Tf_addadviser.Edit6Exit(Sender: TObject);
var name1:variant;
begin
dm.ADOTable2.Open;
name1:=dm.ADOTable2.Lookup('adviserid',edit6.Text,'name');
if VarIsNull(name1) then
edit8.SetFocus
else
showmessage('你所输入的编号已经存在，请检查数据！');
end;
navy_koo 2003-11-24
- 打赏
- 举报
根据我的体会，Locate()效率是最高的。
dxwin 2003-11-24
- 打赏
- 举报
可以查主键的count
if query1.Active then query1.Active:=false;
with query1 do
begin
sql.Clear;
sql.Add('select count(*) as no_bh from dhd where bh='+QuotedStr(edit1.Text));
ExecSQL;
end;
query1.Active:=true;
if strtoint(query1.FieldByName('no_bh').AsString)=0 then showmessage('可以插入')
begin
table1.Active:=true;
table1.Locate('bh',edit1.Text,[]);
table1.Edit;
end;
end;
if query1.Active then query1.Active:=false;
with query1 do
begin
sql.Clear;
sql.Add('select count(*) as no_bh from dhd where bh='+QuotedStr(edit1.Text));
ExecSQL;
end;
query1.Active:=true;
if strtoint(query1.FieldByName('no_bh').AsString)=0 then showmessage('可以插入')
begin
table1.Active:=true;
table1.Locate('bh',edit1.Text,[]);
table1.Edit;
end;
end;
smallwy 2003-11-24
- 打赏
- 举报
具体内容如下：
create table struct(struct varchar(10) not null primary key)
btnadd代码：
dm.tablesruct.append;
create table struct(struct varchar(10) not null primary key)
btnadd代码：
dm.tablesruct.append;
smallwy 2003-11-24
- 打赏
- 举报
具体内容如下：
create table struct(struct varchar(10) not null primary key)
btnadd代码：
dm.tablesruct.append;
create table struct(struct varchar(10) not null primary key)
btnadd代码：
dm.tablesruct.append;
xiaoyuer0851 2003-11-24
- 打赏
- 举报
你可以使用locate 函数来查找
Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;
如果为真，那么就说明存在，这个时候你就可以给用户相应提示是需要覆盖还是重新录入……
Locate(const KeyFields: String; const KeyValues: Variant; Options: TLocateOptions): Boolean;
如果为真，那么就说明存在，这个时候你就可以给用户相应提示是需要覆盖还是重新录入……
myling 2003-11-24
- 打赏
- 举报
没有主键的话
那就只有遍历了
那就只有遍历了
Tensionli 2003-11-24
- 打赏
- 举报
查主键.
微雪缤纷 2003-11-24
- 打赏
- 举报
你的表中有主键吧，查主键有的数据的话就update没有的话就insert咧。
jingbianfc 2003-11-24
- 打赏
- 举报
错，LOCATE也被内核转换成了SQL语句!!
建立主键，自动识别重复记录，
建立主键，自动识别重复记录，
