小编use*_*539的帖子

审计表中SQL Server中的日志记录更改

桌子 :

    CREATE TABLE GUESTS (
      GUEST_ID int IDENTITY(1,1) PRIMARY KEY, 
      GUEST_NAME VARCHAR(50), 
      GUEST_SURNAME VARCHAR(50), 
      ADRESS VARCHAR(100), 
      CITY VARCHAR(50), 
      CITY_CODE VARCHAR(10), 
      COUNTRY VARCHAR(50), 
      STATUS VARCHAR(20), 
      COMMENT nvarchar(max);
Run Code Online (Sandbox Code Playgroud)

对于日志记录:

CREATE TABLE AUDIT_GUESTS (
  ID int IDENTITY(1,1) PRIMARY KEY, 
  GUEST_ID int,
  OLD_GUEST_NAME VARCHAR(50), 
  NEW_GUEST_NAME VARCHAR(50), 
  OLD_GUEST_SURNAME VARCHAR(50), 
  NEW_GUEST_SURNAME VARCHAR(50),
  OLD_ADRESS VARCHAR(100), 
  NEW_ADRESS VARCHAR(100),
  OLD_CITY VARCHAR(50), 
  NEW_CITY VARCHAR(50),
  OLD_CITY_CODE VARCHAR(10), 
  NEW_CITY_CODE VARCHAR(10), 
  OLD_COUNTRY VARCHAR(50), 
  NEW_COUNTRY VARCHAR(50), 
  OLD_STATUS VARCHAR(20), 
  NEW_STATUS VARCHAR(20), 
  OLD_COMMENT nvarchar(max), 
  NEW_COMMENT nvarchar(max), 
  AUDIT_ACTION varchar(100),
  AUDIT_TIMESTAMP datetime);
Run Code Online (Sandbox Code Playgroud)

我想在我的GUESTS表上创建一个触发器来记录我表中的所有更改AUDIT_GUESTS.我如何在SQL …

sql sql-server

27
推荐指数
4
解决办法
11万
查看次数

位类型:默认为"0"而不是NULL

默认情况下,sql server为boolean字段分配NULL值.如何将其'0'用作默认值?我尝试将默认值设置为((0))但它仍然存在于NULL上.

sql-server

10
推荐指数
4
解决办法
4万
查看次数

Delphi 10.3 Rio-删除欢迎页面

启动IDE时,是否有办法摆脱烦人的欢迎页面?

对于某些以前的版本,您可以通过注册表完成此操作,但我可以在Rio找到它。尝试将文件夹“欢迎页面”重命名为其他名称,但随后出现错误-找不到页面。有没有办法避免这种情况,而只是摆脱它?

delphi delphi-10.3-rio

5
推荐指数
3
解决办法
1165
查看次数

如何根据表值为cxgrid着色?

我希望特定字段名称"hello"的所有行都显示为绿色.我试过这个customdrawcell:

if abstable1.fieldbyname('somename').asstring = 'Hello' then
  cxgrid.canvas.brush.color:=clGreen
Run Code Online (Sandbox Code Playgroud)

但它不会工作......我在这里错过了什么?

delphi devexpress tcxgrid

4
推荐指数
3
解决办法
3万
查看次数

delphi xe2 tms组件在x64平台下不可用

在delphi xe2中的instaled tms组件6.1.4.1.在x32平台下,它们工作正常但在x64平台下它们不可用.我错过了什么吗?

delphi delphi-xe2

4
推荐指数
1
解决办法
1771
查看次数

将SQL Server查询转换为Delphi语法

这是原始的SQL服务器查询,它有效:

use HIS

SELECT
room_type,rate_start_date,rate_end_date,rate
, DATEDIFF(DAY,case when rate_end_date < '2011.08.21'
then '2011.08.19'
else rate_start_date
end,
case when rate_start_date > '2011.08.19'
then '2011.08.21'
else rate_end_date
end
) AS days FROM room_rates
WHERE room_type = 'DBLMS' AND rate_start_date <= '2011.08.21'
AND rate_end_date > '2011.08.19'
Run Code Online (Sandbox Code Playgroud)

我将它转换为Delphi SQL:

procedure TForm1.Button1Click(Sender: TObject);
begin
uniQuery1.Close;
uniQuery1.SQL.Clear;
uniQuery1.SQL.Add('SELECT room_type,rate_start_date,rate_end_date,rate,');
uniQuery1.SQL.Add('DATEDIFF(DAY,case when rate_end_date < 2011.08.21 then 2011.08.19 else rate_start_date end,');
uniQuery1.SQL.Add('case when rate_start_date > 2011.08.19');
uniQuery1.SQL.Add('then 2011.08.21 else rate_end_date end) AS days FROM room_rates');
uniQuery1.SQL.Add('WHERE room_type = …
Run Code Online (Sandbox Code Playgroud)

delphi delphi-2010 delphi-xe

3
推荐指数
1
解决办法
1864
查看次数

Delphi x64嵌入式数据库

谷歌搜索了很长一段时间,但似乎无法找到答案.有没有与Delphi一起使用的x64嵌入式数据库?似乎找不到任何东西

delphi delphi-xe2

3
推荐指数
1
解决办法
1288
查看次数

Delphi:VK_SPACE,正确的密钥

我有点困惑.在:http: //delphi.about.com/od/objectpascalide/l/blvkc.htm

它说"太空"的正确键是#20.试过,它不会起作用.但是,用#32替换它似乎有效:

procedure TForm14.cxTextEdit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,#32, '0'..'9']) then begin
  ShowMessage('Only numbers !');
  Key := #0;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

所以现在我不确定这是否适用于所有Windows版本?

delphi

3
推荐指数
1
解决办法
1578
查看次数

我该如何创建独特的账单/账号?

您的人们用什么来生成唯一的帐号?有些人使用Autoinc字段,其他人使用其他东西......在运行插入查询之前获取帐号的正确方法是什么?

delphi delphi-7 delphi-xe

2
推荐指数
1
解决办法
2116
查看次数

把设计师窗口放在背景中

这很烦人......在Delphi 7中,当您单击代码窗口时,表单会自动隐藏.现在它保持领先.我必须最小化它以将其从焦点中移除.是否有任何设置可以纠正此行为?另外,我必须在右侧玩组件托盘进行捉迷藏.我打开它,但是当我尝试点击滚动条尝试搜索我的组件时,我会立即将所有内容替换为Delphi项目等.然后我必须在表单内单击组件托盘再次返回.烦人...有什么方法可以禁用它?

delphi delphi-xe2

2
推荐指数
1
解决办法
569
查看次数