Ir para conteúdo
Fórum Script Brasil

Nosdaj

Membros
  • Total de itens

    29
  • Registro em

  • Última visita

Tudo que Nosdaj postou

  1. beleza galera, tenho o seguinte problema, quando coloco o meu EXE para rodar em outra máquina e configuro tudo certinho em relação ao banco de dados, na hora que vai abrir da o erro EOLESYSERROR, dizendo que falta o registro da classe, grato pela atenção. e-mail: nosdaj@hotmail.com messenger: nosdaj@hotmail.com
  2. e ai bellez galera do Delphi, se alguém tiver exemplos da utilização do crystal reports e Delphi 6 ficarei muito grato, obrigado pela atenção.
  3. tenho a sua resposta amigo se não entende me manda um e-mail nosdaj@hotmail.com cbxMunicipio.Clear; qyMunicipio.cancel; // cancela qualquer operação da query qyMunicipio.close; // fecha a query qyMunicipio.sql.clear; // limpa o sql da query qyMunicipio.sql.add('SELECT NMMUNICIPIO,IDMUNICIPIO FROM TBMUNICIPIOS'); //Aqui vai mostra o Município qyMunicipio.sql.add('WHERE IDUF =('''+VMunicipio2+''')'); qyMunicipio.open; if not qyMunicipio.IsEmpty then begin while not qyMunicipio.Eof do begin cbxMunicipio.Items.Addobject(qyMunicipio.FieldByName('NMMUNICIPIO').AsString,TObject(qyMunicipio.FieldByName('IDMUNICIPIO').AsInteger)); qyMunicipio.Next; end; end; cbxMunicipio.Visible:=True; cbxMunicipio.SetFocus; ////////////////////// Aqui vai exibir o IDMUNICIPIO VMunId:=IntToStr(integer(cbxMunicipio.Items.Objects[cbxMunicipio.ItemIndex]));
  4. e ai pessoal , estou com um serio problema, quero pegar o valor de uma combobox e passar como parametro para um dblookupcombobox em tempo de execução e quando a pessoa escolher a opçao no dblookupcombobox ele me retornar o idmunicipio segue exemplo mais não esta funcionado tenho uma tabela de municipios onde quero que mostre o nome do municipio e ao ser clicado a opção referente ao nome do municipio ele me retorne o idmunicipio do municipio query.cancel; query.close; query.sql.clear; query.sql.add('SELECT NMMUNICIPIO,IDMUNICIPIO FROM TBMUNICIPIOS'); query.sql.add('WHERE IDUF =('''+Combobox+''')'); query.open; if not query.IsEmpty then begin while not query.Eof do begin dblookupcombobox .ListField:=(query.FieldByName('NMMUNICIPIO').AsString); dblookupcombobox .KeyField:=(query.FieldByName('IDMUNICIPIO').AsString); q.Next; end; end; se não tiver jeito pesso que me dei um exemplo com outro componete. mandem exemplos per favor. e-mail: nosdaj@hotmail.com - grato pela atenção
×
×
  • Criar Novo...