Ir para conteúdo
Fórum Script Brasil

DSV

Membros
  • Total de itens

    8
  • Registro em

  • Última visita

Sobre DSV

DSV's Achievements

0

Reputação

  1. DSV

    Relatorio

    por favor como faço para atualizar o meu relatorio automaticamente, porque o meu tem q fechar o programa e dps q fexa q ele atualiza o relatorio, eu gostaria q atualizasse automaticamente sem precisar fexar por favor me ajudem!!!!
  2. eu já consegui gravar o radio button, falta só mostrá-lo no butao localizar!!! Como faço para quando eu clikanoum botao localizar o botao mostre no radio button o que gravou??? o codigo é esse q estou usando e esta dando erro!!! procedure TProdutos.BitBtn1Click(Sender: TObject); var VCodigo : string; VForn : string; Vtipo : string; Vsetor : string; Vmodelo : string; Vfr : string; Vdescri : string; begin VCodigo := Edit_Codigo.Text; Vforn := combo_fornecedor.text; Vtipo := Edit_tipo.text; Vsetor := Edit_setor.text; Vmodelo := Edit_modelo.text; Vfr := Edit_fun_responsavel.text; Vdescri := Edit_descricao.text; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('SELECT * FROM produtos WHERE Codigo = '''+VCodigo+''''); Query1.Open; if Query1.FindFirst = false then ShowMessage('Não encontrou') else begin VForn := Query1.Fields[1].Value; Vtipo := Query1.Fields[2].Value; Vsetor := Query1.Fields[3].Value; Vmodelo := Query1.Fields[4].Value; Vfr := Query1.Fields[5].Value; Vdescri := Query1.Fields[6].Value; Combo_Fornecedor.Text := VForn; Edit_tipo.text := Vtipo; Edit_setor.text := Vsetor; Edit_modelo.text := Vmodelo; Edit_fun_responsavel.text := Vfr; Edit_Descricao.text := VDescri; if Table_produto.Fieldbyname('Categoria').value then RadioButton_Ele.Checked := true; if Table_produto.fieldbyname('categoria').value then RadioButton_info.checked := true; if table_produto.fieldbyname('categoria').value then Radiobutton_mobilia.checked := true; end; end;
  3. é isso mesmo q eu quero fazer, mas eu sou apenas aluno do 3° ano de info. não sei fazer isso ainda me ensine a fazer, poste o código ai para mim por favor... GRATO!!!
  4. mas o que eu faço pra definir os outros forms filhos??? EU PRECISO Q OS FORMS ABRAM JUNTO A TELA DO PAI, OU SEJA, Q ELES SEJAM FILHO!!!
  5. essa seu palpite não funcionou, tente outra vez!!! POR FAVOR ME AJUDEEEEEEEEEEM!!!!!!!!!!!!!!!
  6. n precisa usar??? eu to usando e to colocando o application..createform... precisa ou n ce n precisa me avisa q vou testar e c der certu muito obrigadooooooooooooooo!!!!!!!!
  7. MAS EU coloquei AS PROPRIEDADES CERTAS MAS TAH DANDO ERRO
  8. POR FAVOR EU ESTOU COM UM PROBLEMA EM DELPHI, quando EU TENTO CRIAR UM FORM ATRAVES DE UM LOGIN ELE APARECE SEMPRE A mesmo MENSAGEM DE ERRO!!! "Project Project1.exe raised exception class EInvalidOperation with message 'Cannot create form. No MDI are currently active'. Process stopped. Use Step or Run to continue" Esse foi o código foi posto no Delphi para programar o botao. procedure TLogon.Button1Click(Sender: TObject); begin if edit1.text = '***' then begin Application.CreateForm(TPrincipal, Principal); principal.Exibir1.Enabled := false; principal.Cadastrar1.Enabled := false; principal.show; end else if edit1.text = '***' then begin Application.CreateForm(TPrincipal, Principal); principal.formstyle:=fsmdiform; principal.show; end else showmessage('Senha Incorreta!!!!'); end; end. Por favor se souberem me responder ajudem me!!!! OBRIGADO
×
×
  • Criar Novo...