Jhonas

Voce vai encontrar exemplos no delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr2 C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr3 ou estes http://br.geocities.com/profwagnerberto/delphibd260.htm http://pccorot15.obspm.fr/COROT-ETC/Files/QReport.pdf OBS: Este ultimo é uma apostila para o delphi3 mas aplica-se todo o procedimento às outras versões abraço

se tiver dúvidas em como usar o quickreport, veja estes posts http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=473 http://scriptbrasil.com.br/forum/index.php...;highlite=quick abraço

procedure TFormControle.BitBtnConsultarClick(Sender: TObject); begin DataModule2.ADODataSet1.Close; DataModule2.ADODataSet1.CommandText:='select * from alunos where MATRICULA = '+ EditMatricula.Text; DataModule2.ADODataSet1.Open; if not DataModule2.ADODataSet1.Eof then EditNomeAluno.Text:=DataModule2.ADODataSet1.FieldByName('NOME').AsString; end; Se voce usar o componente ADOQuery fica mais facil exemplo: http://www.activedelphi.com.br/print.php?sid=61 http://cachina.wordpress.com/2007/11/21/vi...elphi-adoquery/ http://www.mail-archive.com/delphi-br@yaho...r/msg26780.html abraço

Amigo ... favor ser mais específico quanto ao tipo de trabalho a ser desenvolvido e se voce tem interesse em adquirir os fontes desses trabalhos ou somente o programa executável. abraço

Se voce entendeu o exemplo, basta voce chamar a sua select em um botão e montar o relatório no quickreport se tiver dúvidas em como usar o quickreport, veja estes posts http://scriptbrasil.com.br/forum/index.php...;highlite=quick abraço

Livio ... não existem casas decimais a esquerda de um numero e sim a direita o que voce está querendo é .... preencher com zeros a esquerda de um numero exemplo //Inserindo zeros no inicio de um inteiro //Ex: Se o inteiro for 1 fica 0001. Se for 100, fica 0100. var s: string; begin FmtStr(s, '%.4d', [StrToInt(edit1.text)]); edit1.text := s; end; abraço

Observe que no DbGrid existe uma propriedade chamada DataSource ... e é através dela que voce atribuirá o link do DataSource da sua tabela exemplo Dbgrid1.DataSource := DS_Tabela; abraço

A sugestão é esta procedure TForm1.Button1Click(Sender: TObject); var cont : integer; begin With Dbgrid1 do Begin for cont:= 0 to Pred(SelectedRows.Count) do Begin Datasource.Dataset.Bookmark:= SelectedRows[cont]; . . . end; end; end; abraço

Se seu campo 'VLTOTAL' da tabela é valor monetário (0,00), porque está passando string ? faça a conversão antes F_DMExpress.Cds_Pagamento.FieldByName('VLTOTAL').Value := StrToFloat(EditValor.Text); abraço

Voce está usando o evento OnColExit ... o certo seria o evento OnKeyPress exemplo: Modifique para o seu uso procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (Key = #9) then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount) then begin // DtmLoja.QryLoja.Edit; case selectedindex of 1 : XGrava := XGrava + 1; 2 : DtmLoja.QryLojaNIVEL.Value := 'C'; 3 : begin // Sem valor fica na mesma celula if DtmLoja.QryLojaTIPO.Value = '' then selectedindex := 3 end; end; end else begin DtmLoja.QryLoja.Post; DtmLoja.QryLoja.Last; DtmLoja.QryLoja.Append; selectedindex := 0; end; end; abraço

Crie um campo Time na sua tabela, passe o valor para este campo e salve ... depois voce pode utiliza-lo em um relatório abraço

Veja estas informações http://www.htmlstaff.org/ver.php?id=1190 http://www.delphibr.com.br/artigos/mysql_delphi.php abraço

Veja se na propriedade DataSouce do DBText1 voce linkou o DataSource da sua tabela feito isso, voce verá que na propriedade DataField aparecerá todos os campos da sua tabela Mais informações http://www.geocities.com/WallStreet/Exchan...hi/delphi_6.htm abraço

De 2 clicks no componente ClientDataSet ... voce verá todos os campos de sua tabela selecione o campo que deseja formatar No object Inspector voce verá as propriedades DisplayFormat e EditFormat digite ,0.00 %;-,0.00 % abraço

Veja se assim funciona procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject); begin for a:=0 to DbgGrade.Columns.count-1 do begin if DbgGrade.SelectedIndex = 1 then begin if DbgGrade.Fields[1].AsString = '' then begin ShowMessage('Código da cor é Obrigatório !'); DbgGrade.SelectedIndex := 1; exit; end; ConsultaRegistros('Cores', 'Codigo, Descricao', 'Codigo =' + DbgGrade.Fields[01].AsString); if DtmLoja.QryLoja.RecordCount = 0 then begin DbgGrade.Fields[1].AsString := ''; ShowMessage('Cor não Cadastrada !'); DbgGrade.SelectedIndex := 1; end else begin DbgGrade.Fields[1].AsString := StrZero(LeDados('Codigo'), 3); DbgGrade.Fields[2].AsString := LeDados('Descricao'); end; end; end; end; abraço

Procure no forum de delphi http://scriptbrasil.com.br/forum/index.php...st&p=545622 abraço

Veja neste endereço... tem um programa com fontes de controle de estoque http://www.apostilar.com.br/apostilas.php?...3&subcat=60 Na verdade não poderia se sua venda for a vista e com entrega imediata... mas poderia ser negativa se a venda for a prazo e a entrega para alguns dias ( neste caso haverá tempo hábil para a reposição dos produtos no estoque) abraço

Veja nestes endereços, vai encontrar suas respostas Ciclo de Vida de um Sistema http://www.geocities.com/puc3ware/ciclo_de_vida_jones.html http://www.geocities.com/pucpr_bas2000/ http://www2.dem.inpe.br/ijar/essencial01.doc http://www2.dem.inpe.br/ijar/CicoloVidaSoftPrado.html http://gabriel.sg.urcamp.tche.br/eduardo/P...tila_Parte1.doc http://br.answers.yahoo.com/question/index...03020735AA1z2jV Programação estruturada http://www.unilasalle.org/professores/arqu..._ANALISE_1a.pdf http://www.provar.ufpr.br/prog_tecsistinformacao.html http://www.dca.fee.unicamp.br/cursos/EA876...HTML/node7.html abraço

Se o valor a ser passado vir de outra rotina ou procedure, então voce deve utilizar variáveis publicas .... se voce postar o seu código fica mais facil alguém lhe ajudar abraço

Suponha que voce tenha uma tabela onde tenha cadastrado fabricantes de tinta então voce teria na tabela ( PRODUTOS ) ID----------FABRICANTE----------MARCA--------COR 123---------SULVINIL--------------MARVEL-------AZUL 222---------BRASIL TINTAS-------BRASIL-------AZUL 333---------NOVA COR------------NOVA---------VERMELHO 444---------NOVA COR------------NOVA----------AZUL Select * from Produtos where COR = 'AZUL' o resultado será todos os registros que contem a cor azul abraço

Veja isto ajuda http://scriptbrasil.com.br/forum/index.php...st&p=475952 http://scriptbrasil.com.br/forum/index.php...st&p=476041 http://www.devmedia.com.br/articles/viewcomp.asp?comp=3193 http://www.inf.ufsc.br/~prass/artigos/artigo07.html http://forum.imasters.uol.com.br/lofiversi...hp/t293800.html http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=731 abraço

Primeiro faça uma busca no forum e veja se encontra algo a respeito http://scriptbrasil.com.br/forum/index.php...ghlite=tabulado abraço

Veja se na propriedade DataSet do quickreport foi colocado a referencia ao DataSource da sua Tabela .... se não estiver o relatório mostrará sempre e somente o primeiro registro abraço

O erro é : Dados truncados para coluna 'vltotal' na linha 1 verifique o conteudo deste campo se é string ou integer. abraço

PlotChart para o delphi 2007 http://www.bestsoftware4download.com/softw...d-akwlvuls.html Outros http://www.freedownloadscenter.com/Best/plot-chart-free.html http://wareseeker.com/free-plot-chart/ abraço