السلام عليكم إخوانى بالمنتدى الكريم 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
بطلب المساعدة فى كود شاشة اللوجين كود الدخول ولكن باستخدام مكتبة الادودوت نت كونيكتيدمود النظام المتصل
أفادنا الله وإياكم
هذاكود شاشة الدخول للبرنامج يعمل 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
بطلب المساعدة فى كود شاشة اللوجين كود الدخول ولكن باستخدام مكتبة الادودوت نت كونيكتيدمود النظام المتصل
أفادنا الله وإياكم