DSV
Membros-
Total de itens
8 -
Registro em
-
Última visita
Sobre DSV
DSV's Achievements
0
Reputação
-
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!!!!
-
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;
-
é 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!!!
-
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!!!
-
essa seu palpite não funcionou, tente outra vez!!! POR FAVOR ME AJUDEEEEEEEEEEM!!!!!!!!!!!!!!!
-
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!!!!!!!!
-
MAS EU coloquei AS PROPRIEDADES CERTAS MAS TAH DANDO ERRO
-
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