数据库主键冲突，异常处理，请高手给看看（新手菜鸟问题）

[tnt3331023]

数据库里面就3个字段，workid,name,age 其中workid为主键，主键不是自动排序的，是用户手动输入的
程序界面里用3个edit控件分别输入，然后保存入库（就是插入哈），如果用户输入的workid与数据库中已有的数据相同，会报错主键冲突。代码如下

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if trim(edit1.Text)='' then
  begin
showmessage  ( '请输入工号，该项为必填项！ ');
  end;
  if  trim(edit3.Text)<>'' then
  begin
  with adoquery1 do
  begin
     close;
     sql.Clear ;
sql.Add('insert into mestab (workid,name,age)');
sql.add('values (:A,:B,:C)');
     parameters.ParamByName('A').Value :=strtoint(trim(edit1.text));
      parameters.ParamByName('B').Value :=trim(edit2.text);
       parameters.ParamByName('C').Value :=trim(edit3.text);
         execsql;
   end;

edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
    end;
end;

end.

怎么将这个主键冲突的异常，就做个提示呀，不是弹出系统的这个报错信息。
例如数据表中已有了一条主键为pl203的记录,怎么可使再输入主键为pl203记录时,提示已经存在,主键不能重复等信息,并且不出现系统的那个提示呀。
还有个问题。。。。。我程序代码里还有些别的内容，之前没什么问题，出了这个主键冲突的问题后，每次关闭程序，就报错，并且电脑进程中的project1.exe在程序关闭后没有结束，只有手动结束了这个进程后，才能关掉那个报错提示框......更灵异的是，我在学校的机子上会像上面说的报错，进程没结束，但同样的程序复制回家里的电脑上，就不报错了
各位高手们，这怎么回事哈...新手困惑ing
大神们如果有以上主键冲突现成的代码，麻烦提供下，新手观摩学习下，先谢了，望解惑...

[tnt3331023]

主键冲突异常处理方面是不是也有个规范的写法，新手猜想ing...有大神可以提供个规范的吗？我的代码写法都太粗俗了。。想看看人家判断异常的写法，貌似try except那种东东，见笑了。

[fox600123]

既然用ADOQuery，可以在OnPostError 事件里处理

[Oraclers]

你是用ADOQuery执行SQL语句，就可以捕获错误，类似： ... try ExecSQL; except showmessage(edit1.text + '已存在!请重新输入！'); edit1.SetFocus; end;

[tnt3331023]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if trim(edit1.Text)='' then
  begin
showmessage  ( '请输入工号，该项为必填项！ ');
  end;
  if  trim(edit1.Text)<>'' then
  begin
try//捕捉异常

  with adoquery1 do
  begin
     close;
     sql.Clear ;
sql.Add('insert into mestab (workid,name,age)');
sql.add('values (:A,:B,:C)');
     parameters.ParamByName('A').Value :=strtoint(trim(edit1.text));
      parameters.ParamByName('B').Value :=trim(edit2.text);
       parameters.ParamByName('C').Value :=trim(edit3.text);
         execsql;
   end;

edit1.Text:='';
edit2.Text:='';
edit3.Text:='';

except//处理异常
application.MessageBox('系统错误，可能存在主键重复情况，请核对固定资产编号是否重复！','提示',0+64) ;
close;
end;

    end;
end;

end.

我改了下，不过是不是太简单了，就这样处理合适吗？有全面点的吗？请教下

[thumb0422]

或者 在输入主键之后 查询下 数据库

[tnt3331023]

woniugongzuoshi，你的意思是把那个自动排序编号的ID字段作为主键？？这样肯定没主键冲突了，不过重复记录以后再进行统一处理？？是这个意思吗？

[gaoz]

主键一般来说最常用的应用只是标识，如果你这个ID没有什么实在意义的话，可以设置为自动标识 而如果做为主键，这个主键的数据库是有可能或经常出现重复，那这个字段就不该用来做主键…… 因为，你单独加个字段为主键，再用程序判断ID是否重复是可行的解决办法！

[woniugongzuoshi]

这种情况我一般是这样处理的，ID在后台自动生成，前台设个编号随用户折腾

[tnt3331023]

谢谢参与，结贴了先

[Andy-88]

这个主键 叫客户操作的话最好不要做主键 非要用的话搞的话 先查一下 或修理在异常 提示下 平时我是这样处理的。。。