关于小问题…………………50分相送……………`

Question

我做的是客户/服务器的模型。在项目表中有一个项目编号是唯一的标识的，我在
数据模块中写规则是
function tdatamodule1.checkxmsb(xx:string):Boolean;
begin
    checkxmsb:=DataModule1.adoxmsb.Locate('XMBH',XX,[]);
end;
adoxmsb是adodataset连接项目表。
然后在项目的表单中，用dbedit来显示，现在我想用dbedit作为添加。在上面有两个按扭''添加''和''保存''
在添加中代码是
     datamodule1.aodxmsb.insert;
在保存中的代码是
if (DBEdit1.Text='') or (DBEdit2.Text='') then
                      begin
                         ShowMessage('项目编号或项目名称不能为空');
                         DBEdit1.SetFocus;
                      end
                                                else
                       if DataModule1.checkxmsb(DBEdit1.Text) then
                             DataModule1.acceptxmsb//就是把adoxmsb.post;
                                                              else
                                  begin
                                  ShowMessage('此项目名称已经存在');
                                  DBEdit1.SetFocus;
                                  end;
这样就会出现关键字不能重复。
请高手指点一下~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~大恩不言谢了啊`~~~~~~~~~~~~~~~

Answer 1

你应该在数据库中让“项目编号”和“项目名称”不能为空值
这样在程序里只需用
try
  Post;
except
  ShowMessage("Insert error!!!");
end;
就行了