build version 2.0.1.5

Author: Artanemus

SCM_BuildMeAClub.dproj

@@ -4,8 +4,8 @@
         <ProjectVersion>19.5</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
-        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <Config Condition="'$(Config)'==''">Release</Config>
+        <Platform Condition="'$(Platform)'==''">Win64</Platform>
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Application</AppType>
         <MainSource>SCM_BuildMeAClub.dpr</MainSource>
@@ -140,8 +140,8 @@
     <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
         <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
         <Icon_MainIcon>SCM_BuildMeAClub.ico</Icon_MainIcon>
-        <VerInfo_Keys>CompanyName=Artanemus;FileDescription=$(MSBuildProjectName);FileVersion=2.0.1.4;InternalName=BMAC;LegalCopyright=Copyright (c) 2019-2023 Artanemus;LegalTrademarks=;OriginalFilename=BuildMeAClub;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=2.0;Comments=Build the SwimClubMeet database for MSSQL</VerInfo_Keys>
-        <VerInfo_Build>4</VerInfo_Build>
+        <VerInfo_Keys>CompanyName=Artanemus;FileDescription=$(MSBuildProjectName);FileVersion=2.0.1.5;InternalName=BMAC;LegalCopyright=Copyright (c) 2019-2023 Artanemus;LegalTrademarks=;OriginalFilename=BuildMeAClub;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=2.0;Comments=Build the SwimClubMeet database for MSSQL</VerInfo_Keys>
+        <VerInfo_Build>5</VerInfo_Build>
         <VerInfo_MajorVer>2</VerInfo_MajorVer>
         <VerInfo_MinorVer>0</VerInfo_MinorVer>
     </PropertyGroup>

SCM_BuildMeAClub.res

@@ -268,15 +268,16 @@ procedure TSCMBuildMeADataBase.actnBMACExecute(Sender: TObject);
       // green 'tick' checkbox
       vimgPassed.Visible := true;
 
-      Memo1.Lines.Add('ExecuteProcess completed without errors.' + sLineBreak);
-      Memo1.Lines.Add
-        ('You should check SCM_BuildMeAClub.log to ensure that sqlcmd.exe also reported no errors.'
-        + sLineBreak);
       // * Version number of SwimClubMeet DataBase *
       // Only read this table if not errors reported.
       GetSCM_DB_Version;
-      s := 'SwimClubMeet database version control ' + FDBVerCtrlStr;
+      s := 'QUERY: SwimClubMeet database version ... ' + FDBVerCtrlStr;
       Memo1.Lines.Add(s);
+
+      Memo1.Lines.Add('ExecuteProcess completed without errors.' + sLineBreak);
+      Memo1.Lines.Add
+        ('You should check SCM_BuildMeAClub.log to ensure that sqlcmd.exe also reported no errors.'
+        + sLineBreak);
     end
     else
     begin