Visual-Basic-Examples-2020/form-principal.vb at master · amgauna/Visual-Basic-Examples-2020 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
' Formulário Principal

Dim NovoRegistro As Integer

Sub AtribuiCampos()
    CmpCodigo.Value = txtCodigo
    CmpNome.Value = txtNome
    CmpTel.Value = txtTel
End Sub

Sub BtnAnterior.BOF_click()
    DyClientes.MovPrevious

    If DyClientes.BOF then
       Msgbox "Inicio do Arquivo ", 65, " Aviso "
       Dyclientes.MoveNext
    End if

    Rem Se voltou um registro, logo não é novo
    Novo Registro = False

    LeRegistro
End Sub

Sub BtnApaga_Click()
    if MsgBox("Conforma a Deleção do Registro", 65, " Urgente ") = 1 then
       Dyclientes.Delete
       Dyclientes.movePrevius

       Rem Se voltou um registro, não é novo
       NovoRegistro = False

       LeRegistro
   End if
End Sub

Sub BtnFiltro_Click()
    Load Frmfiltro
    Frmfiltro.Show

    if Dyclientes.BOF then
       MdgBox "Nenhum registro atendeu a condição", 65, " Aviso "
       Set DyClientes = BDados.CreateDynaset("Clientes")
    end if

    Dyclientes.MoveFirst
    LimpaCampos
    InicializaCampos
    NovoRegistro = False
    LeRegistro
End Sub

Sub BtnGrava_click()
    if NovoRegistro then

       DyClientes.FindFirst "Código = " & txtCódigo.Text

       if Not DyClientes.NoMath then
          MagBox "Código Inexistente", 65, " Aviso "
          exit sub
       end if
    end if

    if NovoRegistro then
       DyClientes.AddNew
    else
       Dyclientes.Edit
    end if

    AtribuiCampos
    DyClientes.Update
    NovoRegistro = False
End Sub

Sub BtnInicio_Click()
    DyClientes.MoveFirst
    NovoRegistro = False
    LeRegistro
End Sub

Sub BtnNovo_Click()
     NovoRegistro = True
     LimparCampos
End Sub

Sub BtnPesquisa_Click()
     Load FrmPesquisas
     FrmPesquisas.Show 1
     NovoRegistro = False
     LeRegistro
End Sub

Sub BtnProximo_click()
     DyClientes.MoveNext
     if DyClientes.EOF then
        MsgBox "Fim do Arquivo", 65, " Aviso "
        DyClientes.MovePrevious
     end if
     NovoRegistro = False
     LeRegistro
End Sub

Sub BtnRemFiltro_Click()
    Set Dyclientes = DBados.CreateDynaset("Clientes")
    Dyclientes.MoveFirst

    LimpaCampos
    InicializaCampos
    NovoRegistro = False
    LeRegistro
End Sub

Sub BtnUltimo_Click()
    Dyclientes.MoveLast
    NovoRegistro = False
    LeRegistro
End Sub

Sub Form_Load()
    Set BDados = OpenDatabase("c:\tecnico\bdados.mdb")
    Set DyClientes = BDados.CreateDynaset("Clientes")
    InicializaCampos
    Dyclientes.MoveFirst
    NovoRegistro = False
    LeRegistro
End Sub

Sub InicializaCampos()
    Set CmpCodigo = Dyclientes("Codigo")
    Set CmpNome = DyClientes("Nome")
    Set CmpTel = DyClientes("Tel")
End Sub

Sub LeRegistro()
    txtNome.Text = cmpNome.Value
    txtCodigo.Text = CmpCodigo.Value
    txtText = CmpTel.Value
End Sub

Sub LimpaCampos()
    TxtNome.Text = ""
    txtCodigo.Text = ""
    txTel.Text = ""
End Sub