vanesa007
24-04-2012, 04:39:00
hola amigos, para mi programita que ando peleando para hacerlo, y despacio va creciendo, llegue a esta parte, que me gustaria cambiarle algo, aunque asi anda bien, pero me gustaria agregarle unos detalles mas
tengo una dase datos que ice de ejemplo,solo para ir probando, la base datos real, que una ves terminado tendra mas campos, pero para empezar y experimentar, alcanza con solo 5 campos, tiene campo ID, NUMERO, NOMBRE, APELLIDO y DIRECCION, lo cual en el form me muestra en un DBGrib los campos que tiene, y puse un EDIT y un boton, con el codigo que esta mas abajo, en el edit escribo un APELLIDO a buscar en la base datos, y con el boton hago la busqueda para ver si esta en la base datos, si encuentra ese apellido en el DBGrib, me indica con un triangulito negro en el renglon donde esta ese apellido,
Bueno.. lo que s eme ocurrio seria.. que a medida que voy escribiendo letra a letra el apellido, me vaya apareciendo los todos los APELLIDOS que empiezan con esa primer letra, despues cuando escribo la segunda letra me aparezcan todos los apellidos que empiezan con esas dos primeras letras, y asi sucesivamente....... creo que me entienden...
y para el caso de que existan dos apellidos iguales, los nombres o la dirección sera diferente, entonces de esos dos apellidos aciendo un doble clic en el me lo mande a otro form nuevo......
esta parte la veo mas complicada, por eso recurro a alguien k me ayude
pero igual.. mientras espero alguna respuesta ire viendo como hacer esto
gracias
//mas abajo pongo el codigo DELPHI de como lo estoy aciendo y una imagen
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
temp:integer;
opcion:TLocateOptions;
begin
adoTable1.Locate('apellidO',Edit1.Text,[]);
end;
end.
tengo una dase datos que ice de ejemplo,solo para ir probando, la base datos real, que una ves terminado tendra mas campos, pero para empezar y experimentar, alcanza con solo 5 campos, tiene campo ID, NUMERO, NOMBRE, APELLIDO y DIRECCION, lo cual en el form me muestra en un DBGrib los campos que tiene, y puse un EDIT y un boton, con el codigo que esta mas abajo, en el edit escribo un APELLIDO a buscar en la base datos, y con el boton hago la busqueda para ver si esta en la base datos, si encuentra ese apellido en el DBGrib, me indica con un triangulito negro en el renglon donde esta ese apellido,
Bueno.. lo que s eme ocurrio seria.. que a medida que voy escribiendo letra a letra el apellido, me vaya apareciendo los todos los APELLIDOS que empiezan con esa primer letra, despues cuando escribo la segunda letra me aparezcan todos los apellidos que empiezan con esas dos primeras letras, y asi sucesivamente....... creo que me entienden...
y para el caso de que existan dos apellidos iguales, los nombres o la dirección sera diferente, entonces de esos dos apellidos aciendo un doble clic en el me lo mande a otro form nuevo......
esta parte la veo mas complicada, por eso recurro a alguien k me ayude
pero igual.. mientras espero alguna respuesta ire viendo como hacer esto
gracias
//mas abajo pongo el codigo DELPHI de como lo estoy aciendo y una imagen
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
temp:integer;
opcion:TLocateOptions;
begin
adoTable1.Locate('apellidO',Edit1.Text,[]);
end;
end.