Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)
-   -   Inconveniente con una columna de mi grid (https://www.clubdelphi.com/foros/showthread.php?t=22222)

el_barto 09-06-2005 16:30:19

Inconveniente con una columna de mi grid
 
Buenos dias, recurro a ustedes debido a un incoveniente que se me presenta, en mi base de datos tengo definido un atributo Cod_proveedor que es la llave primaria de mi tabla " proveedores ", pero cuando estoy en delphi e imprimo en pantalla mediante una grilla mi tabla "proveedores" me deja modificar el campo Cod_proveedor y deseo que este campo este restringido para ingresar datos, quiero que no se pueda ingresar en ese campo nada.
intente con la propiedad ReadOnly de la columna pero nada me sigue dejando introducir datos, estuve mirando y en las propiedades de la grilla hay una que es dgediting y la pulse en False pero lo que hace es restringirme ingresar un dato en todos los campos...
Como podria hacer para que solo en el campo Cod_proveedor no me permita ingresar ningun dato???
De antemano mil gracias

Kreyser 09-06-2005 17:03:55

Hola el_barto,

Prueba a poner como ReadOnly, el campo de la tabla que alimenta tu Grid...
Algo así como...

Código:

proveedores.FieldByName('Cod_proveedor').ReadOnly:=True
Saludos.:p

el_barto 09-06-2005 17:13:15

consecutivo
 
Listo ya no me lo deja modificar no se que propiedad le movi que ya no me lo modifica, mmm pero como hago para que a ese campo le asigne un valor consecutivo cuando se inserte un nuevo dato???

el_barto 09-06-2005 17:56:34

BeforeInsert de DataSet
 
Gracias por responder
estuve mirando en los eventos de mi DataSet y me encontre con uno que dice:
BeforeInsert y pues intente asignarle a mi columna el valor de un consecutivo pero..... me saca error.

procedure TForm1.IBDataSet1BeforeInsert(DataSet: TDataSet);
var
x : integer
begin
x=x+1
BDGrid.Columns[0] := x;
end;

Pero me genera el siguiente error:
[Error] Unit1.pas(41): Incompatible types: 'TColumn' and 'Integer'
Evidentemente mi error radica en que no se como asignarle un valor a mi columna en especifico, saben ustedes como obligarlo a tomar este valor

Gracias por su ayuda


La franja horaria es GMT +2. Ahora son las 04:36:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi