如何修改这样的数据
数据库里面的记录不能重新输入,如果发现一个字段比如我的是企业代码如果是重复的录入时候就覆盖原来的数据。我的程序如下:
1。先写一个函数检查有没有重复的数据在数据库里面。
function Tqiyeluru.IsHascode(const code: string): Boolean;
begin
table4.Active:=true;
Result := table4.Locate('qiyecode', code, [loCaseInsensitive]);
end;
2。录入数据
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('SELECT * from qiye');
Query1.Open;
if not IsHascode(Edit2.Text) then
begin
with query1 do
begin
append;
FieldByName('nsmc').asstring := edit1.text;
FieldByName('qiyecode').asstring := edit2.text;
FieldByName('tel').asstring := edit3.text;
FieldByName('zgbm').asstring := edit4.text;
post;
end;
end
else
if Application.MessageBox('有相同的企业代码,确定要覆盖原记录吗?', '覆盖记录', Mb_YesNo + Mb_IconWarning) = Id_no then
Abort;
。。。
在这里我想实现覆盖数据,如何实现呢?请帮助