Question

delphi7中做标记的代码怎么写,就是插入数据时做标记,以免重复插入

就是我有一个添加按钮，在添加按钮里面做标记；然后点击提交按钮时，根据标记判断是否已经输入，是的话就提示信息，否则提交。具体详细的代码哦，谢谢！

Answer 1

保存一条新记录时，在保存之前，首先用一条SQL语句来检测数据表，看看数据表中是否已经存在这条要保存的记录，如果有，就不保存，并给出当前这条记录已经存在于数据表中的提示。如果没有就提示是否真的要保存当前记录，用户回答YES就保存。另外，ACCESS不存在插入与新增的区别，因此，只用apped(新增)，EDIT（修改）就行了，你就是打开ACCESS数据表直接在其中输入数据，它也不允许插入数据的，都是在数据表尾部添加。其实据我观察，用插入方法保存数据后，在以后的查询中，与用新增方法没有什么区别。
你说，要做什么标记，这就得在数据表中添加一个字段来保存这个标记，而这个标记除了增加表的长度以外，没有丝毫的用处。保存一条新的记录，最主要的问题是判断数据表里面有没有与当前信息完全相同的记录。而判断的方法就是用SQL语句检测。如果检测结果集的记录大于0，则表示记录已经存在。
假定你有一张学生信息表：
姓名，性别，出生年月日，身份证号
界面上有edit1,edit2,edit3,edit4来分别负责编辑这些字段信息；
如果你能够确保每个学生都有一个准确的身份证号的话，那么负责检测的SQL语句就十分简单了：
'select 身份证号 from 学生信息表 where 身份证号 ='''+edit4.Text+''' ';
如果不能保证的话，则要对每个字段进行对比
'select 姓名 from 学生信息表 where 姓名 ='''+edit1.Text+''' and 性别 ='''+edit2.Text+''' 出生年月日 ='''+edit3.Text+''' ';
因为学生有同姓名、同性别、同出生年月日的所有都要进行比较
对于三种字段值都相同，那就只姓名后加编号如1、2、3了。否则同名同性同龄的信息就录不进去。