PB如何创建操作日志字典

[糖芋]

创建操作日志字典 -------------------------------------------------------------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 return
choose 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_name
ls_ddtt = gf_datetime() //自定义取得系统时间函数
insert into s_log (c_uid,c_ddtt,c_act,c_sql)
values (:ls_uid,:ls_ddtt,:ls_act,:s_sql);

请问该如何使用上诉代码（在PB哪个位置写入如窗口or数据窗口？）

[糖芋]

试试

[jiadelin]

在datawindow 的SQLPreview脚本中 写gf_log(sqlsyntax)即可

[xiaoplx]

gf_log 是一个全局函数,你照着建

调用如1楼,但这种只用Datawindow更新的才有日志
直接SQL语句就没有

[lzheng2001]

最好还是利用触发器来完成日志记录任务

[WorldMobile]

楼主的这个函数应该是放到SQLPreview里，但感觉不太完美，retrieve时也会执行

我觉得你最好在祖先的数据窗口的updatestart里写代码，把修改日志记录下来

这样只有更新时才会触发

lzheng2001说的方法也可以，缺点是不能记录窗口名等

[hygougou]

如果所有的更新都是放在数据窗口中，那就可以，ｒｅｔｒｉｅｖｅ是不会加载日志的，函数做了处理，脚本中如果有嵌入SQL语句，还是得用触发器

[mtu207]

学习

[糖芋]

已做好，交给前台工作人员做测试，欢迎提出更好的建议。

[lovelihp]

都被说光了...我顶