| Subject | Re: [IBO] DateTime Format For Firebird 3 and Delphi 10.3 Filter |
|---|---|
| Author | Jack Mason |
| Post date | 2019-11-25T17:10:13Z |
Jack
Jack,
Will you please send this to me privately at support@... so that I
can get the email attachments you mentioned?
Thanks,
Jason Wharton
www.ibobjects.com
-----Original Message-----
From: IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]
Sent: Wednesday, November 13, 2019 10:46 AM
To: IBObjects@yahoogroups.com
Subject: Re: [IBO] DateTime Format For Firebird 3 and Delphi 10.3 Filter
One time I believed all 8 formats given in the article worked. However,
I have not been able to repeat it (and it sounds so simple). Nothing
worked in our actual application when I tried #2 below, so I wrote a
little test program to check each of the formats.
Of course, initially, when I just tried the formats in the test program,
they all worked. But, again not in our application. Modifying the test
program to more closely mirror our application, 4 of the 8 formats
worked. A few more modifications to narrow down the problem, and #2
dropped out, no longer working.
Stripping code out to make it very simple, #1 began working, the other 7
failed. I cannot get the test program back to where all 8 work. I have
deleted the IBO DB and Query and replaced them to no avail.
Here are the formats used from the article you indicated:
1. 'CCYY-MM-DD HH:NN:SS.nnnn'
2. 'YY-MM-DD HH:NN:SS.nnnn'
3. 'MM/DD/CCYYHH:NN:SS.nnnn'
4. 'MM/DD/YY HH:NN:SS.nnnn'
5. 'DD.MM.CCYYHH:NN:SS.nnnn'
6. 'DD.MM.YY HH:NN:SS.nnnn'
7. 'DD-MMM-CCYY HH:NN:SS.nnnn'
8. 'DD-MMM-YY HH:NN:SS.nnnn'
Here are the dates generated into filter strings:
1. SALE_DATE>='10/14/2019 12:08:42 PM19-10-14 12:08:42.08'
2. SALE_DATE>='19-10-14 12:08:42.08'
3. SALE_DATE>='10/14/10/14/2019 12:08:42 PM1912:08:42.08'
4. SALE_DATE>='10/14/19 12:08:42.08'
5. SALE_DATE>='14.10.10/14/2019 12:08:42 PM1912:08:42.08'
6. SALE_DATE>='14.10.19 12:08:42.08'
7. SALE_DATE>='14-Oct-10/14/2019 12:08:42 PM19 12:08:42.08'
8. SALE_DATE>='14-Oct-19 12:08:42.08'
The attached code, simple database with a few records, and a snipit of
one of the errors is attached.
There are three buttons on the form. 'Filter Only' simply displays the
8 formats from the const array. The 'Query Clear' initializes for the
last button, 'Query Test' which generates a DB filter and tries it
against a Firebird 2.5 database, C:\temp\TEST_DATE.
I could not use a for loop for the formats because beginning with #2,
the program gets an error that is not caught by a try...except format.
Consequently, consecutive clicks on 'Query Test' are required to step
through all 8 formats.
I greatly appreciate any time you spend on this pointing out the coding
error, failure to set a value, or not set a value, that is causing only
one of the formats to work.
Thanks,
Jack
On 11/5/2019 12:55 PM, 'Jason Wharton' supportlist@...
[IBObjects] wrote:
>
> I just did a Google search and found this link:
> https://firebirdsql.org/en/firebird-date-literals/
> Let me know if this is helpful.
> Thanks,
> Jason Wharton
> www.ibobjects.com <http://www.ibobjects.com>
>
> ----------------------------------------------------------
> *From:* IBObjects@yahoogroups.com [mailto:IBObjects@yahoogroups.com]
> *Sent:* Tuesday, November 05, 2019 10:51 AM
> *To:* IBObjects@yahoogroups.com
> *Subject:* Re: [IBO] DateTime Format For Firebird 3 and Delphi 10.3 Filter
>
> The thing I haven't discovered is a format string that Firebird SQL
> will process. What is that format?
>
> Jack
>
> On 11/4/2019 4:08 PM, 'Jason Wharton' supportlist@...
> [IBObjects] wrote:
>>
>> You will want to use the format string that Firebird SQL is able to
>> process.
>> The other way is to make it an input parameter and then to provide that
>> value after preparing the query.
>>
>> Jason Wharton
>> www.ibobjects.com
>>
>
----------
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2019/08/05
15:22:05.000.973,=C:\DEV\Sleuths10\Unit3.pas</Transaction>
<Transaction>2019/08/06
11:30:21.000.882,=C:\DEV\Sleuths10\Unit3.pas</Transaction>
<Transaction>2019/10/22
15:44:37.000.339,=C:\DEV\Sleuths10\Unit3.pas</Transaction>
<Transaction>2019/10/31
13:48:23.000.366,=C:\DEV\Sleuths10\Unit3.pas</Transaction>
<Transaction>2019/10/31
13:52:54.000.715,C:\DEV\Test\Unit3.dfm=C:\DEV\Sleuths10\Unit3.dfm</Transacti
on>
<Transaction>2019/10/31
13:52:54.000.715,C:\DEV\Test\Unit3.pas=C:\DEV\Sleuths10\Unit3.pas</Transacti
on>
<Transaction>2019/10/31
13:53:01.000.700,C:\DEV\Test\Project2.dproj=C:\DEV\Sleuths10\Project2.dproj<
/Transaction>
<Transaction>2019/11/07
13:00:35.000.224,C:\DEV\Test\Unit3.pas=</Transaction>
<Transaction>2019/11/07
13:00:45.000.478,=C:\DEV\Test\Unit1.pas</Transaction>
<Transaction>2019/11/07
13:02:05.000.007,C:\DEV\Test\Unit2.dfm=C:\DEV\Test\Unit1.dfm</Transaction>
<Transaction>2019/11/07
13:02:05.000.007,C:\DEV\Test\Unit2.pas=C:\DEV\Test\Unit1.pas</Transaction>
</Transactions>
</BorlandProject>
----------
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{798FC9E8-4CB7-4551-B100-9978E2C6648F}</ProjectGuid>
<ProjectVersion>18.5</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<MainSource>Project2.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true')
or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true')
or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and
'$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and
'$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;V
cl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</U
WP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png<
/UWP_DelphiLogo150>
<SanitizedProjectName>Project2</SanitizedProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>DBXSqliteDriver;bindcompdbx;IndyIPCommon;RESTComponents;DBXI
nterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;
svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;F
ireDAC;vcltouch;ibo5crt_d10_3;vcldb;bindcompfmx;svn;ibo5trt_d10_3;FireDACSql
iteDriver;FireDACPgDriver;ibmonitor;inetdb;ipstudiowinwordxp;ibo5vrt_d10_3;F
MXTee;ibo5xrt_d10_3;ipstudiowinclient;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpr
ess;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;ibxbindings;fmxobj;vclwinx;v
clib;rtl;Tee;DbxClientDriver;fcstudiowin;ibo5wxrt_d10_3;ibo5frt_d10_3;Custom
IPTransport;vcldsnap;dbexpress;IndyCore;ibo5admrt_d10_3;ibo5wrt_d10_3;vclx;b
indcomp;appanalytics;dsnap;officeXPrt;ibo5rplrt_d10_3;FireDACCommon;IndyIPCl
ient;ipstudiowin;fmxinfopower;bindcompvcl;RESTBackendComponents;TeeUI;ibo5ft
srt_d10_3;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine
;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;inetdbxpress;
IndyProtocols;ibo5art_d10_3;FireDACCommonODBC;FireDACCommonDriver;inet;fmxas
e;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap..Win;Xml
..Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion
=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;Pr
ogramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectNa
me);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>DBXSqliteDriver;bindcompdbx;IndyIPCommon;RESTComponents;DBXI
nterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;
dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDAC
;vcltouch;ibo5crt_d10_3;vcldb;bindcompfmx;ibo5trt_d10_3;FireDACSqliteDriver;
FireDACPgDriver;ibmonitor;inetdb;ibo5vrt_d10_3;FMXTee;ibo5xrt_d10_3;ipstudio
winclient;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;FireDACIBDriver;fmx;fmxd
ae;xmlrtl;soapmidas;ibxbindings;fmxobj;vclwinx;vclib;rtl;Tee;DbxClientDriver
;fcstudiowin;ibo5wxrt_d10_3;ibo5frt_d10_3;CustomIPTransport;vcldsnap;dbexpre
ss;IndyCore;ibo5admrt_d10_3;ibo5wrt_d10_3;vclx;bindcomp;appanalytics;dsnap;o
fficeXPrt;ibo5rplrt_d10_3;FireDACCommon;IndyIPClient;ipstudiowin;fmxinfopowe
r;bindcompvcl;RESTBackendComponents;TeeUI;ibo5ftsrt_d10_3;VCLRESTComponents;
soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService
;dsnapxml;FireDACMySQLDriver;dbrtl;inetdbxpress;IndyProtocols;ibo5art_d10_3;
FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_Use
Package>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<DCC_RemoteDebug>false</DCC_RemoteDebug>
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Unit2.pas">
<Form>Form2</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Project2.dpr</Source>
</Source>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="Win32\Debug\Project2.exe"
Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>Project2.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1024">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1536">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2048">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch768">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch320">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640x1136">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug">
<Platform Name="OSX64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64"
Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32"
Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimulator"
Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"
Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import
Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserT
ools.proj"
Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERS
ION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj"
Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>
----------
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, IBODataset, IB_Components, IB_Access;
type
TForm2 = class(TForm)
IBODatabase: TIBODatabase;
Query: TIBOQuery;
QuerySALE_DATE: TDateTimeField;
QuerySALENO: TIntegerField;
Memo: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
const
Fmt : array[1..8] of string =
( 'CCYY-MM-DD HH:NN:SS.nnnn',
'YY-MM-DD HH:NN:SS.nnnn',
'MM/DD/CCYYHH:NN:SS.nnnn',
'MM/DD/YY HH:NN:SS.nnnn',
'DD.MM.CCYYHH:NN:SS.nnnn',
'DD.MM.YY HH:NN:SS.nnnn',
'DD-MMM-CCYY HH:NN:SS.nnnn',
'DD-MMM-YY HH:NN:SS.nnnn'
) ;
var Idx: integer;
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo.Clear;
for Idx := 1 to 8 do
Memo.Lines.Add('SALE_DATE>=''' + FormatdateTime(Fmt[Idx], Now - 30) +
'''');
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Memo.Clear;
Query.Filtered := true;
Idx := 0;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Idx := Idx + 1;
if Idx > 8 then exit;
Query.Close;
Query.Filter := 'SALE_DATE>=''' + FormatdateTime(Fmt[Idx], Now - 30) +
'''';
Memo.Lines.Add(IntToStr(Idx) + ': Format: ' + Fmt[Idx]);
Memo.Lines.Add(IntToStr(Idx) + ': Filter: ' + Query.Filter);
Memo.Update;
try
Query.Open;
finally
if Query.State = dsInactive then
Memo.Lines.Add('State: ** Inactive **')
else
begin
Memo.Lines.Add('State: -- OPEN --');
Memo.Lines.Add(' Records: ' + IntToStr(Query.RecordCount));
Query.Close;
end;
end;
end;
end.
----------
object Form2: TForm2
Left = 200
Top = 565
Caption = 'Form 2'
ClientHeight = 421
ClientWidth = 561
Color = 8454016
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Memo: TMemo
Left = 96
Top = 8
Width = 457
Height = 409
Lines.Strings = (
'Memo')
TabOrder = 0
end
object Button1: TButton
Left = 8
Top = 48
Width = 75
Height = 25
Caption = 'Filter Only'#39
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 152
Width = 75
Height = 25
Caption = 'Query Test'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 8
Top = 120
Width = 75
Height = 25
Caption = 'Query Clear'
TabOrder = 3
OnClick = Button3Click
end
object IBODatabase: TIBODatabase
CacheStatementHandles = False
SQLDialect = 3
Params.Strings = (
'USER NAME=SYSDBA'
'PATH=C:\temp\TEST_DATE')
Isolation = tiCommitted
DriverName = ''
Left = 16
Top = 8
SavedPassword = '.JuMbLe.01.432B0639073E0E4B49'
end
object Query: TIBOQuery
RecordCountAccurate = True
SQL.Strings = (
'SELECT * FROM SALES')
Left = 56
Top = 8
object QuerySALE_DATE: TDateTimeField
FieldName = 'SALE_DATE'
Required = True
end
object QuerySALENO: TIntegerField
FieldName = 'SALENO'
end
end
end
----------
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST
----------
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiE
rrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
----------
[Stats]
EditorSecs=2701
DesignerSecs=394
InspectorSecs=223
CompileSecs=15517
OtherSecs=265
StartTime=10/25/2019 10:05:57 AM
RealKeys=0
EffectiveKeys=0
DebugSecs=1650
----------
[Closed Files]
File_0=TSourceModule,'C:\DEV\ibo5_10_1_b2808_Source\source\core\IB_Component
s.pas',0,1,26467,1,26490,0,0,,
File_1=TSourceModule,'c:\program files
(x86)\embarcadero\studio\20.0\source\rtl\common\System.Classes.pas',0,1,1089
6,1,10919,0,0,,
File_2=TSourceModule,'C:\DEV\Test\Unit3.pas',0,1,19,13,43,0,0,,
File_3=TSourceModule,'C:\DEV\ibo5_10_1_b2808_Source\source\tdataset\IBODatas
et.pas',0,1,12477,1,12500,0,0,,
File_4=TSourceModule,'c:\program files
(x86)\embarcadero\studio\20.0\SOURCE\RTL\SYS\GETMEM.INC',0,1,3050,1,3062,0,0
,,
File_5=TSourceModule,'C:\DEV\ibo5_10_1_b2808_Source\source\core\IB_Session.p
as',0,1,4894,1,4917,0,0,,
File_6=TSourceModule,'c:\program files
(x86)\embarcadero\studio\20.0\SOURCE\IBX\IBX.IB.pas',0,1,363,45,368,0,0,,
File_7=TSourceModule,'C:\DEV\BCC10\Cafe.pas',0,1,7573,37,7604,0,0,,{0
File_8=TSourceModule,'C:\DEV\BCC10\SplashForm.pas',0,1,3,73,10,0,0,,
File_9=TSourceModule,'C:\DEV\BCC10\Discount.pas',0,1,57,56,73,0,0,,
File_10=TSourceModule,'C:\DEV\BCC10\Passwrd.pas',0,1,37,52,58,0,0,,
File_11=TSourceModule,'C:\DEV\BCC10\GetName.pas',0,1,1,50,19,0,0,,
File_12=TSourceModule,'C:\DEV\BCC10\Service.pas',0,1,1,29,3,0,0,,
File_13=TSourceModule,'C:\DEV\BCC10\Unit1.pas',0,1,1,1,1,0,0,,
File_14=TSourceModule,'C:\DEV\BCC10\CustName.pas',0,1,1,41,12,0,0,,
[Modules]
Module0=C:\DEV\Test\Unit2.pas
Module1=default.htm
Count=2
EditWindowCount=1
[C:\DEV\Test\Unit2.pas]
ModuleType=TSourceModule
[default.htm]
ModuleType=TURLModule
[EditWindow0]
ViewCount=2
CurrentEditView=C:\DEV\Test\Unit2.pas
View0=0
View1=1
PercentageSizes=1
Create=1
Visible=1
Docked=0
State=0
Left=1699
Top=882
Width=6523
Height=8307
MaxLeft=-5
MaxTop=-9
ClientWidth=6465
ClientHeight=7968
DockedToMainForm=0
BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
TopPanelSize=0
LeftPanelSize=0
LeftPanelClients=BorlandEditorCodeExplorer@EditWindow0
LeftPanelData=0000080001000100000019000000426F726C616E64456469746F72436F6465
4578706C6F726572AF0C00000000000000DD01000000000000FFFFFFFF
RightPanelSize=0
BottomPanelSize=0
BottomMiddlePanelSize=0
BottomMiddlePanelClients=DockSite0,ToDo List,MessageView
BottomMiddelPanelData=0000080001020300000009000000446F636B53697465300E000000
546F446F4C69737457696E646F770F0000004D65737361676556696577466F726D3B1F000000
000000029005000000000000FFFFFFFF
[View0]
CustomEditViewType=TWelcomePageView
WelcomePageURL=bds:/default.htm
[View1]
CustomEditViewType=TEditView
Module=C:\DEV\Test\Unit2.pas
CursorX=1
CursorY=92
TopLine=29
LeftCol=1
Elisions=
Bookmarks=
EditViewName=C:\DEV\Test\Unit2.pas
[UndockedDesigner]
Count=14
Module0=C:\DEV\BCC10\Discount.pas
Left0=173
Top0=3
Width0=807
Height0=768
Visible0=0
State0=0
Module1=C:\DEV\Test\Unit3.pas
Left1=310
Top1=562
Width1=696
Height1=323
Visible1=0
State1=0
Module2=C:\DEV\BCC10\Unit1.pas
Left2=654
Top2=150
Width2=826
Height2=890
Visible2=0
State2=0
Module3=C:\DEV\Sleuths10\Unit3.pas
Left3=50
Top3=584
Width3=521
Height3=256
Visible3=0
State3=0
Module4=C:\DEV\BCC10\Passwrd.pas
Left4=28
Top4=266
Width4=164
Height4=155
Visible4=0
State4=0
Module5=C:\DEV\BOOKS\Sales\Categories.pas
Left5=2
Top5=97
Width5=1389
Height5=965
Visible5=0
State5=0
Module6=C:\Users\User\Documents\Embarcadero\Studio\Projects\Unit1.pas
Left6=4
Top6=100
Width6=894
Height6=460
Visible6=0
State6=0
Module7=C:\DEV\BCC10\Service.pas
Left7=0
Top7=0
Width7=368
Height7=341
Visible7=0
State7=0
Module8=C:\DEV\BCC10\GetName.pas
Left8=0
Top8=0
Width8=810
Height8=886
Visible8=0
State8=0
Module9=C:\DEV\BCC10\Cafe.pas
Left9=2
Top9=98
Width9=1936
Height9=921
Visible9=0
State9=0
Module10=C:\DEV\Test\Unit2.pas
Left10=437
Top10=125
Width10=458
Height10=617
Visible10=0
State10=0
Module11=C:\DEV\BCC10\Unit2.pas
Left11=468
Top11=382
Width11=7
(Message over 64 KB, truncated)