Combobox, Tablas, Códigos duplicados

[lKinGl]

disculpa caro pero no te entiendo nada jeje disculpa mi ignorancia pero cuando coloco el locaseinsensitive no me corre el programa

este es el codigo que tengo en mi aplicacion

Código Delphi [-]
procedure TForm17.ComboBox1Change(Sender: TObject);
begin
if form1.Table7.Locate('cod_prov',ComboBox1.Text,[locaseinsensitive]) then
  begin
    edit1.Text:=form1.Table7.FieldValues['nom_prov'];
    edit2.Text:=form1.Table7.FieldValues['observacion'];
    edit4.Text:=form1.Table7.FieldValues['hor_pla'];
    edit3.Text:=form1.Table7.FieldValues['gro_pla'];
    SpinEdit1.MaxValue:=form1.Table7.FieldValues['can1'];
    edit5.Text:=form1.Table7.FieldValues['can2'];
    BitBtn1.Enabled:=true;
    BitBtn7.Enabled:=true;
    BitBtn8.Enabled:=true;
  end
  else
  begin
    Application.MessageBox('Erro Grave','');
    exit;
  end;
end;

gracias adelantadas

[lKinGl]

será que el locaseinsensitive no es compatible con combobox?

porque tengo un ejemplo de un profesor de programacion y el usa ese locaseinsensitive pero con un dbgrid

[*Caro*]

Hola de nuevo, lo que le estas pasando de tu comboBox es una cadena, no influye en las opciones, el tercer parametro del Locate es un conjunto que tiene las opciones:

loCaseInsensitive -> te hace una busqueda exacta, sin tomar en cuenta si es mayusculas o minusculas, osea si lo que le pasas en tu combo es "MaRiA" en tu tabla tienes MARIA igual te lo encontrara
loPartialKey -> te hace una busqueda aproximada, si ponemos MA, nos va encontrar el primer registro que comience con MA y supongo que es lo que esta pasando en tu caso, por eso te decía que hagas una busqueda exacta y con el and o de la otra forma debería funcionarte, pero si dices que no te corre, supongo que no te encuentra nada, entonces seguramente lo que tienes en tu comboBox no es igual a lo que tienes en tu tabla, si te sale algún error al ejecutar tu programa, puedes copiarlo y ponerlo aquí.

Si utilizas el Locate, haslo de la segunda forma que te dije, ya que también te hace el and entre los campos que pongas, ve tu si necesitas que sea IoCaseInsensitive o IoPartialKey.

Ahora también puedes hacerlo con consultas.

Saluditos

[lKinGl]

gracias caro pero ya solucioné el problema con una consulta sql pero de verdad lo hice de la forma que tu me dijiste y nada el programa da error y señala el locaseinsensitive y se lo quito y corre

mmmmmmmmmm bueno de todas maneras gracias

[*Caro*]

Empezado por lKinGl

gracias caro pero ya solucioné el problema con una consulta sql pero de verdad lo hice de la forma que tu me dijiste y nada el programa da error y señala el locaseinsensitive y se lo quito y corre

Eso era lo que te faltaba decirme, que te daba error y el error que te daba, yo he sobreentendido que no te daba error pero cuando hacias la busqueda no pasaba nada.

El error que te da es porque tienes que añadir en tu uses la unidad DB, como te decía en mi anterior mensaje te lo añade por defecto cuando colocas los componentes de tu BD que estas utilizando, si no lo tienes es porque tus componentes seguramente estan en otro lado o los creas en ejecución.

Saluditos

[lKinGl]

jajajaja ya que ps falto comunicacion de mi parte en decirte que me gusta tener todas las tablas en el form1 nose porque pero no me gusta tenerlas regadas en todos los forms, y lo de las uses te lo comentaba en el post anterior lo que pasa es que usas un lenguaje algo tecnico y no entendi muy bien jeje pero ahora si se lo que me hablas jijiji

[Elite237]

Hola Caro, he visto que tienes conocimientos solidos de delphi y quisiera pedirte una ayuda, algo similar a lo que te han plateado. Mi problema es el siguiente, tengo un ComboBox, un StringGrid y un boton, lo que quiero hacer es que cuando el usuario seleccione una sucursal y le de un clic al boton me envia todos los empleados de esa sucursal en un stringgrid, mi codigo es el siguiente

<delphi>
procedure T_Marketing.Button1Click(Sender: TObject);
var
x:integer;
begin
query1.close;
query1.sql.clear;
query1.sql.add('select pers_nombre,pers_apaterno,pers_amaterno,pers_sitio,pers_rol,vent_sitio,vent_cliente,detv_sitio,detv_ detventa from TPERSONAL,TVENTAS,TDETVENTAS');
query1.open;
x:=1;
while not Query1.EOF do
begin
sgPorVenta.cells[0, x]:=query1.FieldByName('pers_nombre').Asstring;
sgPorVenta.cells[1, x]:=query1.FieldByName('pers_apaterno').Asstring;
sgPorVenta.cells[2, x]:=query1.FieldByName('pers_amaterno').AsString;
sgPorVenta.cells[3, x]:=query1.FieldByName('pers_rol').Asstring;
sgPorVenta.cells[4, x]:=query1.FieldByName('pers_sitio').Asstring;
sgPorVenta.cells[5, x]:=query1.FieldByName('vent_sitio').Asstring;
sgPorVenta.cells[6, x]:=query1.FieldByName('vent_cliente').Asstring;
sgPorVenta.cells[7, x]:=query1.FieldByName('detv_sitio').Asstring;
sgPorVenta.cells[8, x]:=query1.FieldByName('detv_detventa').Asstring;
inc(x);
query1.next;
if x=1 then sgPorVenta.RowCount:=2
else sgPorVenta.RowCount:=x;
end;

end;
</delphi>

lo que hago ahora es solo con el boton, osea al presionar alli tengo la consulta, pero no debe ser asi, dependiendo de la opcion del combobox debe ser lo que se muestra

[*Caro*]

Empezado por Elite237

Mi problema es el siguiente, tengo un ComboBox, un StringGrid y un boton, lo que quiero hacer es que cuando el usuario seleccione una sucursal y le de un clic al boton me envia todos los empleados de esa sucursal en un stringgrid, mi codigo es el siguiente

Hola Elite237, porque quieres mostar en un StringGrid, yo te aconsejo que lo hagas directamente en un DBGrid, así te ahorras un monton de codigo ademas que contaras con muchas funciones que te ayudaran mucho, para que te ayude y no estemos adivinando, pon la estructura de las tablas que quieres mostrar, lo que se me ocurre es que tengas un DBLookComboBox para las sucursales y en el DBGrid se mostraran los clientes de cada sucursal.

Saluditos

[Elite237]

Hola caro, yo lo hize alguna vez asi con un dbgrid, solo que donde estoy trabajando lo hacen de esa forma y quieren que continue asi, ellos solo utilizan un query y un database para generarlo.

Las tablas que uso son estas:
TPERSONAL
pers_nombre
pers_apaterno
pers_amaterno
pers_sitio(sitio son las sucursales)
pers_rol(el rol, si son cargadores, vendedores..etc)

TVENTAS
vent_sitio(ventas en las sucursales)
vent_cliente(ventas de los clientes)

TDETVENTAS
detv_sitio(detalle de las ventas de la sucursal)
detv_detventa(detalle de las ventas)

espero y me puedas ayudar, al menos como usar el combobox primero para que tome el valor de la base de datos, osea, la sucursal que existen y como haria el if para usarlo.