|
graxias enecumene por atenderme
pero sigo igual no me aparecen los balores mira te paso todo el codigo igual a la mejor estoy haciendo mal uso de el mismo. Estoy haciendo una busqueda como se muestra esta tabla esta se relaciona con 3 tablas como le puedo hacer para que busque por el nombre y no por su id. Aqui esta el codigo los otros combos no los he puesto porq primero estoy calando con uno. Espero haberme explicado saludos
Codigo delphi[-]procedure TfrmConceptos.btnBuscarClick(Sender: TObject);
begin
sqlBuscar.Close;
sqlBuscar.SQL.Clear;
sqlBuscar.SQL.Add(' SELECT ID_CONCEPTO, ');
sqlBuscar.SQL.Add(' CVE_CODIGO, ');
sqlBuscar.SQL.Add(' FACTOR, ');
sqlBuscar.SQL.Add(' CANTIDAD, ');
sqlBuscar.SQL.Add(' ID_TRAMITE, ');
sqlBuscar.SQL.Add(' ID_UNIDAD, ');
sqlBuscar.SQL.Add(' ID_TIPO_PAGO, ');
sqlBuscar.SQL.Add(' ID_TIPO_COBRO ');
sqlBuscar.SQL.Add(' FROM CONCEPTOS ');
sqlBuscar.SQL.Add(' WHERE 1=1 ');
if txtclave.Text<>'' then begin
sqlBuscar.SQL.Add(' AND ID_CONCEPTO='+ txtclave.Text);
cdsBuscar.Open;
Limpiardatos;
end;
if txtcb.Text<>'' then begin
sqlBuscar.SQL.Add(' AND CVE_CODIGO LIKE'''+txtcb.Text+ '%''');
cdsBuscar.Open;
Limpiardatos;
end;
if txtfactor.Text<>'' then begin
sqlBuscar.SQL.Add(' AND FACTOR='+ txtfactor.Text);
cdsBuscar.Open;
Limpiardatos;
end;
if txtcantidad.Text<>'' then begin
sqlBuscar.SQL.Add(' AND CANTIDAD='+txtcantidad.Text);
cdsBuscar.Open;
Limpiardatos;
end;
if txttramite.Text<>'' then begin
sqlBuscar.SQL.Add(' AND ID_TRAMITE='+txttramite.Text);
cdsBuscar.Open;
Limpiardatos;
end;
if (txtunidad.Text)<>'' then begin
sqlBuscar.SQL.Add(' AND ID_UNIDAD='+txtunidad.Text);
Limpiardatos;
cdsBuscar.Open;
end;
if (txtpago.Text)<>'' then begin
sqlBuscar.SQL.Add(' AND ID_TIPO_PAGO='+txtpago.Text);
Limpiardatos;
cdsBuscar.Open;
end;
if (txtcobro.Text)<>'' then begin
sqlBuscar.SQL.Add(' AND ID_TIPO_COBRO='+txtcobro.Text);
Limpiardatos;
cdsBuscar.Open;
end;
end;
procedure TfrmConceptos.Limpiardatos;
begin
txtclave.clear;
txtfactor.Clear;
txtcantidad.Clear;
txttramite.Clear;
txtunidad.Clear;
txtpago.Clear;
txtcobro.Clear;
txtcb.Clear;
end;
procedure TfrmConceptos.btnSalirClick(Sender: TObject);
begin
CLOSE;
end;
procedure TfrmConceptos.FormCreate(Sender: TObject);
begin
sqlBuscar.SQL.Text:='SELECT CVE_TIPOCOBRO FROM CONCEPTOS';
sqlBuscar.Active:=true;
while not sqlBuscar.Eof do
begin
txtcb.Items.Add(sqlBuscar.Fields[0].text);
sqlBuscar.Next;
end;
cdsBuscar.Open;
end;
[/quote]
|