[Lazarus-es] como diseñar y ejecutar una consulta en sqlite

[Ulises Díaz]

Sr Héctor puede reducir el código, por ejemplo se puede hacer lo siguiente:(No analicé lo que hace el código pero veo que se puede reducir)

var sqltext1,sqltext2,sqltext3,sqltext4,sqltext5,SQLText:string;WHERE: string;
begin      fDM.tcProyPorActividad.FileName:=directory1+'\TablasCosto_'+anomes+'.db';
     fDM.tcProyPorActividad.SQL:='cProyPorActividad.Delete'; //debe vaciarse la tabla      fDM.tcProyPorActividad.Active:=false;
     sqltext1:='SELECT Costos_1.ccosto,Costos_1.nombre,Costos_1.cantidad,Costos_1.Inventariable,Costos_1.ProcIniMN,Costos_1.ProcIniCUC,Costos_1.DirectosMN,Costos_1.DirectosCUC,Costos_1.IndirectosMN,Costos_1.IndirectosCUC,Costos_1.Terminado, ';
     sqltext2:='Costos_1.ProdTerminadosMN,Costos_1.ProdTerminadosCUC,Costos_1.ProcFinMN,Costos_1.ProcFinCUC,Costos_1.CostoUnitarioMN,Costos_1.CostoUnitarioCUC ';
     sqltext3:='FROM Costos_1 '; 


WHERE:= 'WHERE Costos_1.NoActividad="0';sqltext4:=WHERE + inttostr(Listbox1.itemindex)+'"';

      sqltext5:='ORDER BY Costos_1.ccosto ASC';
     SQLText:=sqltext1+sqltext2+sqltext3+sqltext4+sqltext5;
     fDM.tcProyPorActividad.SQL:=SQLText;      fDM.tcProyPorActividad.Active:=true; 		 	   		  
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130713/8f91f628/attachment-0002.html>