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...- | |
If fCls.Consultar(.Valor(0, 0)) Then ShowRec
End With
Set objFind = Nothing 'Salva as informações ao fechar a classe
Case "Excluir"
If fCls.Excluir(txtFields(0)) Then
gPrinc.CleanTab Me, MINTAB0, MAXTAB2 'limpa campos
gPrinc.LockTab Me, MINTAB0, MAXTAB2 'desabilita campos
fCls.Operacao = "V" 's/ registro
gPrinc.CheckButtons tbrCad, fCls 'ajusta botões conforme operação
End If
Case "Fechar"
Unload Me
End Select
Exit Sub
ErroX:
gPrinc.ShowError Err, gErro, "tbrCad_ButtonClick", Me.Name
End Sub
Private Sub txtFields_GotFocus(Index As Integer)
gPrinc.SelTxt txtFields(Index), True 'destaca
End Sub
Private Sub txtFields_LostFocus(Index As Integer)
gPrinc.UnselTxt txtFields(Index), True 'limpa destaque
End Sub
Formulário Cadastro de Funcionários
Option Explicit
Dim fCls As clsMain
'Min/Max Tab 0
Const MINTAB0 As Integer = 3
Const MAXTAB0 As Integer = 32
'Min/Max Tab 1
Const MINTAB1 As Integer = 33
Const MAXTAB1 As Integer = 64
'********************************************************************************
' Grupo 02 - set/2004
' Exibe todos os dados de acordo c/ a classe de produtos.
'********************************************************************************
Private Sub ShowRec()
With fCls
gPrinc.CleanTab Me, MINTAB0, MAXTAB1 'limpa campos
'identificação…
End With
Set objFind = Nothing 'Salva as informações ao fechar a classe
Case "Excluir"
If fCls.Excluir(txtFields(0)) Then
gPrinc.CleanTab Me, MINTAB0, MAXTAB2 'limpa campos
gPrinc.LockTab Me, MINTAB0, MAXTAB2 'desabilita campos
fCls.Operacao = "V" 's/ registro
gPrinc.CheckButtons tbrCad, fCls 'ajusta botões conforme operação
End If
Case "Fechar"
Unload Me
End Select
Exit Sub
ErroX:
gPrinc.ShowError Err, gErro, "tbrCad_ButtonClick", Me.Name
End Sub
Private Sub txtFields_GotFocus(Index As Integer)
gPrinc.SelTxt txtFields(Index), True 'destaca
End Sub
Private Sub txtFields_LostFocus(Index As Integer)
gPrinc.UnselTxt txtFields(Index), True 'limpa destaque
End Sub
Formulário Cadastro de Funcionários
Option Explicit
Dim fCls As clsMain
'Min/Max Tab 0
Const MINTAB0 As Integer = 3
Const MAXTAB0 As Integer = 32
'Min/Max Tab 1
Const MINTAB1 As Integer = 33
Const MAXTAB1 As Integer = 64
'********************************************************************************
' Grupo 02 - set/2004
' Exibe todos os dados de acordo c/ a classe de produtos.
'********************************************************************************
Private Sub ShowRec()
With fCls
gPrinc.CleanTab Me, MINTAB0, MAXTAB1 'limpa campos
'identificação…
É 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.
