2

我是 Java 开发人员。我在 Delphi 中有一些旧程序。在旧版本中，他们使用mdb. 我修复了它以与 SQL Server 连接。所有 SQL 查询都使用TAdoQuery.

qryTemp.SQL.Text:='select  sum(iif(ComeSumm>0,comesumm,0)),sum(iif(lostSumm>0,lostsumm,0)) from cash '+
   'where (IdCashClause is null or idcashclause<>8) '+
  ' and cashNum='+IntToStr(i)+
  ' and CashType=0'+
  ' and format(PayDate,"dd/mm/yyyy")=format('''+DateToStr(Date)+''',"dd/mm/yyyy") ';

程序抛出异常：

列名“dd/mm/yyyy”无效。

我已经修复了其他查询以进行比较：

 qryTemp.SQL.Text:=' select top 1 iif(ComeSumm>0,comesumm,0) from cash '
                     +' where idCashReason=1 and idCashClause=8 and cashNum='+IntToStr(i)
                     +' and PayDate<:D'
                     +' order by payDate desc';
qryTemp.Parameters.ParamByName('D').Value:=DateTimeToStr(Date);

我能否在不重写整个项目的情况下快速修复所有查询以使用 SQL Server？

4

3 回答 3

4

假设在 MSSQLPayDate中定义为date/datetime你可以使用如下参数：

qryTemp.SQL.Text:=' select top 1 iif(ComeSumm>0,comesumm,0) from cash '
                     +' where idCashReason=1 and idCashClause=8 and cashNum='+IntToStr(i)
                     +' and PayDate<:D'
                     +' order by payDate desc';
qryTemp.Parameters.ParamByName('D').Value := Date;
qryTemp.Parameters.ParamByName('D').DataType := ftDateTime;

我也会更改cashNum为参数，即：

...
+' where idCashReason=1 and idCashClause=8 and cashNum=:cashNum'+
...
qryTemp.Parameters.ParamByName('cashNum').Value := i;

总是更喜欢对参数使用兼容的数据类型，而不是格式化和使用字符串。如果您可以显式定义它们，SQL 就不需要猜测您的数据类型。

注意：IIF在 SQL Server 2012 中引入。旧版本使用CASE表达式。

在较旧的非 Unicode Delphi 版本中，参数与 Unicode 有问题。
因此，如果您不使用参数，则可以使用以下内容： 

function DateTimeToSqlDateTime(const DT: TDateTime): WideString;
begin
  Result := FormatDateTime('yyyy-MM-dd', DT) + ' ' + FormatDateTime('hh:mm:ss', DT);
end;

function SqlDateTimeStr(const DT: TDateTime; const Is_MSSQL: Boolean): WideString;
var
  S: WideString;
begin
  S := DateTimeToSqlDateTime(DT);
  if Is_MSSQL then
    Result := Format('CONVERT(DATETIME, ''%s'', 102)', [S]) 
  else
    Result := Format('#%s#', [S]); // MS-ACCESS
end;

您的查询将如下所示：

...
+' and PayDate<' + SqlDateTimeStr(Date, True)
...
于 2013-11-08T09:35:16.617 回答
2

该PayDate列很可能DATE在cash表中声明。考虑到这一点，您的参数应该是 aTDateTime而不是 a string，如下所示：

qryTemp.SQL.Text:=' select top 1 iif(ComeSumm>0,comesumm,0) from cash '
                     +' where idCashReason=:cashReason and idCashClause=8 and cashNum='+IntToStr(i)
                     +' and PayDate<:D'
                     +' order by payDate desc';
qryTemp.Parameters.ParamByName('D').Value := Date;

我只替换了其中一个参数，但您应该考虑替换所有参数，因为这将通过启用其句子缓存来提高服务器性能。

回到您最初的问题，我想重构所有应用程序的唯一方法是拥有一个可以解析您的代码的重构程序，找到这些情况并遵循一种模式将一段代码替换为另一段代码。

我现在不知道有什么工具可以做到这一点。

也许使用支持正则表达式的查找/替换可以帮助您，但它肯定不会一次性解决问题。您必须运行一系列替换阶段才能将您的代码从原来的样子转换成您想要的样子。

于 2013-11-08T09:41:38.490 回答
1

DateToStr 使用全局变量中包含的本地化信息来格式化日期字符串。也许这就是问题所在。

您可以尝试 FormatDateTime：

qryTemp.SQL.Text:='select  sum(iif(ComeSumm>0,comesumm,0)),sum(iif(lostSumm>0,lostsumm,0)) from cash '+
   'where (IdCashClause is null or idcashclause<>8) '+
  ' and cashNum='+IntToStr(i)+
  ' and CashType=0'+
  ' and format(PayDate,"dd/MM/yyyy")='''+FormatDateTime('dd/mm/yyyy',Date)+'''';
于 2013-11-08T07:42:58.470 回答