创建操作日志字典 -------------------------------------------------------------Susue
--------- 如表已存在,先删除--if exists(select 1 from sysobjects where name=@#S_LOG@# and Xtype=@#U@#) drop table S_LOG ;go
--------- 建新表和主键create table S_LOG ( P_ID int IDENTITY NOT NULL, --ID C_UID varchar(20) NULL, --编号姓名 C_DDTT varchar(20) NULL, --日期时间 C_ACT varchar(20) NULL, --动作 C_SQL varchar(2048) NULL, --SQL语句 CONSTRAINT PK_LOG PRIMARY KEY CLUSTERED (P_ID)) ;
//////////////////////////////////////////////////////////////函数名: none gf_log(string s_sql)// 参数: string s_sql //sql语句 // 调用: datawindow SQLPreview Script:// gf_log(this.GetSQLPreview())// pb高版本可用// gf_log(sqlsyntax) // 功能：记录用户操作日志// 原创: Susue 2003-12-14 ////////////////////////////////////////////////////////////string ls_act //动作if pos(s_sql,@#SELECT@#) > 0 then returnchoose case left(s_sql,6) case @#INSERT@# ls_act = @#插入@# case @#UPDATE@# ls_act = @#更新@# case @#DELETE@# ls_act = @#删除@#end choose
string ls_uid,ls_ddtt //用户id，系统时间ls_uid = gs_uid + gs_namels_ddtt = gf_datetime() //自定义取得系统时间函数insert into s_log (c_uid,c_ddtt,c_act,c_sql) values (:ls_uid,:ls_ddtt,:ls_act,:s_sql);
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
