DBEXPRESS EXEMPLES

(J'espère que vous connaissez déjà un peu de théorie sur les bases de données, sinon ces exemples vours paraîtrons peu être un peu complexe). Néanmoins, pour ceux qui connaissent déjà les bases de données, le formateur nous à donné une nouvelle méthode pour gérer les ID que je trouve trés bien. Il s'agit de ne plus utiliser les champs auto-incréments dans les bases de données (utilisé pour les ID des enregistrements). IL FAUT GERER SOI-MEME l'ID. L'ID sera un Integer. unique non pas seulement à la table mais à la base de données entière. ceci accélère les requêtes (testé sur table 16 millions d'enreg) et garantie une intégrité des données sur la base de donnée complète. facilite également la synchronisation des bases de données (multisite par exemple : avec l'adjonction d'un préfixe).... VOICI la fonction proposée pour gérer soi-même les ID en ID unique : 

function compstr(valeur, repetition : string ; longueur : integer ; debut : boolean) : string;
begin
  // compléter une chaine par un caractère de répétition
  if (length(valeur) < longueur) then
  begin
    // si la chaine de répétition est nulle, la mettre à 0
    if repetition = '' then
      repetition := '0';
    // compléter la chaine avec la chaine de répétition
    while (length(valeur) < longueur) Do
    begin
      if debut then  // compléter au début
        valeur := repetition + valeur
      else  // à la fin
        valeur := valeur + repetition;
    end;
  end
  else
  begin
    // sinon tronquer la chaine
    valeur := copy(valeur, 0, longueur);
  end;
  // retourner la valeur...
  compstr := valeur;
end;

function TMain.IDInc(table : string; prefix, prefixlong, long : integer) : integer;
var
  IdLocal : integer;
begin
  // charger la valeur
  SysQ3.active := False;
  SysQ3.sql.clear;
  SysQ3.sql.add('SELECT * FROM SysID WHERE TABLENAME="' + table + '";');
  SysQ3.active := True;
  if SysQ3.recordcount < 1 then
  begin
    // si la table n'existe pas : on la crée
    IDLocal := 1;
    SysQ3.active := False;
    SysQ3.sql.clear;
    SysQ3.sql.add('INSERT INTO SysID (ID, TABLENAME) VALUES(' + IntTosTr(IDLocal) + ',"' + table + '");');
    SysQ3.active := True;
  end
  else
  begin
    // mémoriser la valeur dans IDLocal;
    IDLocal := SysQ3.fieldbyname('ID').Asinteger;
    Inc(IDLocal);
    // Ajouter 1
    SysQ3.active := False;
    SysQ3.sql.clear;
    SysQ3.sql.add('UPDATE SysID SET ID = ' + IntTosTr(IDLocal) + ' WHERE TableName="' + table + '"');
    SysQ3.active := True;
  end;
  // Construire valeur
  IDLocal := strtoint(compstr(inttostr(prefix), '', prefixlong, False) + compstr(inttostr(IDLocal), '', long - prefixlong, True));
  // retourner la valeur
  IDInc := IDLocal;
end;

Cet exemple utilise une table SysID de schéma : 
#
# Structure de la table `sysid`
#
CREATE TABLE sysid (
  ID int(11) NOT NULL default '0',
  TABLENAME varchar(100) NOT NULL default '',
  PRIMARY KEY  (TABLENAME),
  UNIQUE KEY TABLENAME (TABLENAME)
) TYPE=MyISAM COMMENT='Liste des ID de la base de donnée';


NOTEZ : Cet exemple fonctionne  en ID unique sur la base de donnée ou en ID unique sur la table... ou pour les deux conjointement (ou simultanément dans une seule table)