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

الصفحات : 1 2 3

allayl كتب :اخي الكريم هل النسخة مجانية او كامله قابله للتفعيل

والله يالغالي مش متأكد لكن لو تبي نسخة كاملة انا ممكن ارفعها ليكم بس راح تاخد شويت وقت لان حجمها 1g

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

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

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

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

البرنامج صح مابيكون كبير لكن فيه كل الطرق للتعامل مع الـ 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
--------------- 

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

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

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

[attachment=7432]

تركي الحلواني كتب :والله يالغالي مش متأكد لكن لو تبي نسخة كاملة انا ممكن ارفعها ليكم بس راح تاخد شويت وقت لان حجمها 1g

اكون مشكور لك اخي الكريم

ارفق لكم اليوم تعديلات على البرنامج مع الداتا بيز

الى ابيه منكم انكم تعملو اتاتش لقاعدة البيانات وتجربو البرنامج

اسم المستخدم :admin
الباسورد :123

تم عمل شاشة الاصناف وعمل بعض الاكود ارجو الاطلاع عليها والى مش واضحة معاه يكلمني وانا راح اشرح له الكود

والى عنده افكار يسمعنا ياها

ملاحظة :لم يتم اكمال البرنامج البرنامج يعتبر جزئي وحين الانتهاء منه سوف يتم وضعة في الموضوع بشكل نهائي لكن حالين يعتبر فقط لشرح والتقدم من مرحله الى مرحلة
التعديلات اللى تمت في البرنامج :
1- تم عمل جدول جديد في قاعدة البيانات لشاشة الاصناف
2- تم عمل بعض الاكواد في شاشة الاصناف مثل حفظ وتعديل وبحث وحذف
3- تم تعديل بعض الاكود لتتلائم مع البرنامج

بسم الله ماشاء الله

بارك الله فيك استاذ / تركى

ان شاء الله موفق

وان شاء الله اتابع معك خطوه بخطوه ومن البداية

تقبل تحياتى

سؤال اخر سيدى الكريم

ما هو الفرق بين اصدارات sql server 2005

وكيف اعرف الاصدار المناسب لى حيث ان عدد المستخدمين لا يتجاوز 4 ولكن حجم البيانات كبير الى حد ما

mmali127 كتب :سؤال اخر سيدى الكريم

ما هو الفرق بين اصدارات sql server 2005

وكيف اعرف الاصدار المناسب لى حيث ان عدد المستخدمين لا يتجاوز 4 ولكن حجم البيانات كبير الى حد ما

والله يالغالي هو مايوجد فرق كبير بينهم بس الفرق ظهر بين sql 2005 & sql2000
لكن انصحك تستخدم 2005 انا افضله
من ضمن الاصدارات
اما 2008 فهو نفس 2005 بختلافات بسيطة
لكن السعة كلهم يستوعبو كم هائل من البيانات
وانا افضل لك تستخدم sql

اشكرك استاذى

ولكن كنت اسال عن الفرق بين اصدارات ال 2005 نفسة

من حيث حجم قاعدة البيانات وعدد المستخدمين

وهل يعمل على ويندوز 7 ؟
تقبل تحياتى

الله يعزك ويحفظك

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

استاذى تركى

تحية طيبة

ممكن اخى الكريم شرح لنوع البيانات فى الجدول

تقبل تحياتى

الصفحات : 1 2 3