Soninhamax

Dúvida :unsure: :Tenho um cadastro de produto que puxa referencia de outros cadastro. Consigo carregar e gravar no banco essas referencias, porem o ultimo campo é um campo enumerado. Na hora de gravar no banco aparece, por exemplo, o seguinte valor:[Lmodel.EstacaoEnum;@8cdf50 public class ProdutoDAO extends DAO { private static String TABELA = "Produto"; public int inserirProduto(Produto obj) { System.out.println(obj.getCategoria().getcodigocat()); System.out.println(obj.getCor().getcodigocor()); System.out.println(obj.getevento().getcodigoevento()); System.out.println(obj.getTamanho().getcodigotamanho()); System.out.println(obj.getEstacao().values()); return executeSQL("INSERT INTO " + TABELA + " (codigo,descricao,idcategoria, idcor, idevento, idtamanho, idestacao) " + "VALUES('" + obj.getcodigoproduto() + "', '" + obj.getdescricaoproduto() + "', '" + obj.getCategoria().getcodigocat() + "','" + obj.getCor().getcodigocor() + "','" + obj.getevento().getcodigoevento() + "', '" + obj.getTamanho().getcodigotamanho() + "', '" + obj.getEstacao().values() + "' )"); } O correto seria exibir verao ou primaver ou outini ou inverno. Alguém sabe como resolver isso?

Uma questão eu já consegui resolver. Deixei de lado o dbCombobox e peguei uma Combobox, e coloquei o seguinte código: procedure TFrmPesquisa.FormCreate(Sender: TObject); begin QueryDados.close; QueryDados.open; ComboBox1.items.clear; while not QueryDados.eof do begin ComboBox1.items.add(QueryDados.fieldbyname('papel_rv').asstring); QueryDados.next end; end; Agora está carregando todos os dados na Combo, falta descobrir a forma de programar o botão OK para que ele faça carregar na Grid que está em outra Form os campos vinculados a esses dados...

Estou vasculhando toda a internet desde ontem e não achei nada que me socorresse. Se alguém souber por favor, me ajude! Preciso fazer uma consulta, ela está montada da seguinte forma: Em um Form tenho uma dbGrid, e um botão pesquisa. Quando eu clico no botão ele me traz um outro Form com um dbCombobox e um botão ok. Eu preciso que, quando eu clicar na Combo, esteja carregada todos os dados de um dos campos de uma tabela e quando eu selecionar um dado e der OK, que ele carregue na Grid alguns campos relacionado a esse dado. Já criei um Database, uma Query e um DataSource e fiz a ligação entre eles. Utilizo o banco de dados Oracle e o Delphi 2 :rolleyes:. Desde já agradeço.

Vou explicar o melhor possivel para que possam compreender e me ajudar... 1ºEu criei um cadastro, coloquei os EDITs, o RADIOGROUP e o COMBOBOX no PANEL de cima e no PANEL de baixo coloquei os SPEEDBUTTONs. Coloquei um comando pra ao sair, por exemplo do EDIT, pressionando enter vá para o próximo campo ex: procedure TFrmCadCli.EdtCodigoKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then edtRazao.SetFocus; end; o problema é, tenho um MASKEDIT e depois dele vem o RADIOGROUP. Não consigo com esse comando mandar o foco para o RADIO, o máximo que consegui foi: procedure TfrmCadCli.mskTelKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then rdbSexo.ItemIndex := 0; end; O máximo que faz é marcar o item mas o foco continua no MASKEDIT,só vai se depois disso eu pressionar TAB. E por sequência (do TAB ORDER) depois do RADIO vem o PANEL com os SPEEDBUTTONS e não consigo fazer com que o 1°botão receba o foco. Fiz um comando para que fizesse com que todos os campos fossem de preenchimento obrigatório, e nem tentando mandar o foco do MASKEDIT,sem passar pelo RADIO, direto para o PANEL, o botão não recebe o foco. ex: procedure TfrmCadCli.mskTelExit(Sender: TObject); begin if not (ActiveControl is TButton) then begin if mskTel.text = '( ) - ' then begin MessageDlg('Campo obrigatório', mtError, [mbOK],0); mskTel.SetFocus end else pnlBotoes.SetFocus; end; end; 2º Eu fiz uma PROCEDURE (Limpar) para limpar todos os campos e uma FUNCTION (Integridade) para verificar se todos os campos obrigatórios foram preenchidos, caso o usuário no meio do caminho tente gravar os dados sem preencher tudo. No botão gravar fiz o seguinte : procedure TfrmCadCli.spbGravarClick(Sender: TObject); begin if Integridade then begin ShowMessage('Dados gravados com sucesso!'); Limpar; end else showmessage('Todos os campos são obrigatórios'); end; Problema 1 - na função integridade,logo abaixo, estou com dificuldade de criar um comando para que verifique se o RADIO foi marcado: function TfrmCadCli.Integridade: Boolean; begin if (trim (EdtCodigo.text) <> '') and (trim (edtNome.text) <> '') and (trim (CmbUF.text) <> '') and (trim (mskNascimento.text) <> '') and (trim (mskTel.text) <> '') then Result := True else Result := False; end; Problema 2 - Depois de executar o programa, preencher os dados e clicar no botão gravar acontece o seguinte: a)Ele exibe a mensageem 'Dados gravados com sucesso!', clico em ok e ele me exibe a mensagem 'Campo Obrigatório', e o foco, como programado na PROCEDURE LIMPAR, não volta para o primeiro campo, ele está permanecendo no RADIOGROUP. b)Depurando o programa e entrando dentro desta PROCEDURE notei que todos os campos estão recebendo o valor'inaccesible value' ex: edtCodigo.Clear = inaccesible value Agradeço desde já a ajuda em qualquer item do problema!