Combobox, Tablas, Códigos duplicados

[*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.

[*Caro*]

Hola de nuevo, si es así ni modo, empecemos llenando el ComboBox, tu necesitas mostrar en tu combo las descripciones de las sucursales y tener almacenado en algun lugar los codigos que corresponden a esas sucursales, par este ultimo podemos utilizar un StringList. No has puesto tu tabla sucursales, supongo que tienes un codigo y descripcion para la sucursal.

Código Delphi [-]
var
   codigo, decripcion:string;
   slCodigos : TStringList;
begin
   slCodigos := TStringList.Create;
 
   Query.close;
   Query.SQL.clear;
   Query.sql.text := 'SELECT codigo,descripcion FROM sucursal ';
   Query.Open;
 
   query.First;
   ComboBox.Items.Clear;
   While not(Query.EOF) do
    begin
       codigo:=query.FieldbyName('codigo').AsString;
       descripcion:=query.FieldbyName('descripcion').AsString;

       slCodigos.Add(codigo);
       ComboBox.Items.Add(descripcion);
    
       query.Next;
    end;
  ComboBox.ItemIndex := 0; //para que se posicione en el primer item
end;

de esa forma ya tenemos nuestro combo con todas las descripciones y codigos en nuestro StringList.

Ahora para saber que codigo le pertenece a cada descripción, tienes que recuperar el itemIndex de tu ComboBox y obtener esa posición de tu StringList.

Código Delphi [-]
  
  slCodigos[ComboBox.ItemIndex];

teniendo ya el codigo, ejecutas tu consulta con ese codigo.

Si tienes dudas o algo no te funciona, sigue preguntando, pero trata de hacer tus pruebas antes.

Saluditos