delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف استعمل خاصية السحب والفلت في جدول ؟
نسخة كاملة : كيف استعمل خاصية السحب والفلت في جدول ؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

mohamed_it

16-03-2009, 08:07 PM
السلام عليكم ورحمة الله وربركاته
انا محمد عضو جديد وطالب في مجال الحاسب الالي والان اقوم بمشروعي النهائي للتخرج وهو بأسم الجدوال الدراسي الالكتروني
electronic study time table

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


وجزاكم الله خيراً


الصورة توضح

[صورة: storm_80387642760030477_1251.jpg]

hanipino

17-03-2009, 04:28 AM
السلام عليكم
اذا كنت تعمل ب DBGrid العادى :

PHP كود :
var
  Form1: TForm1;
  S : string; 

PHP كود :
procedure TForm1.dbgrd1CellClick(Column: TColumn);
begin
 S := Column.Field.AsString;
end; 

PHP كود :
procedure TForm1.dbgrd1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   Accept := Source is TDBGrid;
end; 

PHP كود :
procedure TForm1.dbgrd1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssleft in Shift)then
  dbgrd1.BeginDrag(True,-1);
end; 

PHP كود :
procedure TForm1.dbgrd1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  tbl1.MoveBy(dbgrd1.MouseCoord(X,Y).Y - ds1.DataSet.RecNo);
  try
   tbl1.Edit;
   tbl1.Fields[dbgrd1.MouseCoord(X,Y).X - 1].AsString := S;
   tbl1.Post;
  except
   MessageBox(0,'(^;^)','UP',0);
  end;
end; 

mohamed_it

18-03-2009, 09:27 AM
جزاك الله خيراً
كما بالصورة السابقة في كل خانة تلات عناصر مهمة وهي اسم الاستاذ والمجموعة التي سوف يدرسها والقاعة التي سوف يدرس فيها وعلى سبيل المتال عند نقل الحانة متاع يوم السبت من الساعة 8 الى 9 للاستاذ احمد بالسحب والفلت الى يوم الاتنين من الساعة 12 الى 1 اذا كان هذا الوقت القاعة 21 خالية لايعطى فيها محاضرات تتم عملية النقل واذا لم تكن القاعة او الاستاذ او المجموعة غير مشغولين لاتتم العملية النقل ويظهر مسج بذلك
بعد عملية النقل زر حفط مثلا يتم حفط التعديلات الجديدة
وشكرا لك اخي الكريم

hanipino

19-03-2009, 01:58 AM
mohamed_it
ما هو شكل الجدو (الحقول)الذى نقرر على اساسه ان كانت القاعة 21 لا تعطى فيها دروس ام لا .
اى الجدول الذى يحتوى على توقيت القاعات.

mohamed_it

19-03-2009, 02:57 PM
يتكون النظام من جدول القاعات وتخزن فيه وقت كل قاعة بالنسبة لليوم محدد وبهذا يتم تحديد القاعات المحجوزة في وقت ما ويتم ادخال بيانات القاعة وموعيدها بوسطة فورم الاستاذ

هذه قاعدة بيانات المنظومة بــ sql 2005
http://www.7ammil.com/download.php?id=J0XZ352H6E
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > كيف استعمل خاصية السحب والفلت في جدول ؟