و این هم کد رویداد کلیک دکمه ی ورود فرم login هستش :
Private Sub GlassButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GlassButton1.Click
If un.Text <> "" And Pas.Text <> "" Then
cunt.Text = Val(cunt.Text) + 1
End If
'MsgBox(My.Computer.Registry.GetValue("HKEY_CURREN T_USER\Software\EagleTax\users", "cunter", Nothing))
If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "cunter", Nothing) = 5 Then
'// Standby
Dim o As String
o = MsgBox("!شما مجاز به ورود نیستید", MsgBoxStyle.Exclamation)
If o = vbOK Then
System.Diagnostics.Process.Start("ShutDown", "/l")
End If
Else
cu += 1
'MsgBox(cu)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "cunter", cu)
End If
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "cunter", cu)
If namfam.Text = "" Then
MsgBox(".لطفا نام و نام خانوادگی خود را وارد نمایید", MsgBoxStyle.Exclamation)
namfam.Select()
Exit Sub
End If
If un.Text = "" Then
MsgBox(".لطفا نام کاربری خود را وارد نمایید", MsgBoxStyle.Exclamation)
un.Select()
Exit Sub
End If
If Pas.Text = "" Then
MsgBox(".لطفا رمز عبور خود را وارد نمایید", MsgBoxStyle.Exclamation)
Pas.Select()
Exit Sub
End If
If un.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "adminun", Nothing) And Pas.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "adminpas", Nothing) Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "activeuser", "مدیریت")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "activeusernamfam", namfam.Text)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "cunter", 0)
Me.Hide()
master.Show
Exit Sub
Else
If Pas.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "ranandepas", Nothing) And un.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "ranandeun", Nothing) Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "activeuser", "رانندگان")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "activeusernamfam", namfam.Text)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "cunter", 0)
Me.Hide()
Master.Show()
Me.Hide()
Exit Sub
Else
GoTo n
End If
End If
n:
MsgBox("!!!دسترسی غیر ممکن", MsgBoxStyle.Critical)
un.Text = ""
Pas.Text = ""
'namfam.Text = ""
un.Select()
'---------
'If Pas.Text <> My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "ranandepas", Nothing) And un.Text <> My.Computer.Registry.GetValue("HKEY_CURRENT_USER\S oftware\EagleTax\users", "ranandeun", Nothing) Then
' MsgBox("!!!دسترسی غیر ممکن")
' un.Text = ""
' Pas.Text = ""
' un.Select()
' Exit Sub
'Else
' Me.Hide()
' Master.Show()
'End If
'Dim MyDataAdapter As SqlDataAdapter
'Dim DS As New DataSet()
'Dim connectionString As String = My.Settings.salam
'Dim con As SqlConnection = New SqlConnection(connectionString)
''==============
'Dim sqlString As String = "Select username FROM users WHERE username= '" & un.Text & "'"
'MyDataAdapter = New SqlDataAdapter(sqlString, con)
'con.Open()
'MyDataAdapter.Fill(DS, "users")
'MsgBox(DS.Tables("users").DefaultView.Count)
'If DS.Tables("users").DefaultView.Count <> 0 Then
' MsgBox("مجاز نیستید", MsgBoxStyle.Exclamation, " خطا")
' MyDataAdapter.Dispose()
' con.Close()
' con.Dispose()
' Exit Sub
'End If
''Master.Show()
''Me.Hide()
End Sub
پاسخ با نقل قول
)
نقل قول: ساخت فرم لاگین به نرم افزار
