delphi,增删改查问题记录

新增时获取新的主键方法

1、oracle :sys_guid()   写法：

2、sql:pGetGUID  写法：

{***********************************************************************
过程名称: pGetGUIDs
输 入:
输 出: 数据库中的16位的唯一编号：uniqueidentifier型
功能描述: 取得唯一编号
全局变量:
调用模块:
修 改：
日 期：
版 本：Ver 1.0
问 题：
************************************************************************}
function pGetGUID: string;

//写在Unt_Public

//说明: 取得唯一编号
function pGetGUID: string;
var DQ: TADOQuery;
begin
DQ := TADOQuery.Create(Application);
with DQ do
try
Connection := DMW_Public.DC_Pub;
Close;
SQL.Clear;
SQL.Add('select NEWID()');
Open;
Result := Fields[0].Value;
finally
Close; Free;
end;
end;

3、插入日期

ORACLE :

插入：to_date('''+DateTimeToStr(pServerTime)+'''

查询服务器时间

function pServerTime: TDateTime;
var
DQ: TORAQuery;
begin
DQ := TORAQuery.Create(nil);
with DQ do
try
Connection := FrmDMPublic.OraS_Pub;
Close;
SQL.Clear;
SQL.Add('select to_char(sysdate,'+'''yyyy-mm-dd hh24:mi:ss'''+') from dual');
//Pro_ViewSQL(SQL);
Open;
Result := Fields[0].AsDateTime;
finally
Close; Free;
end;
end;

SQSERVER:

插入：'''+DateTimeToStr(pServerTime)+'''

查询服务器时间

function pServerTime: TDateTime;
var DQ: TADOQuery;
begin
DQ := TADOQuery.Create(nil);
with DQ do
try
Connection := DMW_Public.DC_Pub;
Close;
SQL.Clear;
SQL.Add('select GETDATE()');
Open;
Result := Fields[0].Value;
finally
Close; Free;
end;
end;