数据库里面就3个字段,workid,name,age 其中workid为主键,主键不是自动排序的,是用户手动输入的
程序界面里用3个edit控件分别输入,然后保存入库(就是插入哈),如果用户输入的workid与数据库中已有的数据相同,会报错主键冲突。代码如下
unit Unit1;interfaceuses
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
大神们如果有以上主键冲突现成的代码,麻烦提供下,新手观摩学习下,先谢了,望解惑...异常处理数据库主键
程序界面里用3个edit控件分别输入,然后保存入库(就是插入哈),如果用户输入的workid与数据库中已有的数据相同,会报错主键冲突。代码如下
unit Unit1;interfaceuses
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
大神们如果有以上主键冲突现成的代码,麻烦提供下,新手观摩学习下,先谢了,望解惑...异常处理数据库主键
解决方案 »
- listview显示数据
- DBGrid显示字段值的简单问题
- 与朋友合作做软件,应如何分享收入??
- 无分求教,关于进度条控件的问题
- 请问delphi中如何控制控件显示的文字的间距
- 请这句带双指针的C++语句怎么翻译成Pascal?感谢!!!
- 哪位DELPHI7的高手有激活账户?请帮下忙好哇?多谢?
- 求助高手,我想在form的OnClose事件中判断操作员是否已经签退,如果没有签退的话,则不允许关闭窗口,如何能够实现???
- delphi7 开发进销存软件每次进货商品的价格不一样 怎么算成本和利润呢?
- DataBase在NT Service程序怎么用?要多少分我给多少分!
- 监控多个按键是否同时按下 或松开
- idudpserver 在WIN7下,收不到数据,怎么回事
...
try
ExecSQL;
except
showmessage(edit1.text + '已存在!请重新输入!');
edit1.SetFocus;
end;
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.
我改了下,不过是不是太简单了,就这样处理合适吗?有全面点的吗?请教下
而如果做为主键,这个主键的数据库是有可能或经常出现重复,那这个字段就不该用来做主键……
因为,你单独加个字段为主键,再用程序判断ID是否重复是可行的解决办法!