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...- | |
Set fCls = New clsMain
fCls.Operacao = "V"
gPrinc.CenterForm Me 'centraliza form
gPrinc.CheckButtons tbrCad, fCls
gPrinc.CleanTab Me, MINTAB0, MAXTAB1 'limpa todos os campos
gPrinc.LockTab Me, MINTAB0, MAXTAB1 'trava todos os campos
ssTab.Tab = 0
'carrega combos
gPrinc.SetList cboEstado, "UF, UF", "Estados", "", "UF", False
End Sub
Private Sub Form_Resize()
shpTop.Width = Me.Width 'ajusta shape título
End Sub
Private Sub ssTab_Click(PreviousTab As Integer)
'se não estiver em edição, sai
If Not fCls.Edicao Then Exit Sub
'habilita somente campos do Tab atual
Select Case ssTab.Tab
Case 0
gPrinc.UnLockTab Me, MINTAB0, MAXTAB0 '0
gPrinc.LockTab Me, MINTAB1, MAXTAB1 '1
Case 1
gPrinc.LockTab Me, MINTAB0, MAXTAB0 '0
gPrinc.UnLockTab Me, MINTAB1, MAXTAB1 '1
End Select
SendKeys "{Tab}" 'passa p/ próx. campo
End Sub
Private Sub tbrCad_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim objFind As Object
On Error GoTo ErroX
gErro = "Ocorreu um erro tentando executar a opção " & Button.Key & "!"
'se desabilitado, sai
If Not Button.Enabled Then Exit Sub
Select Case Button.Key
Case "Novo"
'prepara novo registro
gPrinc.CleanTab Me, MINTAB0, MAXTAB1 'limpa campos
gPrinc.LockTab Me, MINTAB1, MAXTAB1…
fCls.Operacao = "V"
gPrinc.CenterForm Me 'centraliza form
gPrinc.CheckButtons tbrCad, fCls
gPrinc.CleanTab Me, MINTAB0, MAXTAB1 'limpa todos os campos
gPrinc.LockTab Me, MINTAB0, MAXTAB1 'trava todos os campos
ssTab.Tab = 0
'carrega combos
gPrinc.SetList cboEstado, "UF, UF", "Estados", "", "UF", False
End Sub
Private Sub Form_Resize()
shpTop.Width = Me.Width 'ajusta shape título
End Sub
Private Sub ssTab_Click(PreviousTab As Integer)
'se não estiver em edição, sai
If Not fCls.Edicao Then Exit Sub
'habilita somente campos do Tab atual
Select Case ssTab.Tab
Case 0
gPrinc.UnLockTab Me, MINTAB0, MAXTAB0 '0
gPrinc.LockTab Me, MINTAB1, MAXTAB1 '1
Case 1
gPrinc.LockTab Me, MINTAB0, MAXTAB0 '0
gPrinc.UnLockTab Me, MINTAB1, MAXTAB1 '1
End Select
SendKeys "{Tab}" 'passa p/ próx. campo
End Sub
Private Sub tbrCad_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim objFind As Object
On Error GoTo ErroX
gErro = "Ocorreu um erro tentando executar a opção " & Button.Key & "!"
'se desabilitado, sai
If Not Button.Enabled Then Exit Sub
Select Case Button.Key
Case "Novo"
'prepara novo registro
gPrinc.CleanTab Me, MINTAB0, MAXTAB1 'limpa campos
gPrinc.LockTab Me, MINTAB1, MAXTAB1…
É 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.
