Question

请问在数据库中插入一条记录时，如果关键字重复，产生一个异常提示'Key

请问在数据库中插入一条记录时，如果关键字重复，产生一个异常提示'Key

若以下回答无法解决问题，邀请你更新回答

Answer 1

function TFormDep.dep_node_exist(id: string): integer;var strSQL : string;begin with DataModuleManage.ADOQueryPub1 do begin Close; SQL.Clear; Parameters.Clear; Parameters.AddParameter.Name := 'p1'; Parameters.ParamValues['p1'] := id; strSQL := 'select count(*) as a from dep_info where dep_id =:p1'; SQL.Add(strSQL); Open; result := FieldByName('a').AsInteger; end;end; if dep_node_exist(EditDepID.Text) = 0 then begin strSQL := 'insert into dep_info values(:p1,:p2,:p3,:p4)'; TreeViewInfo.Items.AddChild(cur, EditDepName.Text + '—' + EditDepID.Text); end else begin strSQL := 'update dep_info set dep_name=:p2, dep_pic=:p4 where dep_id =:p1'; cur.Text := trim(EditDepName.Text) + '—' +trim(EditDepID.Text); end; 查看原帖>>