-
Notifications
You must be signed in to change notification settings - Fork 2
/
frm_confg.frm
90 lines (83 loc) · 2.58 KB
/
frm_confg.frm
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
VERSION 5.00
Begin VB.Form frm_confg
BorderStyle = 3 'Fixed Dialog
Caption = "Configurações"
ClientHeight = 9330
ClientLeft = 45
ClientTop = 375
ClientWidth = 11580
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9330
ScaleWidth = 11580
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox cbo_cargo
Height = 315
ItemData = "frm_confg.frx":0000
Left = 1560
List = "frm_confg.frx":000A
TabIndex = 1
Top = 840
Width = 2175
End
Begin VB.CommandButton cmd_votos
Caption = "ZERAR VOTOS"
Height = 615
Left = 1680
TabIndex = 0
Top = 1440
Width = 1815
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "CARGO"
Height = 195
Left = 600
TabIndex = 2
Top = 960
Width = 570
End
End
Attribute VB_Name = "frm_confg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public contador As Integer
Private Sub cmd_votos_Click()
contador = 1
Dim merda As String
merda = "0"
' If MsgBox("Deseja mesmo excluir os votos?", vbQuestion + vbYesNo, "Allia") = vbYes Then
If cbo_cargo.Text = "" Then Exit Sub
If cbo_cargo.Text = "Presidentes" Then GoTo A
If cbo_cargo.Text = "Governadores" Then GoTo B
A:
If tab_pcd.State = adStateOpen Then tab_pcd.Close
tab_pcd.Open
If contador > tab_pcd.RecordCount Then GoTo C
tab_pcd.Update
tab_pcd!qtde_votos = merda
tab_pcd.Update
tab_pcd.MoveNext
contador = contador + 1
GoTo A
B:
If tab_gcd.State = adStateOpen Then tab_gcd.Close
tab_pcd.Open
If contador > tab_gcd.RecordCount Then GoTo C
tab_gcd.Update
tab_gcd!qtde_votos = merda
tab_gcd.Update
tab_gcd.MoveNext
contador = contador + 1
GoTo B
C:
MsgBox "Informações excluidas com sucesso!", vbInformation, "Allia"
'End If
End Sub
Private Sub Form_Load()
Call OpenUrna
End Sub