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

* عمل قاعدة بيانات بإستخدام 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

مشكور وبارك الله بك

مشكور وبارك الله بك