Jump to content
Fórum Script Brasil

kcris

Membros
  • Posts

    14
  • Joined

  • Last visited

About kcris

kcris's Achievements

0

Reputation

  1. 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
  2. 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?
  3. 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?
  4. Sim, na tabela, cultura e manejo culturas são do tipo texto, e Indce_u e m do tipo número...
  5. 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
  6. 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
  7. Não funcionou. O erro está no select...
  8. 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?
  9. 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;
  10. Como poderei fazer então? O ususário terá a opção de escolher mais de 1 ítem. É melhor usar outro componente? Qual?
  11. Pessoal, preciso saber como faço para que o usuário possa selecionar mais de um ítem no lookupcombobox(com o ctrl ou shift).
  12. kcris

    Tdbcombobox

    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?
  13. kcris

    Tdbcombobox

    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
×
×
  • Create New...