منتديات روكشا     َولَوْلَا إِذْ دَخَلْتَ جَنَّتَكَ قُلْتَ مَا شَاءَ اللَّهُ لَا قُوَّةَ إِلَّا بِاللَّه

الرئيسية |  التسجيل  |  مركز رفع الملفات  |  الاتصال بنا  

 



العودة   منتديات روكشا > المنتدي التخصصي > قسم التصاميم والبرمجة والجرافيكس والميديا > انشاء وتصميم وبرمجة البرامج

الملاحظات

انشاء وتصميم وبرمجة البرامج برنامج الوورد اكسس اكسيل بوربوينت فيجوال بيسك برامج محاسبة برامج ادارة وتنظيم حسابات تنسيق الملفات

Like Tree1اعجابات
  • 1 موضوع بواسطة الفارس

إضافة رد
 
LinkBack أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 03-23-2019, 01:25 AM

الصورة الرمزية الفارس

الفارس

.:: عضـو متميز ::.

 
تاريخ التسجيل: Feb 2019
الدولة: مصر
المشاركات: 837
معدل تقييم المستوى: 10
الفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالىالفارس المعروف لدى الجميع بالتميز العالى
الفارس غير متواجد حالياً
جديد العمل على قاعدة البيانات في جانب السيرفر

 

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

القاعدة ستكون على SQL Server و هي كما بالصورة مؤلفة من جدولين الطلاب و دفعات الطلاب




بعد ذلك سنضيف كلاس خاص لكل جدول في مشروعنا اضف كلاس جديد و سميه Tb_Studant و هو خاص بجدول الطلاب
و اضف كلاس اخر سميه Tb_Payes و هو خاص بجدول الدفعات

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




و في كل كلاس سأورث الكلاس السابق و ساعرف متغيران نصيان واحد يحمل اسم الجدول و الاخر يحمل اسم حقل المفتاح الرئيسي ليصبح شكل الكلاس

كما يلي

كود PHP:
Public Class Tb_Studant
    Inherits DbGo
    
'
    Private _Stu_ID As Integer
    Private _Stu_Name As String

    Private _Stu_Phone As String
    Private _Date_Affiliation As Object
    '
    
Private ID_Key As String "Stu_ID"
    
Private TableName As String "Studants_TB"

    
Public Property Stu_ID As Integer
        Get
            
Return _Stu_ID
        End Get
        Set
(value As Integer)
            
_Stu_ID value
        End Set
    End Property

    
Public Property Stu_Name As String
        Get
            
Return _Stu_Name
        End Get
        Set
(value As String)
            
_Stu_Name value
        End Set
    End Property

    
Public Property Stu_Phone As String
        Get
            
Return _Stu_Phone
        End Get 
الان ناتي الى تخصيص العمليات على هذا الجدول و سانشئ مصفوفة خاصة بحقول الجدول كما يلي
PHP كود :
كود PHP:
       'جدول الطلاب
    Private Function Studants_Table() As Dictionary(Of String, Object)
        Dim Stu_Tb As New Dictionary(Of String, Object)
        Stu_Tb.Add("Stu_ID", Stu_ID)
        Stu_Tb.Add("Stu_Name", Stu_Name)
        Stu_Tb.Add("Stu_Phone", Stu_Phone)
        Stu_Tb.Add("Date_Affiliation", Date_Affiliation)
        Return Stu_Tb
    End Function 
و ناتي الى تخصيص عمليات الملئ و الاضافة و التحديث و الحذف

اولاً الملئ


PHP كود :

كود PHP:
   ''' <summary>
    ''' 
تعبئة جدول بحقول محددة
    
''' </summary>
    ''' 
<returns>يعيد جدول بيانات</returns>
    Public Function 
FillTable() As DataTable
        
Return MyBase.Fill_Table(TableNameStudants_Table"Stu_ID")
    
End Function 
ثانياً الاضافة
PHP كود :
كود PHP:
   ''' <summary>
    ''' 
اضافة سجل جديد
    
''' </summary>
    ''' 
<param name="Msg">رسالة الاضافة اختيارية</param>
    
''' <returns>يعود بقيمة رقم الحقل الذي تمت اضافته</returns>
    Public Function AddNew(Optional ByVal Msg As Boolean = False) As Integer
        If Msg = True Then
            Return Add_New(TableName, Studants_Table, ID_Key, True)
        Else
            Return Add_New(TableName, Studants_Table, ID_Key)
        End If
    End Function 
ثالثاً التحديث


PHP كود :
كود PHP:

   
''' <summary>
    ''' 
تحديث سجل
    
''' </summary>
    ''' 
<param name="ID">قيمة حقل المفتاح الرئيسي</param>
    
''' <param name="Msg">عرض رسالة الحفظ اختياري</param>
    Public Sub Update(ID As Integer, Optional ByVal Msg As Boolean = False)
        If Msg = True Then
            MyBase.Update_Table(TableName, Studants_Table, ID_Key, ID, True)
        Else
            MyBase.Update_Table(TableName, Studants_Table, ID_Key, ID, False)
        End If

    End Sub 
رابعاً الحذف وفق شرط


كود PHP:
   ''' <summary>
    ''' 
حذف سجل من جدول وفق قيمة المفتاح الرئيسي
    
''' </summary>
    ''' 
<param name="ID">قيمة حقل المفتاح الرئيسي</param>
    
''' <param name="Msg">رسالة تأكيد الحذف اختيارية</param>
    Public Sub Delete(ID As Integer, Optional Msg As Boolean = False)
        If Msg = True Then
            MyBase.Delete_Table(TableName, ID_Key, ID, True)
        Else
            MyBase.Delete_Table(TableName, ID_Key, ID, False)
        End If
    End Sub 
انتهينا الكلاس اصبح يحتوي على كل العمليات اللازمة للعمل

شكل الكلاس
PHP كود :
كود PHP:
Public Class Tb_Studant
    Inherits DbGo
    
'
    Private _Stu_ID As Integer
    Private _Stu_Name As String

    Private _Stu_Phone As String
    Private _Date_Affiliation As Object
    '
    
Private ID_Key As String "Stu_ID"
    
Private TableName As String "Studants_TB"

    
Public Property Stu_ID As Integer
        Get
            
Return _Stu_ID
        End Get
        Set
(value As Integer)
            
_Stu_ID value
        End Set
    End Property

    
Public Property Stu_Name As String
        Get
            
Return _Stu_Name
        End Get
        Set
(value As String)
            
_Stu_Name value
        End Set
    End Property

    
Public Property Stu_Phone As String
        Get
            
Return _Stu_Phone
        End Get
        Set
(value As String)
            
_Stu_Phone value
        End Set
    End Property

    
Public Property Date_Affiliation As Object
        Get
            
Return _Date_Affiliation
        End Get
        Set
(value As Object)
            
_Date_Affiliation value
        End Set
    End Property


    
'جدول الطلاب
    Private Function Studants_Table() As Dictionary(Of String, Object)
        Dim Stu_Tb As New Dictionary(Of String, Object)
        Stu_Tb.Add("Stu_ID", Stu_ID)
        Stu_Tb.Add("Stu_Name", Stu_Name)
        Stu_Tb.Add("Stu_Phone", Stu_Phone)
        Stu_Tb.Add("Date_Affiliation", Date_Affiliation)
        Return Stu_Tb
    End Function


    ''' 
<summary>
    
''' تعبئة جدول بحقول محددة
    ''' 
</summary>
    
''' <returns>يعيد جدول بيانات</returns>
    Public Function FillTable() As DataTable
        Return MyBase.Fill_Table(TableName, Studants_Table, "Stu_ID")
    End Function


    ''' 
<summary>
    
''' اضافة سجل جديد
    ''' 
</summary>
    
''' <param name="Msg">رسالة الاضافة اختيارية</param>
    ''' 
<returns>يعود بقيمة رقم الحقل الذي تمت اضافته</returns>
    Public Function 
AddNew(Optional ByVal Msg As Boolean False) As Integer
        
If Msg True Then
            
Return Add_New(TableNameStudants_TableID_KeyTrue)
        Else
            Return 
Add_New(TableNameStudants_TableID_Key)
        
End If
    
End Function


    
''' <summary>
    ''' 
تحديث سجل
    
''' </summary>
    ''' 
<param name="ID">قيمة حقل المفتاح الرئيسي</param>
    
''' <param name="Msg">عرض رسالة الحفظ اختياري</param>
    Public Sub Update(ID As Integer, Optional ByVal Msg As Boolean = False)
        If Msg = True Then
            MyBase.Update_Table(TableName, Studants_Table, ID_Key, ID, True)
        Else
            MyBase.Update_Table(TableName, Studants_Table, ID_Key, ID, False)
        End If

    End Sub


    ''' 
<summary>
    
''' حذف سجل من جدول وفق قيمة المفتاح الرئيسي
    ''' 
</summary>
    
''' <param name="ID">قيمة حقل المفتاح الرئيسي</param>
    ''' 
<param name="Msg">رسالة تأكيد الحذف اختيارية</param>
    Public 
Sub Delete(ID As IntegerOptional Msg As Boolean False)
        If 
Msg True Then
            MyBase
.Delete_Table(TableNameID_KeyIDTrue)
        Else
            
MyBase.Delete_Table(TableNameID_KeyIDFalse)
        
End If
    
End Sub


End 
Class 
ثانياً جدول الدفعات بنفس الطريقة السابقة تماماً , مع تخصيص اضافي كونه جدول ابن

كلاس جدول الدفعات


PHP كود :

كود PHP:

Public Class Tb_Payes
    Inherits DbGo
    
'
    Private _Pay_ID As Integer
    Private _Principal_Payment As String
    Private _Payment_Date As Object
    Private _Stu_ID As Integer
    '
    
Private ID_Key As String "Pay_ID"
    
Private TableName As String "PayMents_TB"

    
Public Property Pay_ID As Integer
        Get
            
Return _Pay_ID
        End Get
        Set
(value As Integer)
            
_Pay_ID value
        End Set
    End Property

    
Public Property Principal_Payment As String
        Get
            
Return _Principal_Payment
        End Get
        Set
(value As String)
            
_Principal_Payment value
        End Set
    End Property

    
Public Property Payment_Date As Object
        Get
            
Return _Payment_Date
        End Get
        Set
(value As Object)
            
_Payment_Date value
        End Set
    End Property

    
Public Property Stu_ID As Integer
        Get
            
Return _Stu_ID
        End Get
        Set
(value As Integer)
            
_Stu_ID value
        End Set
    End Property


    
'جدول الدفعات
    Private Function Payes_Table() As Dictionary(Of String, Object)
        Dim Payes_Tb As New Dictionary(Of String, Object)
        Payes_Tb.Add("Pay_ID", Pay_ID)
        Payes_Tb.Add("Principal_Payment", Principal_Payment)
        Payes_Tb.Add("Payment_Date", Payment_Date)
        Payes_Tb.Add("Stu_ID", Stu_ID)
        Return Payes_Tb
    End Function


    ''' 
<summary>
    
''' تعبئة جدول بحقول محددة
    ''' 
</summary>
    
''' <returns>يعيد جدول بيانات</returns>
    Public Function FillTable() As DataTable
        Return MyBase.Fill_Table(TableName, Payes_Table)
    End Function


    ''' 
<summary>
    
''' تعبئة جدول بحقول محددة وفق شرط
    ''' 
</summary>
    
''' <param name="ID">قيمة الحقل الشرطي</param>
    ''' 
<returns>يعيد جدول بيانات</returns>
    Public Function 
FillTable(ID As Object) As DataTable
        
Return MyBase.Fill_TableWithCoundition(TableNamePayes_Table"Stu_ID"ID)
    
End Function

    
''' <summary>
    ''' 
اضافة سجل جديد
    
''' </summary>
    ''' 
<param name="Msg">رسالة الاضافة اختيارية</param>
    
''' <returns>يعود بقيمة رقم الحقل الذي تمت اضافته</returns>
    Public Function AddNew(Optional ByVal Msg As Boolean = False) As Integer
        If Msg = True Then
            Return Add_New(TableName, Payes_Table, ID_Key, True)
        Else
            Return Add_New(TableName, Payes_Table, ID_Key)
        End If
    End Function


    ''' 
<summary>
    
''' تحديث سجل
    ''' 
</summary>
    
''' <param name="ID">قيمة حقل المفتاح الرئيسي</param>
    ''' 
<param name="Msg">عرض رسالة الحفظ اختياري</param>
    Public 
Sub Update(ID As IntegerOptional ByVal Msg As Boolean False)
        If 
Msg True Then
            MyBase
.Update_Table(TableNamePayes_TableID_KeyIDTrue)
        Else
            
MyBase.Update_Table(TableNamePayes_TableID_KeyIDFalse)
        
End If

    
End Sub


    
''' <summary>
    ''' 
حذف سجل من جدول وفق قيمة المفتاح الرئيسي
    
''' </summary>
    ''' 
<param name="ID">قيمة حقل المفتاح الرئيسي</param>
    
''' <param name="Msg">رسالة تأكيد الحذف اختيارية</param>
    Public Sub Delete(ID As Integer, Optional Msg As Boolean = False)
        If Msg = True Then
            MyBase.Delete_Table(TableName, ID_Key, ID, True)
        Else
            MyBase.Delete_Table(TableName, ID_Key, ID, False)
        End If

    End Sub


    ''' 
<summary>
    
''' حذف مجموعات دفعات للطالب الحالي وفق رقم الطالب 
    ''' 
</summary>
    
''' <param name="StudantID">رقم الطالب - المعرف الفريد للطالب</param>
    Public Sub Delete_Multi(StudantID As Integer)
        '
قائمة الشروط
        Dim CondConditions 
As New Dictionary(Of StringObject)
        
CondConditions.Add("Stu_ID"StudantID)
        
Delete_TableByMultiCounditions(TableNameCondConditions)
    
End Sub

End 
Class 


ابن الوليد معجب بهذا.
رد مع اقتباس
قديم 03-23-2019, 01:27 PM   #2

.:: ادارة المنتدي ::.

الصورة الرمزية ابن الوليد

تاريخ التسجيل: Nov 2018
الدولة: مصر
المشاركات: 1,614
معدل تقييم المستوى: 10
ابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud ofابن الوليد has much to be proud of
إرسال رسالة عبر MSN إلى ابن الوليد إرسال رسالة عبر Yahoo إلى ابن الوليد إرسال رسالة عبر Skype إلى ابن الوليد
افتراضي

شرح وافي وكافة بارك الله فيك احسنت

ابن الوليد غير متواجد حالياً  

رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
Trackbacks are متاحة
Pingbacks are متاحة
Refbacks are متاحة


المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
شرح درس الخامس / تنصيب سيرفر شخصي , عمل المنتدى على السيرفر الفارس ركن تطوير وإدارة المنتديات العربية 0 03-05-2019 02:16 AM
شرح شرح كيفية حذف خانة [الايميل] من لوحة تحكم المراقبين [modcp] الفارس ركن تطوير وإدارة المنتديات العربية 0 02-25-2019 08:09 AM
تحويل وتكبير قاعدة البيانات الى sql ابن الوليد انشاء وتصميم وبرمجة البرامج 4 02-21-2019 06:08 PM
شرح Excel إدخال نوعين من البيانات في ورقة العمل مهرة النجدية انشاء وتصميم وبرمجة البرامج 0 02-05-2019 12:58 AM
كتاب حماية قاعدة البيانات برقم الهارد دسك ابن الوليد انشاء وتصميم وبرمجة البرامج 0 12-09-2018 01:28 PM

 

RSS RSS 2.0 XML MAP HTML

الساعة الآن 03:39 AM

نبذة عن المنتدى

روابط مفيدة

إعلانات نصية

روابط الموقع

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



Powered by vBulletin® Copyright ©2000 - 2019,