用序列号和触发器CREATE SEQUENCE 系统_流程编号_序
START WITH 1
INCREMENT BY 1
MAXVALUE 999999999
MINVALUE 1
CYCLE
CACHE 20
NOORDER;
create or replace trigger 系统_流程编号_触
before insert on 系统_业务流程_表
for each rowbegin
select 系统_流程编号_序.NEXTVAL into :NEW.流程编号 from dual;
end;
/
START WITH 1
INCREMENT BY 1
MAXVALUE 999999999
MINVALUE 1
CYCLE
CACHE 20
NOORDER;
create or replace trigger 系统_流程编号_触
before insert on 系统_业务流程_表
for each rowbegin
select 系统_流程编号_序.NEXTVAL into :NEW.流程编号 from dual;
end;
/
解决方案 »
- 关于在delphi 内 判断sql2000中是否存‘a’临时表
- delphi2007 读取得unicode文本显示出来时乱码?
- rave报表 打印预览 死循环,高手门帮忙看下(在线等...)
- 求助:当我单击 button1 ,希望提示我是否真的运行下面的程序,如果我选择 是,则运行,选择否,则退出,谢谢!
- 客户要求有excel导入的功能.是不是要让客户提供导入的excel的文档格式才能开发啊?
- 数据库连接怎么不行呢?
- 如何取托盘图标的坐标位置,100分赠送
- 关于消息记录的,兄弟们谁给指点一下?
- 两个TPanel 怎样获得这两个TPanel 句柄?
- 高分搜索delphi 控制word的命令集,特别是控制word表格的命令集。
- 请教,怎样设置使得delphi调用外部EXE程序(带参数)??
- java做三层,delphi做三层,那个好
如果可以的话,这些代码都写在哪里啊,可以尽快回答吗?
你这样的话,我在access中就可以设置一个自动编号的字段就可以了嘛
Function GetDanJvH(danjv:integer):string;
var
len:integer;
begin
len:=length('0000'+trim(inttostr(danjv)))-4;
result:=copy('0000'+trim(inttostr(danjv)),len+1,4);
end;