Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. é, então, acho que não funciona assim a atribuicao. tenta desse jeito: CrystalReport1.ParameterFields(1).AddCurrentValue (codigo)
  2. isso que eu te passei so funciona se você selecionar a opcao de Basic Syntax la em cima (sendo que o normal é Crystal Syntax). o nome do campo no design você pode por qual quiser. mas no codigo, Formula, no Basic Syntax é o nome da variavel que vai guardar o valor a ser exibido no relatorio. obrigatoriamente você tem que passar o valor pra ela. ou seja, ela tem que ter em toda formula Basic Syntax.
  3. kuroi

    Formulario Sem Nome

    como eu faco, com o imagebutton?? o visual studio acrescenta automaticamente border="0", mas o w3c diz que there is no attribute "border"., o que fazer??
  4. se não encontrou o usuario, não tem nada no rsLogin. o que significa que vai dar erro msmo se você tentar acessar algum campo nele. acho que assim seria o certo: <% set conexao = server.createObject("adodb.connection") conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & server.MapPath("dados/bdl.mdb") sql = "select * from login where login = '"&request.form("login")&"' and senha = '"&request.form("senha")&"'" set rsLogin = conexao.execute(sql) if not rsLogin.eof then Login = rsLogin("login") Senha = rsLogin("senha") Session("login")=TRUE Session("senha")=TRUE Session.Timeout = 120 Response.Redirect "fotos.asp" else Session("login")=False Session("senha")=False Response.Redirect "logar.asp" end if conexao.close rsLogin.close set conexao = nothing set rsLogin = nothing %>[/code]
  5. "& codigo &" entre aspas é uma string. o que você quer acho que seria isso: CrystalReport1.ParameterFields("barras") = codigo outra coisa, pelo que lembro ele não aceita o nome do parametro como indice e sim o numero. não tenho certeza, mas se o codigo de cima não funcionar, tente esse: CrystalReport1.ParameterFields(1) = codigo
  6. também não entendi direito. você quer uma listagem de todas as maquinas?? e quando ele selcionar a maquina, mostrar todas as producoes dela?? como esta o seu relacionamento?? uma maquina pode ter varias producoes ou uma producao pode ter varias maquinas?? acho que o esquema era fazer dois grids. quando ele selecionasse a maquina no grid de cima, mostrava os dados da producao no grid debaxo. nunca vi esquema de grid hierarquico, talvez se você encontrasse um componente que fizesse isso...
  7. acho que já saiu isso no forum, fez uma busca??
  8. ponha o timer e na propriedade Interval dele digite 1000 (1000 milissegundos = 1 segundo). ai ponha o seu codigo no evento Timer do Timer: Private Sub Timer1_Timer Dim hPrinter As Long, lNeeded As Long, lReturned As Long Dim lJobCount As Long OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter Text1.Text = CStr(lJobCount) If Text1.Text = 1 Then Form2.Show End If End Sub[/code]
  9. tópico fechado, já que foi feito outro pra mesma coisa: http://scriptbrasil.com.br/forum/index.php?showtopic=86511
  10. kuroi

    Formato Ddmmaaaa

    o problema está na hora da conversao do access pro mysql?? tenta por como texto no access e ai importar a tabela pro mysql. no mysql você transforma o campo de volta pra data.
  11. qual o codigo que você estava usando?
  12. esse negocio do F5 não funciona não. acho que ele faz o random so quando você abre a primera vez a imagem.
  13. kuroi

    Retirar Acentos

    acho que o jeito msmo é fazer um replace pra cada. mas já saiu um tópico sobre isso aqui no forum, da uma procurada
  14. kuroi

    Resultado No Datagrid

    não entendi o que seria justify?? tipo style="text-align: justify;"?? mas essa tabela que você passou, nem tem isso, ele não vai respeitar mesmo
  15. então no access, que eu me lembre tem o DateDiff sim e funciona do mesmo jeito. pelo menos da versao 2002 e pra frente é certeza. então, a formula, pra mostrar em format hora é essa (em Basic Syntax): Formula = CStr (Round (Int ({@Diferenca})), 0) & ":" & _ IIf (Len (CStr (Round (6 * CDbl (Right (CStr ({@Diferenca}), 2)) / 10), 0)) = 1, "0" & _ CStr (Round (6 * CDbl (Right (CStr ({@Diferenca}) ,2)) / 10), 0), CStr (Round (6 * CDbl (Right (CStr ({@Diferenca}), 2)) / 10), 0))[/code] levando em conta que o calculo anterior que a gente discutiu nos outros posts esta guaradado num campo formula chamado @Diferenca, a formula seria essa. no meu caso, os campos numericos tavam configurados pra duas casas decimais. se no seu caso tiver configurado diferente, você vai ter que adaptar a formula.
  16. é so você criar dois campos parametros. pra passar via codigo depende do componente que você usa. se for o Crystal Reports Control eu não lembro agora como fazer, mas se for esse o seu caso posso vê se consigo descobrir. se for a biblioteca Crystal Reports Design Runtime Library, seria assim: crRep.ParameterFields(1).AddCurrentValue (Valor) onde o indice um se refere ao primero campo que você tem. veja que você pode mudar a ordem deles clicando numa flechina pra cima e pra baxo no design do crystal. esse negocio de 45 e 67 não entendi direito. é tipo uma string e o cara vai determinar as posicoes que ele quer?? é so criar dois parameter fields e usar a funcao mid.
  17. kuroi

    Imagens

    quando ele alterar o path do dir, você altera também no fil: Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub[/code] ai quando ele clicar numa imagem do fil, você carrega no img: [code]Private Sub File1_Click() Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) End Sub o melhor é você filtrar o FileListBox pra mostrar so imagens. na propriedade Pattern dele, ponha "*.gif;*.jpg;*.bmp", e outras extensoes que o Image possa aceitar. pra por a foto na outra janela, crie uma variavel publica num module pra guardar o caminho da imagem. ai no clique do seu botao, você poe o caminho da imagem nessa variavel. ai quando chegar no outro form, é so dar o LoadPicture eu mostrei acima.
  18. como assim, você tenta abrir via codigo vb?? e qual o codigo que você usa??
  19. kuroi

    Tooltiptext

    como por um tooltiptext num botao no C# 2005?? pelo que vi tenho que o usar o controle toolTip, mas como associar ele com um botao??
  20. na verdade, seu problema não tem nd a ver com esse, mas acho que o você quer é o seguinte: no evento GotFocus do maskedbox, ponha o seguinte codigo: MaskedBox1.SelStart = 0 MaskedBox1.SelLength = Len(MaskedBox1.Text)[/code]
  21. não sei se funciona com o Crystal Reports Control. eu costumo usar a dll Crystal Reports Design Runtime Library pra exibi o report no crviewer, mas não sei se ela existe na sua versao, da uma olhada.
  22. hum?? não to entendendo... você está usando asp ou visual basic?? você quer fazer uma pagina que pode ser aberta no browser e que abra o arquivo sem perguntar antes?? bom isso é impossivel, porque isso vem do proprio navegador. qualquer arquivo que não seja uma pagina (.htm, .asp, .php, etc) ou algumas extensoes especificas dependendo do navegador (.xls no ie, por exempo) ele vai abrir a janelinha do download. agora em visual basic, você poderia usar shell: Shell "C:\arquivos de programa\ACDSee\ACDSee.exe"
  23. antes de fazer a pesquisa ponha o frame visivel, e depois que terminar, invisivel. com a propriedade Visible do frame
  24. o esquema é você pegar a parte decimal, e multiplicar por 60. ai você poe a parte intera numa variavel e os minutos em otra. mas o crystal é meio chato pra mexer com numero, ele poe casas decimais e tal quando você converte pra string. mas já tive que fazer isso uma vez, e tenho a formula em casa, guenta que ate o final de semana, eu posto aqui se você não conseguir.
×
×
  • Criar Novo...