Jhowcs
-
Total de itens
56 -
Registro em
-
Última visita
Posts postados por Jhowcs
-
-
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; -
Não, é um AdoTable da palheta ADO.
Nessa situação o banco de dados é o Access.
Mas utilizo também para Sql Server.
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.
-
Oi, uso esse código. Deve ser o que precisa. Um abraço.
procedure TFrmVendas.btn_IncluirClick(Sender: TObject);
var
cod : integer;
begin
vendas.last;
cod := vendas.fieldbyname('NumeroPedido').asinteger;
vendas.insert;
vendas.fieldbyname('NumeroPedido').asinteger := cod + 1;
vendas.fieldbyname('Operação').asinteger := 2;
vendas.fieldbyname('Tp').asinteger := 1;
Dt.value := date;
DBLookupComboBox1.setfocus;
vendas.edit;
end;
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"); } -
Qual sistema operacional você utiliza?
Caso seja windows pode usar o Dev http://www.bloodshed.net/devcpp.html
Caso seja linux uso o editor emacs e geração gcc.
Estou usando o VISTA 32bits
Então utilize o dev mesmo, ele compila com "gcc" para windows.
onde acho uma apostila desse Dev C++
-
Qual sistema operacional você utiliza?
Caso seja windows pode usar o Dev http://www.bloodshed.net/devcpp.html
Caso seja linux uso o editor emacs e geração gcc.
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...
-
Quando você pressiona o mouse é como se você chamasse um evento, certo ?
Então, o que você tem que fazer é mudar o KeyPreview do formulário para true e no evento Form_KeyPress e verificar se o código da tecla equivale ao do Enter (se não me engano KeyCode 32, depois confirma aí)
Dá uma olhada naquele outro tópico seu aí: http://scriptbrasil.com.br/forum/index.php?showtopic=130769
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É 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...
-
sim, e qual a sua duvida?
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 vaieu quero fazer um select mas não to coseguindostrSQL = "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= Á VistastrSQL = "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
-
Só mais uma coisa, para ajudar a tornar sua programação mais "limpa" !
Existem uns "else" desnecessários no meio de seu código, além de que você poderia deixar todos os Select Case juntos !
Afinal, é para isso que eles servem !
Comparam valores de forma mais prática
Ao deixar seu código dessa forma você não está aproveitando todo o potencial deles !
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 112 If cmdPesquisar.Enabled Then cmdPesquisar_Click End If Case 113 If cmdGravar.Enabled Then cmdGravar_Click End If Case 114 If cmdCancelar.Enabled Then cmdCancelar_Click End If Case 115 If cmdApagar.Enabled Then cmdApagar_Click End If Case 27 If cmdSair.Enabled Then cmdSair_Click End If End Select End Sub
Mas isso é só pra melhorar a leitura do programa, não irá fazer muita diferença no funcionamento...
Qualquer coisa posta aí
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
Mater valores após Append
em Delphi, Kylix
Postado
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