código fuente


Alinear importes a la derecha en un campo DBSpinEdit Este post es relámpago, ya que he buscado información por la web y no la he encontrado. Veamos como podemos solucionar la alineación de los campos DBSpinEdit a la derecha, como debe ser en los campos numéricos. Aquí el código… procedure Tmiformulario.AjustarDerechaImportes(); var inxs:integer; begin for inxs:=0 to ComponentCount -1 do begin if Components[inxs] is TRxDBSpinEdit then TRxDBSpinEdit(Components[inxs]).Alignment:=taRightJustify; end; end;procedure Tmiformulario.AjustarDerechaImportes(); var inxs:integer; begin for inxs:=0 to ComponentCount -1 do begin if Components[inxs] is TRxDBSpinEdit then TRxDBSpinEdit(Components[inxs]).Alignment:=taRightJustify; end; end;

Ajustar DBSpinEdit a la derecha (Importes)


  Código fuente de una pequeña aplicación hecha en Lazarus, que carga una tabla de países en firebird y permite ordenar de forma ascendente y descendente al realizar un click sobre la cabecera de cualquier columna. Dentro del archivo comprimido está la base de datos con los países.

Código fuente países ¡¡¡ Descárgalo ya !!!



Campo calculado en lazarus     Vamos a crear una columna «Total» para que realice un cálculo simple en un dbgrid «Importe»*»Apunte»       zquery1 botón derecho editar campos Crear un nuevo campo y añadirlo en la posición actual (Insert) Calculados             procedure TDataModule1.ZQuery1CalcFields(DataSet: TDataSet); begin DATASET.FieldByName('Total').Value := dataset.fieldbyname('IMPORTE').Value *dataset.fieldbyname('APUNTE').VALUE; end;procedure TDataModule1.ZQuery1CalcFields(DataSet: TDataSet); begin DATASET.FieldByName('Total').Value := dataset.fieldbyname('IMPORTE').Value *dataset.fieldbyname('APUNTE').VALUE; end; Fuerza y honor.

Campo calculado en Lazarus


Dbgrid en Lazarus       Veamos ahora como asignar el valor de una variable a un dbgrid en lazarus, realmente lo que haré será actualizar el DataSource que hace de puente entre el dbgrid y el dataset, en este caso una conexión con Zeos ZConnection.   var vfrmCuadre: TfrmCuadre; vEstadillo: String; vFecha: String;   implementation   {$R *.lfm}   { TfrmCuadre }       procedure TfrmCuadre.FormCreate(Sender: TObject); begin DataModule1.ZQuery1.Open; end;   procedure TfrmCuadre.DBGrid1ColExit(Sender: TObject); begin try   if DBGRid1.SelectedIndex = 0 then vEstadillo:=Dbgrid1.Columns[0].Field.Text;   if DBGRid1.SelectedIndex = 2 then vFecha:=Dbgrid1.Columns[2].Field.Text; except showmessage('Error en columna');   end; end;   […]

Asignar valor a columna dbgrid en Lazarus



Uso config.ini en Lazarus. Veamos la configuración del fichero config.ini para la carga de los datos iniciales  de la aplicación realizada en lazarus. fichero config.ini 1 2 3 4 5 6 7 [Configuracion] Usuario=SYSDBA Clave=masterkey Servidor=localhost BasedeDatos=F:\Lazarus\Cuadre\CUADRE.FDB Libreria=F:\Lazarus\Cuadre\fbclient.dll RutaConta=F:\Lazarus\Cuadre\dbf\[Configuracion] Usuario=SYSDBA Clave=masterkey Servidor=localhost BasedeDatos=F:\Lazarus\Cuadre\CUADRE.FDB Libreria=F:\Lazarus\Cuadre\fbclient.dll RutaConta=F:\Lazarus\Cuadre\dbf\ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 var ini: TINIFile; begin try ini := TINIFile.Create('config.ini'); ZConnection1.User:=ini.ReadString ('Configuracion', 'Usuario', ''); ZConnection1.Password:=ini.ReadString ('Configuracion', 'Clave', ''); ZConnection1.HostName:=ini.ReadString ('Configuracion', 'Servidor', ''); ZConnection1.Database:=ini.ReadString ('Configuracion', 'BasedeDatos', ''); ZConnection1.LibraryLocation:=ini.ReadString ('Configuracion', 'Libreria', ''); Dbf1.FilePathFull:=ini.ReadString ('Configuracion', 'RutaConta', ''); ini.free; except showmessage('Error al conectar la base de […]

Archivo config.ini en Lazarus


Aquí tenéis el código fuente del script realizado en python que convierte el fichero txt a xml de una remesa sepa del cuaderno 19. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 […]

Convertir ficheros de txt a xml sepa