Hola
Vas bien, en realidad son los primeros pasos, pero poco a poco se llega.
Tienes una pantalla normal, el caso es que en esta puedes editar, insertar,borrar, etc. de la tabla clientes, ya que pusiste en el from un DBNavigator, bueno luego veras otras maneras de hacer lo mismo, por ahora continua con lo que tienes.
Hay que pensar en, que hara el que use la pantalla:
Bueno, al iniciarla se mostrara el primer cliente que pusiste.
? Que pasa si quieres buscar un cliente en especial, pues con las flechas del dbnavigator tendras que recorer la tabla hasta llegar al que buscas, solucion, hacer un flitro, sea por codido o nombre comercial, como ? asi:
El componente que enlaza tu tabla debe terner un nombre, puede ser table1 u otro, este es el nombre que vas a poner en este codigo:
Supongamos que el campo codigo es el DBEdit1, Bueno filtraremos por codigo los clientes asi:
En el evento OnChange del DBEdit1, pondras este codigo, con el nombre de la tabla que tienes, yo le he puesto table1:
Código Delphi
[-]
var
Filtro : String;
begin
If (DBEdit1.Text <> '') then
begin
Table1.Filtered := False;
Filtro := 'Codigo Like '+DBEdit1.Text;
Table1.Filter := Filtro;
Table1.Filtered := True
end
else Table1.Filtered := False;
end;
Cada vez que cambies el numero de codigo, este filtrara la tabla y regresara los datos, esto mismo se puede hacer con el nombre comercial etc.
Con este paso solo trato de hacerte ver que el programa tiene que ofrecer varias alternativas de uso y que son realmente faciles de progamar.
Cuando quieras vamos a por otro, vas bien.
Saludos