الرئيسيةمكتبة الصورس .و .جبحـثالتسجيلدخول

شاطر | 
 

 عمل قاعدة بيانات بإستخدام V.B معتمدة على جداول منشأة ببرنامج ACCESS 2000 :-

اذهب الى الأسفل 
كاتب الموضوعرسالة
DR-AmrGalal
مدير عام المنتدى
مدير عام المنتدى
avatar

عدد الرسائل : 107
تاريخ التسجيل : 22/01/2008

مُساهمةموضوع: عمل قاعدة بيانات بإستخدام V.B معتمدة على جداول منشأة ببرنامج ACCESS 2000 :-   الأحد أبريل 13, 2008 3:51 am

* عمل قاعدة بيانات بإستخدام V.B معتمدة على جداول منشأة ببرنامج ACCESS 2000 :-
أولا : تصميم الواجهة :-

http://www.piccs.net/getimg.php?img=615.JPG












ثانياً:- ضبط الخصائص :-
الأداة الخاصيـــــة القيمة الجديدة
Form1 Caption مشــروع الموظفيــن
Command1 Caption التالـــــى
Command2 Caption السابـــــق
Command3 Caption السجل الأول
Command4 Caption السجل الأخير
Command5 Caption إضافـــــــة
Command6 Caption حـــــــذف
Command7 Caption حفـــــــظ
Command8 Caption عدد السجلات
Data1 Database name إسم ومسار قاعدة البيانات المراد ربطها وليكن (D:\شغل\مشروع\DATA1.mdb)
RecordSource إسم الجدول المراد ربطه بForm وليكن
(جدول الموظفين)
Text1 Datasource Data1
Datafield إسم الحقل المراد ربطه بText1 وليكن
( رقم الموظف)
Text2 Datasource Data1
Datafield إسم الحقل المراد ربطه بText2 وليكن
( إسم الموظف)
Text3 Datasource Data1
Datafield إسم الحقل المراد ربطه بText3 وليكن
( الراتب )
Text4 Datasource Data1
Datafield إسم الحقل المراد ربطه بText4 وليكن
( رقم التليفون )
Text5 Datasource Data1
Datafield إسم الحقل المراد ربطه بText5 وليكن
( ملاحظات)


الأداة
الخاصيـــــة القيمة الجديدة
Label1 Caption رقم الموظف
Label2 Caption إسم الموظف
Label3 Caption الـــــــراتب
Label4 Caption رقم التليفون
Label5 Caption ملاحظات
ثالثاً: كتابة الكـــــود :-
الوصـــــف الكــــــود

Private Sub Command1_Click()
'السجل التالي
On Error Resume Next
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Command2_Click()
'السجل السابق
On Error Resume Next
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveNext
End If
End Sub

Private Sub Command3_Click()
' السجل الأول
Data1.Recordset.MoveFirst
End Sub

Private Sub Command4_Click()
'السجل الأخير
Data1.Recordset.MoveLast
End Sub

Private Sub Command5_Click()
' اضافة
Data1.Recordset.AddNew
End Sub

Private Sub Command6_Click()
'حذف
On Error Resume Next
x = MsgBox("هل تريد حذف السجل", vbOKCancel)
If x = vbOK Then
Data1.Recordset.Delete
End If
End Sub

Private Sub Command7_Click()
' حفظ
On Error Resume Next
Data1.Recordset.Update
MsgBox "تم حفظ البيانات بنجاح", vbOKOnl y , "حفظ التعديل"
End Sub

Private Sub Command8_Click()
'عدد السجلات
On Error Resume Next
MsgBox Data1.Recordset.RecordCount
End Sub



من قلبنا لطلاب المعهد الأحباء
IT Manager
farao farao farao farao
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://alaraby.montadarabi.com
المثنى الحصني



عدد الرسائل : 2
تاريخ التسجيل : 30/11/2008

مُساهمةموضوع: رد: عمل قاعدة بيانات بإستخدام V.B معتمدة على جداول منشأة ببرنامج ACCESS 2000 :-   الأحد نوفمبر 30, 2008 8:07 pm

مشكور وبارك الله بك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
المثنى الحصني



عدد الرسائل : 2
تاريخ التسجيل : 30/11/2008

مُساهمةموضوع: رد: عمل قاعدة بيانات بإستخدام V.B معتمدة على جداول منشأة ببرنامج ACCESS 2000 :-   الأحد نوفمبر 30, 2008 8:08 pm

مشكور وبارك الله بك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو
 
عمل قاعدة بيانات بإستخدام V.B معتمدة على جداول منشأة ببرنامج ACCESS 2000 :-
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» حصرى للغايه كليب الرقص السرى فوق سطح الهرم
» حريت المراه
» اسماء وعناوين بعض المعاهد والكليات للطيران
» الطعن بالمعارضة .
» المعجم العقائدي

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