数据库的顺序编号问题！请高手指点！(30)

S

shubiao123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-13

• #1

我想实现当单击添加按钮时，数据库的编号自动按顺序生成如从0000，0001，0002.......9999。我是这样写的为什么实现不了呢？我定义整形id，在窗体创建的时候初始化，如果不够4位，前边补0，然后按位取得后放到数组的第17位到20位，可我的结果一直都是1.这样怎么就不对呢？请高手指点啊！ inc(id); sum:=inttostr(id); edt8.Text:=sum; while length(sum)<5 do sum:='0'+sum; for i:=17 to 20 do begin myarray:= edt8.text[i-16]; end;

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-13

• #2

edt8.Text:=sum; while length(sum)<5 do sum:='0'+sum;-------------> while length(sum)<5 do sum:='0'+sum; edt8.Text:=sum;

 

S

shubiao123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-13

• #3

恩这样是四位了，可是不增长啊，每次单击增加按钮都是0000，这是怎么回事啊？

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-13

• #4

可能是由于ID不是全局变量，需要更改为全局变量。30分太少，呵呵

 

S

shubiao123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-13

• #5

对不起各位了，我就这么点分了，还请多帮忙啊？我生命的是全局变量，但不知道在哪块给全局变量赋值？我是在窗体创建的时候赋的值。 id:=id+1; sum:=inttostr(id); while length(sum)<4 do sum:='0'+sum; edt8.Text:=sum;现在的问题是每次单击按钮都是0001，可怎么办啊？请各位热心人帮忙啊？

 

S

shubiao123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-05-18

• #6

接受答案了.