怎样判断第一列中的数据是否有重复值?如果有就提示说“NO不能为重复值”。然后光标就到那里。让用户修改后再保存??
附:我是批量的保存数据的。这样一来就不懂怎样判断复复值了。高手们帮帮忙 ̄!
谢谢 ̄ ̄ ̄!procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.LockType:=ltBatchOptimistic;
ADOQuery1.Open;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('修改数据库?',mtConfirmation,[mbYes,mbNo],0)=mrYes
then
ADOQuery1.UpdateBatch();
end;
附:我是批量的保存数据的。这样一来就不懂怎样判断复复值了。高手们帮帮忙 ̄!
谢谢 ̄ ̄ ̄!procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.LockType:=ltBatchOptimistic;
ADOQuery1.Open;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if MessageDlg('修改数据库?',mtConfirmation,[mbYes,mbNo],0)=mrYes
then
ADOQuery1.UpdateBatch();
end;
id name
11 小明
12 小王
12 小天如上面,如果id錄入時已存在了,就提示用戶說id已存在了。請輸入另外一個。
謝謝~! 發了幾天了,沒人回復,唉。
RepeatKey:TStringList
2.在的FORM的Create事件中RepeatKey:=TStringList.Create; RepeatKey.sort;
3.每次UpdateBatch()之后清除RepeatKey.Clear;
4.在Beforpost事件写
if RepeatKey.indexof(用户输入的ID值)<>-1 then
begin
showmessage('Repeat!!!');
Abort;
end
else
RepeatKey.add(用户输入的ID值);