format82 معلومات المنتدى |
إنضم إلينا : |
07-02-2008 |
آخر زيارة |
امس, 07:45 AM |
إجمالي المشاركات : |
136 (0.02 مشاركات في اليوم الواحد | 0.27 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
|
اجمالي المواضيع : |
20 (0 مواضيع في اليوم | 0.2 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
|
فترة البقاء متصل : |
9 ساعات, 59 دقائق, 47 ثواني |
الأعضاء المحالين: |
0 |
|
7 (0 0.06 per day | 12007 percent of total 0.06)
( — )
|
|
0 (0 0 per day | 12036 percent of total 0)
|
|
|
|
|
|
|
RE: كيف ارتب الجدول dbgrid في البرنامج تنازليا على قاعدة البيانات في دلفي |
18-03-2017, 09:53 AM |
2 |
|
|
كيف ارتب الجدول dbgrid في البرنامج تنازليا على قاعدة البيانات في دلفي |
منتديات دلفي للعرب التعليمية
سؤال و جواب حول دلفي
|
|
karimprog كتب : (30-06-2015, 05:09 AM)
--
السلام عليكم
ملاحظة هاته اول مشاركة لي اعتذر كوني لا اجيد التعامل مع الموقع و خاصة كيفية كتابة الكود و ارساله
ربما يكون مبعثر بعض الشي لكنه صحيح و شغال و هو سهل جدا.
على العموم هناك ملف مرفق يشمل الكود كاملا مع source
ترتيب DBGRID سهل جدا و دون الحاجة الى SQL
ضع الاكواد التالية في DBGRID
الكود الاول يسمح بمعرفة احداثيات الماوس حتى يتم الترتيب حسب الحقل الذي يوجد فوقه الماوس
كود :
--
procedure TForm1.DBGrid1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
pt: TGridcoord;
begin
pt:= DBGrid1.MouseCoord(x, y);
if pt.y=0 then
DBGrid1.Cursor:=crHandPoint
else
DBGrid1.Cursor:=crDefault;
end;
--
الكود الثاني يسمح بالترتيب الفعلي لـ DBGRID حين الضغط على عنوان الجدول
كود :
--
procedure TForm1.DBGrid1TitleClick(Column: TbsColumn);
{$J+}
const PreviousColumnIndex : integer = 0;
{$J-}
begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do...
|
|