[تركي الحلواني]

السلام عليكم ورحمة الله وبركاتة

الحين نبدا في الجزء الثاني للموضوع

انا عملت ليكم شويت تغيرات في البرنامج المرفق اللى راح نشتغل عليه

لجل يكون شامل لكل شي إن شاء الله

البرنامج صح مابيكون كبير لكن فيه كل الطرق للتعامل مع الـ SQL

اولاً : تم تغيير بعض الاوامر راح نشوفها مع بعض


ثانياً : هذا شرح للاكواد الموجودة في البرنامج واعتقد انه اغلب الاكواد مرة عليكم

والى مافهم شي معين يبلغني وانا راح اوضحها ليه

PHP كود :

شاشة دخول النظام

تعريف متغيرات
Option Explicit
Public LoginSucceeded As Boolean
------------
زر الغاء

Private Sub cmdCancel_Click()
    LoginSucceeded = False
    Me.Hide
End Sub
------------
زر موافق

Private Sub cmdOK_Click()
شرط التحقق من الحقول

If txtUserName.Text <> "" And txtPassword.Text <> "" Then
تغيير مؤشر الماوس

Me.MousePointer = 11

استدعاء دالة الاتصال بالسيرفر وارسل لها برميتر بأسم السيرفر

Call Con(txtServerName(
شرط التحقق من نجاح الاتصال

في حالة نجاح الاتصال يتحقق الشرط بالتأكد من بينات المستخدم من اسم اليوزر والرقم السري

If activation = True Then Call LUAD_USR

تغيير مؤشر الماوس

Me.MousePointer = 0
End If
End Sub
--------------



اجراء التحقق من بينات المستخدم في قاعدة البيانات

Public Sub LUAD_USR()

شرط التحقق من اغلاق الاتصال بسجل 

If rs.State = 1 Then rs.Close

امر الاتصال التحد يد فية اسم الجدول والحقول 

rs.Open "select * from UserSring where UserName='" & Trim(txtUserName.Text) & "' _
and UserPassword='" & Trim(txtPassword.Text) & "'", cn, adOpenKeyset, adLockOptimistic

If rs.EOF = False Then

MsgBox "تم الدخول للبرنامج", , "دخول"

فتح الشاشة الرئيسية

MainAll.Show
LoginSucceeded = True

الغاء تحميل الششة الحالية

Unload Me
Else

في حالة لم يتم ادخال البيانات الصحيحة

MsgBox "الرقم السري خطاء , حاول مرة اخرى ", , "دخول"

txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
----------------

Module ملف الـ

تعريف متغيرات

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public activation As Boolean
----------
Public Sub Con(ServerName As String)

If cn.State = 1 Then cn.Close

الانتقال الى 
On Error GoTo erorr
SQL  الاتصال بقاعدة البيانات    
Server Nameالبرميتر  
cn.Open "Provider=SQLOLEDB.1;Integrated SECURITY=SSPI;Persist SECURITY Info=False;Initial Catalog=UserConect;Data Source=" & ServerName
MsgBox "تمت عمليت الاتصال بنجاح بالسيرفر", , "بيانات السيرفر"
  True  في حالة نجاح الاتصال اعطي القيمة 
activation = True
Exit Sub
في حالة الانتقال الى
erorr:
MsgBox "خطاء في اسم بالسيرفر", , "بيانات السيرفر"
  False في حالة نجاح الاتصال اعطي القيمة 
activation = False
End Sub
--------------- 


ثالثاً : مرفق الشرح في ملف وارد

رابعاً : مرفق نسخة من البرنامج الى تم التعديل عليه والى راح يكون دروسنا عليه

خامساً : مرفق صورة شرح عمل القوائم