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.
'***********************************************************
Private Sub Form_Load()
'frmMediPragma
Call WriteLog("Form_Load_frmMediPragma_Nuova Prova")
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Set Rst = adUtenti.Recordset
'
txtLogin.Text = ""
txtPassword = ""
Password = ""
Cat = ""
Timer3.Interval = 500
End Sub
Private Sub Timer2_Timer()
lblAvviso.ForeColor = QBColor(Rnd * 15 )
End Sub
Private Sub Timer3_Timer()
lblAvviso1.ForeColor = QBColor(Rnd * 15 )
End Sub
'***********************************************************
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
'sostituire delle lettere di password con ***
If (KeyAscii > 64 ) And (KeyAscii < 144 ) Then
Password = Trim(Password) & Chr(KeyAscii)
KeyAscii = "42"
Label2.Caption = Password
End If
End Sub
'***********************************************************
Private Sub cmdInvio_Click()
'
Filter = "Login = " & " '" & Trim(LCase(txtLogin.Text)) & "' " & _
" And Password = " & " '" & Password & "' "
Rst.Filter = Filter
'
lblVietatoAccesso.Visible = False
If adUtenti.Recordset.RecordCount = 0 Then
'frmMediPragma.Show
lblVietatoAccesso.Caption = "Login o Password non è valido, inserire di nuovo o rivolsersi ad amministratore "
lblVietatoAccesso.Visible = True
txtLogin = ""
txtPassword = ""
Password = ""
Else
lblAvviso1.Visible = False
lblAvviso.Visible = True
Timer1.Interval = 100
Login = adUtenti.Recordset!ID_login
Cat = adUtenti.Recordset!id_cat
End If
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 0
Timer2.Interval = 500
Set frmMediPragma = Nothing
Load frmSCHEMA
Select Case Cat
Case "0"
frmRicerca.mnuMod.Visible = False
frmRicerca.mnuExcel.Visible = False
Case "1"
frmRicerca.mnuMod.Visible = True
frmRicerca.mnuExc.Visible = True
End Select
frmRicerca.Show
Unload Me
Set frmMediPragma = Nothing
Exit Sub
End Sub
'***********************************************************
Private Sub cmdUscire_Click()
Rst.Close
Set Rst = Nothing
Unload Me
Set frmMediPragma = Nothing
End Sub
КасателЬно SQLInjection , я переделала контролЬ паролеи. ТеперЬ я работаю с отсоединенным Recordset-ом .
frmSCHEMA , frmRicerca -это формы проэкта, которые производят поиск и демострацию данных.
