Acessar o Zé Moleza
ou
O que você está pesquisando?
JWA ? Sistema de Controle de Ordens de Serviços
1879 visualizações
19608 palavras
Adicionar aos favoritos
Loading...- | |
'exclui 1o. item em branco
If intID > 0 Then hfx.RemoveItem hfx.FixedRows
SortCol .FindCol
lblTot = CStr(hfx.Rows - hfx.FixedRows)
End With
pic.Visible = False 'Oculta aviso
gPrinc.Seta Me
Me.Enabled = True
txt.SetFocus
Set gRst = Nothing
Ativo = True
Exit Sub
ErroX:
gPrinc.Seta Me
Me.Enabled = True
pic.Visible = False
gPrinc.ShowError Err, gErro, "Form_Activate", Me.Name
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Se teclar F8, alterna entre colunas
If KeyCode = vbKeyF8 Then
With hfx
If Val(.Tag) < (.Cols - 1) Then
SortCol (Val(.Tag) + 1)
Else
SortCol .FixedCols
End If
End With
End If
End Sub
Private Sub Form_Load()
Set fClsFind = New clsMain
If fClsFind.Maximized Then Me.WindowState = vbMaximized 'maximiza
Me.Caption = "Findit v. " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
With fClsFind
.Fields = "" 'limpa campos p/ exibição
.Save
End With
Set fClsFind = Nothing 'limpa classe fClsFindIt
Set gRst = Nothing
End Sub
Private Sub Form_Resize()
'redimensiona controles…
If intID > 0 Then hfx.RemoveItem hfx.FixedRows
SortCol .FindCol
lblTot = CStr(hfx.Rows - hfx.FixedRows)
End With
pic.Visible = False 'Oculta aviso
gPrinc.Seta Me
Me.Enabled = True
txt.SetFocus
Set gRst = Nothing
Ativo = True
Exit Sub
ErroX:
gPrinc.Seta Me
Me.Enabled = True
pic.Visible = False
gPrinc.ShowError Err, gErro, "Form_Activate", Me.Name
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Se teclar F8, alterna entre colunas
If KeyCode = vbKeyF8 Then
With hfx
If Val(.Tag) < (.Cols - 1) Then
SortCol (Val(.Tag) + 1)
Else
SortCol .FixedCols
End If
End With
End If
End Sub
Private Sub Form_Load()
Set fClsFind = New clsMain
If fClsFind.Maximized Then Me.WindowState = vbMaximized 'maximiza
Me.Caption = "Findit v. " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
With fClsFind
.Fields = "" 'limpa campos p/ exibição
.Save
End With
Set fClsFind = Nothing 'limpa classe fClsFindIt
Set gRst = Nothing
End Sub
Private Sub Form_Resize()
'redimensiona controles…
É esse o conteúdo que você precisa?
Faça seu login e saiba como ver o trabalho completo
Institucional
Saiba como fazer
Trabalhos Acadêmicos
O Zé Moleza facilita sua vida acadêmica ajudando você em suas pesquisas, e a economizar o seu tempo e o seu dinheiro nos seus trabalhos de faculdade. São mais de 26144 pesquisa acadêmicas entre elas, monografia, temas de monografias, TCC, modelos de monografias, trabalhos de universidades, resenha, Paper, Ensaio, Bibliografia, Trabalhos Escolares.
Dicas de como fazer: Capa de Monografia, capa de TCC, Regras da ABNT, como fazer monografia, como fazer Projeto Final, como fazer seminário, como fazer capas, referências bibliográficas, modelo de monografia.
O Zé Moleza NÃO faz a venda de monografia e É TOTALMENTE CONTRA a compra de monografia pronta e trabalhos prontos. O Zé Moleza NÃO auxilia a quem compra monografia, NÃO apóia a quem quer comprar Trabalhos Prontos, e NÃO APROVA a quem quer comprar TCC prontos, dando dicas de formatação, regras da ABNT, dando sugestões de temas para monografia, resumo de livros, projeto de pesquisa, projeto de mestrado, projeto de pós-graduação, trabalhos acadêmicos, incentivando o usuário a desenvolver por conta própria sua monografia.
