Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. kuroi

    metatraffic

    sobre asp, poste na sala de asp.
  2. se é maskedbox, o melhor é simplesmente adicionar a mascara "###.###.###-##" no campo mask e ai ela já fica automatico, não precisa usar o format.
  3. acho q ele não esta passando pela sub main e a conexao não esta sendo aberta. seu projeto esta mesmo iniciando na sub main??
  4. não entendi direito o problema. já tentou, no crystal reports com o seu .rpt aberto, clicar em menu Database -> Verify Database??
  5. pra por o tempo no textbox, é simplesmente isso: Text1.Text = Time pra calcular a diferenca em segundos, use o DateDiff: Text3.Text = DateDiff("s", Text1.Text, Text2.Text)
  6. kuroi

    Problema com listview

    ponha assim: lst.SubItems(i) = rs(i) & ""
  7. porque você não cria um campo a mais na tabela pra identificar se esta ativo ou não??
  8. você quer q assim q ele abra o .exe, duas instancias sejam abertas?? você pode chamar a propria aplicacao com um shell: Shell App.Path & "\" & App.EXEName & ".exe" mas se você puser simplesmente esse codigo, ele vai ficar abrindo seu sistema infinitamente. pra corrigir isso, você poderia gravar em um arquivo texto no diretorio um flag de q a aplicacao já foi aberta duas vezes.
  9. é verdade, pra resolver você deve mudar o numero q multiplica o Rnd de acordo com max. se o max for um numero de 1 digito, ponha 10, se for um numero de 2 digitos, ponha 100, se for um numero de 3 digitos ponha 1000 e assim por diante. no caso do 55, multiplique por 100 e veja se não resolve: Dim Min As Integer Dim Max As Integer Randomize Min = 1 Max = 55 Resultado = Min + (Rnd * 100) Mod (Max - Min + 1)[/code]
  10. hum?? isso aqui não é codigo pra chamar como modal... mas é se estiver como modal, ele minimiza tudo mesmo. mas seila, não tem muito sentido você quere mostar o form principal, se a pessoa não vai poder mexer nele. mas de qualquer modo, encontrei uma forma de resolver usando a api SetForegroundWindow. primero declare essas duas funcoes: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long[/code] nos seus forms de cadastro ponha esse codigo: [code]Private Sub Form_Resize() If Me.WindowState = 1 Then Dim hWindow As Long hWindow = 0 Do While hWindow = 0 hWindow = FindWindow(vbNullString, principal.Caption) Loop SetForegroundWindow hWindow End If End Sub EDITADO: nossa, agora vi q fiz o contrario do q você queria, fiz pra mostrar o form principal quando você minimizar o de cadastro. mas então não entendi o q você quer. se o form principal, chama o de cadastro como modal, você não consegue minimizar o principal enquanto o form de cadastro estiver aberto.
  11. hum, esqueci q ele poe o formato quando converte. isso deve resolver: Dim i As Number Dim x As String x = CStr({Comando.cep}) x = Replace(x, ".", "") x = Replace(x, ",00", "") For i = Len(x) To 8 x = "0" & x Next formula = x[/code]
  12. um exemplo: Private Sub Drive1_Change() On Error GoTo erro Dir1.Path = Drive1.Drive erro: If Err.Number = 68 Then MsgBox "Drive vazio." End Sub[/code]
  13. calma mano, não é tão rapido assim. tenta isso: Select * From Tabela Where NUM_VENDA In (Select Max(NUM_VENDA) From Tabela Group By CODIGO)
  14. kuroi

    usuários on line

    isso depende da linguagem. se for no asp, você pode fazer isso pelo global.asa e gravar no banco como o raphael falou. no php, não tem como saber quando ele fecha a sessao, mas você gravar no banco a ultima movimentacao dele, e contar um tempo. exemplo, depois 30 minutos q o cara fica sem abrir nenhuma pagina, você considera q ele esta offline.
  15. o seu campo deve estar como numerico no banco de dados, por isso os zeros somem. devia tar como texto. pra resolver, faca um campo formula assim (em basic syntax): Dim i As Number Dim x As String x = CStr({Tabela.SeuCampoCEP}) For i = Len(x) To 8 x = '0' & x Next Formula = x[/code]
  16. olha q você ta chamando o executa duas vezes. aqui: Conex.Execute(MM_editQuery) e aqui: MM_editCmd.Execute chame somente uma vez.
  17. hehe esse eu vo ficar devendo, não sei resolver não. não tenho um modelo, mas não deve ser complicado de fazer. acho q você pode por um print das telas (ou um desenho delas) e explicar o q faz cada campo e cada botao. a parte da atualizacao, é simples, é so escrever mesmo quais foram as alteracoes.
  18. você pode gravar o arquivo somente com esse codigo, não precisa de mais nd. não to com o dev aqui agora, mas acho q você vai ter q mudar as configuracoes pra poder pegar o include no diretorio q você ta (não lembro agora se por default ele pega includes no mesmo diretorio do arquivo), se tiver dificuldade nisso, avisa ai, q depois eu vejo pra você. a sintaxe do include é a mesma pros headers normais: #include <nome_do_arquivo.h> eu costumo salvar os arquivos q vou usar como include com a extensao .h, mas acho q não precisa ser.
  19. eu costumo salvar os arquivos separadamente e depois chama-los com include.
  20. acontece q todo array é um pontero. e como o pontero já aponta direto pra posicao de memoria, não é necessario usar o &. o & usamos apenas pra pegar o endereco de variaveis comuns.
  21. kuroi

    Comparação de datas

    acho q o melhor é sempre trabalhar com data no formato YYYY-MM-DD em qualquer banco de dados, essa funciona sempre pra mim. não sei se faz diferenca, mas eu sempre ponho tracinho (-) mesmo no lugar de barra (/).
  22. hehe o jonathan esqueceu de mover
  23. estranho isso, os forms estao em mdi, ou são mostrados normalmente?? algum form esta sendo mostrado como modal?? de teste, eu abri um projeto em branco, adicionei dois formularios, fiz um chamar o outro e quando minimizo um, o otro continua la. faca esse teste tb pra ver, não sei como ta acontecendo isso com você.
×
×
  • Criar Novo...