pb中创建数据操作日志字典[收藏] - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- pb中创建数据操作日志字典[收藏] (http://www.webasp.net/article/22/21169.htm) |
| -- 作者:未知 -- 发布日期: 2005-04-29 |
创建操作日志字典 -------------------------------------------------------------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); |
| webasp.net |