frmLoginTema.frm
3.63 KB
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
VERSION 5.00
Begin VB.Form frmLoginTema
BorderStyle = 3 'Fixed Dialog
Caption = "Login de Administrador:"
ClientHeight = 1500
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 3795
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 886.25
ScaleMode = 0 'User
ScaleWidth = 3563.3
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox txtUserName
Height = 345
Left = 1080
TabIndex = 1
Top = 135
Width = 2325
End
Begin VB.CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 390
Left = 1665
TabIndex = 4
Top = 1020
Width = 795
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 390
Left = 2565
TabIndex = 5
Top = 1020
Width = 855
End
Begin VB.TextBox txtPassword
Height = 345
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 3
Top = 525
Width = 2325
End
Begin VB.Label lblLabels
Caption = "Login"
Height = 270
Index = 0
Left = 315
TabIndex = 0
Top = 150
Width = 570
End
Begin VB.Label lblLabels
Caption = "Senha"
Height = 270
Index = 1
Left = 315
TabIndex = 2
Top = 540
Width = 615
End
End
Attribute VB_Name = "frmLoginTema"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As String
Dim f As String
Dim g As String
Dim h As String
Dim i As String
Dim j As String
Dim k As String
Dim l As String
Private Sub cmdCancel_Click()
Me.Hide
End Sub
Private Sub cmdOK_Click()
'check for correct password
Dim rs As ADODB.Recordset
If txtPassword.Text <> "" And Me.txtUserName.Text <> "" Then
Set rs = New ADODB.Recordset
a = "USRLOG"
b = "USRFUN"
c = "SYSTEMUSERS"
d = "USRPwd"
e = "HIDROMETRADO"
f = "ECONOMIAS"
g = "CONSUMO_LPS"
h = "TB_LIGACOES"
i = "HIDROMETRADO"
j = "ECONOMIAS"
k = "CONSUMO_LPS"
l = "TB_LIGACOES"
If frmCanvas.TipoConexao <> 4 Then
rs.Open "SELECT USRLOG, USRFUN FROM SYSTEMUSERS WHERE USRLOG = '" & Me.txtUserName.Text & "' AND USRPwd = '" & Me.txtPassword.Text & "'", Conn, adOpenDynamic, adLockReadOnly
Else
rs.Open "SELECT " + """" + a + """" + "," + """" + b + """" + " FROM " + """" + c + """" + " WHERE " + """" + a + """" + " = '" & Me.txtUserName.Text & "' AND " + """" + d + """" + " = '" & Me.txtPassword.Text & "'", Conn, adOpenDynamic, adLockOptimistic
End If
If rs.EOF = False Then
If rs!UsrFun = 1 Then ' ADMINISTRADOR
FrmMain.pctSfondo.Visible = True
Me.txtUserName.Text = ""
Me.txtPassword.Text = ""
Me.Hide
End If
Else
MsgBox "Login ou senha incorreto.", vbInformation, ""
End If
rs.Close
End If
End Sub