Livio Neiva

problema resolvido obrigado

eu crie um procedimento chamado QueyToEdits para ser usado no procedimentos de exibição, tipo para alterar. so que eu uso no formulario um Edit para exibir o codigo Fornecedor e um edit para exibir a descrição do fornecedor, so que nesse formulario usa um campo que é chave estrangeira codigo do fornecedor, mais não tem chave estrangeira para a descricao do fornecedor (sabendo você que fornecedor uma tabela) eu quero fazer com que esse procedimento abaixo consiga exibir a descrição do fornecedor??? como faço isso???? abaixo estar o procedimento procedure TF_Pagamentos.QueryToEdits; begin EditDoc.Text := F_DMExpress.Cds_Pagamento.FieldByName('NUMDOC').AsString; EditCodForn.Text := F_DMExpress.Cds_Pagamento.FieldByName('CODFORN').AsString; //EditForn.Text := F_DMExpress.Cds_Fornecedor.FieldByName('NOME').AsString; MaskEmissao.Text := F_DMExpress.Cds_Pagamento.FieldByName('EMISSAO').AsString; MaskVencim.Text := F_DMExpress.Cds_Pagamento.FieldByName('VENCIMENTO').AsString; EditValor.Text := F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').AsString; //EditValorJuros.Text := EditValorResult.Text := F_DMExpress.Cds_Pagamento.FieldByName('JURO').AsString; //EditMulta.Text := EditValorMulta.Text := F_DMExpress.Cds_Pagamento.FieldByName('MULTA').AsString; //EditDesc.Text := EditValorDesc.Text := F_DMExpress.Cds_Pagamento.FieldByName('DESCONTO').AsString; EditPago.Text := F_DMExpress.Cds_Pagamento.FieldByName('VLRPAGO').AsString; MaskPag.Text := F_DMExpress.Cds_Pagamento.FieldByName('PAGAMENTO').AsString; cbTipoPgto.Text := F_DMExpress.Cds_Pagamento.FieldByName('TIPOPGTO').AsString; EditConta.Text := F_DMExpress.Cds_Pagamento.FieldByName('CONTA').AsString; //EditNumConta.Text := EditCheque.Text := F_DMExpress.Cds_Pagamento.FieldByName('CHEQUE').AsString; MaskCheque.Text := F_DMExpress.Cds_Pagamento.FieldByName('DATACHEQUE').AsString; EditBanco.Text := F_DMExpress.Cds_Pagamento.FieldByName('BANCO').AsString; //EditNomeBanco.Text := EditNominal.Text := F_DMExpress.Cds_Pagamento.FieldByName('NOMINAL').AsString; end;

os valores em moeda no DBGrid não estão aparecendo de forma correta. ex. ta aparecendo assim 3502,64 eu quero que apareça 3.502,64 como faço isso??

Modulo 8 lição 07 4 - Ao entrar no form todos os dados são mostrados no DBGrid. quero mostrando apenas os dados referentes ao período atual, esse periodo é atraves de data Tentei fazer da seguinte maneira so não deu certo, onde sera que estar erro?? Var global data1,data2 : string; function TF_Pagamentos.DataToSql(sdata: string) : string; begin result := copy(sdata,7,4) + '/' + Copy(sdata,4,2) + '/' + Copy(sdata,1,2); end; tentei fazer no evento OnCreate no formulario Pagamento mais não deu certo. begin Data1 := DataToSQL(MaskPeriodo.Text); Data2 := DataToSQL(MaskA.Text); MaskPeriodo.Text := DateToStr(Date); MaskA.Text := DateToStr(Date); F_DMEXpress.Q_Pagamento.Active := False; F_DMEXpress.Q_Pagamento.SQL.Clear; F_DMExpress.Q_Pagamento.SQL.Add('SELECT VENCIMENTO FROM PAGAMENTO'); F_DMExpress.Q_Pagamento.SQL.Add('AND VENCIMENTO BETWEEN '+#39+ data1+#39+' and '+#39+data2+#39); F_DMEXpress.Q_Pagamento.Active := True; F_DMExpress.Cds_Pagamento.Refresh; end; ele onde estar erro??

Modulo 8 lição 07 formulario pagamento questão 1 gostaria de um procedimento que podesse importar de um a descriçao dos registro atraves dos codigos tipo assim; eu tenho dois edits(Edit1.Text e Edit2.Text) No Edit1 eu digito o codigo, e ao digitar o codigo a descrição dele parece no edit2 beleza..e obrigado a todos

resolvido obrigado

e a função desse codigo?? Perform(WM_NEXTDLGCTL,0,0);

qual é a função desse procedimento??? procedure TformClientes.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_RETURN) then Perform(WM_NEXTDLGCTL,0,0); end; valeu obrigado a todos

resolvido

Livio ..... procedure TForm1.Button1Click(Sender: TObject); var n: integer; s : string; begin n := 1; FmtStr(s, '%.3d', [n]); ComboBox1.Items.Append(s + ' - cartão'); end; abraço

Livio... !!!! abraço

Gostaria de um exmplo que se eu tenho três zeros (000) e eu insiro o inteiro 1 fique 001 o inteiro 10 fique 010 unsando o StringOfChar, como faria?? valeu obrigado a todos!!!

Eu gostaria da resposta feita num componente comboBox baseado no procedimento feito acima. sendo que se tem 000 e eu insiro um inteiro 1 fique 001 e eu insiro um inteiro 10 fique 010 so que no componente combobox, e não estou conseguindo fique como mostra o exemplo abaixo 001 - cartao 002 - cheque 003 - boleto 010 - fiado e me diga em qual evento eu deve fazer, OnCreate, OnExit...ect?? valeu e muito obrigado??

deu erro ao tentar ntrar nesse link que você pede para visualizar www.micrologos.com.br/mc_clienteservidor.zip não conseguir baixar nada

e onde eu devo locolar esse procedimento??? num button???

acho que não!!! Eu acredito que não aja erro como nome do banco de dados. Vou citar alguns exemplos. O banco de dados é MySQL 1. O Componente SQLConnection estar ativado, Conected  true. O componente SQLDataSet estar com a propriedade CommandType  CtTable a propriedade commandText localiza a tabela do banco de dados sem nenhum problema, ou seja o mesmo banco de dados que ele acusa que nome incorreto do banco de dados, Então eu tento conectar o componente e da a mensagem de erro que eu já informei ( Incorrect database name” ) Então eu faço o seguinte, usando o mesmo componente SQLDataSet, na propriedade Command Type eu altero para ctQuery e em CommandText eu digito a consulta select * from nome_tabela, na propriedade active eu ativo true. Dessa forma o componente se conecta numa boa. Se o problema fosse o nome do banco de dados como mostra a mensagem ele não se conectava de forma nenhuma. Fora que tenho outros componentes se conectando com mesmo componente que estar conectado com banco de dados, e não da erro nenhum. E ai nobres amigos, gostaria de resolver esse problema sendo que o componente SQLDataSet ficasse com a propriedade CommandType  CtTable. ??????

Pequena Duvida!!! Eum tenho um formulário chamado de Form1, no qual eu inserir um Tedit no mesmo, e faço um procedimento que, quando o curso estiver piscando dentro do TEdit, ao pressionar a tecla F8 ele chamara o form2. ate ai tudo bem. a minha duvida é?? Tem propriedade chamada de KeyPreview que terá de ser alterada para true, em qual formulário eu faço essa alteração??? no from1 ou no form2. valeu obrigado a todos

Ele deu essa mensagem de erro; ’50,00’ is not a valid integer value for Field vltotal que já era esperado!!! e agora faço o q??

Ola para todos!!! Eu estou estudando como fazer sistema usando dois tipos de banco de dados, MySQL5 e Firebird 1.5, também estou estudando varias forma de fazer a conexão com banco de dados, Zeos e DBExpress. Usando o tipo de conexão DBExpress eu inserir um componente SQLconnection para fazer a conexão com meu banco de dados, e inserir um SQLDataSet para acionar a tabela do banco de dados. Nas propriedades do SQLDataSet, fiz a conexão com componente que se conecta banco de dados (SQLConnection), depois na propriedade, CommandType alterei para o ctTable, na propriedade CommandText ele achou a tabela desejada, so que quando vou ativar na propriedade Active para true, ele da a seguinte mensagem de erro; Incorrect database name” Na apostila e no vídeo aula que estou seguindo ele se conecta corretamente. Se eu alterar na propriedade CommandType para CTQuery e em active alterar para true, a conexão é feita normalmente.... Só que quero usar no commandType é ctTable ???? Incorrect database name” Observação; No firebird a conexão é feita corretamente; como faço para corrigir??? por favor, gostaria da resposta bseado no que eu expliquei acima Valeu obrigado a todos

ola para todos!!! eu tenho uma tabela chamada tipoPgto(Tipo pagamento) e o componente q vai representa-la, é o TComboBox, então no evento OnCreate do form onde estar esse componente, eu fiz o seguinte procedimento procedure TF_Pagamentos.FormCreate(Sender: TObject); begin F_DMExpress.Cds_Pagamento.Active := True; F_DMExpress.T_TipoPgto.Active := True; F_DMExpress.T_TipoPgto.First; While not F_DMExpress.T_TipoPgto.Eof do begin cbtipopgto.Items.Add(F_DMExpress.T_TipoPgtoCODIGO.AsString + ' - ' + F_DMExpress.T_TipoPgtoDESCRICAO.AsString); F_DMExpress.T_TipoPgto.Next; end; end; e na linha de comando onde ta fazendo a gravação dados eu fiz esse procedimento?? F_DMExpress.Cds_Pagamento.FieldByName('TIPOPGTO').AsString := Copy(cbTipoPgto.Text,1,1); so que ta acontecendo o seguinte, o componente ComboBox ta exibindo da forma como mostra abaixo; 1 - cartao 2 - cheque 3 - boleto eu gostaria que ele ficasse assim; 01 - cartao 02 - cheque 03 - boleto e quero copiar para meu campo tipopgto os dois primeiro codigo(digito), no caso o 01,02,03.... como faço para resolver esse problema, por favor gostaria da resposta baseada nos procedimentos acima. valeu obrigado a todos!!!

alguém pode me mandar apostilas, textos,artigos falando de; StringOfChar COMO DEVO E ONDE USA-LA?? valeu...obrigado a todos!!!

problema resolvido

Foi feito essa alteração F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').Value := StrToFloat(EditValor.Text); O PROBLEMA CONTINUA COM A MESMA MENSSAGEM DE ERRO E TEM OUTRA MENSSAGEM TB. Project Aplicom.exe raised exception class EDatabaseError with message 'Unable to find record. No key specified'. process stopped. Use Step or Run to continue. o q vocês aconselham a fazer agora???

StringOfChar eu quero que no edit que estar recebendo os dados que são numericos, apareça 3 zero a esqueda do numero tipo assim 1 ficar 0001 dois ou três zero sa esquerda do numero. ou seja quando eu digitar o numero 1 fique 001 é +/- isso. por favor, me mande os link onde eu possa baixar melhor esse assunto para eu estudar. valeu obrgado!!!

O MEU CAMPO ('VLTOTAL' DA TABELA) É VALOR MONETÁRIO (0,00), NA MINHA TABELA ESTAR COMO VALOR MONETARIOS DOUBLE 9,2 ESTOU USANDO UM COMPONENTE EDITNUM PARA ENVIAR DADOS PARA TABELA E NO MEU PROCEDMENTO DE GRAVAÇAO DO EDIT PARA BANCO DE DADOS TA ASSIM F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').AsString := EditValor.Text; E NO MEU PROCEDIMENTO QUE ENVIA DO BANCO DE DADOS PARA EDITS ESTAR ASSIM EditValor.Text := F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').AsString; como faço para resolver??