Jhowcs

O problema é o seguinte eu coloco valores no Dbedits só que quando vou gravar se eu usar append cria-se um novo registro e os dados que estavam nos Dbedits são limpados, eu queria que quando eu clica-se em gravar me desse a mensagem se desejo fazer + 1 encomenda para o mesmo cliente, se a resposta for sim os dados são mantidos e só limpa o DbLookUpComboBox

Consegui : F_Dados.Sds_Encomenda.Open; F_Dados.Sds_Encomenda.Last; F_Dados.Sds_Encomenda.Active := true; cod := F_Dados.Sds_Encomenda.FieldByName('cod').AsInteger; F_Dados.Sds_Encomenda.Append; F_Dados.Sds_Encomenda.FieldByName('cod').AsInteger :=cod+1;

vamos lá estou usando um SqlConnection<--SimpleDataSet<--DataSource tenho uma tabela (encomenda) no firebird e nela tem vários campos dentre eles o (Cod) estou usando SimpleDataSet(Sds_Encomenda) F_Dados.Sds_Encomenda.Open; F_Dados.Sds_Encomenda.Active := true; cod := F_Dados.Sds_Encomenda.FieldByName('cod').AsInteger; F_Dados.Sds_Encomenda.Append; F_Dados.Sds_Encomenda.FieldByName('cod').AsInteger :=cod+1; Desse jeito tá quase dando certo o problema é que ele pega sempre o 1ºregistro do banco e não o ultimo.

Esse vendas é o que ? uma query?

Galera é seguinte to fazendo um sistema de encomenda de assados para a lanchonete do meu pai, o problema é o seguinte, eu tenho um dbedit que é o Código da Encomenda, quando eu iniciar o programa e for fazer uma nova encomenda eu quero que esse dbedit ao ganhar o foco pegue o ultimo valor do banco + 1, porque eu tenho que saber qual a ultima encomenda que eu já fiz, porque alguns clientes podem fazer encomenda de 1 ou + produtos então eles terão o mesmo codigo de encomenda

Eu tenho uma tela de encomenda de assados(frango, costela) então tenho os seguintes DBEdits (Código da encomenda,Nome(pessoa que irá encomendar),telefone, endereço de entrega,número, qtde) (1 combobox tipo de assados(frango,costela) ) 2 radiobutton, o 1(local se a pessoa for vir buscar) o 2(entrega quando for para entregar) eu quero criar um botão que jogue esses dados no DBGrid e automaticamente salve no banco de dados, tenho outra dúvida, se uma pessoa encomendar por exemplo(2 frangos, 1 costela) como irei gravar isso no banco de dados eu terei que gravar duas vezes uma para os dois frangos e outra só para a costela? mas isso seria errado pois no caso seria a mesma encomenda da mesma pessoa com código diferente. e como eu coloco icones em um botão? Obrigado!!!

Galera to com o seguinte problema eu tenho um trabalho da faculdade que consiste em programar um jogo da forca em linguagem C. o problema é quando eu tenho uma palavra por exemplo: AVIAO tem duas letras A, quando eu digito A deveria aparecer assim (A--A-), só que está aparecendo assim A----A--A-. na próxima letra se eu digitar V por exemplo dai aparece normal (AV-A-) while((strcmp(traco,sort)!=0) && vida>0) { printf("\n\n%d Vida(as)",vida); printf("\nDe o %d chute\n",cont); fflush(stdin); scanf("%c", &resposta); resposta=toupper(resposta); x=0; for(j=0; j<tam; j++) { if(sort[j]==resposta) { traco[j]=sort[j]; printf("%s",traco); cont++; x++; } } if(x==0) { vida--; printf("%s",traco); } }

Ok legal esses tutorial mas não sei qual é o programa pra compilar porque eu já tinha estudado um pouco de C so que parei por falta de R$ e eu usava um programinha so que não sei direito o nome e não achei o CD que tinha ele ^^ Não seria o Dev C++? ele é um otimo compilador da linguagem C, e é facilmente achado na net!!!

muito obrigado deu certo...vou postar o que eu fiz...pode ser util pra mais alguém!!! 1. Implemente um programa para ler o número total de eleitores de um município, o número de votos brancos, nulos e válidos. Calcular e escrever o percentual que cada um representa em relação ao total de eleitores. #include <cstdlib> #include <iostream> main() { int tot_ele, vt_b, vt_n, vt_val,p1,p2,p3; printf("Digite a qtde de habitantes: "); scanf("%d", &tot_ele); printf("Digite a qtde de votos em branco: "); scanf("%d", &vt_b); printf("Digite a quantidade de votos nulos: "); scanf("%d", &vt_n); printf("Digite a qtde de votos validos: "); scanf("%d", &vt_val); if(vt_b+vt_n+vt_val< tot_ele) printf("Quantidade de votos inferior a quantidade de habitantes\n"); else if(vt_b+vt_n+vt_val> tot_ele) printf("Quantidade de votos superior a quantidade de habitantes\n"); else { p1=vt_b*100/tot_ele; p2=vt_n*100/tot_ele; p3=vt_val*100/tot_ele; printf("Votos em branco %d porcento \n",p1); printf("Votos nulos %d porcento \n",p2); printf("Votos validos %d porcento \n",p3); } system("PAUSE"); }

galera to com o seguinte problema e não sei resolver, na matemática eu usaria uma regra de tres simples, só que em C eu to com dúvida de como faço para achar aporcentagem. O algoritmo é o seguinte, eu tenho que digitar a quantidade de habitantes de uma cidade, em seguida digitar a qtde de votos em branco, votos nulus, votos válidos.feito isso o programa tem que me mostrar o percentual que cada um representa em relação ao total de eleitores.

galera sou novo em C/C++ estou usando o DevC++ e estou com um problema eu estou pedindo para o usuario digitar tres dados de entrada nome, sexo, altura, só que quando eu digito o nome ele já vai pra ultima linha de codigo main() { char nome, sexo; float h, pi; printf("Qual seu nome? "); scanf("%c", &nome); printf("Digite seu sexo (M/F)\n"); scanf("%c", &sexo); printf("Qual sua altura? \n"); scanf("%f", &h); system("PAUSE"); }

Estou usando o VISTA 32bits Então utilize o dev mesmo, ele compila com "gcc" para windows. onde acho uma apostila desse Dev C++

Estou usando o VISTA 32bits

galera eu comecei a mexer um pouco com progrmação utilizando visual basic 6, queria usar C e gostaria de saber qual programa usar...

é possível eu colocar as teclas de atalhos para chamarem os botões de um toolbar?

Galera me desculpem por demorar pra entender o que vocês estavam tentando explicar... deu tudo certinho !!! Vou apresentar meu Trabalho de Conclusão de Módulo(SENAC-Marília) Sexta-feira...Devo muito a vocês !!!Muito Obrigado... Especialmente Jonathan Queiros(Meu Chará, também me chamo Jonathan) e ao Grande Kuroi...

É mais ou menos a mesma coisa ! Você só vai ter que implementar umas condicionais para ver onde está o foco ! se eu não me engano o codigo do ENTER é 13, mas e ai como eu faço pra se eu pressionar o ENTER(codigo 13) ele troque pelo clicar do mouse?

eu também quero no form contas a receber que se o foco estiver no txtnome e eu pressionar enter automaticamente seja como se clicasse em cmdbuscar, e se o foco estiver em txtparcela ele pressione o cmdbaixa.

bom eu tenho uma grid sobre cadastro de clientes e queria que quando eu teclasse (Enter) fosse como se eu clicasse com o mouse pois quando eu clico com o mouse ela joga dessa gridpesquisar para o frmcadastrocliente...

Eu quero limpar os labels...tipo eu faço uma pesquisa do dia 13/01/2009 por exemplo e retorna o fechamento do caixa desse dia, se eu digitar uma data que não existe dados gravados(se for EOF) ele tem que limpar os dados da pesquisa anterior

galera queria acha uns icones pra eu colocar nos botões do meu trabalho de conclusão de módulo...mas eu queria uns icones bonitos, até agora só achei antigos ...tipo aqueles do velho win98...

Gostaria que quando eu eu buscasse uma data do fechamento de caixa e não encontrasse que limpasse os Labels, eu faço uma busca e encontro, depois se eu fizer outra busca e não encontrar nada ele não pode ficar com os valores da antiga pesquisa... estou fazendo asim: Private Sub cmdBuscar_Click() Dim x As Integer Dim TotVenda As Double Dim Saldoini As Double Dim soma As Double strSQL = "select * from vendas where DataVenda = '" & mskData.Text & "'" TotVenda = 0 Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then mostra linha = 1 Do While Not TbCli.EOF GridFechamento.Rows = GridFechamento.Rows + 1 GridFechamento.TextMatrix(linha, 1) = TbCli(0) GridFechamento.TextMatrix(linha, 2) = TbCli(1) GridFechamento.TextMatrix(linha, 3) = TbCli(2) GridFechamento.TextMatrix(linha, 4) = TbCli(3) GridFechamento.TextMatrix(linha, 5) = TbCli(4) GridFechamento.TextMatrix(linha, 6) = TbCli(5) GridFechamento.TextMatrix(linha, 7) = FormatCurrency(TbCli(6)) GridFechamento.TextMatrix(linha, 8) = TbCli(7) GridFechamento.TextMatrix(linha, 9) = TbCli(8) GridFechamento.TextMatrix(linha, 10) = FormatCurrency(TbCli(9)) TotVenda = TotVenda + GridFechamento.TextMatrix(linha, 7) TbCli.MoveNext linha = linha + 1 Loop lblRegistros.Caption = GridFechamento.Rows - 1 & " Registros" TbCli.MoveFirst Else MsgBox "Data de Venda não Encontrada!!!", vbInformation, "Erro de Busca" mskData = Format(Date, "dd/mm/yyyy") mskData.SetFocus GridFechamento.Clear GridFechamento.Rows = 1 lblRegistros.Caption = "" lblSaida.Caption = "" lblSaldoIni.Caption = "" lblTotal.Caption = "" lblTotalCaixa.Caption = "" lblVlrTotal.Caption = "" If GridFechamento.Rows <= 2 Then GridFechamento.Clear GridFechamento.TextMatrix(0, 1) = "Código Venda" GridFechamento.ColAlignment(1) = 1 GridFechamento.TextMatrix(0, 2) = "CódigoCli" GridFechamento.TextMatrix(0, 3) = "CódigoVen" GridFechamento.TextMatrix(0, 4) = "DataVenda" GridFechamento.TextMatrix(0, 5) = "CódigoPro" GridFechamento.TextMatrix(0, 6) = "Qtde" GridFechamento.TextMatrix(0, 7) = "Vlr Total" GridFechamento.TextMatrix(0, 8) = "FormaPagto" GridFechamento.TextMatrix(0, 9) = "QtdeParcelas" GridFechamento.TextMatrix(0, 10) = "VlrUnit" Else GridFechamento.RemoveItem (GridFechamento.Row) End If End If 'instrução para ver o que foi vendido Á Vista strSQL = "select Sum(ValorTotal) as soma from vendas where Datavenda = '" & mskData.Text & "' And FormaPagto = 'Á Vista'" Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then lblVlrTotal = FormatCurrency(TbCli![soma]) & "" Else End If lblTotal = FormatCurrency(TotVenda) 'instruçao para ver o saldo inicial da tabela abertura caixa strSQL = "select * from aberturacaixa where Dataabertura = '" & mskData.Text & "'" Saldoini = 0 Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then lblSaldoIni.Caption = FormatCurrency(TbCli![SaldoInicial]) & "" Saldoini = Saldoini + (TbCli![SaldoInicial]) End If 'instrução para ver a saída do caixa strSQL = "select Sum(Valor) As Soma from saidacaixa where Data = '" & mskData.Text & "'" Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then lblSaida.Caption = FormatCurrency(TbCli![soma]) & "" End If If lblVlrTotal.Caption = "" Then ElseIf lblSaida.Caption = "" Then lblTotalCaixa = FormatCurrency(lblVlrTotal + Saldoini) Else lblTotalCaixa = FormatCurrency(lblVlrTotal + Saldoini - FormatCurrency(TbCli![soma])) End If End Sub

eu quero fazer um select mas não to coseguindo strSQL = "select Sum(ValorTotal) as soma from vendas where Datavenda = '" & mskData.Text & "'" And FormaPagto = "Á Vista" eu quero buscar no banco nessa data só onde o valor do campo formapagto for igual= Á Vista consegui se servir pra alguém ai vai strSQL = "select Sum(ValorTotal) as soma from vendas where Datavenda = '" & mskData.Text & "' And FormaPagto = 'Á Vista'" Set TbCli = Con.Execute(strSQL) If Not TbCli.EOF Then lblVlrTotal = FormatCurrency(TbCli![soma]) & "" End If

muito obrigado !!!!!!!

é possível fazer Select em uma Grid? estou fazendo o fechamento do caixa e quero mostrar o total em caixa, só que pra isso eu preciso saber o que foi vendido Á Vista GridFechamento.TextMatrix(0, 8) = "FormaPagto" . tipo eu quero que mostre em um label a soma de todos os valores onde a forma de pagamento = Á vista