[emando]

السلام عليكم إخوانى بالمنتدى الكريم  vb4arb
هذاكود  شاشة الدخول للبرنامج يعمل 100% بس محتاج أنفذه بالادو دوتنت
أنا صممت برنامج لدخول الموظفين بالبنك باستخدام VB.NET 2010      & وقاعدة بيانات  SQL 2008
وذلك بتقنية الادو كلاسيك -  وأريد المساعده لكتابة شاشة اللوجين ولكن بالادو دوتنت نظام متصل "كونيكتيدمود"
قبل أن نبدأ ده توضيح لاآلية ومنطقية الكود
** من المنطقى هناك أربعة إحتمالات عند شاشة دخول أحد الموظفين
--إما أن يدخل إسم غير موجود بجدول الموظفين
--أوأنه ليس مديرا
--أو أنه أدمين مسجل لكن تفعيله متوقف
--أو أنه أدخل جميع بياناته صحيحه وهو أيضا أدمين وفى هذه الحاله له صلاحية الدخول
وسوف أوضح لحضراتكم ما عملته – أولا عملت داله(فنكشن)من قاعدة البيانات نفسها وسميتها"IsAdmin"

ALTER FUNCTION [dbo].[IsAdmin] (@UID NVARCHAR(15),@Pwd nvarchar(15))
returns int
as
Begin
Declare @St bit;
Declare @Ad bit;
Select @St=[Status] , @Ad=[Admin] from Employees where [UserName]= @UID and [Password] = @Pwd
   if @@ROWCOUNT=0
     Begin
       return (0)
     end
   if @Ad=0
     Begin
       return (1)
     end
   if @St=0
     Begin
       return (2)
     end

return (3)
end
ثانيا فى الموديل قمت بتعريف كائنات الاتصال بقاعدة البيانات
Module Module1
   Public CN As New ADODB.Connection
   Public Rst As New ADODB.Recordset
   Public p As Integer
   Public ms As String
   Public IDEMP As String
   Sub CONN()
       If Not CN.State = 1 Then
           CN.ConnectionString = "Driver={SQL Server Native Client 10.0};Server=EMANDO-PC;Database=ATM;Uid=sa;Pwd=sa5000;"
           CN.Open()
       End If
   End Sub

End Module


ثالثا كود مفتاح لوجين من شاشة دخول موظف بالبرنامج
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Rst.State = 1 Then Rst.Close()

       Rst.Open("select dbo.isadmin ('" + TextBox1.Text + "','" + TextBox2.Text + "')", CN)

       If Rst(0).Value = 0 Then
           MsgBox("عفوا ليس لك صلاحيه" & vbCrLf & "خطأ فى إسم المستخدم أو كلمة المرور ", MsgBoxStyle.Critical, "نظام الموظفين")
       ElseIf Rst(0).Value = 1 Then
           MsgBox("عفوا ليس لك صلاحيه" & vbCrLf & "عفوا لست مسجل هنا ", MsgBoxStyle.Critical, " دخول نظام الموظفين")
       ElseIf Rst(0).Value = 2 Then
           MsgBox("عفوا ليس لك صلاحيه" & vbCrLf & "الحساب متوقف مؤقتا", MsgBoxStyle.Critical, "نظام الموظفين")
       ElseIf Rst(0).Value = 3 Then
           IDEMP = TextBox1.Text
           TextBox1.Text = ""
           TextBox2.Text = ""
           Me.Hide()
           frmMaster.ShowDialog()
           Exit Sub
       End If
       Dim uid As String = TextBox1.Text
       Dim pwd As String = TextBox2.Text
       Dim rs1 As New ADODB.Recordset
       Rst.Open("select dbo.isadmin('" + uid + "','" + pwd + "') as TT ", Cn)
       Dim I As Integer = Rst("TT").Value
       'MsgBox(I)
       Rst.Close()
       If I = 0 Then
           MsgBox("إسم المستخدم غير مسجل", MsgBoxStyle.Information, "دخول نظام الموظفين")
           Exit Sub
       End If
       If I = 1 Then
           MsgBox("عفوا ليس لك صلاحية الدخول هنا", MsgBoxStyle.Critical, "دخول نظام الموظفين")
           End
       End If
       If I = 2 Then
           MsgBox("عفوا تم إيقاف الحساب  مؤقتا", MsgBoxStyle.Critical, "دخول نظام الموظفين")
           End
       End If
       Try

           If TextBox1.Text = "" Then
               MsgBox("you should enter UserName", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly)
               TextBox1.Focus()
               Exit Sub
           End If
           If TextBox2.Text = "" Then
               MsgBox("you should enter Password", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly)
               TextBox2.Focus()
               Exit Sub
           End If

           rs1.Open("Select dbo.EmployeeStatus('" & TextBox1.Text & "','" & TextBox2.Text & "')", Cn)
           Dim H As Integer = rs1(0).Value
           'نغلق الاتصال هنا
           'حتى لا يعطى للمستخدم إعتراض بالمرحله القادمه حين يفتح الاتصال عند إدخال عميل جديد
           rs1.Close()
           If H = 0 Then
               MsgBox("يوجد خطأ فى إسم المستخدم أو كلمة المرور", MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Login")
               TextBox1.Focus()
               Exit Sub
           End If
           If H = 1 Then
               MsgBox("إسم المستخدم و كلمة المرور صحيحه ولكن حسابك متوقف", MsgBoxStyle.Critical, "Login")
               Exit Sub
           End If
           ' handle the error
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical Or MsgBoxStyle.OkOnly, "Login")
           End
       End Try


       Me.Hide()
       frmMaster.ShowDialog()

   End Sub


بطلب المساعدة فى كود شاشة اللوجين كود الدخول ولكن باستخدام مكتبة الادودوت نت كونيكتيدمود النظام المتصل
أفادنا الله وإياكم