kuroi

acho q no botao mesmo não tem como fazer. mas você pode usar um objeto Image e ir trocando as figuras de acordo com os cliques.

opa, no meu codigo de antes tinha um erro, o certo é abrir o tr antes do tb. mas tenta, na hora de escrever os titulos, jogar os meses num array. tipo assim: while($data = mysql_fetch_row($qry)){ $mes = substr($data[0],5,2); $a[cont] = $mes; $cont++; print "<td width=\"95\" align=\"center\" valign=\"middle\" class=\"titulo\">" . NomeMes($mes) . "$cont</td>"; }[/code] ai na hora de mostrar os titulos, você pode adaptar no codigo q eu passei. tipo assim: [code]$qry0 = mysql_query("SELECT r.receita, Last_Day(c.data) As MesAno FROM credito c, receita r WHERE r.cod_receita = c.cod_receita AND c.data BETWEEN '$dt_inicio' AND '$dt_fim' GROUP BY Last_Day(c.data) ORDER BY r.receita, Last_Day(c.data)"); $i = 1; while($result = mysql_fetch_row($qry0)){ $mes = substr($result[1],5,2); if ($i == 1) print "<tr>"; if ($mes == $a[$i - 1]) { print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; } else { print "<td>&nbsp;</td>"; if ($i == 1) { if ($mes == $a[$i]) { print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; } else { print "<td>&nbsp;</td>"; } $i++; } if ($i == 2) { if ($mes == $a[$i]) { print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; } else { print "<td>&nbsp;</td>"; } } } $i++; if ($i == 3) { print "</tr>"; $i = 1; } } veja se resolve ai pra você.

multiplique por 100.

entendi, então vou alterar o campo pra timestamp. valeu micheus, denis.

nelma, tenta fazer um contador aqui (não abra o tr antes do while): $qry0 = mysql_query("SELECT r.receita, Last_Day(c.data) As MesAno FROM credito c, receita r WHERE r.cod_receita = c.cod_receita AND c.data BETWEEN '$dt_inicio' AND '$dt_fim' GROUP BY Last_Day(c.data) ORDER BY r.receita, Last_Day(c.data)"); $i = 1; while($result = mysql_fetch_row($qry0)){ print "<td width=\"300\" align=\"left\" valign=\"middle\" class=\"fonte\">" .$result[0] . "</td>"; if ($i == 1) print "<tr>"; $i++; if ($i == 3) { print "</tr>"; $i = 1; } }[/code] veja se funciona.

deve ser uma coisa tipo assim: Select Sum(Case data When GetDate() Then 1 Else 0 End) * 100 / Count(*) From Tabela

cara acho q não da não. como assim, você quer q o relatorio acesse o banco de dados e seja gerado a cada vez q o usuario pedir?? sem instalar nd, impossivel, você pelo menos teria q passar as dlls dos componentes Crystal q o seu programa estiver usando.

você quer passar pra um campo formula?? se for, tente assim: Rpt.FormulaFields.Item(1).Text = stringA ou simplesmente: Rpt.FormulaFields.Item(1).Text = "January" mas acho q o melhor seria você criar um campo parametro no .rpt. ai você passa assim: Rpt.ParameterFields(1).AddCurrentValue (stringA)

nunca usei Oracle, mas pelo menos as procedures do SQL sempre chamei só escrevendo o nome dela e passando os parametros. exemplo: cn.Execute "SP_INSERT_USER_TEST param1, param2, param3, param4" mas tb pode ser pelo objeto Command (caso você esteja usando ADO). você declara o objeto command, e na propriedade CommandType, você seta adCmdStoredProc. ai você pode acessar os parametros pela propriedade Parameters. pode fazer uma busca por ai q devem ter exemplos. qualquer problema, poste.

é mas você teria q pegar pela linha FrmCmp.MSFlexGrid.Rows - 1 em todas as colunas. veja q você ta pegando só na coluna 0, por isso preenche só a primeira. tipo você teria q fazer assim: FrmCmp.MSFlexGrid.TextMatrix(FrmCmp.MSFlexGrid.Rows - 1, x) = GrdEstoque.Text pra todas as colunas (onde x é o numero da coluna. veja q no codigo acima, você esta pegando a linha 1 das demais colunas:

não abre?? tipo, você não ta conseguindo instalar?? o q acontece quando você tenta instalar?? talvez você precise baixar o .NET Framework separado, se for esse o caso, procure no google tb pelo download do .NET Framework 3.0. qta as tabelas, acho q o q você quer é tipo o componente DataGrid q você vai pode ver depois q conseguir instalar.

bom, primeiro q recomendo q você va atras do Visual Basic 6 em vez do 5, já q o 5 é muito antigo. mas realmente o unico jeito é você comprar a licenca mesmo. logico q tem outras formas mas esse tipo de coisa é contra a lei e não pode ser discutido aqui no forum. mas tem o Visual Basic 2005 Express Edition q você pode baixar q é free. mas note q a ultima versao do Visual Basic é a 6. depois disso, as versoes lancadas a partir de 2002, não são mais Visual Basic, e sim Visual Basic.NET q é uma linguagem diferente, com uma sintaxe semelhante. bom, o Visual Basic 2005, como eu disse, não é o Visual Basic, e sim uma versão evoluida dele. você comecar a estudar por ele tem suas vantagens mais tb desvantagens. vantagens: - é uma linguagem bem mais atual bem mais compativel com tecnologias mais novas. - atualmente o numero de gente q conhece não é tão gde quanto o numero de programadores VB6, ou seja, você teria um conhecimento a mais do q a maioria dos programadores. - costuma-se pagar mais pra programadores .NET (principalmente Asp.NET) do q pra programadores de Visual Basic ou de Asp classico. - ela é free. desvatagens: - ainda o numero de sistemas Visual Basic 6 no mercado é muito gde, já q os sistemas .NET exigem maquinas mas potentes, e o Visual Basic 6 você consegue rodar ate em Windows 98 (coisa q você encontra bastante em empresas por ai). ou seja, vagas pra Visual Basic tem de mte (e tb mta concorrencia), mas vagas pra .NET, não tem tanto assim, mas esse numero vem crescendo bastante nos ultimos tempos. programadores .NET tb tão crescendo o numero, mas não é tão facil achar quem programe bem de verdade, isso por causa desse proximo item: - .NET é bem mais dificil do q Visual Basic 6, principalmente pra iniciantes. o Visual Basic 6 é realmente uma linguagem bem facil de entender, e por isso mesmo mta gente comeca por ela. se você é iniciante, pode ter dificuldades no .NET. se não me engano você tb comentou no otro tópico q comprou um livro de Visual Basic 6. esse livro não te ajudaria em nada no .NET. bom, sei q você procura pelo Visual Basic classico, mas tai a dica do .NET, mesmo q não seja seu interesse de imediato, seria legal ir atras mas pra frente. se quiser baixar o Visual Basic 2005 Express. procure no Google por Visual Basic Express Edition. alias, tava esquecendo, já saiu a versao 2008, a 2005 nem sei se ainda tem pra dowload. não conheco a 2008, mas ouvi dizer q é bem melhor, alem do mais, vale mais a pena por ser mais recente, pode baixar a 2008. bom, qualquer duvida poste ai. se conseguir encontrar o VB6 e tiver duvidas na programacao pode postar ai tb. se optar pelo 2008 e tiver duvidas, poste nessa sala aqui: http://scriptbrasil.com.br/forum/index.php?showforum=49

tenho uma coluna DateTime e toda vez q um registro for incluido, nela sera gravada a data atual. tem como por Current_Date no Default Value pra eu não ter q ficar pondo a data na string de Insert?? se eu escrever la Current_Date ele não aceita. se eu faco pelo Table Editor ele entende Current_Date como a string. é possivel fazer isso??

no seu ponto de vista, o q seria "melhorar" esse ponto??

tenta assim: If CDbl(totalCompra) > CDbl(saldo) Then

mas note q no TextMatrix você ta passando sempre 1 na linha. por isso ele vai alterar sempre a linha 1. pegue pela qtde de linhas: FrmCmp.MSFlexGrid.TextMatrix(FrmCmp.MSFlexGrid.Rows - 1, 0) = GrdEstoque.Text

veja aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=112540

você pode fazer um while pra ir lendo os registros. e um contador para as colunas. ai você ve quando mudar a receita, você reseta o contador. ai você compara o $qry0 com o $qry. quando for pra mostrar janeiro, se não tiver a receita desse mes, você poe um td em branco.

cara isso q você ta usando é o VBA do Excel (temos uma secao separada para isso, to movendo o tópico pra la). se esse livro q você usa é do Visual Basic 6, ele não vai te ajudar mta coisa no VBA.

você pode fazer uma function pra isso. tipo assim: function NomeMes($mes) { if ($mes == 1) return "janeiro"; if ($mes == 2) return "fevereiro"; .... .... if ($mes == 12) return "dezembro"; }[/code] ai pra mostrar você pega da funcao. tipo assim: [code]print "<td width=\"95\" align=\"center\" valign=\"middle\" class=\"titulo\">" . NomeMes($mes_a) . "</td>"; como não sei direito como esta seu banco de dados, isso q eu vou passar pode não dar muito certo, mas acho q você devia fazer tipo assim: $qry0 = mysql_query("SELECT SUM(valor_credito), r.receita Last_Day(c.data) As MesAno FROM credito c, receita r WHERE r.cod_receita = c.cod_receita AND c.data BETWEEN '$dt_inicio' AND '$dt_fim' GROUP BY r.receita, Last_Day(c.data) ORDER BY r.receita, Last_Day(c.data)"); dessa forma, você vai ter tres colunas no seu select. a primeira tras a soma, a segunda tras a receita e a terceira tras a data considerando apenas mes e ano (sendo q o dia vai ser o ultimo do mes, mas isso não vai fazer a minima diferenca pro seu codigo). ai levando em conta q cada receita aparece todo mes, você simplesmente faz um for de 1 a 3 e vai pondo os valores no td. quando chegar em tres, você abre e fecha o tr e reseta o contador (pra 1 de novo, ate chegar em 3 e assim por diante). mas caso algumas receitas não tenham lancamentos em todos os meses, então você vai ter q checar os meses pra exibir nas colunas certas. nesse caso de um toque q eu te passo umas ideias de codigos. veja se entendeu ai, qualquer coisa poste.

ta agora entendi, mas o resultado q você passou ta errado, você passou a criptografia de "to fudido", esqueceu do "eu". deixa eu ver se entendi, o caractere "a" pode ser transformado em 01, 02, 03 ou 04 e você quer transformar em algum deles aleatoriamente?? pra pegar o numero random, use a funcao Rnd(), tem exemplos por ai, mesmo aqui no forum. qualquer duvida poste.

pra tratar os caracteres é só fazer um For e ir dando Mid(). tipo assim: For i = 1 To Len(Text1.Text) MsgBox "A " & i & "ª letra é " & Mid(Text1.Text, i, 1) Next[/code] é só isso a sua duvida?? ou é na hora de criptografar?? mas como assim você quer pegar randomicamente?? e não entendi porque o resultado fica: "95 46 53 10 34 81 31 45"

e você conseguiu montar o cabecalho?? os dados apareceram certinho?? tipo, onde você chama essa funcao?? você chama ela pra cada mes?? note q você não deveria agrupar pela data, senao ele vai somar pra cada dia (exemplo, você vai ter a soma do dia 01/01, depois a soma de 02/01 e assim por dianta). acho q você devia tirar a data do Group By. mas tipo, queria saber... o q você passa nos parametros $dt_inicio e $dt_fim?? você passa apenas o mes ou o trimestre todo?? porque se você passar de janeiro a marco por exemplo, ele vai somar o periodo todo, não vai agrupar por mes. ai você não vai ter como mostrar janeiro, feveiro e marco. por isso, sugeri o Last_Day(). nossa acho q eu to mais complicando do q ajudando, mas é tb não to entendendo direito como você ta fazendo.

hum, mas se você agrupou só por receita, e vai somar todos os meses do select (de acordo com o Where), ele vai somar os tres meses juntos. como você vai fazer pra mostrar a soma de cada um dos tres meses?? acho q o melhor seria você usar as funcoes de data e fazer um campo calculado q considerasse somente mes e ano. o MySql tem a funcao Last_Day() q vai selecionar todas as datas com o ultimo dia do mes. assim você poderia agrupar mensalmente.

acho melhor fazer o cabecalho antes, já q os meses valem pra todas as receitas não?? mas você pode ter problemas se alguma receita não aparecer em algum mes, isso ocorre no seu banco?? outra coisa, esse agrupamente só vai agrupar por mes se todas as datas forem do mesmo dia. porque por exemplo, se você tem a data 01/01/2000 e a data 02/01/2000 as duas são do mesmo mes, mas como são dias diferentes, vai ser agrupadas separadamente. ai nesse caso você teria q adaptar seu select.