求delphi自动生成编号代码

linanguyu

新手上路

Rank: 1

帖子: 15
精华: 0
注册时间: 2008-4-21

1^# 大中小发表于 2008-4-23 17:38 只看该作者

求delphi自动生成编号代码

比如说医院的门诊编号，每次自动加一。或者不重复的随机数也可以。

搜索更多相关主题的帖子: delphi 自动代码医院随机数

TOP

gsjzfj_ccs

新手上路

Rank: 1

帖子: 8
精华: 0
注册时间: 2008-3-30

2^# 大中小发表于 2008-4-23 22:26 只看该作者

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
curdate:string;
begin
adotable1.open;
for i:=1 to adotable1.recordcount do
begin
adotable1.edit;
curdate:=FormatDatetime('yyyy年mm月dd日',now);
adotable1.fieldbyname('id').value:=curdate+char(32)+'第'+inttostr(i)+'号';
next;
end;
end;

TOP

linanguyu

新手上路

Rank: 1

帖子: 15
精华: 0
注册时间: 2008-4-21

3^# 大中小发表于 2008-4-25 11:30 只看该作者

多谢指教

TOP

‹‹ 上一主题 | 下一主题 ››