[Lazarus-es] definicion de un campo UNIQUE

[hfiandor]

Estimados listeros>

Yo creo las tablas sqlite en una unidad DataModulo como sigue>

 

  with fdm.tAlumnos do

  begin

    FileName := camino_BD + '\Clasificadores.db';

    PrimaryKey := 'IdAlumnos';

    if not TableExists('Alumnos') then

    begin

      FieldDefs.Clear;

      FieldDefs.Add('IdAlumnos', ftInteger);

      FieldDefs.Add('CI', ftString, 11, NOT NULL);

      FieldDefs.Add('control', ftString, 10, NOT NULL );

      FieldDefs.Add('primerapellido', ftString, 50);

      FieldDefs.Add('segundoapellido', ftString, 50);

      FieldDefs.Add('nombre', ftString, 50);

      FieldDefs.Add('direccion', ftString, 80);

      FieldDefs.Add('telefono', ftString, 30);

      FieldDefs.Add('email', ftString, 50);

      FieldDefs.Add('fechaingreso', ftString, 8);

      FieldDefs.Add('grado', ftString, 10);

      FieldDefs.Add('grupo', ftString, 10);

      CreateTable;

    end

    else begin end;

    AutoIncrementKey := True;

  end;

 

y deseo que el campo ‘control’, ademas de NOT NULL sea UNIQUE.

 

Como  se hace eso?

 

Leyendo correos viejos sobre CREATE TABLE usando SQL, me asalta una duda:
Esto se puede hacer en el DataModulo?

 

Anticipándole las gracias,

 

Saludos

Ing. Héctor F. Fiandor Rosario

 

 

 

 

 

 

 

 

 

 

 


------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170117/a7ee32a7/attachment.html>