pb中创建数据操作日志字典

原创 2005年05月26日 14:13:00
 

创建操作日志字典 -------------------------------------------------------------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);

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

PB日志-数据窗口控件函数125.SetItem()

函数作用:给指定的数据窗口或者Datastore中的、指定单元设置数据,通过行和列来确定哪个单元。该函数直接修改缓冲区中的数据,而不是针对显示界面进行修改,修改成功之后,数据窗口控件上会自动反映出最新...
  • codejoe
  • codejoe
  • 2011年11月06日 21:11
  • 769

PB日志-数据窗口控件函数33.GetChild( )

GetChild( ) 功能:得到指定子数据窗口的引用并将其保存到变量中 然后应用程序就可以使用该变量来操作子数据窗口对象 语法:dwcontrol.GetChild ( name, dwc...
  • codejoe
  • codejoe
  • 2011年11月06日 14:03
  • 1684

PB日志-数据窗口控件的函数19.Describe()

Describe() 功能:返回数据窗口控件结构方面的指定信息包括DataWindow   对象以及数据窗口 对象中其他对象的属性取值数据窗口中的每个列每个标题等等都是对象各自都有一 组描...
  • codejoe
  • codejoe
  • 2011年11月06日 20:02
  • 6801

PB日志-数据窗口控件函数130.SetSort()

SetSort 功能 定义数据窗口控件的排序条件。 语法 dwcontrol.SetSort ( format ) 参数 dwcontrol:数据窗口控件名  format:strin...
  • codejoe
  • codejoe
  • 2011年11月06日 11:01
  • 2579

PB对DW数据窗口操作必学

/*******DataWindow Object 的几个有用的属性 ********* /* dw_1.Object.DataWindow.Column.Count 属性记录...

pb数据窗口设置操作

1 使DataWindow列只能追加不能修改 如何使DataWindow中的数据只能追加新记录而不能修改,利用 Column 的 Protect 属性可以很方便的做到这一点,方法如下: 将每一列的...

如何处理PB级别数据(2)——Apache Solr 之 使用SolrJ操作索引库

Solrj是Solr搜索服务器的一个比较基础的客户端工具,可以非常方便地与Solr搜索服务器进行交互。最基本的功能就是管理Solr索引,包括添加、更新、删除和查询等。对于一些比较基础的应用,用Solj...
  • xvshu
  • xvshu
  • 2016年02月26日 14:59
  • 1182

PB对DW数据窗口操作必学

PB对DW数据窗口操作必学         /*******DataWindow Object 的几个有用的属性 ********* /* dw_1.Object.Data...
  • tlammon
  • tlammon
  • 2016年03月11日 14:11
  • 326
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:pb中创建数据操作日志字典
举报原因:
原因补充:

(最多只允许输入30个字)