Jump to content
Fórum Script Brasil

Fly1

Membros
  • Content Count

    18
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Fly1

Contatos

Perfil

  • Location
    Cabo Verde
  1. Bom dia pessoal tenho um formulario q e uma tabela q tem tres campos (nomemedicamento, preço, quantidade) e um sinal + q serve para adicionar uma nova coluna nesse formulario e tb tem um botao d pesquisa d medicamentos, o q preciso e d um fcao js q cada vez q clicar no + surgira uma nova linha na tabela do formulario e qd s clica em pesquisar apos colocar uma letra na cxa text faz a pesquisa e da o resultado dos medicamentos começado por a exmplo. se pudessem ajudar seria optimo Eu estou programando com pl sql e db oracle mas podemos utilizar java html td embutido no pl sql um abraço a todos
  2. Caros amigos preciso da vossa ajuda para criar um simulador de seguro automovel seja em flash ou outro e q pediram isso e não tenho nenhuma noçao de como faze-lo. um abraço a todos e ficam e desde já agradeço a vossa atençao dispensada
  3. Fly1

    Muito Obrigado

    Muito obrigado a todos q d uma forma ou d outra ajudaram na conclusao do meu projecto, pelas dicas e resolucao d algumas duvidas q tinha vindo deparando no decorrer do projecto. Um abraco a todos e espero q estarao sempre disponiveis para ajudar a mim e a todos como teem feito. um abraco e bom fim d semana
  4. Esqueci-me de vos dizer q o form e constituido para alem dos textbox e dos tdpiker ainda tem um msflexgrid onde aparece os dados filtrados so que no form da crystal report não aparecem os dados filtrados como no msflexgrid mas sim todos os dados da tabela e o q eu quero e q os dados aparecem como no msflexgrid. abraco
  5. Que estejam sempre bem queria q me explicassem como fazer para filtrar dados no crystal report 8.0. estou usando o vb6 e o mysql como bd. Preciso fazer um filtro que da os dados por matricula e data e tb por grupo e data. já tenho o form mas so q não esta filtrando exibe todos os dados. Se pudessem podiam me enviar um exemplo pratico para resolver isso. Muito obrigado pela vossa atencao e ajuda um abraco a todos
  6. Fly1

    Controles

    Esse vem junto com o vb6 so q tens de entrar no vb e ir para o menu project -> dpois componentes e escolher Microsoft Data Bound Grid Control 5.0(SP3) depois e so registrar esse OCX
  7. Bom dia a todos espero que tenham tido um bom fim d semana Vou enviar uma parte dos codigos q fazem parte do calculo do TotalConsumoOleo para verificacao e correcao e ver o porque q qd coloco por ex nos text box txtmanutencao [1,2 ]+ txtacrescimo[ 1,2 ] em vez de gravar 2,4 na base dados grava 24 e não 2,4 """"""""""""""""""""" Private Sub txtAcrescimo_Change() If Not ValidateNumeric(txtAcrescimo.Text) Then txtAcrescimo.Text = "" End If If txtAcrescimo.Text <> Empty And txtAcrescimo.Text <> Empty Then txtTotalConsumoOleo.Text = vtotalOleo + CDbl(txtAcrescimo) + CDbl(txtManutencao) Else txtTotalConsumoOleo.Text = vtotalOleo End If ' txtGasoleo.SetFocus End Sub """"""""""""""""""""""""" Private Sub txtManutencao_Change() If Not ValidateNumeric(txtManutencao.Text) Then txtManutencao.Text = "" End If If txtManutencao.Text <> Empty And txtAcrescimo.Text <> Empty Then txtTotalConsumoOleo.Text = vtotalOleo + CDbl(txtManutencao) + CDbl(txtAcrescimo) Else txtTotalConsumoOleo.Text = Format(vtotalOleo, "0.00") End If ' txtAcrescimo.SetFocus End Sub """"""""""""""""""""""""""""""""""""" Private Sub cmdGravar_Click() txtID.Text = ContarRegistros ' If txtManutencao.Text = Empty Then ' txtManutencao.Text = 0 ' End If ' If txtValorPeca.Text = Empty Then txtValorPeca.Text = 0 End If txtManutencao.Text = Replace(txtManutencao, ".", "") txtManutencao.Text = Replace(txtManutencao.Text, ",", ".") txtAcrescimo.Text = Replace(txtAcrescimo, ".", "") txtAcrescimo.Text = Replace(txtAcrescimo.Text, ",", ".") txtTotalConsumoOleo.Text = Replace(txtTotalConsumoOleo.Text, ".", "") txtTotalConsumoOleo = Replace(txtTotalConsumoOleo, ",", ".") ''' '''''''''''''''''''' txtPercOleo.Text = Replace(Format(txtPercOleo.Text, "0.00"), ",", ".") txtPercGasoleo.Text = Replace(Format(txtPercGasoleo.Text, "0.00"), ",", ".") txtPercOleoGasoleo.Text = Replace(Format(txtPercOleoGasoleo.Text, "0.00"), ",", ".") txtPercKmDia.Text = Replace(Format(txtPercKmDia.Text, "0.00"), ",", ".") ' ' ''''''''''''' GravarDados txtID.SetFocus End Sub """"""""""""""""""""""""""""""""""""" 'FUNCAO PARA INCREMENTAR OS VALORES TOTALGASOLEO 'TOTALKM e KMACUMULADO E TOTALCONSUMOOLEO Private Function BuscarDados() Dim bRecOficina As New ADODB.Recordset vtotalOleo = 0 vTotalGasoleo = 0 vTotalKm = 0 vKmAcumulado = 0 On Error Resume Next bRecOficina.Open " SELECT * FROM controleconsumomanutencao WHERE Codigo =" & txtCodAutocarro.Text & "", cnnOficina, adOpenDynamic ' ''bRecOficina.Open "SELECT SUM(Gasoleo)as Total_Gasoleo FROM oficina.controleconsumomanutencao where Codigo=" & txtCodAutocarro.Text & ";", cnnOficina, adOpenDynamic ' Do While Not bRecOficina.EOF vtotalOleo = vtotalOleo + bRecOficina.Fields("Manutencao").Value + bRecOficina.Fields("Acrescimo_Oleo").Value vTotalGasoleo = bRecOficina.Fields("Total_Gasoleo").Value vTotalKm = bRecOficina.Fields("Total_Kilometros").Value vKmAcumulado = bRecOficina.Fields("Kilomet_Acumulado").Value ''''''''''''''''''' bRecOficina.MoveNext Loop bRecOficina.Close Set bRecOficina = Nothing ' ' End Function """"""""""""""""""" já tentei de tudo para entrar 2,4 na bd mas não adianta um abraco a todos e espero q consigam ajudar-me nisso
  8. OBRIGADA PELA AJUDA ESSA E A FCAO ONDE O CALCULO E FEITO SERA Q ESTA CORRECTO? O VTOTALOLEO E UMA VARIAVEL TIPO DOUBLE Q TEM Q SER INCREMENTADO NA BD (MYSQL) CADA VZ Q INTRODUZIRMOS UM VALOR NO CAMPO TXTMANUTENCAO OU TXTACRESCIMO E APARECE O RESULTADO NO TXTTOTALCONSUMOOLEO MAS Q/D FACO O CALCULO[1,2+1,2] NA HORA DE GRAVAR EM VZ D APARECER 2,4 APARECE 24 E TB NA BD Private Sub txtManutencao_Change() If txtManutencao.Text <> Empty And txtAcrescimo.Text <> Empty Then txtTotalConsumoOleo.Text = vtotalOleo + CDbl(txtManutencao) + CDbl(txtAcrescimo) Else txtTotalConsumoOleo.Text = vtotalOleo End If
  9. Bom dia a todos gostaria d saber como fazer que 1,20 +1,20 seja 2,40 e não 24,00 agradeco a vossa ajuda
  10. Eu estou usando o VB6 so q o meu base dados e o mysql ou seja os dados são inseridos num bd feito em mysql
  11. A variavel e do tipo double(10,2) O erro e no campo [Total_Oleo] q não da o valor certo como exemplo tenho inserido [1.00+1.00+1.00+1.00+1.20] o resultado tinha de ser 5.20 e ta dando 34.00
  12. Bom dia a todos minha preocupacao e o seguinte tenho um campo [Total_Oleo]q resulta da soma do [Acrescimo_Oleo+ Oleo_Manutencao] no meu BD(Mysql) qd introduza os dados tudo bem mas qd vou verificar aparece um numero diferente da soma real por exemplo :se introduzo 1,2+1,2 a soma tinha d ser igual a 2,4 mas aparece 24 gostaria q me ajudassem a resolver isso por favor. não sei s e porque utilizo o replace e o "." provoca isso ou s e por outro motivo um abraco
  13. O q eu quero e calcular os racios(porcentagens) d oleo por cada 100kms q tem como formula oleo/100kms=(Totaloleo:totalKMs)*100; Gasoleo/100kms=(TotalGasoleo:TotalKm)*100; %Oleo/gasoleo=(TotalOleo:TotalGasoleo)*100; e por ultimo Kms/Dia=(totalKms:30dias) [ou 31 dias conforme o mes em questao] estou usando isso no lost focus sera a melhor opcao? um abraco a todos
  14. desde já agradeco imenso pela vossa atencao. 1-esse e uma parte do meu comando sql para inserir os dados na bd mysql q gostaria q analizassem e dizer s pode assim ficar e q antes s introduzisse numeros inteiros aceitava mas agora com num double (1,20) da sempre um erro. na bd tenho por ex o campo "Nome campo|kilometros |Tipo-double-(10,2)|DefaultValue- 0.00-" sera q esta correcto isso: cnnComando.CommandText = "INSERT INTO controleconsumomanutencao " & _ "(ID,Codigo,Matricula,Marca,Grupo,Manutencao,Acrescimo_Oleo," & _ "Total_Oleo,Perc_Oleo,Gasoleo,Total_Gasoleo,Perc_Gasoleo," & _ "Perc_Oleo_Gasoleo,Kilometros,Total_Kilometros,Kilomet_Por_Dia," & _ "Kilomet_Acumulado,Obs,Designacao_Pecas,Valor_Peca,Fornecedor,Data) VALUES (" & _ txtID.Text & "," & txtCodAutocarro.Text & ",'" & txtMatricula.Text & "','" & txtMarca.Text & "','" & _ txtGrupo.Text & "'," & txtManutencao.Text & "," & txtAcrescimo.Text & "," & _ txtTotalConsumoOleo.Text & "," & txtPercOleo.Text & "," & txtGasoleo.Text & "," & _ txtTotalConsumoGasoleo.Text & "," & txtPercGasoleo.Text & "," & txtPercOleoGasoleo.Text & "," & _ txtKm.Text & "," & txtTotalKilometro.Text & "," & txtPercKmDia.Text & "," & _ txtKmAcumulados.Text & ",'" & txtObs.Text & "','" & txtDesignacao.Text & "'," & _ txtValorPeca.Text & ",'" & txtFornecedor.Text & "','" & Format(txtData.Value, "yyyy-mm-dd") & "');" cnnComando.Execute 2- Como tenho um form com 3 txtbox(txtmatricula, txtdatainicial, txtdatafinal) , um msflexgrid e um botao imprimir p mostrar os dados no msflexgrid antes d imprimi-los ,e o data report simplesment coloca os dados varias vezes o mm numero d matricula queria saber s existe outra forma d fazer um relatorio usando um form ou outro programa qualquer para fazer aparecer uma unica vz a matricula?Consegui fazer isso utilizando o crystal report 8.0 mas não estou conseguindo filtrar os dados por intervalos d data no botao imprimir.No cmdImprimir tinha esse codigo: " DataEnvironment1.rscnnSQLConsumoManutencao.Filter = "Data >= '" & txtDataInicial & "' and Data <= '" & txtDataFinal & "' and Matricula='" & txtMatricula & "'" drptRelConsManut.Show" esse filtrava normalmente usando o datareport mas não funciona com crystal report bom dia a todos
  15. grave com ponto e sem aspas. exemplo, gravando 25,75 num campo duplo: Insert Into Tabela(Campo_String1, Campo_Double, Campo_String2) Values ('string1', 25.75, 'string2') não entendi direito. se você quer fazer um relatorio é bom usar um desses programas senao você vai ter muito trabalho. ou talvez um grid sirva no seu caso, não entendi direito.
×
×
  • Create New...