[Débutant] créer une codification et mettre comme clé primaire

Bonjour,

1ere méthode :
Je vous propose de regarder du coté de TDateTime :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
#include <systdate.h>
#include "System.SysUtils.hpp"
TDateTime Maintenant = TDateTime::CurrentDateTime() ;
Word Annee, Mois, Jour ;
DecodeDate(Maintenant, Annee, Mois, Jour) ;
UnicodeString MaSequence = Jour + Mois + Annee;
 
FDQuery1->Close() ;
FDQuery1->Active = false;
FDQuery1->SQL->Clear();
UnicodeString MaRequete = "update MaTable set MaSequence =’" + MaSequence + "’ where ..." ;
FDQuery1->SQL->Add(MaRequete);
FDQuery1->ExecSQL();

2eme methode.
On suppose que vous souhaitiez construire votre n° de séquence à partir d'informations exclusivement en base.

Code:

1
2
3
4
5
6
7
8
9
10
UnicodeString nature= FDConnection1->ExecSQLScalar('select nature from MaTable where ...');
UnicodeString mois =  FDConnection1->ExecSQLScalar('select mois from MaTable where ...');
UnicodeString annee = FDConnection1->ExecSQLScalar('select to_char(Madate, 'YY') from MaTable where ...');
UnicodeString MaSequence = nature + mois + annee;
FDQuery1->Close() ;
FDQuery1->Active = false;
FDQuery1->SQL->Clear();
UnicodeString MaRequete = "update MaTable set MaSequence =’" + MaSequence + "’ where ..." ;
FDQuery1->SQL->Add(MaRequete);
FDQuery1->ExecSQL();