我想在输入数据后先判断一下数据库中是否已有此数据,有则给出提示,没有才提交。用
if not ADODataSet1.Locate('ID','DBEdit1.Text,[]) then
ADODataSet1.Post
else showmessage('数据已存在');
做判断,即使是第一次输入的数据也会执行else后的语句我试了一下,去掉其他语句,只有ADODataSet1.Locate('ID','DBEdit1.Text,[])一条语句数据就被提交了
这是为什么呢?
if not ADODataSet1.Locate('ID','DBEdit1.Text,[]) then
ADODataSet1.Post
else showmessage('数据已存在');
做判断,即使是第一次输入的数据也会执行else后的语句我试了一下,去掉其他语句,只有ADODataSet1.Locate('ID','DBEdit1.Text,[])一条语句数据就被提交了
这是为什么呢?
解决方案 »
- 为什么自动保存多个Excel后,打开其中一个,会同时把其他几个一起打开呢?很奇怪!还有怎么样在memo中显示不同字体颜色
- 有趣的现象,showmessage(floattostr(int(strtofloat('2.1')*100)))结果是209,不知道有没有人知道原因?
- Access查询时间字段问题?
- 子窗体无法创建的问题
- 放分200恭喜 menggirl 做版主 -- boytomato
- DELPHI中有垃圾收集器?
- 帮帮忙
- 急,ReplaceDialog怎么才能做到全字匹配?
- 关于topgrid没有右键菜单的问题
- 哪里有jbuilder4.0的正式版?谢谢
- 关于表字段付值的问题?
- 如果把FORM的网格设小点
begin
if not (DataSet.State = dsEdit) then
With SelQuery do
begin
Close;
SQL.Clear;
SQL.Add('select MENUGROUP_ID from MENUGROUP where MENUGROUP_ID= :MGROUP');
Parameters.ParamByName('MGROUP').Value := ModulesQuery.FieldByName('MENUGROUP_ID').AsString;
Open;
if not eof then
Raise Exception.Create('该模块组编号已存在,请重新输入!');
close;
end;
end;