kcris
Membros-
Total de itens
14 -
Registro em
-
Última visita
Sobre kcris
kcris's Achievements
0
Reputação
-
vocês que já estão mais craques na área: como faço um documento de software para um programa em Delphi? Que informações devo colocar, faço no word? É a primeira vez que preciso fazer um e gostaria de algumas dicas, estou perdida... Obrigada Carla
-
Mas o que eu escrevo? if edit.text = ???? then Erro Mais uma pergunta: Faço um cálculo que dá número com virgula e o exibo em um edit, só que eu quero deixar só 2 digitos depois da virgula, mas não sei como fazer para eleminar os outros números. Como?
-
Por favor, alguém poderia me dizer como fazer para que o usuário só digite números no edit? Decli := StrToInt(edDeclividade.text); Faço essa conversão, quando ele digita texto o programa da erro e para, mas quero eu fazer uma mensagem de erro e dar um setfocus para ele digitar de novo, mas como?
-
Sim, na tabela, cultura e manejo culturas são do tipo texto, e Indce_u e m do tipo número...
-
Pessoal meu programa executa o seguinte erro: current provider does not support returning multiple recordsts from a single execution, não consigo entender. O que posso fazer para solucioná-lo? Ah, no comando Insert ele não aceita os comandos M E U como coloquei, por quê? qryMaisCulturas.Active := False; qryMaisCulturas.SQL.Clear; Cultura:= Lista.Items.Text; Manejo := cbManejo.text; qryMaisCulturas.SQL.Add('Insert Into MaisCultura (Cultura,ManejoCultura,indice_M,indice_U) Values ("%'+ lstCulturas.selectedItem + '%", "%'+ cbManejo.Text + '%", M, U )' ); qryMaisCulturas.Active := True; end; Obrigada
-
O que faço então?
-
São valores que vem da tabela. Acontece que para minha soma eu não quero os valores selecionados. Vou dar um ex da tabela: Tabela de culturas Cod Cultura Indice_u 2 banana 0,34 Tabela de manejo Cod Manejo Indice_m 6 Arado 1,00 no combobox eu seleciono a banana(Tabela de Culturas), e no outro combo o cod(tabela de manejo), através destes quero somar o índice_u e o Indice_m
-
Não funcionou. O erro está no select...
-
Desculpem, deu um erro e não terminei de escrever lá em cima. Os campos Result1 e 2 ficam valendo 0 neste procedimento, Por que?
-
Estou tentando pegar dois campos de tabelas diferente e soma-los, mas não sei procedure TForm1.Button2Click(Sender: TObject); Var Result1, Result2, ResultadoFinal: real; begin qry4.Active := False; qry4.SQL.Clear; Result2:= qry4.SQL.Add('Select Indice_m from Manejo where Grupo like " '+ cb2.Text + '" '); qry4.Active := true; label2.Caption := floatToStr(Result2); qry3.Active := False; qry3.SQL.Clear; Result1:= qry3.SQL.Add('Select Indice_u from Culturas where Culturas like "'+ cb1.Text +'" '); qry3.Active := true; label1.Caption := floatToStr(Result1); ResultadoFinal:= Result1 + Result2; edit1.Text:= floattoStr(ResultadoFinal); end;
-
Como Selecionar Mais De Um Item No Lookupcombobox
pergunta respondeu ao kcris de kcris em Delphi, Kylix
Como poderei fazer então? O ususário terá a opção de escolher mais de 1 ítem. É melhor usar outro componente? Qual? -
Pessoal, preciso saber como faço para que o usuário possa selecionar mais de um ítem no lookupcombobox(com o ctrl ou shift).
-
Eu fiz isso, só que na query eu faço um select, pois na tabela tem vários campos e eu só quero que exiba um, então no combo só aparece o 1º da lista quando eu rodo. Nesse caso o que faço?
-
Pessoal gostaria de saber como exibir os dados no tdbComboBox puxando de um Banco de dados do Acess. Fiz uma parte do código, mas não sei como continuar... procedure TfrmPrincipal.cbCulturasChange(Sender: TObject); //type Vetor = array [1..qryCulturas.MaxRecords] of Integer; {Array de ComboBoxes } var Indice: Integer; begin Indice := 0; While (Indice <= qryCulturas.MaxRecords) do Begin cbCulturas.Items := qryCulturas.DataSource.DataSet.FieldList; Indice := Indice + 1; End; end; É no onChange mesmo, o que devo fazer? Muito obrigada Carla