可以用函数Date取得系统当前日期,函数DateToStr可以将日期转换成字符串形式
解决方案 »
- webbrowser控件使用问题
- 月亮兄弟 来取分分 200~~~,其它人不要进了...
- 欢迎加入QQ群、散分
- VC写的DLL库参数是 unsigned char sd[] 在 delphi该用什么类型对应呢?
- treeview结点反复选中并及时更新imageindex(类似于checkbox控件)
- 一个关于索引的问题。
- 控件浏览出来的页面跟原来的就错位了,整个页面偏右下角下移!请问这个问题怎么解决呀????
- 打量数据查询时程序很久没响应,我是弹出一个PROGRESSBAR窗体......
- delphi2005中ASP.net程序中不能显示web control 组件
- 数据库高手请进,急
- 有没有搞电力系统的,交个朋友,问一下,电力中的潮是怎么回事??
- 使用delphi画图的疑难,请帮忙!
事实上,这个ID号应该是一个计算字段
物理字段应该为(T-SQL)
FId int Identity(1,1) not null,
FDate smalldatetime default GetDate() not null,
constraint Pk_Table Primary Key (FDate, FId)
根本不用触发器
FId int not null,
FDate smalldatetime default GetDate() not null
constraint Pk_Table Primary key (FDate, FId)create trigger tr_UpdateTable on TableName
For INSERT
As
declare iNum int
if @@rowcount > 1 return
update inserted
set Fid = (select Fid +1 from TableName where FDate = GetDate())
CREATE SEQUENCES SQ_ID INCREMENT BY 1 START WITH 1;
CREATE OR REPLACE TRIGGER TG_ID_BI_ROW
BEFORE INSERT OF ID ON T_TEST
FOR EACH ROW
STRDATE VARCHAR(10);
IID INTEGER;
STRID VARCHAR(10)
BEGIN
STRDATE:=TO_CHAR(SYSDATE,'YYYYMMDD');
SELECT SQ_ID.NEXTVAL INTO IID FROM DUAL;
STRID:=LPAD(TO_CHAR(IID),5,'0');
:NEW.ID:=STRDATE||STRID;
END;
/
如果你的ID是INTEGER的话,最后一句改为
:NEW.ID:=TO_NUMBER(STRDATE||STRID);
我感觉我已经说的够详细了。