自动添加编号问题

table中有id(非自动编号)和名称2个字段,id起始值为001,现在想让id随着名称字段的值的输入而自动增加,如何实现 问题点数：20、回复次数：7Top

1 楼firetoucher（风焱）回复于 2003-06-03 11:05:50 得分 5

用数据库的自增长字段Top

2 楼linyucao（林玉）回复于 2003-06-03 11:18:39 得分 0

怎么设置Top

3 楼solonet（赤岭雄鹰）回复于 2003-06-03 11:22:16 得分 2

自动编号,长整型,递增,无重复Top

4 楼ctd（☆）回复于 2003-06-03 11:53:27 得分 10

方法一：  
  给id字段赋值即可  
   
  ……  
  table1.open;  
  for   i:=1   to   table1.recordcount   do  
        begin  
        table1.fieldbyname('id').value:=i;  
        next;  
        end;  
   
  方法二：  
  用计算字段,在table1里定义一个计算字段id  
  在table1的oncalcfields事件里添加如下代码：  
  table1id.value:=table1.recno;  
  Top

5 楼ctd（☆）回复于 2003-06-03 12:10:49 得分 0

不好意思，方法一漏掉一句：  
  应为：  
  ……  
  table1.open;  
  for   i:=1   to   table1.recordcount   do  
        begin  
        table1.edit;  
        table1.fieldbyname('id').value:=i;  
        next;  
        end;  
   
  Top

6 楼firetoucher（风焱）回复于 2003-06-03 12:28:29 得分 0

各个数据库关于自增长的语法不一样，如果再sqlserver：  
  CREATE   TABLE   new_employees  
  (  
    id_num   int   IDENTITY(1,1),///////////  
    fname   varchar   (20),  
    minit   char(1),  
    lname   varchar(30)  
  )  
   
  Top

7 楼xiaoyuer0851（红旗下的蛋）回复于 2003-06-03 12:34:38 得分 3

如果你使用access   做数据库  
  那他里面有个字增长字段，  
  那就可以实现你的功能，相信其他数据库中也有相应的，（呵呵，我到没有试过）  
  如果你是   想根据当前记录在数据表中的位置来设置它相应的id   编号，  
  那你使用楼上俩位的方法就能够解决！~~~Top

相关问题

• 字段
• 数据库
• table1
• 编号
• 方法

• 帖主：linyucao
• firetoucher
• solonet
• ctd
• xiaoyuer0851

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载