| 31 |
|
|
| 32 |
|
uses |
| 33 |
|
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, DbCtrls, |
| 34 |
< |
ExtCtrls, IBSQLParser, DB, StdCtrls, IBCustomDataSet; |
| 34 |
> |
ExtCtrls, IBSQLParser, DB, StdCtrls, IBCustomDataSet, LCLVersion; |
| 35 |
|
|
| 36 |
|
type |
| 37 |
|
|
| 145 |
|
|
| 146 |
|
implementation |
| 147 |
|
|
| 148 |
< |
uses IBQuery, LCLType, Variants, LCLProc; |
| 148 |
> |
uses IBQuery, LCLType, Variants, LCLProc, LazUTF8; |
| 149 |
|
|
| 150 |
|
{ TIBLookupControlLink } |
| 151 |
|
|
| 368 |
|
Parser.Add2WhereClause(GetRelationNameQualifier + '"' + ListField + '" Like ''' + |
| 369 |
|
SQLSafe(Text) + '%''') |
| 370 |
|
else |
| 371 |
< |
Parser.Add2WhereClause(GetRelationNameQualifier + 'Upper("' + ListField + '") Like Upper(''' + |
| 371 |
> |
Parser.Add2WhereClause('Upper(' + GetRelationNameQualifier + '"' + ListField + '") Like Upper(''' + |
| 372 |
|
SQLSafe(Text) + '%'')'); |
| 373 |
|
|
| 374 |
< |
end; |
| 375 |
< |
if cbactSearchAscending in AutoCompleteText then |
| 376 |
< |
begin |
| 377 |
< |
FieldPosition := Parser.GetFieldPosition(ListField); |
| 378 |
< |
if FieldPosition = 0 then Exit; |
| 374 |
> |
if cbactSearchAscending in AutoCompleteText then |
| 375 |
> |
begin |
| 376 |
> |
FieldPosition := Parser.GetFieldPosition(ListField); |
| 377 |
> |
if FieldPosition = 0 then Exit; |
| 378 |
|
|
| 379 |
< |
Parser.OrderByClause := IntToStr(FieldPosition) + ' ascending'; |
| 379 |
> |
Parser.OrderByClause := IntToStr(FieldPosition) + ' ascending'; |
| 380 |
> |
end; |
| 381 |
|
end; |
| 382 |
|
end; |
| 383 |
|
|
