شرح ربط الفجوال بيسك 6 مع الـ sql server 2005 والتعامله معها

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
--------------- 