桌子 :
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 server为boolean字段分配NULL值.如何将其'0'用作默认值?我尝试将默认值设置为((0))但它仍然存在于NULL上.
启动IDE时,是否有办法摆脱烦人的欢迎页面?
对于某些以前的版本,您可以通过注册表完成此操作,但我可以在Rio找到它。尝试将文件夹“欢迎页面”重命名为其他名称,但随后出现错误-找不到页面。有没有办法避免这种情况,而只是摆脱它?
我希望特定字段名称"hello"的所有行都显示为绿色.我试过这个customdrawcell:
if abstable1.fieldbyname('somename').asstring = 'Hello' then
cxgrid.canvas.brush.color:=clGreen
Run Code Online (Sandbox Code Playgroud)
但它不会工作......我在这里错过了什么?
在delphi xe2中的instaled tms组件6.1.4.1.在x32平台下,它们工作正常但在x64平台下它们不可用.我错过了什么吗?
这是原始的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一起使用的x64嵌入式数据库?似乎找不到任何东西
我有点困惑.在: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版本?
您的人们用什么来生成唯一的帐号?有些人使用Autoinc字段,其他人使用其他东西......在运行插入查询之前获取帐号的正确方法是什么?
这很烦人......在Delphi 7中,当您单击代码窗口时,表单会自动隐藏.现在它保持领先.我必须最小化它以将其从焦点中移除.是否有任何设置可以纠正此行为?另外,我必须在右侧玩组件托盘进行捉迷藏.我打开它,但是当我尝试点击滚动条尝试搜索我的组件时,我会立即将所有内容替换为Delphi项目等.然后我必须在表单内单击组件托盘再次返回.烦人...有什么方法可以禁用它?
delphi ×8
delphi-xe2 ×3
delphi-xe ×2
sql-server ×2
delphi-2010 ×1
delphi-7 ×1
devexpress ×1
sql ×1
tcxgrid ×1