14-03-2010, 09:21 PM
السلام عليكم ورحمة الله وبركاته
حبيت أشارك بموضوع حول ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس .
وذلك بعد إضافة عنصر DataSource من قائمة DataAccess
و إضافة عنصر Table من قائمة BDE
ونضيف الكود التالي في حدث FormShow للفورم .
وسوف أضيف BDGrid من أجل عرض البيانات
و عنصر DBNavigator من أجل الإنتقال بين السجلات المعروضة ضمن DBGrid
حمل المرفقات يوجد مثال توضحي
حبيت أشارك بموضوع حول ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس .
وذلك بعد إضافة عنصر DataSource من قائمة DataAccess
و إضافة عنصر Table من قائمة BDE
ونضيف الكود التالي في حدث FormShow للفورم .
وسوف أضيف BDGrid من أجل عرض البيانات
و عنصر DBNavigator من أجل الإنتقال بين السجلات المعروضة ضمن DBGrid
كود :
procedure TForm1.FormShow(Sender: TObject);
begin
Table1.DatabaseName := GetCurrentDir + '.\data';
Table1.TableName := 'frigidaire_balance';
DataSource1.DataSet := Table1;
DBGrid1.DataSource := DataSource1; // DBGrid من أجل أظهار البيانات في
DBNavigator1.DataSource := DataSource1; // DBNavigator من أجل أنتقال بين البيانات عن طريق
DBGrid1.Columns[0].FieldName := 'date_f';
DBGrid1.Columns[0].Title.Caption := 'تاريخ';
DBGrid1.Columns[1].FieldName := 'Virtage_blood';
DBGrid1.Columns[1].Title.Caption := 'زمرة الدم';
DBGrid1.Columns[2].FieldName := 'Conjugate_ready_blood';
DBGrid1.Columns[2].Title.Caption := 'الدم الجاهز لصرف';
DBGrid1.Columns[3].FieldName := 'New_give_blood';
DBGrid1.Columns[3].Title.Caption := 'الدم المقطوف حديثا ً';
DBGrid1.Columns[4].FieldName := 'Blood_corpuscles';
DBGrid1.Columns[4].Title.Caption := 'دم كريات الحمر';
DBGrid1.Columns[5].FieldName := 'New_give_blood_sendery';
DBGrid1.Columns[5].Title.Caption := 'الدم الثنائي';
DBGrid1.Columns[6].FieldName := 'New_give_blood_ternary';
DBGrid1.Columns[6].Title.Caption := 'الدم الثلاثي';
Table1.Open;
end;حمل المرفقات يوجد مثال توضحي
